frmitem.frm

一个RPG游戏源代码

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
kuangrighthand.Visible = False
kuanglefthand.Visible = False
kuangbody.Visible = False
kuanghead.Visible = False
End Sub


Private Sub imgbutton_Click(Index As Integer)
Select Case Index
    Case 0: picbuywhat.Visible = True: lblbuywhat.Caption = lblbuywhat.Caption & lblweapon(Index).Caption & "?"
    Case 1:
        frmstate.lblwuligong.Caption = 0: frmstate.lblwulimin.Caption = 0: frmstate.lblwulifang.Caption = 0:  frmstate.lblwuqi.Caption = ""
        righthand = ""
        lefthand = ""
        body = ""
        head = ""

    If righthand <> lblrighthand.Caption Then
        Select Case lblrighthand.Caption
        Case "短弩": gong = 10: min = 3: fang = -1: shuxing: frmstate.lblwuqi.Caption = "弩"
        Case "长弩": gong = 15: min = 5: fang = -2: shuxing: frmstate.lblwuqi.Caption = "弩"
        Case "巨弩": gong = 20: min = 7: fang = -4: shuxing: frmstate.lblwuqi.Caption = "弩"
        Case "短弓": gong = 12: min = -2: fang = -1: shuxing: frmstate.lblwuqi.Caption = "弓"
        Case "长弓": gong = 17: min = -4: fang = -2: shuxing: frmstate.lblwuqi.Caption = "弓"
        Case "强弓": gong = 25: min = -7: fang = -4: shuxing: frmstate.lblwuqi.Caption = "弓"
        Case "短剑1": gong = 15: min = -4: fang = 5: shuxing: frmstate.lblwuqi.Caption = "剑"
        Case "短剑2": gong = 18: min = -6: fang = 8: shuxing: frmstate.lblwuqi.Caption = "剑"
        Case "青铜剑": gong = 20: min = -8: fang = 8: shuxing: frmstate.lblwuqi.Caption = "剑"
        Case "罗马剑": gong = 20: min = -6: fang = 8: shuxing: frmstate.lblwuqi.Caption = "剑"
        Case "海盗剑": gong = 25: min = -10: fang = 8: shuxing: frmstate.lblwuqi.Caption = "剑"
        Case "海盗的大刀": gong = 35: min = -10: fang = -10: shuxing: frmstate.lblwuqi.Caption = "剑"
        Case "海盗的斧子": gong = 40: min = -15: fang = 0: shuxing: frmstate.lblwuqi.Caption = "斧"
        Case "短斧": gong = 25: min = -10: fang = 0: shuxing: frmstate.lblwuqi.Caption = "斧"
        Case "巨斧": gong = 50: min = -20: fang = -2: shuxing: frmstate.lblwuqi.Caption = "斧"
        Case "匕首": gong = 10: min = -1: fang = 2: shuxing: frmstate.lblwuqi.Caption = "剑"
        Case "双面斧": gong = 30: min = -12: fang = -5: shuxing: frmstate.lblwuqi.Caption = "斧"
        Case "板斧": gong = 27: min = -12: fang = -3: shuxing: frmstate.lblwuqi.Caption = "斧"
        Case "长斧": gong = 35: min = -12: fang = -3: shuxing: frmstate.lblwuqi.Caption = "斧"
        Case "长剑": gong = 27: min = -8: fang = 6: shuxing: frmstate.lblwuqi.Caption = "剑"
        Case "小棍棒": gong = 7: min = 2: fang = 1: shuxing: frmstate.lblwuqi.Caption = "棍"
        Case "大棍棒": gong = 15: min = 5: fang = 2: shuxing: frmstate.lblwuqi.Caption = "棍"
        Case "狼牙棒": gong = 15: min = -5: fang = 1: shuxing: frmstate.lblwuqi.Caption = "棍"
        Case "弯钩": gong = 12: min = 2: fang = 1: shuxing: frmstate.lblwuqi.Caption = "斧"
        Case "短枪": gong = 20: min = -5: fang = -4: shuxing: frmstate.lblwuqi.Caption = "枪"
        Case "标枪": gong = 15: min = -3: fang = -2: shuxing: frmstate.lblwuqi.Caption = "枪"
        Case "长枪": gong = 25: min = -7: fang = -5: shuxing: frmstate.lblwuqi.Caption = "枪"
        End Select
        righthand = lblrighthand.Caption
    End If
    
    If lefthand <> lbllefthand.Caption Then
        Select Case lbllefthand.Caption
        Case "木盾": gong = 0: min = -1: fang = 3: shuxing
        Case "小钢盾": gong = 0: min = -2: fang = 5: shuxing
        Case "小钢盾": gong = 0: min = -5: fang = 10: shuxing
        Case "海盗盾": gong = 0: min = -7: fang = 15: shuxing
        Case "骑士盾": gong = 0: min = -10: fang = 21: shuxing
        End Select
        lefthand = lbllefthand.Caption
    End If

    If body <> lblbody.Caption Then
        Select Case lblbody.Caption
        Case "护身服1": gong = 0: min = 2: fang = 5: shuxing
        Case "护身服2": gong = 0: min = 3: fang = 7: shuxing
        Case "轻铠甲": gong = 0: min = -5: fang = 12: shuxing
        Case "厚铠甲": gong = 0: min = -8: fang = 16: shuxing
        Case "重铠甲": gong = 0: min = -10: fang = 20: shuxing
        End Select
        body = lblbody.Caption
    End If
    
    If head <> lblhead.Caption Then
        Select Case lblhead.Caption
        Case "帽子1": gong = 0: min = 1: fang = 3: shuxing
        Case "帽子2": gong = 0: min = 2: fang = 5: shuxing
        Case "头盔1": gong = 0: min = -2: fang = 6: shuxing
        Case "头盔2": gong = 0: min = -3: fang = 8: shuxing
        Case "海盗的头盔": gong = 0: min = -5: fang = 11: shuxing
        End Select
        head = lblhead.Caption
    End If


    Select Case lblfrm.Caption
        Case "frmmap1":
        Load frmmap1
        frmmap1.Show
        Me.Hide
        Case "frmbuy"
        frmbuy.Show
        Me.Hide
    End Select
End Select
End Sub

Private Sub imgitem_Click(Index As Integer)
Select Case lblitem(Index).Caption
    Case "恢复剂1":
    If frmstate.lblxue.Caption < CInt(frmstate.lblxuexian.Caption) Then
    If CInt(frmstate.lblxue.Caption) + 50 < CInt(frmstate.lblxuexian.Caption) Then
    frmstate.lblxue.Caption = frmstate.lblxue.Caption + 50
    lblitem(Index).Caption = "": imgitem(Index).Picture = LoadPicture(App.Path + "\bar\weaponnone.gif")
    Else:
    lblitem(Index).Caption = "": imgitem(Index).Picture = LoadPicture(App.Path + "\bar\weaponnone.gif")
    frmstate.lblxue.Caption = (frmstate.lblxuexian.Caption)
    End If
    End If
    Case "恢复剂2":
    If frmstate.lblxue.Caption < CInt(frmstate.lblxuexian.Caption) Then
    If CInt(frmstate.lblxue.Caption) + 200 < CInt(frmstate.lblxuexian.Caption) Then
    frmstate.lblxue.Caption = frmstate.lblxue.Caption + 200
    lblitem(Index).Caption = "":  imgitem(Index).Picture = LoadPicture(App.Path + "\bar\weaponnone.gif")
    Else:
    lblitem(Index).Caption = "":  imgitem(Index).Picture = LoadPicture(App.Path + "\bar\weaponnone.gif")
    frmstate.lblxue.Caption = (frmstate.lblxuexian.Caption)
    End If
    End If
    Case "恢复剂3":
    lblitem(Index).Caption = "":  imgitem(Index).Picture = LoadPicture(App.Path + "\bar\weaponnone.gif")
    frmstate.lblxue.Caption = (frmstate.lblxuexian.Caption)
    Case "止血草":
    If frmstate.lblxue.Caption < CInt(frmstate.lblxuexian.Caption) Then
    If CInt(frmstate.lblxue.Caption) + 20 < CInt(frmstate.lblxuexian.Caption) Then
    frmstate.lblxue.Caption = frmstate.lblxue.Caption + 20
    lblitem(Index).Caption = "":  imgitem(Index).Picture = LoadPicture(App.Path + "\bar\weaponnone.gif")
    Else:
    lblitem(Index).Caption = "":  imgitem(Index).Picture = LoadPicture(App.Path + "\bar\weaponnone.gif")
    frmstate.lblxue.Caption = (frmstate.lblxuexian.Caption)
    End If
    End If
End Select
End Sub

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

Private Sub imgok_Click()
Select Case lblkind(whichwuqi).Caption
Case "武器": lblrighthand.Caption = "无"
Case "盾": lbllefthand.Caption = "无"
Case "护甲": lblbody.Caption = "无"
Case "头盔": lblhead.Caption = "无"
End Select
frmstate.lblwuligong.Caption = 0: frmstate.lblwulimin.Caption = 0: frmstate.lblwulifang.Caption = 0:  frmstate.lblwuqi.Caption = ""
imgweapon(whichwuqi).Picture = LoadPicture(App.Path + "\bar\weaponnone.gif")
lblweapon(whichwuqi).Caption = ""
lblkind(whichwuqi).Caption = ""
picbuywhat.Visible = False
kuang(whichwuqi).Visible = False
righthand = ""
lefthand = ""
body = ""
head = ""
End Sub

Private Sub imgweapon_DblClick(Index As Integer)
kuang(i).Visible = True
kuang(i).Left = imgweapon(i).Left
kuang(i).Top = imgweapon(i).Top
kuang(i).Height = imgweapon(i).Height
kuang(i).Width = imgweapon(i).Width
whichwuqi = Index
whichwuqi2 = Index
whichwuqi3 = Index
whichwuqi4 = Index
    righthand = ""
    lefthand = ""
frmstate.lblwuligong.Caption = 0: frmstate.lblwulimin.Caption = 0: frmstate.lblwulifang.Caption = 0:  frmstate.lblwuqi.Caption = ""
For ii = 0 To 5

If lblkind(Index).Caption = "武器" Then
    kuang(whichwuqi).Visible = True
    kuang(whichwuqi).BorderColor = &HFF&
    If lblweapon(ii).Caption = lblrighthand.Caption Then
        kuang(ii).Visible = False
        kuang(ii).BorderColor = &H80FF80
    End If
End If

If lblkind(Index).Caption = "盾" Then
    kuang(whichwuqi2).Visible = True
    kuang(whichwuqi2).BorderColor = &HFF&
    If lblweapon(ii).Caption = lbllefthand.Caption Then
        kuang(ii).Visible = False
        kuang(ii).BorderColor = &HFF00FF
    End If
End If

If lblkind(Index).Caption = "护甲" Then
    kuang(whichwuqi3).Visible = True
    kuang(whichwuqi3).BorderColor = &HFF&
    If lblweapon(ii).Caption = lblbody.Caption Then
        kuang(ii).Visible = False
        kuang(ii).BorderColor = &HFF00FF
    End If
End If

If lblkind(Index).Caption = "头盔" Then
    kuang(whichwuqi4).Visible = True
    kuang(whichwuqi4).BorderColor = &HFF&
    If lblweapon(ii).Caption = lblhead.Caption Then
        kuang(ii).Visible = False
        kuang(ii).BorderColor = &HFF00FF
    End If
End If
Next
huanwuqi
End Sub

Private Sub imgweapon_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Select Case Index
        Case o: i = 0:
        Case 1: i = 1:
        Case 2: i = 2:
        Case 3: i = 3:
        Case 4: i = 4:
        Case 5: i = 5:
    End Select
    Select Case lblweapon(i).Caption
        Case "弩": lblmessage1.Caption = "长程武器,可远距离攻击敌人,且准确度高.(攻+10\敏+5\防-1)"
    End Select
End Sub

Private Sub lblmessage1_Change()
    lblmessage2.Caption = lblmessage1.Caption
End Sub

Private Sub huanwuqi()
If lblkind(whichwuqi).Caption = "武器" Then
    lblrighthand.Caption = lblweapon(whichwuqi).Caption
End If

If lblkind(whichwuqi).Caption = "盾" Then
    lbllefthand.Caption = lblweapon(whichwuqi2).Caption
End If

If lblkind(whichwuqi).Caption = "护甲" Then
    lblbody.Caption = lblweapon(whichwuqi3).Caption
End If

If lblkind(whichwuqi).Caption = "头盔" Then
    lblhead.Caption = lblweapon(whichwuqi4).Caption
End If
End Sub

Private Sub lblbody_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    kuangbody.Left = lblbody.Left
    kuangbody.Top = lblbody.Top
    kuangbody.Width = lblbody.Width
    kuangbody.Height = lblbody.Height
    kuangbody.Visible = True
    kuangrighthand.Visible = False
    kuanglefthand.Visible = False
    kuanghead.Visible = False
End Sub

Private Sub lblhead_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    kuanghead.Left = lblhead.Left
    kuanghead.Top = lblhead.Top
    kuanghead.Width = lblhead.Width
    kuanghead.Height = lblhead.Height
    kuanghead.Visible = True
    kuangrighthand.Visible = False
    kuanglefthand.Visible = False
    kuangbody.Visible = False
End Sub

Private Sub lbllefthand_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    kuanglefthand.Left = lbllefthand.Left
    kuanglefthand.Top = lbllefthand.Top
    kuanglefthand.Width = lbllefthand.Width
    kuanglefthand.Height = lbllefthand.Height
    kuanglefthand.Visible = True
    kuangrighthand.Visible = False
    kuangbody.Visible = False
    kuanghead.Visible = False
End Sub

Private Sub lblrighthand_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    kuangrighthand.Left = lblrighthand.Left
    kuangrighthand.Top = lblrighthand.Top
    kuangrighthand.Width = lblrighthand.Width
    kuangrighthand.Height = lblrighthand.Height
    kuangrighthand.Visible = True
    kuanglefthand.Visible = False
    kuangbody.Visible = False
    kuanghead.Visible = False
End Sub

Private Sub lblrighthand_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        For ii = 0 To 5
        If lblweapon(ii).Caption = lblrighthand.Caption Then
            kuang(ii).Visible = False
            kuang(ii).BorderColor = &HFF&
        End If
        Next
        lblrighthand.Caption = "无"
        righthand = ""
        lefthand = ""
        body = ""
        head = ""
        frmstate.lblwuligong.Caption = 0: frmstate.lblwulimin.Caption = 0: frmstate.lblwulifang.Caption = 0:  frmstate.lblwuqi.Caption = ""
        kuangrighthand.Visible = False
    End If
End Sub

Private Sub lblbody_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        For ii = 0 To 5
        If lblweapon(ii).Caption = lblbody.Caption Then
            kuang(ii).Visible = False
            kuang(ii).BorderColor = &HFF&
        End If
        Next
        righthand = ""
        lefthand = ""
        body = ""
        head = ""
        lblbody.Caption = "无"
        frmstate.lblwuligong.Caption = 0: frmstate.lblwulimin.Caption = 0: frmstate.lblwulifang.Caption = 0:  frmstate.lblwuqi.Caption = ""

        kuangbody.Visible = False
    End If
End Sub

Private Sub lblhead_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        For ii = 0 To 5
        If lblweapon(ii).Caption = lblhead.Caption Then
            kuang(ii).Visible = False
            kuang(ii).BorderColor = &HFF&
        End If
        Next
        lblhead.Caption = "无"
        righthand = ""
        lefthand = ""
        body = ""
        head = ""
        frmstate.lblwuligong.Caption = 0: frmstate.lblwulimin.Caption = 0: frmstate.lblwulifang.Caption = 0:  frmstate.lblwuqi.Caption = ""
        kuanghead.Visible = False
    End If
End Sub

Private Sub lbllefthand_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        For ii = 0 To 5
        If lblweapon(ii).Caption = lbllefthand.Caption Then
            kuang(ii).Visible = False
            kuang(ii).BorderColor = &HFF&
        End If
        Next
        lbllefthand.Caption = "无"
        righthand = ""
        lefthand = ""
        body = ""
        head = ""
        frmstate.lblwuligong.Caption = 0: frmstate.lblwulimin.Caption = 0: frmstate.lblwulifang.Caption = 0:  frmstate.lblwuqi.Caption = ""

        kuanglefthand.Visible = False
    End If
End Sub