sera que alguem pode me ajudar,eu queria montar um script para o advmenu para quando eu der um esc ele volte para lista de jogos sera qe alguem pode me ajudar?
basta insistir que você alcançara seus objetivos
ArcadeBR » Frontends » ADVMENU
advmenu
(26 posts)-
Publicado 10 meses atrás #
-
Kra naum precisa de script naum coloca isso aki dentro advmenu.rc dai vc fica segurando o 1º start por 3 segundos que ele volta ao menu de jogos!!!!
script_start1 delay(3000);if(event(start1)){simulate_event(ui_cancel,100);}
O Melhor lugar pra criticar o próximo, é na frente do espelho.Publicado 10 meses atrás #
-
oi belini sera que pode me ajudar com esse script eu não sei o que tem de errado nele,mas ele da erro quando tento executalo
;****************************************
;Autoit V3
;Autor brbranco
;Data 22/04/2008
;Objetivo: Controlar o emulador brmamep.exe
;****************************************;ajustas as opções
AutoItSetOption("WinTitleMatchMode", 4)
AutoItSetOption("RunErrorsFatal", 0);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 o arquivo aumame.ini existe
If Not FileExists("aumame.ini") Then
SplashImageOn("", "..\auxiliar\image\mensa2.gif", 220, 40, -1, -1, 1)
Sleep(10000)
SplashOff()
Exit ( 0 )
EndIf;abre o arquivo aumame.ini, e verifica os parametros necessarios.
Global $mamepar1
$mamepar1=IniRead("aumame.ini","EXECUTAVEL","NOME","")
If $mamepar1="" Then
SplashImageOn("", "..\auxiliar\image\mensa3.gif", 220, 40, -1, -1, 1)
Sleep(10000)
SplashOff()
Exit ( 0 )
EndIf;verifica se existe algum parametro adicional a ser passado para o emulador
$mamepar2=IniRead("aumame.ini","PARAMETRO","COMANDO","")
If $mamepar2="" Then
$mamepar2 = $CmdLine[1]
Else
$mamepar2 = ($CmdLine[1] & " " & $mamepar2 )
EndIf;abre o joytokey
$drive=StringLeft(@ScriptDir,2)
If Not ProcessExists("joytokey.exe") Then
$exe_joy = ShellExecute("joytokey.exe", "mame", $drive & "\arcade\joytokey")
if @error Then
SplashImageOn("", "..\auxiliar\image\mensa4.gif", 220, 40, -1, -1, 1)
Sleep(10000)
SplashOff()
FechaEmulador()
Exit(0)
EndIf
EndIf;chama o emulador
$exe_mame = ShellExecute($mamepar1, $mamepar2, @ScriptDir,"open",@SW_HIDE)
If @error Then
SplashImageOn("", "..\auxiliar\image\mensa5.gif", 220, 40, -1, -1, 1)
SoundPlay("..\auxiliar\som\erroemuexe.wav")
SplashOff()
Exit(0)
EndIfWinWaitActive("classname=MAME", "",10)
HotKeySet("j", "FechaEmulador") ;intala o hotkey, para capturar a tecla "J", saida
HotKeySet("k", "PegaFicha") ;intala o hotkey, usando a tecla "K" , ficha
HotKeySet("1", "EnviaFicha") ;intala o hotkey, usando a tecla "1", start;rotina de loop
GLOBAL $lopping
$lopping=1
While $lopping
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")
HotKeySet("1");envia um ESC para o emulador
if Not WinActive("classname=MAME") Then
WinActivate ("classname=MAME")
EndIfSend("{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=MAME","", 5)
if Not $fechou Then
ProcessClose($mamepar1)
EndIf;fecha o joytokey
If ProcessExists("joytokey.exe") Then
if Not WinActive("classname=TApplication") Then
WinActivate ("classname=TApplication")
EndIf
Send("{LALT}FX")
EndIfSplashOff()
;encerra a rotina principal
$lopping=0
EndFunc;função responssavel por armazenar as fichas
Func PegaFicha()
Local $atual, $valor, $contador, $calcula, $adiciona
;lê os dados atuais
$atual=IniRead("..\advmenu.ini","FICHEIRO","FICHAS","0")
$contador=IniRead("..\advmenu.ini","FICHEIRO","CONTADOR","0")
$valor=IniRead("..\advmenu.ini","CONFIGURACAO","TEMPOPORFICHA","600000")
$calcula=(Number($atual) + Number($valor))
$adiciona=(Number($contador)+1)
;grava os novos valores
IniWrite("..\advmenu.ini","FICHEIRO","FICHAS",String($calcula))
IniWrite("..\advmenu.ini","FICHEIRO","CONTADOR",String($adiciona))
SoundPlay("..\auxiliar\som\coin.wav")
EndFunc;função responssavel por enviar a ficha para o emulador
Func EnviaFicha()
Local $atual, $valor, $calcula
;lê os dados atuais
$atual=IniRead("..\advmenu.ini","FICHEIRO","FICHAS","0")
$valor=IniRead("..\advmenu.ini","CONFIGURACAO","TEMPOPORFICHA","600000");se as fichas já foram enviadas, então envia um start
If Number($atual) < Number($valor) Then
HotKeySet("1")
Send("{1 down}")
sleep(100)
Send("{1 up}")
HotKeySet("1", "EnviaFicha")
SoundPlay("..\auxiliar\som\semficha.wav") ;informa que não há mais fichas
Return ;sai sem enviar a ficha
EndIf;atualiza a quantidade de fichas
$calcula=(Number($atual) - Number($valor))
IniWrite("..\advmenu.ini","FICHEIRO","FICHAS",String($calcula));envia a ficha para o emulador
Send("{5 down}")
sleep(100)
Send("{5 up}")
EndFuncpode me ajudar?
Publicado 10 meses atrás #
-
@araujo
e so colocar ; nessa linha ou apagar se preferir.
AutoItSetOption("RunErrorsFatal", 0)Publicado 10 meses atrás #
-
tirei essa linha ta dando linha 1 erro parametro ,alguma coisa desse tipo
Publicado 10 meses atrás # -
Ai vc tem o arquivo "aumame.ini"
Publicado 10 meses atrás #
-
tenho sim
Publicado 10 meses atrás # -
Araújo aqui o seu script abriu o jogo normalmente confira o seu aumame.ini ou o advmenu.rc para ver se as informações estão corretas.
Geralmente as pessoas se adptam ao mundo, algumas pessoas tentam adaptar o mundo a elas e se tornam grandes líderes.Publicado 10 meses atrás # -
eu queria mudar o seguinte nesse script ,trocar a tecla "j pelo esc , a tecla 5 para dar credito, tem como?
Publicado 10 meses atrás #
-
Araújo para mudar o "j" para "esc" troque por esta linha:
HotKeySet("{ESC}", "fechaemulador") ;Define "esc" como Hotkey para sair
as outras hotkeys você só altera elas e não precisa colocar entre chaves, estas coisas que quer fazer são coisas muito simples que teria conseguido fazer se tivesse estudado o conteúdo do tópico fixo "advancemenu e autoit primeiros passos" ou se simplesmente tivesse procurado no help do autoit, pois sem se esforçar sempre dependerá de outros para fazer qualquer coisa que queira e nem sempre podemos estar com tempo disponivel para lhe ajudar então te aconselho a se esforçar para aprender assim poderá fazer o que quer quando quiser.
Publicado 10 meses atrás #
Resposta »
Você deve fazer login para publicar.