|
///////////////////////////////////////////////
//by Boris kondratev ^_^//
set #vantuz 20 //количество отсосов
set #timesac 0 //задержка сосалки
set #sac 0 //задержка после отсоса
set #time 50 //задержка лопаты
set #z 80 //лкм закопать
set #r 35 //лкм откопать
set #otstup 3 //количество отступов
set #napr 1000 //направление:
//1000 в лево в верх
//1001 в право в верх
//1002 в право в низ
//1003 в лево в низ
set $nadpis 777 //надгробная надпись
set #nazad 0
set $l2 999999
set $l3 999999
set $l4 999999
set $l5 999999
set $l6 999999
set $l7 999999
set $l8 999999
set $l9 999999
set $l10 999999
set $l11 999999
set #12345 2
////////////////////////////////////////////////////
:start
set #1 134
set #2 321
set #g1 131
set #g2 318
set #color 2172998
set #color2 13056
set #dvij 0
set #dvij2 0
set #dvijg 0
set #dvijg2 0
:s
set #dvij #dvij + 1
if #dvij = 14
goto s2
end_if
//move #1,#2
if #1,#2 #color
left #1,#2
goto sac
end_if
:s3
set #1 #1 + 20
set #2 #2 + 13
goto s
:s2
set #1 #1 - 240
set #2 #2 - 182
set #dvij 0
set #dvij2 #dvij2 + 1
if #dvij2 = 14
goto #napr
end_if
goto s
:povtor
set #1 #1 - 20
set #2 #2 - 13
set #dvij #dvij - 1
goto s
////////////////////////////////////////////////////
:sac
wait 1s
left 392,518
wait 500
if 568, 354 593527
wait 500
left 251,53
wait 4s
goto s3
end_if
repeat #vantuz
left 392, 518
end_repeat
wait #sac
if 99, 43 8180556
wait 1s
left 251, 53
wait 1s
goto proverka
else
send {enter}
wait 500
left 251, 53
wait 1s
goto s3
end_if
////////////////////////////////////////////////////
:zakopan
left 247, 56
wait 1s
if #dvijg > 1
goto q3
end_if
if #dvijg = 1
goto q3
end_if
:q
set #dvijg #dvijg + 1
if #dvijg = 8
goto q2
end_if
//move #g1,#g2
if #g1,#g2 #color2
left #g1,#g2
goto proverka2
end_if
:q3
set #g1 #g1 + 40
set #g2 #g2 + 26
goto q
:q2
set #g1 #g1 - 260
set #g2 #g2 - 195
set #dvijg 0
set #dvijg2 #dvijg2 + 1
if #dvijg2 = 14
goto #napr
end_if
goto q
//////////////////////////////////////////////////
:raz
left 256, 500 //откоп
left 367,435
wait 1s
if 615, 356 593527
wait 500
left 251,53
wait 4s
goto q3
end_if
repeat #r
wait #time
left 367, 435
end_repeat
wait 50
if 547, 329 593527
left 251, 57
wait 1s
goto q3
else
left 256, 500
wait 2s
repeat #z
wait #time
left 378, 356
end_repeat
end_if
:pn //надпись
wait 200
kleft 513, 324
wait 50
say +++
wait 1s
send {enter}
wait 200
if 471, 487 10863825
kleft 515, 357 // свернуть венки
wait 200
goto g1
else
goto g2
end_if
:g1
if 138, 406 65961 //проверка голочку
kleft 138, 406
wait 200
kleft 370, 406 //rip
else
kleft 370, 406 //rip
end_if
wait 1s
left 250, 50
wait 1s
goto wqer
:g2
if 139, 452 65961 // проверка галочки
kleft 139, 452
wait 200
kleft 406, 459 // rip
else
kleft 406, 459 // rip
wait 1s
goto wqer
end_if
:wqer
wait 1s
left 250, 52
if_not 196, 41 5184270
goto wqer
end_if
wait 1s
:lok
left 250, 52
////////////////////////////////////////////////////
//ЛЕВО ВЕРХ
:1000
if 337, 110 2172464 or 326, 115 2172464 or 314, 104 2962497 or 322, 109 2172464
set #tupik 0
else
set #tupik 1
end_if
wait 250
if #tupik = 1 //проверка края
repeat #otstup //шаг назад
left 416, 523
wait 100
end_repeat
wait 2s
set #napr 1001
goto #napr
end_if
move 337, 110
wait 100
if 337, 110 5462114
left 337, 110
wait 1s
goto aaaa
end_if
move 326, 115
wait 100
if 326, 115 5462114
left 326, 115
wait 1s
goto aaaa
end_if
move 314, 104
wait 100
if 314, 104 6252147
left 314, 104
wait 1s
goto aaaa
end_if
move 322, 109
wait 100
if 322, 109 5462114
left 322, 109
wait 1s
goto aaaa
end_if
:aaaa
if_not 196, 41 5184270
goto aaaa
else
wait 1s
goto start
end_if
//////////////////////////
//ПРАВО ВЕРХ
:1001
if 414, 116 2172464 or 398, 110 2172464 or 424, 105 2962497 or 408, 109 2172464
set #tupik 0
else
set #tupik 1
end_if
wait 250
if #tupik = 1 //проверка края
repeat #otstup //лево низ шаг назад
left 319, 524
wait 50
end_repeat
wait 2s
set #napr 1002
goto #napr
end_if
move 414, 116
wait 100
if 414, 116 5462114
left 414, 116
wait 1s
goto bbbb
end_if
move 398, 110
wait 100
if 398, 110 5462114
left 398, 110
wait 1s
goto bbbb
end_if
move 424, 105
wait 100
if 424, 105 6252147
left 424, 105
wait 1s
goto bbbb
end_if
move 408, 109
wait 100
if 408, 109 5462114
left 408, 109
wait 1s
goto bbbb
end_if
:bbbb
if_not 196, 41 5184270
goto bbbb
else
wait 1s
goto start
end_if
/////////////////////////
//ПРАВО НИЗ
:1002
move 408, 521
wait 250
if_not 408, 521 5462114 //проверка края
repeat #otstup //лево верх шаг назад
left 319, 107
wait 50
end_repeat
wait 2s
set #napr 1003
goto #napr
else
left 408, 521
wait 1s
end_if
:cccc
if_not 196, 41 5184270
goto cccc
else
wait 1s
goto start
end_if
///////////////////////////
//ЛЕВО НИЗ
:1003
move 323, 518
wait 250
if_not 323, 513 5462114 //проверка края
repeat #otstup //право верх шаг назад
left 419, 108
wait 50
end_repeat
wait 2s
set #napr 1000
goto #napr
else
left 323, 518
end_if
:dddd
if_not 196, 41 5184270
goto dddd
else
wait 1s
goto start
end_if
/////////////////////////////////////////////////
:proverka
set #6 130 //сдесь координаты
set #7 324 //первой точки
set #color2 13056
set #dvij4 0
set #dvij5 0
:s4
set #dvij4 #dvij4 + 1
if #dvij4 = 14
goto s5
end_if
if #6, #7 #color2
move #6, #7
wait 1s
else
goto s6
end_if
If 549, 542 12242386 // если это тапок
goto limit
else
goto 123
end_if
:s6
set #6 #6 + 20
set #7 #7 + 13
goto s4
:s5
set #6 #6 - 240
set #7 #7 - 182
set #dvij4 0
set #dvij5 #dvij5 + 1
if #dvij5 = 14
goto 123
end_if
goto s4
:limit
set #l 2000
move 695, 501
wait 50
kleft 695, 501
wait 50
sendex ^{A}
wait 50
sendex ^{C}
kleft 613, 500
get clipboard $l
goto #12345
:2
if $l = $l2 or $l = $l3 or $l = $l4 or $l = $l5 or $l = $l6 or $l = $l7 or $l = $l8 or $l = $l9 or $l = $l10 or $l = $l11
goto s6
else
get clipboard $l2
end_if
set #12345 #12345 + 1
if #12345 = 12
set #12345 2
end_if
goto 20
:3
if $l = $l2 or $l = $l3 or $l = $l4 or $l = $l5 or $l = $l6 or $l = $l7 or $l = $l8 or $l = $l9 or $l = $l10 or $l = $l11
goto s6
else
get clipboard $l3
end_if
set #12345 #12345 + 1
if #12345 = 12
set #12345 2
end_if
goto 20
:4
if $l = $l2 or $l = $l3 or $l = $l4 or $l = $l5 or $l = $l6 or $l = $l7 or $l = $l8 or $l = $l9 or $l = $l10 or $l = $l11
goto s6
else
get clipboard $l4
end_if
set #12345 #12345 + 1
if #12345 = 12
set #12345 2
end_if
goto 20
:5
if $l = $l2 or $l = $l3 or $l = $l4 or $l = $l5 or $l = $l6 or $l = $l7 or $l = $l8 or $l = $l9 or $l = $l10 or $l = $l11
goto s6
else
get clipboard $l5
end_if
set #12345 #12345 + 1
if #12345 = 12
set #12345 2
end_if
goto 20
:6
if $l = $l2 or $l = $l3 or $l = $l4 or $l = $l5 or $l = $l6 or $l = $l7 or $l = $l8 or $l = $l9 or $l = $l10 or $l = $l11
goto s6
else
get clipboard $l6
end_if
set #12345 #12345 + 1
if #12345 = 12
set #12345 2
end_if
goto 20
:7
if $l = $l2 or $l = $l3 or $l = $l4 or $l = $l5 or $l = $l6 or $l = $l7 or $l = $l8 or $l = $l9 or $l = $l10 or $l = $l11
goto s6
else
get clipboard $l7
end_if
set #12345 #12345 + 1
if #12345 = 12
set #12345 2
end_if
goto 20
:8
if $l = $l2 or $l = $l3 or $l = $l4 or $l = $l5 or $l = $l6 or $l = $l7 or $l = $l8 or $l = $l9 or $l = $l10 or $l = $l11
goto s6
else
get clipboard $l8
end_if
set #12345 #12345 + 1
if #12345 = 12
set #12345 2
end_if
goto 20
:9
if $l = $l2 or $l = $l3 or $l = $l4 or $l = $l5 or $l = $l6 or $l = $l7 or $l = $l8 or $l = $l9 or $l = $l10 or $l = $l11
goto s6
else
get clipboard $l9
end_if
set #12345 #12345 + 1
if #12345 = 12
set #12345 2
end_if
goto 20
:10
if $l = $l2 or $l = $l3 or $l = $l4 or $l = $l5 or $l = $l6 or $l = $l7 or $l = $l8 or $l = $l9 or $l = $l10 or $l = $l11
goto s6
else
get clipboard $l10
end_if
set #12345 #12345 + 1
if #12345 = 12
set #12345 2
end_if
goto 20
:11
if $l = $l2 or $l = $l3 or $l = $l4 or $l = $l5 or $l = $l6 or $l = $l7 or $l = $l8 or $l = $l9 or $l = $l10 or $l = $l11
goto s6
else
get clipboard $l11
end_if
set #12345 #12345 + 1
if #12345 = 12
set #12345 2
end_if
goto 20
:20
if #l > $l
left #6, #7
wait 1s
goto proverka2
else
goto s6
end_if
:proverka2
move 327, 283
wait 1s
if 480, 311 204 // оградка сломана
goto proverka3
else
left 250, 50
wait 1s
goto s6
end_if
:proverka3
move 155, 90
wait 100
kleft_down 155, 90
wait 100
kleft_up 175, 90
wait 100
sendex ^{C}
get clipboard $nadpis2
wait 100
if $nadpis2 = #nadpis or $nadpis2 = ыч
left 250, 50
wait 1s
goto s6
else
goto raz
end_if
/////////////////////////////////////
:123
wait 1s
if #napr = 1000
set #napr2 2003
goto #napr2
end_if
if #napr = 1001
set #napr2 2000
goto #napr2
end_if
if #napr = 1002
set #napr2 2001
goto #napr2
end_if
if #napr = 1003
set #napr2 2002
goto #napr2
end_if
////////////////////////////////////////////////////
//ЛЕВО ВЕРХ
:2000
set $nazad 319, 107
left 408, 521
wait 1s
:aaa
if_not 196, 41 5184270
goto aaa
else
wait 1s
goto finish
end_if
//////////////////////////
//ПРАВО ВЕРХ
:2001
set $nazad 419, 108
left 323, 518
wait 1s
:bbb
if_not 196, 41 5184270
goto bbb
else
wait 1s
goto finish
end_if
/////////////////////////
//ПРАВО НИЗ
:2002
set $nazad 408, 521
move 337, 110
wait 100
if 337, 110 5462114
left 337, 110
wait 1s
goto ccc
end_if
move 326, 115
wait 100
if 326, 115 5462114
left 326, 115
wait 1s
goto ccc
end_if
move 314, 104
wait 100
if 314, 104 6252147
left 314, 104
wait 1s
goto ccc
end_if
move 322, 109
wait 100
if 322, 109 5462114
left 322, 109
wait 1s
goto ccc
end_if
:ccc
if_not 196, 41 5184270
goto ccc
else
wait 1s
goto finish
end_if
///////////////////////////
//ЛЕВО НИЗ
:2003
set $nazad 323, 518
move 414, 116
wait 100
if 414, 116 5462114
left 414, 116
wait 1s
goto ddd
end_if
move 398, 110
wait 100
if 398, 110 5462114
left 398, 110
wait 1s
goto ddd
end_if
move 424, 105
wait 100
if 424, 105 6252147
left 424, 105
wait 1s
goto ddd
end_if
move 408, 109
wait 100
if 408, 109 5462114
left 408, 109
wait 1s
goto ddd
end_if
:ddd
if_not 196, 41 5184270
goto ddd
else
wait 1s
goto finish
end_if
/////////////////////////////////////////////////
:finish
set #nazad #nazad + 1
goto proverka
Дата добавления: 2015-08-28; просмотров: 17 | Нарушение авторских прав
<== предыдущая лекция | | | следующая лекция ==> |
Новый путь цивилизации и его проблемы. | | |