mod06showinfo.bas

这是诛仙外挂的源代码

Attribute VB_Name = "Mod06ShowInfo"
Option Explicit

''显示玩家信息
Sub ShowPartInfo()
On Error Resume Next
    Main.LabInfo2(0).Caption = " " & PartName
    Main.LabInfo2(1).Caption = " " & PartHp & "/" & PartMaxHp
    Main.LabInfo2(2).Caption = " " & PartMp & "/" & PartMaxMp
    Main.LabInfo2(8).Width = (PartHp / PartMaxHp) * Main.LabInfo2(1).Width
    Main.LabInfo2(9).Width = (PartMp / PartMaxMp) * Main.LabInfo2(2).Width
    Main.LabInfo2(3).Caption = " " & PartLevel
    Main.LabInfo2(4).Caption = " " & PartExp & "/" & PartMaxExp & "(" & Format(PartExp / PartMaxExp, "##0.00%") & ")"
    Main.LabInfo2(5).Caption = " " & Int(BagMoney / 10000) & " 金 " & Int((BagMoney Mod 10000) / 100) & " 银 " & (BagMoney Mod 100) & " 铜 "
    Main.LabInfo2(6).Caption = " [" & MapID & "] " & CStr(Int(PartX)) & "，" & CStr(Int(PartY))
    Main.FrameWar1.Caption = "攻击[距离:" & PartAttDis & "]"
    Select Case PartStat '0;站立1;行走2;开始攻击3;正在攻击4;技能6;角色死亡8;寻路中10;掉落11;打坐中
        Case 0
            Main.LabInfo2(7).Caption = " 站立"
        Case 1
            Main.LabInfo2(7).Caption = " 行走"
        Case 2
            Main.LabInfo2(7).Caption = " 开始攻击"
        Case 3
            Main.LabInfo2(7).Caption = " 正在攻击"
        Case 4
            Main.LabInfo2(7).Caption = " 使用技能"
        Case 6
            Main.LabInfo2(7).Caption = " 角色死亡"
        Case 7
            Main.LabInfo2(7).Caption = " 跟随"
        Case 8
            Main.LabInfo2(7).Caption = " 寻路中"
        Case 10
            Main.LabInfo2(7).Caption = " 掉落"
        Case 11
            Main.LabInfo2(7).Caption = " 打坐中"
        Case 12
            Main.LabInfo2(7).Caption = " 拾取"
        Case 13
            Main.LabInfo2(7).Caption = " 召唤宠物"
        Case Else
            Main.LabInfo2(7).Caption = " " & PartStat
    End Select
End Sub
''显示目标信息
Sub ShowSelObjInfo()
On Error Resume Next
    Dim NSelObjName As String
    
    If SelObjId = 0 Then
        Main.FrameInfo2.Caption = "选定目标信息"
        Main.LabInfo4(0).Caption = " 0/0"
        Main.LabInfo4(1).Caption = " 0"
        Main.LabInfo4(2).Caption = " 0,0"
        Main.LabInfo4(3).Width = 0
    Else
        Select Case SelObjKind
            Case 0
                NSelObjName = PartName & "　[自己]"
            Case 3
                NSelObjName = SelObjName & "　[玩家]"
            Case 6
                NSelObjName = SelObjName & "　[怪物]"
            Case 7
                NSelObjName = SelObjName & "　[NPC]"
            Case 9
                NSelObjName = SelObjName & "　[宠物]"
            Case Else
                NSelObjName = SelObjName & "　[未知]"
        End Select
        Main.FrameInfo2.Caption = NSelObjName '& "  [" & SelObjId & "]"
        Main.LabInfo4(0).Caption = " " & SelObjHp & "/" & SelObjMaxHp
        Main.LabInfo4(1).Caption = " " & SelObjLevel
        Main.LabInfo4(2).Caption = " " & CStr(Fix(SelObjX)) & "，" & CStr(Fix(SelObjY))
    End If
End Sub