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

[dimоn]

Добрался, наконец-то, все никак руки не доходили...
В общем, появилось немного свободного времени, задался вопросом написания бота, самого обычного, для поиска, выноса мобов и разбора...
Пошарил поиск, видел несколько незаконченных тем, но решил создать новую, потому что работает немного по другой структуре.
Хотелось бы выразить благодарность DarkMaster'у Все-таки, не каждый человек, будет сидеть на каком-то форуме, что бы помочь народу с написанием какой-то, нужной им, лабуды, с целью их умственного развития...
Честно скажу, времени ушло много, но в основном это зависело от наличия свободного и в тот или иной момент, желания.

Не обошлось и без блок-схемы.
Только так смог собрать все посещающие голову мысли в единое целое.

(IMG:http://clip2net.com/clip/m359722/2d2fd-clip-82kb.jpg)

Итак, значит бот построен по следующей структуре:


(IMG:http://clip2net.com/clip/m359722/3c33e-clip-25kb.jpg)

Блок поиска и нападения - это все индивидуально, в зависимости от хар-к и направленности.
Блок дропа, соответственно, от блока поиска, то есть от задач.
Хотелось бы разобрать блок боя.

Основными задачами были возможность самостоятельной безконтрольной игры, ну и, конечно же, не засветиться с ботом, то есть, к минимуму свести холостые и однотипные"тыки" ...

Исходный код

set #h workwindow
set workwindow #h
:boy
while_not (1147, 456 72864) or (1154, 454 778406)


while_not 840, 204 936748

wait 2000
if 1190, 474 2249471
goto boy_okonchen
end_if
end_while

if 658, 214 16763649

if (731, 612 16777215 ) or ( 782, 612 16711665 )
if 731, 612 16777215

left 728, 615
wait 1000 + random (2500)
set #x 841 + random (210)
set #y 263 + random (200)
left #x #y
goto boy
end_if
if 782, 612 16711665

left 784, 613
wait 1000 + random (2500)
set #x 841 + random (210)
set #y 263 + random (200)
left #x #y
goto boy
end_if
else
if_not (733, 607 15592941) and ( 787, 615 8928750)
start_script 2
stop_script
end_if
end_if
else
if 989, 616 7484429

wait 1000
left 1007, 616
wait 1000
left 919, 644
wait 1000
else
start_script 2
stop_script
end_if


end_if


end_while
:boy_okonchen

If 1175, 455 92751


left 964, 516
wait 3500
left 788, 515
wait 1500
left 1000, 530
wait 1000
goto boy
end_if


start_script 3
pause_script
resume_script 0

stop_script

На момент написания отдельных элементов стоял образ архангела, поэтому, чтобы не переделывать, в конечной версии осталось так же.

Следующей задачей был алгоритм хода, на случай, если ни квадрата, ни креста нет.
На самом деле, не придумал ничего проще, чем сходить по подсказке...

Исходный код

// (межстрочный интервал 10)
set #h workwindow
set workwindow #h

while_not #x1 > 0

set $l findimage (792, 210 1094, 517 (\image\стрелки\лево.bmp)%lv 2 20 1 5)
if ($l > 0)
set #x1 %lv[1 1]
set #y1 %lv[1 2]
set #x2 #x1 + 40
set #y2 #y1
end_if

set $v findimage (792, 210 1094, 517 (\image\стрелки\верх.bmp)%up 2 21 1 5)
if ($v > 0)
set #x1 %up[1 1]
set #y1 %up[1 2]
set #x2 #x1
set #y2 #y1 + 40
end_if
if_not 840, 204 936748
goto end
end_if
end_while

wait 1000
left #x1 #y1
wait 1000 + random (1500)
left #x2 #y2
left #x2 #y2
wait 1500

:end

start_script 1
stop_script

 лево.bmp ( 3,33 килобайт ) Кол-во скачиваний: 8435
 верх.bmp ( 2,27 килобайт ) Кол-во скачиваний: 8083


Долго мучался со стрелками, их вращением и считыванием именно той, которой нужно.
Так вроде работает.
Скрипт_0 - поиск, нападение, 1 - бой, 2 - ход, 3 - дроп, разбор, с него уходим "resume_script 1"

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

Так же, выкладываю все на безвозмездной основе, попытки продать, как бота - это, как минимум свинство и того не стоит.

Что не понравилось, с сохранением у пилота, какая-то беда, и в настройках указал, сохранять при выходе: то, писал что-то, возьмет, не сохранит, то возьмет заменит чем-нибудь.. В общем беда.
Так же не понравилось и добавило объема - в пилоте, почему то, нет ф-ции отрицания... т.е. есть if_not, while_not, но нет not_and, not_or и пр. а это дополнительные проверки...
По крайней мере не нашел ни описания, к ним, ни синтаксиса.

[Triniti]

Всем утро/день/вечер/другое (нужное подчеркнуть) (IMG:style_emoticons/default/blink.gif)
Собсна тема всё ещё актуальна, и хотелось бы увидеть варианты упрощения сего скрипта:

Код

move 607, 437 abs // окно игра справа    
set #win windowfromcursor
set workwindow #win 
set #t 200 + random (400) // быстрый клик
set #w 2200 + random (800) // переход
set #d 4000 + random (800) // дракон
set #o 600 + random (500) // клик
set #q 1300 + random (400) // сбор

set $path C:\острова\
// мобы
set %mobs[1] глад
set %mobs[2] джига
set %mobs[3] курл
set %mobs[4] матаз

// кнопки
set %button[1] напасть
set %button[2] обед
set %button[3] продать
set %button[4] отдать
set %button[4] забрать

// элики (исп-ся в этом порядке)
set %elik[1] култ
set %elik[2] зелмана
set %elik[3] вино
set %elik[4] крест
set %elik[5] молния
set %elik[6] наручи
set %elik[7] куб

// остальное
set %etc[1] ход
set %etc[2] ворота
set %etc[3] победа

set #koll 0 // убито мобов  
GOTO poisk

:select
move 607, 437 abs // мышь на игру
set #win windowfromcursor
set workwindow #win
set #koll 0 // убито после обновления
set $ostrov findimage (0 0 320 490 ($path%etc[2].bmp) %crds workwindow)
if $ostrov > 0 // ворота найдены
wait #w
else
wait #d
end_if

:poisk // мобы
// в цикле ищем любого моба из списка
for #mob 1 size(%mobs)
 set $mob findimage (0 0 200 600 ($path%mobs[#mob].bmp) %crds workwindow)
 if $mob > 0
  left %crds[1 1] %crds[1 2] // клик на моба
  wait 400
  GOTO ataka   // атакуем
 end_if
end_for
   GOTO next // идём дальше

:next
left 673, 262 // след остров
wait #w
GOTO poisk // ищем

:ataka
left 89,477
wait #t
set $vboy findimage (0 0 600 420 ($path%button[1].bmp) %crds workwindow)
 if $vboy > 0 // напасть
 left %crds[1 1] %crds[1 2]
   else
   wait 100
   GOTO ataka // пробуем снова
 end_if
 

set #time 0
while #time < 30 
:xod // ждём переход хода к нам
set $xod findimage (0 0 400 130 ($path%etc[1].bmp) %crds workwindow)
 if $xod > 0
 gosub bitva // если ход наш, атакуем
    else
    wait 1000
    set #time #time + 1
    hint ([42] (ждём #time с))
      if #time = 30 // если зависло
      alarm
      alarm
      GOTO reboot  // обновляемся
      end_if
    GOTO xod
 end_if
end_while  
    
:bitva
wait 150
// в цикле ищем любой доступный закл
for #zakl 1 size(%elik)
 set $elik findimage (0 0 710 600 ($path%elik[#zakl].bmp) %crds workwindow)
 if $elik > 0
  left %crds[1 1] %crds[1 2] // элик
  wait 400
 if %elik[#zakl ] = крест            
                  Call Rand
            end_if
            
 if %elik[#zakl ] = куб          
                  Call Rand
            end_if
 end_if
end_for

Proc Rand
     :Rand
     set $rand Random(10)

     if $rand < 1
        Goto Rand
     end_if

     set %r[1] 304, 148 //1.2 
     set %r[2] 432, 357 //5.6 
     set %r[3] 461, 262 //6.4
     set %r[4] 348, 228 //3.3
     set %r[5] 341, 307 //3.5
     set %r[6] 343, 354 //3.6
     set %r[7] 426, 267 //5.4  
     set %r[8] 299, 272 //2.4  
     set %r[9] 345, 266 //3.4
     set %r[10] 383, 347 //4.6
     
     left %r[$rand]
     wait 10s // после удара фигурой ждём 10 сек

End_Proc

set $trof findimage (0 0 500 400 ($path%etc[3].bmp) %crds workwindow)
if $trof > 0 // поле пропало
 GOTO drop_okno
else
GOTO xod // повторяем ход
end_if
 
:drop_okno // ждём пока поле пропадёт
set #time 0
while #time < 30
 set #trof findimage (0 0 500 400 ($path%etc[3].bmp) %crds workwindow)
 if #trof > 0 // поле пропало
 GOTO drop_sbor
 else
  wait 200
  set #time #time + 1
  hint ([42] (#time))
    if #time = 40  
    alarm
    alarm
    GOTO reboot // обновляемся
    end_if
 end_if
end_while 
 
:drop_sbor
wait #q
// тут если надо собираем дроп, иначе продаём
GOTO prodat


:prodat
wait #t
left 330, 379 // продать всё
wait #o
 set $proda findimage (0 0 670 680 ($path%button[3].bmp) %crds workwindow)
 if $proda > 0
 left %crds[1 1] %crds[1 2] // продать
 else
   set $otdat findimage (0 0 670 680 ($path%button[4].bmp) %crds workwindow)
   if $otdat > 0
   left %crds[1 1] %crds[1 2] // отдать
   end_if
 end_if
wait #w
left 414, 382 // выйти 
wait #o

:end_attack // после манипуляций с дропом
set #koll #koll + 1 
hint ([42] (убито #koll)) // убито
 if #koll > 50
  GOTO reboot
   else
   GOTO next
 end_if

:reboot // перезагрузка страницы
left 1682, 68 abs
wait 20s
GOTO select

Исходные картинки здесь (drive.google)
Запутался всё читать, потому спрошу так: решен ли вопрос с движением камней на поле для завершения хода?
И совсем странный вопрос: каковы могут быть причины неработоспособности скрипта? На виртуальной машине (Win XP) работает корректно, на реальном ПК (Win 8.1 pro VL) отказывается искать картинки в plugin-container'e, хотя у других работает (но тоже не у всех). Flash при этом у всех последний, браузеры FF/Seamonkey.

[dimоn]

Всем утро/день/вечер/другое (нужное подчеркнуть) (IMG:style_emoticons/default/blink.gif)

Запутался всё читать, потому спрошу так: решен ли вопрос с движением камней на поле для завершения хода?

В смысле, с движением стрелок?
Да, работает пратически безотказно, изредка дает осечки, по неопознанным причинам..(предположительно, рандом диапазона координаты клика поподает между клетками игрового поля.)

Код

set #h workwindow     
set workwindow #h   
 
  while_not ((((($V > 0) or ($v1 > 0)) xor (($l > 0)) or ($l1 > 0))) and (#x1 > 0)) or  ($kv > 0) or ($kr > 0) or ($d <= 0) or ($g = 0)  
  
printscreen 1 0 0 0 0 c:\client window.bmp
set $v findimage (792, 210 1094, 517 (\verkh.bmp)%up (c:\client window.bmp) 80 30 5) 
set $l findimage (792, 210 1094, 517 (\levo.bmp)%lv (c:\client window.bmp) 80 30 5)
set $g findimage (716, 156 920, 330 (\ход.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 $d findimage (716, 156 920, 330    (\ход.bmp)%p 2 90 1 5) 
 set $kv findimage (598, 548 968, 710     (\квадрат.bmp)%p 2 90 1 5)  
 set $kr findimage (598, 548 968, 710     (\крест.bmp)%p 2 90 1 5)   
 
 end_while
  
  if (#x1 > 0) 
     wait 1000
     left #x1 #y1
     wait 1000  + random (1000)
     left #x2 #y2
     left #x2 #y2
     wait 1500
   end_if 
 
 start_script 1      
 stop_script

Используемые скрины для поиска.
 Uo.zip ( 12,31 килобайт ) Кол-во скачиваний: 557

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

И совсем странный вопрос: каковы могут быть причины неработоспособности скрипта? На виртуальной машине (Win XP) работает корректно, на реальном ПК (Win 8.1 pro VL) отказывается искать картинки в plugin-container'e, хотя у других работает (но тоже не у всех). Flash при этом у всех последний, браузеры FF/Seamonkey.

А на лог возможно взглянуть? //к налоговой инспекции отношения не имею (IMG:style_emoticons/default/laugh.gif)
На вскидку, могу предположить, что причина состоит в версии по и plugin-container в 8.1проВЛ находится в другом месте (т.е. другой путь обращения).
Точнее сказать не могу - у самого 10-ка.