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

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プログラマーの参考のため転載は禁止している