when green flag clicked
clear
go to x:(-100) y:(30)
pen down
move (200) steps
pen up
wait (1) secs
go to x:(-44) y:(-24)
set pen color to [#FFA500]
move (100) steps
pen up
when green flag clicked
clear
go to x:(-100) y:(30)
pen down
move (200) steps
pen up
when green flag clicked
wait (1) secs
go to x:(-44) y:(-24)
set pen color to [#FFA500]
move (100) steps
pen up
when green flag clicked
forever
create clone of [myself v]
wait (0.2) secs
go to x:(pick random(-200) to (200)) y:(200)
glide (3) secs to x:(x position) y:(-180)
delete this clone
when green flag clicked
clear
go to x:(-200) y:(40)
set pen color to [#FFA500]
pen down
move (100) steps
pen up
wait (1) secs
go to x:(-200) y:(0)
set pen color to [#FFA500]
pen down
move (200) steps
pen up
define PaintOrange(length)
set pen color to [#FFA500]
pen down
move (length) steps
pen up
when green flag clicked
clear
go to x:(-200) y:(40)
PaintOrange(100):: custom
wait (1) secs
go to x:(-200) y:(0)
PaintOrange(200):: custom
when green flag clicked
repeat (10)
create clone of [snowflake v]
wait (0.5) secs
end
when I start as a clone
set [xSpeed v] to (pick random (-5) to (5))
set [ySpeed v] to (pick random (-5) to (5))
go to x:(pick random(-200) to (200)) y:(200)
forever
change x by (xSpeed)
change y by (ySpeed)
if <(y position) < (-200)> then
delete this clone
end
end