HP Prime Simple Game (MOVEM) - Printable Version

Code:
EXPORT MOVEM7()

BEGIN

// Version 7

// 2014-02-16

// Collect 10 coins to unlock the goal



// A status screen is added on the bottom

// Bottom row is not avialable for play

// This version puts it all together:

// Coins, trees, and enemies



// Game introduction

MSGBOX("Collect all 10 $ signs to unlock

the goal! Avoid the purple enemies!");



// Clear the screen

RECT();



// Cursor set up

LOCAL A,B,C,D;

A:=150;

B:=216;

C:=150;

D:=216;

TEXTOUT_P("π",A,B,2);



// Draw Coins

LOCAL costr,L2,L3,cx,cy,I,coins;

coins:=10; // counter

L2:=RANDINT(10,0,31)*10;  // x coin

L3:=RANDINT(10,1,17)*12;  // y coin

costr:=CHAR(36);  // $ sign

FOR I FROM 1 TO 10 DO

cx:=L2(I); cy:=L3(I);

TEXTOUT_P(costr,cx,cy,2,#FF00h);

END;



// Draw Trees

// Trees Setup

LOCAL tstr,L0,L1,S,tx,ty,J;

S:=10;

L0:=RANDINT(S,0,31)*10;  // x tree

L1:=RANDINT(S,1,17)*12;  // y tree

tstr:=CHAR(8857); // tree



// Make sure trees and coins do not

// appear in the same place.

// If there is a conflict, the coin wins.

// Middle

FOR I FROM 2 TO S-1 DO

FOR J FROM 1 TO 10 DO

IF (L0(I)==L2(J)) AND (L1(I)==L3(J)) THEN

// Use CONCAT and SUB 

L0:=CONCAT(SUB(L0,1,I-1),SUB(L0,I+1,S));

L1:=CONCAT(SUB(L1,1,I-1),SUB(L1,I+1,S));

// Length of L0 and L1 decrease by 1

S:=S-1;

END;

END;

END; 

// Left Side

FOR J FROM 1 TO 10 DO

IF (L0(1)==L2(J)) AND (L1(1)==L3(J)) THEN

L0:=SUB(L0,2,S); L1:=SUB(L1,2,S); 

S:=S-1; 

END;

END;

// Right Side

FOR J FROM 1 TO 10 DO

IF (L0(S)==L2(J)) AND (L1(S)==L3(J)) THEN

L0:=SUB(L0,1,S-1); L1:=SUB(L1,1,S-1); 

S:=S-1; 

END;

END;



// Draw the forest

FOR I FROM 1 TO S DO

tx:=L0(I); ty:=L1(I);

TEXTOUT_P(tstr,tx,ty,2,#8000h);

END;



// Ememy Setup

LOCAL estr,d1,d2;

LOCAL ey1A,ey2A,ey3A;

LOCAL ex1A,ex2A,ex3A;

LOCAL ey1B,ey2B,ey3B;

LOCAL ex1B,ex2B,ex3B;

// Delay 

d1:=120;d2:=20;

// Enemy 1 jumps to random places

// Enemy 2 flies left to right

// Enemy 3 flies right to left



ex1A:=RANDINT(0,31)*10;

ey1A:=RANDINT(1,17)*12;



ex2A:=−10;

ey2A:=96;



ex3A:=330;

ey3A:=96;



estr:=CHAR(9991); //enemy

TEXTOUT_P(estr,ex1A,ey1A,2,#6000FFh);

TEXTOUT_P(estr,ex2A,ey2A,2,#8000FFh);

TEXTOUT_P(estr,ex3A,ey3A,2,#8000FFh);



// House setup

LOCAL hx,hy,hstr;

hx:=RANDINT(0,31)*10;

hy:=0;

hstr:=CHAR(9820); // castle

TEXTOUT_P(hstr,hx,hy,2,#964B00h);



// Lock setup

LOCAL lock:=1;



// Movement

REPEAT

// Delay Counter

d1:=d1-1; d2:=d2-1;



// Press an Arrow Key

K:=GETKEY;

IF K==7  AND A>0 THEN

C:=A-10; D:=B;

END;

IF K==8  AND A<310 THEN

C:=A+10; D:=B;

END;

IF K==12  AND B<216 THEN

C:=A; D:=B+12;

END;

IF K==2 AND B>0 THEN

C:=A; D:=B-12;

END;



// Move the Enemies

IF d1==0 THEN

d1:=120;



// Enemy 1

ex1B:=RANDINT(0,31)*10;

ey1B:=RANDINT(2,17)*12;

END;



IF d2==0 THEN

d2:=20;



// Enemy 2

ex2B:=ex2A+10;

ey2B:=ey2A;

IF ex2B>330 THEN 

ex2B:=−10; 

ey2B:=RANDINT(1,17)*12;

END;



// Enemy 3

ex3B:=ex3A-10;

ey3B:=ey3A;

IF ex3B<−10 THEN 

ex3B:=330; 

ey3B:=RANDINT(1,17)*12;

END;



END;



// Clear previous enemy spot

// Fixed objects will be drawn later

RECT_P(ex1A,ey1A,ex1A+10,ey1A+12);

RECT_P(ex2A,ey2A,ex2A+10,ey2A+12);

RECT_P(ex3A,ey3A,ex3A+10,ey3A+12);



// Draw new enemy positions

TEXTOUT_P(estr,ex1B,ey1B,2,#6000FFh);

ex1A:=ex1B;

ey1A:=ey1B;

TEXTOUT_P(estr,ex2B,ey2B,2,#8000FFh);

ex2A:=ex2B;

ey2A:=ey2B;

TEXTOUT_P(estr,ex3B,ey3B,2,#8000FFh);

ex3A:=ex3B;

ey3A:=ey3B;





// Bump in the boundary?

LOCAL collide:=0;

IF D==hy AND lock==1 THEN

collide:=1;

// No BREAK command because there is no

// FOR loop to break out of

END;



// Ran into a tree?

FOR I FROM 1 TO S DO

IF C==L0(I)  AND D==L1(I) THEN

collide:=1;

BREAK;

// BREAK needed because we have a FOR loop

END;

END;



IF collide==1 THEN

C:=A; D:=B;

END;



// Got hit by the enemy?

LOCAL death;

IF (C==ex1B) AND (D==ey1B) THEN

death:=1;

END;

IF (C==ex2B) AND (D==ey2B) THEN

death:=1;

END;

IF (C==ex3B) AND (D==ey3B) THEN

death:=1;

END;

IF death==1 THEN

MSGBOX("OUCH! :("); 

BREAK;

END;





// Collect the coin?

FOR I FROM 1 TO 10 DO

IF C==L2(I)  AND D==L3(I) THEN

L2(I):=-1; 

L3(I):=-1;

// Remove coin from play

coins:=coins-1;

BREAK;

END;

END;

// Are all the coins collected?

IF coins==0 THEN lock:=0 END;



// Player

RECT_P(A,B,A+10,B+12);

TEXTOUT_P("π",C,D,2);



// Draw a boundary

IF coins≠0 THEN

LINE_P(0,12,319,12,#FF0000h);

ELSE

// Unlock boundary, all coins collected

LINE_P(0,12,319,12,#FF00h);

END;



// Draw the Goal

TEXTOUT_P(hstr,hx,hy,2,#964B00h);



// Draw the Forest

FOR I FROM 1 TO S DO

tx:=L0(I); ty:=L1(I);

TEXTOUT_P(tstr,tx,ty,2,#8000h);

END;



// Draw the Coins

FOR I FROM 1 TO 10 DO

cx:=L2(I); cy:=L3(I);

// Don't draw at -1

IF L2(I)≠−1 AND L3(I)≠-1 THEN

TEXTOUT_P(costr,cx,cy,2,#FF00h);

END;



END;



// Draw Status Screen

RECT_P(0,217,319,239);

TEXTOUT_P("Coins Left: "+

STRING(IP(coins)),0,228,2);

IF lock==1 THEN

TEXTOUT_P("LOCKED",260,228,2,#FFh);

END;



// Prepare

 for the next move

A:=C; B:=D;

// Arrived home?

UNTIL K==50  OR (C==hx AND D==hy);



// Exit Conditions

// Plus Exit

IF K==50 THEN

MSGBOX("Program Terminated.");

END;

// Home Exit

IF C==hx AND D==hy THEN

MSGBOX("Home! :) "+CHAR(9829));

// CHAR(9829) produces a heart

END;



END;