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

2016/03/14 12:46:06 JST時点での戦闘魔王の内容

  * お知らせ（2016/03/14 12:46:06 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プログラマーの参考のため転載は禁止している