-
Notifications
You must be signed in to change notification settings - Fork 0
/
Tablero_suerte.au3
52 lines (52 loc) · 1.42 KB
/
Tablero_suerte.au3
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
;include files
#INCLUDE "include\AUDIO.AU3"
#include <GUIConstantsEx.au3>
#INCLUDE "INCLUDE\menu.au3"
#include "include\reader.au3"
#include "include\soundlib.au3"
;tablero de la suerte:
GLOBAL $VERSION = "0.1"
global $voicegame="V2"
$maingui = guicreate("tablero de la suerte VERSIÓN " &$VERSION)
GuiSetState(@sw_SHOW)
$menumusic = $device.opensound ("sounds\menumusic.wav", 0)
$logo = $device.opensound ("sounds\music3.wav", true)
$applause = $device.opensound ("sounds\applause.ogg", true)
menu()
func menu()
if $menumusic.playing=1 then
$menumusic.stop
$menumusic.reset
else
$menumusic.play
sleep(100)
$menumusic.repeating=1
$menumusic.volume = 0.40
endIf
sleep(200)
$menuprincipal = create_audio_menu("sounds/voices/default/game/mainmenu.wav", "sounds/voices/default/game/menuselection1.wav,sounds/voices/default/game/menuselection2.wav,sounds/voices/default/game/menu3.wav,sounds/voices/default/game/menu4.wav,sounds/voices/default/game/menu5.wav")
SoundFade($menumusic)
select
case $menuprincipal = "1"
Main()
case $menuprincipal = "2"
Main()
case $menuprincipal = "3"
options()
case $menuprincipal = "4"
ShellExecute("http://mateocedillo.260mb.net/")
case $menuprincipal = "5"
exit
EndSelect
EndFunc
func main()
if $menumusic.playing == "1" then
$menumusic.stop
endif
speak("Bienbenidos sean todos al tablero de la suerte.", 3)
sleep(2000)
$logo.play
sleep(4000)
$applause.play
sleep(8000)
EndFunc