Introduction
The reason I posted this is that it currently just updates a small part of the items attributes. And I dont see why that should be. Since it all sends from the server but only recieves a few of them. Don't think this will make a difference to the game but it might save you sometime.
Client Side
Find this:
Code:
' ::::::::::::::::::::::::
' :: Update item packet ::
' ::::::::::::::::::::::::
If (LCase(Parse(0)) = "updateitem") Then
n = Val(Parse(1))
' Update the item
Item(n).Name = Parse(2)
Item(n).Pic = Val(Parse(3))
Item(n).Type = Val(Parse(4))
Item(n).Data1 = 0
Item(n).Data2 = 0
Item(n).Data3 = 0
Exit Sub
End If
Replace it with:
Code:
' ::::::::::::::::::::::::
' :: Update item packet ::
' ::::::::::::::::::::::::
If (LCase(Parse(0)) = "updateitem") Then
n = Val(Parse(1))
' Update the item
Item(n).Name = Parse(2)
Item(n).Pic = Val(Parse(3))
Item(n).Type = Val(Parse(4))
Item(n).Data1 = Val(Parse(5))
Item(n).Data2 = Val(Parse(6))
Item(n).Data3 = Val(Parse(7))
Exit Sub
End If
Server SideFind:
Code:
Sub SendUpdateItemTo(ByVal Index As Long, ByVal ItemNum As Long)
Dim Packet As String
Packet = "UPDATEITEM" & SEP_CHAR & ItemNum & SEP_CHAR & Trim(Item(ItemNum).Name) & SEP_CHAR & Item(ItemNum).Pic & SEP_CHAR & Item(ItemNum).Type & SEP_CHAR & END_CHAR
Call SendDataTo(Index, Packet)
End Sub
Should be:
Code:
Sub SendUpdateItemTo(ByVal Index As Long, ByVal ItemNum As Long)
Dim Packet As String
Packet = "UPDATEITEM" & SEP_CHAR & ItemNum & SEP_CHAR & Trim(Item(ItemNum).Name) & SEP_CHAR & Item(ItemNum).Pic & SEP_CHAR & Item(ItemNum).Type & SEP_CHAR & Item(ItemNum).Data1 & SEP_CHAR & Item(ItemNum).Data2 & SEP_CHAR & Item(ItemNum).Data3 & SEP_CHAR & END_CHAR
Call SendDataTo(Index, Packet)
End Sub
Login
Register
FAQ
Search
Members
