|
|
2021/10/3(Sun) 22:18:28|NO.94042
2点お願いします。
��txtの問題をランダムに出題するにはどうしたらよでしょうか？
��*judgeにおいて、正解の際、mesを「正解」以外に「いいぞ！」「やるな！」「天才だ！」などの熱い言葉をランダムに表示したいのですが、どうしたらよいでしょうか？
スクリプト案、解説をよろしくお願いします。
以下、現在のスクリプトです。
*Start
mmload"sht_a01.mp3",0,1
mmload"startsound.mp3",1,2
mmload"sht_a06.mp3",2,1
screen 0,600,400
mmplay 0
title "修造ENGLISH"
redraw 0
color:boxf
celload "266-0.png",1
color 255,0,0:font "HG明朝E",50:pos (870-50*11)/2,100:mes "修造ENGLISH"
color $FF,$FF,$00:font "HG明朝E",30:pos (600-30* 6)/2,180:mes "〜LEVEL1〜"
color 255,255,255:font "HG明朝E",30:pos (400- 8*15)/2,250:mes "スタート(Enter)"
:pos (400- 8*15)/2,275:mes "課金(SPC)"
pos (400- 8*15)/2,300:mes "終了(ESC)"
redraw 1
repeat
pos 400,200
celput 1
stick key
if(key&32):mmplay 1:break
if(key&16):mmplay 1:goto*kakin
if(key&128):mmplay 1:end
await 20
loop
mmplay 2
notesel buf
ab=0
ac=1
time=500 : ; await 20を500回くり返すことで約10秒に変更。
noteload "type1.txt",50000 : ; 外に出す。
sdim kaitou,500 : ; 外に出す。初期化は代入で行う。
*main
cls ; このスクリプトならclsでいいと思う。
pos 270,100
celput 1
pos 0,0
font "MS ゴシック",48,1
mes "正解="+seikai+"":mes "不正解="+huseikai+""
noteget a,ab
mes a
noteget b,ac
kaitou="" : ; 初期化。
objmode 2 : ; clsを残したので、これらも残す。
font msgothic,48
objsize 250,50
input kaitou
objsel 0 : ; これが無いと2回目以降にinputボックス内に入力カーソルがデフォで出ない。
mes "PUSH ENTER"
; mainを2つに分ける。
*main_2
time=time-1
redraw 0 : ; 画面のチラツキを防ぐ。
color 255,255,255 : boxf 300,300,599,399 : ; 残り時間の表示を消去。
color 0,0,0 : ; 消去の際に色を変えたので、文字の色に黒を指定。
pos 300,300
mes "残り時間:"+str((time+49)/50) : ; timeが49以下になると0と表示されるのを防ぐために49を足す。
redraw 1
if time<1:goto *gameover : ; 残り時間を表示させてから*gameoverに飛ぶように順番変更。
; wait 100は使わない。
stick ky
if (ky&32)!=0 :goto *judge : ; ifは私の好みの書き方なだけの変更。gosubをgotoに変更。
await 20 : ; wait 1を変更。
goto *main_2 : ; 変更。
*judge
if kaitou=b{
mes "正解"
seikai=seikai+1
}else{
mes "不正解"
huseikai=huseikai+1
}
wait 100
ab=ab+2
ac=ac+2
if huseikai=3:goto*gameover
goto *main : ; gosubをgotoに変えたのでreturnも変更
*gameover
clrobj:await 16
cls
redraw 1
pos 80,170:color 255,0,0
font "MS gothic",96
mes"Game Over"
pos 100,300
font "MS gothic",20
objsize 100,50
button"one more",*main
pos 300,300
button"finish",*Start
stop; 別ラベルに飛ぶように変更。
*longmode
mmplay 2
notesel buf
ab=0
ac=1
time=1000 : ; await 20を500回くり返すことで約10秒に変更。
noteload "type1.txt",50000 : ; 外に出す。
sdim kaitou,500 : ; 外に出す。初期化は代入で行う。
goto*main
*kakin
cls
font "MS gothic",96
pos 80,170:color 255,0,0
mes "2480円"
pos 100,300
font "MS gothic",20
objsize 100,50
button "購入",*oto
stop
*oto
mmplay 1
goto*longmode
| |
ランダムに問題や文字を出す方法
