Mirage Source
Travel System - Printable Version

+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Staff (https://mirage-engine.uk/forums/forumdisplay.php?fid=41)
+----- Forum: Trash (https://mirage-engine.uk/forums/forumdisplay.php?fid=14)
+------ Forum: Key To Heaven (https://mirage-engine.uk/forums/forumdisplay.php?fid=22)
+------ Thread: Travel System (/showthread.php?tid=1348)

Travel System - William - 16-10-2007

I just finished programming my travel system. Here you have a screenshot how it looks:
[Image: travelpl8.png]
Just see how simple it is to program, took me like 10 minutes to complete this and the other parts for it. Smile
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


Re: Travel System - Johny050 - 04-12-2008

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

Re: Travel System - Matt - 04-12-2008

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

Re: Travel System - GIAKEN - 04-12-2008

Perfekt Wrote: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.

Re: Travel System - Matt - 04-12-2008

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

Re: Travel System - Johny050 - 04-12-2008

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.

Re: Travel System - Matt - 05-12-2008

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.

Re: Travel System - GIAKEN - 05-12-2008

Perfekt Wrote: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.

Re: Travel System - Ramsey - 20-12-2008

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