adsassaas

[Asolidboat]

expandcollapse popup

HotKeySet("(F6)", "myExit")

$x = WinActivate ("[V93] SpawnPK")



while(1)

Teleport()
Viewreset()

LC1(1401,249)
sleep(3500)

$thieve = false

while(not($thieve))
   $pixels = PixelSearch(1406,257,1512,399,0x735429,1)

   if NOT(@error) Then
      LC($pixels[0],$pixels[1])
      sleep(3350)
   Endif

   $pixels = PixelSearch(1361,162,1567,402,0x48B0C9,1)
   if NOT(@error) Then
      $thieve = true
      LC(1802, 299)
      sleep(2000)
      LC2(1730, 353)
      sleep(2000)
      LC1(1731,400)
      sleep(2000)

   endif
   wend

   Wend

func LC2($x, $y)
 mouseclick("right", $x, $y, 1, 5)
endfunc

func LC1($x, $y)
 mouseclick("left", $x, $y, 1, 5)
endfunc


func LC($x, $y)
 mouseclick("left", $x, $y, 1, 1)
endfunc

Func Teleport()
   LC(1895,299)
   sleep(2000)
   LC1(1749,365)
   sleep(3000)
   LC1(1356,294)
   sleep(5000)

endfunc


Func Viewreset()
   LC1(1755,46)
   Send("{UP}")
   Send("{UP down}")
   sleep(2000)
   send("{DOWN}")
   Send("{UP UP}")
   sleep(3000)
endfunc




Func myExit()
   Exit
Endfunc

 

[JLogan3o13]

Apparently you did not want to be a part of this forum after all