Travel System

[William]

I just finished programming my travel system. Here you have a screenshot how it looks:

Just see how simple it is to program, took me like 10 minutes to complete this and the other parts for it.

Code:

Private Sub HandleSMsgTravel(ByVal index As Long, ByVal StartAddr As Long, ByVal ByteLen As Long, ByVal ExtraVar As Long)
Dim Buffer() As Byte
  Dim Destination As Byte, i As Long
  
  Buffer = FillBuffer(StartAddr, ByteLen)
  
  Destination = GetByteFromBuffer(Buffer, True)
  
  If Destination < 1 Or Destination > 3 Then Exit Sub
  
  If Destination = 1 Then
        If TakeGold(index, 1, 40) = True Then
            Call PlayerWarp(index, 15, 16, 9)
            If RandomNumber(1, 10) = 1 Then
                Call TakeItem(index, 1, 20)
            Else
                Call BattleMsg(index, "The ship got you there saftly.", Yellow, 0)
            End If
        Else
            Call BattleMsg(index, "You do not have 40 gold.", Red, 0)
        End If
  ElseIf Destination = 2 Then
        If GetPlayerLevel(index) >= 20 Then
            If TakeGold(index, 1, 40) = True Then
                Call PlayerWarp(index, 60, 6, 10)
                If RandomNumber(1, 10) = 1 Then
                Call TakeItem(index, 1, 20)
            Else
                Call BattleMsg(index, "The ship got you there saftly.", Yellow, 0)
            End If
            Else
                Call BattleMsg(index, "You do not have 40 gold.", Red, 0)
            End If
        Else
            Call BattleMsg(index, "You need to be level 20 or above to travel to this location.", Red, 0)
        End If
  ElseIf Destination = 3 Then
        If GetPlayerLevel(index) >= 35 Then
            If TakeGold(index, 1, 40) = True Then
                Call PlayerWarp(index, 124, 10, 10)
                If RandomNumber(1, 10) = 1 Then
                Call TakeItem(index, 1, 20)
            Else
                Call BattleMsg(index, "The ship got you there saftly.", Yellow, 0)
            End If
            Else
                Call BattleMsg(index, "You do not have 40 gold.", Red, 0)
            End If
        Else
            Call BattleMsg(index, "You need to be level 35 or above to travel to this location.", Red, 0)
        End If
  End If
End Sub

[Johny050]

William, this is even so simple that you could use a packet editor to warp you to a other ship location from any place.

[Matt]

If you really know how to packet hack, you could use this to teleport to any map, with any x and y you choose.

[GIAKEN]

If you really know how to packet hack, you could use this to teleport to any map, with any x and y you choose.

How?

You could easily choose which location you wanted through packet editing...but definitely not any map or x and y because they're not controlled by the packet.

[Matt]

If you know what you're doing, you can add that to the packet and what not.

[Johny050]

nope, the packet will only send which destination you want to go too, either 1, 2 or 3. It doesn't give you the oppertunity
to choose your own map, x and y.

[Matt]

Any packet can be manipulated.

It just takes writing code in the packet and shit. Wouldn't be hard to call a player warp in there.

[GIAKEN]

Any packet can be manipulated.

It just takes writing code in the packet and shit. Wouldn't be hard to call a player warp in there.

Eh? I'm not seeing the legitimacy of this...the packet only holds a string and the server is only set up right there to use the location part of the packet...you can't make the server call code that's not there unless it did an execute code line that would call a command from a string, which it does not. Or if William did Call PlayerWarp(Index, Parse(whatever), Parse(whatever), Parse(whatever)) then you could change what the client sends easily, but he hasn't done that.

[Ramsey]

For the messages you sent to the player, it should be safely not saftly.