Stop stroking @StopStroking @NullResponse @RapidCodeOn
(StartSnap)
@RapidCodeOn
@RT(Your card is a, You got a)... @Goto(01, 02, 03, 04, 05, 06, 07, 08, 09, 10, 11, 12, 13)
(01)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\01\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Slave_Snap]=[1] @NullResponse @Goto(Break) 
(02)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\02\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Slave_Snap]=[2] @NullResponse @Goto(Break) 
(03)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\03\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Slave_Snap]=[3] @NullResponse @Goto(Break) 
(04)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\04\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Slave_Snap]=[4] @NullResponse @Goto(Break) 
(05)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\05\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Slave_Snap]=[5] @NullResponse @Goto(Break) 
(06)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\06\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Slave_Snap]=[6] @NullResponse @Goto(Break) 
(07)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\07\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Slave_Snap]=[7] @NullResponse @Goto(Break) 
(08)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\08\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Slave_Snap]=[8] @NullResponse @Goto(Break) 
(09)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\09\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Slave_Snap]=[9] @NullResponse @Goto(Break) 
(10)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\10\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Slave_Snap]=[10] @NullResponse @Goto(Break) 
(11)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\11\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Slave_Snap]=[11] @NullResponse @Goto(Break) 
(12)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\12\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Slave_Snap]=[12] @NullResponse @Goto(Break) 
(13)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\13\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Slave_Snap]=[13] @NullResponse @Goto(Break) 

(Break)
@NullResponse @PlayVideo(CH, 60) @JumpVideo(#Random(10,40))

(My_Card)
@RapidCodeOn
@RT(I got a)... @Goto(D01, D02, D03, D04, D05, D06, D07, D08, D09, D10, D11, D12, D13)
(D01)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\01\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Dom_Snap]=[1] @NullResponse @Goto(Snap)
(D02)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\02\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Dom_Snap]=[2] @NullResponse @Goto(Snap)
(D03)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\03\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Dom_Snap]=[3] @NullResponse @Goto(Snap)
(D04)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\04\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Dom_Snap]=[4] @NullResponse @Goto(Snap)
(D05)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\05\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Dom_Snap]=[5] @NullResponse @Goto(Snap)
(D06)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\06\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Dom_Snap]=[6] @NullResponse @Goto(Snap)
(D07)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\07\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Dom_Snap]=[7] @NullResponse @Goto(Snap)
(D08)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\08\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Dom_Snap]=[8] @NullResponse @Goto(Snap)
(D09)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\09\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Dom_Snap]=[9] @NullResponse @Goto(Snap)
(D10)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\10\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Dom_Snap]=[10] @NullResponse @Goto(Snap)
(D11)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\11\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Dom_Snap]=[11] @NullResponse @Goto(Snap)
(D12)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\12\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Dom_Snap]=[12] @NullResponse @Goto(Snap)
(D13)
@NullResponse @RT(@ShowImage[\tgr8 images\Cards\13\*.jpg]) @Wait(2) @RapidCodeOn
@NullResponse @SetVar[Dom_Snap]=[13] @NullResponse @Goto(Snap)

(Snap)
@RapidCodeOn
@NullResponse @If[Slave_Snap]=[Dom_Snap]Then(SnapYes)

@RapidCodeOn
@SystemMessage @Timeout(3, Slow)
[yes] @NullResponse @Goto(Lose)
[no] @NullResponse @Goto(Win)

(SnapYes)
@RapidCodeOn
@SystemMessage @Timeout(3, Slow)
[yes] @NullResponse @Goto(Win)
[no] @NullResponse @Goto(Lose)

(Win)
@RapidCodeOn
Because you were @RT(right, correct, on the ball) you may edge.
@PlayAudio[tgr8 audio files\Edge sound.mp3] 
@NullResponse @EdgeMode(Video,endvideo) @PlayVideo @JumpVideo(50)
(endvideo)
#StopStrokingEdge
@NullResponse @Goto(Again)

(Slow)
@RapidCodeOn
You were to slow - did my distraction work then?
@NullResponse @Goto(Lose)

(Lose)
@RapidCodeOn
Oh dear #SubName you can't even play Snap!  As a puishment you may look at this video, you are not allowed to stroke, but to only to think about how @RT(useless, pathetic, pitiful, feeble, woeful, inadequete) you are.
@PlayVideo(60) @JumpVideo(50)
@NullResponse @Goto(Again)

(Again)
@RapidCodeOn
Do you want another game?
[yes] @Goto(StartSnap)
[no] OK
@NullResponse
@End


