Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 Cartel de paralisis

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Agus
Admin


Mensajes : 69
Fecha de inscripción : 01/07/2008

MensajeTema: Cartel de paralisis   Jue Jul 03, 2008 6:05 am

Este código lo que hace es avisarnos cuánto tiempo nos queda para que se nos vaya la paralisis.

Primera parte: SERVIDOR 0.11.5

En el módulo General (General.bas), reemplazamos el Sub EfectoParalisisUser por el siguiente:

Código:
 
Public Sub EfectoParalisisUser(ByVal UserIndex As Integer)
Dim TiempoTranscurrido As Long
If UserList(UserIndex).Counters.Paralisis > 0 Then
UserList(UserIndex).Counters.Paralisis = UserList(UserIndex).Counters.Paralisis - 1
TiempoTranscurrido = (IntervaloParalizado * frmMain.GameTimer.Interval) - (UserList(UserIndex).Counters.Paralisis * frmMain.GameTimer.Interval)
If TiempoTranscurrido Mod 1000 = 0 Or TiempoTranscurrido = 40 Then
If TiempoTranscurrido = 40 Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "INMO" & ((IntervaloParalizado * frmMain.GameTimer.Interval) / 1000))
Else
Call SendData(SendTarget.ToIndex, UserIndex, 0, "INMO" & (((IntervaloParalizado * frmMain.GameTimer.Interval) / 1000) - (TiempoTranscurrido / 1000)))
End If
End If
Else
UserList(UserIndex).flags.Paralizado = 0
'UserList(UserIndex).Flags.AdministrativeParalisis = 0
Call SendData(SendTarget.ToIndex, UserIndex, 0, "PARADOK")
Call SendData(SendTarget.ToIndex, UserIndex, 0, "INMO0")
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Has recuperado la movilidad." & FONTTYPE_INFO)
End If

End Sub


En el módulo modHechizos (modHechizos.bas), buscan lo siguiente:

Código:
 
If Hechizos(H).RemoverParalisis = 1 Then


Y reemplazan todo ese If...End If por el siguiente:

Código:
 
If Hechizos(H).RemoverParalisis = 1 Then
If UserList(TU).flags.Paralizado = 1 Then
If Criminal(TU) And Not Criminal(UserIndex) Then
If UserList(UserIndex).flags.Seguro Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Para ayudar criminales debes sacarte el seguro ya que te volverás criminal como ellos" & FONTTYPE_INFO)
Exit Sub
Else
Call VolverCriminal(UserIndex)
End If
End If
UserList(TU).flags.Paralizado = 0
Call SendData(SendTarget.ToIndex, TU, 0, "INVI0")
Call SendData(SendTarget.ToIndex, TU, 0, "||Has recuperado la movilidad." & FONTTYPE_INFO)
'no need to crypt this
Call SendData(SendTarget.ToIndex, TU, 0, "PARADOK")
Call InfoHechizo(UserIndex)
b = True
End If
End If


Segunda parte: CLIENTE 0.11.5

En el módulo Mod_Declaraciones (Declares.bas), al final del mismo, colocamos:
Código:
 
Public CartelParalisis As Integer

Luego, en el módulo Mod_TCP (TCP.bas), buscamos:
Código:
 
sData = UCase$(Rdata)

Y justo abajo de esa línea colocamos lo siguiente:
Código:
 
If Left$(sData, 4) = "INMO" Then CartelParalisis = Right$(sData, Len(sData) - 4)
If IScombate Then Call Dialogos.DrawText(260, 260, "MODO COMBATE", vbRed)

Y justo abajo de esa línea colocamos lo siguiente:
Código:
 
If CartelParalisis Then Call Dialogos.DrawText(260, 300, CartelParalisis & " segundos restantes de paralisis.", vbCyan)

AVISO: Pueden cambiar los valores 260 y 300 de la última línea de código que escribí para posicionar el mensaje en donde ustedes deseen.
Volver arriba Ir abajo
Ver perfil de usuario http://recompilacionao.forosactivos.com
 
Cartel de paralisis
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» Call of Juarez the cartel
» Call of Juarez: El Cartel del juego 7 minutos previa
» Que puedo ponerle a un cartel para apoyar a mi amiga que me gusta en su partido de basquet?
» Fauces Temibles
» Duda sobre armas de veneno

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: Programación :: 0.11.5-
Cambiar a: