無味無臭掲示板β

17139
特に内容の制限はない、よろず掲示板です。
雑談・情報提供・意見ナド、何でも書いて下さい。

ただし、荒らし・宣伝等の迷惑書き込みは厳禁です。
見つけ次第即消去します。
名前
件名
メッセージ
メールアドレス
URL
アイコン
文字色 ■■■■■■■■
編集/削除キー （半角英数字のみで４～８文字）
プレビューする （投稿前に、内容をプレビューして確認できます）

無題 - アルテマウェポン（Lagoon） URL

2016/09/24 (Sat) 22:23:24
*.plala.or.jp

どうもお久しぶりです（覚えているかな？）、アルテマウェポン（Lagoon）です。
昔を懐かしむ為にInternet Archiveでキサキモンを見ていたら偶然このサイトを発見してしまい、アクセスした次第でございます。

恐らくここに書き込むのも10年ぶりくらいでしょうか？今では私も23歳の会社員、山だらけの人生で顔も年より老けてしまいすっかりオッサンに磨きが掛かってしまいました（笑）

過去の投稿を見る限り、定期的に誰かは書き込みをしているみたいですので私も足跡がてら投稿させていただきます。

最後に、今は更新してないですがバトルスレッドは残しているので、もしよかったらどうぞ。

Re: - 卯月ヒロ＠管理人

2021/08/06 (Fri) 12:30:45
*.bbtec.net

お久しぶりです。
管理人ヒロこと破天荒です。
5年も経って返信してしまい、ごめんなさい。
もしまだ来てくれていたら、また会えたら嬉しいな。
では。

一時 - ヒロ

2015/10/21 (Wed) 15:27:41
*.secomtrust.net

Option Explicit
Dim A, D, M, SP, HP, MP, kodo As Integer
Dim rwflg As Boolean
Dim CName As String

Function makeRndInt(minInt As Integer, maxInt As Integer) As Integer

'乱数ジェネレータを初期化
Randomize
'sInt～eIntまでの整数をランダム取得
makeRndInt = Int((maxInt - minInt + 1) * Rnd + minInt)

End Function

Private Sub UserForm_Initialize()

Dim i, x As Integer

ComboBox1.AddItem "ギャンブル"
ComboBox1.AddItem "鍛える"
ComboBox1.AddItem "猛特訓"
ComboBox1.AddItem "勉強"
ComboBox1.AddItem "走る"
ComboBox1.AddItem "休む"

Label7.Caption = makeRndInt(5, 10) 'HP
Label8.Caption = makeRndInt(1, 6) 'MP
Label9.Caption = makeRndInt(2, 7) '攻撃
Label10.Caption = makeRndInt(2, 6) '防御
Label11.Caption = Label8.Caption '魔力
Label12.Caption = makeRndInt(2, 6) '素早さ
kodo = 0
rwflg = False

CName = InputBox("キャラの名前" & vbCrLf & "名前入力")
Label14.Caption = CName

End Sub
Private Sub CommandButton1_Click()

Dim x, y, z, w, rw As Integer
Dim com As String

com = ComboBox1.Value
kodo = kodo + 1
HP = Label7.Caption
MP = Label8.Caption
A = Label9.Caption
D = Label10.Caption
M = Label11.Caption
SP = Label12.Caption

If com = "猛特訓" Then
rw = makeRndInt(1, 100)
If rw > 22 And rw <= 66 Then
MsgBox CName & "は逃げ出した・・・"
rwflg = True
Unload Me
End If
x = makeRndInt(3, 7)
y = makeRndInt(2, 6)
z = makeRndInt(2, 4)
w = makeRndInt(1, 3)
A = A + x
D = D + y
M = M + z
SP = SP + w
Label13.Caption = "AT：+" & x & "、DF：+" & y & vbCrLf & "、MG：+" & z & "、SP：+" & w
ElseIf com = "鍛える" Then
x = makeRndInt(2, 6)
y = makeRndInt(2, 5)
z = makeRndInt(1, 3)
A = A + x
D = D + y
M = M + z
Label13.Caption = "AT：+" & x & "、DF：+" & y & "、MG：+" & z
ElseIf com = "休む" Then
x = makeRndInt(4, 7)
HP = HP + x
Label13.Caption = "HP：+" & x
ElseIf com = "勉強" Then
x = makeRndInt(4, 7)
M = M + x
Label13.Caption = "HP：+" & x
ElseIf com = "走る" Then
x = makeRndInt(3, 7)
SP = SP + x
Label13.Caption = "SP：+" & x
ElseIf com = "ギャンブル" Then
w = makeRndInt(1, 100)
x = makeRndInt(2, 8)
If w < 21 Then
HP = HP + x
Label13.Caption = "HP：+" & x
ElseIf w >= 21 And w <= 40 Then
A = A + x
Label13.Caption = "AT：+" & x
ElseIf w >= 41 And w <= 60 Then
D = D + x
Label13.Caption = "DF：+" & x
ElseIf w >= 61 And w <= 80 Then
M = M + x
Label13.Caption = "M：+" & x
Else
SP = SP + x
Label13.Caption = "SP：+" & x
End If
End If

If rwflg = False Then
MP = M
Label7.Caption = HP
Label8.Caption = MP
Label9.Caption = A
Label10.Caption = D
Label11.Caption = M
Label12.Caption = SP
If kodo = 10 Then
Call sento
Exit Sub
End If
End If

End Sub
Sub sento()

Dim HPT, AT, DT, SPT, dm, MHP, MMP, kaisin, Tkou As Integer
Dim bun, mah

HPT = 35
AT = 28
DT = 21
SPT = 20

MHP = Label7.Caption
MMP = Label8.Caption
HP = Label7.Caption
MP = Label8.Caption
A = Label9.Caption
D = Label10.Caption
M = Label11.Caption
SP = Label12.Caption

MsgBox "カトリシンゴが　あらわれた！"
Label13.Caption = "カトリシンゴ" & vbCrLf & "HP：" & HPT & vbCrLf & "AT：" & AT & vbCrLf & "DF：" & DT
Do
HP = Label7.Caption
MP = Label8.Caption
A = Label9.Caption
D = Label10.Caption
If SP < SPT Then
Tkou = makeRndInt(1, 100)
If Tkou >= 40 And Tkou <= 50 Then
dm = 12
MsgBox "メラ！！" & CName & "は" & dm & "のダメージを受けた"
Else
kaisin = makeRndInt(1, 100)
If kaisin > 20 And kaisin < 41 Then
dm = AT
MsgBox "かいしんのいちげき！"
Else
dm = AT - D
End If
End If
If dm <= 0 Then
dm = 1
End If
HP = HP - dm
If HP < 0 Then
HP = 0
End If
End If

bun = MsgBox("どうする？" & vbCrLf & "はい→攻撃 、いいえ→防御 、キャンセル→魔法", vbYesNoCancel)
If bun = vbYes Then
kaisin = makeRndInt(1, 100)
dm = A - DT
If dm <= 0 Then
dm = 1
End If
If kaisin > 20 And kaisin < 41 Then
dm = A
MsgBox "かいしんのいちげき！"
End If
HPT = HPT - dm
If HPT < 0 Then
HPT = 0
End If
MsgBox CName & "の攻撃！　敵に" & dm & "のダメージ！"
ElseIf bun = vbNo Then
D = D * 2
MsgBox CName & "は身を守っている"
Else
mah = MsgBox("どうする？" & vbCrLf & "はい→ホイミ(MP：3) 、いいえ→メラ(MP：2)", vbYesNo)
If mah = vbYes Then
If MP < 3 Then
MsgBox "MPが足りない！"
Else
HP = HP + 30
If HP > MHP Then
HP = MHP
End If
MsgBox "HPが30回復！"
MP = MP - 3
End If
Else
If MP < 2 Then
MsgBox "MPが足りない！"
Else
dm = Int((M * 1.2 - M + 1) * Rnd + M)
HPT = HPT - dm
If HPT < 0 Then
HPT = 0
End If
MsgBox "メラ！！敵に" & dm & "のダメージ！"
MP = MP - 2
End If
End If
End If

If SP > SPT And HPT > 0 Then
Tkou = makeRndInt(1, 100)
If Tkou >= 40 And Tkou <= 50 Then
dm = 12
MsgBox "メラ！！"
Else
kaisin = makeRndInt(1, 100)
If kaisin > 20 And kaisin < 41 Then
dm = AT
MsgBox "かいしんのいちげき！"
Else
dm = AT - D
End If
End If
If dm <= 0 Then
dm = 1
End If
HP = HP - dm
If HP < 0 Then
HP = 0
End If
End If
MsgBox CName & "は" & dm & "のダメージを受けた"
If HPT = 0 Or HP = 0 Then
Exit Do
End If

Label7.Caption = HP
Label8.Caption = MP
Label13.Caption = "カトリシンゴ" & vbCrLf & "HP：" & HPT & vbCrLf & "AT：" & AT & vbCrLf & "DF：" & DT
DoEvents
Loop

If HP = 0 Then
MsgBox "負けてしまった・・・"
Unload Me
Else
MsgBox "戦いに勝った！！"
MsgBox "レベルが上がった！！　ALLステ+3"
HP = MHP + 3
MP = MMP + 3
A = A + 3
D = D + 3
M = M + 3
SP = SP + 3
Label7.Caption = HP
Label8.Caption = MP
Label9.Caption = A
Label10.Caption = D
Label11.Caption = M
Label12.Caption = SP
Call sento2
End If

End Sub
Sub sento2()

Dim HPT, AT, DT, SPT, dm, MHP, MMP, kaisin, Tkou As Integer
Dim bun, mah

HPT = 38
AT = 32
DT = 26
SPT = 23

MHP = Label7.Caption
MMP = Label8.Caption
HP = Label7.Caption
MP = Label8.Caption
A = Label9.Caption
D = Label10.Caption
M = Label11.Caption
SP = Label12.Caption

MsgBox "クサナギツヨシが　あらわれた！"
Label13.Caption = "クサナギツヨシ" & vbCrLf & "HP：" & HPT & vbCrLf & "AT：" & AT & vbCrLf & "DF：" & DT
Do
HP = Label7.Caption
MP = Label8.Caption
A = Label9.Caption
D = Label10.Caption
If SP < SPT Then
Tkou = makeRndInt(1, 100)
If Tkou >= 40 And Tkou <= 50 Then
dm = 15
MsgBox "メラ！！"
Else
kaisin = makeRndInt(1, 100)
If kaisin > 20 And kaisin < 41 Then
dm = AT
MsgBox "かいしんのいちげき！"
Else
dm = AT - D
End If
End If
If dm <= 0 Then
dm = 1
End If
HP = HP - dm
If HP < 0 Then
HP = 0
End If
MsgBox CName & "は" & dm & "のダメージを受けた"
End If

bun = MsgBox("どうする？" & vbCrLf & "はい→攻撃 、いいえ→防御 、キャンセル→魔法", vbYesNoCancel)
If bun = vbYes Then
kaisin = makeRndInt(1, 100)
dm = A - DT
If dm <= 0 Then
dm = 1
End If
If kaisin > 20 And kaisin < 41 Then
dm = A
MsgBox "かいしんのいちげき！"
End If
HPT = HPT - dm
If HPT < 0 Then
HPT = 0
End If
MsgBox CName & "の攻撃！　敵に" & dm & "のダメージ！"
ElseIf bun = vbNo Then
D = D * 2
MsgBox CName & "は身を守っている"
Else
mah = MsgBox("どうする？" & vbCrLf & "はい→ホイミ(MP：3) 、いいえ→メラ(MP：2)", vbYesNo)
If mah = vbYes Then
If MP < 3 Then
MsgBox "MPが足りない！"
Else
HP = HP + 30
If HP > MHP Then
HP = MHP
End If
MsgBox "HPが30回復！"
MP = MP - 3
End If
Else
If MP < 2 Then
MsgBox "MPが足りない！"
Else
dm = Int((M * 1.2 - M + 1) * Rnd + M)
HPT = HPT - dm
If HPT < 0 Then
HPT = 0
End If
MsgBox "メラ！！敵に" & dm & "のダメージ！"
MP = MP - 2
End If
End If
End If

If SP > SPT And HPT > 0 Then
Tkou = makeRndInt(1, 100)
If Tkou >= 40 And Tkou <= 50 Then
dm = 15
MsgBox "メラ！！"
Else
kaisin = makeRndInt(1, 100)
If kaisin > 20 And kaisin < 41 Then
dm = AT
MsgBox "かいしんのいちげき！"
Else
dm = AT - D
End If
End If
If dm <= 0 Then
dm = 1
End If
HP = HP - dm
If HP < 0 Then
HP = 0
End If
MsgBox CName & "は" & dm & "のダメージを受けた"
End If
If HPT = 0 Or HP = 0 Then
Exit Do
End If

Label7.Caption = HP
Label8.Caption = MP
Label13.Caption = "クサナギツヨシ" & vbCrLf & "HP：" & HPT & vbCrLf & "AT：" & AT & vbCrLf & "DF：" & DT
DoEvents
Loop

If HP = 0 Then
MsgBox "負けてしまった・・・"
Unload Me
Else
MsgBox "戦いに勝った！！"
MsgBox "レベルが上がった！！　ALLステ+3"
HP = MHP + 3
MP = MMP + 3
A = A + 3
D = D + 3
M = M + 3
SP = SP + 3
Label7.Caption = HP
Label8.Caption = MP
Label9.Caption = A
Label10.Caption = D
Label11.Caption = M
Label12.Caption = SP
Call sento3
End If

End Sub

Sub sento3()

Dim HPT, AT, DT, SPT, dm, MHP, MMP, kaisin, Tkou As Integer
Dim bun, mah

HPT = 42
AT = 33
DT = 29
SPT = 28

MHP = Label7.Caption
MMP = Label8.Caption
HP = Label7.Caption
MP = Label8.Caption
A = Label9.Caption
D = Label10.Caption
M = Label11.Caption
SP = Label12.Caption

MsgBox "イナガキゴロウが　あらわれた！"
Label13.Caption = "イナガキゴロウ" & vbCrLf & "HP：" & HPT & vbCrLf & "AT：" & AT & vbCrLf & "DF：" & DT
Do
HP = Label7.Caption
MP = Label8.Caption
A = Label9.Caption
D = Label10.Caption
If SP < SPT Then
Tkou = makeRndInt(1, 100)
If Tkou >= 25 And Tkou <= 54 Then
dm = 20
MsgBox "メラミ！！"
ElseIf Tkou >= 53 And Tkou <= 60 Then
dm = 30
MsgBox "メラゾーマ！！"
Else
kaisin = makeRndInt(1, 100)
If kaisin > 20 And kaisin < 41 Then
dm = AT
MsgBox "かいしんのいちげき！"
Else
dm = AT - D
End If
End If
If dm <= 0 Then
dm = 1
End If
HP = HP - dm
If HP < 0 Then
HP = 0
End If
MsgBox CName & "は" & dm & "のダメージを受けた"
End If

bun = MsgBox("どうする？" & vbCrLf & "はい→攻撃 、いいえ→防御 、キャンセル→魔法", vbYesNoCancel)
If bun = vbYes Then
kaisin = makeRndInt(1, 100)
dm = A - DT
If dm <= 0 Then
dm = 1
End If
If kaisin > 20 And kaisin < 41 Then
dm = A
MsgBox "かいしんのいちげき！"
End If
HPT = HPT - dm
If HPT < 0 Then
HPT = 0
End If
MsgBox CName & "の攻撃！　敵に" & dm & "のダメージ！"
ElseIf bun = vbNo Then
D = D * 2
MsgBox CName & "は身を守っている"
Else
mah = MsgBox("どうする？" & vbCrLf & "はい→ホイミ(MP：3) 、いいえ→メラ(MP：2)", vbYesNo)
If mah = vbYes Then
If MP < 3 Then
MsgBox "MPが足りない！"
Else
HP = HP + 30
If HP > MHP Then
HP = MHP
End If
MsgBox "HPが30回復！"
MP = MP - 3
End If
Else
If MP < 2 Then
MsgBox "MPが足りない！"
Else
dm = Int((M * 1.2 - M + 1) * Rnd + M)
HPT = HPT - dm
If HPT < 0 Then
HPT = 0
End If
MsgBox "メラ！！敵に" & dm & "のダメージ！"
MP = MP - 2
End If
End If
End If

If SP > SPT And HPT > 0 Then
Tkou = makeRndInt(1, 100)
If Tkou >= 25 And Tkou <= 54 Then
dm = 20
MsgBox "メラミ！！"
ElseIf Tkou >= 53 And Tkou <= 65 Then
dm = 30
MsgBox "メラゾーマ！！"
Else
kaisin = makeRndInt(1, 100)
If kaisin > 20 And kaisin < 41 Then
dm = AT
MsgBox "かいしんのいちげき！"
Else
dm = AT - D
End If
End If
If dm <= 0 Then
dm = 1
End If
HP = HP - dm
If HP < 0 Then
HP = 0
End If
MsgBox CName & "は" & dm & "のダメージを受けた"
End If
If HPT = 0 Or HP = 0 Then
Exit Do
End If

Label7.Caption = HP
Label8.Caption = MP
Label13.Caption = "イナガキゴロウ" & vbCrLf & "HP：" & HPT & vbCrLf & "AT：" & AT & vbCrLf & "DF：" & DT
DoEvents
Loop

If HP = 0 Then
MsgBox "負けてしまった・・・"
Unload Me
Else
MsgBox "戦いに勝った！！"
MsgBox "レベルが上がった！！　ALLステ+3"
HP = MHP + 3
MP = MMP + 3
A = A + 3
D = D + 3
M = M + 3
SP = SP + 3
Label7.Caption = HP
Label8.Caption = MP
Label9.Caption = A
Label10.Caption = D
Label11.Caption = M
Label12.Caption = SP
Call sento4
End If

End Sub

Sub sento4()

Dim HPT, AT, DT, SPT, dm, MHP, MMP, kaisin, Tkou As Integer
Dim bun, mah

HPT = 60
AT = 45
DT = 36
SPT = 30

MHP = Label7.Caption
MMP = Label8.Caption
HP = Label7.Caption
MP = Label8.Caption
A = Label9.Caption
D = Label10.Caption
M = Label11.Caption
SP = Label12.Caption

MsgBox "キムラタクヤが　あらわれた！"
Label13.Caption = "キムラタクヤ" & vbCrLf & "HP：" & HPT & vbCrLf & "AT：" & AT & vbCrLf & "DF：" & DT
Do
HP = Label7.Caption
MP = Label8.Caption
A = Label9.Caption
D = Label10.Caption
If SP < SPT Then
Tkou = makeRndInt(1, 100)
If Tkou >= 35 And Tkou <= 50 Then
dm = 18
MsgBox "メラ！！"
ElseIf Tkou >= 51 And Tkou <= 60 Then
dm = 26
MsgBox "メラミ！！"
Else
kaisin = makeRndInt(1, 100)
If kaisin > 20 And kaisin < 41 Then
dm = AT
MsgBox "かいしんのいちげき！"
Else
dm = AT - D
End If
End If
If dm <= 0 Then
dm = 1
End If
HP = HP - dm
If HP < 0 Then
HP = 0
End If
MsgBox CName & "は" & dm & "のダメージを受けた"
End If

bun = MsgBox("どうする？" & vbCrLf & "はい→攻撃 、いいえ→防御 、キャンセル→魔法", vbYesNoCancel)
If bun = vbYes Then
kaisin = makeRndInt(1, 100)
dm = A - DT
If dm <= 0 Then
dm = 1
End If
If kaisin > 20 And kaisin < 41 Then
dm = A
MsgBox "かいしんのいちげき！"
End If
HPT = HPT - dm
If HPT < 0 Then
HPT = 0
End If
MsgBox CName & "の攻撃！　敵に" & dm & "のダメージ！"
ElseIf bun = vbNo Then
D = D * 2
MsgBox CName & "は身を守っている"
Else
mah = MsgBox("どうする？" & vbCrLf & "はい→ホイミ(MP：3) 、いいえ→メラ(MP：2)", vbYesNo)
If mah = vbYes Then
If MP < 3 Then
MsgBox "MPが足りない！"
Else
HP = HP + 30
If HP > MHP Then
HP = MHP
End If
MsgBox "HPが30回復！"
MP = MP - 3
End If
Else
If MP < 2 Then
MsgBox "MPが足りない！"
Else
dm = Int((M * 1.2 - M + 1) * Rnd + M)
HPT = HPT - dm
If HPT < 0 Then
HPT = 0
End If
MsgBox "メラ！！敵に" & dm & "のダメージ！"
MP = MP - 2
End If
End If
End If

If SP > SPT And HPT > 0 Then
Tkou = makeRndInt(1, 100)
If Tkou >= 35 And Tkou <= 50 Then
dm = 18
MsgBox "メラ！！"
ElseIf Tkou >= 51 And Tkou <= 60 Then
dm = 26
MsgBox "メラミ！！"
Else
kaisin = makeRndInt(1, 100)
If kaisin > 20 And kaisin < 41 Then
dm = AT
MsgBox "かいしんのいちげき！"
Else
dm = AT - D
End If
End If
If dm <= 0 Then
dm = 1
End If
HP = HP - dm
If HP < 0 Then
HP = 0
End If
MsgBox CName & "は" & dm & "のダメージを受けた"
End If
If HPT = 0 Or HP = 0 Then
Exit Do
End If

Label7.Caption = HP
Label8.Caption = MP
Label13.Caption = "キムラタクヤ" & vbCrLf & "HP：" & HPT & vbCrLf & "AT：" & AT & vbCrLf & "DF：" & DT
DoEvents
Loop

If HP = 0 Then
MsgBox "負けてしまった・・・"
Unload Me
Else
MsgBox "戦いに勝った！！"
MsgBox "レベルが上がった！！　ALLステ+3"
HP = MHP + 3
MP = MMP + 3
A = A + 3
D = D + 3
M = M + 3
SP = SP + 3
Label7.Caption = HP
Label8.Caption = MP
Label9.Caption = A
Label10.Caption = D
Label11.Caption = M
Label12.Caption = SP
Call sento5
End If

End Sub

Sub sento5()

Dim HPT, AT, DT, SPT, dm, MHP, MMP, kaisin, Tkou As Integer
Dim bun, mah

HPT = 53
AT = 43
DT = 40
SPT = 38

MHP = Label7.Caption
MMP = Label8.Caption
HP = Label7.Caption
MP = Label8.Caption
A = Label9.Caption
D = Label10.Caption
M = Label11.Caption
SP = Label12.Caption

MsgBox "ナカイマサヒロが　あらわれた！"
Label13.Caption = "ナカイマサヒロ" & vbCrLf & "HP：" & HPT & vbCrLf & "AT：" & AT & vbCrLf & "DF：" & DT
Do
HP = Label7.Caption
MP = Label8.Caption
A = Label9.Caption
D = Label10.Caption
If SP < SPT Then
Tkou = makeRndInt(1, 100)
If Tkou >= 35 And Tkou <= 50 Then
dm = 0
MsgBox "メラミ！！"
HP = HP - dm
If HP < 0 Then
HP = 0
End If
MsgBox CName & "は" & dm & "のダメージを受けた"
ElseIf Tkou >= 51 And Tkou <= 60 Then
dm = 26
MsgBox "ホイミ！！"
MsgBox "ナカイマサヒロのＨＰが　回復してしまった！！"
HPT = HPT + 30
ElseIf Tkou >= 61 And Tkou <= 65 Then
dm = 40
MsgBox "ライディン！！"
HP = HP - dm
If HP < 0 Then
HP = 0
End If
MsgBox CName & "は" & dm & "のダメージを受けた"
Else
kaisin = makeRndInt(1, 100)
If kaisin > 20 And kaisin < 41 Then
dm = AT
MsgBox "かいしんのいちげき！"
Else
dm = AT - D
End If
If dm <= 0 Then
dm = 1
HP = HP - dm
If HP < 0 Then
HP = 0
End If
MsgBox CName & "は" & dm & "のダメージを受けた"
End If
End If
End If

bun = MsgBox("どうする？" & vbCrLf & "はい→攻撃 、いいえ→防御 、キャンセル→魔法", vbYesNoCancel)
If bun = vbYes Then
kaisin = makeRndInt(1, 100)
dm = A - DT
If dm <= 0 Then
dm = 1
End If
If kaisin > 20 And kaisin < 41 Then
dm = A
MsgBox "かいしんのいちげき！"
End If
HPT = HPT - dm
If HPT < 0 Then
HPT = 0
End If
MsgBox CName & "の攻撃！　敵に" & dm & "のダメージ！"
ElseIf bun = vbNo Then
D = D * 2
MsgBox CName & "は身を守っている"
Else
mah = MsgBox("どうする？" & vbCrLf & "はい→ホイミ(MP：3) 、いいえ→メラ(MP：2)", vbYesNo)
If mah = vbYes Then
If MP < 3 Then
MsgBox "MPが足りない！"
Else
HP = HP + 30
If HP > MHP Then
HP = MHP
End If
MsgBox "HPが30回復！"
MP = MP - 3
End If
Else
If MP < 2 Then
MsgBox "MPが足りない！"
Else
dm = Int((M * 1.2 - M + 1) * Rnd + M)
HPT = HPT - dm
If HPT < 0 Then
HPT = 0
End If
MsgBox "メラ！！敵に" & dm & "のダメージ！"
MP = MP - 2
End If
End If
End If

If SP > SPT And HPT > 0 Then
Tkou = makeRndInt(1, 100)
If Tkou >= 35 And Tkou <= 50 Then
dm = 0
MsgBox "メラミ！！"
HP = HP - dm
If HP < 0 Then
HP = 0
End If
MsgBox CName & "は" & dm & "のダメージを受けた"
ElseIf Tkou >= 51 And Tkou <= 60 Then
dm = 26
MsgBox "ホイミ！！"
MsgBox "ナカイマサヒロのＨＰが　回復してしまった！！"
HPT = HPT + 30
ElseIf Tkou >= 61 And Tkou <= 65 Then
dm = 40
MsgBox "ライディン！！"
HP = HP - dm
If HP < 0 Then
HP = 0
End If
MsgBox CName & "は" & dm & "のダメージを受けた"
Else
kaisin = makeRndInt(1, 100)
If kaisin > 20 And kaisin < 41 Then
dm = AT
MsgBox "かいしんのいちげき！"
Else
dm = AT - D
End If
If dm <= 0 Then
dm = 1
HP = HP - dm
If HP < 0 Then
HP = 0
End If
MsgBox CName & "は" & dm & "のダメージを受けた"
End If
End If
End If
If HPT = 0 Or HP = 0 Then
Exit Do
End If

Label7.Caption = HP
Label8.Caption = MP
Label13.Caption = "ナカイマサヒロ" & vbCrLf & "HP：" & HPT & vbCrLf & "AT：" & AT & vbCrLf & "DF：" & DT
DoEvents
Loop

If HP = 0 Then
MsgBox "負けてしまった・・・"
Unload Me
Else
MsgBox "全ての戦いに勝った！！"
MsgBox "ＧＡＭＥ ＣＬＥＡＲ！！"
Unload Me
End If

End Sub

Re: 一時 - ヒロ

2015/11/17 (Tue) 15:26:00
*.secomtrust.net

Option Explicit
Dim Jflg As Boolean
Dim JMn As Integer
Sub JKM()

Dim JK, Jwr As String
Dim JCn, x As Integer

JK = "ぐちぱ"
Cells(7, 3) = "じゃんけん・・・"
Do
Jflg = False
Do
x = Int((3 - 1 + 1) * Rnd + 1)
Cells(14, 3) = Mid(JK, x, 1)
If Jflg = True Then
Cells(7, 3) = "ぽん！！"
Exit Do
End If
DoEvents
Loop
JCn = Application.WorksheetFunction.VLookup(Range("C14"), Range("E1:F3"), 2, 1)
Jwr = Cells(JMn, JCn).Value
If Jwr = "フィーバー！！" Or Jwr = "まけ" Then
Cells(7, 3) = Jwr
Exit Do
End If
Cells(7, 3) = "あいこで・・・"
DoEvents
Loop
Call Sheets("Sheet8").rrt完

End Sub

Sub ぐstp()
JMn = 1
Jflg = True
End Sub
Sub ちstp()
JMn = 2
Jflg = True
End Sub
Sub ぱstp()
JMn = 3
Jflg = True
End Sub

Sub rrt完()

Dim i, x, x2, retu, Dsu As Integer
Dim Stm, Ttm, Etm

Dsu = 20 '<------------データ数
retu = 8 '<------------データ格納列
Stm = Second(Time) '<------------スタート時刻
x = Int((Dsu - 1 + 1) * Rnd + 1) '<------------スタート位置
ActiveSheet.ChartObjects("グラフ 1").Activate

Do
ActiveChart.FullSeriesCollection(1).Points(x).Format.Fill _
.ForeColor.RGB = RGB(255, 0, 0)

If x = 1 Then
x2 = Dsu
Else
x2 = x - 1
End If

ActiveChart.FullSeriesCollection(1).Points(x2).Format.Fill. _
ForeColor.RGB = RGB(255, 255, 255)
Application.Wait [Now() + "0:00:00.1"] '<-----回転速度

i = x
Ttm = Second(Time)
Etm = Ttm - Stm
If Etm > 3 Then
Exit Do
End If

If x = 20 Then
x = 1
Else
x = x + 1
End If
DoEvents
Loop
Application.Wait [Now() + "0:00:00.5"]
Cells(7, 3) = "やっぴー！！" & vbCrLf & Cells(i, retu).Value & "枚ゲット"
ActiveChart.FullSeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(255, 255, 255)
Cells(25, 5).Select

End Sub

ご報告 - 林檎

2012/03/04 (Sun) 01:29:00
*.eonet.ne.jp

おひさしびりでこんばんわぁ

ご報告に参上いたしましたっ！

年内に

け　っ　こ　ん　い　た　し　ま　す　！


破天荒さんとGIKOちゃんと知り合った時が高校生なので…

もぉそんな年になってしまいましたｗ

これからもよろしくお願いします～♪

Re: ご報告 - 卯月＠管理人

2012/03/04 (Sun) 02:04:54
*.bbtec.net

うぉっ！！お久です！！
そして、おめでとうございます！！

もうすっかり大人になっちゃってたんですねぇ。
ビックリするやら寂しいやら焦るやら＾＾；
さらっと先を越されちまって・・・。私ゃどうすべぇ＾＾；

こちらこそ、これからもよろしくお願いします。

Re: ご報告 - きさき

2013/10/16 (Wed) 16:58:17
*.panda-world.ne.jp

皆さん、おひさしぶりです。きさきですw
なんとなーく「キサキモン」でググってたら、ここの掲示版を見つけてしまいましたw
ご結婚、おめでとうございます！林檎さん！
皆さん、大人になられたんでしょうねぇ…（アタしゃすっかりオバさんですがww）

皆さんには、たくさんお世話になって、なのに突然サイトを閉じて申し訳ありませんでした。
その事は、今でもずっと気になってます。もっとやり方があったんじゃないかとか…。
あの時は色んな事が重なって、思い切ってやめてしまえ！っと一気に閉鎖してしまいました。
そのくらいしないと、私はズルズル続けてしまうタイプなので…。

さてさて、実は…皆さんとはどんな感じで接してたか覚えてません＜オイ！w
歳のせいじゃないです…月日のせいですwwゴメンなさいww
でも、お名前は覚えてるんですよねー。
卯月さん、破天荒さん、林檎さん、dreamくん、エターナルくん…。
皆さんとはキサキモンのメイン掲示版のほうでお話をしてましたっけ？？
新しいゲームを出す度に、色んな人と接してたので、もう頭の中がぐちゃぐちゃですww
ただ、ここの皆さんとのお話は、いつも気持ちが良かったような記憶が残ってます。
ホント、懐かしい気持ちになりました。ありがとうございます。

みんないつまでもお元気でー( ^з^) y -☆

Re: ご報告 - 卯月＠管理人

2014/01/05 (Sun) 15:11:25
*.bbtec.net

うわうわうわ、ビックリしたぁ！！
きさきさんじゃないですか！！
いや～、懐かしいですね。
てか、この掲示板、「キサキモン」で出て来るんだｗ

あ、ちなみに、卯月さんと破天荒さんは同一人物ですよｗ
もっと言うと、わたくしヒロミンミンですｗ

ＰＳ．レスが遅れてすみませんでした

久しぶりに - GIKO

2011/10/09 (Sun) 22:22:23
*.bbtec.net

長らくどこへやら放浪してましたGIKOです。このHNも久しぶりに使ったなぁ・・・ｗ
ﾈｯﾄでのﾒｲﾝHNはもうかけ離れたものになってますが、ここでは昔のつかいますね。愛着ありますし混乱防止もかねて。

とりま、復活おめです。またちょくちょく顔出しますね。（日記の方にもね


↓ここからどうでもいい話↓
しばらく前からﾒｲﾝのﾌﾞﾗｳｻﾞ変えたんですが、そしたら『ちびあくまのしっぽ』のﾍﾟｰｼﾞが非対応だったようで文字化けしてました（ふりばは問題なし）

おかげでここたどり着くのにてこずった・・・なんて言い訳はしません、はい（何なんだ

Re: 久しぶりに - 卯月＠管理人 URL

2011/10/10 (Mon) 23:06:47
*.megaegg.ne.jp

おお、こちらではお久しぶりですね！！
ありがとうございまし＾＾

でも、なかなか更新できなくて、「今後どうしようかな・・」なんて復活早々思っていたり・・・＾＾；
ブログの方は割と更新してますがね。
愛はあるんだけどねぇ。
カタチにするとなると、なかなか難しいですねぇ。


なんと、ではGIKOたんはチビあくまが見れないのですか！？
どうすりゃいいんかな？うーん・・・。

無題 - あづづ

2011/07/28 (Thu) 19:32:58
*.panda-world.ne.jp

おひさしー！
復活おめでとー！
またちょいちょい覗きに来ます(^o^)

Re: 無題 - 卯月＠管理人 URL

2011/07/28 (Thu) 20:41:07
*.megaegg.ne.jp

ありがとうです～。
また皆が戻ってきてくれるといいな。

ふりば復活！！ - 卯月＠管理人 URL

2011/07/25 (Mon) 02:13:14
*.megaegg.ne.jp

ふり～ば～ど　が復活しました！！
実は、あれからＰＣのマイフォルダを見ていたら、ふりばの古いデータが残っているのを見つけたのです。
なので、少しずつ、FC2のサーバの方にアップしていってます。

完全復活にはまだ時間がかかると思いますが、末永くお付き合いお願い致しますだm( _ _ )m


ttp://chibiakuma.web.fc2.com/

とりあえず - 林檎

2011/07/25 (Mon) 12:29:27
*.au-net.ne.jp

第一歩～ですね！
私もH P 作りたいなぁ…
何か作ろうと試みるも、ややこしそうで断念してしまいます

Re: ふりば復活！！ - 卯月＠管理人 URL

2011/07/29 (Fri) 01:13:48
*.megaegg.ne.jp

あるとうごうございます＾＾

簡単にＨＰが作れるツールとかあるので、
そこら辺から始めてみるのもいいかもしれませんね。

ふりば消滅 - 卯月＠管理人

2010/12/18 (Sat) 21:56:03
*.megaegg.ne.jp

インフォシークの無料ＨＰのサービスが終了したので、ふりばのデータが消滅しました。
終了後に気付いたので、データのバックアップができておりません。
ttp://plaza.rakuten.co.jp/usersupport/diary/201008250000/

と言うわけで、ふり～ば～どは終了いたしました。
今までご利用下さった方々、誠にありがとうございましたm( _ _ )m

めも - 卯月＠管理人

2009/07/26 (Sun) 23:35:17
*.megaegg.ne.jp

ちょっとφ（．． ）メモメモ
ttp://homepage3.nifty.com/ff-mukkyworld/ff1/ff1-top.htm

お久しぶりです。 - ともき

2009/05/01 (Fri) 19:39:24
*.dion.ne.jp

破天荒さん！
ほんとにお久しぶりです。
覚えていらっしゃるでしょうか？
昔キサキモンで話してたdreamです！
ttp://ikeda4214.hp.infoseek.co.jp/ahya/ringo.shtml
これ作ったやつです(^_^)

元気かなー？って思って、たまにキサキモンのBBSとかのぞいてたりはしてました！
一つお願いがあるんですが、自分 林檎ちゃんと連絡取りたいんです。
お願いできませんか？

よろしくお願いします(^_^)

Re.お久しぶりです。 - 卯月ヒロ

2009/05/05 (Tue) 23:01:59
*.megaegg.ne.jp

なんか、このＨＮじゃないと投稿できないみたいなんで・・・。
破天荒です。ども。


うぉお、お懐かしい！！
覚えてますとも！！お久しぶりです。

で、林檎さんの事ですが・・・
連絡がとりたいというのは、メールなり何なりで連絡が取り合える状態にしたいって事でしょうか？
しかし、連絡と言ってもかなり前に聞いたメルアドとミクシィくらいしか知りませんので、私も『連絡しよう』ってすぐに連絡が取れるかは分からないのですよね・・・。

Re: お久しぶりです。 - 卯月＠管理人

2009/05/05 (Tue) 23:05:43
*.megaegg.ne.jp

すんません。原因分かりました＾＾；
禁止ワードの設定で、ちょっとミスってたみたいで・・・。
という訳で、卯月ヒロこと破天荒です。

Re: お久しぶりです。 - ともき

2009/05/06 (Wed) 20:18:06
*.dion.ne.jp

お久しぶりです＼(^o^)／
そういうことなんですよ！
で、奇跡的に破天荒さんのミクシィを発見して そこから林檎ちゃんにﾒｯｾしてみました！
でも連絡来ることあるのか微妙な感じっす

少し待ってみますね(^_^)
ありがとうございます

Re: お久しぶりです。 - 卯月＠管理人

2009/05/12 (Tue) 00:01:17
*.megaegg.ne.jp

おお、そうですか！それはよかったです＾＾

ていうか、偶然見つかるものなんですね。
私なんか、教えてもらうまで林檎さんのミクシィ見つけられなかったです＾＾；

Re: お久しぶりです。 - ともき

2009/05/12 (Tue) 20:38:03
*.dion.ne.jp

破天荒さんにもマイミク申請して良いですか？＾＾

でも彼女ミクシーあまり来てないみたいですね
少し気長に待ってみますが、もしかしたら破天荒さんにメールしてくださいとお願いするかもしれないです；
しばらく待ちますが その時はよろしくお願いします :)

Re: お久しぶりです。 - 卯月＠管理人

2009/05/16 (Sat) 23:31:05
*.megaegg.ne.jp

私もミクシィにはあまり行ってないですが、
それでもよろしければマイミクＯＫですよ。

アイコン追加 - 卯月＠管理人

2009/03/01 (Sun) 23:32:25
*.megaegg.ne.jp

しっぽアイコン追加しました。
べるぜぶーしっぽですｖｖ

ベルゼブのしっぽはいいなぁｖｖ
結構、フリーザ様のしっぽとか好きなんで、私。
こういうつるんとしたしっぽ、好きですｖ

Copyright © 1999- FC2, inc All Rights Reserved.