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


HSPTV!掲示板


未解決 解決 停止 削除要請

2021
1228
Sora何回かボタンをクリックすると画面が白くなる4解決


Sora

リンク

2021/12/28(Tue) 19:39:05|NO.94809

こんにちは
ただただポイントを稼ぐゲームを作っているのですが
何回かボタンをクリックすると
画面が白くなり操作できなくなります
あと、最初の乱数が毎回同じになるのも修正したいです
どなたか解決策を教えていただけないでしょうか
以下スクリプトです

title "稼ぐゲーム" screen 0,350,100 ten=0 *start cls if ten<0:ten=0 font msgothic,30 mes "現在"+ten+"Point" objsize 300,70 objmode objmode_usefont button "ポイントGETを試みる",*tensyori stop *tensyori await syori=rnd(2) tenpm=rnd(101) randomize if syori=0:goto*tasu if syori=1:goto*hiku *tasu cls await randomize font msgothic,30 if tenpm=0:goto*tasu mes ""+tenpm+"Pointゲットした!" ten=ten+tenpm wait 100 goto *start *hiku cls await randomize font msgothic,30 if tenpm<50:goto*hiku mes ""+tenpm+"Point失った..." ten=ten-tenpm wait 100 goto *start



この記事に返信する


沢渡

リンク

2021/12/28(Tue) 19:53:57|NO.94810

>何回かボタンをクリックすると
>画面が白くなり操作できなくなります
「if tenpm=0:goto*tasu」でtenpmの値が0の時に*tasuに戻っていますが、
戻ったところでtenpmの値が変わるわけでもないので、それで無限ループになってしまうのでしょう。
これはその後の「if tenpm<50:goto*hiku」も同様です。

>あと、最初の乱数が毎回同じになるのも修正したいです
最初の乱数の前にrandomizeを実行していないからです。
このソースコードの中ではrandomizeを何度も実行していますが、
最初に一回だけ実行すれば問題ありません。

以上を踏まえた上で修正してみました。

title "稼ぐゲーム" screen 0,350,100 ten=0 randomize //randomizeは最初に一回だけ実行すればいい *start cls if ten<0:ten=0 font msgothic,30 mes "現在"+ten+"Point" objsize 300,70 objmode objmode_usefont button "ポイントGETを試みる",*tensyori stop *tensyori await syori=rnd(2) //tenpm=rnd(101) //ここではまだtenpmは取得しない //randomize if syori=0:goto*tasu if syori=1:goto*hiku *tasu cls await //randomize font msgothic,30 //if tenpm=0:goto*tasu tenpm=rnd(100)+1 //1〜100のランダムな数値がtenpmに入る mes ""+tenpm+"Pointゲットした!" ten=ten+tenpm wait 100 goto *start *hiku cls await //randomize font msgothic,30 //if tenpm<50:goto*hiku tenpm=rnd(51)+50 //50〜100のランダムな数値がtenpmに入る mes ""+tenpm+"Point失った..." ten=ten-tenpm wait 100 goto *start



Sora

リンク

2021/12/28(Tue) 23:05:51|NO.94815

丁寧な解説ありがとうございます(*^▽^*)
参考にさせていただきます!!



Sora

リンク

2022/2/12(Sat) 15:23:13|NO.95392

ようやく完成したので、公開したいと思います(^^♪
目的は「ポイントを大量に稼ぐ」です。
「ノルマ達成したらクリア」と、「永遠に続く」の2つのモードがあります(*'▽')

↓ここからダウンロードできます↓
https://ux.getuploader.com/Virtual_OS/download/2

バグ等ありましたら教えて頂けると幸いです<m(__)m>



Sora

リンク

2022/6/3(Fri) 21:12:25|NO.96552

新しいバージョンを作りました!v(^_^)v

・改良した所
ノルマ設定を追加(10000Pt固定だと結構長くなるため)
Soraが昔作った似てるようで全く違うものを追加

↓ここからダウンロードできます(*'ω'*)↓
https://ux.getuploader.com/Virtual_OS/download/3



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