TheGameCreators - CodeBase - 2D Guess The Number With Graphics

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 5th Jun 2009 02:32

Modified: 1st Jan 1970 01:00

Author: Brazos

Summary

This is a simple game of guessing the random number. Instead of just text there are graphics involved.

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem New Twist to "Guess The Number Game"

rem randomize the numbers 100 and 255

randomize 100

randomize 255

rem arrary for x and y positions of boxes

dim xypos(100,2)

ink rgb(255,255,255),0

cls 0

set text font "ariel"

set text size 14

center text 320,240,"LOADING...."

create bitmap 1,640,480

set current bitmap 1

cls 0

rem black box to cover the < and > numbers

get image 101,1,1,30,30

rem make images of number of trys the play makes

set text size 30

for t=201 to 300

t2=t-200

center text 50,6,"Try: "+str$(t2)

get image t,0,0,100,50

cls 0

next t

rem make 100 colored boxes and number them 1-100

for t=1 to 100

randomize timer()

ink rgb(rnd(100)+55,rnd(100)+55,rnd(100)+55),0

box 1,1,30,30

ink rgb(255,255,255),0

set text size 14

center text 15,6,str$(t)

get image t,1,1,30,30

next t

rem make the "play" or "quit" boxes when player wins

ink rgb(255,255,255),0

box 1,1,50,50

box 51,1,100,50

ink rgb(100,100,255),0

box 3,3,47,47

box 53,3,97,47

ink rgb(255,255,255),0

center text 25,14,"Play"

center text 75,14,"Quit"

get image 102,1,1,50,50

get image 103,51,1,100,50

delete bitmap 1

set current bitmap 0

cls 0

rem the game starting label

rem and play again label

startgame:

rem sub routine to choose random number and

rem  to place boxes on screen

gosub putpic

rem the main loop

rem "p" keeps the count on what number is in each position

rem "secret" is the random number player searches for

rem "target" is the actual numbered box clicked

rem "wrong" is the times the player trys

rem "time" is the variable used for the < or > numbers

rem p1 and p2 are then variables used to cycle through the numbered boxes

xp=mousex():yp=mousey():mc=mouseclick()

rem this section checks if chosen number is larger than random number

rem if it is then black boxes cover all then numbers larger than the chosen number

for p=p1 to p2

x=xypos(p,1)

y=xypos(p,2)

if mc=1 and mke=0 and xp>x and yp>y and xp<x+30 and yp<y+30

mke=1

target=p

if target>secret

wrong=wrong+1

for time=target to 100

paste image 101,xypos(time,1),xypos(time,2)

next time

p2=target-1

endif

rem this section checks if chosen number is smaller than random number

rem if it is then black boxes cover all then numbers smaller than the chosen number

if target<secret

wrong=wrong+1

for time=target to 1 step-1

paste image 101,xypos(time,1),xypos(time,2)

next time

p1=target+1

endif

rem this section the chosen number matches the random number, player wins

if target=secret then wrong=wrong+1:gosub win

rem this is the number of trys the player has made

if wrong>0

paste image (wrong+200),255,0

endif

next p

rem this prevents then mouse from being clicked twice in a row

if mc=0 and mke=1 then mke=0

loop

end

rem resets variables "t" and "wrong"

rem "t" is the variable to count arrary "xypos(100,2)"

rem "wrong" is the variable for the times a player trys

rem puts 100 color boxes on screen

rem chooses random number

putpic:

cls 0

t=1:wrong=0:p1=1:p2=100

for y=90 to 360 step 30

for x=170 to 440 step 30

paste image t,x,y

xypos(t,1)=x

xypos(t,2)=y

inc t

next x

next y

rem this keeps the random number random

randomize timer()

secret=rnd(99)+1

set text size 14

text 0,400,"The computer has choosen a random number between 1 and 100.  Click numbers to make a guess."

text 0,415,"If the number clicked is smaller than the random number, then the numbers below the one clicked"

text 0,430,"are blacked out.  If the number clicked is larger than the random number, then the numbers above"

text 0,445,"the one clicked are blacked out."

text 0,460," So click away!!!"

return

rem paste the winning random number box on screen

rem winning text

rem pastes the "play again" or "quit" boxes on screen

rem lets player choose to play again or quit

win:

cls 0

paste image secret,285,165

set text size 14

center text 300,200,"You Win"

center text 300,215,"It took you "+str$(wrong)+" trys."

center text 300,230,"Congradulations!!!"

center text 300,245,"(I think..)"

paste image 102,250,265

paste image 103,302,265

xp=mousex():yp=mousey():mc=mouseclick()

if mc=1 and xp>250 and yp>265 and xp<300 and yp<310 then goto startgame

if mc=1 and xp>303 and yp>265 and xp<350 and yp<310 then end

loop

end

Download

Please login to download

Comments

No comments yet.

Author Name:	Brazos
CodeBase Entries:	1

CodeBase - 2D Guess The Number With Graphics

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments