No estás conectado. Conéctate o registrate

Cuenta en Screen

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Cuenta en Screen el Vie Mayo 29, 2009 9:01 am

Guiido


SUPER MODERADOR
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:

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

Ver perfil de usuario

2 Re: Cuenta en Screen el Vie Mayo 29, 2009 1:43 pm

Crixis


MODERADOR GLOBAL
Muy buen codigo Guiido.
Te voy a pedir, si podes hacer un nuevo tema con todos los aportes.y su link ovbiamente.

Desde ya muchisimas gracias.-
Cuando lo termines avisame que borro los otros.


_________________
Ver perfil de usuario

3 Re: Cuenta en Screen el Vie Mayo 29, 2009 7:18 pm

Guiido


SUPER MODERADOR
Crixis escribió:Muy buen codigo Guiido.
Te voy a pedir, si podes hacer un nuevo tema con todos los aportes.y su link ovbiamente.

Desde ya muchisimas gracias.-
Cuando lo termines avisame que borro los otros.

Echo Wink

Tema Cerrado.

Ver perfil de usuario

4 Re: Cuenta en Screen Hoy a las 9:00 pm

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.