Agus
Admin
Mensajes : 69
Fecha de inscripción : 01/07/2008
 | Tema: 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. | |
|
