69 Mensagens de Visitantes

  1. Ver Conversa
    deu certo ai
  2. Ver Conversa
    estou mandando o setup do emuladro + table e o script é esse
    http://www.2shared.com/fadmin/451450...nball.rar.html


    script

    AutoItSetOption("MustDeclareVars", 1) ; obriga as declarações das variaveis
    AutoItSetOption("WinTitleMatchMode", 4) ; as janelas são pesquisadas por classes
    Local $drive, $exe_joy
    ;verifica se o advmenu passou o nome da rom
    If Not $CmdLine[0] = 1 Then
    MsgBox(0, "Erro", "Não foi passado nenhum parametro para o script.")
    Exit (0)
    EndIf
    Local $CM
    ;essa linha irá fazer com que a variavel $CM
    ;fique com o caminho completo + o nome da ISO
    $CM = $CmdLine[1]
    ;aqui é verificado se a ISO existe
    If Not FileExists($CM) Then
    MsgBox(0, "Erro", "O arquivo " & $CM & @CRLF & "Não foi localizado.")
    Exit 0
    EndIf
    ;chama o emulador, o -m= não mostrar a interface gráfica, -j=desabilitar o mouse
    $executa = ShellExecute("Future Pinball.exe", "-m -j " & $CmdLine[1], @ScriptDir, "open", @SW_SHOWNORMAL)
    If @error Then
    MsgBox(0, "Erro", "Ocorreu um erro ao tentar abrir o emulador")
    Exit 0
    EndIf
    Sleep(1000)
    BlockInput(0)
    ;envia as teclas para abrir a janela open
    Sleep(4000)
    Send("!{alt}")
    Sleep(100)
    Send("{down}")
    Sleep(100)
    Send("{down}")
    Sleep(100)
    Send("{enter}")
    ;aguarda a janela open file
    $espera = WinWaitActive("classname=#32770", "", 10)
    Sleep(1000)
    ;digita o caminho na janela file open
    Send($CM)
    Sleep(100)
    Send("{enter}")
    BlockInput(0)
    Sleep(8000)
    Send("{f5}")
    ;rotina de loop
    Global $TEMPO_RESTANTE, $TEMPO_ATUAL, $TEMPO_DECORRIDO, $AVISADO, $lopping, $INTERVALO
    ;atualiza de 1 em 1 minuto
    $INTERVALO = 0
    ;quando faltar 1 minuto
    $AVISADO = False
    ;verifica quanto tempo tem de ficha
    $TEMPO_RESTANTE = VerificaTempo()
    WinWaitActive("classname=Future Pinball", "", 10)
    HotKeySet("j", "FechaEmulador") ;intala o hotkey, para capturar a tecla "J", 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("j")
    HotKeySet("k")
    ;envia um esc para o emulador
    If Not WinActive("classname=Future Pinball") Then
    WinActivate("classname=Future Pinball")
    EndIf
    Sleep(100)
    Send("{F4}")
    Sleep(1000)
    Send("{F4}")
    Sleep(100)
    Local $fechou
    Sleep(100)
    ProcessExists("Future Pinball.exe")
    ProcessClose("Future Pinball.exe")
    ;mostra a menssagem
    SplashImageOn("", "..\auxiliar\image\mensa6.gif", 220, 40, -1, -1, 1)
    SoundPlay("..\auxiliar\som\fechaemu.wav", 1)
    $fechou = WinWaitClose("classname=Future Pinball", "", 5)
    If Not $fechou Then
    ProcessClose("Future Pinball.exe")
    EndIf

    ;atualiza o banco de dados
    GravaTempo()
    SplashOff()
    $lopping = 0
    EndFunc ;==>FechaEmulador
    ;função responssavel por armazenar as fichas
    Func PegaFicha()
    Local $atual, $valor, $contador, $calcula, $adiciona
    ;lê os dados atuais
    $atual = $TEMPO_RESTANTE
    $contador = IniRead("C:\ARCADE\advmenu.ini", "FICHEIRO", "CONTADOR", "0")
    $valor = IniRead("C:\ARCADE\advmenu.ini", "CONFIGURACAO", "TEMPOPORFICHA", "600000")
    $calcula = ($atual + Number($valor))
    $adiciona = (Number($contador) + 1)
    ;grava os novos valores
    IniWrite("C:\ARCADE\advmenu.ini", "FICHEIRO", "FICHAS", String($calcula))
    IniWrite("C:\ARCADE\advmenu.ini", "FICHEIRO", "CONTADOR", String($adiciona))
    SoundPlay("C:\ARCADE\auxiliar\som\coin.wav")
    $TEMPO_RESTANTE = $calcula
    $TEMPO_ATUAL = DllCall("kernel32.dll", "int", "GetTickCount")
    $AVISADO = False
    EndFunc ;==>PegaFicha
    ;função responssavel por verificar o tempo pela primeira vez
    Func VerificaTempo()
    Local $atual, $valor, $calcula
    ;lê os dados atuais
    $atual = IniRead("C:\ARCADE\advmenu.ini", "FICHEIRO", "FICHAS ", "0")
    $valor = IniRead("C:\ARCADE\advmenu.ini", "CONFIGURACAO", "TEMPOPORFICHA", "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 ;==>VerificaTempo
    ;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("C:\ARCADE\advmenu.ini", "FICHEIRO", "FICHAS", "0")
    Else
    IniWrite("C:\ARCADE\advmenu.ini", "FICHEIRO", "FICHAS", String($calcula))
    EndIf
    EndFunc ;==>GravaTempo


    é só instalar e colocar esse script junto da pasta do emulador
  3. Ver Conversa
    pra fechar o future pinball eu tenho q usar 2 vezes o alt+f4 poderia ajudar segue o script

    AutoItSetOption("MustDeclareVars", 1) ; obriga as declarações das variaveis
    AutoItSetOption("WinTitleMatchMode", 4) ; as janelas são pesquisadas por classes
    Local $drive, $exe_joy
    ;verifica se o advmenu passou o nome da rom
    If Not $CmdLine[0] = 1 Then
    MsgBox(0, "Erro", "Não foi passado nenhum parametro para o script.")
    Exit (0)
    EndIf
    Local $CM
    ;essa linha irá fazer com que a variavel $CM
    ;fique com o caminho completo + o nome da ISO
    $CM = $CmdLine[1]
    ;aqui é verificado se a ISO existe
    If Not FileExists($CM) Then
    MsgBox(0, "Erro", "O arquivo " & $CM & @CRLF & "Não foi localizado.")
    Exit 0
    EndIf
    Local $executa, $espera
    ;chama o emulador, o -m= não mostrar a interface gráfica, -j=desabilitar o mouse
    $executa = ShellExecute("Future Pinball.exe", "-m -j " & $CmdLine[1], @ScriptDir, "open", @SW_SHOWNORMAL)
    If @error Then
    MsgBox(0, "Erro", "Ocorreu um erro ao tentar abrir o emulador")
    Exit 0
    EndIf
    Sleep(1000)
    BlockInput(0)
    ;envia as teclas para abrir a janela open
    Sleep(4000)
    Send("!{alt}")
    Sleep(100)
    Send("{down}")
    Sleep(100)
    Send("{down}")
    Sleep(100)
    Send("{enter}")
    ;aguarda a janela open file
    $espera = WinWaitActive("classname=#32770", "", 10)
    Sleep(1000)
    ;digita o caminho na janela file open
    Send($CM)
    Sleep(100)
    Send("{enter}")
    BlockInput(0)
    Sleep(8000)
    Send("{f5}")
    ;rotina de loop
    Global $TEMPO_RESTANTE, $TEMPO_ATUAL, $TEMPO_DECORRIDO, $AVISADO, $lopping, $INTERVALO
    ;atualiza de 1 em 1 minuto
    $INTERVALO = 0
    ;quando faltar 1 minuto
    $AVISADO = False
    ;verifica quanto tempo tem de ficha
    $TEMPO_RESTANTE = VerificaTempo()
    WinWaitActive("classname=Future Pinball", "", 10)
    HotKeySet("p", "FechaEmulador") ;intala o hotkey, para capturar a tecla "p", saida
    HotKeySet("5", "PegaFicha") ;intala o hotkey, usando a tecla "5" , 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)
    func FechaEmulador(); função que fecha o emulador e o script

    HotKeySet("p"); remove a hotkey "p"

    Send("!{F4}"); envia um alt + f4

    exit;


    sleep(100)

    if ProcessExists("Future Pinball.exe") Then

    ProcessClose("Future Pinball.exe")

    endif


    ;mostra a menssagem
    SplashImageOn("", "..\auxiliar\image\mensa6.gif", 220, 40, -1, -1, 1)
    SoundPlay("..\auxiliar\som\fechaemu.wav", 1)


    ProcessClose("Future Pinball.exe")


    ;atualiza o banco de dados
    GravaTempo()
    SplashOff()
    $lopping = 0
    EndFunc ;==>FechaEmulador
    ;função responssavel por armazenar as fichas
    Func PegaFicha()
    Local $atual, $valor, $contador, $calcula, $adiciona
    ;lê os dados atuais
    $atual = $TEMPO_RESTANTE
    $contador = IniRead("C:\ARCADE\advmenu.ini", "FICHEIRO", "CONTADOR", "0")
    $valor = IniRead("C:\ARCADE\advmenu.ini", "CONFIGURACAO", "TEMPOPORFICHA", "600000")
    $calcula = ($atual + Number($valor))
    $adiciona = (Number($contador) + 1)
    ;grava os novos valores
    IniWrite("C:\ARCADE\advmenu.ini", "FICHEIRO", "FICHAS", String($calcula))
    IniWrite("C:\ARCADE\advmenu.ini", "FICHEIRO", "CONTADOR", String($adiciona))
    SoundPlay("C:\ARCADE\auxiliar\som\coin.wav")
    $TEMPO_RESTANTE = $calcula
    $TEMPO_ATUAL = DllCall("kernel32.dll", "int", "GetTickCount")
    $AVISADO = False
    EndFunc ;==>PegaFicha
    ;função responssavel por verificar o tempo pela primeira vez
    Func VerificaTempo()
    Local $atual, $valor, $calcula
    ;lê os dados atuais
    $atual = IniRead("C:\ARCADE\advmenu.ini", "FICHEIRO", "FICHAS ", "0")
    $valor = IniRead("C:\ARCADE\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 ;==>VerificaTempo
    ;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("C:\ARCADE\advmenu.ini", "FICHEIRO", "FICHAS", "0")
    Else
    IniWrite("C:\ARCADE\advmenu.ini", "FICHEIRO", "FICHAS", String($calcula))
    EndIf
    EndFunc ;==>GravaTempo

    agradeço a atençao eu tambem logo estarei em tornando vip.pois o site merece me ajudou muito e continua me ajudando.
  4. Ver Conversa
    me diz uma coisa eu to querendo em tornar vip tem bastente coisa tutorias .
  5. Ver Conversa
    vc poderia me ajudar com o script de future pinball ele nao fecha nao trasfere ficha só abre no advemenu nao volta.
  6. Ver Conversa
    fui mudar os valores e nada como vc deixou nop seu pois tem um monte
  7. Ver Conversa
    eu baixei o pes2013 mas na hora de fechar nao fecha com o p e sim alt+f4 sera q vou ter q mudar o script de pc
  8. Ver Conversa
    cara funcionou shou de bola posso colocar ele em todos os emuladores de tempo.
  9. Ver Conversa
    agora foi a mensagem
Exibindo Mensagens de Visitantes 41 a 50 de 69
Página 5 de 7 PrimeiroPrimeiro 1 2 3 4 5 6 7 ÚltimoÚltimo
Página 5 de 7 PrimeiroPrimeiro 1 2 3 4 5 6 7 ÚltimoÚltimo
Sobre alextecsony

Informações Básicas


Sobre alextecsony
Biografia
https://www.facebook.com/lex.prata
Localização
São Paulo
Ocupação
tec. eletrônica e Info

Assinatura


Contato


Esta Página
http://www.arcadebr.com/members/8429-alextecsony?s=513f64a0c303e10e392c051f11b7069a
Mensagens Instantâneas

Enviar Mensagem Instantânea a alextecsony Usando...

Estatísticas


Mensagens Totais
Mensagens Totais
170
Mensagens Por Dia
0,05
Último Post
Artigo: Aprenda como instalar o Recalbox no Raspberry Pi 11/01/2019 01:49
Mensagens de Visitantes
Total de Mensagens
69
Mensagem Mais Recente
12/05/2020 22:52
Informações Gerais
Última Atividade
1 Semana Atrás
Data de Ingresso
01/06/2012
Referências
2

7 Amigos

  1. airheadairhead está desconectado

    > Usuário VIP

    airhead
  2. CAPACITORCAPACITOR está desconectado

    Mestre dos Arcades Caseiros

    CAPACITOR
  3. esiocostaesiocosta está desconectado

    Mestre dos Arcades Caseiros

    • Enviar mensagem por MSN para esiocosta
    esiocosta
  4. FLIPER-MANIAFLIPER-MANIA está desconectado

    Jogador de Street Fighter IV (2009)

    FLIPER-MANIA
  5. lindersonlinderson está desconectado

    Jogador de Halo (2001)

    linderson
  6. michel almeidamichel almeida está desconectado

    > Usuário VIP

    michel almeida
  7. vargas310vargas310 está desconectado

    Jogador de Enduro (1983)

    vargas310
Exibindo Amigos 1 a 7 de 7
Página 5 de 9 PrimeiroPrimeiro 1 2 3 4 5 6 7 8 9 ÚltimoÚltimo

11/02/2015


30/01/2015


20/01/2015


18/01/2015


15/01/2015


14/01/2015


13/01/2015


08/01/2015


07/01/2015


03/01/2015



Página 5 de 9 PrimeiroPrimeiro 1 2 3 4 5 6 7 8 9 ÚltimoÚltimo
No results to display...
Página 5 de 8 PrimeiroPrimeiro 1 2 3 4 5 6 7 8 ÚltimoÚltimo

05/11/2014


04/11/2014


03/11/2014


02/11/2014


01/11/2014


30/10/2014



Página 5 de 8 PrimeiroPrimeiro 1 2 3 4 5 6 7 8 ÚltimoÚltimo