HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2006
0427
Hoko一時停止のしかた4解決


Hoko

リンク

2006/4/27(Thu) 22:00:22|NO.516

アクションゲームを作っているのですが、
一時停止やしている間の処理とかが分かりません。
どうしたらいいですか?



この記事に返信する


男性A

リンク

2006/4/27(Thu) 23:46:38|NO.519

一時停止に関しては、一時停止解除用のキー入力を待つというループをつくってやればいいと思います。

repeat
1.キー入力判定
2.入力されたらbreak
await 10
loop

みたいな感じです。命令とかは知らべてやってください



osakana

リンク

2006/4/28(Fri) 05:10:15|NO.522


randomize f=1,-1 repeat 10 fx(cnt)=f(rnd(2)) :fy(cnt)=f(rnd(2)) x(cnt)=rnd(640-50) :y(cnt)=rnd(480-50) loop ;--------- *top redraw 0 stick key if key=256 :gosub *pause color 255,255,255 :boxf repeat 10 x(cnt)+=16*fx(cnt) y(cnt)+=13*fy(cnt) if x(cnt)<0 :x(cnt)=0 :fx(cnt)=1 if x(cnt)>640-50 :x(cnt)=640-50 :fx(cnt)=-1 if y(cnt)<0 :y(cnt)=0 :fy(cnt)=1 if y(cnt)>480-50 :y(cnt)=480-50 :fy(cnt)=-1 font "",50 :color 255,0,0 pos x(cnt),y(cnt) :mes "●" loop await 16 redraw 1 goto *top ;--------- *pause redraw 1 color 0,0,255 :pos 10,0 :mes "pause" redraw 0 repeat stick key if key=256 :break wait 10 loop return
多分こんなんです。



Hoko

リンク

2006/4/28(Fri) 21:46:09|NO.527

判りました。自分のスプリクトに組み込んでみます。
本当にありがとうございました。



osakana

リンク

2006/4/29(Sat) 04:23:15|NO.531

このスクリプトではマウスの左クリックで一時中止します。
・・・て、書くの忘れてました・・・・・・。
すいません。

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
もっと綺麗に書けないものかなぁ・・・。

スペースキーで一時停止します。
今回は忘れなかった・・・・(汗

どちらが優れているとかは無いと思うので適材適所でね。



ONION software Copyright 1997-2021(c) All rights reserved.