TempleOSTS_131005.ISO

TempleOS/Demo/Games/CastleFrankenstein.CPP

@@ -112,7 +112,7 @@ class Monster
   Bool dead,pad[7];
 } monsters[NUM_MONSTERS];
 
-U0 FPSTransform(CDC *dc,I64 *x,I64 *y,I64 *z)
+U0 CFTransform(CDC *dc,I64 *x,I64 *y,I64 *z)
 {
   I64 zz;
   GrRot(dc->r,x,y,z);
@@ -146,27 +146,26 @@ U0 DrawIt(CTask *task,CDC *dc)
   I64 i,j,*r1,*r2,*r3,*s2w,xx,yy,zz,x,y,x1,y1,z1,
       c,x1w,y1w,x1h,y1h,xh,yh,zh,
       cx=task->win_pixel_width/2,
-      cy=task->win_pixel_height/2,
-      _man_xx=man_xx,_man_yy=man_yy;
-  U8 *inter;
-  F64 tt,_man_é=man_é;
+      cy=task->win_pixel_height/2;
+  U8 *temps;
+  F64 tt;
   CD3I32 poly[4];
 
   DCAllocDepthBuf(dc);
   MemSet(panels_processed_bitmap,0,(map_width*map_height+7)>>3);
 
   //World to screen
-  GrRotZEqu(dc->r,_man_é+ã/2);
+  GrRotZEqu(dc->r,man_é+ã/2);
   GrRotXEqu(dc->r,ã/2);
   GrSetRotMat(dc,dc->r);
 
-  xh=-_man_xx/SCREEN_SCALE; yh=-_man_yy/SCREEN_SCALE; zh=0;
+  xh=-man_xx/SCREEN_SCALE; yh=-man_yy/SCREEN_SCALE; zh=0;
   GrRot(dc->r,&xh,&yh,&zh);
   GrSetTranslation(dc->r,xh,yh,zh);
 
   //Screen to world
   s2w=GrRotX(-ã/2,task);
-  GrRotZEqu(s2w,-_man_é-ã/2);
+  GrRotZEqu(s2w,-man_é-ã/2);
   xh=0; yh=0; zh=SCREEN_SCALE;
   GrRot(s2w,&xh,&yh,&zh);
 
@@ -176,7 +175,7 @@ U0 DrawIt(CTask *task,CDC *dc)
   dc->ls.x=xx; dc->ls.y=yy; dc->ls.z=zz;
 
   dc->flags|=DCF_TRANSFORMATION;
-  dc->transform=&FPSTransform;
+  dc->transform=&CFTransform;
   dc->x=cx;
   dc->y=cy;
   r1=GrRotX(-ã/2,task);
@@ -189,20 +188,20 @@ U0 DrawIt(CTask *task,CDC *dc)
   r3=GrRotX(-ã/2,task);
   GrScaleMatEqu(r3,PLANT_SCALE);
 
-  x1h=_man_xx+yh*PLOT_GRID_WIDTH/2+xh*(PLOT_GRID_HEIGHT-1);
-  y1h=_man_yy-xh*PLOT_GRID_WIDTH/2+yh*(PLOT_GRID_HEIGHT-1);
+  x1h=man_xx+yh*PLOT_GRID_WIDTH/2+xh*(PLOT_GRID_HEIGHT-1);
+  y1h=man_yy-xh*PLOT_GRID_WIDTH/2+yh*(PLOT_GRID_HEIGHT-1);
   xh>>=1; yh>>=1;
   for (j=0;j<PLOT_GRID_HEIGHT*2;j++) {
     x1w=x1h;
     y1w=y1h;
     for (i=0;i<PLOT_GRID_WIDTH*4;i++) {
       xx=x1w/SCREEN_SCALE; yy=y1w/SCREEN_SCALE;
-      x=xx*SCREEN_SCALE-_man_xx; y=yy*SCREEN_SCALE-_man_yy;
+      x=xx*SCREEN_SCALE-man_xx; y=yy*SCREEN_SCALE-man_yy;
       if (1<=xx<map_width-1 && 1<=yy<map_height-1 &&
 	  !LBts(panels_processed_bitmap,yy*map_width+xx)) {
 	if ((c=map[yy*map_width+xx]) &&
 	    LOS(xx*SCREEN_SCALE+SCREEN_SCALE/2,yy*SCREEN_SCALE+SCREEN_SCALE/2,
-		_man_xx,_man_yy)) {
+		man_xx,man_yy)) {
 	  if (c==YELLOW)
 	    dc->color=RED;
 	  else
@@ -226,14 +225,14 @@ U0 DrawIt(CTask *task,CDC *dc)
 	    z1=0;
 	    GrTransform(dc,&x1,&y1,&z1);
 	    if (z1>0)
-	      SpritePlotRotMat3b(dc,x+SCREEN_SCALE/2,y+SCREEN_SCALE/2,0,$IB,"<5>",5$,r3);
+	      SpritePlotRotMat3B(dc,x+SCREEN_SCALE/2,y+SCREEN_SCALE/2,0,$IB,"<5>",5$,r3);
 	  } else if (c==YELLOW) {
 	    x1=x+SCREEN_SCALE/2;
 	    y1=y+SCREEN_SCALE/2;
 	    z1=0;
 	    GrTransform(dc,&x1,&y1,&z1);
 	    if (z1>0)
-	      SpritePlotRotMat3b(dc,x+SCREEN_SCALE/2,y+SCREEN_SCALE/2,0,$IB,"<6>",6$,r3);
+	      SpritePlotRotMat3B(dc,x+SCREEN_SCALE/2,y+SCREEN_SCALE/2,0,$IB,"<6>",6$,r3);
 	  }
 
 	  if (!map[(yy+1)*map_width+xx]) {
@@ -313,21 +312,21 @@ U0 DrawIt(CTask *task,CDC *dc)
   for (i=0;i<NUM_MONSTERS;i++) {
     x=monsters[i].x;
     y=monsters[i].y;
-    if (LOS(x,y,_man_xx,_man_yy)) {
-      x-=_man_xx;
-      y-=_man_yy;
+    if (LOS(x,y,man_xx,man_yy)) {
+      x-=man_xx;
+      y-=man_yy;
       xx=x;
       yy=y;
       zz=0;
       GrTransform(dc,&xx,&yy,&zz);
       if (zz>0) {
 	if (monsters[i].dead)
-	  SpritePlotRotMat3b(dc,x,y,0,$IB,"<2>",2$,r2);
+	  SpritePlotRotMat3B(dc,x,y,0,$IB,"<2>",2$,r2);
 	else {
 	  tt=Tri(tT,1.0);
-	  inter=SpriteInterpolate($IB,"<3>",3$,$IB,"<4>",4$,tt);
-	  SpritePlotRotMat3b(dc,x,y,0,inter,r1);
-	  Free(inter);
+	  temps=SpriteInterpolate($IB,"<3>",3$,$IB,"<4>",4$,tt);
+	  SpritePlotRotMat3B(dc,x,y,0,temps,r1);
+	  Free(temps);
 	}
       }
     }
@@ -356,13 +355,13 @@ U0 DrawIt(CTask *task,CDC *dc)
     if (!monsters[i].dead)
       GrPlot3(dc,2*(monsters[i].x/SCREEN_SCALE),2*(map_height-1-monsters[i].y/SCREEN_SCALE),0);
   dc->color=LTCYAN;
-  GrPlot3(dc,2*(_man_xx/SCREEN_SCALE),2*(map_height-1-_man_yy/SCREEN_SCALE),0);
+  GrPlot3(dc,2*(man_xx/SCREEN_SCALE),2*(map_height-1-man_yy/SCREEN_SCALE),0);
 
 
   if (tf) {
     dc->color=LTRED;
     if (Blink)
-      GrPutS(dc,cx-(FONT_WIDTH*14)/2,cy-FONT_HEIGHT/2,"Game Completed");
+      GrPrint(dc,cx-(FONT_WIDTH*14)/2,cy-FONT_HEIGHT/2,"Game Completed");
     tt=tf;
   } else {
     dc->color=LTGREEN;
@@ -370,7 +369,7 @@ U0 DrawIt(CTask *task,CDC *dc)
     GrLine(dc,cx,cy-5,cx,cy+5);
     tt=tT;
   }
-  GrPrintF(dc,0,0,"Enemy:%d Time:%3.2f Best:%3.2f",monsters_left,tt-t0,best_score);
+  GrPrint(dc,0,0,"Enemy:%d Time:%3.2f Best:%3.2f",monsters_left,tt-t0,best_score);
   Free(s2w);
 }
 
@@ -542,6 +541,7 @@ U0 CastleFrankenstein()
   SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
   Fs->text_attr=RED<<4+WHITE;
   Preempt(OFF);
+  WinBorder;
   WinMax;
   WordStat;
   Init;
@@ -591,7 +591,84 @@ fs_done:
 }
 
 CastleFrankenstein;
-
+    <<<< ,,,$8888$$$$4444((((0,0T0T0TLTL,L,L,404P4P4PHPH0H0H0808L8L8LDLD4D4D4<4<H<H<H@H@8@T@l@l4lLlLˆLˆLˆ$ˆ$€$€$€0€0l0p4„4„(„H€HpHpDp8p8€8€8€D€DtHtDt<t<|<x@|@|DxD„ „„tppp\\\\llhlll````dddhhXTPPPLLL(@@8HHHH8888DDDD<Z,u @ Z
DD<DDD\D\DdT0T8THL0LLd d hh88x8|8|4x4tt$t@8HLL,L4L<LZ<HñÿÿÿñÿÿÿØÿÿÿìÿÿÿØÿÿÿûÿÿÿ¿ÿÿÿ¿ÿÿÿØÿÿÿØÿÿÿìÿÿÿƒÿÿÿçÿÿÿƒÿÿÿûÿÿÿƒÿÿÿƒÿÿÿ
+
+

+ 
+  
+ <
+<<
+< 
+,,,
+$8
+88
+8$
+$$
+$4
+44
+4(
+((
+(0
+,0T0
+T0TL
+TL,L
+,L,4
+04P4
+P4PH
+PH0H
+0H08
+08L8
+L8LD
+LD4D
+4D4<
+4<H<
+H<H@
+H@8@
+T@l@
+l4lL
+lLˆL
+ˆLˆ$
+ˆ$€$
+€$€0
+€0l0
+p4„4
+„(„H
+€HpH
+pDp8
+p8€8
+€8€D
+€DtH
+tDt<
+t<|<
+x@|@
+|DxD
+„ „
+„t
+pp
+p\
+\\
+\l
+lh
+ll
+l`
+``
+`d
+dd
+hh
+XT
+PP
+PL
+LL
+(@@
+8H
+HH
+H8
+88
+8D
+DD
+D<Z,u
+ @ Z


+DD<
+DDD\
+D\Dd
T0T8THL0LLd d hh88x8|8|4x4
tt$t@8HLL,L4L<LZ<HñÿÿÿñÿÿÿØÿÿÿìÿÿÿØÿÿÿûÿÿÿ¿ÿÿÿ¿ÿÿÿØÿÿÿØÿÿÿìÿÿÿƒÿÿÿçÿÿÿƒÿÿÿûÿÿÿƒÿÿÿƒÿÿÿ
 tÿÿÿöÿÿÿtÿÿÿ
 ¿ÿÿÿöÿÿÿ¿ÿÿÿƒÿÿÿ
 
@@ -620,7 +697,7 @@ CastleFrankenstein;
 


 

 
$%*$*+'&('()&((	$++
-0/.1
12-,7 765343! 3 4583
3!
839;:7;76
6;
;
1
␍Z<HñÿÿÿöÿÿÿñÿÿÿØÿÿÿìÿÿÿØÿÿÿûÿÿÿ¿ÿÿÿ¿ÿÿÿØÿÿÿØÿÿÿìÿÿÿöÿÿÿƒÿÿÿçÿÿÿƒÿÿÿûÿÿÿƒÿÿÿƒÿÿÿ
+0/.1
12-,7 765343! 3 4583
3!
839;:7;76
6;
;
1
␍Z<HñÿÿÿöÿÿÿñÿÿÿØÿÿÿìÿÿÿØÿÿÿûÿÿÿ¿ÿÿÿ¿ÿÿÿØÿÿÿØÿÿÿìÿÿÿöÿÿÿƒÿÿÿçÿÿÿƒÿÿÿûÿÿÿƒÿÿÿƒÿÿÿ
 tÿÿÿöÿÿÿtÿÿÿ
 ¿ÿÿÿöÿÿÿ¿ÿÿÿƒÿÿÿ
 
@@ -645,7 +722,7 @@ CastleFrankenstein;
 


 

 
$%*$*+'&('()&((	$++
-0/.1
12-,7 765343! 3 4583
3!
839;:7;76
6;
;
1
␍Z<HñÿÿÿñÿÿÿØÿÿÿìÿÿÿØÿÿÿûÿÿÿ¿ÿÿÿ¿ÿÿÿØÿÿÿØÿÿÿìÿÿÿöÿÿÿƒÿÿÿçÿÿÿƒÿÿÿûÿÿÿƒÿÿÿƒÿÿÿ
+0/.1
12-,7 765343! 3 4583
3!
839;:7;76
6;
;
1
␍Z<HñÿÿÿñÿÿÿØÿÿÿìÿÿÿØÿÿÿûÿÿÿ¿ÿÿÿ¿ÿÿÿØÿÿÿØÿÿÿìÿÿÿöÿÿÿƒÿÿÿçÿÿÿƒÿÿÿûÿÿÿƒÿÿÿƒÿÿÿ
 tÿÿÿöÿÿÿtÿÿÿ
 ¿ÿÿÿöÿÿÿ¿ÿÿÿƒÿÿÿ
 
@@ -670,18 +747,18 @@ CastleFrankenstein;
 


 

 
$%*$*+'&('()&((	$++
-0/.1
12-,7 765343! 3 4583
3!
839;:7;76
6;
;
1
␍,ÎÿÿÿÎÿÿÿûÿÿÿçÿÿÿûÿÿÿçÿÿÿµÿÿÿ�ÿÿÿƒÿÿÿ�ÿÿÿâÿÿÿµÿÿÿâÿÿÿûÿÿÿÎÿÿÿûÿÿÿÎÿÿÿûÿÿÿûÿÿÿçÿÿÿûÿÿÿûÿÿÿçÿÿÿûÿÿÿµÿÿÿûÿÿÿ�ÿÿÿûÿÿÿ�ÿÿÿâÿÿÿûÿÿÿµÿÿÿâÿÿÿ�ÿÿÿµÿÿÿâÿÿÿµÿÿÿâÿÿÿ�ÿÿÿ�ÿÿÿûÿÿÿµÿÿÿûÿÿÿâÿÿÿµÿÿÿûÿÿÿâÿÿÿ�ÿÿÿûÿÿÿ
	
+0/.1
12-,7 765343! 3 4583
3!
839;:7;76
6;
;
1
␍,ÎÿÿÿÎÿÿÿûÿÿÿçÿÿÿûÿÿÿçÿÿÿµÿÿÿ�ÿÿÿƒÿÿÿ�ÿÿÿâÿÿÿµÿÿÿâÿÿÿûÿÿÿÎÿÿÿûÿÿÿÎÿÿÿûÿÿÿûÿÿÿçÿÿÿûÿÿÿûÿÿÿçÿÿÿûÿÿÿµÿÿÿûÿÿÿ�ÿÿÿûÿÿÿ�ÿÿÿâÿÿÿûÿÿÿµÿÿÿâÿÿÿ�ÿÿÿµÿÿÿâÿÿÿµÿÿÿâÿÿÿ�ÿÿÿ�ÿÿÿûÿÿÿµÿÿÿûÿÿÿâÿÿÿµÿÿÿûÿÿÿâÿÿÿ�ÿÿÿûÿÿÿ
	
 	
 

 		␍␍	␍		
 	


 
 
	␍
-
␍÷ÿÿÿ÷ÿÿÿñÿÿÿ÷ÿÿÿ	ôÿÿÿ	÷ÿÿÿ		øÿÿÿçÿÿÿìÿÿÿçÿÿÿìÿÿÿçÿÿÿøÿÿÿøÿÿÿçÿÿÿðÿÿÿçÿÿÿðÿÿÿçÿÿÿøÿÿÿçÿÿÿçÿÿÿ
			␍	␍		
+
␍÷ÿÿÿ÷ÿÿÿñÿÿÿ÷ÿÿÿ	ôÿÿÿ	÷ÿÿÿ		øÿÿÿçÿÿÿìÿÿÿçÿÿÿìÿÿÿçÿÿÿøÿÿÿøÿÿÿçÿÿÿðÿÿÿçÿÿÿðÿÿÿçÿÿÿøÿÿÿçÿÿÿçÿÿÿ
			␍	␍		
 		
	

 

 
-␍␍
␍(Øÿÿÿ(ØÿÿÿØÿÿÿØÿÿÿìÿÿÿÎÿÿÿÎÿÿÿìÿÿÿ‚‚ìÿÿÿ‚ìÿÿÿìÿÿÿ‚öÿÿÿâÿÿÿ‚
+␍␍
␍(Øÿÿÿ(ØÿÿÿØÿÿÿØÿÿÿìÿÿÿÎÿÿÿÎÿÿÿìÿÿÿ‚‚ìÿÿÿ‚ìÿÿÿìÿÿÿ‚öÿÿÿâÿÿÿ‚
 âÿÿÿ‚ìÿÿÿ