45 lines
2.2 KiB
Common Lisp
45 lines
2.2 KiB
Common Lisp
|
||
*start
|
||
|
||
[dispsize width=52 height=52]
|
||
|
||
[eval exp="mp.t = intrandom(0,2)"]
|
||
|
||
[state enablemove=false enableAttack=false nogravity=true]
|
||
|
||
[jump target=*disp2 cond="intrandom(0,1)"]
|
||
|
||
|
||
*disp1
|
||
|
||
[disp left=0 top=&mp.t opacity=128][wait frame=2][call target=*check]
|
||
[disp left=1 top=&mp.t opacity=255][wait frame=2][call target=*check]
|
||
[disp left=2 top=&mp.t opacity=255][wait frame=2][call target=*check]
|
||
[disp left=3 top=&mp.t opacity=255][wait frame=2][call target=*check]
|
||
[disp left=4 top=&mp.t opacity=255][wait frame=2][call target=*check]
|
||
|
||
[del]
|
||
[s]
|
||
|
||
|
||
*disp2
|
||
|
||
[disp left=4 top=&mp.t opacity=255][wait frame=2][call target=*check]
|
||
[disp left=3 top=&mp.t opacity=255][wait frame=2][call target=*check]
|
||
[disp left=2 top=&mp.t opacity=255][wait frame=2][call target=*check]
|
||
[disp left=1 top=&mp.t opacity=255][wait frame=2][call target=*check]
|
||
[disp left=0 top=&mp.t opacity=128][wait frame=2][call target=*check]
|
||
|
||
[del]
|
||
[s]
|
||
|
||
|
||
|
||
|
||
|
||
*check
|
||
[if exp="sprite.parentSprite === void || !isvalid sprite.parentSprite"]
|
||
[eval exp="layer.dOpacity2 = -20"]
|
||
[endif]
|
||
|
||
[return]
|