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
