| vovanb85 | Дата: Воскресенье, 12.06.2011, 11:14 | Сообщение # 1 |
Новичок
Зарегистрирован: 10.06.2011
Группа: Пользователи
Сообщений: 3
Статус: Offline
| помогите с написанием скрипта на локацию середина озера а то после обновления старый скрипт не работает
|
| |
| |
| dolphin | Дата: Среда, 15.06.2011, 08:59 | Сообщение # 2 |
Администратор
Сообщений: 906
Статус: Offline
| У меня сейчас вот этот работает, но каждому нужно подстраивать под себя
set #Sx 797
set #Sy 316
get color #Sc #Sx, #Sy
if #Sx, #Sy #Sc
end_if
Start
left 897, 575
wait 2500
//
//
Poplavok
while #Sx, #Sy #Sc
if 643, 555 2677503
goto Poplavok
else
left 897, 575
goto Loviti
end_if
end_while
//
//
Okna
while_not #Sx, #SY #Sc
left 870, 535 //sorvalas
wait 200
left 809, 416 //popalas
wait 200
left 799, 427
wait 200
left 799, 585
wait 200
end_while
goto Start
//
//
Loviti
while #Sx, #Sy #Sc
if_not 701, 767 1303786
left_down 998,676
left_down 997, 675
else 699, 766 1303530
left_up 998,676
goto Loviti
end_if
end_while
goto Okna
Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
| |
