Author Topic: Оптимизация и помощь со вторым мобов  (Read 1138 times)

0 Members and 1 Guest are viewing this topic.

rrdeiss

  • Зашел в гости
  • *
  • Posts: 16
    • View Profile
Добрый день, пишу своего первого бота, для браузерной игры. Бьет все нормально, но что сделать, если в бой заходит второй бот? Как продолжить бить? Нужно какое-то условие, думаю
Code: [Select]
getscreen
if_pixel_in(1177,102,1233,156,813387,11115264)
wait(2)
lclick($_return1,$_return2)
wait(2)
lclick(352,207)           

wait (1)

getscreen
 if_pixel_in(342,180,1147,816,2507655,933703,6327740)
lclick($_return1, $_return2)
waitms(100)
dblclick($_return1, $_return2)
end_if

wait(6)
getscreen
if_pixel_in(592,427,641,471,2497978,4529848,5812464)
lclick($_return1, $_return2)
wait(6)                     
lclick($_return1, $_return2)
wait(6)
lclick($_return1, $_return2)
wait(6)
lclick(671,461)
wait(6)
end_if
getscreen
if_pixel_in(542,130,591,131,202)
lclick(1396,59)
lclick(1088,200)
end_if
getscreen
if_pixel_in(646,130,669,128,9655827)
lclick(1396,59)
lclick(1093,174)
end_if

psyzum

  • Зашел в гости
  • *
  • Posts: 19
    • View Profile
Re: Оптимизация и помощь со вторым мобов
« Reply #1 on: October 29, 2017, 02:01:42 AM »
 ??? где смайлик, который бьёт по лбу? окей, я помогу, хоть не понял что имеешь в виду и о чём говоришь  :D
режим ванги включён
[spoiler]
$hwnd = HGET(60,95)
hset($hwnd, 1)
print($hwnd)

$o1 = 0
$o11 = 0
while(($o1 < 1) & ($o11 < 3))
WAIT(rnd(1,2))
GETSCREEN
WAITMS(rnd(50,60))
COLORMODE(6)
WAITMS(rnd(50,60))
IF_PICTURE_IN(53,27, 66,41, "sl.bmp",-1,10)
$xzan = $_return1+rnd(1,18)
$yzan = $_return2+rnd(1,4)
print("\x-"$xzan,  "\y-"$yzan, "  zan6++")
postmessage($hwnd, 0x0201, 0x0001, $xzan + ($yzan*65536))
WAITMS(rnd(1000,2000))
postmessage($hwnd, 0x0202, 0x0000, $xzan + ($yzan*65536))
WAITMS(rnd(800,1200))
WAIT(rnd(0,1))
print("o1+", $o1)
$o2 = 0
$o1 = 1
$poisk = 0
ELSE
$o1 = 1
$o2 = 1
$o3 = 1
$poisk = 1
print("o1-")
END_IF
   while($o2 < 1)
   WAIT(rnd(1,2))
   GETSCREEN
   WAITMS(rnd(50,60))
   COLORMODE(6)
   WAITMS(rnd(50,60))
   IF_PICTURE_IN(53,39, 66,54, "sl.bmp",-1,25)
   $xrss = rnd(127,167)
   $yrss = rnd(45,53)
   print("\x-"$xrss,  "\y-"$yrss, "  rss++")
   postmessage($hwnd, 0x0201, 0x0001, $xrss + ($yrss*65536))
   WAITMS(rnd(1000,2000))
   postmessage($hwnd, 0x0202, 0x0000, $xrss + ($yrss*65536))
   WAITMS(rnd(800,1200))
   print("o2+", $o2)
   WAIT(rnd(2,3))
   $o3 = 0
   $o2 = 1
   $poisk = 0
   ELSE
   print("o2-")
   $o1 = 1
   $o3 = 1
   $o2 = 1
   $poisk = 1
   END_IF
      while($o3 < 1)
      WAIT(rnd(1,2))
      GETSCREEN
      WAITMS(rnd(50,60))
      COLORMODE(6)
      WAITMS(rnd(50,60))
        IF_PICTURE_IN(56,49, 72,58, "o36+.bmp",-1,40)
                $xrss2 = rnd(94,155)
      $yrss2 = rnd(64,70)
      print("\x-"$xrss2,  "\y-"$yrss2, "  rss2++")
      postmessage($hwnd, 0x0201, 0x0001, $xrss2 + ($yrss2*65536))
      WAITMS(rnd(1000,2000))
      postmessage($hwnd, 0x0202, 0x0000, $xrss2 + ($yrss2*65536))
      WAITMS(rnd(900,1200))
      WAIT(rnd(2,3))
      print("o3+", $o3)
      $o1 = 0
      $o3 = 1
      $poisk = 0
      inc($o11,1)
      print("inc($o11,1)"$o11)
      ELSE
      print("o3-")
       $o1 = 1
      $o2 = 1
      $o3 = 1
      $poisk = 1
      END_IF
      END_CYC
   END_CYC
END_CYC
[/spoiler]
ну,заготовка у тебя есть, даже на 3 бота  ;D помог в слепую, масивы, иф и while правь под себя  ::)

rrdeiss

  • Зашел в гости
  • *
  • Posts: 16
    • View Profile
Re: Оптимизация и помощь со вторым мобов
« Reply #2 on: October 29, 2017, 07:03:03 AM »
Спасибо, буду работать с этим