frmbattle.frm

Title:Newlegacy RPG Game Description:This is a VB RPG Game.Just use Standard VB Objests.No use Pain

      X1              =   2760
      X2              =   2760
      Y1              =   4320
      Y2              =   1680
   End
   Begin VB.Image imgbac 
      Height          =   1680
      Left            =   0
      Picture         =   "frmbattle.frx":A4AD3
      Stretch         =   -1  'True
      Top             =   0
      Width           =   4800
   End
   Begin VB.Label lblf 
      BackColor       =   &H00000000&
      Height          =   1695
      Left            =   0
      TabIndex        =   31
      Top             =   0
      Width           =   4575
   End
   Begin VB.Label lblso 
      BackColor       =   &H00000000&
      Caption         =   " Sonic"
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   375
      Left            =   1680
      TabIndex        =   33
      ToolTipText     =   "Boom"
      Top             =   3000
      Visible         =   0   'False
      Width           =   855
   End
End
Attribute VB_Name = "frmbattle"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim basic, ov, fire, num, wi, foe, rab, d, g, sh As Integer




Private Sub cmdcon_Click()
Randomize
On Error Resume Next
ovm = lo.X2
j = 0
lblist.Visible = False
lblatt.Visible = False
lblfire.Visible = False
lblGod.Visible = False
lbldemi.Visible = False
Line9.Visible = False
Line10.Visible = False
Line11.Visible = False
Line12.Visible = False
If advisor = True Then
life = life + 50
power = power + 50
money = money + 150
respect = respect + 1
advisor = False
frmrpg.imgmad.Visible = False
End If
If fre = True Then
frmntown.Show
frmstat.Show
frmntown.SetFocus
life = life + 170
respect = respect + 2
power = power + 145
money = money + 230
fre = False
frmplain.imgsup.Visible = False
End If
If boss = True Then
frmntown.Show
frmstat.Show
frmntown.SetFocus
life = life + 1070
respect = respect + 5
power = power + 1045
money = money + 2030
boss = False
frmntown.imgp(0).Visible = False
End If
If flame = True Then
life = life + 970
respect = respect + 4
power = power + 1045
money = money + 2030
flame = False
destr = True
frmntown.imgfl.Visible = False
End If
If mage = True Then
frmrpg.Show
frmstat.Show
frmrpg.SetFocus
life = life + 60
respect = respect + 1
power = power + 45
money = money + 230
mage = False
frmrpg.imgbe.Visible = False
End If
If talon = True Then
frmplain.Show
frmstat.Show
frmplain.SetFocus
life = life + 50
power = power + 55
money = money + 250
respect = respect + 2
talon = False
frmrpg.imgdrag.Visible = False
End If
If sam = True Then
Unload frmbattle
frmdojo.Show
frmdojo.SetFocus
life = life + 20
power = power + 25
money = money + 250
respect = respect + 3
sam = False
frmdojo.imgme.Left = frmdojo.imgme.Left - 350
End If
If beach = True Then
frmbattle.MMControl1.Command = "Close"
frmstat.MMControl1.FileName = (App.Path & "\i.mid")
frmstat.MMControl1.Command = "Open"
frmstat.MMControl1.Command = "Play"
End If
If frmplain.imgsup.Visible = False And beach = False Then
frmbattle.MMControl1.Command = "Close"
frmstat.MMControl1.FileName = (App.Path & "\h.mid")
frmstat.MMControl1.Command = "Open"
frmstat.MMControl1.Command = "Play"
End If
If frmplain.imgsup.Visible = True Then
frmbattle.MMControl1.Command = "Close"
frmstat.MMControl1.FileName = (App.Path & "\frog.mid")
frmstat.MMControl1.Command = "Open"
frmstat.MMControl1.Command = "Play"
End If
If frmntown.imgfl.Visible = False And beach = False And destr = False Then
Unload frmbattle
frmbeach.Show
frmstat.Show
frmbeach.SetFocus
End If
If destr = True Then
Unload frmbattle
frmdestroy.Show
frmstat.Show
frmdestroy.SetFocus
End If
If beach = True Then
Unload frmbattle
frmntown2.Show
frmstat.Show
frmntown2.SetFocus
End If
If frmplain.imgsup.Visible = False And frmntown.imgfl.Visible = True Then
Unload frmbattle
frmntown.Show
frmstat.Show
frmntown.SetFocus
End If
If frmrpg.imgdrag.Visible = False And frmplain.imgsup.Visible = True Then
Unload frmbattle
frmplain.Show
frmstat.Show
frmplain.SetFocus
End If
If frmrpg.imgdrag.Visible = True And sam1 = False Then
Unload frmbattle
frmrpg.Show
frmstat.Show
frmrpg.SetFocus
End If
life = life + Int(20 * Rnd)
power = power + Int(20 * Rnd)
money = money + Int(20 * Rnd) + 25
sam1 = False
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblatt.BackColor = vbBlack
lblfire.BackColor = vbBlack
lblattack.BackColor = vbBlack
lblrun.BackColor = vbBlack
lblGod.BackColor = vbBlack
lbldemi.BackColor = vbBlack
lblso.BackColor = vbBlack
End Sub

Private Sub imgag_Click()

End Sub

Private Sub imgflame_Click()

End Sub

Private Sub lblatt_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblatt.BackColor = &H808080
lblfire.BackColor = vbBlack
lblso.BackColor = vbBlack
lblGod.BackColor = vbBlack
lbldemi.BackColor = vbBlack
End Sub



Private Sub lblattack_Click()
s = 0
lblist.Visible = True
lblatt.Visible = True
lbldemi.Visible = True
lblfire.Visible = True
lblGod.Visible = True
lblatt.Enabled = True
lblfire.Enabled = True
lblso.Enabled = True
lblso.Visible = True
lbldemi.Enabled = True
lblGod.Enabled = True
Line9.Visible = True
Line10.Visible = True
Line11.Visible = True
Line12.Visible = True
End Sub

Private Sub lblattack_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblattack.BackColor = &H808080
lblrun.BackColor = vbBlack
End Sub

Private Sub lbldemi_Click()
Dim de
If mp <= 19 Then
MsgBox "Not enough Mp"
Else
de = Int(lblfoel * (1 / 2))
g = de
lblfoel = lblfoel - de
lbldam = g
If lblfoel <= 0 Then
tmrfoe.Enabled = False
lblfoel.Caption = "0"
tmrfoe.Enabled = False
lblrun.Enabled = False
lo.X2 = lo.X2 + 100
If lo.X2 >= 2520 Then
lo.X2 = 2520
End If
cmdcon.Enabled = True
lblatt.Enabled = False
lbldemi.Enabled = False
lblattack.Enabled = False
lblso.Enabled = False
lblkill.Visible = True
lblmon.Visible = True
lblexp.Visible = True
lblfire.Enabled = False
End If
mp = mp - 20
lblmp = mp
dem = True
timergo.Enabled = True
tmrd.Enabled = True
End If
End Sub

Private Sub lbldemi_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblatt.BackColor = vbBlack
lblfire.BackColor = vbBlack
lblso.BackColor = vbBlack
lblGod.BackColor = vbBlack
lbldemi.BackColor = &H808080
End Sub

Private Sub lblfire_Click()
If mp <= 4 Then
MsgBox "Not enough Mp"
Else
g = Int((lblpower * Rnd) + 500)
If g >= lblpower Then
g = lblpower
End If
lbldam.Caption = g
fire = 0
tmrblue.Interval = 10
mp = mp - 10
lblmp = mp
tmrblue.Enabled = True
End If
End Sub



Private Sub cmdover_Click()
Unload frmbattle
frmover.Show
End Sub


Private Sub Form_Load()
On Error Resume Next
Randomize
frmstat.MMControl1.Command = "Close"
frmbattle.MMControl1.FileName = (App.Path & "\e.mid")
frmbattle.MMControl1.Command = "Open"
frmbattle.MMControl1.Command = "Play"
If beach = True Then
imgbac.Picture = imgb4.Picture
End If
If frmplain.imgsup.Visible = False And frmntown.imgfl.Visible = True Then
imgbac.Picture = imgb1.Picture
End If
If frmrpg.imgdrag.Visible = True Then
imgbac.Picture = imgb1.Picture
End If
If frmntown.imgfl.Visible = False And beach = False Then
imgbac.Picture = imgb2.Picture
End If
If frmrpg.imgdrag.Visible = False And frmplain.imgsup.Visible = True Then
imgbac.Picture = imgb3.Picture
End If

lo.X2 = ovm
d = 0
ov = 0
lblheronam = nam
rab = Int(7 * Rnd) + 1
lblfoel = Int(life * Rnd)
lblfoep = Int(power * Rnd)
If lblfoep = 0 Then
lblfoep = 5
End If
If lblfoel = 0 Then
lblfoep = 10
End If
basic = 0
num = 0
fire = 0
foe = 0
wi = 0
lbllife = life
lblpower = power
lbldefense = defense
lblmp = mp
If boss = False And flame = False And advisor = False And sam = False And talon = False And fre = False And mage = False Then
If rab = 1 Then
lblfname.Caption = "Ghost"
imgfoe.Picture = imgghost.Picture
End If
If rab = 2 Then
lblfname.Caption = "Eye Demon"
imgfoe.Picture = imgeye.Picture
End If
If rab = 3 Then
lblfname.Caption = "Red Killa"
imgfoe.Picture = imgreki.Picture
End If
If rab = 4 Then
lblfname.Caption = "Scorpion"
imgfoe.Picture = imgscor.Picture
End If
If rab >= 5 Then
lblfname.Caption = "Bad Shroom"
imgfoe.Picture = imgmush.Picture
End If
End If
If advisor = True Then
lblfname.Caption = "Gandolf"
imgfoe.Picture = imgmad.Picture
lblrun.Enabled = False
lblfoep = 200
lblfoel = 300
End If
If fre = True Then
lblfname.Caption = "Freedan"
imgfoe.Picture = imgfree.Picture
lblrun.Enabled = False
lblfoep = 9500
lblfoel = 6000
End If
If talon = True Then
lblfname.Caption = "Talon"
imgfoe.Picture = imgdrag.Picture
lblrun.Enabled = False
lblfoep = 1200
lblfoel = 1500
End If
If mage = True Then
lblfname.Caption = "Magus"
imgfoe.Picture = imgmag.Picture
lblrun.Enabled = False
lblfoep = 621
lblfoel = 533
End If
If boss = True Then
lblfname.Caption = "Level Boss"
imgfoe.Picture = imgp(0).Picture
lblrun.Enabled = False
lblfoep = 19021
lblfoel = 19033
End If
If flame = True Then
lblfname.Caption = "Diablo"
imgfoe.Picture = imgfl.Picture
lblrun.Enabled = False
lblfoep = 16021
lblfoel = 15033
End If
If sam = True Then
lblfname.Caption = "Chopper"
imgfoe.Picture = imgsam.Picture
lblrun.Enabled = False
lblfoep = Int(lblpower - (50 * Rnd))
lblfoel = Int(lbllife - (50 * Rnd))
sam1 = True
End If
End Sub



Private Sub lblatt_Click()
s = 0
g = Int(lblpower * Rnd)
lbldam.Caption = g
tmrbasic.Enabled = True
End Sub

Private Sub lblfire_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblfire.BackColor = &H808080
lblatt.BackColor = vbBlack
lblGod.BackColor = vbBlack
lblso.BackColor = vbBlack
lbldemi.BackColor = vbBlack
End Sub

Private Sub lblfname_Click()
'lo.X2 = lo.X2 + 200
End Sub


Private Sub lblGod_Click()
lblatt.Enabled = False
lblfire.Enabled = False
lbldemi.Enabled = False
lblGod.Enabled = False
lblso.Enabled = False
If mp <= 59 Then
MsgBox "Not enough Mp"
Else
mp = mp - 60
lblmp = mp
tmrtor.Enabled = True
End If
g = (Int(lblpower * 0.75)) + Int(500 * Rnd)