игра рыбное место - delfcode
Вторник, 06.12.2016, 19:02 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: Marra_Kesh, xXxSh@dowxXx 
delfcode » Обсуждения » Свободное общение » игра рыбное место (помогите)
игра рыбное место
vovanb85Дата: Воскресенье, 12.06.2011, 11:14 | Сообщение # 1
Новичок
Зарегистрирован: 10.06.2011
Группа: Пользователи
Сообщений: 3
Статус: Offline
помогите с написанием скрипта на локацию середина озера а то после обновления старый скрипт не работает
 
dolphinДата: Среда, 15.06.2011, 08:59 | Сообщение # 2
Администратор
Сообщений: 902
Статус: 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, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
delfcode » Обсуждения » Свободное общение » игра рыбное место (помогите)
Страница 1 из 11
Поиск:

delfcode.ru © 2008 - 2016 Хостинг от uCoz