guess the hidden card.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem Project: EspGame
Rem Created: 30/12/07 6:36:56 PM

Rem ***** Main Source File *****

`images 1 to 5 = shapes
`image  6      = blankcard
`image  7      = 1pixel
`-------------------------------------------------------------
set display mode 800,600,32
data "sphere.bmp","sq.bmp","cresant.bmp","waveline.bmp"
data "x.bmp","blankcard.bmp","1pixel.bmp"
`*** load images ***
for c = 1 to 7
   read pic$
   load image pic$,c,1
next c
`-------------------------------------------------------------
`*** make 5 shape cards ***
for c = 1 to 5
   sprite c,(c*130)-50,370,c `and position x useing the c counter.
next c
`-------------------------------------------------------------
`*** make 2 blank cards ***
player_card = 6
computer_card = 6
x = screen width()
y = screen height()
sprite 6,(x/4)+10,y/4,player_card
sprite 7,(x/2)+70,y/4,computer_card
`-------------------------------------------------------------
position mouse 0,0   `just to keep the mouse off the shape cards so that the yourcard image is blank at first loop.
sync on:sync rate 30
`*** game loop start ***
do
`*** outer loop start ***
score = 0 `*** reset score before [for p = 1 to 5 next p] loop.
For p = 1 to 5   `guess card, 5 times loop.
`*** variables ***
randome_card = 0 `reset to 0
player_card = 6  `reset image number on "your card" to blank image =6.
computer_card = 6 ` same here '
win = 0           `reset win and lose after REPEAT LOOP.
lose = 0
`*** generate randome number between 1 and 5 ***
randomize timer()
randome_card = rnd(4)+1   `set up random number
`-------------------------------------------------------------
`*** inner loop start ***
repeat `*** until win = 1 or lose = 1. ***
cls    `clear the screen to black
for c = 1 to 5
`*** make mouse sprite ***
sprite 8,mousex(),mousey(),7`=this is the 1pixel image used on the mouse pointer to detect sprite hit with shape cards.
`*** get players guess ***
   if sprite hit(8,c)>0`the mouse sprite,c = cards 1 to 5.
      player_card = c
       if mouseclick()=1
          computer_card = randome_card `when mouse clicked,store randome number in the variable computer_card.

           `------------------------------
           if player_card = computer_card `if image number out of 1 to 5 = the random number update WIN and SCORE.
               win = 1
               score = score+1
                endif
           if player_card <> computer_card
               lose = 1
                endif
           `------------------------------
       endif
   endif
next c
`-------------------------------------------------------------
`*** update screen ***
sprite 6,(x/4)+10,y/4,player_card
sprite 7,(x/2)+70,y/4,computer_card
`-------------------------------------------------------------
`Messages.
center text x/2,y-580,"SEE HOW MANY TIMES YOU GUESS THE RIGHT CARD OUT OF 5 GO'S."
center text x/2,y-560,"CLICK ON ONE OF THE SHAPE CARDS BELOW."
center text x/2,y-500,"go number_"+str$(p)`*** go number ***
text 210,128,"YOUR CARD" `*** text on top of card ***
text 470,128,"GUESS CARD"`*** text on top of card ***
sync
until win =1 or lose = 1
`inner loop end
`-------------------------------------------------------------
`print  message.
t = timer()   `*** set timer up to take away random number that is generated by calling the timer() function.
do
cls
` *** text the instructions again because we clear the screen again. ***
center text x/2,y-580,"SEE HOW MANY TIMES YOU GUESS THE RIGHT CARD OUT OF 5 GO'S."
center text x/2,y-560,"CLICK ON ONE OF THE SHAPE CARDS BELOW."
text 210,128,"YOUR CARD" `*** text on top of card ***
text 470,128,"GUESS CARD"`*** text on top of card ***
center text x/2,y-500,"go number_"+str$(p)`*** go number ***
`l*** text win of lose message ***.
if win = 1 then  center text x/2,y/2, "WELL DONE"
if lose = 1 then center text x/2,y/2, "BAD LUCK"
`*** pause for 2 seconds then break out of the loop
count=(timer()-t)/1000        `-----------------------take away rnd number and divide by 1000 to get seconds.
if count=2
   count=0`----------then reset count
   t=timer()`-------------reset timer.
   exit`-------------------------------break from message loop.
endif
sync
loop
`-------------------------------------------------------------
`outer loop end
next p `go back to for loop for 5 times.
`----------------------------------------------------------------------------
`after 5 for-next loops
`Game over score message.
do
cls
center text x/2,y/2, "YOUR SCORE IS "+STR$(SCORE)
center text x/2,y-580,"Press space to play again":if spacekey()=1 then exit`exit this loop
center text x/2,y-560,"Press control to quit":if controlkey()=1 then end`break from all loops
center text x/2,y-500,"Game over"
sync
loop
`----------------------------------------------------------------------------
`game loop end
sync
loop
end
`===================================================================================================