// Tarask1n script v0.94 18/09/2011
// based on MegaBot (c)
set #offsetx 0
set #offsety 2
//gosub findoffsetx
gosub findrod
gosub changepreferences
//
:start
goSub proverki
goSub zabros
if #type = 1
goSub rod
else
goSub spinning
end_if
goSub zakrivanija
goto start
//
//??? ?????????? ????????????
//
:zabros
left #bigbuttonx, #bigbuttony
wait 1s
get color #indikdot #indikdotx, #indikdoty
get color #vibra2dot #vibra2dotx, #vibra2doty
return
//
:spinning
while #staticdotx, #staticdoty #staticdot
if_not #vibra2dotx, #vibra2doty #vibra2dot
wait 1
left #bigbuttonx, #bigbuttony
goSub viuzivanie
else
wait 1
left_down #bigbuttonx, #bigbuttony
wait 150
left_up #bigbuttonx, #bigbuttony
end_if
end_while
return
//
:rod
set #varx #vibradotx - 5
set #vary #vibradoty + 50
while_not #varx, #vibradoty #vibradot or #varx > 300
if_not #varx, #vary #vibradot
set #varx #varx + 1
else
set #vibradoty #vibradoty + 50
end_if
end_while
while #staticdotx, #staticdoty #staticdot
if_not #varx, #vibradoty #vibradot
set #varx #varx - 1
if_not #varx, #vibradoty #vibradot
set #varx #varx + 2
if_not #varx, #vibradoty #vibradot
wait 10
left #bigbuttonx, #bigbuttony
goSub viuzivanie
end_if
end_if
end_if
end_while
return
//
:viuzivanie
while #staticdotx, #staticdoty #staticdot
if_not #indikdotx, #indikdoty #indikdot
left_up #bigbuttonx, #bigbuttony
else
left_down #bigbuttonx, #bigbuttony
end_if
end_while
return
//
:zakrivanija
while_not #staticdotx, #staticdoty #staticdot
wait 1s
left #lvlx, #lvly
left #recx, #recy
left #ratx, #raty
left #fisx, #fisy
left #errx, #erry
left 434, 146
wait 200
left 469, 189
wait 200
end_while
wait 1s
if_not #stati2dotx, #stati2doty #stati2dot
left #lvlx, #lvly
left #recx, #recy
left #ratx, #raty
left #fisx, #fisy
left #errx, #erry
end_if
wait 1s
return
//
roverki
if #icon4x, #icon4y #icon4no
end_script
end_if
if_not #staticdotx, #staticdoty #staticdot
end_script
end_if
return
//
:changepreferences
if #rod = 120 //??? ?????? ?? 120 ??
set #vibradotx #offsetx + 261
set #vibradoty #offsety + 310
set #vibradot 2677503
end_if
if #rod = 50 //??? ?????? ?? 50 ??
set #vibradotx #offsetx + 227
set #vibradoty #offsety + 290
set #vibradot 65331
end_if
if #rod = 25 //??? ?????? ?? 25 ??
set #vibradotx #offsetx + 284
set #vibradoty #offsety + 279
set #vibradot 52479
end_if
if #rod = 9 //??? ?????? ?? 9 ??
set #vibradotx #offsetx + 245
set #vibradoty #offsety + 311
set #vibradot 33023
end_if
if #rod = 3 //??? ?????? ?? 3 ??
set #vibradotx #offsetx + 252
set #vibradoty #offsety + 317
set #vibradot 52479
end_if
if #rod = 1 //??? ?????? ?? 1 ??
set #vibradotx #offsetx + 243
set #vibradoty #offsety + 310
set #vibradot 255
end_if
if #rod = 12 //??? ?????? ?? 1/2 ??
set #vibradotx #offsetx + 245
set #vibradoty #offsety + 316
set #vibradot 16777215
end_if
set #bigbuttonx #offsetx + 498
set #bigbuttony #offsety + 327
set #staticdotx #offsetx + 546
set #staticdoty #offsety + 6
set #indikdotx #offsetx + 305
set #indikdoty #offsety + 504
set #icon4x #offsetx + 192
set #icon4y #offsety + 521
set #icon4no 1911855
set #stati2dotx #offsetx + 390
set #stati2doty #offsety + 273
set #vibra2dotx #offsetx + 250
set #vibra2doty #offsety + 504
get color #staticdot #staticdotx, #staticdoty
get color #stati2dot #stati2dotx, #stati2doty
set #lvlx #offsetx + 469 //??????? ???? ? ????? ???????
set #lvly #offsety + 174
set #recx #offsetx + 405 //??????? ???? ? ????? ????????
set #recy #offsety + 185
set #ratx #offsetx + 409 //??????? ???? ? ?????????
set #raty #offsety + 162
set #fisx #offsetx + 431 //??????? ???? ? ???????? ?????
set #fisy #offsety + 174
set #errx #offsetx + 480 //??????? ???? ???? ???? ?? ???????, ?????????
set #erry #offsety + 297
return
//
//
//
:findrod
set #type 2
set #vibradotx #offsetx + 0
set #vibradoty #offsety + 0
set #vibradot 0
set #tempx #offsetx + 40
set #tempy #offsety + 512
if #tempx, #tempy 2765098 //??? ?????? ?? 50 ??
set #rod 50
set #type 1
end_if
set #tempx #offsetx + 30
set #tempy #offsety + 500
if #tempx, #tempy 5065804 //??? ?????? ?? 120 ??
set #rod 120
set #type 1
end_if
set #tempx #offsetx + 28
set #tempy #offsety + 483
if #tempx, #tempy 4079676 //??? ?????? ?? 25 ??
set #rod 25
set #type 1
end_if
set #tempx #offsetx + 56
set #tempy #offsety + 507
if #tempx, #tempy 2959144 //??? ?????? ?? 9 ??
set #rod 9
set #type 1
end_if
set #tempx #offsetx + 50
set #tempy #offsety + 504
if #tempx, #tempy 2440283 //??? ?????? ?? 3 ??
set #rod 3
set #type 1
end_if
set #tempx #offsetx + 51
set #tempy #offsety + 510
if #tempx, #tempy 602498 //??? ?????? ?? 1 ??
set #rod 1
set #type 1
end_if
set #tempx #offsetx + 53
set #tempy #offsety + 509
if #tempx, #tempy 8083784 //??? ?????? ?? 1/2 ??
set #rod 12
set #type 1
end_if
return
//
//
:findoffsetx
if 231, 245 2300909 // ??? ?????????? 800
set #offsetx 201
end_if
if 343, 245 2300909 // ??? ?????????? 1024
set #offsetx 313
end_if
if 471, 245 2300909 // ??? ?????????? 1280
set #offsetx 441
end_if
if 514, 245 2300909 // ??? ?????????? 1366
set #offsetx 484
end_if
if 671, 245 2300909 // ??? ?????????? 1680
set #offsetx 641
end_if
if 791, 245 2300909 // ??? ?????????? 1920
set #offsetx 761
end_if
return