ok see this part
Code:
Dim SignPacket As String
If Map.Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex)).Type = TILE_TYPE_SIGN Then
SignNum = Map.Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex)).Data1
SignPacket = "requestsign" & SEP_CHAR & SignNum & SEP_CHAR & END_CHAR
Call SendData(SignPacket)
End If
that is what calls the sign it is not set right to call the sign so you will get no sign. here is how to make it appear on click enter.
Code:
If KeyCode = vbKeyReturn Then
If Map.Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex)).Type = TILE_TYPE_SIGN Then
SignNum = Map.Tile(GetPlayerX(MyIndex), GetPlayerY(MyIndex)).Data1
SignPacket = "requestsign" & SEP_CHAR & SignNum & SEP_CHAR & END_CHAR
Call SendData(SignPacket)
End If
End If
just make sure you add
Code:
Dim SignPacket As String
after the sub name ^^ liek for instance sub Form_keyUp
_________________
Fuck? I really joined in 2006.
Spirea, Chat Rooms, Discussions, Help. everything you need in one spot.
http://spirean.comI love my computer, you never ask for more, you can be my princess or be my whore
Login
Register
FAQ
Search
Members
