Macro Event Kartu

Discussion in 'RO 2 International' started by -SAPI-, Apr 30, 2013.

Discuss Macro Event Kartu in the RO 2 International area at Nyit-Nyit.Net

  1. -SAPI- TK 0 Kecil Level 1

    Messages:
    53
    Likes Received:
    3
    Trophy Points:
    8
    2 people like this.

    Gunakan jasa Rekber N3 untuk menjamin jual beli anda atau menghindari penipuan dengan meng klik disini
  2. -SAPI- TK 0 Kecil Level 1

    Messages:
    53
    Likes Received:
    3
    Trophy Points:
    8
    sorry dopost. udah ga isa diedit lg. ini buat blajar2 autoIT.

    Code:
    Opt('MouseCoordMode', 1)
    Opt('PixelCoordMode', 1)
    Global $Paused
    Global $Pixel
    Global $Chat
    HotKeySet("{PAUSE}", "TogglePause")
    HotKeySet("{PGDN}", "Chat")
    HotKeySet("{END}", "Terminate")
    HotKeySet("{INSERT}", "CheckPixel")
    
    Local $mobs, $HP, $MP, $face, $s, $t, $i, $q, $w1, $h1, $w2, $h2, $size = WinGetClientSize("Ragnarok Online2 - Legend of The Second")
    If $size = 0 Then
    MsgBox(16, "Error", "RO2 is not running, cannot grab resolution!" & @CRLF & "Exiting...")
    Exit
    EndIf
    
    MsgBox(0,"Created by MilleFeuilles", "Screen Resolution : " & $size[0] & " x " & $size[1] & @LF & "Esc buat exit, Pause buat pause, Page Down buat chat" & @LF & "Special thanks to Lyonnesse and Deathvadder")
    WinWaitActive("Ragnarok Online2 - Legend of The Second","")
    
    $s = 5 ; kecepatan pointer mouse pindah
    $t = 1000 ; ganti frame dalam ms
    $q = 10 ; jeda antar action klik dalam sec
    If $size[0] = 1920 Then
    If $size[1] = 1080 Then
    $w1 = 1740
    $h1 = 170
    $w2 = 885
    $h2 = 475
    EndIf
    
    ElseIf $size[0] = 1768 Then
    If $size[1] = 992 Then
    $w1 = 1590
    $h1 = 170
    $w2 = 815
    $h2 = 445
    EndIf
    
    ElseIf $size[0] = 1680 Then
    If $size[1] = 1055 Then
    $w1 = 1500
    $h1 = 170
    $w2 = 770
    $h2 = 465
    EndIf
    
    ElseIf $size[0] = 1600 Then
    If $size[1] = 1024 Then
    $w1 = 1420
    $h1 = 170
    $w2 = 730
    $h2 = 455
    ElseIf $size[1] = 900 Then
    $w1 = 1420
    $h1 = 170
    $w2 = 730
    $h2 = 415
    EndIf
    
    ElseIf $size[0] = 1440 Then
    If $size[1] = 900 Then
    $w1 = 1265
    $h1 = 170
    $w2 = 650
    $h2 = 415
    EndIf
    
    ElseIf $size[0] = 1366 Then
    If $size[1] = 768 Then
    $w1 = 1195
    $h1 = 170
    $w2 = 620
    $h2 = 365
    EndIf
    
    ElseIf $size[0] = 1360 Then
    If $size[1] = 768 Then
    $w1 = 1185
    $h1 = 170
    $w2 = 615
    $h2 = 365
    EndIf
    ElseIf $size[0] = 1280 Then
    If $size[1] = 800 Then
    $w1 = 1105
    $h1 = 170
    $w2 = 575
    $h2 = 375
    ElseIf $size[1] = 768 Then
    $w1 = 1100
    $h1 = 170
    $w2 = 575
    $h2 = 365
    ElseIf $size[1] = 960 Then
    $w1 = 1100
    $h1 = 170
    $w2 = 575
    $h2 = 430
    ElseIf $size[1] = 1024 Then
    $w1 = 1100
    $h1 = 170
    $w2 = 570
    $h2 = 455
    EndIf
    ElseIf $size[0] = 1152 Then
    If $size[1] = 864 Then
    $w1 = 975
    $h1 = 170
    $w2 = 510
    $h2 = 400
    EndIf
    
    ElseIf $size[0] = 1024 Then
    If $size[1] = 768 Then
    $w1 = 850
    $h1 = 170
    $w2 = 445
    $h2 = 365
    EndIf
    Else
    MsgBox(16, "Error", "Screen Resolution RO2 Salah" & @CRLF & "Exiting...")
    Exit
    EndIf
    Do
    $i = $q
    while ($i > 0)
    Tooltip('Condition : Begin Click In ' & $i & ' sec', 0, 0)
    Sleep($t)
    $i = $i-1
    WEnd
    
    ToolTip('Condition : Run Click Script', 0, 0)
    MouseClick ( "left", $w1, $h1, 1, $s)
    MouseClick ( "left", $w2, $h2, 1, $s)
    
    until 1=2
    Func TogglePause()
    $Paused = Not $Paused
    While $Paused
    Sleep(100)
    ToolTip('Condition : Paused', 0, 0)
    WEnd
    ToolTip("")
    EndFunc
    Func Chat()
    $Chat = Not $Chat
    Send("{ENTER DOWN}")
    Sleep(100)
    Send("{ENTER UP}")
    While $Chat
    Sleep(100)
    ToolTip('Condition : Chat', 0, 0)
    WEnd
    ToolTip("")
    EndFunc
    Func CheckPixel()
    $Pixel = Not $Pixel
    While $Pixel
    Local $pos = MouseGetPos()
    Local $col = PixelGetColor(($pos[0]), $pos[1])
    Sleep(100)
    Tooltip('Mouse x,y ; col,hexcol: ' & $pos[0] & ',' & $pos[1] & ' ; ' & $col & ',' & hex($col, 6) & @LF & $size[0] & "X" & $size[1] & " | " & $w1 & "X" & $h1 & " | " & $w2 & "X" & $h2, 0, 0)
    WEnd
    ToolTip("")
    EndFunc
    
    Func Terminate()
    Exit 0
    EndFunc
    
     
  3. reyes Belum Sekolah Level 1

    Messages:
    3
    Likes Received:
    0
    Trophy Points:
    26
    bagus juga macronya kalo AFK mayan buat auto ambil Present Box
     
  4. -SAPI- TK 0 Kecil Level 1

    Messages:
    53
    Likes Received:
    3
    Trophy Points:
    8
    @^
    thanks! tar kapan2 gue share macro serang otomatis + pake pot otomatis. >.<
     
  5. Terva Pra TK Level 1

    Messages:
    48
    Likes Received:
    1
    Trophy Points:
    33
    Game:
    Ragnarok
    @^ udah ada macro serang otomatis + pake pot otomatis nya gan?
     
    Last edited by a moderator: Jul 8, 2014
  6. ferdy81 Pra TK Level 1

    Messages:
    36
    Likes Received:
    0
    Trophy Points:
    6
    makro buat ngambill tanaman gimana gangg
    ada gakkk????
     

Share This Page