[Aportes indexados] Objeto Con Velocidad

[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