// WAR Card Game for yaBasic // E.K.Virtanen 2007 // www.ascii-world.com // Public Domain // ==================================== Main loop of game CanExit = FALSE while(CanExit = FALSE) clear screen print "" print color("red") " --- War ---" print "" print " Card game for yaBasic." print " E.K.Virtanen, www.ascii-world.com" print " Public Domain" print "" print color("yellow") " 1.)"; : print " Play" print color("yellow") " 2.)"; : print " Help" print color("yellow") " 3.)"; : print " Quit" temp$ = inkey$ if temp$ = "1" gosub play if temp$ = "2" gosub help if temp$ = "3" CanExit = TRUE wend print "" print " Thank you for playing." end // ==================================== Play sub label play gosub createDeck // we need to create deck with what we play gosub shuffleDeck // and then we shuffle it gosub playGame // now we play return // ==================================== createDeck sub label createDeck dim cardColor$(4, 2) cardColor$(1, 1) = "red" : cardColor$(1, 2) = "Heart" : cardColor$(2, 1) = "red" : cardColor$(2, 2) = "Diamond" cardColor$(3, 1) = "white" : cardColor$(3, 2) = "Spade" : cardColor$(4,1) = "white" : cardColor$(4,2) = "Cross" // some nifty looping and MOD to get a deck of cards dim cardDeck(52, 2) for counter = 0 to 51 cardDeck(counter + 1, 1) = int(counter / 4 + 1) cardDeck(counter + 1, 2) = Mod(counter, 4) + 1 next counter return // ==================================== shuffleDeck sub label shuffleDeck dim temp(2) for counter = 1 TO 10000 // ten thousand rounds should be more than enough :D tempFirst = int(ran(52) + 1) tempSecond = int(ran(52) + 1) if tempFirst <> tempSecond then temp(1) = cardDeck(tempFirst, 1) temp(2) = cardDeck(tempFirst, 2) cardDeck(tempFirst, 1) = cardDeck(tempSecond, 1) cardDeck(tempFirst, 2) = cardDeck(tempSecond, 2) cardDeck(tempSecond, 1) = temp(1) cardDeck(tempSecond, 2) = temp(2) end if next counter return // ==================================== playGame sub label playGame canExit = false roundNumber = 0 cardNumber = 1 plrTotal = 0 cpuTotal = 0 clear screen print "" print color("red") " --- War ---" print "" print " You can start." while(canExit = false) print " Choose, do you want first or second card?" print color("yellow") " 1.)"; : print " First" print color("yellow") " 2.)"; : print " Second" print " Any other key for Cpu choose." choice$ = inkey$ print "" if(choice$ <> "1" and choice$ <> "2") gosub cpuChoose if choice$ = "1" then print " You take first." plrCard = cardNumber cpuCard = cardNumber + 1 end if if choice$ = "2" then print " Cpu takes first." plrCard = cardNumber + 1 cpuCard = cardNumber end if cardNumber = cardNumber + 2 roundNumber = roundNumber + 1 if cardNumber = 53 canExit = true gosub revealCards gosub whoWin clear screen wend print "" print " War is over and results are:" print color("yellow") " You: "; : print plrTotal; : print " cards." print color("red") " Cpu: "; : print cpuTotal; : print " cards." print "" print " Press any key for back to menu." inkey$ return // ==================================== whoWin sub label whoWin if cardDeck(plrCard, 1) > cardDeck(cpuCard, 1) then print "" print color("green") " You win!" print " You got both cards. "; plrTotal = plrTotal + 2 if cardDeck(plrCard, 1) - cardDeck(cpuCard, 1) > 8 print " You really did crash Cpu!" if cardDeck(plrCard, 1) - cardDeck(cpuCard, 1) < 3 print " So tight!" end if if cardDeck(plrCard, 1) < cardDeck(cpuCard, 1) then print "" print color("red") " You lose!" print " Cpu got both cards."; if cardDeck(cpuCard, 1) - cardDeck(plrCard, 1) > 8 print " Cpu really did override you!" if cardDeck(cpuCard, 1) - cardDeck(plrCard, 1) < 3 print " Close, so close!" cpuTotal = cpuTotal + 2 end if if cardDeck(plrCard, 1) = cardDeck(cpuCard, 1) then print "" print color("yellow") " It's a tie." print " Both got their own card." cpuTotal = cpuTotal + 1 : plrTotal = plrTotal + 1 end if print "" print color("yellow") " Winned cards after round: "; : print roundNumber print "" print " You: "; : print plrTotal print " Cpu: "; : print cpuTotal gosub uselessComments print "" print color("yellow") " Press a key for next round." inkey$ return // ==================================== uselessComments sub label uselessComments if plrTotal > cpuTotal then temp$ = " You are leading here!!!" if plrTotal - cpuTotal > 5 temp$ = " Making a good lead there." if plrTotal - cpuTotal > 10 temp$ = " You trying to escape?" if plrTotal - cpuTotal > 15 temp$ = " HEHE, youre really crushing Cpu here!!!" end if if plrTotal < cpuTotal then temp$ = " You are loosing!!!" if cpuTotal - plrTotal > 5 temp$ = " Cpu leads clearly!" if cpuTotal - plrTotal > 10 temp$ = " Cpu is trying to escape?" if cpuTotal - plrTotal > 15 temp$ = " LOL, Cpu really kicks your ass here." end if if plrTotal = cpuTotal temp$ = " Side by side!" print temp$ return // ==================================== revealCards sub label revealCards print "" print " Your card is..."; print color(cardColor$(cardDeck(plrCard, 2), 1)) cardColor$(cardDeck(plrCard, 2), 2); : print " "; : print cardDeck(plrCard, 1) print " ...and Cpu slowly reveales hes card what is."; for counter = 1 to 2 sleep 1 print "."; next counter print color(cardColor$(cardDeck(cpuCard, 2), 1)) cardColor$(cardDeck(cpuCard, 2), 2); : print " "; : print cardDeck(cpuCard, 1) print "" return // ==================================== cpuChoose sub label cpuChoose choice$ = "1" if ran() = true choice$ = "2" return // ==================================== help sub label help clear screen print "" print color("red") " --- War ---" print "" print " Card game for yaBasic." print " E.K.Virtanen, www.ascii-world.com" print " Public Domain" print "" print " I game of War, a normal card deck is shuffled." print " Then from a top of deck, both players gets an card." print " Who's card is higher (in numerical value) wins and he get's the cards." print " This way, whole deck is revealed to the end. Who has more cards is the winner." print "" print " You opponent is Cpu (computer) so this is one player game." print "" print color("yellow") " Press any key to return for menu." inkey$ return