----------------------------------- rupert_lucy Sun Nov 16, 2003 12:48 am Black jack problem ----------------------------------- Hello. If you guys could help me, I would really really appreciate it.. Seriously, I do not know anything about this..and I'm totally lost during the class and so are others. but the teacher told us to make a Black jack program.. and I just have NO IDEA what to do... Can somebody help me?? I don't even know what Black jack is!!!!!!!!!!! :cry: :cry: ----------------------------------- Tony Sun Nov 16, 2003 1:00 am ----------------------------------- wow... well if you dont understand a thing in class... maybe you shouldn't be taking it :think: BlackJack is a card game. The objective is to get as close to 21 as possible, without going over it. Each number card is worth the number on it. Each face card is 10. Ace is ether 1 or 11. ----------------------------------- DanShadow Sun Dec 07, 2003 7:57 pm .. ----------------------------------- Yeah...if you can't design something as simple as BlackJack...well, its just kind of sad. My teacher told me to design a text based blackjack, so I did, it was easy. Then I started a new one, made a little graphics, here is th e code for what I did on that. (I stopped coding that a long while ago, im pretty sure you could adapt it for your purposes.) This is not to give you the answer to your problem, but help you understand it, and help you understand how to find a solution. :D var card, npctotal, npccard, total, num, cash, bet, intin : int var input : string cash := 10 procedure reset total := 0 card := 0 npctotal := 0 num := 0 bet := 0 Draw.Box (10, 10, 80, 120, 255) Draw.Box (90, 10, 160, 120, 255) Draw.Box (10, 260, 80, 370, 255) Draw.Box (90, 260, 160, 370, 255) locate (19, 22) put "Cards Total: ", total, "" .. locate (20, 22) put "Cash: $", cash locate (21, 22) put "Bet: $", bet locate (25, 22) put "[hit , stand , raise bet , lower bet]" end reset reset loop locate (23, 22) put " " locate (23, 22) put "Command: " .. get input : * if input = "hit" then randint (card, 1, 10) total := total + card num := num + 1 elsif input = "raise bet" then locate (18, 40) put "" locate (18, 40) put "By how much: " .. get intin if intin