This game is a basic and easy card game :)

This game is basic & easy card game .You are clik for open card.If you open 4 ace you are win. If your card is 10 ace is close and continue game.Good game :)

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem * Title  : Card game
Rem * Author : Ozan EKÄ°NCÄ°
Rem * Date   : 24th August 2003
ink rgb(244,214,210),1
load bitmap "kagit.bmp"
load bitmap "back.bmp",1
set current bitmap 0
get image 1,0,0,80,100
get image 2,80,0,160,100
get image 3,160,0,240,100
get image 4,240,0,330,100
get image 5,330,0,420,105
get image 6,0,110,80,210
get image 7,80,110,160,210
get image 8,160,110,240,210
get image 9,240,110,330,210
get image 10,330,110,420,210
get image 11,0,220,80,320
get image 12,80,220,160,320
get image 13,160,220,240,320
get image 14,240,220,330,320
get image 15,330,220,420,325
get image 16,0,330,80,430
get image 17,80,330,160,430
get image 18,160,330,240,430
get image 19,240,330,330,430
get image 20,330,330,420,430
copy bitmap 1,0
kx=100
ky=20

screenwidth=640
screenheight=480
repeat
k=rnd(20)
if k=0 then k=1
if mouseclick()=1
 paste image k,kx,ky
 kx=kx+100
 if k=5 then  paste image 5,0,a:a=a+100:ink rgb(0,0,0),1:set cursor 70,443:print "nice "
 if k=15 then  paste image 15,0,a:a=a+100:ink rgb(0,0,0),1:set cursor 70,443:print "nice!"
 if k=10 then  paste image 10,0,a:a=a+100:ink rgb(0,0,0),1:set cursor 70,443:print "nicely"
 if k=20 then  paste image 20,0,a:a=a+100:ink rgb(0,0,0),1:set cursor 70,443:print "nicely :) "
 if k=4 then paste image 4,0,a:a=a-100:ink rgb(0,0,0),1:set cursor 270,443:print "terribly!"
 if k=9 then paste image 9,0,a:a=a-100:ink rgb(0,0,0),1:set cursor 270,443:print "terribly!! "
 if k=14 then paste image 14,0,a:a=a-100:ink rgb(0,0,0),1:set cursor 270,443:print "terribly!!! "
 if k=19 then paste image 19,0,a:a=a-100:ink rgb(0,0,0),1:set cursor 270,443:print "terribly!!!:( "
if a>300 then set cursor 270,203:print "This is 4 ace you are win!!!!":input a$:GOTO KAPA
if a<-300 then a=0
puan =puan-1
repeat:until mouseclick()=0
endif
if kx>550 then kx=100:ky=ky+100
if ky>350 then ky=20
until mouseclick()=2
KAPA:
for a=1 to 20
delete image a
next a
end