Игровой бот Небеса: уникальная игра! Опции

[dimоn]

Оф, Firefox/Seamonkey, 100% масштаб.

После незначительных манипуляций с координатами диапазона поиска.

(IMG:http://c2n.me/3lmMM4z.png)

Переустанови браузер с флешами, в конце концов. Или в другом загрузи.

[Triniti]

DarkMaster, в паинт вставлял ещё когда первый раз написали, находит. Поиск желательно в перекрытом бы.

Переустанови браузер с флешами, в конце концов. Или в другом загрузи.

На XP всё работает, у других работает, тот же код в тех же версиях у меня не работает.
И в начале я писал, что браузеры\флэш сносил полностью и это результата не дало. Юзаю принципиально только FF/Seamonkey.

[DarkMaster]

Поиск желательно в перекрытом бы.

К родительскому. На данный момент именно так.

[Triniti]

К родительскому. На данный момент именно так.

Перед переходом на 10ку короче просто убрал workwindow из типа поиска - заработало.
Сейчас на 10ке также без явного указания типа поиска работает, с "2" работает, а с #handle или workwindow - нет. Может проблема в пипоте?
И это с привязкой не к родительскому окну, с ним ваще никак не работает ни поиск, ни клики.

[DarkMaster]

Сейчас на 10ке также без явного указания типа поиска работает, с "2" работает, а с #handle или workwindow - нет.

Это разные методы снятия изображения. Совсем разные. Совсем разные коррекции положения окон. Там все разное на этапе забора изображения, расчета смещений и т.д. Общего только непосредственно сам алгоритм разбора готового изображения.

И это с привязкой не к родительскому окну, с ним ваще никак не работает ни поиск, ни клики.

При привязке к родительскому необходимо будет сделать поправки на все координаты.

[Triniti]

Это разные методы снятия изображения. Совсем разные. Совсем разные коррекции положения окон. Там все разное на этапе забора изображения, расчета смещений и т.д. Общего только непосредственно сам алгоритм разбора готового изображения.

При привязке к родительскому необходимо будет сделать поправки на все координаты.

Ну вот я написал, что с 2 работает, а иначе - нет.
И координаты для поиска я сделал 0 0 1000 1000 - всё равно результата никакого.
Какое окно в данном случае считать "родителем"?

Код

set #ownerHandle findwindow (Небеса: уникальная игра! - Игра - SeaMonkey)
set #tmp getwindow (#ownerHandle child)
set #tmp getwindow (#tmp next)
set #tmp getwindow (#tmp child)
set #childHandle getwindow (#tmp child) // песочница

Иногда, кстати, скрипт генерации не выдаёт

Код

set #tmp getwindow (#tmp next)

[DarkMaster]

Иногда, кстати, скрипт генерации не выдаёт

В некоторых приложениях путь к окну может меняться. Это бывает не часто, но бывает.

Какое окно в данном случае считать "родителем"?

Первое.

[Triniti]

В некоторых приложениях путь к окну может меняться. Это бывает не часто, но бывает.

Первое.

Ну, сделал привязку к первому... лефты не работают, поменял на абсы передвинув окно к левой половине экрана (без abs правда, потому что мышку жалко (IMG:style_emoticons/default/sad.gif), знаю что глупо (IMG:style_emoticons/default/biggrin.gif) ), толку 0... findimage так и не заработал (IMG:style_emoticons/default/crazy.gif)
______
P.s. сделал через команду printscreen скрин окна флэша - просто чернота, эм...

[DarkMaster]

Учитывая привязку к другому хендлу, то left и не заработает. Только kleft.

[Triniti]

Учитывая привязку к другому хендлу, то left и не заработает. Только kleft.

Как-то по-человечьи есть способ заставить его работать (как на ХР)?
kleft не тру, да ещё и перекрывать нельзя... почему у других-то можно и не надо к род-му окну привязывать??? (IMG:style_emoticons/default/russian_roulette.gif) (IMG:style_emoticons/default/beg.gif)

[Ph3nix]

Выложу здесь. Может кому пригодится, может кто, до ума доведёт (IMG:style_emoticons/default/smile.gif)
Работает хорошо, но надо добавить условий если вдруг флеш навернётся или игра заглючит! Стартовые условия можно смело убрать из каждой подпрограммы.
И раз тут спор про хендлы, то сразу упомяну, привязка здесь к флешу, браузер фф, разрешение 1280Х1024... И, сильно не пинать, только учусь (IMG:style_emoticons/default/smile.gif)

Код

set %SearchA[1] \Image\Search.bmp
set %SearchA[2] \Image\UfO.bmp
set %MonstersA[1] \Image\Monsters\1lvl\HeavenlySpirit.bmp
set %MonstersA[2] \Image\Monsters\1lvl\ShadowWarrior.bmp
set %MonstersA[3] \Image\Monsters\2lvl\GhostWarrior.bmp
set %MonstersA[4] \Image\Monsters\2lvl\RestlessGhost.bmp
set %MonstersA[5] \Image\Monsters\3lvl\Bagessa.bmp
set %MonstersA[6] \Image\Monsters\3lvl\Bagg.bmp
set %MonstersA[7] \Image\Monsters\3lvl\Lag.bmp
set %MonstersA[8] \Image\Monsters\3lvl\Lagga.bmp
set %MonstersA[9] \Image\Monsters\3lvl\ShadowSpearmen.bmp
set %MonstersA[10] \Image\Monsters\3lvl\WanderingSpirit.bmp
set %MonstersA[11] \Image\Monsters\4lvl\Bagessa.bmp
set %MonstersA[12] \Image\Monsters\4lvl\Bagg.bmp
set %MonstersA[13] \Image\Monsters\4lvl\HowlingSpirit.bmp
set %MonstersA[14] \Image\Monsters\4lvl\Lag.bmp
set %MonstersA[15] \Image\Monsters\4lvl\Lagga.bmp
set %MonstersA[16] \Image\Monsters\4lvl\PhantomSwordsman.bmp
set $NoEnergy \Image\NoEnergy.bmp
set $Attack \Image\Attack.bmp
set %MagicA[1] \Image\Spell\MagicSquare.bmp
set %MagicA[2] \Image\Spell\MagicCross.bmp
set $Horizon \Image\Horizon.bmp
set $Vertical \Image\Vertical.bmp
set $EmptySlot \Image\Analysis\EmptySlot.bmp
set %ExclusionA[1] \Image\Analysis\Emeralds.bmp
set %ExclusionA[2] \Image\Analysis\HeavenlyDust.bmp
set %ExclusionA[3] \Image\Analysis\LapisLazuli.bmp
set %ExclusionA[4] \Image\Analysis\Zircon.bmp
set %ExclusionA[5] \Image\Analysis\GreenRecipe.bmp
set %ExclusionA[6] \Image\Analysis\GreyRecipe.bmp
set %ExclusionA[7] \Image\Analysis\OrangeRecipe.bmp
set %ExclusionA[8] \Image\Analysis\RedRecipe.bmp
set $DeCo \Image\Analysis\DeCo.bmp
set %StTaA[1] \Image\Analysis\Study.bmp
set %StTaA[2] \Image\Analysis\Take.bmp
set $Study \Image\Study.bmp
set %DiSeA[1] \Image\Analysis\Disassemble.bmp
set %DiSeA[2] \Image\Analysis\Sell.bmp
set %ConfirmationA[1] \Image\Disassemble.bmp
set %ConfirmationA[2] \Image\Sell.bmp
set %ConfirmationA[3] \Image\Fine.bmp
set %UniteA[1] \Image\Analysis\Emeralds.bmp
set %UniteA[2] \Image\Analysis\HeavenlyDust.bmp
set %UniteA[3] \Image\Analysis\LapisLazuli.bmp
set %UniteA[4] \Image\Analysis\Zircon.bmp
set $Unite \Image\Analysis\Unite.bmp
set $Exit \Image\Exit.bmp

:Start

 if (127, 145 4578815 and 300, 315 2858389) or (127, 145 4578815 and 300, 315 13344164 14135992)
  gosub Search
 end_if
 if (300, 315 2858389 and 340, 90 2778524) or (300, 315 13344164 14135992 and 340, 90 2778524)
  gosub Monsters
 end_if
 if 520, 450 9095149 and 670, 360 8694234
  gosub Attack
 end_if
 if 365, 45 3560041 and 365, 380 9754359
  gosub Fight
 end_if
 if 85, 350 81199 and 365, 285 6924243
  if_not 285, 315 1715023 or 285, 315 1716563
   gosub Victory
  end_if
 end_if
 if 85, 350 70505 and 365, 285 6924243
  gosub Exit
 end_if
 if ($ExclusionF > 0)
  gosub StTa
 end_if
 if 365, 45 2176330 and 590, 265 9885179
  gosub Study
 end_if
 if ($DeCoF > 0) or ($NotStudied = 1)
  gosub DiSe
 end_if
 if 365, 45 2176330 and 590, 265 12904700
  gosub Confirmation
 end_if
 if (#Unite = 1)
  gosub Unite
 end_if
 if 420, 500 11855103 or 470, 500 11855103 or 520, 500 11855103
  gosub UniteYes
 end_if
 if (#Exit = 1) or ($UniteYesF > 0)
  gosub Exit
 end_if

goto Start

:Search

 while 1 = 1
  wait 10
  for #SearchN 1 2
   set $SearchF findimage (610, 225 710, 295 (%SearchA[#SearchN]) %SearchXY 2 80 1 5)
   if ($SearchF > 0)
    set #x1 %SearchXY[1 1] + random (20)
    set #y1 %searchXY[1 2] + random (20)
    wait 500 + random (500)
    left #x1 #y1
    while 300, 315 2858389 or 300, 315 13939639
     wait 10
    end_while
    while_not (300, 315 2858389 and 340, 90 2778524) or (300, 315 13344164 14135992 and 340, 90 2778524)
     wait 10
    end_while
    break
   end_if
  end_for
  if ($SearchF > 0)
   return
  end_if
 end_while

:Monsters

 while 1 = 1
  wait 10
  if 15, 565 3420261
   return
  end_if
  if_not (300, 315 2858389 and 340, 90 2778524) or (300, 315 13344164 14135992 and 340, 90 2778524)
   return
  end_if
  for #MonstersN 1 16
   set $MonstersF findimage (0, 350 200, 600 (%MonstersA[#MonstersN]) %MonstersXY 2 80 1 1)
   if ($MonstersF > 0)
    set #x1 %MonstersXY[1 1] + random (20)
    set #y1 %MonstersXY[1 2] + random (20)
    wait 500 + random (500)
    left #x1 #y1
    while_not 520, 450 9095149 and 670, 360 8694234
     wait 10
    end_while
    break
   end_if
  end_for
  set $SearchF 0
  return
 end_while

:Attack

 while 1 = 1
  wait 10
  if_not 520, 450 9095149 and 670, 360 8694234
   return
  end_if
  set $NoEnergyF findimage (335, 120 635, 400 ($NoEnergy) %NoEnergyXY 2 80 1 10)
  if ($NoEnergyF > 0)
   wait 5m
  end_if
  set $AttackF findimage (335, 120 635, 400 ($Attack) %AttackXY 2 80 1 1)
  if ($AttackF > 0)
   set #x1 %AttackXY[1 1] - 20 + random (60)
   set #y1 %AttackXY[1 2] + 5 + random (10)
   wait 500 + random (500)
   left #x1 #y1
   while_not 365, 45 3560041 and 365, 380 9754359
    wait 10
   end_while
   return
  end_if
 end_while

:Fight

 while 1 = 1
  wait 10
  if_not 365, 45 3560041 and 365, 380 9754359
   return
  end_if
  while_not 260, 90 936748
   wait 10
  end_while
  for #MagicN 1 2
   set $MagicF findimage (55, 460 355, 580 (%MagicA[#MagicN]) %MagicXY 2 80 1 1)
   if ($MagicF > 0)
    set #x1 %MagicXY[1 1] + random (20)
    set #y1 %MagicXY[1 2] + random (20)
    set #x2 300 + random (130)
    set #y2 180 + random (130)
    wait 500 + random (500)
    left #x1 #y1
    wait 500 + random (500)
    left #x2 #y2
    break
   end_if
  end_for
  while 260, 90 936748
   set $HorizonF findimage (230, 110 500, 380 ($Horizon) %HorizonXY 2 80 1 25)
   if ($HorizonF > 0)
    set #x1 %HorizonXY[1 1] - 16
    set #y1 %HorizonXY[1 2] - 10
    set #x2 #x1 + 10 + random (20)
    set #y2 #y1 + 10 + random (20)
    set #x3 #x1 + 51 + random (20)
    set #y3 #y1 + 10 + random (20)
    wait 500 + random (500)
    left #x2 #y2
    wait 500 + random (500)
    left #x3 #y3
   end_if
   set $VerticalF findimage (230, 110 500, 380 ($Vertical) %VerticalXY 2 80 1 25)
   if ($VerticalF > 0)
    set #x1 %VerticalXY[1 1] - 14
    set #y1 %VerticalXY[1 2] - 14
    set #x2 #x1 + 10 + random (20)
    set #y2 #y1 + 10 + random (20)
    set #x3 #x1 + 10 + random (20)
    set #y3 #y1 + 51 + random (20)
    wait 500 + random (500)
    left #x2 #y2
    wait 500 + random (500)
    left #x3 #y3
   end_if
  end_while
  if (85, 350 81199 and 365, 285 6924243) or (85, 350 70505 and 365, 285 6924243)
   return
  end_if
 end_while

:Victory

 while 1 = 1
  wait 10
  if_not 85, 350 81199 and 365, 285 6924243
   return
  end_if
  set $EmptySlotF findimage (330, 450 630, 580 ($EmptySlot) %EmptySlotXY 2 80 -1 1)
  if ($EmptySlotF > 0)
   set #EmptySlotX %EmptySlotXY[1 1] + 10
   set #EmptySlotY %EmptySlotXY[1 2] + 10
  end_if
  for #ExclusionN 1 8
   set $ExclusionF findimage (250, 280 480, 350 (%ExclusionA[#ExclusionN]) %ExclusionXY 2 80 1 1)
   if ($ExclusionF > 0)
    set #ExclusionX %ExclusionXY[1 1] + random (20)
    set #ExclusionY %ExclusionXY[1 2] + random (20)
    wait 500 + random (500)
    left #ExclusionX #ExclusionY
    wait 500
    if_not 280, 370 12368986
     wait 500 + random (500)
     left #ExclusionX #ExclusionY
    end_if
    while_not 85, 350 81199 and 385, 275 11855103
     wait 10
    end_while
    break
   end_if
  end_for
  if ($ExclusionF > 0)
   return
  end_if
  set $DeCoF findimage (210, 240 270, 300 ($DeCo) %DeCoXY 2 80 1 1)
  if ($DeCoF > 0)
   set #x1 %DeCoXY[1 1] + 37 + random (20)
   set #y1 %DeCoXY[1 2] + 40 + random (20)
   wait 500 + random (500)
   left #x1 #y1
   wait 500
   if_not 280, 370 12368986
    wait 500 + random (500)
    left #x1 #y1
   end_if
   while_not 85, 350 81199 and 385, 275 11855103
    wait 10
   end_while
   return
  end_if
 end_while

:StTa

 while 1 = 1
  wait 10
  if_not 85, 350 81199 and 385, 275 11855103
   return
  end_if
  for #StTaN 1 2
   set $StTaF findimage (230, 230 500, 420 (%StTaA[#StTaN]) %StTaXY 2 80 1 1)
   if ($StTaF > 0)
    set #x1 %StTaXY[1 1] + 10 + random (80)
    set #y1 %StTaXY[1 2] + 2 + random (8)
    set $ExclusionF 0
    wait 500 + random (500)
    left #x1 #y1
    if (#StTaN = 1)
     while_not 365, 45 2176330 and 590, 265 9885179
      wait 10
     end_while
    end_if
    if (#StTaN = 2)
     set #Unite 1
     while_not 285, 315 1715023 or 285, 315 1716563
      wait 10
     end_while
    end_if
    break
   end_if
  end_for
  if ($StTaF > 0)
   return
  end_if
 end_while

:Study

 while 1 = 1
  wait 10
  if_not 365, 45 2176330 and 590, 265 9885179
   return
  end_if
  set $StudyF findimage (275, 400 465, 450 ($Study) %StudyXY 2 80 1 1)
  if ($StudyF > 0)
   set #x1 %StudyXY[1 1] - 40 + random (100)
   set #y1 %StudyXY[1 2] + 5 + random (10)
   wait 500 + random (500)
   left #x1 #y1
   while_not 365, 45 2176330 and 590, 265 12904700
    wait 10
   end_while
  else
   set $NotStudied 1
   wait 500 + random (500)
   send {Escape}
   wait 500 + random (500)
   left #ExclusionX #ExclusionY
   wait 500
   if_not 280, 370 12368986
    wait 500 + random (500)
    left #ExclusionX #ExclusionY
   end_if
   while_not 85, 350 81199 and 385, 275 11855103
    wait 10
   end_while
  end_if
  return
 end_while

:DiSe

 while 1 = 1
  wait 10
  if_not 85, 350 81199 and 385, 275 11855103
   return
  end_if
  for #DiSeN 1 2
   set $DiSeF findimage (230, 230 500, 420 (%DiSeA[#DiSeN]) %DiSeXY 2 80 1 1)
   if ($DiSeF > 0)
    set #x1 %DiSeXY[1 1] + 10 + random (80)
    set #y1 %DiSeXY[1 2] + 2 + random (8)
    set $DeCoF 0
    set $NotStudied 0
    if (#DiSeN = 1)
     set #Unite 1
    end_if
    if (#DiSeN = 2)
     set #Exit 1
    end_if
    wait 500 + random (500)
    left #x1 #y1
    while_not 365, 45 2176330 and 590, 265 12904700
     wait 10
    end_while
    break
   end_if
  end_for
  if ($DiSeF > 0)
   return
  end_if
 end_while

:Confirmation

 while 1 = 1
  wait 10
  if_not 365, 45 2176330 and 590, 265 12904700
   return
  end_if
  for #ConfirmationN 1 3
   set $ConfirmationF findimage (340, 250 640, 450 (%ConfirmationA[#ConfirmationN]) %ConfirmationXY 2 80 1 1)
   if ($ConfirmationF > 0)
    set #x1 %ConfirmationXY[1 1] - 45 + random (110)
    set #y1 %ConfirmationXY[1 2] + 5 + random (10)
    if (#ConfirmationN = 1)
     set #Unite 1
    end_if
    if (#ConfirmationN > 1)
     set #Exit 1
    end_if
    wait 500 + random (500)
    left #x1 #y1
    while 285, 315 1715023 or 285, 315 1716563
     wait 10
    end_while
    while_not 285, 315 1715023 or 285, 315 1716563
     wait 10
    end_while
    break
   end_if
  end_for
  if ($ConfirmationF > 0)
   return
  end_if
 end_while

:Unite

 while 1 = 1
  wait 10
  if_not 285, 315 1715023 or 285, 315 1716563
   return
  end_if
  if_not #EmptySlotX, #EmptySlotY 2508390
   for #UniteN 1 4
    set $UniteF findimage (330, 450 630, 580 (%UniteA[#UniteN]) %UniteXY 2 80 2 1)
    if ($UniteF = 2)
     set #x1 %UniteXY[1 1] + random (20)
     set #y1 %UniteXY[1 2] + random (20)
     set #Unite 0
     wait 500 + random (500)
     left #x1 #y1
     while_not 420, 500 11855103 or 470, 500 11855103 or 520, 500 11855103
      wait 10
     end_while
     break
    end_if
   end_for
   if ($UniteF != 2)
    set #Exit 1
   end_if
   return
  end_if
 end_while

:UniteYes

 while 1 = 1
  wait 10
  if_not 420, 500 11855103 or 470, 500 11855103 or 520, 500 11855103
   return
  end_if
  set $UniteYesF findimage (330, 430 680, 630 ($Unite) %UniteYesXY 2 80 1 1)
  if ($UniteYesF > 0)
   set #x1 %UniteYesXY[1 1] + 10 + random (80)
   set #y1 %UniteYesXY[1 2] + 2 + random (8)
   wait 500 + random (500)
   left #x1 #y1
   while 420, 500 11855103 or 470, 500 11855103 or 520, 500 11855103
    wait 10
   end_while
   return
  end_if
 end_while

:Exit

 while 1 = 1
  wait 10
  set $ExitF findimage (230, 300 500, 420 ($Exit) %ExitXY 2 80 1 1)
  if ($ExitF > 0)
   set #Exit 0
   set $UniteYesF 0
   set #x1 %ExitXY[1 1] - 20 + random (60)
   set #y1 %ExitXY[1 2] + 5 + random (10)
   wait 500 + random (500)
   left #x1 #y1
  end_if
  while_not 127, 145 4578815
   wait 10
  end_while
  return
 end_while

[DarkMaster]

Комменты в код, комменты. Иначе потом запустить скрипт будет просто не возможно. Как только он споткнется по каким-либо причинам - нужно будет править, а править тут крайне тяжело.

[Ph3nix]

Комменты в код, комменты. Иначе потом запустить скрипт будет просто не возможно. Как только он споткнется по каким-либо причинам - нужно будет править, а править тут крайне тяжело.

Я помню ваш совет!!! (IMG:style_emoticons/default/smile.gif) Просто пока не закончил его, лень комментировать, сам помню, что за что отвечает! Так что, как только, так сразу!!!

[Triniti]

Ph3nix, честно говоря немного удивился, что при таком кол-ве картинок столько условий на проверку цвета в точках (IMG:style_emoticons/default/ohmy.gif)
Про комментарии уже сказали..
А, вот, если привязка к флешу, то там разрешение роли не играет, т.к. контейнер с игрой всегда 730х800.

[Ph3nix]

Ph3nix, честно говоря немного удивился, что при таком кол-ве картинок столько условий на проверку цвета в точках (IMG:style_emoticons/default/ohmy.gif)
Про комментарии уже сказали..
А, вот, если привязка к флешу, то там разрешение роли не играет, т.к. контейнер с игрой всегда 730х800.

Игра лагает, приходиться под неё подстраиваться. Пока так, а там посмотрим! (IMG:style_emoticons/default/smile.gif) А про привязку, буду знать, спасибо!

[Морзянка]

всем привет. Помогите научиться писать скрипт, хочу попробовать написать нападение через чат

[DarkMaster]

пробуйте, начинайте, пишите - поможем.
Из базовой информации можно почитать тут: https://forum.uokit.com/index.php?showtopic=20548

[dimоn]

всем привет. Помогите научиться писать скрипт, хочу попробовать написать нападение через чат

все тоже самое)))
если брать за основу эти варианты скриптов, то, в пилоте открываетя 4 вкладки, первая, на поиск и нападение, после того, как персонаж напал, запуск 2-3, это уже на сам бой, как раз, то, что можно скопипастить отсюда.
И по завершении боя, уходит на 4 вкладку, уже с разбором дропа. либо можно ее совместить с первой.

[dimоn]

Всех приветствую
На днях слегка тряханул бота.
По многочисленным просьбам, даже подписал... (IMG:style_emoticons/default/biggrin.gif)
Выкладываю последнюю версию + пикчи к нему

1.бой

Исходный код

set #h workwindow
set workwindow #h

:boy
set $vy findimage (1109, 417 1273, 559 (\proigrysh.bmp)%vy 2 50 1 10)
set $pr findimage (607, 414 802, 565 (\proigrysh.bmp)%pr 2 50 1 10)
while_not ($pr > 0) or ($vy > 0)
//proigrysh? //proigrysh

set $d 0
while_not ($d > 0) //ярлычок хода

wait 500

set $z findimage (1004, 118 1354, 477 (\zakryt.bmp)%vyk 2 0 1 5) //krest okna


.
end_if
set $rzr findimage (745, 307 1175, 531 (\rzrb.bmp)%p 2 50 50 5)//razryv
set $pr findimage (577, 561 1092, 874 (\profy.bmp)%p 2 70 50 5)//profraboty
set $lb findimage (1092, 710 1434, 871 (\label.bmp)%lb 2 50 50 5)//profraboty
if $pr > 0 or $lb > 0 or $rzr > 0

left 76, 43 abs // reload
wait 15000
end_if


set $vy findimage (1109, 417 1273, 559 (\proigrysh.bmp)%vy 2 50 1 10)
set $pr findimage (607, 414 802, 565 (\proigrysh.bmp)%pr 2 50 1 10)
set $kanc findimage (620, 170 858, 383 (\kanc.bmp)%kanc 2 50 80 15)
if ($pr > 0) or ($kanc > 0) or ($vy > 0)
gosub boy_okonchen
end_if
set $d findimage (716, 156 920, 380 (\ход.bmp)%p 2 90 1 5)
end_while
// osnovnaya chast`



gosub kult

set $kv findimage (598, 548 968, 760 (\квадрат.bmp)%pkv 2 90 1 5) //ищет горящие квадрат и крест
set $kr findimage (598, 548 968, 760 (\крест.bmp)%pkr 2 90 1 5)

if ($kv > 0 ) or ($kr > 0 ) //если не использован
if $kv > 0
gosub kvadrat
goto boy
end_if
if $kr > 0
gosub krest
goto boy
end_if
else //если использовано и то и то, запуск скрипта поиска хода по стрелкам

start_script 2
stop_script
end_if
end_if
else

end_if

end_while
start_script 3
end_script
:kvadrat
set #xkv %pkv[1 1] + random (25)
set #ykv %pkv[1 2] + random (25)
left #xkv #ykv
wait 1000 + random (2500)
set #x 841 + random (210)
set #y 263 + random (200)
left #x #y //рандомный диапазон поля
return
:krest
set #xkr %pkr[1 1] + random (25)
set #ykr %pkr[1 2] + random (25)
left #xkr #ykr
wait 1000 + random (2500)
set #x 841 + random (210)
set #y 263 + random (200)
left #x #y
return
:kult
set $pl findimage (536, 445 1066, 979 (\plunut.bmp)%pl 2 90 50 15) //культовые
if ($pl > 2)
set #x %pl[1 1] + random (25)
set #y %pl[1 2] + random (25)
left #x #y
end_if

set $pe findimage (536, 445 1066, 979 (\pechat.bmp)%pe 2 90 70 15)
if ($pe > 2)
set #x %pe[1 1] + random (25)
set #y %pe[1 2] + random (25)
left #x #y
end_if

set $uk findimage (536, 445 1066, 979 (\ukus.bmp)%uk 2 90 30 15)
if ($uk > 2)
set #x %uk[1 1] + random (25)
set #y %uk[1 2] + random (25)
left #x #y
end_if
return
:boy_okonchen
if ($pr > 0) or (679, 341 918036 ) or (723, 462 2365464 ) //proigrych
set $new findimage (1099, 490 1275, 601 (\new.bmp)%new 2 50 50 5)
set #x %new[1 1] + random (50)
set #y %new[1 2] + 5 + random (10)
left #x #y
return
end_if

if $kanc > 0 or 721, 228 11796222 //neb kanc
set #x 955 + random (50)
set #y 480 + random (30)
left #x #y
wait 800 + random (300)
set #x 1100 + random (30)
set #y 560 + random (20)
left #x #y //новая арена
return
end_if

start_script 12

stop_script

2.ход

Исходный код

set #h workwindow
set workwindow #h

while_not ((#x1 > 0) and (#y1 > 0)) or ($g = 0)

printscreen 1 0 0 0 0 c:\client window.bmp //скрин экрана
set $v findimage (797, 148 1095, 434 (\verkh.bmp)%up (c:\client window.bmp) 80 30 5) //поиск на сделаном скрине
set $l findimage (797, 148 1095, 434 (\levo.bmp)%lv (c:\client window.bmp) 80 30 5)
set $g findimage (813, 94 923, 165 (\ход.bmp)%p (c:\client window.bmp) 90 1 5)

if ($v > 0)
if_not ($l > 0)
if $v > 0
set #x1 %up[1 1] + random (15)
set #y1 %up[1 2] + random (15)
set #x2 %up[1 1] + random (15)
set #y2 %up[1 2] + 40 + random (15)
end_if
end_if
end_if


if ($l > 0)
if_not ($v > 0)
if $l > 0
set #x1 %lv[1 1] + random (15)
set #y1 %lv[1 2] + random (15)
set #x2 %lv[1 1] + 40 + random (15)
set #y2 %lv[1 2] + random (15)
end_if
end_if
end_if


//set $kv findimage (598, 548 968, 710 (\квадрат.bmp)%p (c:\client window.bmp) 90 1 5)
//set $kr findimage (598, 548 968, 710 (\крест.bmp)%p (c:\client window.bmp) 90 1 5)

end_while

if (#x1 > 0)
wait 500
left #x1 #y1
wait 500 + random (500)
left #x2 #y2
left #x2 #y2
wait 1500
end_if

start_script 1
stop_script

 Uo_.zip ( 82,68 килобайт ) Кол-во скачиваний: 276

[veiron]

set $l findimage (797, 224 1114, 541 (\levo.bmp)%lv (c:\client window.bmp) 80 30 5)

А что это за конструкция такая хитрая и что она делает?