Edit History:Diff

Changes of 戦闘魔王 since 2014/08/04 21:49:20 JST

+ added lines
- deleted lines
- 戦闘魔王の改良版。[http://kie.nu/23X5 ダウンロードはここから]
- 
- 物語：
- 主人公は国王の命令から魔王を倒すように申した。~%
- 主人公は引き受け、魔王を倒しに出かけた。~%
- あらゆる困難を乗り越え魔王と対決。~%
- 
- 
- ソースコード：~%
- 元はHSP25.5で開発された戦闘魔王。~%
- それをHSP33.2に移植した。
- 
- {{{
- 
- cls 4
- 	title ""
- 	gsel 0,1
- 	pos 170,200
- 	color 255,255,255
- 	font "メイリオ",48,1
- 	mes "読み込み中･･･"
- 	wait 50
- 	exist "title.mid"
- 	if strsize=-1:goto *ファイル欠落
- 	exist "batt.mid"
- 	if strsize=-1:goto *ファイル欠落
- 	exist "dam.wav"
- 	if strsize=-1:goto *ファイル欠落
- 	cls 4
- 	pos 170,200
- 	color 255,255,255
- 	font "メイリオ",48,1
- 	mes "準備中･･･"
- 	wait 10
- 	mmload "title.mid",1,1
- 	mmload "batt.mid",2,1
- 	mmload "dam.wav",3,2
- *バトル後の処理
- 	mmplay 1
- *初期化ラベル
- 	cls 4
- 	title "戦闘魔王"
- 	pos 170,60
- 	color 255,255,255
- 	font "メイリオ",48,1
- 	mes "戦闘魔王"
- 	font "メイリオ",35,1
- 	pos 190,150:mes "プレイ"
- 	pos 190,200:mes "情報"
- 	pos 190,250:mes "終了"
- 	a=0
- 	x=170:y=150:sel=0:maxsel=2
- *selmain
- 	color 0,0,0:boxf x,y,x+20,y+20
- 	y=sel*50+150
- 	color 255,255,255
- 	pos x,y:mes "*"
- *selloop
- 	stick a
- 	if a&2 : a=-1:goto *selchg
- 	if a&8 : a=1:goto *selchg
- 	if a&$30 : goto *selok
- 	await 10:goto *selloop
- *selchg
- 	a=a+sel
- 	if (a<0)or(a>maxsel) : a=sel
- 	sel=a:goto *selmain
- *selok
- 	if sel=0 {
- 	cls 4
- 	pos 200,100
- 	name=""
- 	input name,160,30,15
- 	pos 210,160
- 	button "戻る",*top
- 	pos 310,160
- 	button "決定",*nex
- 	stop
- *top
- goto *初期化ラベル
- *nex
- if name="":dialog "名前を入力してください。",1,"戦闘魔王 -警告-":stop
- 	dialog "名前は「"+name+"」でいいですか？",2,"戦闘魔王 -確認-"
- 	if stat=6:dialog "あなたの名前は「"+name+"」です。",0,"戦闘魔王 - -":goto *バトル開始
- 	if stat=7:stop
- }
- 	if sel=1 {
- 	dialog "作成ツール HSP\n作成言語 インタプリタ言語",0,"戦闘魔王 -情報-"
- 	goto *selloop
- 
- }
- 	if sel=2 : end
- 	a=sel+1
- 
- 	stop
- 
- *バトル開始
- cls
- 	mmstop
- 	gsel 0,1
- 	dialog "これから「"+name+"」は魔王を討伐します。\n攻撃や回復を使い、魔王を倒してください。\n尚、「"+name+"」のHPが0になるとゲームオーバーです。",0,"戦闘魔王 -説明-"
- 	mmplay 2
- 	hp=50
- 	whp=85
- 	回数=2
- *戦闘画面
- cls
- 	if hp<=0:goto *敗北		
- 	objsize 120,30
- 	pos 150,25
- 	font "メイリオ",24,1
- 	mes "行動を選択してください。"
- 	mes ""+name+"のHP　"+hp+""
- 	pos 150,110
- 	button "剣で攻撃",*剣
- 	pos 150,140
- 	button "素手で攻撃",*素手
- 	pos 150,170
- 	button "ヒール(あと"+回数+"回)",*回復
- stop
- *剣
- cls
- 	randomize
- 	魔王ダメージ=rnd(15)
- 	pos 150,60
- 	font "メイリオ",24,1
- 	mmplay 3
- 	mes ""+name+"は魔王に"+魔王ダメージ+"を与えた！"
- 	whp-ダメージ
- 	wait 50
- 	goto *魔王の攻撃
- 
- *素手
- cls
- 	randomize
- 	魔王ダメージ=rnd(10)
- 	pos 150,60
- 	font "メイリオ",24,1
- 	mmplay 3
- 	mes ""+name+"は魔王に"+魔王ダメージ+"を与えた！"
- 	whp-ダメージ
- 	wait 50
- 	goto *魔王の攻撃
- 
- *回復
- 	if 回数=0:dialog "『ヒール』は使えません。",1,"戦闘魔王 -ヒール-":stop
- cls
- 	pos 150,60
- 	font "メイリオ",24,1
- 	mes ""+name+"は回復した！"
- 	hp+30
- 	回数-1
- 	wait 50
- 	goto *魔王の攻撃
- 
- *魔王の攻撃
- 	if whp<=0:goto *勝利
- 	randomize
- 	ダメージ=rnd(15)
- 	mes "魔王の攻撃！"
- 	wait 20
- 	mmplay 3
- 	mes ""+name+"は"+ダメージ+"のダメージを受けた！"
- 	hp-ダメージ
- 	wait 60
- 	goto *戦闘画面
- *敗北
- cls
- 	mmstop
- 	pos 150,60
- 	font "メイリオ",24,1
- 	mes "GAME OVER"
- 	wait 150
- 	goto *バトル後の処理
- *勝利
- cls
- 	mmstop
- 	pos 150,60
- 	font "メイリオ",24,1
- 	mes ""+name+"は魔王を倒しました。"
- 	wait 180
- 	goto *バトル後の処理
- *ファイル欠落
- 	dialog "ファイルが見つかりません。終了します。",1,"戦闘魔王 -警告-"
- end
- 
- 
- }}}
- 
- ※HSPプログラマーの参考のため転載は禁止している
-