Jump to content
Sign in to follow this  
amaral

script não mantem o foco (Violação de Regras do Fórum)

Recommended Posts

uso esse script para abrir o jogo pes 2010 e 2013 no advmenu estou com problema em 3 jogos os outros funcionam perfeito os jogos são virtua tenis,pes 2010 e pes 2013 nesses jogos escolho o jogo os creditos entram bem depois que começa a demonstração dos jogos a tecla de credito para de funcionar e só entra creditos se eu minimizar a tela do jogo,parece que o jogo sobrepõe o script alguém pode ajudar?

AutoItSetOption("WinTitleMatchMode", 4)
Global $tempo_restante, $tempo_atual, $tempo_decorrido, $avisado, $lopping
$intervalo = 0
$avisado = False
$tempo_restante = verificatempo()
 
 
If @error Then
SplashImageOn("", "..\auxiliar\image\mensa5.gif", 220, 40, -1, -1, 1)
SoundPlay("..\auxiliar\som\erroemuexe.wav")
SplashOff()
Exit (0)
EndIf
HotKeySet("{9}", "Fechar")
HotKeySet("7", "PegaFicha")
$lopping = 1
$tempo_atual = DllCall("kernel32.dll", "int", "GetTickCount")
While $lopping
$tempo_decorrido = DllCall("kernel32.dll", "int", "GetTickCount")
If $tempo_restante <= ($tempo_decorrido[0] - $tempo_atual[0]) Then
$tempo_restante = 0
fechar()
ExitLoop
EndIf
If $intervalo >= 600 Then
gravatempo()
$intervalo = 0
EndIf
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 fechar()
Local $emulador, $fechou
HotKeySet("{ESC}")
HotKeySet("7")
Sleep(100)
Send("!{F4}")
SplashImageOn("", "..\auxiliar\image\mensa6.gif", 220, 40, -1, -1, 1)
SoundPlay("..\auxiliar\som\fechaemu.wav", 1)
If NOT $fechou Then
EndIf
If ProcessExists("joytokey.exe") Then
If NOT WinActive("classname=TApplication") Then
WinActivate("classname=TApplication")
EndIf
Send("{LALT}FX")
EndIf
gravatempo()
SplashOff()
$lopping = 0
EndFunc
 
Func pegaficha()
Local $atual, $valor, $contador, $calcula, $adiciona
$atual = $tempo_restante
$contador = IniRead("..\advmenu.ini", "FICHEIRO", "CONTADOR", "0")
$valor = IniRead("..\advmenu.ini", "CONFIGURACAO", "TEMPOPORFICHA", "600000")
$calcula = ($atual + Number($valor))
$adiciona = (Number($contador) + 1)
IniWrite("..\advmenu.ini", "FICHEIRO", "FICHAS", String($calcula))
IniWrite("..\advmenu.ini", "FICHEIRO", "CONTADOR", String($adiciona))
SoundPlay("..\auxiliar\som\coin.wav")
$tempo_restante = $calcula
$tempo_atual = DllCall("kernel32.dll", "int", "GetTickCount")
$avisado = False
EndFunc
 
Func verificatempo()
Local $atual, $valor, $calcula
$atual = IniRead("..\advmenu.ini", "FICHEIRO", "FICHAS", "0")
$valor = IniRead("..\advmenu.ini", "CONFIGURACAO", "TEMPOPORFICHA", "600000")
$calcula = Number($atual)
If $calcula <= 30000 Then
$calcula = 30000
$avisado = True
SplashImageOn("", "..\auxiliar\image\mensa6.gif", 220, 40, -1, -1, 1)
SoundPlay("..\auxiliar\som\bloqueado.wav", 1)
Exit 0
EndIf
Return $calcula
EndFunc
 
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", String($calcula))
EndIf
EndFunc
 
Local $dll1, $ret
Sleep(1000)
$dll1 = DllOpen(@ScriptDir & "\gpcomms.dll")
If $dll1 <> -1 Then
$ret = DllCall($dll1, "int", "GPSL_SetTextLineData", "int", 0, "long", 10, "long", 10, "str", "EVIANDO OK...", "dword", -256, "int", 0, "int", 24, "int", 1, "int", 0)
$ret = DllCall($dll1, "int", "GPSL_ShowText", "int", 0, "int", 1)
EndIf
While 1
Sleep(250)
WEnd
Edited by amaral

Share this post


Link to post
Share on other sites

Neste forum não damos suporte a assuntos relacionados com jogos, leia nossas regras antes de postar!

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×