編集履歴:差分

2014/08/04 21:44:45 JSTと2014/08/04 21:49:20 JST間の戦闘魔王の変更箇所

+ 追加された行
- 削除された行
  戦闘魔王の改良版。[http://kie.nu/23X5 ダウンロードはここから]
  
  物語：
  主人公は国王の命令から魔王を倒すように申した。~%
  主人公は引き受け、魔王を倒しに出かけた。~%
  あらゆる困難を乗り越え魔王と対決。~%
  
  
  ソースコード：~%
  元はHSP25.5で開発された戦闘魔王。~%
- それをHSP33.2に移植した。~%
- [http://kie.nu/23Xf　戦闘魔王のソースコードのダウンロードはここから]
+ それを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プログラマーの参考のため転載は禁止している
+