A
Anonymous
Invitado
[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
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