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


HSPTV!掲示板

スレッド一覧 | 新規書き込み | 新着一覧 | 使い方 | 過去ログ

未解決 解決 停止 削除要請

2009
1219		Ｍ・Ｓ3スコアの合格点？を出したい4解決


Ｍ・Ｓ3

リンク

2009/12/19(Sat) 01:30:08|NO.29343

タイピングゲームでスコアによっていろいろな言葉を終了時に画面に出力するには
どのようにすればいいですか？
ソースはこれです


*Roots
	cls
	title "タイピングで遊ぼう"
	pos 255,150
		button"初級",*start
		oShokyu = stat //初級ボタンのオブジェクトID
	pos 255,200
		button"中級",*start
		oChukyu = stat //中級ボタンのオブジェクトID
	pos 255,250
		button"上級",*start
		oJokyu  = stat //上級ボタンのオブジェクトID
	pos 150,100
	font msgothic,40
		color 250,100,0
		mes"難易度を選んでください"
stop
*start
; ゲーム開始
	if (stat = oShokyu) :level = 0 //初級
	if (stat = oChukyu) :level = 1 //中級
	if (stat = oJokyu)  :level = 2 //上級

	clrobj

	timer = 150

*greset
; 問題の準備
	cursor=0
	typemode=0
	m=rnd(13)
	if (level=0) {
		if m=0 : mondai="RINGO":mondai2="リンゴ" 
		if m=1 : mondai="AME":mondai2="雨"
		if m=2 : mondai="SYARIN":mondai2="車輪"
		if m=3 : mondai="ASA":mondai2="朝"
		if m=4 : mondai="HAGURUMA":mondai2="歯車"
		if m=5 : mondai="HIKARI":mondai2="光"
		if m=6 : mondai="DORAEMON":mondai2="ドラエもん"
		if m=7 : mondai="YUUGURE":mondai2="夕暮れ"
		if m=8 : mondai="HIGURASI":mondai2="蜩"
		if m=9 : mondai="DORAIBU":mondai2="ドライブ"
		if m=10 : mondai="REMON":mondai2="レモン"
		if m=11 : mondai="KARINTOU":mondai2="かりんとう"
		if m=12 : mondai="KAMINARI":mondai2="雷"
	}
	if (level=1) {
		if m=0  : mondai="MESSENZUA-":mondai2="メッセンジャー" 
		if m=1  : mondai="DOKYUMENTO":mondai2="ドキュメント"
		if m=2  : mondai="GIMIKKU":mondai2="ギミック"
		if m=3  : mondai="MASSE-ZI":mondai2="メッセージ"
		if m=4  : mondai="HURU-TU":mondai2="フルーツ"
		if m=5  : mondai="SUI-TU":mondai2="スイーツ"
		if m=6  : mondai="DAUNRO-DO":mondai2="ダウンロード"
		if m=7  : mondai="YUUHI":mondai2="アップロード"
		if m=8  : mondai="SYANDERIA":mondai2="シャンデリア"
		if m=9  : mondai="SUNO-":mondai2="スノー"
		if m=10 : mondai="REMON":mondai2="レモン"
		if m=11 : mondai="MASUKATTO":mondai2="マスカット"
		if m=12 : mondai="MU-ZIKKU":mondai2="ミュージック"
	}
	if (level=2) {
		if m=0 : mondai="SAIOUGAUMA":mondai2="塞翁が馬" 
		if m=1 : mondai="HUURINKAZAN":mondai2="風林火山"
		if m=2 : mondai="MEIKYOUSISUI":mondai2="明鏡止水"
		if m=3 : mondai="RUIHATOMOWOYOBU":mondai2="類は友を呼ぶ"
		if m=4 : mondai="NIKUWOKIRASETEHONEWOTATU":mondai2="肉を切らせて骨を断つ"
		if m=5 : mondai="ASUNOHYAKUYORIKYOUNOGOZYUU":mondai2="明日の百より今日の五十"
		if m=6 : mondai="ITIGOUITIE":mondai2="一期一会"
		if m=7 : mondai="AOHAAIYORIIDETEAIYORIAOSI":mondai2="青は藍より出でて藍より青し"
		if m=8 : mondai="AKUZISENRIWOHASIRU":mondai2="悪事千里を走る"
		if m=9 : mondai="ASAOKIHASANMONNOTOKU":mondai2="朝起きは三文の徳"
		if m=10 : mondai="AMADAREISIWOUGATU":mondai2="雨垂れ石を穿つ"
		if m=11 : mondai="IUHAYASUKUOKONAUHAKATASI":mondai2="言うは易く行うは難し"
		if m=12 : mondai="USOKARADETAMAKOTO":mondai2="嘘から出た真"
	}
	onkey gosub *typein
*main
; ゲームメイン
	redraw 0

	color 100,0,50:boxf

	font msgothic,18
	color 0,0,255
	pos 0,0
	pos 80,80:mes "残り時間:"+timer
	pos 80,60:mes "スコア:"+score

	font msgothic,30,1
	color 0,120,160
	pos 170,198:mes mondai2 
	pos 170,238:mes mondai
	pos 170,238:color 255,0,100:mes strmid(mondai,0,cursor)

	redraw 1
	await 50

	if typemode>0 : onkey 0 : goto *greset
	if timer<=0 : onkey 0 : goto *gameover

	timer=timer-1
goto *main
*gameover
	onkey 0
	dialog "END"
end
*typein
; キーを押した時の処理
	a=peek(mondai,cursor)
	if a!=iparam : goto *typemiss
	len=strlen(mondai)
	cursor=cursor+1:if cursor<len : return
goto *win
*typemiss
; ミスタッチをした時
	typemode=1
	score-=5 
return
*win
; タイピング成功
	typemode=2
	score+=10
return
(tsukaさんのスクリプトのままですいません)



この記事に返信する

SYAM

リンク

2009/12/19(Sat) 07:59:11|NO.29344

if 構文をつかって、スコアによって違う文章を表示するようにしたらよいです。

ちょい乱暴ですが



if score<5 : mes "５点未満" : goto *owari
if score<10 : mes "５点以上10点未満" : goto *owari
mes "10点以上"
*owari



SYAM

リンク

2009/12/19(Sat) 08:07:24|NO.29345

…ソレと。やりたいことを他人に丸投げしてると、自分でできるようになれません。
丸投げで完成させるくらいなら自分で作る意味が薄ーくなっちゃいます。
もうすこし自分でがんばってみて、やり方ではなく「わからないところ」を質問するようにした方が、後々のためだと思いますよ。

また、前のスレッドで他の方から「配列変数」を使えと指摘されていませんでしたか。
このまま行くよりも、いったんストップして今のうちに配列変数を使えるようにした方が間違いなくラクです。

※配列について
http://hsp.tv/play/pforum.php?mode=pastwch&num=17528



Hatter

リンク

2009/12/19(Sat) 10:47:46|NO.29346



	sdim mondai,20,3,13			:sdim mondai2,20,3,13
	mondai(0,0)="RINGO"			:mondai2(0,0)="リンゴ" 
	mondai(0,1)="AME"			:mondai2(0,1)="雨"
	mondai(0,2)="SYARIN"			:mondai2(0,2)="車輪"
	mondai(0,3)="ASA"			:mondai2(0,3)="朝"
	mondai(0,4)="HAGURUMA"			:mondai2(0,4)="歯車"
	mondai(0,5)="HIKARI"			:mondai2(0,5)="光"
	mondai(0,6)="DORAEMON"			:mondai2(0,6)="ドラエもん"
	mondai(0,7)="YUUGURE"			:mondai2(0,7)="夕暮れ"
	mondai(0,8)="HIGURASI"			:mondai2(0,8)="蜩"
	mondai(0,9)="DORAIBU"			:mondai2(0,9)="ドライブ"
	mondai(0,10)="REMON"			:mondai2(0,10)="レモン"
	mondai(0,11)="KARINTOU"			:mondai2(0,11)="かりんとう"
	mondai(0,12)="KAMINARI"			:mondai2(0,12)="雷"
	mondai(1,0)="MESSENZUA-"		:mondai2(1,0)="メッセンジャー" 
	mondai(1,1)="DOKYUMENTO"		:mondai2(1,1)="ドキュメント"
	mondai(1,2)="GIMIKKU"			:mondai2(1,2)="ギミック
	mondai(1,3)="MESSE-ZI"			:mondai2(1,3)="メッセージ"
	mondai(1,4)="HURU-TU"			:mondai2(1,4)="フルーツ"
	mondai(1,5)="SUI-TU"			:mondai2(1,5)="スイーツ"
	mondai(1,6)="DAUNRO-DO"			:mondai2(1,6)="ダウンロード"
	mondai(1,7)="YUUHI"			:mondai2(1,7)="アップロード"
	mondai(1,8)="SYANDERIA"			:mondai2(1,8)="シャンデリア"
	mondai(1,9)="SUNO-"			:mondai2(1,9)="スノー"
	mondai(1,10)="REMON"			:mondai2(1,10)="レモン"
	mondai(1,11)="MASUKATTO"		:mondai2(1,11)="マスカット"
	mondai(1,12)="MU-ZIKKU"			:mondai2(1,12)="ミュージック"
	mondai(2,0)="SAIOUGAUMA"		:mondai2(2,0)="塞翁が馬" 
	mondai(2,1)="HUURINKAZAN"		:mondai2(2,1)="風林火山"
	mondai(2,2)="MEIKYOUSISUI"		:mondai2(2,2)="明鏡止水"
	mondai(2,3)="RUIHATOMOWOYOBU"		:mondai2(2,3)="類は友を呼ぶ"
	mondai(2,4)="NIKUWOKIRASETEHONEWOTATU"	:mondai2(2,4)="肉を切らせて骨を断つ"
	mondai(2,5)="ASUNOHYAKUYORIKYOUNOGOZYUU":mondai2(2,5)="明日の百より今日の五十"
	mondai(2,6)="ITIGOUITIE"		:mondai2(2,6)="一期一会"
	mondai(2,7)="AOHAAIYORIIDETEAIYORIAOSI"	:mondai2(2,7)="青は藍より出でて藍より青し"
	mondai(2,8)="AKUZISENRIWOHASIRU"	:mondai2(2,8)="悪事千里を走る"
	mondai(2,9)="ASAOKIHASANMONNOTOKU"	:mondai2(2,9)="朝起きは三文の徳"
	mondai(2,10)="AMADAREISIWOUGATU"	:mondai2(2,10)="雨垂れ石を穿つ"
	mondai(2,11)="IUHAYASUKUOKONAUHAKATASI"	:mondai2(2,11)="言うは易く行うは難し"
	mondai(2,12)="USOKARADETAMAKOTO"	:mondai2(2,12)="嘘から出た真"
*Roots
	cls
	title "タイピングで遊ぼう"
	pos 255,150
		button"初級",*start
		oShokyu = stat //初級ボタンのオブジェクトID
	pos 255,200
		button"中級",*start
		oChukyu = stat //中級ボタンのオブジェクトID
	pos 255,250
		button"上級",*start
		oJokyu  = stat //上級ボタンのオブジェクトID
	pos 150,100
	font msgothic,40
		color 250,100,0
		mes"難易度を選んでください"
stop

*start
; ゲーム開始
	if (stat = oShokyu) :level = 0 //初級
	if (stat = oChukyu) :level = 1 //中級
	if (stat = oJokyu)  :level = 2 //上級
	clrobj
	timer = 150

*greset
; 問題の準備
	cursor=0
	typemode=0
	flag=1
	m=rnd(13)
	onkey gosub *typein

*main
; ゲームメイン
	repeat
	redraw 0

	color 100,0,50:boxf

	font msgothic,18
	color ,,255
	pos 0,0
	pos 80,80:mes "残り時間:"+timer
	pos 80,60:mes "スコア:"+score

	font msgothic,30,1
	color ,120,160
	pos 170,198:mes mondai2(level,m)
	pos 170,238:mes mondai(level,m)
	pos 170,238:color 255,,100:mes strmid(mondai(level,m),0,cursor)

	redraw 1
		if typemode>0 :	onkey 0 : goto *greset 
		if timer<=0 : onkey 0 : goto *gameover
		timer=timer-1
		await 50
	loop

*gameover
	onkey 0
	if score<5{
		dialog "まだまだだな〜"
	}else:if score<10{
		dialog "なかなかだな〜"
	}else:if score<30{
		dialog "そこそこだな〜"
	}else{
		dialog "すごいな〜"
	}
end

*typein
; キーを押した時の処理
	a=peek(mondai(level,m),cursor)
	if a!=iparam{
		typemode=1
		score-=5 
	}
	len=strlen(mondai(level,m))
	cursor=cursor+1
	if cursor>=len{
		typemode=2
		score+=10
	}
	return

こんな感じに配列をまとめることが出来ますよ。

元のスクリプトのおかしな点
if m=7 : mondai="YUUHI":mondai2="アップロード"
if m=3 : mondai="MASSE-ZI":mondai2="メッセージ"



Ｍ・Ｓ3

リンク

2009/12/19(Sat) 19:59:38|NO.29354

大変ありがとうございます。
完全に丸投げになっていてすみませんでした。
まだまだ勉強不足なのでもっと勉強します。

トップ | HSP3ダウンロード | HSPTVで遊ぶ | HSPで作る | サイト情報 | プライバシーポリシー | お問合せ

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