mouse down when @greenFlag clicked set [gravity v] to [-1] set [resist v] to [0.97] hide forever wait until <not <mouse down?>> wait until <mouse down?> create particles x (mouse x) y (mouse y)::custom end define create particles x (x) y (y) start sound [bang v] go to x: (x::custom) y: (y::custom) repeat (100) set [dir v] to (pick random (-180.0) to (180.0)) set [power v] to (pick random (0.0) to (10.0)) set [speed x v] to ((power) * ([cos v] of (dir)::operators)) set [speed y v] to ((power) * ([sin v] of (dir)::operators)) change [speed y v] by (6) change [color v] effect by (0.2)::looks change pen [color v] by (0.2) create clone of [myself v] end when I start as a clone point in direction (180) erase all set [ghost v] effect to (100)::looks set pen size to (2) show set pen [transparency v] to (0) forever stamp set [speed x v] to ((speed x) * (resist)) set [speed y v] to (((speed y) * (resist)) + (gravity)) if <(pick random (1) to (10)) \> [3]> then pen down end go to x: ((x position) + (speed x)) y: ((y position) + (speed y)) change [speed y v] by (0.5) pen up if <touching [edge v]?> then delete this clone end if <touching [level v]?> then pen down change pen size by (3) change y by (() - (speed y)) if <touching [level v]?> then change y by (speed y) change x by ((0) - (speed x)) set [speed x v] to ((speed x) * (-0.7)) if <touching [level v]?> then change y by ((0) - (speed y)) set [speed y v] to ((speed y) * (-0.4)) if <([abs v] of (speed y)::operators) \< [2]> then delete this clone end end else set [speed y v] to ((speed y) * (-0.4)) if <([abs v] of (speed y)::operators) \< [2]> then delete this clone end if <([abs v] of (speed y)::operators) \> [3]> then start sound (join [sparkle] (pick random (1) to (5))) end end end change pen [transparency v] by (2.8) end
@griffpatch
