/*

rexxmast must be running

to run this PEACE OF CRAP
$VER: DEMO 1.0

  
WHAT IDIOT WROTE THIS WORTHLESS CRAP ?
                      --------------

WELL HERE'S THE AWNSER.

   BARRY BEUKHOF
   Spaaksingel 12
   6716 KG
   Ede
   The Netherlands

STICK WITH YOUR AMIGA. 
THIS SOFTWARE IS NOT REPRESENTATIVE OF THE AMIGA AT ALL !!
THERE'S LOTS OF COOL STUFF OUT THERE INCLUDING:

MYST
FOUNDATION
OneEscapee
Quake    (!!!)
ETC...

BUY YOUR SOFTWARE TO ENSURE THAT THERE WILL BE AMIGA SOFTWARE IN THE FUTURE
AND THAT THERE STILL IS A CHANCE OF THE AMIGA MAKING A COMEBACK.

*/

addlib('rexxreqtools.library',0,-30)

TAGS = 'rt_reqpos=reqpos_centerwin'
TITLE = "THIS GUI WAS MADE BY BARRY BEUKHOF"
STAG = ''
CTAG = 'rtez_flags=ezreqf_centertext'
NL = '0a'x

FTOTAL = '0'
BTOTAL = '0'
RESET = '0'
X = 'Default'
Y = 'Default'

name = 'Barry Beukhof'
score = 0
rat = 'Please enter something'
rat1 = ' '
suck = ' '
QUITING = '0'

START:

call rtezrequest(" User info " NL,
" Your name is "name NL,
,"CONTINUE|CHANGE NAME|Quit",TITLE,STAG,)

if rtresult = 1 then do
call CONTINUE
end

if rtresult = 2 then do
name = RTGETSTRING(,'Please enter your name' ,title,'OK|CANCEL',STAG,)
call START
end

if rtresult = 0 then do
call QUIT
end


CONTINUE:

call rtezrequest(" Question 1 " NL,
"Do you own an AMIGA" name "?" NL,
,"YES|NO",TITLE,STAG,)

IF RTRESULT = 1 THEN DO
score = score + 1 
call 2
end

if rtresult = 0 then do
call 2
end

2:

call rtezrequest(" The next question " NL,
"Are you A Quentin Tarantino Fan ?" NL,
,"Yes, of cource|No",TITLE,STAG,)

IF RTRESULT = 1 THEN DO
score = score + 1
CALL 3
END

IF RTRESULT = 0 THEN DO
CALL 3
END

3:

call rtezrequest("another question" NL,
"Are you a soccer fan ? " NL,
,"Yes|No",TITLE,STAG,)

if rtresult = 1 then do
call 4
end

if rtresult = 0 then do
score = score + 1
call 4
end

4:

call rtezrequest(" Boring.." NL,
"Which is better ? " NL,
,"Windows 98|Workbench 3.1",TITLE,STAG,)

if rtresult = 1 then do
say "ARE YOU CRAZY" name "?"
call 5
end

if rtresult = 0 then do
score = score + 1
call 5
end

5:

call rtezrequest(" And it goes on.." NL,
"Which is better ? " NL,
,"The Chaos Engine|The Chaos Engine 2",TITLE,STAG,)

if rtresult = 1 then do
score = score + 1
call 6 
end

if rtresult = 0 then do
call 6
end

6:

call rtezrequest(" OH NO..." NL,
"Which processor should future amigas use ?" NL,
,"DEC Alpha|Power PC",TITLE,STAG,)

if rtresult = 1 then do
call 7
end

if rtresult = 0 then do
score = score + 1 
call 7
end

7:

call rtezrequest(" Please make it stop !" NL,
"Do you like the music the spice girls make ? " NL,
,"Yes|No",TITLE,STAG,)

if rtresult = 1 then do
say "You've been discualified"
say "Do you really like the spice girls" name "?"
call quit1
end

if rtresult = 0 then do
score = score + 1
call 8
end

8:

call rtezrequest(" ?!#@!#@!#? " NL,
"How many hours of music does MTV play daily ?" NL,
," 0-1 Hours|1-2 Hours",TITLE,STAG,)

if rtresult = 1 then do
score = score + 1
call 9
end

if rtresult = 0 then do
call 9
end

9:

call rtezrequest(" This one is impossible ! " NL,
"How do you spell the name of AIs president ?" NL,
," Petro Tyschtschenko|Petro Tyschtchenko ",TITLE,STAG,)

if rtresult = 1 then do
say "PURE Luck !"
score = score + 1
call 10
end

if rtresult = 0 then do
call 10
end

10:

call rtezrequest(" THE LAST ONE !!! " NL,
"Did you like this quiz ?" NL,
," Yes|No ",TITLE,STAG,)

if rtresult = 1 then do
say " You've just lost all the point you've scored ! "
score = score - score
call quit1
end

if rtresult = 0 then do
score = score + 1
call quit1
end


QUIT1:

say "You're score is" score"/10."

if score = 0 then do
say "How did you do that" name "?"
call quit
end

if score = 9 then do
say "Almost perfect"
call quit
end

if score = 10 then do
say "PERFECT"
call quit
end

QUIT:

say " "
say "so long" name "!" 

EXIT
end