Суббота, 28.11.2020, 22:20 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Marra_Kesh, xXxSh@dowxXx  
delphicode » Обсуждения » Свободное общение » рыбное место в одноклассниках (не работает скрипт после обновления игры)
рыбное место в одноклассниках
vovanb85Дата: Пятница, 10.06.2011, 13:09 | Сообщение # 1
Новичок
Зарегистрирован: 10.06.2011
Группа: Пользователи
Сообщений: 3
Статус: Offline
Всем привет у меня проблема вчера обновилась игра рыбное место на одноклассниках, теперь не работает скрипт, помогите решить проблему. заранее спасибо
 
dolphinДата: Суббота, 11.06.2011, 11:21 | Сообщение # 2
Администратор
Сообщений: 906
Статус: Offline
Если пилот, то просто точки обновите )))

Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
vovanb85Дата: Суббота, 11.06.2011, 16:15 | Сообщение # 3
Новичок
Зарегистрирован: 10.06.2011
Группа: Пользователи
Сообщений: 3
Статус: Offline
спасибо и понял как обновить все точки кроме тех которые связаны с цветом,
вот этот скрипт

gosub findrod
gosub changepreferences
//
:start
goSub proverki
goSub zabros
if #type = 1
goSub rod
else
goSub spinning
end_if
goSub zakrivanija
goto start
//
//Тут начинаются подпрограммы
//
:zabros
move %bb [2]
left %bb [2]
wait 2500
return
//
:spinning
while #staticdotx #staticdoty #staticdot
left_up %bb [2]
if_not #vibra2dotx #vibra2doty #vibra2dot
goSub viuzivanie
else
left_down %bb [2]
end_if
end_while
return
//
:rod
while #staticdotx #staticdoty #staticdot
if_not #vibradotx #vibradoty #vibradot
goSub viuzivanie
end_if
end_while
return
//
:viuzivanie
while #staticdotx #staticdoty #staticdot
if #indikdotx #indikdoty #indikdot
left_down %bb [2]
else
left_up %bb [2]
end_if
end_while
return
//
:zakrivanija
while_not #staticdotx #staticdoty #staticdot
wait 1000
send {Escape}
end_while
repeat 5
send {Escape}
end_repeat
return
//
:proverki
if #icon4x, #icon4y #icon4no
end_script
end_if
if_not #staticdotx #staticdoty #staticdot
end_script
end_if
return
//
:changepreferences
if #rod = 121 //для удочки на 120 кг
set #vibradotx 250
set #vibradoty 402
set #vibradot 2677503
end_if
if #rod = 120 //для спиннинга на 120 кг
set #vibradotx 258
set #vibradoty 308
get color #vibradot #vibradotx, #vibradoty
end_if
if #rod = 80 //для спиннинга на 80 кг
set #vibradotx 300
set #vibradoty 318
get color #vibradot #vibradotx, #vibradoty
end_if
if #rod = 50 //для удочки на 50 кг
set #vibradotx 229
set #vibradoty 381
set #vibradot 246869
end_if
if #rod = 35 //для спиннинга на 35 кг
set #vibradotx 300
set #vibradoty 318
get color #vibradot #vibradotx, #vibradoty
end_if
if #rod = 25 //для удочки на 25 кг
set #vibradotx 276
set #vibradoty 370
set #vibradot 52479
end_if
if #rod = 15 //для спиннинга на 15 кг
set #vibradotx 266
set #vibradoty 334
get color #vibradot #vibradotx, #vibradoty
end_if
if #rod = 9 //для удочки на 9 кг
set #vibradotx 245
set #vibradoty 400
set #vibradot 33023
end_if
if #rod = 5 //для спиннинга на 5 кг
set #vibradotx 259
set #vibradoty 321
get color #vibradot #vibradotx, #vibradoty
end_if
if #rod = 3 //для удочки на 3 кг
set #vibradotx 252
set #vibradoty 404
set #vibradot 131797
end_if
if #rod = 1 //для удочки на 1 кг
set #vibradotx 243
set #vibradoty 399
set #vibradot 255
end_if
if #rod = 12 //для удочки на 1/2 кг
set #vibradotx 245
set #vibradoty 405
set #vibradot 16777215
end_if
set %bb [2] 498 414
set #staticdotx 546
set #staticdoty 475
set #indikdotx 297
set #indikdoty 608
set #icon4x 192
set #icon4y 608
set #icon4no 1911855
set #stati2dotx 390
set #stati2doty 360
set #vibra2dotx 250
set #vibra2doty 608
get color #vibra2dot #vibra2dotx, #vibra2doty
get color #staticdot #staticdotx, #staticdoty
get color #stati2dot #stati2dotx, #stati2doty
get color #indikdot #indikdotx, #indikdoty
return
//
//
//
:findrod
if 44, 574 4206120 //для удочки на 120 кг
set #rod 121
set #type 1
end_if
if 48, 586 3303605 //для спиннинга на 120 кг
set #rod 120
set #type 2
end_if
if 27, 579 8562630 //для спиннинга на 80 кг
set #rod 80
set #type 2
end_if
if 40, 599 9416100 //для удочки на 50 кг
set #rod 50
set #type 1
end_if
if 18, 581 11194573 //для спиннинга на 35 кг
set #rod 35
set #type 2
end_if
if 28, 570 3157546 //для удочки на 25 кг
set #rod 25
set #type 1
end_if
if 30, 570 2497821 //для спиннинга на 15 кг
set #rod 15
set #type 2
end_if
if 56, 594 3157292 //для удочки на 9 кг
set #rod 9
set #type 1
end_if
if 19, 568 12567749 //для спиннинга на 5 кг
set #rod 5
set #type 2
end_if
if 50, 591 3757944 //для удочки на 3 кг
set #rod 3
set #type 1
end_if
if 51, 597 1464740 //для удочки на 1 кг
set #rod 1
set #type 1
end_if
if 53, 596 10255204 //для удочки на 1/2 кг
set #rod 12
set #type 1
end_if
return
если можно объясните на примере этого скрипта
 
dolphinДата: Суббота, 11.06.2011, 18:35 | Сообщение # 4
Администратор
Сообщений: 906
Статус: Offline
Читайте хелп для пилота, там всё подробно написано, что касаемо вашего вопроса, то при нажатии ctl a пилот выдаёт координаты и цвет этой точки, это всё что нужно.

Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

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

delphicode.ru © 2008 - 2020 Хостинг от uCoz