Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Check to see if the tile is an instance tile, and if so ... yeah
- If .Type = TILE_TYPE_INSTANCE Then
- mapNum = .data1
- x = .data2
- y = .data3
- 'Heres the fun part XD [Rose] was here xD
- Dim i As Long, t As Long, imap As Long, min As Long, max As Long
- Dim instance As Boolean
- min = 100
- max = 150
- ' No instan-ception >:O ! - [rose] was here :D
- For t = min To max
- If GetPlayerMap(index) = t Then
- Exit Sub
- End If
- Next t
- instance = True
- For imap = min To max - 1
- For i = 0 To Player_HighIndex
- If GetPlayerMap(i) = imap Then
- instance = False
- End If
- Next i
- If instance Then
- Call InstanceMap(mapNum, imap)
- SendMap index, imap
- PlayerWarp index, imap, x, y
- Exit For
- End If
- Next imap
- Moved = YES
- End If
- End With
Add Comment
Please, Sign In to add comment