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


HSPTV!掲示板


未解決 解決 停止 削除要請

2010
1122
ぶち初心者画面が右クリックするとクリアされるようにしたいのですが・・・5解決


ぶち初心者

リンク

2010/11/22(Mon) 00:12:54|NO.35960

HSP歴1ヶ月の初心者です。

々画面上にターゲットが出て、左クリックする。
▲薀鵐瀬爐縫拭璽殴奪箸提示される。
そこにカーソルを合わせて左クリックする。

△鉢の繰り返しというゲームを作っていますが、
途中に右クリックすると,北瓩襪箸いΔ里作れません。

何かいいアイデアがあれば、ご教授お願いします。
よろしくお願いします。

ちなみに今のスクリプトは


screen 1 picload "○.bmp" screen 0 bgscr 2,1024,768,0,0,0;枠なしwindowを作成する chgdisp 1,1024,768 cls 4;黒で塗りつぶす onkey goto *key onclick goto *main stop *key cls 4 stop *main onclick 0 wx=ginfo_winx wy=ginfo_winy x=wx/4 y=wy/4 objsize 37,37 objimage 1,0,0,0,0 pos rnd(ginfo_sizex-37),rnd(ginfo_sizey-37) clrobj iddestroy,iddestroy ;特定のボタンを消す button gosub "",*l_destroy iddestroy=stat ;ボタンのIDを覚えておく stop *l_destroy onclick 0 cls 4 objsize 37,37 objimage 1,0,0,0,0 pos rnd(ginfo_sizex-37),rnd(ginfo_sizey-37) clrobj iddestroy,iddestroy ;特定のボタンを消す button gosub "",*l_destroy iddestroy=stat stop


です。



この記事に返信する


ORZ

リンク

2010/11/22(Mon) 01:27:53|NO.35961

ループというものをググったりして覚えよう。
珍しく機嫌がいいので君の説明とソースから最大限想像力を働かせて作ったサンプルを
放り投げておく。

randomize screen 0,640,480 color 0,0,0:boxf objsize 50,50 *putbutton //ボタンを消してまた作る clrobj pos rnd(640-50),rnd(480-50) button "押せ",*osareta *main stick key //右クリックされてたらメッセージを出さずに //*putbuttonへ戻る if key=512:{ dialog "リセット" goto *putbutton } wait 10 goto *main *osareta //メッセージを出してから*putbuttonへ戻る dialog "よくやった" goto *putbutton



ぶち初心者

リンク

2010/11/22(Mon) 17:45:43|NO.35966

ORZさん、ありがとうございます。

知識や文章能力が無くてすみません。

々画面
∈献リックでターゲットの表示スタート
ターゲットにカーソル合わせて左クリック
ぅ拭璽殴奪箸ランダム座標に表示

とい侶り返しされる。

途中に右クリックで、黒画面に戻るにはどうしたらいいのでしょうか?という質問です。

大変すみませんでした。



ORZ

リンク

2010/11/22(Mon) 18:17:24|NO.35968

俺が張ったソースを読むことで実現できるはずだ。自分で勉強する気がないならもっと優しい人が
君の代わりに作ってくれるまで待てばいい。



たんす

リンク

2010/11/22(Mon) 18:48:51|NO.35969

ORZさんのスクリプトを参考に作ってみました。

//初期化 *l_init randomize screen 0,640,480 cls 4 objsize 50,50 //左クリック待ち *l_title title "左クリックでスタート" stick key if key=256:goto *l_buttonset wait 10 goto *l_title stop //ボタン配置 *l_buttonset title "右クリックで初期化" clrobj pos rnd(640-50),rnd(480-50) button "Click!",*l_buttonset //ループ&右クリック監視 *l_loop stick key if key=512:goto *l_init wait 10 goto *l_loop stop
あとは仕様にあわせて画面サイズの変更とか、
画像ボタンに変更するとかで対応してください。



ぶち初心者

リンク

2010/11/24(Wed) 11:55:28|NO.36016

ORZさん、たんすさん、本当にありがとうございます。
なんとか思った通りのものが作れました。

お二人のご厚意に甘えるだけではなく、もっと精進いたします。



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