このスクリプトではマウスの左クリックで一時中止します。
・・・て、書くの忘れてました・・・・・・。
すいません。
onkey でも出来そうな気がしてたので、
試してみました。
randomize
f=1,-1
repeat 10
fx(cnt)=rnd(2) :fy(cnt)=rnd(2)
x(cnt)=rnd(590) :y(cnt)=rnd(430)
loop
onkey *pause
;---------
*top
redraw 0
await 16
color 255,255,255 :boxf
repeat 10
x(cnt)+=16*f(fx(cnt))
y(cnt)+=13*f(fy(cnt))
if x(cnt)<0 :x(cnt)=0 :fx(cnt)=0
if x(cnt)>590 :x(cnt)=590 :fx(cnt)=1
if y(cnt)<0 :y(cnt)=0 :fy(cnt)=0
if y(cnt)>430 :y(cnt)=430 :fy(cnt)=1
font "",50 :color 255,0,0
pos x(cnt),y(cnt) :mes "●"
loop
redraw 1
goto *top
;---------
*pause
if iparam=32 {
if swt2=0 :lpm=lparam :swt2=1
if lpm=lparam {
swt=(swt+1)\2
color 0,0,255 :pos 10,0 :mes "pause"
redraw 1
}
}
if swt=0 :goto *top
stop
もっと綺麗に書けないものかなぁ・・・。
スペースキーで一時停止します。
今回は忘れなかった・・・・(汗
どちらが優れているとかは無いと思うので適材適所でね。