Guest User

Untitled

a guest
Aug 12th, 2018
93
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.   ' Check to see if the tile is an instance tile, and if so ... yeah
  2.        If .Type = TILE_TYPE_INSTANCE Then
  3.             mapNum = .data1
  4.             x = .data2
  5.             y = .data3
  6.            
  7.             'Heres the fun part XD [Rose] was here xD
  8.            Dim i As Long, t As Long, imap As Long, min As Long, max As Long
  9.             Dim instance As Boolean
  10.             min = 100
  11.             max = 150
  12.            
  13.             ' No instan-ception >:O ! - [rose] was here :D
  14.            For t = min To max
  15.                 If GetPlayerMap(index) = t Then
  16.                     Exit Sub
  17.                 End If
  18.             Next t
  19.            
  20.         instance = True
  21.  
  22.             For imap = min To max - 1
  23.                 For i = 0 To Player_HighIndex
  24.                     If GetPlayerMap(i) = imap Then
  25.                         instance = False
  26.                     End If
  27.                 Next i
  28.                
  29.                 If instance Then
  30.                     Call InstanceMap(mapNum, imap)
  31.                     SendMap index, imap
  32.                     PlayerWarp index, imap, x, y
  33.                     Exit For
  34.                 End If
  35.             Next imap
  36.            
  37.             Moved = YES
  38.         End If
  39.     End With
Add Comment
Please, Sign In to add comment