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

編集履歴:差分

2015/11/07 22:00:03 JST以来の戦闘魔王の変更箇所

  • + 追加された行
  • - 削除された行

編集履歴ページに戻る

- * 物語 
- 主人公は国王の命令から魔王を倒すように申した。~% 
- 主人公は引き受け、魔王を倒しに出かけた。~% 
- あらゆる困難を乗り越え魔王と対決。~% 
- 
- 
- * ソースコード:~% 
- 元はHSP25.5で開発された戦闘魔王。~% 
- それをHSP33.2に移植した。 
- 
- {{{
- 
- cls 4 
- title "" 
- gsel 0,1 
- pos 170,200 
- color 255,255,255 
- font "メイリオ",48,1 
- mes "読み込み中・・・" 
- wait 50 
- 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プログラマーの参考のため転載は禁止している