Sunday 4 August 2013

AutoIT Ragnarok Online 2 Indonesia

Bot RO2 Indonesia - alo tak henti-hentinya saya mencoba untuk berbagi kepada kalian tentang RO2 kalau tidak salah kemarin ada yang request untuk buat BOT RO2 kan yang pake AutoIT ? hayo siapa ngaku-ngaku hehe.. disini saya akan share sedikit tentang BOT RO2 forum buka forum eh ketemu lumayan lah ga pake mikir hehehe...habis mau lebaran lagi males mikir toh THR uda cair hehe jadi saatnya leyeh-leyeh atau bersantai-santai ini Credit N3 ya karena males mikir jadi ane coba share aja ke temen-temen sudah saya coba dan Work kok asal Delphine di buang di tong sampah hehe...




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
nah sekian dulu trick dari saya... kalau mau cara bagaimana bypass delphine syaratnya mudah kok ga perlu bayar karena semua saya share GRATIS !! tapi tinggal iklan saya aja yang di pojok kanan atau di bawah postingan :) sampai jumpa lagi

No comments:

Post a Comment

Note: only a member of this blog may post a comment.