Sistema de pasajes con timer

» 16 Ene 2012 18:51

Hola gente miren estoy tratando de haer un sistema de barcon con timer. El sistema consiste en que el usuario compra un pasaje hacia, no se nix-bander, el usuario es sumoneado a un barco osea un mapa y para llegar a destino tardarà x tiempo. Bueno yo eh hecho algo asì me basè en el sistema de pasajes de Mithrandir

Bueno acà va el code:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Call SendData(toindex, UserIndex, 0, "||¡¡Estas muerto!! Solo podes usar items cuando estas vivo." & FONTTYPE_INFO)
Exit Sub
End If
'Se asegura que el target es un npc
If UserList(UserIndex).flags.TargetNPC = 0 Then
    Call SendData(SendTarget.toindex, UserIndex, 0, "||Primero tenes que seleccionar un personaje, hace click izquierdo sobre el." & FONTTYPE_INFO)
    Exit Sub
End If
'Si no es pirata no seguimos JUMP!
If Npclist(UserList(UserIndex).flags.TargetNPC).NPCtype <> eNPCType.Pirata Then
    Call SendData(SendTarget.toindex, UserIndex, 0, "||Primero debes hacer click sobre el pirata." & FONTTYPE_INFO)
Exit Sub
End If
'Distancia ^^
If Distancia(Npclist(UserList(UserIndex).flags.TargetNPC).Pos, UserList(UserIndex).Pos) > 3 Then
    Call SendData(SendTarget.toindex, UserIndex, 0, "||Estás demasiado lejos del pirata." & FONTTYPE_INFO)
Exit Sub
End If
'No es de aca :$
If Not UserList(UserIndex).Pos.Map = Obj.DesdeMapa Then
    Call SendData(SendTarget.toindex, UserIndex, 0, "||No has logrado viajar, verifica su punto de partida!" & FONTTYPE_INFO)
Exit Sub
End If
'Mapa inválido
If Not MapaValido(Obj.HastaMapa) Then
    Call SendData(SendTarget.toindex, UserIndex, 0, "||El pasaje lleva hacia un mapa que ya no esta disponible! Disculpa las molestias." & FONTTYPE_INFO)
Exit Sub
End If
 
Public Sub Barco()
Call WarpUserChar(UserIndex, Obj.MapaBarco, True)
Call sendata(SendataTarget.toindex, UserIndex, 0, "||Has sido llevado al barco, tu viaje tardarà " & MinutosBarco & " minutos." & FONTTYPE_INFO)
    Exit Sub
End Sub
Public Sub LLegoDestino()
    Call WarpUserChar(UserIndex, Obj.HastaMapa, Obj.HastaX, Obj.HastaY, True)
    Call SendData(SendTarget.toindex, UserIndex, 0, "||Has viajado por varios días, te sientes exhausto!" & FONTTYPE_INFO)
    UserList(UserIndex).Stats.MinAGU = 0
    UserList(UserIndex).Stats.MinHam = 0
    Call EnviarHambreYsed(UserIndex)
    Call QuitarUserInvItem(UserIndex, Slot, 1)
    Call UpdateUserInv(False, UserIndex, Slot)
Exit Sub
End Sub
 
 

Y el timer

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Public TimeBarco As Integer
 
Private Sub tBarco_Timer()
On Error Resume Next
If TimeBarco = 3 Then
If TimeBarco = -3 Then
Call LLegoDestino
End If
Exit Sub
End Sub

Yo queria pregunta si esto està bien porque creo que no va a funcionar

» 16 Ene 2012 21:07

Para que un timer que causa lag ???

» 16 Ene 2012 21:48

No creo, pero igual me gusta asì queda no se como màs rol ademas ya tengo el barco armado y lo dejo ya preparado por si lo quiera agregar en algùn otro proyecto.

» 17 Ene 2012 14:08

Podes usar el Sub pasarsegundo, asi no generas lag con el timer.

Sistema de pasajes con timer

¿Quién está conectado?