Casio fx-CG 50 and HP
Prime: The Price is Right Wheel Simulation
Introduction
On the very famous game show, The Price Is Right, currently
enjoying its fifth decade in its current run on television (1972-present), the
hour long game show is divided into three segments. The first two segments are played this way:
* An item up for bid is presented to four contestants who
directly called from the audience.
Whoever gets closest to the actual retail price without going over wins
the prize and plays a pricing game. This cycle occurs three times.
* The three winners play in a Showcase Showdown, where they
spin a wheel. The goal is obtain a score
closest to one dollar without going over.
The winner advances to the final Showcase round.
The third segment is the Showcase round played by the two
winners of the Showcase Showdown, where prize packages worth thousands of
dollars are at stake.
This blog will present a simulation of the Showcase Showdown. Like the game show, the amounts are shown in
cents, where 100 represents one dollar.
Single Spin Simulation:
Casio fx-CG 50
This program simulates a single spin. The spin starts on the dollar (100)
space. The space that the pointer is in
red with arrows pointed at it. You can
use the program on monochrome screens if you wish, just not type the color
commands (Black, Red).
Casio fx-CG50 Program
TRIPWHL1
“EWS 2018-06-12”
{100,15,80,35,60,20,40,
75,55,95,50,85,30,65,10,
45,70,25,90,5}→List
1
1 → P
For 1 → K To
RanInt#(20, 60)
ClrText
MOD(P, 20) → P
MOD(P+18, 20) → A
MOD(P+19, 20) → B
MOD(P, 20) → C
MOD(P+1, 20) → D
MOD(P+2 ,20) → E
A = 0 ⇒ 20 → A
B = 0 ⇒ 20 → B
C = 0 ⇒ 20 → C
D = 0 ⇒ 20 → D
E = 0 ⇒ 20 → E
Black Locate 5, 2,
List 1[E]
Black Locate 5, 3,
List 1[D]
Red Locate 5, 4,
List 1[C]
Red Locate 10, 4 “≪”
Black Locate 5, 5,
List 1[B]
Black Locate 5, 6,
List 1[A]
MOD(P+1, 20) → P
.1 + .4 K → T
For .1 → I To T Step
.1
Next
Next
Note: The lines
.1+.4K and the second For loop that follows it is to simulate the wheel that
slows down as it spins.
Now, if you want a complete simulation, check out the HP
Prime program TPIRWHEEL.
A Showcase Showdown
Round Simulation: HP Prime Program
TPIRWHEEL
The program offers two modes:
2 Player Spinoff:
This is a one spin playoff between two players.
3 Player Normal: This
is a normal game between three players.
Each player may have up to two spins.
If the score exceeds 1 dollar, the player is out, and given a final
score of 0.
When entering the names, you do not need to worry about
entering the quotes.
Bonus Spins
Should a player get 1 dollar in one spin or their score from
two spins add up to 1 dollar, then the player gets a bonus spin and wins
$1,000. The bonus spin always starts
from the 5 cent position. Unlike the
game show, all bonus spins are taken immediately. Landing on the green 5 cents and 15 cents
spaces wins $10,000, while landing on the red dollar space on the bonus spins
wins $25,000. The amount on the bonus
spin does not affect the player’s final score.
End of the Game
The end of the game will lists the players and their final
scores.
HP Prime Program
TPIRWHEEL
The program is over 10,000 bytes in memory.
sbr1();
// subroutine - wheel
EXPORT
TPIRWHEEL()
BEGIN
//
EWS 2018-06-09
//
The Price Is Right Showcase Showdown
//
Simulator - Official Version
//
bonus spins starts immediately
//
2 player spinoff mode (manual)
//
Setup
LOCAL
n,k,j,t,str1,str2,str3;
LOCAL
str4,m,b;
CHOOSE(n,"Number
of Players",
{"2
Player Spinoff",
"3
Player Normal"});
n:=n+1;
LOCAL
players:={};
LOCAL
scores:=MAKELIST(0,X,1,n);
LOCAL
bonuses:=MAKELIST(0,X,1,n);
//
Names
FOR
k FROM 1 TO n DO
str1:="Player
"+STRING(k);
INPUT({{str2,[[2]]}},str1,"Name:
");
players:=CONCAT(players,{str2});
END;
//
Spin the wheel
RECT(RGB(255,255,0));
IF
n==3 THEN
TEXTOUT_P("The
goal is to get close to",
10,10,7);
TEXTOUT_P("$1.00
without going over.",
10,40,7);
TEXTOUT_P("You
can have up to two spins.",
10,70,7);
TEXTOUT_P("Good
luck!",10,100,7);
ELSE
TEXTOUT_P("This
is a spinoff.",10,10,7);
TEXTOUT_P("Highest
number wins.",10,40,7);
END;
TEXTOUT_P("Press
any key to
continue.",10,130,7);
WAIT(0);
//
spinning the wheel
LOCAL
t,w,w1,w2,ch; // pointer
t:=1;
FOR
k FROM 1 TO n DO
MSGBOX(players(k)+"'s
1st spin");
m:=MAX(scores);
//
Inital spin
w:=sbr1(t);
t:=w(1);
scores(k):=w(2);
//
test for $1 and bonus spin
IF
scores(k)==100 THEN
RECT();
TEXTOUT_P(players(k)+"
has $1.00!",
10,10,7);
TEXTOUT_P("$1,000
bonus!",10,40,7,
RGB(0,128,0));
bonuses(k):=1000;
WAIT(0);
//
bonus spin
MSGBOX("Bonus
Spin");
w:=sbr1(1);
t:=w(1);
b:=0;
IF
w(2)==5 OR w(2)==15 THEN b:=10000 END;
IF
w(2)==100 THEN b:=25000 END;
IF
b>0 THEN
str4:=players(k)+"
has won $"+
STRING(b)+"!";
bonuses(k):=bonuses(k)+b;
ELSE
str4:="No
bonus money.";
END;
TEXTOUT_P(str4,10,180,7);
WAIT(0);
CONTINUE;
END;
IF
n==3 THEN
//
second spin?
str4:=players(k)+"
has "+
scores(k)+"
cents.";
TEXTOUT_P(str4,10,180,7);
WAIT(0);
CHOOSE(ch,
"Score
to beat: "+STRING(m)+
"
Spin Again?",{"SPIN","STAY"});
IF
ch==1 THEN
MSGBOX(players(k)+"'s
2nd spin");
w:=sbr1(t);
t:=w(1);
scores(k):=w(2)+scores(k);
//
did the player go over?
IF
scores(k)>100 THEN
str4:=players(k)+"
has gone over.";
TEXTOUT_P(str4,10,200,7,RGB(255,0,0));
WAIT(0);
scores(k):=0;
END;
//
test for $1.00 and bonus spin
IF
scores(k)==100 THEN
RECT();
TEXTOUT_P(players(k)+"
has $1.00!",
10,10,7);
TEXTOUT_P("$1,000
bonus!",10,40,7,
RGB(0,128,0));
bonuses(k):=1000;
//
bonus spin
MSGBOX("Bonus
Spin");
w:=sbr1(1);
t:=w(1);
b:=0;
IF
w(2)==5 OR w(2)==15 THEN b:=10000 END;
IF
w(2)==100 THEN b:=25000 END;
IF
b>0 THEN
str4:=players(k)+"
has won $"+
STRING(b)+"!";
bonuses(k):=bonuses(k)+b;
ELSE
str4:="No
bonus money.";
END;
TEXTOUT_P(str4,10,180,7);
WAIT(0);
CONTINUE;
END;
END;
END;
//
total score
str4:=players(k)+"
has "+
scores(k)+"
cents.";
TEXTOUT_P(str4,10,180,7);
WAIT(0);
END;
//
end of the game
RECT();
TEXTOUT_P("Final
Scores",10,10,7);
FOR
k FROM 1 TO n DO
TEXTOUT_P(players(k)+":",10,
10+25*k,7);
TEXTOUT_P(STRING(scores(k)/100,2,2),170,
10+25*k,7);
IF
bonuses(k)>0 THEN
TEXTOUT_P("$"+STRING(bonuses(k),2,0),
225,10+25*k,7,RGB(0,128,0));
END;
END;
WAIT(0);
END;
//
subroutine spin the wheel
sbr1(x)
BEGIN
LOCAL
wheel;
//
colors
LOCAL
b:=RGB(255,240,240); // snow white
LOCAL
r:=RGB(255,0,0); // red
LOCAL
dg:=RGB(0,255,0); // lime green
LOCAL
tn:=RGB(255,208,0); // tangerine
//
the wheel {{amount, color}}
wheel:=
{{100,r},{15,dg},{80,b},
{35,b},{60,b},{20,b},{40,b},
{75,b},{55,b},{95,b},{50,b},
{85,b},{30,b},{65,b},{10,b},
{45,b},{70,b},{25,b},{90,b},
{5,dg}};
//
pointer
LOCAL
pt,k,pm2,pm1,pc,pp1,pp2;
pt:=x;
//
wheel display
FOR
k FROM 1 TO RANDINT(20,60) DO
RECT();
pt:=pt
MOD 20;
//
display
pm2:=(pt+18)
MOD 20;
pm1:=(pt+19)
MOD 20;
pc:=pt
MOD 20;
pp1:=(pt+1)
MOD 20;
pp2:=(pt+2)
MOD 20;
//
box the numbers
RECT_P(74,44,164,144,0);
//
borders
LINE_P(74,44,164,44,tn);
LINE_P(74,64,164,64,tn);
LINE_P(74,84,164,84,tn);
LINE_P(74,104,164,104,tn);
LINE_P(74,124,164,124,tn);
LINE_P(74,144,164,144,tn);
LINE_P(74,44,74,144,tn);
LINE_P(164,44,164,144,tn);
//
side decoration - left with $
FILLPOLY_P([(28,44),(43,24),(58,24),
(73,44),(73,144),(28,144)],
RGB(255,128,0));
TEXTOUT_P("$",44,74,7,RGB(224,224,224));
//
side decoration - right
FILLPOLY_P([(165,44),(180,24),(195,24),
(210,44),(210,144),(165,144)],
RGB(255,128,0));
//
draw the pointer
TEXTOUT_P("<<",165,80,7,RGB(255,0,0));
//
draw the numbers
TEXTOUT_P(wheel(pp2,1),95,40,7,
wheel(pp2,2));
TEXTOUT_P(wheel(pp1,1),95,60,7,
wheel(pp1,2));
TEXTOUT_P(wheel(pc,1),95,80,7,
wheel(pc,2));
TEXTOUT_P(wheel(pm1,1),95,100,7,
wheel(pm1,2));
TEXTOUT_P(wheel(pm2,1),95,120,7,
wheel(pm2,2));
//
slow down the wheel
WAIT(0.08+0.01*k);
//
next pointer
pt:=pt+1
MOD 20;
END;
//
store results
LOCAL
x1:=(pt-1) MOD 20;
IF
x1==0 THEN x1:=20; END;
LOCAL
x2:=wheel(x1,1);
RETURN
{x1,x2};
END;
Source:
“Showcase Showdown” The Price Is Right
Wiki. Retrieved June 8, 2018. http://priceisright.wikia.com/wiki/Showcase_Showdown
Eddie
All original
content copyright, © 2011-2018. Edward
Shore.
