if (isset(f5)) { set.horizon(1); reset(f33); load.logics(56); load.view(150); load.view(152); load.view(153); load.view(154); load.view(155); load.view(156); load.view(157); load.sound(6); load.sound(7); load.sound(5); if (v26 != 2) { load.view(151); } else { load.view(146); } load.pic(v0); draw.pic(v0); animate.obj(o15); ignore.objs(o15); position(o15,61,55); if (v26 != 2) { set.view(o15,151); } else { set.view(o15,146); } animate.obj(o13); ignore.objs(o13); set.view(o13,150); position(o13,54,82); v255 = 2; v227 = 1; v219 = 45; show.pic(); v229 = 6; call(56); print("\nPress F4 when ready to play.\n\nPress F6 for another card.\n\nPress" "F8 to stand.\n\nTo change the amount of your bet, type \"change bet.\"\n"); set(f48); set(f7); return(); } set(f69); if ((controller(c1) || said("help"))) { set(f245); } if ((said("tip","blond") || said("add","blond","bucks") || said("add","bucks","blond"))) { print("\"I'm sorry, Sir. We're not permitted to accept gratuities!\""); } if ((controller(c4) || said("bargain","fingers") || said("bargain","card") || said("bargain"))) { v219 = 45; if (v236 > 0) { print("Don't be in such a hurry. Finish this hand first!"); } else { if (v255 <= 0) { print("You bet zero dollars, receive zero cards, and win zero dollars and" "zero cents."); print("You can play all night like this!"); } else { if (v255 > v90) { v65 = 0; print("You can't bet more than you have."); } else { set(f75); v65 = 0; } } } } if ((controller(c8) || said("get up"))) { v219 = 45; if (!isset(f253)) { print("Please wait until it's your turn."); } else { if (v236 == 1) { v65 = 100; set(f75); } else { if (v236 == 2) { v65 = 200; set(f75); } else { print("Please wait until it's your turn."); } } } } if ((controller(c6) || said("beat") || said("beat","i'm") || said("card") || said("add","i'm","card"))) { v219 = 45; if (!isset(f253)) { print("Please wait until it's your turn."); } else { if (v236 == 1) { v233++; v235 = 243; v235 += v233; v235--; v229 = 1; call(56); v223 += v231; } else { if (v236 == 2) { v233++; v235 = 249; v235 += v233; v235--; v229 = 1; call(56); v224 += v231; } else { print("Please wait until it's your turn."); } } } } if (!isset(f2)) { goto(Label1); } if ((said("double") || said("double","up") || said("double","down"))) { v219 = 45; if (!isset(f253)) { print("Please wait until it's your turn."); } else { if (v236 == 1) { if ((v223 < 10 || v223 > 11)) { print("%m19double when you have 10 or 11 points."); } else { if (v90 < v226) { print("You don't have enough money!"); } else { set(f75); v65 = 20; } } } else { if (v236 != 2) { print("Please wait until it's your turn."); } else { if ((v224 < 10 || v224 > 11)) { print("%m19double when you have 10 or 11 points."); } else { if (v90 < v225) { print("You don't have enough money!"); } else { set(f75); v65 = 120; } } } } } } if ((said("split") || said("split","card") || said("split","fingers"))) { v219 = 45; if (!isset(f253)) { print("Please wait until it's your turn."); } else { if (v236 != 1) { print("Please wait until it's your turn."); } else { if (v233 != 2) { print("%m19split%m20"); } else { v235 = 243; v232 = *v235; v229 = 4; call(56); v52 = v55; v235++; v232 = *v235; v229 = 4; call(56); if (v55 != v52) { print("That's not a pair."); } else { if (v226 > v90) { print("You don't have enough money!"); } else { set(f75); v65 = 10; } } } } } } if ((said("surrender") || said("surrender","card") || said("surrender","fingers"))) { v219 = 45; if (!isset(f253)) { print("Please wait until it's your turn."); } else { if (v236 != 1) { print("Please wait until it's your turn."); } else { if (v233 != 2) { print("%m19surrender%m20"); } else { print("Surrendering your cards, you are refunded half of your bet."); v228 = v227; v229 = 5; call(56); v236 = 255; } } } } if ((said("alter","bet","rol") || said("new","bet","rol") || said("increase","bet","rol") || said("decrease","bet","rol") || said("bet","rol"))) { v219 = 45; if (v236 > 0) { print("It's too late now. This hand is already being played."); } else { Label2: get.num("Amount in dollars: $",v255); v52 = v255; v227 = 0; if (v52 > 20) { print("$20.00 is the maximum bet at this table."); goto(Label2); } Label3: if (v52 > 1) { v52 -= 2; v227++; goto(Label3); } if (v52 == 1) { print("Please bet an even number of dollars (2, 4, 6, etc.). The house" "does not keep half-dollars."); goto(Label2); } if (v255 > v90) { print("You don't have enough money!"); goto(Label2); } v229 = 6; call(56); } } if (isset(f32) && said("examine","all")) { v235 = 237; Label4: v229 = 1; call(56); v235++; if (v235 <= 254) { goto(Label4); } } if ((said("board","rol") || said("done","rol") || said("board","casino") || said("examine","area") || said("examine","casino") || said("get up","up"))) { print("\"Thanks for playing,\" says the dealer, finally cracking a smile." "\"Come back anytime.\""); set(f255); } if ((said("house rules") || said("examine","desk") || said("examine","brick") || said("examine","house rules"))) { set(f245); } if ((said("examine") || said("examine","desk"))) { v219 = 45; print("You are sitting at a blackjack table in the casino. There is a sign on" "the table titled \"House Rules.\""); } if ((said("examine","blond") || said("examine","blond"))) { print("She's a beautiful young lady, but you vow to keep your thoughts on the" "game."); } if ((said("ask","blond") || said("ask","blond"))) { print("\"Please, no talking at the tables.\""); } Label1: if (isset(f44)) { v219--; if (v219 == 1) { set(f245); } } if (isset(f245)) { reset(f245); print("\n HOUSE RULES\n\nThis table has a $20.00 limit. Bets must be a" "multiple of $2.00.\n\nDealer must hit 16, and must stand on" "17.\n\nBlackjack pays 1-1/2 to 1 odds.\n\nAny six cards under 22 wins.\n"); print("\nInsurance bets are offered whenever the dealer shows an ace. They are" "half your bet, and pay 2 to 1 odds.\n\nYou may split a pair or" "surrender whenever you have only two cards.\n\nYou may double down if" "your cards total 10 or 11 points.\n"); print("\nPress F4 when ready to play.\n\nPress F6 for another card.\n\nPress" "F8 to stand.\n\nTo change the amount of your bet, type \"change bet.\"\n"); v219 = 45; } if (isset(f75)) { reset(f75); v65++; v219 = 45; if (v65 == 1) { reset(f246); reset(f247); reset(f248); reset(f249); reset(f250); reset(f251); reset(f252); reset(f254); v222 = 0; v223 = 0; v224 = 0; v225 = 0; v226 = 0; v233 = 0; v226 = v255; v90 -= v226; v236 = 1; set(f87); v235 = 237; Label5: random(0,51,v52); if (v235 != 237) { v234 = 237; Label6: v232 = *v234; if (v232 == v52) { goto(Label5); } v234++; if (v234 < v235) { goto(Label6); } } if (v235 == 249) { v232 = v52; v229 = 4; call(56); v220 = v231; v221 = 243; v232 = *v221; v229 = 4; call(56); if (v220 == v231) { goto(Label5); } } *v235 = v52; v235++; if (v235 <= 254) { goto(Label5); } draw.pic(v0); show.pic(); v229 = 6; call(56); set.cel(o15,0); draw(o15); v66 = 28; sound(5,f53); } if (v65 == 2) { erase(o15); v66 = 9; } if (v65 == 3) { v235 = 243; v229 = 1; call(56); v223 = v231; v66 = 9; } if (v65 == 4) { v235 = 237; v229 = 1; call(56); v66 = 9; v222 = v231; } if (v65 == 5) { v235 = 243; v235++; v229 = 1; call(56); v223 += v231; v66 = 9; } if (v65 == 6) { v235 = 237; v235++; v229 = 3; call(56); v222 += v231; v233 = 2; v235 = 243; v232 = *v235; v229 = 4; call(56); if ((v231 == 1 || v231 == 10)) { v52 = v231; v235++; v232 = *v235; v229 = 4; call(56); if (v52 == 1 && v231 == 10) { set(f246); } if (v52 == 10 && v231 == 1) { set(f246); } } v235 = 237; v232 = *v235; v229 = 4; call(56); if (v231 == 1) { cancel.line(); prevent.input(); if (v26 == 2) { clear.lines(24,24,0); display(24,0,"Do you want insurance? "); } else { clear.lines(23,23,0); display(23,0,"Do you want insurance? "); } v19 = 0; set.scan.start(); if (v19 <= 0) { return(); } if ((v19 == 89 || v19 == 121)) { if (v227 > v90) { print("You don't have enough money!"); } else { set(f254); v90 -= v227; v229 = 6; call(56); } } else { if (v19 != 78 && v19 != 110) { print("Please answer \"y\" or \"n\"."); v19 = 0; return(); } } reset.scan.start(); v19 = 0; if (v26 == 2) { clear.lines(24,24,0); } else { clear.lines(23,23,0); } accept.input(); } v235 = 237; v232 = *v235; v229 = 4; call(56); if ((v231 == 1 || v231 == 10)) { v52 = v231; v235++; v232 = *v235; v229 = 4; call(56); if (v52 == 1 && v231 == 10) { set(f247); } if (v52 == 10 && v231 == 1) { set(f247); } } if (isset(f246)) { print("You have blackjack."); if (isset(f247)) { v236 = 255; v235 = 237; v235++; v229 = 1; call(56); print("The dealer has blackjack!"); print("It's a push!"); v228 = v226; v229 = 5; call(56); if (isset(f254)) { print("Your insurance bet pays 2 to 1."); v228 = v227; v228 += v227; v229 = 5; call(56); } } else { v228 = v226; v228 += v226; v228 += v227; v229 = 5; call(56); v66 = 55; draw(o13); set(f53); } } else { if (!isset(f247)) { set(f253); v65 = 8; } else { v236 = 255; v235 = 237; v235++; v229 = 1; call(56); v229 = 6; call(56); print("The dealer has blackjack!"); if (isset(f254)) { print("Your insurance bet pays 2 to 1."); v228 = v227; v228 += v227; v229 = 5; call(56); } } } } if (v65 == 7) { erase(o13); v236 = 255; } if (v65 == 11) { reset(f253); v225 = v255; v90 -= v225; v229 = 6; call(56); v235 = 249; v52 = *v235; v220 = 243; v220++; v221 = *v220; *v235 = v221; *v220 = v52; v235 = 243; v235++; v229 = 2; call(56); v66 = 9; } if (v65 == 12) { v235 = 249; v229 = 1; call(56); v223 -= v231; v66 = 9; } if (v65 == 13) { set(f253); v235 = 243; v235++; v229 = 1; call(56); v223 += v231; } if (v65 == 21) { reset(f253); v90 -= v226; v226 += v226; v229 = 6; call(56); v66 = 9; } if (v65 == 22) { set(f253); set(f248); v233++; v235 = 243; v235 += v233; v235--; v229 = 1; call(56); v223 += v231; v65 = 101; } if (v65 == 31) { print("Six cards make a winner."); v65 = 101; set(f250); } if (v65 == 101) { v236 = 2; reset(f253); if (isset(f252) && v223 < 12) { reset(f252); v223 += 10; } if (v223 > 21) { if (v225 <= 0) { print("You are busted."); } else { print("%m34busted!"); } } if (v225 <= 0) { v65 = 201; } else { set(f253); reset(f252); v233 = 2; v235 = 249; v232 = *v235; v229 = 4; call(56); v224 = v231; v235 = 249; v235++; v229 = 1; call(56); v224 += v231; } } if (v65 == 121) { reset(f253); v90 -= v225; v225 += v225; v229 = 6; call(56); v66 = 9; } if (v65 == 122) { set(f253); set(f249); v233++; v235 = 249; v235 += v233; v235--; v229 = 3; call(56); v224 += v231; v65 = 201; } if (v65 == 131) { print("Six cards make a winner."); v65 = 201; set(f251); } if (v65 == 201) { reset(f253); v236 = 3; v66 = 9; if (v225 > 0 && isset(f252) && v224 < 12) { reset(f252); v224 += 10; } if (v224 > 21) { print("%m43busted!"); } if (v223 < 22) { if (isset(f250)) { v65 = 230; } } else { if (v225 <= 0) { v65 = 220; } else { if (v224 > 21) { v65 = 220; } else { if (isset(f251)) { v65 = 230; } } } } } if (v65 == 202) { reset(f252); v66 = 9; v233 = 2; v235 = 237; v235++; v229 = 1; call(56); } if (v65 == 203) { v66 = 9; if (isset(f252) && v222 > 6 && v222 < 12) { reset(f252); v222 += 10; } if (v222 < 17) { v233++; v235 = 237; v235 += v233; v235--; v229 = 1; call(56); v222 += v231; if (v233 < 6) { v65 -= 1; } } } if (v65 == 204) { if (isset(f248)) { v235 = 243; v235++; v235++; v229 = 1; call(56); } if (v222 > 21) { print("The dealer busted."); if (v223 > 21) { v65++; } else { v228 = v226; v228 += v226; v229 = 5; call(56); v66 = 22; draw(o13); set(f53); } } else { if (v223 > 21) { v65++; } else { if (v223 > v222) { if (v225 > 0) { print("%m34wins!"); } v228 = v226; v228 += v226; v229 = 5; call(56); v66 = 33; draw(o13); set(f53); } if (v223 == v222) { if (v225 > 0) { print("%m34is a push!"); } else { print("It's a push!"); } v228 = v226; v229 = 5; call(56); v65++; } if (v223 < v222) { v65++; if (v225 > 0) { print("%m34loses!"); } else { print("You lose!"); } } } } } if (v65 == 205) { if (v225 <= 0) { v65++; } else { if (isset(f249)) { v235 = 249; v235++; v235++; v229 = 1; call(56); } if (v222 > 21) { if (v223 > 21) { print("The dealer busted."); } if (v224 > 21) { v65++; } else { v228 = v225; v228 += v225; v229 = 5; call(56); v66 = 22; if (v223 > 21) { draw(o13); } set(f53); } } else { if (v224 > 21) { v65++; } else { if (v224 > v222) { print("%m43wins!"); v228 = v225; v228 += v225; v229 = 5; call(56); v66 = 33; if (v223 > 21) { draw(o13); } set(f53); } if (v224 == v222) { print("%m43is a push!"); v228 = v225; v229 = 5; call(56); v65++; } if (v224 < v222) { print("%m43loses!"); v65++; } } } } } if (v65 == 206) { erase(o13); v236 = 255; } if (v65 == 221) { v235 = 237; v235++; v229 = 1; call(56); v236 = 255; } if (v65 == 231) { if (!isset(f250)) { v65++; } else { v228 = v226; v228 += v226; v229 = 5; call(56); v66 = 44; draw(o13); set(f53); } } if (v65 == 232) { if (!isset(f251)) { v65++; } else { v228 = v225; v228 += v225; v229 = 5; call(56); v66 = 44; draw(o13); set(f53); } } if (v65 == 233) { erase(o13); v236 = 255; } } if (v236 == 255) { v236 = 0; reset(f253); reset(f87); v65 = 0; v66 = 0; v219 = 45; if (v90 <= 0) { v65 = 0; v229 = 6; call(56); } } if (v236 == 1) { if (v223 > 21) { set(f75); v65 = 100; } else { if (v233 > 5) { set(f75); v65 = 30; } } } if (v236 == 2) { if (v224 > 21) { set(f75); v65 = 200; } else { if (v233 > 5) { set(f75); v65 = 130; } } } if (isset(f53)) { reset(f53); if (v65 == 1) { sound(5,f53); } if ((v65 == 6 || v65 == 204 || v65 == 205 || v65 == 231 || v65 == 232)) { sound(7,f53); } } if (isset(f12)) { v229 = 6; call(56); } if (isset(f255)) { reset(f48); reset(f7); reset(f87); v76 = 31; } if (isset(f32) && isset(f30)) { if ((v223 != v217 || v224 != v218 || v222 != v216)) { v229 = 7; call(56); } } return(); // Messages #message 1 "You are sitting at a blackjack table in the casino. There is a sign on the table titled \"House Rules.\"" #message 2 "Do you want insurance? " #message 3 "Amount in dollars: $" #message 4 "Please bet an even number of dollars (2, 4, 6, etc.). The house does not keep half-dollars." #message 5 "The dealer has blackjack!" #message 6 "Surrendering your cards, you are refunded half of your bet." #message 7 "You bet zero dollars, receive zero cards, and win zero dollars and zero cents." #message 8 "You can play all night like this!" #message 9 "Your insurance bet pays 2 to 1." #message 10 "Please answer \"y\" or \"n\"." #message 11 "You are busted." #message 12 "The dealer busted." #message 13 "She's a beautiful young lady, but you vow to keep your thoughts on the game." #message 14 "It's a push!" #message 15 "\"Thanks for playing,\" says the dealer, finally cracking a smile. \"Come back anytime.\"" #message 16 "You lose!" #message 17 "You have blackjack." #message 18 "Six cards make a winner." #message 19 "You can only " #message 20 " when you have two cards." #message 21 "\"Please, no talking at the tables.\"" #message 22 "That's not a pair." #message 23 "\"I'm sorry, Sir. We're not permitted to accept gratuities!\"" #message 24 "%m19double when you have 10 or 11 points." #message 25 "%m19split%m20" #message 26 "%m19surrender%m20" #message 27 "You don't have enough money!" #message 28 "Don't be in such a hurry. Finish this hand first!" #message 29 "It's too late now. This hand is already being played." #message 30 "You can't bet more than you have." #message 31 "$20.00 is the maximum bet at this table." #message 32 "" #message 33 "" #message 34 "Your first hand " #message 35 "%m34is a push!" #message 36 "%m34wins!" #message 37 "%m34loses!" #message 38 "%m34busted!" #message 39 "%m43is a push!" #message 40 "%m43wins!" #message 41 "%m43loses!" #message 42 "%m43busted!" #message 43 "Your split hand " #message 44 "Please wait until it's your turn." #message 45 "\n HOUSE RULES\n\nThis table has a $20.00 limit. Bets must be a multiple of $2.00.\n\nDealer must hit 16, and must stand on 17.\n\nBlackjack pays 1-1/2 to 1 odds.\n\nAny six cards under 22 wins.\n" #message 46 "\nInsurance bets are offered whenever the dealer shows an ace. They are half your bet, and pay 2 to 1 odds.\n\nYou may split a pair or surrender whenever you have only two cards.\n\nYou may double down if your cards total 10 or 11 points.\n" #message 47 "\nPress F4 when ready to play.\n\nPress F6 for another card.\n\nPress F8 to stand.\n\nTo change the amount of your bet, type \"change bet.\"\n"