import G in "module.tu"
%include "songlist.t"
%Cart Machine v1.02
%Created By: pkjr92
%Current Version Completed: 09-July-2008

%This is a cart machine (a sound clip player).  The reason there are processes inside procedures is because
%that is the only way I could get the Music.PlayFileStop command to work.

%<-------------------- Begin Process List ---------------------------------------------->
process song1                               %begin the process by defining the name
    Music.PlayFile ("goodnightnewman.wav")  %tell the process what to do
end song1                                   %end the process

process song2
    Music.PlayFile ("runforrestrun.wav")
end song2

process song3
    Music.PlayFile ("sc_bond.wav")
end song3

process song4
    Music.PlayFile ("thebestschoolieverteachedat.wav")
end song4

process song5
    Music.PlayFile ("spiderpig.wav")
end song5

process song6
    Music.PlayFile ("121gigawatts.wav")
end song6

process song7
    Music.PlayFile ("failure.wav")
end song7

process song8
    Music.PlayFile ("rickroll.mp3")
end song8

process song9
    Music.PlayFile ("deanyell.wav")
end song9

process song10
    Music.PlayFile ("technobond.wma")
end song10

process song11
    Music.PlayFile ("technostarwars.wav")
end song11
%<-------------------------------- End Process List ------------------------------------------>


%<-------------------------------- Begin Procedure List -------------------------------------->
proc goto1 %name the procedure
fork song1 %tell the procedure what to do (in this case it will fork process "song1")
end goto1  %end the procedure

proc goto2
fork song2
end goto2

proc goto3
fork song3
end goto3

proc goto4
fork song4
end goto4

proc goto5
fork song5
end goto5

proc goto6
fork song6
end goto6

proc goto7
fork song7
end goto7

proc goto8
fork song8
end goto8

proc goto9
fork song9
end goto9

proc goto10
fork song10
end goto10

procedure goto11
fork song11
end goto11

proc goto12
Music.PlayFileStop
end goto12
%<------------------------------------ End Procedure List ------------------------------------->

View.Set ("graphics")
colorback (black)
loop

    exit when G.button (50, 1, "QUIT")

    G.procButton (50, 375, "Good Night Newman", goto1)
    G.procButton (50, 350, "Run Forest Run", goto2)
    G.procButton (50, 325, "Bond, James Bond", goto3)
    G.procButton (50, 300, "This is the best school I've Ever Teached At", goto4)
    G.procButton (50, 275, "Spider Pig", goto5)
    G.procButton (50, 250, "121 Gigawatts!", goto6)
    G.procButton (50, 225, "Failure is not an option", goto7)
    G.procButton (50, 200, "Rick-Roll (ERROR- .mp3)", goto8)
    G.procButton (50, 175, "Howard Dean Yell", goto9)
    G.procButton (50, 150, "Techno Bond (ERROR- .wma)", goto10)
    G.procButton (50, 125, "Techno Star Wars", goto11)
    G.procButton (125, 1, "<------------STOP ALL MUSIC---------->", goto12)
   
delay (100)

Text.Cls

end loop