frmmain.frm

一个RPG游戏源代码

         Left            =   480
         TabIndex        =   10
         Top             =   2280
         Width           =   1410
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "人物攻击力:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00004080&
         Height          =   240
         Index           =   1
         Left            =   480
         TabIndex        =   9
         Top             =   1800
         Width           =   1410
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "人物生命值:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00004080&
         Height          =   240
         Index           =   0
         Left            =   480
         TabIndex        =   8
         Top             =   1320
         Width           =   1410
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "人物属性"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00004080&
         Height          =   285
         Left            =   1800
         TabIndex        =   7
         Top             =   360
         Width           =   1200
      End
   End
   Begin VB.Label lblfrm 
      Caption         =   "Label6"
      Height          =   255
      Left            =   8520
      TabIndex        =   22
      Top             =   6000
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Image imgreturn 
      Height          =   375
      Left            =   8280
      Top             =   6720
      Visible         =   0   'False
      Width           =   1245
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "http://lhrvna.w30.west263.cn"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00004080&
      Height          =   240
      Left            =   4200
      TabIndex        =   19
      Top             =   840
      Width           =   3360
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "2003(c) by Argot暗号游戏制作小组"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00004080&
      Height          =   240
      Left            =   2760
      TabIndex        =   18
      Top             =   6825
      Width           =   4200
   End
   Begin VB.Shape kuang 
      BorderColor     =   &H0000C000&
      Height          =   735
      Left            =   360
      Top             =   120
      Width           =   1215
   End
   Begin VB.Label lblexit 
      BackStyle       =   0  'Transparent
      Height          =   375
      Left            =   1080
      TabIndex        =   4
      Top             =   3210
      Width           =   1095
   End
   Begin VB.Label lblcredits 
      BackStyle       =   0  'Transparent
      Height          =   375
      Left            =   960
      TabIndex        =   3
      Top             =   2475
      Width           =   1455
   End
   Begin VB.Label lblload 
      BackStyle       =   0  'Transparent
      Height          =   375
      Left            =   960
      TabIndex        =   2
      Top             =   1755
      Width           =   1455
   End
   Begin VB.Label lblnewgame 
      BackStyle       =   0  'Transparent
      Height          =   375
      Left            =   960
      TabIndex        =   1
      Top             =   1050
      Width           =   1455
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim Running As Boolean 'Is the game running
Dim CurOption As Integer 'Used for setting the DDSIcon position
Dim Background As DirectDrawSurface7 'This holds are background bitmap
Dim BGRect As RECT 'the rect for the BG
Dim DDSIcon As DirectDrawSurface7 'This holds are background bitmap
Dim IconRect As RECT 'the rect for the BG
Dim MouseDown As Boolean 'is the mouse down?
Private Type POINTAPI
        X As Long
        Y As Long
End Type
'jah
'Cursor Location
Dim CURSORPOS As POINTAPI

Private Sub Form_Load()
InitDirectDraw frmmain, 640, 480, 16

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
kuang.Visible = False
End Sub

Private Sub imgbutton_Click()
If lbldianshu.Caption <= 0 Then
Load frmloading
frmloading.Show
Me.Hide
picshuxing.Visible = False
End If
End Sub

Private Sub imgbutton2_Click()
picshuxing.Visible = False
End Sub

Private Sub imgjiantou1_Click(Index As Integer)
If lbldianshu.Caption > 0 Then
lbldianshu.Caption = lbldianshu.Caption - 1
Select Case Index
    Case 0: frmstate.lblrengong.Caption = frmstate.lblrengong.Caption + 1: lblrengong.Caption = lblrengong.Caption + 1
    Case 1: frmstate.lblrenfang.Caption = frmstate.lblrenfang.Caption + 1: lblrenfang.Caption = lblrenfang.Caption + 1
    Case 2: frmstate.lblrenmin.Caption = frmstate.lblrenmin.Caption + 1: lblrenmin.Caption = lblrenmin.Caption + 1
    Case 3: frmstate.lblrenxue.Caption = frmstate.lblrenxue.Caption + 1: lblrenxue.Caption = lblrenxue.Caption + 1
End Select
End If
End Sub

Private Sub imgjiantou1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
imgjiantou1(Index).Picture = LoadPicture(App.Path + "\bar\right2.ico")
End Sub

Private Sub imgno_Click()
picexit.Visible = False
End Sub

Private Sub imgreturn_Click()
Select Case lblfrm.Caption
    Case "frmmap1": Load frmmap1: frmmap1.Show: Me.Hide
    Case "frmmap2": Load frmmap2: frmmap2.Show: Me.Hide
    Case "frmmap3": Load frmmap3: frmmap3.Show: Me.Hide
    Case "frmmap4": Load frmmap4: frmmap4.Show: Me.Hide
    Case "frmmap5": Load frmmap5: frmmap5.Show: Me.Hide
    Case "frmmap6": Load frmmap6: frmmap6.Show: Me.Hide
    Case "frmmap7": Load frmmap7: frmmap7.Show: Me.Hide
    Case "frmmap8": Load frmmap8: frmmap8.Show: Me.Hide
    Case "frmattack": Load frmattack: frmmap1.Show: Me.Hide
End Select
End Sub

Private Sub imgyes_Click()
End
End Sub

Private Sub imgok_Click()

End Sub

Private Sub lblcredits_Click()
Load frmzuozhe
frmzuozhe.Show
Me.Hide
End Sub

Private Sub lblcredits_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
kuang.Width = lblcredits.Width
kuang.Height = lblcredits.Height
kuang.Left = lblcredits.Left
kuang.Top = lblcredits.Top
kuang.Visible = True
End Sub

Private Sub lblexit_Click()
    picexit.Visible = True
End Sub

Private Sub lblexit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
kuang.Width = lblexit.Width
kuang.Height = lblexit.Height
kuang.Left = lblexit.Left
kuang.Top = lblexit.Top
kuang.Visible = True
End Sub

Private Sub lblload_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
kuang.Width = lblload.Width
kuang.Height = lblload.Height
kuang.Left = lblload.Left
kuang.Top = lblload.Top
kuang.Visible = True
End Sub

Private Sub lblnewgame_Click()
picshuxing.Visible = True
End Sub

Private Sub lblnewgame_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
kuang.Width = lblnewgame.Width
kuang.Height = lblnewgame.Height
kuang.Left = lblnewgame.Left
kuang.Top = lblnewgame.Top
kuang.Visible = True
End Sub

Private Sub picshuxing_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgjiantou1(0).Picture = LoadPicture(App.Path + "\bar\right1.ico")
imgjiantou1(1).Picture = LoadPicture(App.Path + "\bar\right1.ico")
imgjiantou1(2).Picture = LoadPicture(App.Path + "\bar\right1.ico")
imgjiantou1(3).Picture = LoadPicture(App.Path + "\bar\right1.ico")
End Sub