1 Mensagens de Visitantes

  1. Ver Conversa
    ;****************************************
    ;Autoit V3
    ;Autor brbranco
    ;Data 22/04/2008
    ;Objetivo: Controlar o emulador Psxfin.exe
    ;****************************************

    ;ajustas as opções
    AutoItSetOption("WinTitleMatchMode", 4)
    AutoItSetOption("RunErrorsFatal", 0)

    ;rotina de loop
    Global $TEMPO_RESTANTE, $TEMPO_ATUAL, $TEMPO_DECORRIDO, $AVISADO, $lopping

    ;atualiza de 1 em 1 minuto
    $INTERVALO=0

    ;quando faltar 1 minuto
    $AVISADO=False

    ;verifica quanto tempo tem de ficha
    $TEMPO_RESTANTE=VerificaTempo()

    ;verifica se o advmenu passou o nome da rom
    If NOT $CmdLine[0] = 1 Then
    SplashImageOn("", "..\auxiliar\image\mensa1.gif", 220, 40, -1, -1, 1)
    SoundPlay("..\auxiliar\som\advfaltajogo.wav",1)
    SplashOff()
    Exit ( 0 )
    EndIf


    ;verifica se a rom passada pela macro "%p" existe.
    If Not FileExists($CmdLine[1]) Then
    MsgBox(0,"Erro", "O jogo " & $CmdLine[1] & ", passado pelo advmenu não foi localizado", 15)
    Exit(0)
    EndIf

    ;abre o joytokey
    $drive=StringLeft(@ScriptDir,2)
    If Not ProcessExists("joytokey.exe") Then
    $exe_joy = ShellExecute("joytokey.exe", "snes", $drive & "\arcade\joytokey")
    if @error Then
    SplashImageOn("", "..\auxiliar\image\mensa4.gif", 220, 40, -1, -1, 1)
    Sleep(10000)
    SplashOff()
    FechaEmulador()
    Exit(0)
    EndIf
    Else
    Sleep(2000)
    EndIf

    ;chama o emulador, o -m= não mostrar a interface gráfica, -j=desabilitar o mouse
    $exe_mame = ShellExecute("Psxfin.exe", "-m -j " & $CmdLine[1], @ScriptDir,"open",@SW_SHOWNORMAL)
    If @error Then
    SplashImageOn("", "..\auxiliar\image\mensa5.gif", 220, 40, -1, -1, 1)
    SoundPlay("..\auxiliar\som\erroemuexe.wav")
    SplashOff()
    Exit(0)
    EndIf


    WinWaitActive("classname=Psx v1.13", "",10)
    HotKeySet("p", "FechaEmulador") ;intala o hotkey, para capturar a tecla "P", saida
    HotKeySet("k", "PegaFicha") ;intala o hotkey, usando a tecla "K" , ficha



    $lopping=1
    $TEMPO_ATUAL=DllCall("kernel32.dll", "int", "GetTickCount")
    While $lopping
    ;atualiza o tempo jogado
    $TEMPO_DECORRIDO=DllCall("kernel32.dll", "int", "GetTickCount")

    ;fecha o emulador quando o tempo da ficha for atingido
    If $TEMPO_RESTANTE <= ($TEMPO_DECORRIDO[0] - $TEMPO_ATUAL[0]) Then
    $TEMPO_RESTANTE=0
    FechaEmulador()
    ExitLoop
    EndIf

    ;atualiza os contadores a cada 1 minuto (600 * 100)
    If $INTERVALO >=600 Then
    GravaTempo()
    $INTERVALO=0
    EndIf

    ;avisa quando faltar somente 1 minuto
    If (( $TEMPO_RESTANTE - ($TEMPO_DECORRIDO[0] - $TEMPO_ATUAL[0]) ) <= 60000 ) And ( Not $AVISADO ) Then
    SoundPlay("..\auxiliar\som\falta1.wav")
    $AVISADO=True
    EndIf

    $INTERVALO+=1
    sleep(100)
    WEnd
    Exit(0)

    ;função que irá verificar o estado do emulador e fecha-lo caso necessario
    Func FechaEmulador()
    Local $emulador, $fechou

    ;remove os hotkeys
    HotKeySet("p")
    HotKeySet("k")

    ;envia um ESC para o emulador
    if Not WinActive("classname=ZSNESWIN") Then
    WinActivate ("classname=ZSNESWIN")
    EndIf

    Send("{ESC DOWN}")
    Sleep(100)
    Send("{ESC UP}")

    ;mostra a menssagem
    SplashImageOn("", "..\auxiliar\image\mensa6.gif", 220, 40, -1, -1, 1)
    SoundPlay("..\auxiliar\som\fechaemu.wav",1)
    $fechou=WinWaitClose("classname=ZSNESWIN","", 5)
    if Not $fechou Then
    ProcessClose("zsnesw.exe")
    EndIf

    ;fecha o joytokey
    If ProcessExists("joytokey.exe") Then
    if Not WinActive("classname=TApplication") Then
    WinActivate ("classname=TApplication")
    EndIf
    Send("{LALT}FX")
    EndIf

    ;atualiza o banco de dados
    GravaTempo()
    SplashOff()
    $lopping=0
    EndFunc

    ;função responssavel por armazenar as fichas
    Func PegaFicha()
    Local $atual, $valor, $contador, $calcula, $adiciona
    ;lê os dados atuais
    $atual=$TEMPO_RESTANTE
    $contador=IniRead("..\advmenu.ini","FICHEIRO","CON TADOR","0")
    $valor=IniRead("..\advmenu.ini","CONFIGURACAO","TE MPOPORFICHA","600000")
    $calcula=($atual + Number($valor))
    $adiciona=(Number($contador)+1)
    ;grava os novos valores
    IniWrite("..\advmenu.ini","FICHEIRO","FICHAS",Stri ng($calcula))
    IniWrite("..\advmenu.ini","FICHEIRO","CONTADOR",St ring($adiciona))
    SoundPlay("..\auxiliar\som\coin.wav")
    $TEMPO_RESTANTE=$calcula
    $TEMPO_ATUAL=DllCall("kernel32.dll", "int", "GetTickCount")
    $AVISADO=False
    EndFunc


    ;função responssavel por verificar o tempo pela primeira vez
    Func VerificaTempo()
    Local $atual, $valor, $calcula
    ;lê os dados atuais
    $atual=IniRead("..\advmenu.ini","FICHEIRO","FICHAS ","0")
    $valor=IniRead("..\advmenu.ini","CONFIGURACAO","TE MPOPORFICHA","600000")

    ;atualiza a quantidade de fichas
    $calcula=Number($atual)
    If $calcula <= 30000 Then
    $calcula=30000 ;caso não tenha ficha dá 30 segundos para ver o jogo
    $AVISADO=True
    SoundPlay("..\auxiliar\som\falta30.wav", 1)
    EndIf
    Return $calcula
    EndFunc

    ;função para atualiza o banco de dados
    Func GravaTempo()
    Local $calcula
    $calcula=($TEMPO_RESTANTE - ($TEMPO_DECORRIDO[0] - $TEMPO_ATUAL[0]))
    If $calcula < 0 Then
    IniWrite("..\advmenu.ini","FICHEIRO","FICHAS","0")
    Else
    IniWrite("..\advmenu.ini","FICHEIRO","FICHAS",Stri ng($calcula))
    EndIf
    EndFunc
Exibindo Mensagens de Visitantes 1 a 1 de 1
Sobre punkdark2000

Informações Básicas


Sobre punkdark2000
Biografia
Viciado em games

Estatísticas


Mensagens Totais
Mensagens Totais
154
Mensagens Por Dia
0,13
Último Post
[NESICAxLive - Taito Type X2 +] Novos Jogos disponiveis e pronto pra uso 1 Semana Atrás 20:10
Mensagens de Visitantes
Total de Mensagens
1
Mensagem Mais Recente
07/04/2016 22:36
Informações Gerais
Última Atividade
15 Horas Atrás
Data de Ingresso
10/04/2015
Referências
0

2 Amigos

  1. ComboneCombone está desconectado

    > Usuário VIP

    Combone
  2. lindersonlinderson está desconectado

    Jogador de GTA: Vice City (2002)

    linderson
Exibindo Amigos 1 a 2 de 2
Página 1 de 5 1 2 3 4 5 ÚltimoÚltimo

08/06/2018


18/04/2018


18/01/2018


16/06/2017


31/05/2017


24/05/2017


19/05/2017


11/05/2017


26/03/2017


07/03/2017


11/02/2017


01/02/2017


26/12/2016


25/12/2016


15/12/2016


24/11/2016


22/11/2016



Página 1 de 5 1 2 3 4 5 ÚltimoÚltimo
No results to display...
Página 1 de 3 1 2 3 ÚltimoÚltimo

17/06/2018


31/05/2017


24/05/2017


13/05/2017


11/05/2017


26/03/2017


29/12/2016


26/12/2016


08/12/2016


28/11/2016


24/11/2016


22/11/2016


21/11/2016



Página 1 de 3 1 2 3 ÚltimoÚltimo