ive been working on a pacman style game i intend to add some walls later on...
its for the hp39gii, you can use the virtual calc emulator but it will run too fast ...
program name is Trailer
Code:
and here's a bounce program on an hp39gii its really fast,
and it can draw XOR style patterns....
Code:
not quite used to the website yet, hopefully i havent posted this in the wrong place...
the smilie face is eight and a bracket... got it disabled smilies...
its for the hp39gii, you can use the virtual calc emulator but it will run too fast ...
program name is Trailer
Code:
EXPORT Trailer()
BEGIN
RECT_P(3);
RANDMAT(M1,16,8);
0►Q;
FOR Y FROM 1 TO 7 DO
FOR X FROM 1 TO 15 DO
IF M1[X,Y]>32 THEN 9671►M1[X,Y];1+Q►Q; ELSE 32►M1[X,Y] END;
TEXTOUT_P(char(M1[X,Y]),(X*16)-8,(Y*16)-8,1,0);
END;END;
8►X;4►Y;0►V;0►W;
0►X1;0►X2;0►X3;0►X0;
0►Y1;0►Y2;0►Y3;0►Y0;
WHILE Q>0 DO
0►V;0►W;
IF ISKEYDOWN(9)==1 THEN 0►V;−1►W;END;
IF ISKEYDOWN(10)==1 THEN 0►W;1►V;END;
IF ISKEYDOWN(14)==1 THEN −1►V;0►W;END;
IF ISKEYDOWN(15)==1 THEN 1►W;0►V;END;
GETKEY►N;
X+V►X;Y+W►Y;
IFTE (X<1,1►X);
IFTE (X>15,15►X);
IFTE (Y<1,1►Y);
IFTE (Y>7,7►Y);
TEXTOUT_P("◍",(X*16)-8,(Y*16)-8,1,0);
X1►X0;X2►X1;X3►X2;X►X3;
Y1►Y0;Y2►Y1;Y3►Y2;Y►Y3;
RECT_P((X0*16)-8,(Y0*16)-8,(X0*16)+8,(Y0*16)+8,3);
IF M1[X,Y]>32 THEN Q-1►Q;32►M1[X,Y];END;
END;
MSGBOX("DONE");
END;
and here's a bounce program on an hp39gii its really fast,
and it can draw XOR style patterns....
Code:
EXPORT Bounce()
BEGIN
RECT_P(3);
128►X;64►Y;
RANDOM(2)►S;RANDOM(2)►T;
WHILE 1 DO
GETKEY►K;
IF K==50 THEN
RANDOM(2)►S;RANDOM(2)►T;
128►X;64►Y;
RECT_P(3);
END;
X+S►X;Y+T►Y;
IFTE(X<1 OR X>255,−S►S);
IFTE(Y<1 OR Y>127,−T►T);
INVERT_P(X,Y,X+1,Y+1);
END;
END;
not quite used to the website yet, hopefully i havent posted this in the wrong place...
the smilie face is eight and a bracket... got it disabled smilies...
