32 lines
1.6 KiB
Common Lisp
32 lines
1.6 KiB
Common Lisp
*start
|
||
|
||
[iscript]
|
||
|
||
mp.storage = "p1_h1601";
|
||
|
||
mp.width = 126;
|
||
mp.height = 140;
|
||
mp.baseline = 6;
|
||
mp.centerpos = mp.width / 2;
|
||
|
||
[endscript]
|
||
|
||
;[image page=back layer=0 storage="_tr" visible=true opacity=255]
|
||
|
||
[dispsize width=&mp.width height=&mp.height baseline=&mp.baseline centerpos=&mp.centerpos]
|
||
[state enablemove=false enableAttack=false ignoremovablerect=true]
|
||
|
||
; 拘束
|
||
*loop0
|
||
|
||
[disp left=0 top=0 opacity=255][wait frame=&intrandom(4,6)]
|
||
[disp left=1 top=0 opacity=255][wait frame=&intrandom(4,6)]
|
||
[disp left=2 top=0 opacity=255][wait frame=&intrandom(4,6)]
|
||
[disp left=3 top=0 opacity=255][wait frame=&intrandom(4,6)]
|
||
[disp left=4 top=0 opacity=255][wait frame=&intrandom(4,6)]
|
||
[disp left=5 top=0 opacity=255][wait frame=&intrandom(4,6)]
|
||
|
||
[jump target=*loop0]
|
||
|
||
|
||
|