mod99packcall.bas

这是诛仙外挂的源代码

Attribute VB_Name = "Mod99PackCall"
Option Explicit

Function High2Low(Value As Long, n As Long) As String '高地位互换
On Error Resume Next
    Dim tmp1 As String, tmp2 As String, i As Long
    tmp1 = Right("0000000" + Hex(Value), n)
    For i = 0 To Len(tmp1) / 2 - 1
        tmp2 = tmp2 + Mid(tmp1, Len(tmp1) - 1 - 2 * i, 2)
    Next i
    High2Low = tmp2
End Function
'//邀请组队
'===============================================  (06字节)
'1B 00 01 4A 0A 1F
Sub InviteCall(ObjId As Long)
On Error Resume Next
    Dim PackS As String
    PackS = High2Low(ObjId, 8)
    PackS = "1B00" & PackS
    CallSendPack PackS
End Sub
'//转移队长
'===============================================  (06字节)
'48 00 01 4A 0A 1F
Sub TurnCall(ObjId As Long)
On Error Resume Next
    Dim PackS As String
    PackS = High2Low(ObjId, 8)
    PackS = "4800" & PackS
    CallSendPack PackS
End Sub
'//踢出队伍
'===============================================  (06字节)
'1F 00 01 4A 0A 1F
Sub WeedCall(ObjId As Long)
On Error Resume Next
    Dim PackS As String
    PackS = High2Low(ObjId, 8)
    PackS = "1F00" & PackS
    CallSendPack PackS
End Sub
'//接受组队
'===============================================  (10字节)
'1C 00 01 4A 0A 1F 40 CA 34 46
'      |____ID___|
Sub AcceptCall(ObjId As Long)
On Error Resume Next
    Dim PackS As String
    PackS = High2Low(ObjId, 8)
    PackS = "1C00" & PackS
    PackS = PackS & High2Low(TeamPara, 8)
    CallSendPack PackS
End Sub
'//离开队伍
'===============================================  (02字节)
'1E 00
Sub LeaveCall()
On Error Resume Next
    Dim PackS As String
    PackS = "1E00"
    CallSendPack PackS
End Sub
'//接任务管理员任务
Sub GetNpcTaskCall(TaskId As String)
On Error Resume Next
    Dim PackS As String
    PackS = High2Low(Val(CLng(TaskId)), 4)
    PackS = "25000700000008000000" & PackS & "0000" & High2Low(Val(MapID), 2) & "000000"
    CallSendPack PackS
End Sub
'//接任务
Sub GetTaskCall(TaskId As String)
On Error Resume Next
    Dim PackS As String
    PackS = High2Low(Val(CLng(TaskId)), 4)
    PackS = "25000700000008000000" & PackS & "000000000000"
    CallSendPack PackS
End Sub
'//交任务
Sub SetTaskCall(TaskId As String, Item As Integer)
On Error Resume Next
    Dim PackS As String
    PackS = High2Low(Val(CLng(TaskId)), 4)
    PackS = "25000600000008000000" & PackS & "0000" & High2Low(Val(Item - 1), 8) ' & "000000000000"
    CallSendPack PackS
End Sub
'//丢弃物品
'===============================================  (02字节)
'0E 00 02 05 00
Sub PeckCall(Pos As Integer, Num As Integer)
On Error Resume Next
    Dim PackS As String
    PackS = "0E00" & High2Low(Val(Pos), 2) & High2Low(Val(Num), 2) & "00"
    CallSendPack PackS
End Sub
'//取消选择
'08 00
Sub CancelObj()
On Error Resume Next
    Dim PackS As String
    PackS = "0800"
    CallSendPack PackS
End Sub
'发包激活NPC
Sub POpenNpcCall(NPCID As Long)
On Error Resume Next
    Dim PackS As String
    PackS = "2300" & High2Low(NPCID, 8)
    CallSendPack PackS
End Sub
'发包天人合一
Sub GodAndManCall()
On Error Resume Next
    Dim PackS As String
    PackS = "72000100"
    CallSendPack PackS
End Sub
'移动背包物品
Sub MovePackCall(GoodsPos1 As Integer, GoodsPos2 As Integer)
On Error Resume Next
    Dim PackS As String
    PackS = "0C00" & High2Low(Val(GoodsPos1), 2) & High2Low(Val(GoodsPos2), 2)
    CallSendPack PackS
End Sub
'移动背包物品
Sub MoveHouseCall(GoodsPos1 As Integer, GoodsPos2 As Integer)
On Error Resume Next
    Dim PackS As String
    PackS = "3800" & High2Low(Val(GoodsPos1), 2) & High2Low(Val(GoodsPos2), 2)
    CallSendPack PackS
End Sub