54 lines
2.4 KiB
Common Lisp
54 lines
2.4 KiB
Common Lisp
*start
|
||
|
||
|
||
[dispsize width=52 height=62 centerpos=26 baseline=0]
|
||
[state enablemove=false enableAttack=false nogravity=true]
|
||
|
||
[eval exp="sprite.ignoreFollowH=true"]
|
||
[eval exp="layer.opacity2=0"]
|
||
[eval exp="layer.dOpacity2=5"]
|
||
|
||
[eval exp="mp.dh=0"]
|
||
|
||
[disp left=0 top=0 opacity=0][wait frame=1]
|
||
[eval exp="sprite.altitude=sprite.parentSprite.altitude+120"]
|
||
;[wait frame=1]
|
||
|
||
[ontrigger name=erase target=*erase]
|
||
;[move path=(0,0,-12) frame=16]
|
||
|
||
[eval exp="mp.l = 0"]
|
||
*loop
|
||
[eval exp="mp.l++"]
|
||
[eval exp="mp.l = 0" cond="mp.l>4"]
|
||
[call target=*disp]
|
||
[jump target=*loop]
|
||
|
||
|
||
|
||
*disp
|
||
[call target=*altitude]
|
||
[disp left=&mp.l top=0 opacity=255][wait frame=1]
|
||
[call target=*altitude]
|
||
[disp left=&mp.l top=0 opacity=220][wait frame=1]
|
||
[return]
|
||
|
||
|
||
*altitude
|
||
[if exp="sprite.parentSprite === void"]
|
||
[if exp="dho.players[0].rootX == sprite.rootX && dho.players[0].rootY == sprite.rootY"]
|
||
[eval exp="sprite.parentSprite = dho.players[0]"]
|
||
[else]
|
||
[eval exp="sprite.parentSprite = dho.players[1]"]
|
||
[endif]
|
||
[endif]
|
||
|
||
[if exp="int(sprite.altitude) == int(sprite.parentSprite.altitude+98)"]
|
||
[eval exp="mp.dh=0"]
|
||
[else]
|
||
[eval exp="mp.dh*=0.9"]
|
||
[endif]
|
||
[eval exp="sprite.altitude+=mp.dh"]
|
||
[return]
|
||
|
||
|