TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 24th Apr 2007 09:29

Modified: 24th Apr 2007 09:56

Author: ozmoz

Summary

This game is a basic and easy card game :)

Full Description

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 :)

DarkBASIC Professional Source Code

` 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

Download

Please login to download

Comments

No comments yet.

CodeBase - cardgame