Post Reply 
Treasure Hunt Game
06-03-2018, 02:50 PM
Post: #1
Treasure Hunt Game
Link to post: https://edspi31415.blogspot.com/2018/06/...-hunt.html

Background

The game show Treasure Hunt had three series on TV: 1956 – 1959, 1973 – 1977, and 1981 – 1982. Generally, two contestants (three in the 1973 – 1977 series) play a mini-game where the winner earned the right to hunt for treasure.

On the treasure hunt, the contestant selected from 1 of 30 (66 in 1981 – 1982) boxes. Each box had a cash envelope that was offered as a sure thing. Either the contestant took the sure thing or took the box. The boxes contained various prizes, from cars and trips to “klunks” (prank prizes not worth very much). One box always had a cash jackpot. In the 1973 – 1977 series, the jackpot box had $25,000.

In the 1973 -1977 and 1981 – 1982 series, the contestants were always female.

Can you find the treasure?

The program GAME_TREASURE presents you with 12 boxes, one has $50,000. Select a box by just tapping the screen. You will then be presented with a sure thing. A choose box will be presented where you make your choice to take the sure thing or take a risk and open the box. Good luck.

HP Prime Program GAME_TREASURE
Code:

EXPORT GAME_TREASURE()
BEGIN
// EWS 2018-04-14

// Intro screen
// Dark green screen (fir green)
RECT(#003000h);

// Intro screen
TEXTOUT_P("Are you ready to make money?",
0,0,4,#FFFF00h);
TEXTOUT_P("Welcome to your treasure",
0,20,4,#FFFF00h);
TEXTOUT_P("hunt! Choose your box and",
0,40,4,#FFFF00h);
TEXTOUT_P("GOOD LUCK!",
0,60,4,#FFFF00h);
WAIT(1.5);

// select money boxes
LOCAL tlst,sure,tar;
tlst:=RANDINT(12,1,15000);
tar:=RANDINT(1,12);
tlst(tar):=50000;
sure:=RANDINT(1000,6000);

// draw boxes
LOCAL tx,ty,I,J,L:=1;
tx:={10,70,80,140,150,210,220,280};
ty:={10,60,70,120,130,180};

LOCAL c,m,m1,mx,my;

WHILE MOUSE(1)≥0 DO END;

// draw the boxes
RECT();
FOR J FROM 0 TO 2 DO
FOR I FROM 0 TO 3 DO

FILLPOLY_P({
(tx(2*I+1),ty(2*J+1)),
(tx(2*I+2),ty(2*J+1)),
(tx(2*I+2),ty(2*J+2)),
(tx(2*I+1),ty(2*J+2))},#0000FFh);
// text
TEXTOUT_P(L,tx(2*I+1)+10,
ty(2*J+1)+15,7,#FFFFFFh);
L:=1+L;
END;
END;

// get user choice
REPEAT 
m:=MOUSE(); m1:=m(1);
UNTIL SIZE(m1)>0;
mx:=m1(1); my:=m1(2);

IF (mx≥10 AND mx≤70) AND 
(my≥10 AND my≤60) THEN
c:=1;
END;

IF (mx≥80 AND mx≤140) AND 
(my≥10 AND my≤60) THEN
c:=2;
END;

IF (mx≥150 AND mx≤210) AND 
(my≥10 AND my≤60) THEN
c:=3;
END;

IF (mx≥220 AND mx≤280) AND 
(my≥10 AND my≤60) THEN
c:=4;
END;

IF (mx≥10 AND mx≤70) AND 
(my≥70 AND my≤120) THEN
c:=5;
END;

IF (mx≥80 AND mx≤140) AND 
(my≥70 AND my≤120) THEN
c:=6;
END;

IF (mx≥150 AND mx≤210) AND 
(my≥70 AND my≤120) THEN
c:=7;
END;

IF (mx≥220 AND mx≤280) AND 
(my≥70 AND my≤120) THEN
c:=8;
END;

IF (mx≥10 AND mx≤70) AND 
(my≥130 AND my≤180) THEN
c:=9;
END;

IF (mx≥80 AND mx≤140) AND 
(my≥130 AND my≤180) THEN
c:=10;
END;

IF (mx≥150 AND mx≤210) AND 
(my≥130 AND my≤180) THEN
c:=11;
END;

IF (mx≥220 AND mx≤280) AND 
(my≥130 AND my≤180) THEN
c:=12;
END;

// analysis
RECT();
TEXTOUT_P("BOX "+c,10,10,6);
TEXTOUT_P("Today's sure thing is $"+
sure,10,30,6,#0000FFh);
WAIT(2.5);
LOCAL h;
CHOOSE(h,"$"+sure+"?",
"Take it!","The box!");

RECT();
TEXTOUT_P("BOX "+c,10,10,6);
IF h==1 THEN
TEXTOUT_P("Today's sure thing is $"+
sure,10,30,6,#0000FFh);
TEXTOUT_P("Your box had $"+
tlst(c),10,50,6);
ELSE
TEXTOUT_P("You turned down $"+sure,
10,30,6);
WAIT(0.75);
TEXTOUT_P("Your box has.... ",
10,50,6);
WAIT(0.75);
TEXTOUT_P("$"+tlst(c)+"!",
10,70,6,#00A060h);
END;

IF tlst(c)≠50000 THEN
LOCAL w;
w:=POS(tlst,50000);
TEXTOUT_P("Box "+w+" had the $50000.",
10,110,6);
END;

WAIT(0);
END;

Source:
“Treasure Hunt (U.S. Game Show)” Wikipedia. April 12, 2018. Retrieved June 3, 2018. Link: https://en.wikipedia.org/wiki/Treasure_H...game_show)
Visit this user's website Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 1 Guest(s)