Кукинг.(2)

Предыдущая тема Следующая тема Перейти вниз

Кукинг.(2)

Сообщение  Mazunchik в Сб Май 15, 2010 2:58 am

Услови для коректной работы макроса:
1. стоять возле плавилки или вечного огня
2. желательно НЕ иметь в багпаке сундуков книг магии сумок бочек...
3. Желательно ИМЕТЬ при себе пару к сырых фишстейков и диск с хорошим фильмом в дисководе
Приятного просмотра...


initevents
ignoreitem reset
set %deley 50
set %zur PVJ_CUJ_JBG
set %eda IND ;код полуфабриката
set %deley %deley - 30
set #SYSMSGCOL 55
event sysmessage Спасиба Полишеду..
wait 15
finditem %zur G_3
if #FINDKIND = -1 2
event sysmessage нет огня...
stop
event sysmessage loading.....
set %ogon #FINDID
event macro 8 7
wait 1s
contpos 772 418
wait 1s
set %sum #CONTID
finditem %eda C_ , %sum
if #FINDSTACK = 0 2
event sysmessage а нечего жарить..
stop
event drag #FINDID
wait 10
msg $
wait 10
set %kurs #CONTKIND
click 905 544
wait 1s
start:
ignoreitem reset
finditem %eda C_ , %sum
if #FINDSTACK = 0 2
event sysmessage а нечего жарить..
stop
event sysmessage Щас нажарим #FINDSTACK еды..
event drag #FINDID
wait 5
msg 1
msg $
wait 5
click 860 544
wait 1s
if #CONTKIND = %kurs 2
click 860 544
wait 1s
zur:
finditem %eda C_ , %sum
if #FINDKIND = -1
goto start
if #FINDSTACK > 1 2
ignoreitem #FINDID
goto start
set #LOBJECTID #FINDID
set #LTARGETID %ogon
set #LTARGETKIND 1
event macro 17 0
target 3s
event macro 22 0
wait %deley
if #FINDCNT > 2
wait 30
goto zur
avatar
Mazunchik
Admin

К-ть повідомлень : 91
Очки : 233
Дата регистрации : 2010-05-14
Возраст : 30
Звідки : СССР

Посмотреть профиль http://cccp-rip.ukrainianforum.net

Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения