[SERVIDOR] Objeto Con Velocidad
[SERVIDOR 0112]
Vamos a Declares y donde dice
[vb]
Public MixedKey As Long[/vb]
Arriba ponemos
[vb]
Public TIEMPOX As Integer[/vb]
Dps en el mismo modulo,, Mas abajo,, En Los UserFlags
Buscamos
[vb]
Type UserFlags[/vb]
Y abajo ponemos
[vb]
EnVelocidad as byte[/vb]
UN toque arriba dice
[vb]
Public Type ObjData[/vb]
ABajo poemos
[vb]
AumentaVelo As Byte
Velo as Integer[/vb]
Buscamos
[vb]
Case "M"[/vb]
Y En donde Dice
[vb]
If UserList(UserIndex).flags.TimesWalk >= 30 Then[/vb]
Lo Cambiamos por esto
[vb]
If Userlist(Userindex).flags.EnVelocidad = 0 then
TIEMPOX = 30
End if
If UserList(UserIndex).flags.TimesWalk >= TIEMPOX Then[/vb]
Mas abajo donde dice
[vb]
If Not UserList(UserIndex).flags.CountSH = 0 Then[/vb]
Arriba ponemos
[vb]
If Userlist(userindex).flags.envelocidad = 1 then
Userlist(userindex).flags.countsh = 0
Else[/vb]
Cosa q qede asi
[vb]
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[/vb]
Dps Buscamos
[vb]
Sub LoadOBJData[/vb]
Y Abajo en donde dice
[vb]
ObjData(Object).Name = Leer.DarValor("OBJ" & Object, "Name")[/vb]
Ponen
[vb]
ObjData(Object).AumentaVelo = Leer.DarValor("OBJ" & Object, "AumentaVel")
ObjData(Object).Velo = Val(Leer.DarValor("OBJ" & Object, "Vel"))[/vb]
Dps en el Sub EquiparInvItem
Abajo de
[vb]
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[/vb]
Ponen
[vb]
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 <!-- s
--><img src=\"{SMILIES_PATH}/icon_xd.gif\" alt=\"
\" title=\"
\" /><!-- s
-->
else
Tiempox = obj.velo
end if
end if[/vb]
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
[vb]
if Obj.aumentavelo = 1 then
userlist(userindex).flags.envelocidad = 0
Tiempox = 30
end if
UserList(UserIndex).Invent.Object(Slot).Equipped = 0[/vb]
Y en el Objeto
Ponen 2 valores nuevos
[vb]
'NO BAJAR VALORES DE 30 NI SUPERAR VALORES A 60!!!
Vel=43
'ACTIVAR CON 1
AumentaVel=1[/vb]
LICENCIA ;D
TODOS LOS DERECHOS RESERVADOS AL AUTOR, IVAN.
Hay q estar al pedo 8)
Falta q venga tavo ;D
Salu2
[SERVIDOR 0112]
Vamos a Declares y donde dice
[vb]
Public MixedKey As Long[/vb]
Arriba ponemos
[vb]
Public TIEMPOX As Integer[/vb]
Dps en el mismo modulo,, Mas abajo,, En Los UserFlags
Buscamos
[vb]
Type UserFlags[/vb]
Y abajo ponemos
[vb]
EnVelocidad as byte[/vb]
UN toque arriba dice
[vb]
Public Type ObjData[/vb]
ABajo poemos
[vb]
AumentaVelo As Byte
Velo as Integer[/vb]
Buscamos
[vb]
Case "M"[/vb]
Y En donde Dice
[vb]
If UserList(UserIndex).flags.TimesWalk >= 30 Then[/vb]
Lo Cambiamos por esto
[vb]
If Userlist(Userindex).flags.EnVelocidad = 0 then
TIEMPOX = 30
End if
If UserList(UserIndex).flags.TimesWalk >= TIEMPOX Then[/vb]
Mas abajo donde dice
[vb]
If Not UserList(UserIndex).flags.CountSH = 0 Then[/vb]
Arriba ponemos
[vb]
If Userlist(userindex).flags.envelocidad = 1 then
Userlist(userindex).flags.countsh = 0
Else[/vb]
Cosa q qede asi
[vb]
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[/vb]
Dps Buscamos
[vb]
Sub LoadOBJData[/vb]
Y Abajo en donde dice
[vb]
ObjData(Object).Name = Leer.DarValor("OBJ" & Object, "Name")[/vb]
Ponen
[vb]
ObjData(Object).AumentaVelo = Leer.DarValor("OBJ" & Object, "AumentaVel")
ObjData(Object).Velo = Val(Leer.DarValor("OBJ" & Object, "Vel"))[/vb]
Dps en el Sub EquiparInvItem
Abajo de
[vb]
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[/vb]
Ponen
[vb]
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 <!-- s




else
Tiempox = obj.velo
end if
end if[/vb]
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
[vb]
if Obj.aumentavelo = 1 then
userlist(userindex).flags.envelocidad = 0
Tiempox = 30
end if
UserList(UserIndex).Invent.Object(Slot).Equipped = 0[/vb]
Y en el Objeto
Ponen 2 valores nuevos
[vb]
'NO BAJAR VALORES DE 30 NI SUPERAR VALORES A 60!!!
Vel=43
'ACTIVAR CON 1
AumentaVel=1[/vb]
LICENCIA ;D
TODOS LOS DERECHOS RESERVADOS AL AUTOR, IVAN.
Hay q estar al pedo 8)
Falta q venga tavo ;D
Salu2
