Este code es simple y su funcion tambien..
El comando /cuenta ya es muy aburrido, asi que le agregue para que al llegar a 3, 2, 1 y YA!, aparezca una imagen en la pantalla.. vamos al codigo y mas abajo les muestro ejemplos.
CODIGO:
SERVIDOR
Buscamos esto:
y debajo ponemos:
Buscamos esto:
y debajo ponemos:
CLIENTE
Buscamos esto:
Y arriba ponemos:
Buscamos esto:
Y arriba ponemos:
En el Mod_Declaraciones buscamos:
Y debajo ponemos:
Buscamos esto en MOD_General:
y debajo ponemos:
CODIGO 100% ECHO POR GALLE
Notas:
IMAGENES A PONER:




y esto queda asi:




CODIGO 100000000% ECHO POR GALLE, es para que miren y implementen al server es exelente, lo testie en el mio
Es mui facil expandirlo:

El que nesecita ayuda pregunteme
El comando /cuenta ya es muy aburrido, asi que le agregue para que al llegar a 3, 2, 1 y YA!, aparezca una imagen en la pantalla.. vamos al codigo y mas abajo les muestro ejemplos.
CODIGO:
SERVIDOR
Buscamos esto:
- Código:
If CuentaRegresiva = 0 Then
Call SendData(ToMap, 0, GMCuenta, "||YA!!!" & FONTTYPE_FIGHT)
y debajo ponemos:
- Código:
Call SendData(ToMap, 0, GMCuenta, "CR") 'CUENTA by GALLE
Buscamos esto:
- Código:
Else
Call SendData(ToMap, 0, GMCuenta, "||" & CuentaRegresiva & "..." & FONTTYPE_INFO)
y debajo ponemos:
- Código:
If CuentaRegresiva = 3 Then ' CUENTA by GALLE
Call SendData(ToMap, 0, GMCuenta, "CS")
ElseIf CuentaRegresiva = 2 Then
Call SendData(ToMap, 0, GMCuenta, "CT")
ElseIf CuentaRegresiva = 1 Then
Call SendData(ToMap, 0, GMCuenta, "CW")
End If
CLIENTE
Buscamos esto:
- Código:
Case "CM"
Rdata = Right$(Rdata, Len(Rdata) - 2)
Y arriba ponemos:
- Código:
Case "CR" 'CUENTA by GALLE
Rdata = Right$(Rdata, Len(Rdata) - 2)
HayCuenta = 30
DCuenta = 12000 'NUMERO DE GRAFICO
Exit Sub
Case "CS" 'CUENTA by GALLE
Rdata = Right$(Rdata, Len(Rdata) - 2)
HayCuenta3 = 15
DCuenta3 = 12003 'NUMERO DE GRAFICO
Exit Sub
Case "CT" 'CUENTA by GALLE
Rdata = Right$(Rdata, Len(Rdata) - 2)
HayCuenta2 = 15
DCuenta2 = 12002 'NUMERO DE GRAFICO
Exit Sub
Case "CW" 'CUENTA by GALLE
Rdata = Right$(Rdata, Len(Rdata) - 2)
HayCuenta1 = 15
DCuenta1 = 12001 'NUMERO DE GRAFICO
Exit Sub
Buscamos esto:
- Código:
If bLluvia(UserMap) = 1 Then
Y arriba ponemos:
- Código:
If HayCuenta <> 0 Then 'CUENTA by GALLE
Call BackBufferSurface.BltFast(380, 200, SurfaceDB.GetBMP(DCuenta), RCuenta, DDBLTFAST_SRCCOLORKEY + DDBLTFAST_WAIT)
End If
If HayCuenta3 <> 0 Then 'CUENTA by GALLE
Call BackBufferSurface.BltFast(380,200, SurfaceDB.GetBMP(DCuenta3), RCuenta3, DDBLTFAST_SRCCOLORKEY + DDBLTFAST_WAIT)
End If
If HayCuenta2 <> 0 Then 'CUENTA by GALLE
Call BackBufferSurface.BltFast(380, 200, SurfaceDB.GetBMP(DCuenta2), RCuenta2, DDBLTFAST_SRCCOLORKEY + DDBLTFAST_WAIT)
End If
If HayCuenta1 <> 0 Then 'CUENTA by GALLE
Call BackBufferSurface.BltFast(380, 200, SurfaceDB.GetBMP(DCuenta1), RCuenta1, DDBLTFAST_SRCCOLORKEY + DDBLTFAST_WAIT)
End If
En el Mod_Declaraciones buscamos:
- Código:
Public EligiendoWhispereo As Boolean
Y debajo ponemos:
- Código:
Public HayCuenta As Integer 'CUENTA by GALLE
Public DCuenta As Integer
Public RCuenta As RECT
Public HayCuenta3 As Integer
Public DCuenta3 As Integer
Public RCuenta3 As RECT
Public HayCuenta2 As Integer
Public DCuenta2 As Integer
Public RCuenta2 As RECT
Public HayCuenta1 As Integer
Public DCuenta1 As Integer
Public RCuenta1 As RECT 'CUENTA by GALLE
Buscamos esto en MOD_General:
- Código:
Call RefreshAllChars
y debajo ponemos:
- Código:
If HayCuenta <> 0 Then 'CUENTA by GALLE
HayCuenta = HayCuenta - 1
End If
If HayCuenta3 <> 0 Then
HayCuenta3 = HayCuenta3 - 1
End If
If HayCuenta2 <> 0 Then
HayCuenta2 = HayCuenta2 - 1
End If
If HayCuenta1 <> 0 Then
HayCuenta1 = HayCuenta1 - 1
End If
CODIGO 100% ECHO POR GALLE
Notas:
Los que le queda por hacer es crear los BMP con el 3, 2, 1 y YA! y pegarlos en la carpeta Graficos del cliente y fijense que tienen q ponerle los numeros correspondientes q puse yo o cambiar esos numeros por el numero de su grafico correspondiente.
NOTA1: Esta es la parte del codigo q deberian cambiar
Case "CW" 'CUENTA by GALLE
Rdata = Right$(Rdata, Len(Rdata) - 2)
HayCuenta1 = 15
DCuenta1 = 12001 'NUMERO DE GRAFICO
Exit Sub
Fijense q yo use el 12001, ustedes pueden usar el que quiera siempre que concuerde con el grafico.
NOTA2: Si desean cambiar de posicion a las imagenes, cambien estos numeros 380 y 200 por otros y asi van acomodando a su manera
Esta es la parte del codigo donde estan el 380 y 200. (380 = X 200 = Y)
If HayCuenta1 <> 0 Then 'CUENTA by GALLE
Call BackBufferSurface.BltFast(380, 200, SurfaceDB.GetBMP(DCuenta1), RCuenta1, DDBLTFAST_SRCCOLORKEY + DDBLTFAST_WAIT)
End If
IMAGENES A PONER:




y esto queda asi:




CODIGO 100000000% ECHO POR GALLE, es para que miren y implementen al server es exelente, lo testie en el mio
Es mui facil expandirlo:

El que nesecita ayuda pregunteme
Última edición por Guiido el Vie Mayo 29, 2009 2:44 pm, editado 1 vez