Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Sub Generar_Fases()
- Dim LoopC As Long
- Dim LoopX As Long
- Dim LoopI As Long
- Dim X As Byte
- Dim Y As Byte
- Dim Tp As Obj
- Tp.objIndex = 1012
- Tp.Amount = 1
- With Teleports
- X = X_FaseInicial
- .InscripcionActivada = True
- For LoopC = 1 To Cantidad_Fases
- X = X + Fase_Separamiento
- For LoopI = 1 To Max_Usuarios
- Y = Y_FaseInicial - LoopI
- With MapData(Mapa_Evento, X, Y).TileExit
- .map = Mapa_Evento
- .X = X_Evento
- .Y = Y_Evento
- End With
- If .InscripcionActivada = True Then Call MakeObj(Tp, Mapa_Evento, X, Y)
- Next LoopI
- Y = CByte(RandomNumber(Y_FaseInicial, (Y_FaseInicial - Max_Usuarios)))
- For LoopX = 1 To Cantidad_TPs
- .Fase(LoopC).Teleport(LoopX).X = X
- .Fase(LoopC).Teleport(LoopX).Y = Y
- With MapData(Mapa_Evento, X, Y)
- .TileExit.map = Mapa_Evento
- .TileExit.X = X + 5
- .TileExit.Y = Y
- End With
- Next LoopX
- Next LoopC
- End With
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement