Filip Sluzewski

to doit
rt 25
pd
setpensize 10
repeat 2000 [ setc 69 fd 25 setc 88 fd 25 ]
lt 25

lt 25

repeat 2000 [ fd 25 setc 69 fd 25 setc 88 ]
page2

end

to F
pd
repeat 99 [ fd 547 rt 259 ]
setc 65
repeat 99 [ fd 547 lt 259 ]
repeat 999 [ fd 548 rt 254 lt 259 ]

end

to filip
cg
repeat 18
[
pd
repeat 3 [ fd 120 rt 120 ]
pu
fd 10
pd
repeat 4 [ fd 90 rt 90 ]
pu
rt 10
fd 10
pd
repeat 5 [ fd 70 rt 72 ]
pu
rt 10
fd 10
pd
repeat 6 [ fd 60 rt 60 ]
pu
fd 10
repeat 8 [ fd 60 rt 45 ]
pu
fd 10
pd
repeat 10 [ fd 15 lt 36 ]
]

end

to filipcolor
cg
repeat 18
[
pd setc 15
repeat 3 [ fd 120 rt 120 ]
pu
fd 10
pd setc 70
repeat 4 [ fd 90 rt 90 ]
pu
rt 10
fd 10
pd setc 79
repeat 5 [ fd 70 rt 72 ]
pu
rt 10
fd 10
pd setc 78
repeat 6 [ fd 60 rt 60 ]
pu
fd 10
pd setc 62
repeat 8 [ fd 60 rt 45 ]
pu
fd 10
pd setc 54
repeat 10 [ fd 15 lt 36 ]
]
end

to togo
setbg 9
pd
setc 67
repeat 999 [ fd 980 rt 658 lt 648 rt 879 fd 769 rt 546 lt 869 ]
end
to wild
setc 9
repeat 657 [ fd 67 rt 5 fd 786 lt 564 fd 785 rt 879 fd 786 lt 564 fd 534 ]
setc 45
repeat 564 [ fd 564 rt 584 fd 657 lt 768 ]
cg
setbg 63
setc 67
repeat 555 [ fd 1002 lt 5647 ]

end
to flying

tto [ t1 t2 t3 ]
seth 90
repeat 67 [ fd 677 wait 2 ]
tto [ t1 t2 t3 ]
seth 45
repeat 76 [ fd 675 wait 2 ]
tto [ t1 t2 t3 ]
seth 360
repeat 89 [ fd 574 wait 2 ]
tto [ t1 t2 t3 ]
seth 180
repeat 78 [ fd 768 wait 2 ]
tto [ t1 t2 t3 ]
seth 180
repeat 98 [ fd 675 wait 2 ]
end
to man!
pd
setbg 9
setc 74
repeat 55 [ fd 1004 rt 5647 lt 5786 ]
end

to Go
pd
setbg 9
setc 65
repeat 578 [ fd 1009 lt 5686 rt 5647 rt 5 ]

end
to fil
cg
setbg 65
setc 9
repeat 5647 [ fd 1003 rt 5690 lt 5667 ]
end

to grenade

tto [ t4 ] ht wait 10
st
setsize 40 wait 5 setsize 60 wait 5 setsize 80 wait 5 setsize 100 wait 5
seth 340
ht wait 20
st
setsize 160
end
to MOM
pd
setc 65
setbg 9
repeat 585 [ fd 65 lt 76 rt 546 fd 657 lt 546 fd 657 rt 768 ]
pu
fd 543

end