Sign in to follow this  
kingsrookie

My first game(written in BASIC)

Recommended Posts

I have finished my first actual game in BASIC. It is a weak slot machine type game yet it works and is quite fun. I was wondering how i could add a picture of coins whenever you win. PRINT "READY FOR THE GAMES?" INPUT PROMPT "Would you like to play? PRESS 1 FOR YES AND 2 FOR NO! ":answer IF answer=2 then STOP ELSEIF answer=1 then END IF PRINT "We are going to make a slot machine for you!" PRINT "You are going to start off with 100 tokens!" LET tokens=100 FOR count=1 to 100 RANDOMIZE LET box1=Int(Rnd*3)+1 LET box2=Int(Rnd*3)+1 LET box3=Int(Rnd*3)+1 PRINT "[";box1;"]","[";box2;"]","[";box3;"]" IF box1=3 AND box2=3 AND box3=3 THEN LET tokens=tokens+12 PRINT "You have won 12 tokens!" PRINT tokens ELSEIF box1=2 AND box2=2 AND box3=2 THEN LET tokens=tokens+8 PRINT "You have won 8 tokens!" PRINT tokens ELSEIF box1=1 AND box2=1 AND box3=1 THEN LET tokens=tokens+4 PRINT "You have won 4 tokens!" PRINT tokens ELSE LET tokens=tokens-1 PRINT "YOU HAVE LOST 1 TOKEN!" PRINT tokens END IF INPUT PROMPT "Would you like to play? PRESS 1 FOR YES AND 2 FOR NO!":answer IF answer=2 then STOP ELSEIF answer=1 then END IF PRINT PRINT "YOU NOW HAVE";tokens;" tokens!" PRINT NEXT count END I have also written a horrible BlackJack game I want to add cards to.

Share this post


Link to post
Share on other sites
1. I am using TRUE BASIC
2. I am learning this language as a prerequisite to C++.
3. We have no textbook for TRUE BASIC, just notes and we are not messing with graphics in TRUE BASIC

Share this post


Link to post
Share on other sites
Congrats on your first game. Perhaps, for 'graphics', you could simply print out a row of asterisks, one per coin, or suchlike?

In the interest of efficiency, you may want to eliminate some redundant lines. For example, here:

IF answer=2 then
STOP
ELSEIF answer=1 then
END IF

Since your else case is not doing anything, you don't really need to clutter up your code with it. Just

IF (answer = 2) then STOP
ENDIF

would do. You may also want to get in the habit of putting parentheses around your test clauses in IF statements; it's helpful when they get more complicated. But this is a matter of taste, to be sure. (It is possible that TRUE BASIC doesn't allow this syntax, although I certainly hope it does. If that's so, you should ignore me. :) )

Share this post


Link to post
Share on other sites
I am unfamiliar with TrueBasic, but from their site:


8) Does True BASIC Support Graphics?

True BASIC supports several forms of line and point graphics. It can also display image files in BMP and several other formats. For example, here is a simple program that draws a graph of the square root function.
FOR x = 0 to 1 step .01
PLOT x, sqr(x);
NEXT x
END


Displaying image files should be sufficent to what you need. I would check your product documentation.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

Sign in to follow this