OBJETOS CON VELOCIDAD (NO ANDA)

[SERVIDOR 0112]

Vamos a Declares y donde dice


Código de Visual Basic:
--------------------------------------------------------------------------------
Public MixedKey As Long
--------------------------------------------------------------------------------



Arriba ponemos


Código de Visual Basic:
--------------------------------------------------------------------------------
Public TIEMPOX As Integer
--------------------------------------------------------------------------------



Dps en el mismo modulo,, Mas abajo,, En Los UserFlags
Buscamos


Código de Visual Basic:
--------------------------------------------------------------------------------
Type UserFlags
--------------------------------------------------------------------------------



Y abajo ponemos


Código de Visual Basic:
--------------------------------------------------------------------------------
EnVelocidad As Byte
--------------------------------------------------------------------------------



UN toque arriba dice


Código de Visual Basic:
--------------------------------------------------------------------------------
Public Type ObjData
--------------------------------------------------------------------------------



ABajo poemos


Código de Visual Basic:
--------------------------------------------------------------------------------
AumentaVelo As Byte
Velo As Integer
--------------------------------------------------------------------------------



Buscamos


Código de Visual Basic:
--------------------------------------------------------------------------------
Case "M"
--------------------------------------------------------------------------------



Y En donde Dice


Código de Visual Basic:
--------------------------------------------------------------------------------
If UserList(UserIndex).flags.TimesWalk >= 30 Then
--------------------------------------------------------------------------------


Lo Cambiamos por esto

Código de Visual Basic:
--------------------------------------------------------------------------------
If Userlist(Userindex).flags.EnVelocidad = 0 Then
TIEMPOX = 30
End If
If UserList(UserIndex).flags.TimesWalk >= TIEMPOX Then
--------------------------------------------------------------------------------



Mas abajo donde dice

Código de Visual Basic:
--------------------------------------------------------------------------------
If Not UserList(UserIndex).flags.CountSH = 0 Then
--------------------------------------------------------------------------------


Arriba ponemos

Código de Visual Basic:
--------------------------------------------------------------------------------
If Userlist(userindex).flags.envelocidad = 1 Then
Userlist(userindex).flags.countsh = 0
Else
--------------------------------------------------------------------------------



Cosa q qede asi


Código de Visual Basic:
--------------------------------------------------------------------------------

If Userlist(userindex).flags.envelocidad = 1 Then
Userlist(userindex).flags.countsh = 0
Else
If Not UserList(UserIndex).flags.CountSH = 0 Then
dummy = 126000 / dummy
Call LogHackAttemp("Tramposo SH: " & UserList(UserIndex).Name & " , " & dummy)
Call SendData(ToAdmins, 0, 0, "||Servidor> " & UserList(UserIndex).Name & " ha sido echado por el servidor por posible uso de SH." & FONTTYPE_SERVER)
Call CloseSocket(UserIndex)
Exit Sub
Else
UserList(UserIndex).flags.CountSH = TempTick
End If
End If
UserList(UserIndex).flags.StartWalk = TempTick
UserList(UserIndex).flags.TimesWalk = 0
End If
End If
--------------------------------------------------------------------------------



Dps Buscamos

Código de Visual Basic:
--------------------------------------------------------------------------------
Sub LoadOBJData
--------------------------------------------------------------------------------



Y Abajo en donde dice


Código de Visual Basic:
--------------------------------------------------------------------------------
ObjData(Object).Name = Leer.DarValor("OBJ" & Object, "Name")
--------------------------------------------------------------------------------



Ponen


Código de Visual Basic:
--------------------------------------------------------------------------------
ObjData(Object).AumentaVelo = Leer.DarValor("OBJ" & Object, "AumentaVel")
ObjData(Object).Velo = Val(Leer.DarValor("OBJ" & Object, "Vel"))
--------------------------------------------------------------------------------



Dps en el Sub EquiparInvItem

Abajo de


Código de Visual Basic:
--------------------------------------------------------------------------------
If Obj.Newbie = 1 And Not EsNewbie(UserIndex) Then
Call SendData(ToIndex, UserIndex, 0, "||Solo los newbies pueden usar este objeto." & FONTTYPE_INFO)
Exit Sub
End If
--------------------------------------------------------------------------------



Ponen


Código de Visual Basic:
--------------------------------------------------------------------------------
If obj.aumentavelo = 1 Then
userlist(userindex).flags.EnVelocidad = 1
If Obj.velo => 61 Or obj.velo <= 29 Then
Unload FrmMain 'pra q se den cuenta q cuando dice 'Min 30, Max 60 Me hagan caso
Else
Tiempox = obj.velo
End If
End If
--------------------------------------------------------------------------------



Y por ultimo en Sub Desequipar

Vamos Por los distintos tipos de objetos ( OBJTYPE_HERRAMIENTAS, OBJTYPE_MATES, etc.. )
Poniendo esto

ARRIBA DEL UserList(UserIndex).Invent.Object(Slot).Equipped = 0


Código de Visual Basic:
--------------------------------------------------------------------------------
If Obj.aumentavelo = 1 Then
userlist(userindex).flags.envelocidad = 0
Tiempox = 30
End If
UserList(UserIndex).Invent.Object(Slot).Equipped = 0
--------------------------------------------------------------------------------



Y en el Objeto
Ponen 2 valores nuevos

Código de Visual Basic:
--------------------------------------------------------------------------------
'NO BAJAR VALORES DE 30 NI SUPERAR VALORES A 60!!!
Vel=43
'ACTIVAR CON 1
AumentaVel=1
--------------------------------------------------------------------------------



hola, bueno yo puse todo tal cual me dijeron que ponga y no anda. por otro lado me fije que puede ser el error y tampoco me di cuenta.
bueno, agradeceria sus ayudas para esta correccion,
saludos

Sinceramente lo estuve viendo y no encuentro el error. aunque no soy un programador muy experimentado, me podrian dar una mano?
gracias

El error esta en q gs no borro el tema.
Falta tener un cliente propio y subir los FPS.
Y nose faltaba algo mas pero no me acuerdo q
Si tnes cliente propio decime y lo termino.
Salu2

Sisi, tengo cliente propio. Te agradeceria que lo termines =)
gracias