[トップ][一覧][最近の更新]

編集履歴:過去のバージョン

2014/08/04 21:54:00 JST時点での戦闘魔王の内容

現在のバージョンとの差分を見る

編集履歴ページに戻る

  戦闘魔王の改良版。[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
  *バトル後の処理
  *初期化ラベル
  	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
  	gsel 0,1
  	dialog "これから「"+name+"」は魔王を討伐します。\n攻撃や回復を使い、魔王を倒してください。\n尚、「"+name+"」のHPが0になるとゲームオーバーです。",0,"戦闘魔王 -説明-"
  	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
  	mes ""+name+"は魔王に"+魔王ダメージ+"を与えた!"
  	whp-ダメージ
  	wait 50
  	goto *魔王の攻撃
  
  *素手
  cls
  	randomize
  	魔王ダメージ=rnd(10)
  	pos 150,60
  	font "メイリオ",24,1
  	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
  	mes ""+name+"は"+ダメージ+"のダメージを受けた!"
  	hp-ダメージ
  	wait 60
  	goto *戦闘画面
  *敗北
  cls
  	pos 150,60
  	font "メイリオ",24,1
  	mes "GAME OVER"
  	wait 150
  	goto *バトル後の処理
  *勝利
  cls
  	pos 150,60
  	font "メイリオ",24,1
  	mes ""+name+"は魔王を倒しました。"
  	wait 180
  	goto *バトル後の処理
  *ファイル欠落
  	dialog "ファイルが見つかりません。終了します。",1,"戦闘魔王 -警告-"
  end
  
  
  }}}
  
  * 備考
  HSPプログラマーの参考のため転載は禁止している