Cuenta en Screen

Código:

  If CuentaRegresiva = 0 Then
        Call SendData(ToMap, 0, GMCuenta, "||YA!!!" & FONTTYPE_FIGHT)

Código:

 Call SendData(ToMap, 0, GMCuenta, "CR") 'CUENTA by GALLE

Código:

  Else
        Call SendData(ToMap, 0, GMCuenta, "||" & CuentaRegresiva & "..." & FONTTYPE_INFO)

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

Código:

 Case "CM"
            Rdata = Right$(Rdata, Len(Rdata) - 2)

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
 

Código:

If bLluvia(UserMap) = 1 Then

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

Código:

Public EligiendoWhispereo As Boolean

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
 

Código:

  Call RefreshAllChars

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

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

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

Tema Cerrado.