CodeBase - ESP Card Game

DarkBASIC Professional Source Code

` 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 `===================================================================================================

Download

Please login to download