編集履歴:差分

2016/03/14 12:44:59 JST以来の戦闘魔王の変更箇所

+ 追加された行
- 削除された行
- * お知らせ（2016/03/14 12:44:59 JST 配信）
- 2013年以来続いた戦闘魔王に関する情報の提示は今年度中に終了する予定(日時未定)。~%
- 
- * 物語 
- 主人公は国王の命令から魔王を倒すように申した。~% 
- 主人公は引き受け、魔王を倒しに出かけた。~% 
- あらゆる困難を乗り越え魔王と対決。~% 
- 
- 
- * ソースコード：~% 
- 元は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プログラマーの参考のため転載は禁止している