|
|
|
Игровой бот Небеса: уникальная игра! |
|
|
Triniti |
29.7.2015, 5:50
|
Neophyte
Сообщений: 40
Регистрация: 2.10.2014 Группа: Пользователи Наличность: 0
Пользователь №: 17.033
|
DarkMaster, в паинт вставлял ещё когда первый раз написали, находит. Поиск желательно в перекрытом бы. Цитата(dimоn @ 28.7.2015, 20:28) Переустанови браузер с флешами, в конце концов. Или в другом загрузи.
На XP всё работает, у других работает, тот же код в тех же версиях у меня не работает. И в начале я писал, что браузеры\флэш сносил полностью и это результата не дало. Юзаю принципиально только FF/Seamonkey.
|
|
|
|
Triniti |
30.7.2015, 17:53
|
Neophyte
Сообщений: 40
Регистрация: 2.10.2014 Группа: Пользователи Наличность: 0
Пользователь №: 17.033
|
Цитата(DarkMaster @ 29.7.2015, 8:12) К родительскому. На данный момент именно так.
Перед переходом на 10ку короче просто убрал workwindow из типа поиска - заработало. Сейчас на 10ке также без явного указания типа поиска работает, с "2" работает, а с #handle или workwindow - нет. Может проблема в пипоте? И это с привязкой не к родительскому окну, с ним ваще никак не работает ни поиск, ни клики.
|
|
|
|
Triniti |
30.7.2015, 22:55
|
Neophyte
Сообщений: 40
Регистрация: 2.10.2014 Группа: Пользователи Наличность: 0
Пользователь №: 17.033
|
Цитата(DarkMaster @ 30.7.2015, 23:25) Это разные методы снятия изображения. Совсем разные. Совсем разные коррекции положения окон. Там все разное на этапе забора изображения, расчета смещений и т.д. Общего только непосредственно сам алгоритм разбора готового изображения.
При привязке к родительскому необходимо будет сделать поправки на все координаты.
Ну вот я написал, что с 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)
|
|
|
|
Triniti |
30.7.2015, 23:15
|
Neophyte
Сообщений: 40
Регистрация: 2.10.2014 Группа: Пользователи Наличность: 0
Пользователь №: 17.033
|
Цитата(DarkMaster @ 31.7.2015, 1:03) В некоторых приложениях путь к окну может меняться. Это бывает не часто, но бывает.
Первое.
Ну, сделал привязку к первому... лефты не работают, поменял на абсы передвинув окно к левой половине экрана (без abs правда, потому что мышку жалко (IMG: style_emoticons/default/sad.gif), знаю что глупо (IMG: style_emoticons/default/biggrin.gif) ), толку 0... findimage так и не заработал (IMG: style_emoticons/default/crazy.gif) ______ P.s. сделал через команду printscreen скрин окна флэша - просто чернота, эм...
|
|
|
|
Triniti |
31.7.2015, 14:19
|
Neophyte
Сообщений: 40
Регистрация: 2.10.2014 Группа: Пользователи Наличность: 0
Пользователь №: 17.033
|
Цитата(DarkMaster @ 31.7.2015, 1:53) Учитывая привязку к другому хендлу, то left и не заработает. Только kleft.
Как-то по-человечьи есть способ заставить его работать (как на ХР)? kleft не тру, да ещё и перекрывать нельзя... почему у других-то можно и не надо к род-му окну привязывать??? (IMG: style_emoticons/default/russian_roulette.gif) (IMG: style_emoticons/default/beg.gif)
|
|
|
|
Ph3nix |
31.7.2015, 20:09
|
Registred
Сообщений: 4
Регистрация: 15.7.2015 Группа: Пользователи Наличность: 0
Пользователь №: 17.539
Возраст: 25
|
Выложу здесь. Может кому пригодится, может кто, до ума доведёт (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
Прикрепленные файлы
Image.rar ( 67,98 килобайт )
Кол-во скачиваний: 264
|
|
|
|
Ph3nix |
31.7.2015, 23:01
|
Registred
Сообщений: 4
Регистрация: 15.7.2015 Группа: Пользователи Наличность: 0
Пользователь №: 17.539
Возраст: 25
|
Цитата(DarkMaster @ 31.7.2015, 22:01) Комменты в код, комменты. Иначе потом запустить скрипт будет просто не возможно. Как только он споткнется по каким-либо причинам - нужно будет править, а править тут крайне тяжело.
Я помню ваш совет!!! (IMG: style_emoticons/default/smile.gif) Просто пока не закончил его, лень комментировать, сам помню, что за что отвечает! Так что, как только, так сразу!!!
|
|
|
|
Triniti |
1.8.2015, 0:53
|
Neophyte
Сообщений: 40
Регистрация: 2.10.2014 Группа: Пользователи Наличность: 0
Пользователь №: 17.033
|
Ph3nix, честно говоря немного удивился, что при таком кол-ве картинок столько условий на проверку цвета в точках (IMG: style_emoticons/default/ohmy.gif) Про комментарии уже сказали.. А, вот, если привязка к флешу, то там разрешение роли не играет, т.к. контейнер с игрой всегда 730х800.
|
|
|
|
Ph3nix |
1.8.2015, 11:07
|
Registred
Сообщений: 4
Регистрация: 15.7.2015 Группа: Пользователи Наличность: 0
Пользователь №: 17.539
Возраст: 25
|
Цитата(Triniti @ 1.8.2015, 0:53) Ph3nix, честно говоря немного удивился, что при таком кол-ве картинок столько условий на проверку цвета в точках (IMG: style_emoticons/default/ohmy.gif) Про комментарии уже сказали.. А, вот, если привязка к флешу, то там разрешение роли не играет, т.к. контейнер с игрой всегда 730х800. Игра лагает, приходиться под неё подстраиваться. Пока так, а там посмотрим! (IMG: style_emoticons/default/smile.gif) А про привязку, буду знать, спасибо!
|
|
|
|
dimоn |
3.3.2016, 13:40
|
Novice
Сообщений: 97
Регистрация: 24.10.2014 Группа: Пользователи Наличность: 0
Пользователь №: 17.079
Возраст: 27
|
Цитата(Морзянка @ 20.2.2016, 10:24) всем привет. Помогите научиться писать скрипт, хочу попробовать написать нападение через чат
все тоже самое))) если брать за основу эти варианты скриптов, то, в пилоте открываетя 4 вкладки, первая, на поиск и нападение, после того, как персонаж напал, запуск 2-3, это уже на сам бой, как раз, то, что можно скопипастить отсюда. И по завершении боя, уходит на 4 вкладку, уже с разбором дропа. либо можно ее совместить с первой.
|
|
|
|
dimоn |
15.3.2016, 1:19
|
Novice
Сообщений: 97
Регистрация: 24.10.2014 Группа: Пользователи Наличность: 0
Пользователь №: 17.079
Возраст: 27
|
Всех приветствую На днях слегка тряханул бота. По многочисленным просьбам, даже подписал... (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
|
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
|