dim hitori,boss As integer//共通プログラム
boss=CDbl(bosshp.Text)//これが無いと駄目ボスHP定義
dim garahad As Integer//仲間プログラム
garahad=CDbl(garahadhp.text)
bosshp.Text=str(boss-garahad)//仲間の攻撃
boss=CDbl(bosshp.Text)//これが無いと駄目ボスHP再度定義
MsgBox""+ str(TextField2.Text)+ "の攻撃！"+str(TextField3.Text)+str(garahad)+"ダメージ！"//
if boss<1 then//仲間によりボス死亡か？
MsgBox""+ str(TextField3.Text)+ "を倒した！"
Quit
Else//其れ以外全てなのでelseifではない
//ボス死んで無いので主人公のターン
hitori=CDbl(isyutohp.Text)//cdblがポイント主人公のHP定義
bosshp.Text=str(boss-hitori)//これが無いと駄目ギルディスへ攻撃主人公定義
boss=CDbl(bosshp.Text)//これが無いと駄目ギルディスHP再度＊2定義
MsgBox""+ str(TextField1.Text)+ "の攻撃！"+str(TextField3.Text)+str(hitori)+"ダメージ！"//1=主人公3=ボス
if boss<1 then
MsgBox""+ str(TextField3.Text)+ "を倒した！"
Quit
Else//ボスを倒していない其れ以外全てなのでelseifではない
dim hitorivs As integer
//ボスのターン
hitorivs=hitorivs+(rnd*10000)//上書きになるんだが
hitori=hitori-hitorivs
MsgBox""+ str(TextField3.Text)+ "の攻撃！"+str(TextField1.Text)+str(hitorivs)+"ダメージ！"//主人公のダメージ
isyutohp.Text=str(hitori)//これが無いと駄目
if hitori<1 then//主人公死亡か
MsgBox""+str(TextField1.text)+ "はやられてしまった・・・・。"
Quit
end if//主人公死んで無いならするー
end if//仲間により死んでないならスルー
end if//ボス主人公により死んで無いならスルー
ここまで：
