Initial (manual) import

TempleOSCD/Demo/Games/CastleFrankenstein.HC

@@ -0,0 +1,770 @@
+//Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
+
+RegDft("TempleOS/CastleFrankenstein","F64 best_score=9999;\n");
+RegExe("TempleOS/CastleFrankenstein");
+
+//Set snap to 4 and width to 4
+//if you edit this map.
+
+//Don't forget to change the
+//starting pos.
+#define MAN_START_X	0
+#define MAN_START_Y	4.5
+
+$SP,"<1>",BI=1$
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+#define MONSTER_SCALE	2.0
+
+		     $SP,"<2>",BI=2$
+ 
+
+
+
+
+
+
+
+
+
+		     $SP,"<3>",BI=3$
+ 
+
+
+
+
+
+
+
+
+		     $SP,"<4>",BI=4$
+ 
+
+
+
+
+
+
+#define PLANT_SCALE	2.0
+
+
+
+		     $SP,"<5>",BI=5$
+
+
+
+
+
+
+
+
+
+
+
+
+
+		       $SP,"<6>",BI=6$
+
+
+
+
+
+
+
+#define SCRN_SCALE		512
+#define PLOT_GRID_WIDTH		24
+#define PLOT_GRID_HEIGHT	24
+#define MAN_HEIGHT		125
+
+#define MAP_SCALE	4
+I64 map_width,map_height;
+U8 *map=NULL,
+*panels_processed_bitmap=NULL;
+
+I64 man_xx,man_yy;
+F64 man_é;
+
+F64 t0,tf;
+
+#define MONSTERS_NUM	10
+I64 monsters_left;
+class Monster
+{
+  I64 x,y;
+  Bool dead,pad[7];
+} monsters[MONSTERS_NUM];
+
+U0 CFTransform(CDC *dc,I64 *x,I64 *y,I64 *z)
+{
+  I64 zz;
+  Mat4x4MulXYZ(dc->r,x,y,z);
+  zz=SCRN_SCALE/3+*z;
+  if (zz<1) zz=1;
+  *x=SCRN_SCALE/2* *x/zz;
+  *y=SCRN_SCALE/2* (*y+MAN_HEIGHT)/zz;
+  *x+=dc->x;
+  *y+=dc->y;
+  *z+=dc->z;
+}
+
+#define LOS_SCALE	4
+
+Bool LOSPlot(U8 *,I64 x,I64 y,I64)
+{
+  if (!map[(y/LOS_SCALE)*map_width+(x/LOS_SCALE)])
+    return FALSE;
+  else
+    return TRUE;
+}
+
+Bool LOS(I64 x1,I64 y1,I64 x2,I64 y2)
+{//Line of sight
+  return Line(NULL,x1*LOS_SCALE/SCRN_SCALE,y1*LOS_SCALE/SCRN_SCALE,0,
+	x2*LOS_SCALE/SCRN_SCALE,y2*LOS_SCALE/SCRN_SCALE,0,&LOSPlot);
+}
+
+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->pix_width/2,
+	cy=task->pix_height/2;
+  U8 *tmps;
+  F64 tt;
+  CD3I32 poly[4];
+  Monster *tmpm;
+
+  DCDepthBufAlloc(dc);
+  MemSet(panels_processed_bitmap,0,(map_width*map_height+7)>>3);
+
+  //World to scrn
+  Mat4x4RotZ(dc->r,man_é+ã/2);
+  Mat4x4RotX(dc->r,ã/2);
+  DCMat4x4Set(dc,dc->r);
+
+  xh=-man_xx/SCRN_SCALE; yh=-man_yy/SCRN_SCALE; zh=0;
+  Mat4x4MulXYZ(dc->r,&xh,&yh,&zh);
+  Mat4x4TranslationEqu(dc->r,xh,yh,zh);
+
+  //Scrn to world
+  s2w=Mat4x4IdentNew(task);
+  Mat4x4RotX(s2w,-ã/2);
+  Mat4x4RotZ(s2w,-man_é-ã/2);
+  xh=0; yh=0; zh=SCRN_SCALE;
+  Mat4x4MulXYZ(s2w,&xh,&yh,&zh);
+
+  //Rotate light source
+  xx=dc->ls.x; yy=dc->ls.y; zz=-dc->ls.z;
+  (*dc->transform)(dc,&xx,&yy,&zz);
+  dc->ls.x=xx; dc->ls.y=yy; dc->ls.z=zz;
+
+  dc->flags|=DCF_TRANSFORMATION;
+  dc->transform=&CFTransform;
+  dc->x=cx;
+  dc->y=cy;
+  r1=Mat4x4IdentNew(task);
+  Mat4x4RotX(r1,-ã/2);
+  Mat4x4RotZ(r1,tS);
+  Mat4x4Scale(r1,MONSTER_SCALE);
+
+  r2=Mat4x4IdentNew(task);
+  Mat4x4Scale(r2,MONSTER_SCALE);
+
+  r3=Mat4x4IdentNew(task);
+  Mat4x4RotX(r3,-ã/2);
+  Mat4x4Scale(r3,PLANT_SCALE);
+
+  Seed(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/SCRN_SCALE; yy=y1w/SCRN_SCALE;
+      x=xx*SCRN_SCALE-man_xx; y=yy*SCRN_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*SCRN_SCALE+SCRN_SCALE/2,yy*SCRN_SCALE+SCRN_SCALE/2,
+	      man_xx,man_yy)) {
+	  if (c==YELLOW)
+	    dc->color=DKGRAY;
+	  else
+	    dc->color=c;
+	  poly[0].x=x;
+	  poly[0].y=y;
+	  poly[0].z=0;
+	  poly[1].x=x+SCRN_SCALE;
+	  poly[1].y=y;
+	  poly[1].z=0;
+	  poly[2].x=x+SCRN_SCALE;
+	  poly[2].y=y+SCRN_SCALE;
+	  poly[2].z=0;
+	  poly[3].x=x;
+	  poly[3].y=y+SCRN_SCALE;
+	  poly[3].z=0;
+	  GrFillPoly3(dc,4,poly);
+	  if (c==GREEN) {
+	    x1=x+SCRN_SCALE/2;
+	    y1=y+SCRN_SCALE/2;
+	    z1=0;
+	    DCTransform(dc,&x1,&y1,&z1);
+	    if (z1>0)
+	      Sprite3Mat4x4B(dc,x+SCRN_SCALE/2,y+SCRN_SCALE/2,0,$IB,"<5>",BI=5$,r3);
+	  } else if (c==YELLOW) {
+	    x1=x+SCRN_SCALE/2;
+	    y1=y+SCRN_SCALE/2;
+	    z1=0;
+	    DCTransform(dc,&x1,&y1,&z1);
+	    if (z1>0)
+	      Sprite3Mat4x4B(dc,x+SCRN_SCALE/2,y+SCRN_SCALE/2,0,$IB,"<6>",BI=6$,r3);
+	  }
+
+	  if (!map[(yy+1)*map_width+xx]) {
+	    dc->color=LTGRAY;
+	    poly[0].x=x;
+	    poly[0].y=y+SCRN_SCALE;
+	    poly[0].z=0;
+	    poly[1].x=x+SCRN_SCALE;
+	    poly[1].y=y+SCRN_SCALE;
+	    poly[1].z=0;
+	    poly[2].x=x+SCRN_SCALE;
+	    poly[2].y=y+SCRN_SCALE;
+	    poly[2].z=SCRN_SCALE;
+	    poly[3].x=x;
+	    poly[3].y=y+SCRN_SCALE;
+	    poly[3].z=SCRN_SCALE;
+	    GrFillPoly3(dc,4,poly);
+	  }
+	  if (!map[yy*map_width+xx+1]) {
+	    dc->color=WHITE;
+	    poly[0].x=x+SCRN_SCALE;
+	    poly[0].y=y;
+	    poly[0].z=0;
+	    poly[1].x=x+SCRN_SCALE;
+	    poly[1].y=y+SCRN_SCALE;
+	    poly[1].z=0;
+	    poly[2].x=x+SCRN_SCALE;
+	    poly[2].y=y+SCRN_SCALE;
+	    poly[2].z=SCRN_SCALE;
+	    poly[3].x=x+SCRN_SCALE;
+	    poly[3].y=y;
+	    poly[3].z=SCRN_SCALE;
+	    GrFillPoly3(dc,4,poly);
+	  }
+	  if (!map[(yy-1)*map_width+xx]) {
+	    dc->color=LTGRAY;
+	    poly[0].x=x;
+	    poly[0].y=y;
+	    poly[0].z=0;
+	    poly[1].x=x+SCRN_SCALE;
+	    poly[1].y=y;
+	    poly[1].z=0;
+	    poly[2].x=x+SCRN_SCALE;
+	    poly[2].y=y;
+	    poly[2].z=SCRN_SCALE;
+	    poly[3].x=x;
+	    poly[3].y=y;
+	    poly[3].z=SCRN_SCALE;
+	    GrFillPoly3(dc,4,poly);
+	  }
+	  if (!map[yy*map_width+xx-1]) {
+	    dc->color=WHITE;
+	    poly[0].x=x;
+	    poly[0].y=y;
+	    poly[0].z=0;
+	    poly[1].x=x;
+	    poly[1].y=y+SCRN_SCALE;
+	    poly[1].z=0;
+	    poly[2].x=x;
+	    poly[2].y=y+SCRN_SCALE;
+	    poly[2].z=SCRN_SCALE;
+	    poly[3].x=x;
+	    poly[3].y=y;
+	    poly[3].z=SCRN_SCALE;
+	    GrFillPoly3(dc,4,poly);
+	  }
+	}
+      }
+      x1w-=yh;
+      y1w+=xh;
+    }
+    x1h-=xh;
+    y1h-=yh;
+  }
+
+  //Draw Monsters
+  for (i=0,tmpm=monsters;i<MONSTERS_NUM;i++,tmpm++) {
+    x=tmpm->x;
+    y=tmpm->y;
+    if (LOS(x,y,man_xx,man_yy)) {
+      x-=man_xx;
+      y-=man_yy;
+      xx=x;
+      yy=y;
+      zz=0;
+      DCTransform(dc,&xx,&yy,&zz);
+      if (zz>0) {
+	if (tmpm->dead)
+	  Sprite3Mat4x4B(dc,x,y,0,$IB,"<2>",BI=2$,r2);
+	else {
+	  tt=Tri(tS,1.0);
+	  tmps=SpriteInterpolate(tt,$IB,"<3>",BI=3$,$IB,"<4>",BI=4$);
+	  Sprite3Mat4x4B(dc,x,y,0,tmps,r1);
+	  Free(tmps);
+	}
+      }
+    }
+  }
+  Free(r1);
+  Free(r2);
+  Free(r3);
+
+  //Draw Map heads-up display, scaled 2 pixs
+  Free(dc->r);
+  DCMat4x4Set(dc,Mat4x4IdentNew(task));
+  dc->x=task->pix_width -2*map_width;
+  dc->y=task->pix_height-2*map_height;
+  dc->z=0;
+  dc->transform=&DCTransform;
+  dc->pen_width=2;
+  for (i=0;i<map_height;i++)
+    for (j=0;j<map_width;j++) {
+      dc->color=map[(map_height-1-i)*map_width+j];
+      GrPlot3(dc,2*j,2*i,0);
+    }
+
+    //Draw Things on heads-up Map
+  dc->color=LTPURPLE;
+  for (i=0,tmpm=monsters;i<MONSTERS_NUM;i++,tmpm++)
+    if (!tmpm->dead)
+      GrPlot3(dc,2*(tmpm->x/SCRN_SCALE),
+	    2*(map_height-1-tmpm->y/SCRN_SCALE),0);
+  dc->color=LTCYAN;
+  GrPlot3(dc,2*(man_xx/SCRN_SCALE),2*(map_height-1-man_yy/SCRN_SCALE),0);
+
+  if (tf) {
+    dc->color=LTRED;
+    if (Blink)
+      GrPrint(dc,cx-(FONT_WIDTH*14)/2,cy-FONT_HEIGHT/2,"Game Completed");
+    tt=tf;
+  } else {
+    dc->color=LTGREEN;
+    GrLine(dc,cx-5,cy,cx+5,cy);
+    GrLine(dc,cx,cy-5,cx,cy+5);
+    tt=tS;
+  }
+  GrPrint(dc,0,0,"Enemy:%d Time:%3.2f Best:%3.2f",
+	monsters_left,tt-t0,best_score);
+  Free(s2w);
+  Seed(0);
+}
+
+U0 Fire()
+{
+  I64 i,x,y;
+  F64 d,dx,dy,xx=Cos(man_é),yy=Sin(man_é);
+  Monster *tmpm;
+
+  Noise(100,53,74);
+  for (i=0,tmpm=monsters;i<MONSTERS_NUM;i++,tmpm++) {
+    x=tmpm->x;
+    y=tmpm->y;
+    if (!tmpm->dead &&
+	  LOS(x,y,man_xx,man_yy)) {
+      dx=x-man_xx;
+      dy=man_yy-y;
+      if (d=Sqrt(dx*dx+dy*dy)) {
+	dx/=d;
+	dy/=d;
+	if (dx*xx+dy*yy>0.995) {
+	  tmpm->dead=TRUE;
+	  if (!--monsters_left) {
+	    tf=tS;
+	    if (tf-t0<best_score)
+	      best_score=tf-t0;
+	  }
+	}
+      }
+    }
+  }
+}
+
+U0 Init()
+{
+  I64 i,x,y;
+  CDC *dc;
+  Monster *tmpm;
+
+  DocClear;
+  "$$BG,BLACK$$%h*c",TEXT_ROWS/2,'\n';
+
+  dc=Sprite2DC($IB,"<1>",BI=1$);
+  map_width =dc->width/MAP_SCALE+2;
+  map_height=dc->height/MAP_SCALE+2;
+  Free(map);
+  Free(panels_processed_bitmap);
+  map=CAlloc(map_width*map_height*sizeof(U8));
+  panels_processed_bitmap=MAlloc((map_width*map_height+7)>>3);
+  for (y=0;y<map_height-2;y++)
+    for (x=0;x<map_width-2;x++)
+      map[(map_height-2-y)*map_width+x+1]=GrPeek(dc,x*MAP_SCALE,y*MAP_SCALE);
+  DCDel(dc);
+  man_xx=(1+MAN_START_X)*SCRN_SCALE;
+  man_yy=(map_height-1-MAN_START_Y)*SCRN_SCALE;
+  man_é=0;
+
+  for (i=0,tmpm=monsters;i<MONSTERS_NUM;i++,tmpm++) {
+    tmpm->dead=FALSE;
+    do {
+      tmpm->x=RandU64%((map_width-2)*SCRN_SCALE)+SCRN_SCALE;
+      tmpm->y=RandU64%((map_height-2)*SCRN_SCALE)+SCRN_SCALE;
+    } while (!map[(tmpm->y/SCRN_SCALE)*map_width+tmpm->x/SCRN_SCALE]);
+  }
+  monsters_left=MONSTERS_NUM;
+  tf=0;
+  t0=tS;
+}
+
+U0 AnimateTask(I64)
+{
+  I64 i,x,y,dd;
+  Monster *tmpm;
+
+  while (TRUE) {
+    dd=0.25*SCRN_SCALE*Sin(tS/2);
+    for (i=0,tmpm=monsters;i<MONSTERS_NUM;i++,tmpm++)
+      if (!tmpm->dead) {
+	x=tmpm->x;
+	y=tmpm->y;
+	if (i&1)
+	  x+=dd;
+	else
+	  y+=dd;
+	if (0<=x<=map_width*SCRN_SCALE &&
+	      0<=y<=map_height*SCRN_SCALE &&
+	      map[(y/SCRN_SCALE)*map_width+x/SCRN_SCALE]) {
+	  if (!map[(y/SCRN_SCALE)*map_width+x/SCRN_SCALE+1] &&
+		x-RoundI64(x,SCRN_SCALE)>SCRN_SCALE/2 ||
+		!map[(y/SCRN_SCALE)*map_width+x/SCRN_SCALE-1] &&
+		x-RoundI64(x,SCRN_SCALE)<SCRN_SCALE/2)
+	    x=RoundI64(x,SCRN_SCALE)+SCRN_SCALE/2;
+	  if (!map[(y/SCRN_SCALE+1)*map_width+x/SCRN_SCALE] &&
+		y-RoundI64(y,SCRN_SCALE)>SCRN_SCALE/2 ||
+		!map[(y/SCRN_SCALE-1)*map_width+x/SCRN_SCALE] &&
+		y-RoundI64(y,SCRN_SCALE)<SCRN_SCALE/2)
+	    y=RoundI64(y,SCRN_SCALE)+SCRN_SCALE/2;
+	  tmpm->x=x;
+	  tmpm->y=y;
+	}
+      }
+    Sleep(20);
+  }
+}
+
+U0 CleanUp()
+{
+  Free(map);
+  Free(panels_processed_bitmap);
+  map=NULL;
+  panels_processed_bitmap=NULL;
+}
+
+U0 SongTask(I64)
+{//Song by Terry A. Davis
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  while (TRUE) {
+    Play("3q.A#eGAeA#qAq.A#eGeAeA#qA");
+    Play("3q.A#eGA#AqGq.A#eGA#AqG");
+    Play("4eA#AqGeA#AqGeA#AGAA#AqG");
+  }
+}
+
+U0 MoveMan(F64 é)
+{
+  I64 x,y,color,step=SCRN_SCALE/2;
+  do {
+    x=man_xx+step*Cos(é);
+    y=man_yy-step*Sin(é);
+    x=Clamp(x,0,map_width*SCRN_SCALE);
+    y=Clamp(y,0,map_height*SCRN_SCALE);
+    color=map[y/SCRN_SCALE*map_width+x/SCRN_SCALE];
+    if (color==DKGRAY || color==GREEN) {
+      man_xx=x;
+      man_yy=y;
+      break;
+    } else
+      step>>=1;
+  } while (step);
+}
+
+#define MICRO_STEPS	4
+U0 RotateMan(F64 d)
+{
+  I64 i;
+  for (i=0;i<MICRO_STEPS;i++) {
+    man_é+=d/MICRO_STEPS;
+    Sleep(15);
+  }
+}
+
+U0 CastleFrankenstein()
+{
+  I64 sc;
+  MenuPush(
+	"File {"
+	"  Abort(,CH_SHIFT_ESC);"
+	"  Exit(,CH_ESC);"
+	"}"
+	"Play {"
+	"  Restart(,'\n');"
+	"  Fwd(,,SC_CURSOR_UP);"
+	"  Bwd(,,SC_CURSOR_DOWN);"
+	"  Left(,,SC_CURSOR_LEFT);"
+	"  Right(,,SC_CURSOR_RIGHT);"
+	"  Fire(,CH_SPACE);"
+	"}"
+	);
+
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  Fs->text_attr=DKGRAY<<4+WHITE;
+  AutoComplete;
+  WinBorder;
+  WinMax;
+  DocCursor;
+  Init;
+  Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",,Fs);
+  Fs->song_task=Spawn(&SongTask,NULL,"Song",,Fs);
+  Fs->draw_it=&DrawIt;
+
+  try {
+    while (TRUE) {
+      switch (GetKey(&sc)) {
+	case CH_SPACE:
+	  Fire;
+	  break;
+	case '\n':
+	  Init;
+	  break;
+	case CH_ESC:
+	case CH_SHIFT_ESC:
+	  goto fs_done;
+	case 0:
+	  switch (sc.u8[0]) {
+	    case SC_CURSOR_RIGHT:
+	      Spawn(&RotateMan,(ã/32)(I64));
+	      break;
+	    case SC_CURSOR_LEFT:
+	      Spawn(&RotateMan,(-ã/32)(I64));
+	      break;
+	    case SC_CURSOR_UP:
+	      MoveMan(man_é);
+	      break;
+	    case SC_CURSOR_DOWN:
+	      MoveMan(man_é+ã);
+	      break;
+	  }
+	  break;
+      }
+    }
+fs_done:
+  } catch
+    PutExcept;
+  DocClear;
+  SettingsPop;
+  CleanUp;
+  MenuPop;
+  RegWrite("TempleOS/CastleFrankenstein","F64 best_score=%5.4f;\n",
+	best_score);
+}
+
+CastleFrankenstein;
+
&

+ 
+  
+ <
+<<
+< 
+,,,
+$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ÿÿÿ
+¿ÿÿÿöÿÿÿ¿ÿÿÿƒÿÿÿ
+
+tÿÿÿ
+ƒÿÿÿ
+ûÿÿÿƒÿÿÿ
+çÿÿÿƒÿÿÿ
+
+¿ÿÿÿ
+¿ÿÿÿ
+ûÿÿÿ¿ÿÿÿ
+öÿÿÿ¿ÿÿÿ
+ìÿÿÿØÿÿÿ
+ñÿÿÿØÿÿÿ
+Øÿÿÿ
+Øÿÿÿ
+ûÿÿÿ
+ûÿÿÿ
+ñÿÿÿûÿÿÿ
+ìÿÿÿûÿÿÿ
+ƒÿÿÿ
+ìÿÿÿƒÿÿÿ
+çÿÿÿ«ÿÿÿ-ìÿÿÿ«ÿÿÿ-«ÿÿÿ-«ÿÿÿ-°ÿÿÿ-°ÿÿÿ-ìÿÿÿ°ÿÿÿ-çÿÿÿ°ÿÿÿ-øÿÿÿxÿÿÿýÿÿÿ|ÿÿÿxÿÿÿ
xÿÿÿ|ÿÿÿöÿÿÿtÿÿÿ
+ÿÿÿÿxÿÿÿìÿÿÿûÿÿÿñÿÿÿûÿÿÿñÿÿÿûÿÿÿûÿÿÿìÿÿÿ


		
+␍  !!&''"#%$$#




	


	
␍
␍

!



+


+

+
$%*$*+'&('()&((	$++
+0/.1
12-,7 765343! 3 4583
3!
839;:7;76
6;
;
1
␍Z<HñÿÿÿöÿÿÿñÿÿÿØÿÿÿìÿÿÿØÿÿÿûÿÿÿ¿ÿÿÿ¿ÿÿÿØÿÿÿØÿÿÿìÿÿÿöÿÿÿƒÿÿÿçÿÿÿƒÿÿÿûÿÿÿƒÿÿÿƒÿÿÿ
+tÿÿÿöÿÿÿtÿÿÿ
+¿ÿÿÿöÿÿÿ¿ÿÿÿƒÿÿÿ
+
+tÿÿÿ
+ƒÿÿÿ
+ûÿÿÿƒÿÿÿ
+çÿÿÿƒÿÿÿ
+
+¿ÿÿÿ
+¿ÿÿÿ
+ûÿÿÿ¿ÿÿÿ
+öÿÿÿ¿ÿÿÿ
+ìÿÿÿØÿÿÿ
+ñÿÿÿØÿÿÿ
+Øÿÿÿ
+Øÿÿÿ
+ûÿÿÿûÿÿÿñÿÿÿûÿÿÿìÿÿÿûÿÿÿƒÿÿÿ
+ìÿÿÿƒÿÿÿ
+çÿÿÿ«ÿÿÿ-ìÿÿÿ«ÿÿÿ-«ÿÿÿÓÿÿÿ«ÿÿÿÓÿÿÿ°ÿÿÿÓÿÿÿ°ÿÿÿÓÿÿÿìÿÿÿ°ÿÿÿ-çÿÿÿ°ÿÿÿ-øÿÿÿxÿÿÿýÿÿÿ|ÿÿÿxÿÿÿ
xÿÿÿ|ÿÿÿöÿÿÿtÿÿÿ
+ÿÿÿÿxÿÿÿìÿÿÿûÿÿÿñÿÿÿûÿÿÿñÿÿÿûÿÿÿ-ûÿÿÿ-ìÿÿÿ--


		
+␍  !!&''"#%$$#




	


	
␍
␍

!



+


+

+
$%*$*+'&('()&((	$++
+0/.1
12-,7 765343! 3 4583
3!
839;:7;76
6;
;
1
␍Z<HñÿÿÿñÿÿÿØÿÿÿìÿÿÿØÿÿÿûÿÿÿ¿ÿÿÿ¿ÿÿÿØÿÿÿØÿÿÿìÿÿÿöÿÿÿƒÿÿÿçÿÿÿƒÿÿÿûÿÿÿƒÿÿÿƒÿÿÿ
+tÿÿÿöÿÿÿtÿÿÿ
+¿ÿÿÿöÿÿÿ¿ÿÿÿƒÿÿÿ
+
+tÿÿÿ
+ƒÿÿÿ
+ûÿÿÿƒÿÿÿ
+çÿÿÿƒÿÿÿ
+
+¿ÿÿÿ
+¿ÿÿÿ
+ûÿÿÿ¿ÿÿÿ
+öÿÿÿ¿ÿÿÿ
+ìÿÿÿØÿÿÿ
+ñÿÿÿØÿÿÿ
+Øÿÿÿ
+Øÿÿÿ
+ûÿÿÿûÿÿÿñÿÿÿûÿÿÿìÿÿÿûÿÿÿƒÿÿÿ
+ìÿÿÿƒÿÿÿ
+çÿÿÿ«ÿÿÿÓÿÿÿìÿÿÿ«ÿÿÿÓÿÿÿ«ÿÿÿ-«ÿÿÿ-°ÿÿÿ-°ÿÿÿ-ìÿÿÿ°ÿÿÿÓÿÿÿçÿÿÿ°ÿÿÿÓÿÿÿøÿÿÿxÿÿÿýÿÿÿ|ÿÿÿxÿÿÿ
xÿÿÿ|ÿÿÿöÿÿÿtÿÿÿ
+ÿÿÿÿxÿÿÿìÿÿÿûÿÿÿ#ñÿÿÿûÿÿÿ#ñÿÿÿ#ûÿÿÿûÿÿÿìÿÿÿ#öÿÿÿ


		
+␍  !!&''"#%$$#




	


	
␍
␍

!



+


+

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

+		␍␍	␍		
+	


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

+

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

␍␍␍


TempleOSCD/Demo/Games/CharDemo.HC

@@ -0,0 +1,191 @@
+/*
+Char graphics are how games on the C64 were made.  You don't need to do it
+this way, unless for fun.  You can just make device context bigger than
+the scrn and scroll around.
+
+See  $LK,"::/Demo/Games/RawHide.HC"$ or $LK,"::/Demo/Games/BigGuns.HC"$.
+
+The nice thing about character graphics are the animations.
+*/
+
+#define MAP_WIDTH	(TEXT_COLS*2)
+#define MAP_HEIGHT	(TEXT_ROWS*2)
+
+#define CH_WATER	'^'
+#define CH_LAND		CH_SPACE
+#define CH_TREE		'*'
+
+U16 map[MAP_HEIGHT][MAP_WIDTH];
+
+I64 scrn_pix_x,scrn_pix_y;
+
+U0 DrawIt(CTask *task,CDC *)
+{
+  U16 *ptr;
+  I64 i,j,y=scrn_pix_y>>3;
+  gr.hide_col=gr.hide_row=TRUE;
+  gr.pan_text_x=7-scrn_pix_x&7;
+  gr.pan_text_y=7-scrn_pix_y&7;
+  for (i=0;i<task->win_height;i++) {
+    ptr=&map[y++][scrn_pix_x>>3];
+    for (j=0;j<task->win_width;j++)
+	//By the time you clip to window and handle Fs->scroll_x,Fs->scroll_y,
+	//it is too much trouble to do raw access to gr.text_base like we do
+	//in $LK,"::/Demo/Games/Maze.HC"$.
+      TextChar(task,FALSE,j,i,*ptr++);
+  }
+}
+
+U8 *old_font=text.font;
+U64 waves[4]={
+0x0011AA440011AA44,0x0022558800225588,
+0x0044AA110044AA11,0x0088552200885522};
+
+U0 AnimateEndCB()
+{
+  text.font=old_font;
+  Exit;
+}
+
+U0 AnimateTask(I64)
+{
+  I64 i;
+  U64 *font=MAlloc(256*8);
+  Fs->task_end_cb=&AnimateEndCB;
+  MemCpy(font,text.font,256*8);
+  text.font=font;
+  font[CH_TREE]=0x18187E7E3C3C18;
+  while (TRUE) {
+    font[CH_WATER]=waves[i++&0x3];
+    Sleep(200);
+    Refresh;
+  }
+}
+
+U0 ScrollTaskX(I64 sign)
+{
+  I64 i;
+  for (i=0;i<32;i++) {
+    scrn_pix_x=ClampI64(scrn_pix_x+sign,0,
+	  (MAP_WIDTH-TEXT_COLS+1)*FONT_WIDTH);
+    Refresh;
+  }
+}
+
+U0 ScrollTaskY(I64 sign)
+{
+  I64 i;
+  for (i=0;i<32;i++) {
+    scrn_pix_y=ClampI64(scrn_pix_y+sign,0,
+	  (MAP_HEIGHT-TEXT_ROWS+2)*FONT_HEIGHT);
+    Refresh;
+  }
+}
+
+U0 Init()
+{
+  I64 i,j,x,y;
+  scrn_pix_x=(MAP_WIDTH-TEXT_COLS)>>1*FONT_WIDTH;
+  scrn_pix_y=(MAP_HEIGHT-TEXT_ROWS)>>1*FONT_HEIGHT;
+
+  MemSetU16(map,CH_WATER+(BLUE<<4+LTBLUE)<<8,MAP_WIDTH*MAP_HEIGHT);
+  for (i=1;i<MAP_WIDTH-1;i++)
+    map[0][i]=map[MAP_HEIGHT-1][i]='Í'+(BLUE<<4+RED)<<8;
+  for (i=1;i<MAP_HEIGHT-1;i++)
+    map[i][0]=map[i][MAP_WIDTH-1]='º'+(BLUE<<4+RED)<<8;
+  map[0][0]			='É'+(BLUE<<4+RED)<<8;
+  map[0][MAP_WIDTH-1]		='»'+(BLUE<<4+RED)<<8;
+  map[MAP_HEIGHT-1][0]		='È'+(BLUE<<4+RED)<<8;
+  map[MAP_HEIGHT-1][MAP_WIDTH-1]='¼'+(BLUE<<4+RED)<<8;
+
+  for (i=0;i<20;i++) {
+    x=MAP_WIDTH*Rand;
+    y=MAP_HEIGHT*Rand;
+    for (j=0;j<1000;j++) {
+      map[y][x]=CH_LAND+(YELLOW<<4+BLACK)<<8;
+      x=ClampI64(x+RandU16%3-1,0,MAP_WIDTH-1);
+      y=ClampI64(y+RandU16%3-1,0,MAP_HEIGHT-1);
+    }
+  }
+  for (i=0;i<100;i++) {
+    do {
+      x=MAP_WIDTH*Rand;
+      y=MAP_HEIGHT*Rand;
+    } while (map[y][x].u8[0]!=CH_LAND);
+    for (j=0;j<100;j++) {
+      map[y][x]=CH_TREE+(YELLOW<<4+GREEN)<<8;
+      x=ClampI64(x+RandU16%3-1,0,MAP_WIDTH-1);
+      y=ClampI64(y+RandU16%3-1,0,MAP_HEIGHT-1);
+    }
+  }
+}
+
+U0 CleanUp()
+{
+  gr.pan_text_x=gr.pan_text_y=0;
+  gr.hide_col=gr.hide_row=FALSE;
+}
+
+U0 CharDemo()
+{
+  I64 sc;
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  Fs->text_attr=YELLOW<<4+BLUE;
+  AutoComplete;
+  WinBorder;
+  WinMax;
+  DocCursor;
+
+  MenuPush(
+	"File {"
+	"  Abort(,CH_SHIFT_ESC);"
+	"  Exit(,CH_ESC);"
+	"}"
+	"Play {"
+	"  Restart(,'\n');"
+	"  Left(,,SC_CURSOR_LEFT);"
+	"  Right(,,SC_CURSOR_RIGHT);"
+	"  Up(,,SC_CURSOR_UP);"
+	"  Down(,,SC_CURSOR_DOWN);"
+	"}"
+	);
+  Init;
+  Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",,Fs);
+  Fs->draw_it=&DrawIt;
+  try {
+    while (TRUE) {
+      switch (GetKey(&sc)) {
+	case 0:
+	  switch (sc.u8[0]) {
+	    case SC_CURSOR_LEFT:
+	      Spawn(&ScrollTaskX,-1,"Scroll",,Fs);
+	      break;
+	    case SC_CURSOR_RIGHT:
+	      Spawn(&ScrollTaskX,1,"Scroll",,Fs);
+	      break;
+	    case SC_CURSOR_UP:
+	      Spawn(&ScrollTaskY,-1,"Scroll",,Fs);
+	      break;
+	    case SC_CURSOR_DOWN:
+	      Spawn(&ScrollTaskY,1,"Scroll",,Fs);
+	      break;
+	  }
+	  break;
+	case '\n':
+	  CleanUp;
+	  Init;
+	  break;
+	case CH_SHIFT_ESC:
+	case CH_ESC:
+	  goto sq_done;
+      }
+    }
+sq_done: //Don't goto out of try
+  } catch
+    PutExcept;
+  SettingsPop;
+  CleanUp;
+  MenuPop;
+}
+
+CharDemo;

TempleOSCD/Demo/Games/CircleTrace.HC

@@ -0,0 +1,128 @@
+//Practice tracing circles
+
+//Giotto, a famous artist, drew a freehand circle to get a job.
+
+RegDft("TempleOS/CircleTrace","F64 best_score=999;\n");
+RegExe("TempleOS/CircleTrace");
+
+I64 cx,cy;
+F64 avg_error=0,elapsed_time=0,total_error=0,score=999;
+
+U0 SongTask(I64)
+{
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  while (TRUE)
+    Play("5hEDC4A5RCDECR");
+}
+
+U0 DrawIt(CTask *task,CDC *dc)
+{
+  GrPrint(dc,0,0,"Error:%6.3f  Time:%6.3f  Score:%6.3f  Best:%8.3f",
+	avg_error,elapsed_time,score,best_score);
+}
+
+#define CIRCLE_RADIUS	100
+#define CIRCUMFERENCE	(2*ã*CIRCLE_RADIUS)
+
+Bool CTPlot(CDC *dc,I64 x,I64 y,I64)
+{
+  F64 rad=Sqrt(Sqr(x-cx)+Sqr(y-cy));
+  GrPlot(dc,x,y);
+  total_error+=Abs(rad-CIRCLE_RADIUS);
+  return TRUE;
+}
+
+U0 CircleTrace()
+{
+  I64 msg_code,arg1,arg2,x1,y1;
+  F64 rad,t0,total_distance;
+  CDC *dc=DCAlias;
+
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  Fs->song_task=Spawn(&SongTask,NULL,"Song",,Fs);
+  AutoComplete;
+  WinBorder;
+  WinMax;
+  DocCursor;
+  DocClear;
+
+  cx=Fs->pix_width/2;
+  cy=Fs->pix_height/2;
+
+  Fs->win_inhibit=WIG_TASK_DFT-WIF_SELF_FOCUS-WIF_SELF_BORDER;
+  Fs->draw_it=&DrawIt;
+
+  DCFill;
+  dc->color=ROP_XOR+BLACK^TRANSPARENT;
+  GrCircle(dc,cx,cy,CIRCLE_RADIUS);
+  do {
+    msg_code=GetMsg(&arg1,&arg2,
+	  1<<MSG_KEY_DOWN+1<<MSG_MS_L_DOWN);
+    switch (msg_code) {
+      case MSG_KEY_UP:
+	break;
+      case MSG_MS_L_DOWN:
+	DCFill;
+	dc->color=ROP_XOR+BLACK^TRANSPARENT;
+	GrCircle(dc,cx,cy,CIRCLE_RADIUS);
+	dc->color=ROP_XOR+RED^TRANSPARENT;
+	t0=tS;
+	total_distance=0.001;
+	total_error=0;
+	x1=arg1; y1=arg2;
+	do {
+	  msg_code=ScanMsg(&arg1,&arg2,
+		1<<MSG_MS_L_UP+1<<MSG_MS_MOVE);
+	  switch (msg_code) {
+	    case MSG_MS_L_UP:
+	      break;
+	    case MSG_MS_MOVE:
+	      if (x1!=arg1 || y1!=arg2) {
+		total_distance+=Sqrt(Sqr(x1-arg1)+Sqr(y1-arg2));
+		Line(dc,x1,y1,0,arg1,arg2,0,&CTPlot);
+		x1=arg1;y1=arg2;
+//undo overlapping pixs on segments
+		GrPlot(dc,x1,y1);
+		rad=Sqrt(Sqr(x1-cx)+Sqr(y1-cy));
+		total_error-=Abs(rad-CIRCLE_RADIUS);
+	      }
+	      break;
+	  }
+	  elapsed_time=tS-t0;
+	  avg_error=total_error/total_distance;
+	  score=elapsed_time*avg_error;
+
+	  //$LK,"Sleep",A="MN:Sleep"$()s until the next time the
+	  //window mgr task runs.  The
+	  //window mgr calls the UpdateWin() routine
+	  //and places msgs in the que, so there's
+	  //no need to do anything until the window mgr runs.
+	  Refresh;
+
+	} while (msg_code!=MSG_MS_L_UP);
+	music.mute=TRUE; Sleep(200);
+	if (total_distance>0.95*CIRCUMFERENCE) {
+	  if (score<best_score) {
+	    Snd(86);Sleep(50);Snd;Sleep(50);
+	    Snd(86);Sleep(50);Snd;Sleep(50);
+	    Snd(86);Sleep(50);
+	    best_score=score;
+	  } else {
+	    Snd(62);Sleep(50);
+	  }
+	} else {
+	  Snd(34);Sleep(1000);
+	}
+	Snd; Sleep(200); music.mute=FALSE;
+	break;
+    }
+  } while (msg_code!=MSG_KEY_DOWN || arg1!=CH_SHIFT_ESC && arg1!=CH_ESC);
+  GetMsg(,,1<<MSG_KEY_UP);
+  SettingsPop;
+  DCFill;
+  DCDel(dc);
+  RegWrite("TempleOS/CircleTrace","F64 best_score=%5.4f;\n",best_score);
+}
+
+CircleTrace;  //Execute when #included

TempleOSCD/Demo/Games/Digits.HC

@@ -0,0 +1,80 @@
+//This loads a lst of zero terminated
+//strings into the sym table and
+//gives a name to it.  Strings like
+//this are known as Define entries.
+
+//See $LK,"ST_RAINBOW_10",A="FF:::/Adam/Gr/GrPalette.HC,ST_RAINBOW_10"$
+
+U0 PrintDigit(U8 ch)
+{
+//The %Z code displays a Define subentry
+  if ('0'<=ch<='9')
+    "$$FG,%Z$$%d$$FG$$",ch-'0',"ST_RAINBOW_10",ch-'0';
+}
+
+U0 PrintPattern(U8 *st)
+{
+  I64 ch;
+  while (ch=*st++)
+    PrintDigit(ch);
+  '\n';
+}
+
+U0 Digits()
+{
+  I64 num,ch,i;
+  U8 answer[1024];
+
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  Fs->text_attr=DKGRAY<<4+WHITE;
+  DocClear;
+//Set default background and foreground
+  "$$WW,1$$$$BG,DKGRAY$$$$FD,WHITE$$"
+	"\nThis is a memory game.  "
+	"Try to remember the digits and enter them.  "
+	"They are colored based on electrical "
+	"engineering color codes.\n";
+  for (i=0;i<10;i++)
+    "$$FG,%Z$$%d: %Z\n",i,"ST_RAINBOW_10",i,i,"ST_RAINBOW_10";
+  "$$FG$$\n"; //set to default background
+  ch=PressAKey;
+  if (ch==CH_ESC||ch==CH_SHIFT_ESC) goto dg_done;
+  while (TRUE) {
+restart:
+    num=0;
+//Set to zeros so we have terminators
+    MemSet(answer,0,sizeof(answer));
+    while (TRUE) {
+      DocClear;
+      "$$WW,1$$$$BG,DKGRAY$$$$FD,WHITE$$\n";
+      "Pattern\nLength:%d\n\n",num+1;
+      answer[num++]=RandU32%10+'0';
+      PrintPattern(answer);
+      ch=PressAKey;
+      if (ch==CH_ESC||ch==CH_SHIFT_ESC) goto dg_done;
+      DocClear;
+      "$$WW,1$$$$BG,DKGRAY$$$$FD,WHITE$$\n";
+      "Guess\nLength:%d\n\n",num;
+      for (i=0;i<num;i++) {
+	ch=GetChar(,FALSE);
+	if (ch==CH_ESC||ch==CH_SHIFT_ESC) goto dg_done;
+	PrintDigit(ch);
+	if (ch!=answer[i]) {
+	  "\nScore:%d\n",num;
+	  PrintPattern(answer);
+	  Beep; Beep;
+	  ch=PressAKey;
+	  if (ch==CH_ESC||ch==CH_SHIFT_ESC)
+	    goto dg_done;
+	  else
+	    goto restart;
+	}
+      }
+    }
+  }
+dg_done:
+  DocClear;
+  SettingsPop;
+}
+
+Digits;

TempleOSCD/Demo/Games/DunGen.HC

@@ -0,0 +1,569 @@
+RegDft("TempleOS/DunGen","F64 best_score=9999;\n");
+RegExe("TempleOS/DunGen");
+
+//Set snap to 4 and width to 4
+//if you edit this map.
+
+//Don't forget to change the
+//starting pos.
+$BG,0$
+
+$SP,"<1>",BI=1$
+
+
+
+
+
+
+
+
+
+$SP,"<2>",BI=2$
+
+
+
+$SP,"<3>",BI=3$
+
+ 
+$SP,"<4>",BI=4$
+
+$SP,"<5>",BI=5$
+
+$SP,"<6>",BI=6$
+
+$SP,"<7>",BI=7$
+
+$SP,"<8>",BI=8$
+
+$SP,"<9>",BI=9$
+
+$SP,"<10>",BI=10$
+
+
+$BG$//These are indexed by color #.
+//See $LK,"COLORS",A="MN:RED"$.
+
+U8 *tiles1[16]={NULL,$IB,"<7>",BI=7$ ,$IB,"<5>",BI=5$ ,NULL,NULL,NULL,NULL,NULL,
+  $IB,"<6>",BI=6$ ,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
+
+U8 *tiles2[16]={NULL,$IB,"<8>",BI=8$ ,$IB,"<5>",BI=5$ ,NULL,NULL,NULL,NULL,NULL,
+  $IB,"<6>",BI=6$ ,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
+
+#define SCRN_SCALE	24
+#define SCRN_WIDTH	24
+#define SCRN_HEIGHT	24
+I64 scrn_x,scrn_y;
+
+#define MAP_SCALE	4
+I64 map_width,map_height;
+U8 *map=NULL;
+
+I64 man_x,man_y,man_dx,man_dy;
+Bool man_attack;
+F64 man_attack_t0;
+
+#define MONSTERS_NUM	10
+I64 monsters_left;
+class Monster
+{
+  I64 x,y,dx,dy;
+  Bool dead,pad[7];
+} monsters[MONSTERS_NUM];
+
+F64 t0,tf;
+
+#define LOS_SCALE	4
+
+Bool LOSPlot(U8 *,I64 x,I64 y,I64)
+{
+  if (!map[(y/LOS_SCALE)*map_width+(x/LOS_SCALE)])
+    return FALSE;
+  else
+    return TRUE;
+}
+
+Bool LOS(I64 x1,I64 y1,I64 x2,I64 y2)
+{//Line of sight
+  return Line(NULL,x1*LOS_SCALE+LOS_SCALE/2,y1*LOS_SCALE+LOS_SCALE/2,0,
+	x2*LOS_SCALE+LOS_SCALE/2,y2*LOS_SCALE+LOS_SCALE/2,0,&LOSPlot);
+}
+
+U0 DrawIt(CTask *task,CDC *dc)
+{
+  CDC *dc_t=DCAlias(gr.dc2,task);
+  I64 i,x,y,xx,yy,x1,y1,z1,color,
+	cx=task->pix_width/2,
+	cy=task->pix_height/2;
+  CD3I32 poly[4];
+  U8 **_tiles;
+  F64 tt;
+  Monster *tmpm;
+
+  if (Blink(5))
+    _tiles=tiles1;
+  else
+    _tiles=tiles2;
+
+  Mat4x4RotX(dc_t->r,60*2*ã/360);
+  Mat4x4RotZ(dc_t->r,15*2*ã/360);
+  DCMat4x4Set(dc_t,dc_t->r);
+  dc_t->x=task->pix_width/2;
+  dc_t->y=task->pix_height/2;
+  dc_t->flags|=DCF_TRANSFORMATION;
+
+  //You could make it much more efficient
+  //if you did it like $LK,"::/Demo/Games/BigGuns.HC"$
+  //with a $LK,"CDC",A="MN:CDC"$.
+
+  for (y=-SCRN_HEIGHT/2;y<SCRN_HEIGHT/2;y++) {
+    yy=y+scrn_y;
+    if (0<=yy<map_height)
+      for (x=-SCRN_WIDTH/2;x<SCRN_WIDTH/2;x++) {
+	xx=x+scrn_x;
+	if (0<=xx<map_width) {
+	  if ((color=map[yy*map_width+xx]) &&
+		LOS(xx,yy,man_x,man_y)) {
+	    if (_tiles[color]) {
+	      x1=x*SCRN_SCALE;
+	      y1=y*SCRN_SCALE;
+	      z1=0;
+	      DCTransform(dc_t,&x1,&y1,&z1);
+	      Sprite3(dc,x1,y1,z1,_tiles[color]);
+	    } else {//If no tile defined, do solid color.
+	      poly[0].x=x*SCRN_SCALE;
+	      poly[0].y=y*SCRN_SCALE;
+	      poly[0].z=0;
+	      poly[1].x=(x+1)*SCRN_SCALE-1;
+	      poly[1].y=y*SCRN_SCALE;
+	      poly[1].z=0;
+	      poly[2].x=(x+1)*SCRN_SCALE;
+	      poly[2].y=(y+1)*SCRN_SCALE-1;
+	      poly[2].z=0;
+	      poly[3].x=x*SCRN_SCALE-1;
+	      poly[3].y=(y+1)*SCRN_SCALE-1;
+	      poly[3].z=0;
+	      dc_t->color=color;
+	      GrFillPoly3(dc_t,4,poly);
+	    }
+	  }
+	}
+      }
+  }
+
+  for (y=-SCRN_HEIGHT/2;y<SCRN_HEIGHT/2;y++) {
+    yy=y+scrn_y;
+    if (0<=yy<map_height)
+      for (x=-SCRN_WIDTH/2;x<SCRN_WIDTH/2;x++) {
+	xx=x+scrn_x;
+	if (0<=xx<map_width) {
+	  if (!map[yy*map_width+xx]) {
+	    if (yy+1<map_height && LOS(xx,yy+1,man_x,man_y)) {
+	      x1=x*SCRN_SCALE;
+	      y1=y*SCRN_SCALE;
+	      z1=0;
+	      DCTransform(dc_t,&x1,&y1,&z1);
+	      Sprite3(dc,x1,y1,z1,$IB,"<9>",BI=9$);
+	    }
+	    if (xx+1<map_width && LOS(xx+1,yy,man_x,man_y)) {
+	      x1=x*SCRN_SCALE;
+	      y1=y*SCRN_SCALE;
+	      z1=0;
+	      DCTransform(dc_t,&x1,&y1,&z1);
+	      Sprite3(dc,x1,y1,z1,$IB,"<10>",BI=10$);
+	    }
+	  }
+	}
+      }
+  }
+
+  for (i=0,tmpm=monsters;i<MONSTERS_NUM;i++,tmpm++)
+    if (!tmpm->dead && LOS(tmpm->x,tmpm->y,man_x,man_y)) {
+      x1=(tmpm->x-scrn_x)*SCRN_SCALE+SCRN_SCALE/2;
+      y1=(tmpm->y-scrn_y)*SCRN_SCALE+SCRN_SCALE/2;
+      z1=0;
+      DCTransform(dc_t,&x1,&y1,&z1);
+      if (tmpm->dx<0) {
+	dc->flags|=DCF_SYMMETRY|DCF_JUST_MIRROR;
+	DCSymmetrySet(dc,x1,y1,x1,y1+1);
+      } else
+	dc->flags&=~(DCF_SYMMETRY|DCF_JUST_MIRROR);
+      Sprite3(dc,x1,y1,z1,$IB,"<4>",BI=4$);
+    }
+
+  x1=(man_x-scrn_x)*SCRN_SCALE+SCRN_SCALE/2;
+  y1=(man_y-scrn_y)*SCRN_SCALE+SCRN_SCALE/2;
+  z1=0;
+  if (tS-man_attack_t0<0.2) {
+    x1+=Tri(tS-man_attack_t0,0.2)*SCRN_SCALE*man_dx;
+    y1+=Tri(tS-man_attack_t0,0.2)*SCRN_SCALE*man_dy;
+    if (man_dy!=1)
+      y1-=Saw(tS-man_attack_t0,0.2)*SCRN_SCALE;
+  }
+  DCTransform(dc_t,&x1,&y1,&z1);
+  if (man_dx<0) {
+    dc->flags|=DCF_SYMMETRY|DCF_JUST_MIRROR;
+    DCSymmetrySet(dc,x1,y1,x1,y1+1);
+  } else
+    dc->flags&=~(DCF_SYMMETRY|DCF_JUST_MIRROR);
+
+  if (tS-man_attack_t0<0.2)
+    Sprite3(dc,x1,y1,z1,$IB,"<3>",BI=3$);
+  else
+    Sprite3(dc,x1,y1,z1,$IB,"<2>",BI=2$);
+
+  DCDel(dc_t);
+
+  if (tf) {
+    dc->color=LTRED;
+    if (Blink)
+      GrPrint(dc,cx-(FONT_WIDTH*14)/2,cy-FONT_HEIGHT/2,"Game Completed");
+    tt=tf;
+  } else {
+    dc->color=LTGREEN;
+    tt=tS;
+  }
+  GrPrint(dc,0,0,"Enemy:%d Time:%3.2f Best:%3.2f",
+	monsters_left,tt-t0,best_score);
+}
+
+U0 Attack()
+{
+  I64 i;
+  Monster *tmpm;
+
+  man_attack_t0=tS;
+  Noise(100,53,74);
+  for (i=0,tmpm=monsters;i<MONSTERS_NUM;i++,tmpm++) {
+    if (!tmpm->dead &&
+	  man_x+man_dx==tmpm->x && man_y+man_dy==tmpm->y) {
+      tmpm->dead=TRUE;
+      if (!--monsters_left) {
+	tf=tS;
+	if (tf-t0<best_score)
+	  best_score=tf-t0;
+      }
+    }
+  }
+}
+
+U0 Init()
+{
+  I64 i,x,y;
+  CDC *dc;
+  Monster *tmpm;
+
+  dc=Sprite2DC($IB,"<1>",BI=1$);
+  map_width =dc->width/MAP_SCALE;
+  map_height=dc->height/MAP_SCALE;
+  Free(map);
+  map=MAlloc(map_width*map_height*sizeof(U8));
+  for (y=0;y<map_height;y++)
+    for (x=0;x<map_width;x++)
+      map[y*map_width+x]=GrPeek(dc,x*MAP_SCALE,y*MAP_SCALE);
+  DCDel(dc);
+
+  man_attack_t0=0;
+  man_attack=FALSE;
+  man_x=0;
+  man_y=4;
+  man_dx=0;
+  man_dy=0;
+  scrn_x=0;
+  scrn_y=0;
+  for (i=0,tmpm=monsters;i<MONSTERS_NUM;i++,tmpm++) {
+    tmpm->dead=FALSE;
+    tmpm->dx=0;
+    tmpm->dy=0;
+    do {
+      tmpm->x=RandU64%(map_width-2)+1;
+      tmpm->y=RandU64%(map_height-2)+1;
+    } while (!map[(tmpm->y)*map_width+tmpm->x]);
+  }
+  monsters_left=MONSTERS_NUM;
+  tf=0;
+  t0=tS;
+}
+
+U0 CleanUp()
+{
+  Free(map);
+  map=NULL;
+}
+
+U0 AnimateTask(I64)
+{
+  I64 i,x,y,dx,dy;
+  Monster *tmpm;
+
+  while (TRUE) {
+    for (i=0,tmpm=monsters;i<MONSTERS_NUM;i++,tmpm++)
+      if (!tmpm->dead) {
+	dx=RandU16%3-1;
+	dy=RandU16%3-1;
+	x=tmpm->x+dx;
+	y=tmpm->y+dy;
+	if (0<=x<map_width && 0<=y<map_height && map[y*map_width+x]) {
+	  tmpm->x=x;
+	  tmpm->y=y;
+	  tmpm->dx=dx;
+	  tmpm->dy=dy;
+	}
+      }
+    Sleep(1000);
+  }
+}
+
+U0 DunGen()
+{
+  I64 ch,sc;
+
+  MenuPush(
+	"File {"
+	"  Abort(,CH_SHIFT_ESC);"
+	"  Exit(,CH_ESC);"
+	"}"
+	"Play {"
+	"  Restart(,'\n');"
+	"  Up(,,SC_CURSOR_UP);"
+	"  Down(,,SC_CURSOR_DOWN);"
+	"  Left(,,SC_CURSOR_LEFT);"
+	"  Right(,,SC_CURSOR_RIGHT);"
+	"  Attack(,CH_SPACE);"
+	"}"
+	);
+
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  Fs->text_attr=BLACK<<4+WHITE;
+  AutoComplete;
+  WinBorder;
+  WinMax;
+  DocCursor;
+  DocClear;
+  Init;
+  Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",,Fs);
+  Fs->draw_it=&DrawIt;
+
+  try {
+    while (TRUE) {
+      switch (GetMsg(&ch,&sc,1<<MSG_KEY_DOWN|1<<MSG_KEY_UP)) {
+	case MSG_KEY_DOWN:
+	  switch (ch) {
+	    case '\n':
+	      Init;
+	      break;
+	    case CH_SPACE:
+	      man_attack=TRUE;
+	      break;
+	    case CH_ESC:
+	    case CH_SHIFT_ESC:
+	      goto dg_done;
+	    case 0:
+	      switch (sc.u8[0]) {
+		case SC_CURSOR_RIGHT:
+		  if (man_attack) {
+		    man_dx=1;
+		    man_dy=0;
+		    Attack;
+		  } else
+		    if (man_x+1<map_width &&
+			  map[man_y*map_width+(man_x+1)]==DKGRAY) {
+		      man_x++;
+		      if (man_x-scrn_x>SCRN_WIDTH/2-3) {
+			scrn_x+=SCRN_WIDTH/2;
+			if (scrn_x+SCRN_WIDTH/2>map_width)
+			  scrn_x=map_width-SCRN_WIDTH/2;
+		      }
+		    }
+		  break;
+		case SC_CURSOR_LEFT:
+		  if (man_attack) {
+		    man_dx=-1;
+		    man_dy=0;
+		    Attack;
+		  } else
+		    if (man_x-1>=0 &&
+			  map[man_y*map_width+(man_x-1)]==DKGRAY) {
+		      man_x--;
+		      if (man_x-scrn_x<-SCRN_WIDTH/2+3) {
+			scrn_x-=SCRN_WIDTH/2;
+			if (scrn_x-SCRN_WIDTH/2<0)
+			  scrn_x=SCRN_WIDTH/2;
+		      }
+		    }
+		  break;
+		case SC_CURSOR_UP:
+		  if (man_attack) {
+		    man_dx=0;
+		    man_dy=-1;
+		    Attack;
+		  } else
+		    if (man_y-1>=0 &&
+			  map[(man_y-1)*map_width+man_x]==DKGRAY) {
+		      man_y--;
+		      if (man_y-scrn_y<-SCRN_HEIGHT/2+3) {
+			scrn_y-=SCRN_HEIGHT/2;
+			if (scrn_y-SCRN_HEIGHT/2<0)
+			  scrn_y=SCRN_HEIGHT/2;
+		      }
+		    }
+		  break;
+		case SC_CURSOR_DOWN:
+		  if (man_attack) {
+		    man_dx=0;
+		    man_dy=1;
+		    Attack;
+		  } else
+		    if (man_y+1<map_height &&
+			  map[(man_y+1)*map_width+man_x]==DKGRAY) {
+		      man_y++;
+		      if (man_y-scrn_y>SCRN_HEIGHT/2-3) {
+			scrn_y+=SCRN_HEIGHT/2;
+			if (scrn_y+SCRN_HEIGHT/2>map_height)
+			  scrn_y=map_height-SCRN_HEIGHT/2;
+		      }
+		    }
+		  break;
+	      }
+	  }
+	  break;
+	case MSG_KEY_UP:
+	  if (ch==CH_SPACE)
+	    man_attack=FALSE;
+	  break;
+      }
+    }
+dg_done:
+    GetMsg(,,1<<MSG_KEY_UP);
+  } catch
+    PutExcept;
+  SettingsPop;
+  MenuPop;
+  RegWrite("TempleOS/DunGen","F64 best_score=%5.4f;\n",best_score);
+  CleanUp;
+}
+
+DunGen;
+
£

+7
+7üÿÿÿ7
+7S
+SSüÿÿÿ
+Süÿÿÿ7üÿÿÿ
+CC$
+;O
+OO
+O;
+;;
+;K
+KK
+K?
+??
+?G
+C(k(
+k(kD
+kDCD
+CDC,
+G,g,
+g,g@
+g@G@
+G@G0
+G0c0
+c0c<
+c<K<
+K<K4
+K4_4
+_4_8
+_8O8
+k8ƒ8
+ƒ,ƒD
+ƒDŸD
+ŸDŸ
+Ÿ—
+——(
+—(ƒ(
+‡,›,
+› ›@
+—@‡@
+‡<‡0
+‡0—0
+—0—<
+—<‹@
+‹<‹4
+‹4“4
+�8“8
+“<�<
+››
+›‹
+‡üÿÿÿ‡
+‡s
+ssüÿÿÿ
+süÿÿÿƒüÿÿÿ
+ƒüÿÿÿ
+ƒƒ
+ƒw
+ww
+w{
+{{
+
+ok
+gg
+gc
+cc
+?8/8
++0+@
++@ @
+ @ 0
+ 0'0
+'0'<
+'<#<
+#<#4
+787P
+3P;P
+;P;\
+;\3\
+3\3T
+7T7X


+[øÿÿÿ[4
+[<[T
+[T[\
Oc0c<Òýÿÿÿëÿÿÿ&ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ýÿÿÿüÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ²ýÿÿÿüÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ

	ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
	

	

ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	
	



	

ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
	



	
	




ÿÿÿÿÿÿÿÿÿÿÿÿÿ	
		







	


	
ÿÿÿÿÿÿÿÿ
	





	

	










ÿÿÿÿ





	






	



	

	

ÿÿ
	





	
		




	

	
	

ÿÿ	

	
		











	




ÿ








	




	

	



	

ÿ

	


	


	














ÿ

		



	
	

	

	

	

	


ÿ



	






	






	



ÿÿÿÿÿÿ



	
	


	









ÿÿÿÿÿÿÿÿÿÿ



	


	

		
	

ÿÿÿÿÿÿÿÿÿÿÿÿÿ

	







	

ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ







ÿÿ²ýÿÿÿüÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ

ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ




	
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
		


	


ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ



		

	




ÿÿÿÿÿÿÿÿÿÿÿÿÿ

	







	




	ÿÿÿÿÿÿÿÿ






	



	

		

	

	ÿÿÿÿ	
	






	








	


ÿÿÿ





	
	






		



	ÿÿÿÿ


	








	




	

	ÿÿÿ
	





	
	
	










ÿÿÿ

	


	











	



ÿÿÿ





	
	
		


	
	

	
	
ÿÿÿÿ





















ÿÿÿÿÿÿÿÿÿ



	


		

	

	

ÿÿÿÿÿÿÿÿÿÿÿÿ














ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ






	



ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ÿ




ÿÿÿÿÿ	²ýÿÿÿüÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+’ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ2õÿÿÿèÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚øÿÿÿéÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ"ùÿÿÿìÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ␍ÿÿÿÿÿÿÿÿÿ␍␍␍␍ÿÿÿÿÿÿÿÿÿÿÿ␍␍␍␍␍␍ÿÿÿÿÿÿÿÿÿÿ␍␍␍␍␍ÿÿÿÿÿÿÿÿÿÿÿÿ␍␍␍ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ

TempleOSCD/Demo/Games/FlatTops.HC

@@ -0,0 +1,901 @@
+#define GAME_SPEED_SCALE	0.1
+
+F64 game_speed,
+    launch_unit_x1,launch_unit_y1,launch_unit_x2,launch_unit_y2,launch_t,
+    return_unit_x1,return_unit_y1,return_unit_x2,return_unit_y2,return_t,
+    set_é_unit_x1,set_é_unit_y1,set_é_unit_x2,set_é_unit_y2,set_é_t,
+    next_noise;
+CTask *main_task;
+
+#define OT_CARRIER	0
+#define OT_CRUISER	1
+#define OT_FIGHTER	2
+#define OT_TYPES_NUM	3
+
+#define OF_SHIP		1
+#define OF_ACTIVE	2
+#define OF_RETURNING	4
+#define OF_SHOOTING	8
+
+#define FIRE_WIDTH	56
+#define FIRE_HEIGHT	16
+#define FIRE_X_SCALE	0.5
+#define FIRE_Y_SCALE	0.5
+
+#define FIRE_COLORS	16
+U8 fire_colors[FIRE_COLORS]={
+YELLOW,YELLOW,LTRED,YELLOW, BLACK,YELLOW,RED,YELLOW,
+YELLOW,BLACK,YELLOW,LTRED, RED,YELLOW,DKGRAY,YELLOW};
+
+class Obj
+{
+  Obj *next,*last;
+  Obj *next_in_squadron,*last_in_squadron;
+  Obj *host;
+  U8  player,type;
+  U16 flags;
+  I16 squadron,member_num;
+  F64 x,y,é,dé,
+	speed,turn_rate,
+	life_percent,
+	target_x,target_y,
+	ship_guns,ship_guns_range,
+	air_guns,air_guns_range,
+	fuel,max_fuel,fuel_burn_rate,
+	death_time,next_action_time;
+  I32 torpedos,max_torpedos;
+  F64 torpedos_range;
+  U8  fire[(FIRE_WIDTH*FIRE_HEIGHT+7)/8];
+} obj_head;
+
+class Torpedo
+{
+  Torpedo *next,*last;
+  Obj *target;
+  F64 x,y,é,speed,timeout;
+} torpedo_head;
+
+#define SA_PARKED	0
+#define SA_LAUNCHING	1
+#define SA_FLYING	2
+#define SA_SET_é	3
+#define SA_RETURNING	4
+#define SA_DEAD		5
+
+class Squadron : Obj
+{
+  I64 action,dead_mask,total_mask;
+} *squadrons;
+
+U0 SquadronIns(Obj *o,Obj *pred)
+{
+  Obj *succ=pred->next_in_squadron;
+  o->next_in_squadron=succ;
+  o->last_in_squadron=pred;
+  pred->next_in_squadron=o;
+  succ->last_in_squadron=o;
+}
+
+U0 SquadronRem(Obj *o)
+{
+  Obj *pred=o->last_in_squadron,*succ=o->next_in_squadron;
+  pred->next_in_squadron=succ;
+  succ->last_in_squadron=pred;
+}
+
+#define PLAYERS_NUM	2
+
+I64 num_carriers[PLAYERS_NUM]={2,3},
+    num_cruisers[PLAYERS_NUM]={2,3},
+    num_planes_per_squadron[PLAYERS_NUM]={6,5},
+    num_squadrons_per_carrier[PLAYERS_NUM]={2,3},
+    num_alive[PLAYERS_NUM],
+    num_squadrons;
+
+Obj *ObjFind(F64 x,F64 y,
+	     I64 flag_mask=OF_ACTIVE|OF_RETURNING,I64 flag_val=OF_ACTIVE,
+	     I64 type_mask=-1,I64 player_mask=-1,F64 *_d=NULL)
+{
+  Obj *tmpo=obj_head.next,*best=NULL;
+  F64 dd,best_dd=F64_MAX;
+  while (tmpo!=&obj_head) {
+    if (tmpo->flags&flag_mask==flag_val &&
+	  Bt(&type_mask,tmpo->type)&&Bt(&player_mask,tmpo->player)) {
+      dd=Sqr(tmpo->x-x)+Sqr(tmpo->y-y);
+      if (dd<best_dd) {
+	best=tmpo;
+	best_dd=dd;
+      }
+    }
+    tmpo=tmpo->next;
+  }
+  if (_d) *_d=Sqrt(best_dd);
+  return best;
+}
+
+U0 ObjDel(Obj *tmpo)
+{
+  if (tmpo) {
+    if (tS<tmpo->death_time)
+      tmpo->flags&=~OF_ACTIVE;
+    else {
+      if (tmpo->squadron>=0)
+	SquadronRem(tmpo);
+      QueRem(tmpo);
+      if (tmpo->squadron>=0)
+	LBts(&squadrons[tmpo->squadron].dead_mask,tmpo->member_num);
+      num_alive[tmpo->player]--;
+      Free(tmpo);
+    }
+  }
+}
+$BG,1$
+
+
+$SP,"<1>",BI=1$
+
+
+
+
+$SP,"<2>",BI=2$
+
+
+$SP,"<3>",BI=3$
+
+
+
+$SP,"<4>",BI=4$
+
+
+
+
+$SP,"<5>",BI=5$
+
+
+$SP,"<6>",BI=6$
+$BG$
+U8 *imgs[PLAYERS_NUM][OT_TYPES_NUM]={{$IB,"<1>",BI=1$,$IB,"<2>",BI=2$,$IB,"<3>",BI=3$},{$IB,"<4>",BI=4$,$IB,"<5>",BI=5$,$IB,"<6>",BI=6$}};
+
+U0 DrawIt(CTask *task,CDC *dc)
+{
+  I64 i,j,k;
+  F64 d,cur_time=tS;
+  Obj *tmpo;
+  Torpedo *tmpt;
+
+  tmpt=torpedo_head.next;
+  while (tmpt!=&torpedo_head) {
+    dc->color=WHITE;
+    GrPlot(dc,tmpt->x,tmpt->y);
+    tmpt=tmpt->next;
+  }
+
+  tmpo=obj_head.next;
+  while (tmpo!=&obj_head) {
+    if (tmpo->flags&OF_ACTIVE && tmpo->flags&OF_SHIP) {
+      Sprite3ZB(dc,tmpo->x,tmpo->y,0,
+	    imgs[tmpo->player][tmpo->type],tmpo->é+ã/2);
+
+      k=0;
+      for (j=0;j<FIRE_HEIGHT;j++)
+	for (i=0;i<FIRE_WIDTH;i++)
+	  if (Bt(tmpo->fire,k++)) {
+	    dc->color=fire_colors[ToI64(k+10*tS)&(FIRE_COLORS-1)];
+	    GrPlot(dc,
+		  tmpo->x+FIRE_X_SCALE*(i-FIRE_WIDTH /2+(11*tS+i)%1.7)
+	    *Cos(tmpo->é)-
+		  FIRE_Y_SCALE*(j-FIRE_HEIGHT/2+(12*tS+j)%1.7)*Sin(tmpo->é),
+		  tmpo->y+FIRE_Y_SCALE*(j-FIRE_HEIGHT/2+(19*tS+j)%1.7)
+	    *Cos(tmpo->é)+
+		  FIRE_X_SCALE*(i-FIRE_WIDTH /2+(13*tS+i)%1.7)*Sin(tmpo->é));
+	  }
+      if (Blink) {
+	dc->color=BLACK;
+	GrLine(dc,tmpo->x+5,tmpo->y,tmpo->x+5+10,tmpo->y);
+
+	if (tmpo->life_percent>0) {
+	  if (tmpo->life_percent<33)
+	    dc->color=RED;
+	  else if (tmpo->life_percent<66)
+	    dc->color=YELLOW;
+	  else
+	    dc->color=GREEN;
+	  GrLine(dc,tmpo->x+5,tmpo->y,
+		tmpo->x+5+10*tmpo->life_percent/100,tmpo->y);
+	}
+
+	dc->color=BLACK;
+	GrLine(dc,tmpo->x+5,tmpo->y+2,tmpo->x+5+10,tmpo->y+2);
+	d=tmpo->fuel*100/tmpo->max_fuel;
+	if (d>0) {
+	  if (d<33)
+	    dc->color=RED;
+	  else if (d<66)
+	    dc->color=YELLOW;
+	  else
+	    dc->color=GREEN;
+	  GrLine(dc,tmpo->x+5,tmpo->y+2,tmpo->x+5+10*d/100,tmpo->y+2);
+	}
+      }
+    }
+    tmpo=tmpo->next;
+  }
+
+  tmpo=obj_head.next;
+  while (tmpo!=&obj_head) {
+    if (tmpo->flags&OF_ACTIVE && !(tmpo->flags&OF_SHIP))
+      Sprite3ZB(dc,tmpo->x,tmpo->y,0,
+	    imgs[tmpo->player][tmpo->type],tmpo->é+ã/2);
+    if (tmpo->flags&OF_SHOOTING) {
+      dc->color=LTRED;
+      GrLine(dc,tmpo->x,tmpo->y,tmpo->target_x,tmpo->target_y,3);
+    }
+    tmpo=tmpo->next;
+  }
+
+  dc->flags|=DCF_TRANSFORMATION;
+  if (cur_time<launch_t) {
+    dc->color=LTGREEN;
+    GrArrow3(dc,launch_unit_x1,launch_unit_y1,0,
+	  launch_unit_x2,launch_unit_y2,0);
+  }
+  if (cur_time<return_t) {
+    dc->color=LTRED;
+    GrArrow3(dc,return_unit_x1,return_unit_y1,0,
+	  return_unit_x2,return_unit_y2,0);
+  }
+  if (cur_time<set_é_t) {
+    dc->color=YELLOW;
+    GrArrow3(dc,set_é_unit_x1,set_é_unit_y1,0,
+	  set_é_unit_x2,set_é_unit_y2,0);
+  }
+
+  dc->color=YELLOW;
+  GrPrint(dc,-task->scroll_x,-task->scroll_y,
+	"Game Speed: %5.2f",game_speed);
+  dc->color=LTCYAN;
+  GrPrint(dc,-task->scroll_x,-task->scroll_y+FONT_HEIGHT,
+	"Player 1: %d",num_alive[0]);
+  dc->color=LTPURPLE;
+  GrPrint(dc,-task->scroll_x,-task->scroll_y+2*FONT_HEIGHT,
+	"Player 2: %d",num_alive[1]);
+
+  if ((!num_alive[0]||!num_alive[1]) && Blink) {
+    if (!num_alive[1]) {
+      dc->color=LTGREEN;
+      GrPrint(dc,task->pix_width>>1 -(FONT_WIDTH*14)/2-task->scroll_x,
+	    task->pix_height>>1-FONT_HEIGHT/2-task->scroll_y,"Game Completed");
+    } else {
+      dc->color=LTRED;
+      GrPrint(dc,task->pix_width>>1 -(FONT_WIDTH*9)/2-task->scroll_x,
+	    task->pix_height>>1-FONT_HEIGHT/2-task->scroll_y,"Game Over");
+    }
+  }
+}
+
+U0 Init()
+{
+  I64 i,fighter,ship,player,squadron,
+	w=Fs->pix_width,h=Fs->pix_height;
+  Squadron *tmps;
+  Obj *tmpo,*tmpo1;
+  QueInit(&obj_head);
+  QueInit(&torpedo_head);
+
+  next_noise=tS;
+  Fs->scroll_x=0;
+  Fs->scroll_y=0;
+  game_speed=1.0;
+  launch_t=return_t=set_é_t=0;
+  main_task=Fs;
+  num_squadrons=0;
+  for (player=0;player<PLAYERS_NUM;player++) {
+    num_alive[player]=0;
+    for (ship=0;ship<num_cruisers[player];ship++) {
+      tmpo1=CAlloc(sizeof(Obj));
+      num_alive[player]++;
+      tmpo1->type=OT_CRUISER;	tmpo1->player=player;
+      tmpo1->squadron=-1;	tmpo1->member_num=ship;
+      tmpo1->flags=OF_ACTIVE|OF_SHIP;
+      tmpo1->x=0.8*w*(Rand-0.5)+w>>1; tmpo1->y=0.8*h*(Rand-0.5)+h>>1;
+      tmpo1->host=NULL;
+      tmpo1->speed=35.0;	tmpo1->turn_rate=2.5;
+      tmpo1->é=2*ã*(Rand-0.5);	tmpo1->dé=0;
+      tmpo1->life_percent=100.0;
+      tmpo1->fuel=tmpo1->max_fuel=100000;
+      tmpo1->fuel_burn_rate=100.0;
+      tmpo1->air_guns =5000;	tmpo1->air_guns_range =30.0;
+      tmpo1->ship_guns=10000;	tmpo1->ship_guns_range=30.0;
+      tmpo1->torpedos =tmpo1->max_torpedos=0;
+      tmpo1->torpedos_range =0.0;
+      tmpo1->next_action_time=0;
+      QueIns(tmpo1,obj_head.last);
+    }
+
+    for (ship=0;ship<num_carriers[player];ship++) {
+      tmpo1=CAlloc(sizeof(Obj));
+      num_alive[player]++;
+      tmpo1->type=OT_CARRIER;	tmpo1->player=player;
+      tmpo1->squadron=-1;	tmpo1->member_num=ship;
+      tmpo1->flags=OF_ACTIVE|OF_SHIP;
+      tmpo1->x=0.8*w*(Rand-0.5)+w>>1; tmpo1->y=0.8*h*(Rand-0.5)+h>>1;
+      tmpo1->host=NULL;
+      tmpo1->speed=28.0;	tmpo1->turn_rate=1.0;
+      tmpo1->é=2*ã*(Rand-0.5);	tmpo1->dé=0;
+      tmpo1->life_percent=100.0;
+      tmpo1->fuel=tmpo1->max_fuel=750000;
+      tmpo1->fuel_burn_rate=500.0;
+      tmpo1->air_guns =5000;	tmpo1->air_guns_range =20.0;
+      tmpo1->ship_guns=2000;	tmpo1->ship_guns_range=30.0;
+      tmpo1->torpedos =tmpo1->max_torpedos=0;
+      tmpo1->torpedos_range =0.0;
+      tmpo1->next_action_time=0;
+      QueIns(tmpo1,obj_head.last);
+
+      for (squadron=0;squadron<num_squadrons_per_carrier[player];
+	    squadron++,num_squadrons++) {
+	for (fighter=0;fighter<num_planes_per_squadron[player];fighter++) {
+	  tmpo=CAlloc(sizeof(Obj));
+	  num_alive[player]++;
+	  tmpo->type=OT_FIGHTER;	 tmpo->player=player;
+	  tmpo->squadron=num_squadrons; tmpo->member_num=fighter;
+	  tmpo->flags=0;
+	  tmpo->host=tmpo1;
+	  tmpo->speed=300.0;		tmpo->turn_rate=25.0;
+	  tmpo->life_percent=100.0;
+	  tmpo->fuel=tmpo->max_fuel=1000;
+	  tmpo->fuel_burn_rate=1.0;
+	  tmpo->air_guns =35000;	tmpo->air_guns_range =8.0;
+	  tmpo->ship_guns=0;		tmpo->ship_guns_range=0.0;
+	  tmpo->torpedos =tmpo->max_torpedos=1;
+	  tmpo->torpedos_range =20.0;
+	  QueIns(tmpo,obj_head.last);
+	}
+      }
+    }
+  }
+  squadrons=CAlloc(num_squadrons*sizeof(Squadron));
+  for (i=0,tmps=squadrons;i<num_squadrons;i++,tmps++) {
+    tmps->next_in_squadron=tmps->last_in_squadron=tmps;
+    tmps->squadron=i;
+  }
+  tmpo=obj_head.next;
+  while (tmpo!=&obj_head) {
+    if (tmpo->squadron>=0) {
+      tmps=&squadrons[tmpo->squadron];
+      tmps->host  =tmpo->host;
+      tmps->player=tmpo->player;
+      tmps->total_mask=1<<num_planes_per_squadron[tmpo->player]-1;
+      SquadronIns(tmpo,tmps->last_in_squadron);
+    }
+    tmpo=tmpo->next;
+  }
+}
+
+U0 CleanUp()
+{
+  QueDel(&obj_head,TRUE);
+  QueDel(&torpedo_head,TRUE);
+  Free(squadrons);
+}
+
+Obj *ObjLaunch(I64 player,I64 squadron=-1,
+	Obj *host=NULL,F64 x=F64_MAX,F64 y=F64_MAX,F64 é=F64_MAX)
+{
+  Obj *tmpo;
+  F64 cur_time=tS;
+  if (!host)
+    host=ObjFind(x,y,,,1<<OT_CARRIER,1<<player);
+  if (host && cur_time>host->next_action_time) {
+    if (é==F64_MAX)
+      é=Arg(x-host->x,y-host->y);
+    tmpo=obj_head.next;
+    while (tmpo!=&obj_head) {
+      if (tmpo->host==host && (squadron<0||tmpo->squadron==squadron) &&
+	    !(tmpo->flags&OF_ACTIVE) &&
+	    (tmpo->squadron<0||squadrons[tmpo->squadron].action==SA_PARKED||
+	    squadrons[tmpo->squadron].action==SA_LAUNCHING)) {
+	if (tmpo->fuel<=0.0)
+//When low on fuel, not zero, gets launched and captured.
+	  LBts(&squadrons[tmpo->squadron].dead_mask,tmpo->member_num);
+	else {
+	  tmpo->flags=tmpo->flags&~OF_RETURNING|OF_ACTIVE;
+	  tmpo->é=host->é;
+	  if (x==F64_MAX || y==F64_MAX || Sqr(x-host->x)+Sqr(y-host->y)>3*3)
+	    tmpo->dé=Wrap(é-tmpo->é,-ã);
+	  else
+	    tmpo->dé=0;
+	  tmpo->x=host->x;
+	  tmpo->y=host->y;
+	  host->next_action_time=cur_time+0.25/game_speed;
+	  return tmpo;
+	}
+      }
+      tmpo=tmpo->next;
+    }
+  }
+  return NULL;
+}
+
+Squadron *SquadronLaunch(I64 player,F64 x=F64_MAX,F64 y=F64_MAX)
+{
+  Squadron *tmps;
+  Obj *tmpo;
+  if (tmpo=ObjLaunch(player,,,x,y)) {
+    if (player==0) {
+      launch_unit_x1=tmpo->x;
+      launch_unit_y1=tmpo->y;
+      launch_unit_x2=ms.pos.x-main_task->pix_left-main_task->scroll_x;
+      launch_unit_y2=ms.pos.y-main_task->pix_top -main_task->scroll_y;
+      launch_t=tS+0.5;
+    }
+    if (tmpo->squadron>=0) {
+      tmps=&squadrons[tmpo->squadron];
+      if (tmps->action==SA_PARKED) {
+	tmps->action=SA_LAUNCHING;
+	tmps->é=tmpo->é+tmpo->dé;
+      }
+      return tmps;
+    }
+  }
+  return NULL;
+}
+
+Obj *ObjReturn(I64 player,F64 x,F64 y)
+{
+  Obj *tmpo;
+  if (tmpo=ObjFind(x,y,OF_ACTIVE,OF_ACTIVE,1<<OT_FIGHTER,1<<player))
+    tmpo->flags|=OF_RETURNING;
+  return tmpo;
+}
+
+Squadron *SquadronReturn(I64 player,F64 x,F64 y)
+{
+  Squadron *tmps;
+  Obj *tmpo;
+  if (tmpo=ObjReturn(player,x,y)) {
+    if (player==0) {
+      return_unit_x1=tmpo->x;
+      return_unit_y1=tmpo->y;
+      if (tmpo->host) {
+	return_unit_x2=tmpo->host->x;
+	return_unit_y2=tmpo->host->y;
+	return_t=tS+0.5;
+      }
+    }
+    if (tmpo->squadron>=0) {
+      tmps=&squadrons[tmpo->squadron];
+      if (tmps->action==SA_FLYING)
+	tmps->action=SA_RETURNING;
+      return tmps;
+    }
+  }
+  return NULL;
+}
+
+Obj *ObjSeté(I64 player,F64 x=F64_MAX,F64 y=F64_MAX,F64 é=F64_MAX)
+{
+  Obj *tmpo;
+  if ((tmpo=ObjFind(x,y,,,,1<<player)) && tmpo->flags&OF_ACTIVE &&
+	!(tmpo->flags&OF_RETURNING)) {
+    if (é==F64_MAX)
+      é=Arg(x-tmpo->x,y-tmpo->y);
+    tmpo->dé+=Wrap(é-(tmpo->é+tmpo->dé),-ã);
+    return tmpo;
+  }
+  return NULL;
+}
+
+Squadron *SquadronSeté(I64 player,F64 x=F64_MAX,F64 y=F64_MAX,F64 é=F64_MAX)
+{
+  Squadron *tmps;
+  Obj *tmpo;
+  if (tmpo=ObjSeté(player,x,y,é)) {
+    if (player==0) {
+      set_é_unit_x1=tmpo->x;
+      set_é_unit_y1=tmpo->y;
+      set_é_unit_x2=ms.pos.x-main_task->pix_left-main_task->scroll_x;
+      set_é_unit_y2=ms.pos.y-main_task->pix_top -main_task->scroll_y;
+      set_é_t=tS+0.5;
+    }
+    if (tmpo->squadron>=0) {
+      tmps=&squadrons[tmpo->squadron];
+      if (tmps->action==SA_FLYING) {
+	tmps->action=SA_SET_é;
+	tmps->é=tmpo->é+tmpo->dé;
+      }
+      return tmps;
+    }
+  }
+  return NULL;
+}
+
+U0 SquadronActions()
+{
+  I64 i,completed_mask;
+  Obj *tmpo;
+  Squadron *tmps;
+  for (i=0,tmps=squadrons;i<num_squadrons;i++,tmps++) {
+    completed_mask=0;
+    switch (tmps->action) {
+      case SA_LAUNCHING:
+	ObjLaunch(tmps->player,i,tmps->host,,,tmps->é);
+	tmpo=tmps->next_in_squadron;
+	while (tmpo!=tmps) {
+	  LBEqu(&completed_mask,tmpo->member_num,tmpo->flags&OF_ACTIVE);
+	  tmpo=tmpo->next_in_squadron;
+	}
+	if (completed_mask|tmps->dead_mask==tmps->total_mask)
+	  tmps->action=SA_FLYING;
+	break;
+      case SA_FLYING:
+	tmpo=tmps->next_in_squadron;
+	while (tmpo!=tmps) {
+	  LBEqu(&completed_mask,tmpo->member_num,!(tmpo->flags&OF_ACTIVE));
+	  tmpo=tmpo->next_in_squadron;
+	}
+	if (completed_mask|tmps->dead_mask==tmps->total_mask)
+	  tmps->action=SA_PARKED;
+	break;
+      case SA_SET_é:
+	tmpo=tmps->next_in_squadron;
+	while (tmpo!=tmps) {
+	  tmpo->dé+=Wrap(tmps->é-(tmpo->é+tmpo->dé),-ã);
+	  tmpo=tmpo->next_in_squadron;
+	}
+	tmps->action=SA_FLYING;
+	break;
+      case SA_RETURNING:
+	tmpo=tmps->next_in_squadron;
+	while (tmpo!=tmps) {
+	  tmpo->flags|=OF_RETURNING;
+	  LBEqu(&completed_mask,tmpo->member_num,!(tmpo->flags&OF_ACTIVE));
+	  tmpo=tmpo->next_in_squadron;
+	}
+	if (completed_mask|tmps->dead_mask==tmps->total_mask)
+	  tmps->action=SA_PARKED;
+	break;
+    }
+    if (tmps->dead_mask==tmps->total_mask)
+      tmps->action=SA_DEAD;
+  }
+}
+
+U0 AI(I64 player,F64 period)
+{
+  Obj *tmpo;
+  tmpo=obj_head.next;
+  while (tmpo!=&obj_head) {
+    if (tmpo->player==player) {
+      if (tmpo->type==OT_CARRIER && Rand<5*period)
+	SquadronLaunch(player,tmpo->x,tmpo->y);
+      if (tmpo->flags&OF_ACTIVE && !(tmpo->flags&OF_RETURNING) &&
+	    Rand<10.0*period)
+	SquadronSeté(player,tmpo->x,tmpo->y,tmpo->é+pi/2*(Rand-0.5));
+    }
+    tmpo=tmpo->next;
+  }
+}
+
+U0 ShipDamage(Obj *tmpo,F64 d)
+{
+  I64 i,x=Rand*FIRE_WIDTH,y=Rand*FIRE_HEIGHT;
+  tmpo->life_percent-=d;
+  while (d>0) {
+    if (!Bts(tmpo->fire,y*FIRE_WIDTH+x))
+      d-=500.0/(FIRE_WIDTH*FIRE_HEIGHT);
+    else
+      d-=25.0/(FIRE_WIDTH*FIRE_HEIGHT);
+    i=RandI16&7;
+    x+=gr_x_offsets[i];
+    y+=gr_y_offsets[i];
+    while (x>=FIRE_WIDTH)
+      x-=FIRE_WIDTH;
+    while (x<0)
+      x+=FIRE_WIDTH;
+    while (y>=FIRE_HEIGHT)
+      y-=FIRE_HEIGHT;
+    while (y<0)
+      y+=FIRE_HEIGHT;
+  }
+}
+
+U0 ShipFix(Obj *tmpo,F64 d)
+{
+  tmpo->life_percent+=d;
+  if (tmpo->life_percent>=100.0) {
+    tmpo->life_percent=100.0;
+    MemSet(tmpo->fire,0,sizeof(Obj.fire));
+    return;
+  }
+  while (d>0)
+    if (Btr(tmpo->fire,FIRE_WIDTH*FIRE_HEIGHT*Rand))
+      d-=400.0/(FIRE_WIDTH*FIRE_HEIGHT);
+    else
+      d-=20.0/(FIRE_WIDTH*FIRE_HEIGHT);
+}
+
+U0 Combat(F64 period)
+{
+  F64 d;
+  Obj *tmpo,*tmpo1;
+  Torpedo *tmpt;
+  tmpo=obj_head.next;
+  while (tmpo!=&obj_head) {
+    tmpo->flags&=~OF_SHOOTING;
+    if (tmpo->flags&OF_ACTIVE &&
+	  (tmpo1=ObjFind(tmpo->x,tmpo->y,OF_ACTIVE,OF_ACTIVE,,
+	  1<<(tmpo->player^1),&d))) {
+      tmpo->target_x=tmpo1->x;
+      tmpo->target_y=tmpo1->y;
+      if (tmpo1->flags&OF_SHIP) {
+	if (tmpo->torpedos && d<tmpo->torpedos_range && Rand<125*period) {
+	  tmpo->torpedos--;
+	  tmpt=CAlloc(sizeof(Torpedo));
+	  tmpt->x=tmpo->x;
+	  tmpt->y=tmpo->y;
+	  tmpt->speed=100;
+	  d/=tmpt->speed*(GAME_SPEED_SCALE*game_speed);
+	  tmpo1->death_time=tmpt->timeout=tS+d;
+	  tmpt->target=tmpo1;
+	  tmpt->é=Arg(tmpo1->x-tmpo->x,tmpo1->y-tmpo->y);
+	  QueIns(tmpt,torpedo_head.last);
+	  Sweep(2000,86,53);
+	} else if (tmpo->ship_guns>0 && d<tmpo->ship_guns_range) {
+	  tmpo->flags|=OF_SHOOTING;
+	  if (Rand<125.0*period) {
+	    ShipDamage(tmpo1,tmpo->ship_guns*Rand*period);
+	    if (Rand<10.0*period)
+	      tmpo1->fuel*=0.75*Rand+0.25;
+	  }
+	  if (tS>next_noise) {
+	    Noise(100,29,46);
+	    next_noise=tS+0.1;
+	  }
+	}
+      } else {
+	if (tmpo->air_guns>0 && d<tmpo->air_guns_range) {
+	  tmpo->flags|=OF_SHOOTING;
+	  if (Rand<125.0*period) {
+	    tmpo1->life_percent-=tmpo->air_guns*Rand*period;
+	    if (Rand<10.0*period)
+	      tmpo1->fuel*=0.75*Rand+0.25;
+	  }
+	  if (tS>next_noise) {
+	    Noise(25,62,86);
+	    next_noise=tS+0.025;
+	  }
+	}
+      }
+    }
+    tmpo=tmpo->next;
+  }
+  tmpo=obj_head.next;
+  while (tmpo!=&obj_head) {
+    tmpo1=tmpo->next;
+    if (tmpo->type==OT_FIGHTER &&
+	  (tmpo->life_percent<=0.0 || tmpo->flags&OF_ACTIVE &&
+	  tmpo->fuel<=0.0 || tmpo->host &&
+	  !(tmpo->flags&OF_ACTIVE) && tmpo->host->life_percent<=0.0))
+      ObjDel(tmpo);
+    tmpo=tmpo1;
+  }
+  tmpo=obj_head.next;
+  while (tmpo!=&obj_head) {
+    tmpo1=tmpo->next;
+    if (tmpo->life_percent<=0.0)
+      ObjDel(tmpo);
+    tmpo=tmpo1;
+  }
+}
+
+#define ANIMATE_FREQ	50
+U0 AnimateTask(I64)
+{
+  Obj *tmpo;
+  Torpedo *tmpt,*tmpt1;
+  F64 d,period;
+
+  while (TRUE) {
+    period=GAME_SPEED_SCALE*game_speed/ANIMATE_FREQ;
+    SquadronActions;
+
+    tmpo=obj_head.next;
+    while (tmpo!=&obj_head) {
+      if (tmpo->flags&OF_ACTIVE && tmpo->fuel>0) {
+	if (tmpo->dé) {
+	  d=tmpo->dé;
+	  if (d> tmpo->turn_rate*period) d= tmpo->turn_rate*period;
+	  if (d<-tmpo->turn_rate*period) d=-tmpo->turn_rate*period;
+	  tmpo->é +=d;
+	  tmpo->dé-=d;
+	}
+	tmpo->x+=tmpo->speed*Cos(tmpo->é)*period*tmpo->life_percent/100.0;
+	tmpo->y+=tmpo->speed*Sin(tmpo->é)*period*tmpo->life_percent/100.0;
+	tmpo->fuel-=tmpo->speed*tmpo->fuel_burn_rate*period;
+      }
+      tmpo=tmpo->next;
+    }
+
+    tmpt=torpedo_head.next;
+    while (tmpt!=&torpedo_head) {
+      tmpt1=tmpt->next;
+      if (tS>tmpt->timeout) {
+	tmpo=tmpt->target;
+	if (Rand<0.333333) {
+	  ShipDamage(tmpo,150*Rand*Rand);
+	  if (Rand<0.333333)
+	    tmpo->fuel*=0.75*Rand+0.25;
+	}
+	QueRem(tmpt);
+	Free(tmpt);
+      } else {
+	tmpt->x+=tmpt->speed*Cos(tmpt->é)*period;
+	tmpt->y+=tmpt->speed*Sin(tmpt->é)*period;
+      }
+      tmpt=tmpt1;
+    }
+
+    tmpo=obj_head.next;
+    while (tmpo!=&obj_head) {
+      if (tmpo->host && !(tmpo->flags&OF_ACTIVE)) {
+	tmpo->x=tmpo->host->x;
+	tmpo->y=tmpo->host->y;
+      }
+      tmpo=tmpo->next;
+    }
+
+    tmpo=obj_head.next;
+    while (tmpo!=&obj_head) {
+      if (tmpo->flags&OF_ACTIVE) {
+	if (tmpo->host) {
+	  d=Sqrt(Sqr(tmpo->x-tmpo->host->x)+Sqr(tmpo->y-tmpo->host->y));
+	  if (d<8 && tmpo->max_fuel-tmpo->fuel>30) {
+	    tmpo->life_percent=100.0;
+	    if (tmpo->host->fuel>0) {
+	      d=tmpo->max_fuel-tmpo->fuel;
+	      if (d>tmpo->host->fuel) d=tmpo->host->fuel;
+	      tmpo->host->fuel-=d;
+	      tmpo->fuel+=d;
+	    }
+	    tmpo->torpedos=tmpo->max_torpedos;
+	    tmpo->x=tmpo->host->x;
+	    tmpo->y=tmpo->host->y;
+	    tmpo->flags&=~OF_ACTIVE;
+	  } else if (d>tmpo->fuel-250)
+	    tmpo->flags|=OF_RETURNING;
+	  if (tmpo->flags&OF_RETURNING)
+	    tmpo->dé+=Wrap(Arg(tmpo->host->x-tmpo->x,
+		  tmpo->host->y-tmpo->y)-(tmpo->é+tmpo->dé),-ã);
+	} else if (tmpo->type==OT_CARRIER)
+	  ShipFix(tmpo,2.5*period);
+      }
+      tmpo=tmpo->next;
+    }
+
+    AI(1,period);
+    Combat(period);
+    Sleep(1000/ANIMATE_FREQ);
+  }
+}
+
+U0 FlatTops()
+{
+  I64 arg1,arg2;
+
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  Fs->text_attr=BLUE<<4+WHITE;
+  AutoComplete;
+  WinBorder;
+  WinMax;
+  DocCursor;
+  DocClear;
+  PopUpOk("$$GREEN$${Left-Mouse}$$FG$$\t\tChange Course\n"
+	"$$GREEN$${Right-Mouse}$$FG$$\t\tLaunch Squadron\n"
+	"$$GREEN$${Right-Double-Mouse}$$FG$$\tReturn Squadron\n"
+	"$$GREEN$${Ctrl-Left Grab}$$FG$$\tScroll Scrn\n");
+  MenuPush(
+	"File {"
+	"  Abort(,CH_SHIFT_ESC);"
+	"  Exit(,CH_ESC);"
+	"}"
+	"Play {"
+	"  Restart(,'\n');"
+	"  Faster(,'+');"
+	"  Slower(,'-');"
+	"}"
+	);
+  Fs->win_inhibit|=WIF_SELF_MS_L|WIF_SELF_MS_R;
+  Init;
+  Fs->draw_it=&DrawIt;
+  Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",,Fs);
+  try {
+    while (TRUE)
+      switch (GetMsg(&arg1,&arg2,
+	    1<<MSG_KEY_DOWN|1<<MSG_MS_L_UP|1<<MSG_MS_R_UP|1<<MSG_MS_R_D_UP)) {
+	case MSG_KEY_DOWN:
+	  switch (arg1) {
+	    case '\n':
+	      CleanUp;
+	      Init;
+	      break;
+	    case CH_ESC:
+	    case CH_SHIFT_ESC:
+	      goto nv_done;
+	    case '+':
+	      game_speed*=1.5;
+	      break;
+	    case '-':
+	      game_speed/=1.5;
+	      break;
+	  }
+	  break;
+	case MSG_MS_L_UP:
+	  SquadronSeté(0,arg1,arg2);
+	  break;
+	case MSG_MS_R_UP:
+	  SquadronLaunch(0,arg1,arg2);
+	  break;
+	case MSG_MS_R_D_UP:
+	  SquadronReturn(0,arg1,arg2);
+	  break;
+      }
+nv_done:
+    GetMsg(,,1<<MSG_KEY_UP);
+  } catch
+    PutExcept;
+  MenuPop;
+  SettingsPop;
+  CleanUp;
+}
+
+FlatTops;
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+//Maybe use this in the future	$SP,"<7>",BI=7$
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
rúÿÿÿéÿÿÿ&ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿrúÿÿÿéÿÿÿ&ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ␍␍␍ÿ␍␍ÿ␍␍ÿ␍␍ÿ␍␍ÿ␍ÿ␍ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbüÿÿÿìÿÿÿ	%ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿbüÿÿÿìÿÿÿ	%ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ␍␍ÿÿÿ␍␍ÿÿÿÿ␍␍␍␍ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿZþÿÿÿüÿÿÿ	ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿZþÿÿÿüÿÿÿ	ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ␍␍ÿÿ␍␍ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿã
 <,
,
çÿÿÿ}âÿÿÿiØÿÿÿUØÿÿÿUâÿÿÿÉÿÿÿÔþÿÿÉÿÿÿÔþÿÿFFdíþÿÿÎÿÿÿÿÿÿÎÿÿÿÿÿÿâÿÿÿíþÿÿâÿÿÿíþÿÿÎÿÿÿÿÿÿÎÿÿÿÿÿÿâÿÿÿíþÿÿâÿÿÿiâÿÿÿ,
öÿÿÿ,
çÿÿÿöÿÿÿ}âÿÿÿöÿÿÿiØÿÿÿöÿÿÿUØÿÿÿöÿÿÿUâÿÿÿöÿÿÿÉÿÿÿöÿÿÿÔþÿÿÉÿÿÿöÿÿÿÔþÿÿFöÿÿÿFöÿÿÿdöÿÿÿiâÿÿÿöÿÿÿ		
+	
+
+
+
+

+
      



+
+	
+		␍␍␍␍,
,
ìÿÿÿØÿÿÿÔþÿÿÝÿÿÿÔþÿÿ<2Þþÿÿ-âÿÿÿÞþÿÿâÿÿÿâÿÿÿÝÿÿÿâÿÿÿ-âÿÿÿ'
âÿÿÿ'
ñÿÿÿâÿÿÿ			
+
		
+	
+

+
+


TempleOSCD/Demo/Games/Halogen.HC

@@ -0,0 +1,162 @@
+#define ROAD_NUM	512
+#define ROAD_WIDTH_BY_2	200
+#define CAR_WIDTH_BY_2	100
+
+I64 road_x[ROAD_NUM],road_trend;
+F64 speed,distance;
+I64 road_ptr=0,car_x;
+F64 t_last;
+Bool crash;
+
+U0 DrawIt(CTask *task,CDC *dc)
+{
+  I64 w=task->pix_width,h=task->pix_height;
+  I64 i,x,y,xx;
+  xx=w>>1-car_x+road_x[road_ptr&(ROAD_NUM-1)];
+
+  dc->color=LTGRAY;
+  for (i=0;i<ROAD_NUM;i++) {
+    x=w>>1-car_x+road_x[(i+road_ptr)&(ROAD_NUM-1)];
+    y=h-0.5*i;
+    if (y<(h+FONT_HEIGHT)>>1) break;
+    GrPlot(dc,x+ROAD_WIDTH_BY_2-0.4*i,y);
+    GrPlot(dc,x-ROAD_WIDTH_BY_2+0.4*i,y);
+  }
+  dc->color=WHITE;
+
+  x=w>>1-CAR_WIDTH_BY_2;
+  if (x<xx-ROAD_WIDTH_BY_2)
+    crash=TRUE;
+  GrLine(dc,x-10,h,x-40,h-100);
+  GrLine(dc,x+10,h,x+40,h-100);
+
+  x=w>>1+CAR_WIDTH_BY_2;
+  if (x>xx+ROAD_WIDTH_BY_2)
+    crash=TRUE;
+  GrLine(dc,x-10,h,x-40,h-100);
+  GrLine(dc,x+10,h,x+40,h-100);
+
+  dc->color=YELLOW;
+  if (crash)
+    GrPrint(dc,w>>1-FONT_WIDTH*4,(h-FONT_HEIGHT)>>1,"Game Over");
+}
+
+U0 UpdateRoad()
+{
+  F64 t0=tS;
+  distance+=speed*(t0-t_last);
+  t_last=t0;
+  while (distance>1.0) {
+    road_trend=ClampI64(road_trend+SignI64(RandU16%3-1),-5,5);
+    road_x[road_ptr&(ROAD_NUM-1)]=
+	  road_x[(road_ptr-1)&(ROAD_NUM-1)]+=road_trend/3;
+    road_ptr++;
+    distance-=1.0;
+  }
+}
+
+U0 Init()
+{
+  I64 i,x=0;
+  DocClear;
+  "$$BG,DKGRAY$$%h*c",(TEXT_ROWS-1)/2,'\n';
+  speed=0;
+  distance=0;
+  road_trend=0;
+  road_ptr=0;
+  car_x=0;
+  for (i=0;i<ROAD_NUM;i++) {
+    road_x[i]=x;
+    road_trend=ClampI64(road_trend+SignI64(RandU16%3-1),-5,5);
+    x+=road_trend/3;
+  }
+  t_last=tS;
+  crash=FALSE;
+}
+
+U0 Halogen()
+{
+  I64 arg1,arg2,ch=0,sc=0;
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  Fs->text_attr=BLACK<<4+WHITE;
+  MenuPush(
+	"File {"
+	"  Abort(,CH_SHIFT_ESC);"
+	"  Exit(,CH_ESC);"
+	"}"
+	"Play {"
+	"  Restart(,'\n');"
+	"  Accelerate(,,SC_CURSOR_UP);"
+	"  Deccellerate(,,SC_CURSOR_DOWN);"
+	"  Left(,,SC_CURSOR_LEFT);"
+	"  Right(,,SC_CURSOR_RIGHT);"
+	"}"
+	);
+  AutoComplete;
+  WinBorder;
+  WinMax;
+  DocCursor;
+  Init;
+  Fs->draw_it=&DrawIt;
+  try {
+    while (TRUE) {
+      switch (ScanMsg(&arg1,&arg2,1<<MSG_KEY_DOWN|1<<MSG_KEY_UP)) {
+	case MSG_KEY_DOWN:
+	  ch=arg1;sc=arg2;
+	  switch (ch) {
+	    case '\n':
+	      Init;
+	      break;
+	    case CH_ESC:
+	    case CH_SHIFT_ESC:
+	      goto ha_done;
+	  }
+	  break;
+	case MSG_KEY_UP:
+	  ch=arg1;sc=arg2;
+	  if (!ch)
+	    switch (sc.u8[0]) {
+	      case SC_CURSOR_RIGHT:
+	      case SC_CURSOR_LEFT:
+	      case SC_CURSOR_UP:
+	      case SC_CURSOR_DOWN:
+		sc=0;
+		break;
+	    }
+	  break;
+      }
+      switch (sc.u8[0]) {
+	case SC_CURSOR_RIGHT:
+	  car_x++;
+	  break;
+	case SC_CURSOR_LEFT:
+	  car_x--;
+	  break;
+	case SC_CURSOR_UP:
+	  if (++speed>200) speed=200;
+	  break;
+	case SC_CURSOR_DOWN:
+	  if (--speed<0) speed=0;
+	  break;
+      }
+      if (crash)
+	Snd;
+      else {
+	if (speed)
+	  Snd(Freq2Ona(speed+10));
+	else
+	  Snd;
+	UpdateRoad;
+      }
+      Sleep(10);
+    }
+ha_done:
+    GetMsg(,,1<<MSG_KEY_UP);
+  } catch
+    PutExcept;
+  MenuPop;
+  DocClear;
+  SettingsPop;
+}
+
+Halogen;

TempleOSCD/Demo/Games/MassSpring.HC

@@ -0,0 +1,169 @@
+class MyMass:CMass
+{
+  F64 radius;
+};
+
+class MySpring:CSpring
+{
+};
+
+CMathODE *ode=NULL;
+
+U0 DrawIt(CTask *,CDC *dc)
+{
+  MyMass   *tmpm;
+  MySpring *tmps;
+
+  dc->color=RED;
+  tmps=ode->next_spring;
+  while (tmps!=&ode->next_spring) {
+    GrLine(dc,tmps->end1->x,tmps->end1->y,tmps->end2->x,tmps->end2->y);
+    tmps=tmps->next;
+  }
+
+  dc->color=BLACK;
+  tmpm=ode->next_mass;
+  while (tmpm!=&ode->next_mass) {
+    GrCircle(dc,tmpm->x,tmpm->y,tmpm->radius);
+    tmpm=tmpm->next;
+  }
+}
+
+U0 MyDerivative(CMathODE *ode,F64,COrder2D3 *,COrder2D3 *)
+{//The forces due to springs and drag are
+//automatically handled by the ode code.
+  //We can add new forces here.
+  F64 d,dd;
+  CD3 p;
+  MyMass *tmpm1,*tmpm2;
+
+  tmpm1=ode->next_mass;
+  while (tmpm1!=&ode->next_mass) {
+    tmpm2=tmpm1->next;
+    while (tmpm2!=&ode->next_mass) {
+      D3Sub(&p,&tmpm2->state->x,&tmpm1->state->x);
+      dd=D3NormSqr(&p);
+      if (dd<=Sqr(tmpm1->radius+tmpm2->radius)) {
+	d=Sqrt(dd)+0.0001;
+	dd=10.0*Sqr(Sqr(Sqr(tmpm1->radius+tmpm2->radius)-dd));
+	D3MulEqu(&p,dd/d);
+	D3AddEqu(&tmpm2->DstateDt->DxDt,&p);
+	D3SubEqu(&tmpm1->DstateDt->DxDt,&p);
+      }
+      tmpm2=tmpm2->next;
+    }
+    tmpm1=tmpm1->next;
+  }
+}
+
+U0 PlaceMass(I64 x, I64 y)
+{
+  MyMass *tmpm=CAlloc(sizeof(MyMass));
+  tmpm->mass=1.0;
+  tmpm->drag_profile_factor=100.0;
+  tmpm->x=x;
+  tmpm->y=y;
+  tmpm->radius=10*(Rand+0.25);
+  QueIns(tmpm,ode->last_mass);
+}
+
+U0 PlaceSpring(MyMass *tmpm1,MyMass *tmpm2)
+{
+  MySpring *tmps=CAlloc(sizeof(MySpring));
+  tmps->end1=tmpm1;
+  tmps->end2=tmpm2;
+  tmps->const=10000;
+  tmps->rest_len=100;
+  QueIns(tmps,ode->last_spring);
+}
+
+U0 Init()
+{
+  ode=ODENew(0,1e-4,ODEF_HAS_MASSES);
+  ode->derivative=&MyDerivative;
+  ode->drag_v2=0.002;
+  ode->drag_v3=0.00001;
+  ode->acceleration_limit=5e3;
+
+  QueIns(ode,Fs->last_ode);
+}
+
+U0 CleanUp()
+{
+  QueRem(ode);
+  QueDel(&ode->next_mass,TRUE);
+  QueDel(&ode->next_spring,TRUE);
+  ODEDel(ode);
+}
+
+U0 MassSpringDemo()
+{
+  I64 msg_code,arg1,arg2;
+  MyMass *tmpm1=NULL,*tmpm2=NULL;
+
+  PopUpOk("Left-Click to place mas\n"
+	"Right-Click and drag to\n"
+	"connect with spring.\n\n"
+	"Springs are 100 pixs long.\n");
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  AutoComplete;
+  WinBorder;
+  WinMax;
+  DocCursor;
+  DocClear;
+
+  Fs->win_inhibit|=WIG_DBL_CLICK;
+
+  MenuPush(
+	"File {"
+	"  Abort(,CH_SHIFT_ESC);"
+	"  Exit(,CH_ESC);"
+	"}"
+	"Play {"
+	"  Restart(,'\n');"
+	"}"
+	);
+
+  Init;
+  Fs->draw_it=&DrawIt;
+
+  try {
+    while (TRUE) {
+      msg_code=GetMsg(&arg1,&arg2,
+	    1<<MSG_MS_L_DOWN|1<<MSG_MS_R_DOWN|1<<MSG_MS_R_UP|1<<MSG_KEY_DOWN);
+      switch (msg_code) {
+	case MSG_MS_L_DOWN:
+	  PlaceMass(arg1,arg2);
+	  break;
+	case MSG_MS_R_DOWN:
+	  tmpm1=MassFind(ode,arg1,arg2);
+	  tmpm2=NULL;
+	  break;
+	case MSG_MS_R_UP:
+	  if (tmpm1 && (tmpm2=MassFind(ode,arg1,arg2)) && tmpm1!=tmpm2)
+	    PlaceSpring(tmpm1,tmpm2);
+	  tmpm1=tmpm2=NULL;
+	  break;
+	case MSG_KEY_DOWN:
+	  switch (arg1) {
+	    case '\n':
+	      CleanUp;
+	      Init;
+	      break;
+	    case CH_SHIFT_ESC:
+	    case CH_ESC:
+	      goto ms_done;
+	  }
+	  break;
+      }
+    }
+ms_done: //Don't goto out of try
+    GetMsg(,,1<<MSG_KEY_UP);
+  } catch
+    PutExcept;
+  SettingsPop;
+  CleanUp;
+  MenuPop;
+}
+
+MassSpringDemo;

TempleOSCD/Demo/Games/Maze.HC

@@ -0,0 +1,112 @@
+//See $LK,"TextBase Layer",A="HI:TextBase Layer"$.
+
+#define ATTR (BLACK<<12+WHITE<<8)
+
+U32 text[TEXT_ROWS][TEXT_COLS];
+
+U0 DrawIt(CTask *task,CDC *)
+{ //$LK,"gr.text_base",A="MN:CGrGlbls"$ gets clear 30fps, so we must use our own permanent text array.
+  MemCpy(gr.text_base+TEXT_COLS,text,(TEXT_ROWS-1)*TEXT_COLS*sizeof(U32));
+
+  // You can copy it this way, if you like:
+  //  I64 i,j;
+  //  for (j=0;j<TEXT_ROWS;j++)
+  //	for (i=0;i<TEXT_COLS;i++)
+  //	 TextChar(task,,i,j,text[j][i]);
+
+  TextPrint(task,0,0,ATTR>>8,"Draw a maze with left bttn.");
+  TextPrint(task,0,1,ATTR>>8,"Solve maze starting at right click.");
+}
+
+#define STK_SIZE 2048
+//We would put these as local vars
+//in SolveMaze() but the system stk size
+//is limited, so it's a bad habit.  The heap
+//is the normal TempleOS technique, but
+//it's a pain in this case.
+I64	stk_ptr,
+	stk_x  [STK_SIZE],
+	stk_y  [STK_SIZE],
+	stk_dir[STK_SIZE];
+
+//Four directions:
+//  0=Up,1=right,2=down,3=left
+I64	dir_x[4]={ 0,+1, 0,-1},  // Could use $LK,"gr_x_offsets2",A="MN:gr_x_offsets2"$,$LK,"gr_y_offsets2",A="MN:gr_y_offsets2"$
+	dir_y[4]={+1, 0,-1, 0};
+
+U0 SolveMaze(I64 x,I64 y)
+{
+  I64 dir=0;
+  stk_ptr=0;
+  stk_x[stk_ptr]=x;
+  stk_y[stk_ptr]=y;
+  stk_dir[stk_ptr++]=dir;
+  while (TRUE) {
+    if (!(0<=x<MinI64(Fs->win_width,TEXT_COLS)) ||
+	  !(0<=y<MinI64(Fs->win_height,TEXT_ROWS)) ) {
+      Beep;Beep;
+      break;
+    }
+    if (!text[y][x].u8[0])
+      text[y][x]='.'+ATTR;
+    x+=dir_x[dir];
+    y+=dir_y[dir];
+//u8.[0] is the ASCII
+    if (text[y][x].u8[0]) {
+      x-=dir_x[dir];
+      y-=dir_y[dir];
+      if (++dir==4) {
+	if (--stk_ptr<0) return;
+	x=stk_x[stk_ptr];
+	y=stk_y[stk_ptr];
+	dir=stk_dir[stk_ptr];
+      }
+    } else {
+      dir=0;
+      stk_x[stk_ptr]=x;
+      stk_y[stk_ptr]=y;
+      stk_dir[stk_ptr++]=dir;
+      if (stk_ptr==STK_SIZE) return;
+      Sleep(100);
+      if (ScanChar)
+	throw;
+    }
+  }
+}
+
+U0 Maze()
+{
+  I64 ch,x,y;
+
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  AutoComplete;
+  WinBorder;
+  WinMax;
+  DocCursor;
+  DocClear;
+  Fs->draw_it=&DrawIt;
+  Fs->win_inhibit=WIG_TASK_DFT-WIF_SELF_FOCUS-WIF_SELF_BORDER;
+
+  try
+    do {
+      MemSet(text,0,sizeof(text));
+      while (!(ch=ScanChar)) {
+	x=ms.pos_text.x-Fs->win_left-Fs->scroll_x/FONT_WIDTH;
+	y=ms.pos_text.y-Fs->win_top-Fs->scroll_y/FONT_HEIGHT;
+	if (ms.lb&&!winmgr.grab_scroll)
+	  text[y][x]=CH_SPACE+ATTRF_INVERT+ATTR;
+	if (ms.rb&&!winmgr.grab_scroll) {
+	  text[y][x]='*'+ATTR;
+	  SolveMaze(x,y);
+	  ch=GetChar;
+	  break;
+	}
+	Refresh;
+      }
+    } while (ch!=CH_SHIFT_ESC && ch!=CH_ESC);
+  catch
+    PutExcept;
+  SettingsPop;
+}
+
+Maze;

TempleOSCD/Demo/Games/RainDrops.HC

@@ -0,0 +1,189 @@
+I64 sc_1,sc_2;
+
+#define DROPS_NUM	0x2000
+
+class Drop
+{
+  I32 x,y;
+} drops[DROPS_NUM];
+
+CDC *cur_dc;
+
+U0 DrawFrame(CTask *task,CDC *dc)
+{
+  I64 w=task->pix_width,h=task->pix_height,
+	cx=w>>1,cy=h>>1;
+
+  dc->color=LTRED;
+  GrLine(dc,cx-20,cy-50,cx,cy-150);
+  GrLine(dc,cx+20,cy-50,cx,cy-150);
+
+  dc->color=LTRED;
+  GrLine(dc,cx-100,cy-100,cx,cy);
+  GrLine(dc,cx+100,cy-100,cx,cy);
+  if (Bt(kbd.down_bitmap,sc_1)) {
+    dc->color=WHITE;
+    GrRect(dc,cx-2,cy-2,5,5);
+  }
+  dc->color=BLACK;
+  GrPrint(dc,cx+10,cy,"Press '1'");
+
+  dc->color=LTRED;
+  GrRect(dc,cx-20,cy+60,41,21);
+
+  dc->color=LTRED;
+  GrLine(dc,cx-200,cy,cx,cy+100);
+  GrLine(dc,cx+200,cy,cx,cy+100);
+  if (Bt(kbd.down_bitmap,sc_2)) {
+    dc->color=WHITE;
+    GrRect(dc,cx-2,cy+100-2,5,5);
+  }
+  dc->color=BLACK;
+  GrPrint(dc,cx+10,cy+100,"Press '2'");
+
+  dc->color=LTRED;
+  GrLine(dc,cx+400,cy+100,cx-250,cy+200);
+}
+
+U0 DrawDrops(CTask *,CDC *dc)
+{
+  I64 i;
+  dc->color=BLUE;
+  for (i=0;i<DROPS_NUM;i++)
+    if (drops[i].y>=0 && GrPeek(dc,drops[i].x,drops[i].y)==WHITE)
+      GrPlot(dc,drops[i].x,drops[i].y);
+}
+
+U0 UpdateCurBase(CTask *task,CDC *dc)
+{
+  cur_dc->color=ROP_EQU;
+  dc->flags|=DCF_NO_TRANSPARENTS;
+  GrBlot(cur_dc,-task->pix_left-task->scroll_x,
+	-task->pix_top-task->scroll_y,dc);
+  dc->flags&=~DCF_NO_TRANSPARENTS;
+}
+
+U0 DrawIt(CTask *task,CDC *dc)
+{
+  DrawFrame(task,dc);
+  DrawDrops(task,dc);
+  UpdateCurBase(task,dc);
+}
+
+U0 AnimateTask(I64)
+{
+  I64 i,j,cur_drop=0,c1,c2,x0,y0,x1,y1,w,h;
+  while (TRUE) {
+    w=Fs->parent_task->pix_width;
+    h=Fs->parent_task->pix_height;
+
+    for (i=0;i<2;i++) {
+      j=0;
+      do {
+	if (++cur_drop>=DROPS_NUM)
+	  cur_drop=0;
+	if (drops[cur_drop].y<0)
+	  break;
+	j++;
+      } while (j<=DROPS_NUM);
+
+      drops[cur_drop].x=RandU32%w;
+      drops[cur_drop].y=0;
+    }
+
+    for (i=0;i<DROPS_NUM;i++) {
+      if (drops[i].y>=0) {
+	if (drops[i].y>=h-1)
+	  drops[i].y=-I32_MAX;
+	else {
+	  x0=x1=drops[i].x;
+	  y0=y1=drops[i].y;
+	  if (GrPeek(cur_dc,x0,y0+1)==WHITE)
+	    y1++;
+	  else {
+	    c1=GrPeek(cur_dc,x0+1,y0);
+	    c2=GrPeek(cur_dc,x0-1,y0);
+	    if (c1==WHITE && c2!=WHITE)
+	      x1++;
+	    else if (c2==WHITE && c1!=WHITE)
+	      x1--;
+	    else if (c1==WHITE && c2==WHITE) {
+	      c1=GrPeek(cur_dc,x0+1,y0+1);
+	      c2=GrPeek(cur_dc,x0-1,y0+1);
+	      if (c1==WHITE && c2!=WHITE)
+		x1++;
+	      else if (c2==WHITE && c1!=WHITE)
+		x1--;
+	      else if (RandI16>=0)
+		x1++;
+	      else
+		x1--;
+	    }
+	    if (GrPeek(cur_dc,x1,y1+1)==WHITE)
+	      y1++;
+	  }
+	  if (GrPeek(cur_dc,x0,y0)==BLUE) {
+	    cur_dc->color=WHITE;
+	    GrPlot(cur_dc,x0,y0);
+	  }
+	  cur_dc->color=BLUE;
+	  GrPlot(cur_dc,x1,y1);
+	  drops[i].x=x1;
+	  drops[i].y=y1;
+	}
+      }
+    }
+    Sleep(10);
+  }
+}
+
+U0 Init()
+{
+  I64 i;
+  MemSet(drops,0,sizeof(drops));
+  for (i=0;i<DROPS_NUM;i++)
+    drops[i].y=-I32_MAX;
+}
+
+U0 RainDrops()
+{
+  I64 ch,sc;
+  MenuPush(
+	"File {"
+	"  Abort(,CH_SHIFT_ESC);"
+	"  Exit(,CH_ESC);"
+	"}"
+	"Play {"
+	"  Restart(,'\n');"
+	"  OpenUpper(,'1');"
+	"  OpenLower(,'2');"
+	"}"
+	);
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  AutoComplete;
+  WinBorder;
+  WinMax;
+  DocCursor;
+  DocClear;
+  cur_dc=DCNew(GR_WIDTH,GR_HEIGHT);
+  sc_1=Char2ScanCode('1');
+  sc_2=Char2ScanCode('2');
+  Init;
+  Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",,Fs);
+  Fs->draw_it=&DrawIt;
+  try {
+    do
+      switch (ch=GetKey(&sc)) {
+	case '\n':
+	  Init;
+	  break;
+      }
+    while (ch!=CH_ESC && ch!=CH_SHIFT_ESC);
+  } catch
+    PutExcept;
+  SettingsPop;
+  MenuPop;
+  DCDel(cur_dc);
+}
+
+RainDrops;

TempleOSCD/Demo/Games/RawHide.HC

@@ -0,0 +1,803 @@
+//Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
+
+RegDft("TempleOS/RawHide","F64 best_score=9999;\n");
+RegExe("TempleOS/RawHide");
+
+F64 t0,tf;
+I64 outside_cnt;
+
+#define MAP_WIDTH	1000
+#define MAP_HEIGHT	1000
+#define FENCE_WIDTH	320
+#define FENCE_HEIGHT	200
+#define MAP_BORDER	3
+CDC *map_dc;
+
+#define GATE_WIDTH	22
+#define GATE_HEIGHT	7
+F64 gate_é,gate_t;
+
+
+
+$SP,"<1>",BI=1$	$SP,"<2>",BI=2$	$SP,"<3>",BI=3$
+
+
+$SP,"<4>",BI=4$	$SP,"<5>",BI=5$	$SP,"<6>",BI=6$
+
+
+$SP,"<7>",BI=7$	$SP,"<8>",BI=8$
+
+
+$SP,"<9>",BI=9$
+	$SP,"<10>",BI=10$
+
+
+
+
+
+
+
+
+#define ANIMAL_WIDTH	20
+#define ANIMAL_HEIGHT	16
+
+U8 *cow_imgs[4]  ={$IB,"<1>",BI=1$,$IB,"<2>",BI=2$,$IB,"<3>",BI=3$,$IB,"<2>",BI=2$},
+   *bull_imgs[4] ={$IB,"<4>",BI=4$,$IB,"<5>",BI=5$,$IB,"<6>",BI=6$,$IB,"<5>",BI=5$},
+   *horse_imgs[4]={$IB,"<7>",BI=7$,$IB,"<8>",BI=8$,$IB,"<7>",BI=7$,$IB,"<8>",BI=8$};
+
+#define ANIMALS_NUM	100
+
+class Animal
+{
+  I64	num,x,y,dx,dy;
+  U8	**imgs;
+  U32	buddy;
+  U8	type,frame0;
+  Bool	dead,pad;
+} *a;
+
+//************************************
+#define WATERFALL_HEIGHT	(MAP_HEIGHT/20)
+#define WATERFALL_DROPS		512
+#define WATERFALL_ACCELERATION	10
+I32 *r_x,*r_width,*wfd_x;
+F64 *wfd_t0,waterfall_tf;
+I64 waterfall_x,waterfall_y,waterfall_width;
+
+U0 RiverNew()
+{
+  r_x=MAlloc(MAP_HEIGHT*sizeof(I32));
+  r_width=MAlloc(MAP_HEIGHT*sizeof(I32));
+  wfd_x=MAlloc(WATERFALL_DROPS*sizeof(I32));
+  wfd_t0=MAlloc(WATERFALL_DROPS*sizeof(F64));
+  waterfall_tf=Sqrt(2*WATERFALL_HEIGHT/WATERFALL_ACCELERATION);
+}
+
+U0 RiverMake()
+{
+  I64 i,x=2*MAP_WIDTH<<32/3,y,dx=0,w=15<<32;
+  waterfall_y=(MAP_HEIGHT-WATERFALL_HEIGHT)/2*Rand+
+    (MAP_HEIGHT-WATERFALL_HEIGHT)/4;
+  for (y=MAP_BORDER;y<MAP_HEIGHT-MAP_BORDER;y++) {
+    r_x[y]=x.i32[1]; r_width[y]=w.i32[1];
+    if (waterfall_y-5<y<waterfall_y+WATERFALL_HEIGHT+5) {
+      waterfall_width=r_width[y];
+      waterfall_x=r_x[y]-waterfall_width/2;
+    } else {
+      dx=ClampI64(dx+RandI32/64,-I32_MAX,I32_MAX)-I32_MAX/256;
+      w=ClampI64(w+RandI32*2,10*U32_MAX,150*U32_MAX);
+      x+=dx;
+    }
+  }
+  for (i=0;i<WATERFALL_DROPS;i++) {
+    wfd_x[i]=Rand*waterfall_width+waterfall_x;
+    wfd_t0[i]=tS-Rand*waterfall_tf;
+  }
+
+  //Plot waterfall cliff
+  Sprite3B(map_dc,waterfall_x,waterfall_y,0,$IB,"<10>",BI=10$);
+
+  //Plot sand bar
+  x=0;
+  for (y=MAP_BORDER;y<MAP_HEIGHT-MAP_BORDER;y++) {
+    if (!(waterfall_y-9<y<waterfall_y+WATERFALL_HEIGHT+9)) {
+      map_dc->color=YELLOW;
+      map_dc->pen_width=r_width[y]+10;
+      GrPlot3(map_dc,r_x[y]+x.i32[1],y,0);
+    }
+    x=ClampI64(x+RandI32,-6*U32_MAX,6*U32_MAX);
+  }
+
+  //Plot water
+  for (y=MAP_BORDER;y<MAP_HEIGHT-MAP_BORDER;y++) {
+    map_dc->color=BLUE;
+    map_dc->pen_width=r_width[y];
+    GrPlot3(map_dc,r_x[y],y,0);
+  }
+}
+
+U0 RiverDel()
+{
+  Free(r_x);
+  Free(r_width);
+  Free(wfd_x);
+  Free(wfd_t0);
+}
+
+//************************************
+class RiverDrop
+{
+  RiverDrop *next,*last;
+  I64 y,dx,dy;
+} rd_head;
+Bool rd_lock;
+
+U0 RiverDropsDel()
+{
+  while (LBts(&rd_lock,0))
+    Yield;
+  QueDel(&rd_head,TRUE);
+  QueInit(&rd_head);
+  LBtr(&rd_lock,0);
+}
+
+U0 RiverDropsNext(CTask *mem_task)
+{
+  RiverDrop *tmpr,*tmpr1;
+  while (LBts(&rd_lock,0))
+    Yield;
+  tmpr=rd_head.next;
+  while (tmpr!=&rd_head) {
+    tmpr1=tmpr->next;
+    if (++tmpr->y>=MAP_HEIGHT-MAP_BORDER) {
+      QueRem(tmpr);
+      Free(tmpr);
+    } else {
+      do {
+	if (RandU16&1 && GrPeek(map_dc,r_x[tmpr->y]+tmpr->dx,
+	      tmpr->y+tmpr->dy)==BLUE)
+	  break;
+	tmpr->dx=ClampI64(tmpr->dx+RandU16%3-1,-r_width[tmpr->y]/2,
+	      r_width[tmpr->y]/2);
+	tmpr->dy=ClampI64(tmpr->dy+RandU16%3-1,-r_width[tmpr->y]/2,
+	      r_width[tmpr->y]/2);
+      } while (GrPeek(map_dc,r_x[tmpr->y]+tmpr->dx,
+	    tmpr->y+tmpr->dy)!=BLUE &&
+	    GrPeek(map_dc,r_x[tmpr->y],tmpr->y)==BLUE);//Might be reiniting
+    }
+    tmpr=tmpr1;
+  }
+  tmpr=MAlloc(sizeof(RiverDrop),mem_task);
+  tmpr->y=MAP_BORDER;
+  tmpr->dx=0;
+  tmpr->dy=0;
+  QueIns(tmpr,rd_head.last);
+  LBtr(&rd_lock,0);
+}
+
+U0 RiverDropsDraw(CDC *dc,I64 cx,I64 cy)
+{
+  I64 i;
+  F64 t=tS;
+  RiverDrop *tmpr;
+  while (LBts(&rd_lock,0))
+    Yield;
+  tmpr=rd_head.next;
+  dc->color=LTBLUE;
+  while (tmpr!=&rd_head) {
+    GrPlot(dc,r_x[tmpr->y]+tmpr->dx-cx,tmpr->y+tmpr->dy-cy);
+    tmpr=tmpr->next;
+  }
+  LBtr(&rd_lock,0);
+
+  dc->color=WHITE;
+  for (i=0;i<WATERFALL_DROPS;i++)
+    GrPlot(dc,wfd_x[i]-cx,waterfall_y+0.5*WATERFALL_ACCELERATION*
+	  Sqr(waterfall_tf*Saw(t-wfd_t0[i],waterfall_tf))-cy);
+}
+
+//************************************
+U0 DrawIt(CTask *task,CDC *dc)
+{
+  static I64 last_pos_x=0;
+  static Bool left=TRUE;
+  F64 t;
+  I64 i,frame=4*tS,
+	cx=(MAP_WIDTH -task->pix_width)/2,
+	cy=(MAP_HEIGHT-task->pix_height)/2;
+  if (task->scroll_x+cx<0)
+    task->scroll_x=-cx;
+  if (task->scroll_x+cx>MAP_WIDTH-task->pix_width)
+    task->scroll_x=MAP_WIDTH-task->pix_width-cx;
+  if (task->scroll_y+cy<0)
+    task->scroll_y=-cy;
+  if (task->scroll_y+cy>MAP_HEIGHT-task->pix_height)
+    task->scroll_y=MAP_HEIGHT-task->pix_height-cy;
+
+  map_dc->flags|=DCF_NO_TRANSPARENTS;
+  GrBlot(dc,-cx,-cy,map_dc);
+
+  RiverDropsDraw(dc,cx,cy);
+
+  for (i=0;i<ANIMALS_NUM;i++)
+    if (!a[i].dead) {
+      if (a[i].dx<0) {
+	dc->flags|=DCF_JUST_MIRROR|DCF_SYMMETRY;
+	DCSymmetrySet(dc,a[i].x.i32[1]-cx,0,a[i].x.i32[1]-cx,1);
+      }
+      Sprite3(dc,a[i].x.i32[1]-cx,a[i].y.i32[1]-cy,0,
+	    a[i].imgs[(frame+a[i].frame0)&3]);
+      dc->flags&=~(DCF_JUST_MIRROR|DCF_SYMMETRY);
+    }
+
+  if (ms.pos.x-last_pos_x>0)
+    left=FALSE;
+  else if (ms.pos.x-last_pos_x<0)
+    left=TRUE;
+  if (left) {
+    dc->flags|=DCF_JUST_MIRROR|DCF_SYMMETRY;
+    DCSymmetrySet(dc,ms.pos.x-task->pix_left-task->scroll_x,0,
+	  ms.pos.x-task->pix_left-task->scroll_x,1);
+  }
+  Sprite3(dc,ms.pos.x-task->pix_left-task->scroll_x,
+	     ms.pos.y-task->pix_top -task->scroll_y,0,horse_imgs[frame&3]);
+  dc->flags&=~(DCF_JUST_MIRROR|DCF_SYMMETRY);
+  last_pos_x=ms.pos.x;
+
+  if (tf) {
+    dc->color=RED;
+    t=tf-t0;
+    if (Blink)
+      GrPrint(dc,(task->pix_width-FONT_WIDTH*14)>>1-task->scroll_x,
+	    (task->pix_height-FONT_HEIGHT)>>1-task->scroll_y,
+	    "Game Completed");
+  } else {
+    dc->color=BLACK;
+    t=tS-t0;
+  }
+  GrPrint(dc,-task->scroll_x,-task->scroll_y,
+	"Outside:%03d Time:%7.2fs Best:%7.2fs",
+	outside_cnt,t,best_score);
+}
+
+U0 BuddySel(I64 i)
+{
+  I64 b,best_b=i,score,best_score=I64_MAX;
+  for (b=0;b<ANIMALS_NUM;b++) {
+    if (b!=i && !a[b].dead) {
+      score=RandU32%(512*512)+
+	    SqrI64(a[b].x.i32[1]-a[i].x.i32[1])+
+	    SqrI64(a[b].y.i32[1]-a[i].y.i32[1]);
+      if (score<best_score) {
+	best_score=score;
+	best_b=b;
+      }
+    }
+  }
+  a[i].buddy=best_b;
+}
+
+
+U0 RedrawGate()
+{
+  F64 tt=tS-gate_t;
+  I64 x1=FENCE_WIDTH-63,y1=FENCE_HEIGHT-1,dx,dy;
+
+  if (tt<0.5)
+    gate_é=Clamp(gate_é+0.02,0,ã/2);
+  else if (tt>5.0)
+    gate_é=Clamp(gate_é-0.02,0,ã/2);
+
+  dx=GATE_WIDTH*Cos(gate_é); dy=-0.8*GATE_WIDTH*Sin(gate_é);
+
+  map_dc->color=LTGREEN;
+  GrRect(map_dc,x1,y1-0.8*GATE_WIDTH-GATE_HEIGHT,
+	46,0.8*GATE_WIDTH+GATE_HEIGHT+3);
+
+  map_dc->color=BLACK;
+
+  GrLine(map_dc,x1,y1,x1+dx,y1+dy);
+  GrLine(map_dc,x1,y1,x1,y1-GATE_HEIGHT);
+  GrLine(map_dc,x1+dx,y1+dy,x1+dx,y1+dy-GATE_HEIGHT);
+  GrLine(map_dc,x1,y1-GATE_HEIGHT,x1+dx,y1+dy-GATE_HEIGHT);
+  GrLine(map_dc,x1,y1,x1+dx,y1+dy-GATE_HEIGHT);
+  GrLine(map_dc,x1,y1-GATE_HEIGHT,x1+dx,y1+dy);
+
+  GrLine(map_dc,x1+45,y1,x1+45-dx,y1+dy);
+  GrLine(map_dc,x1+45,y1,x1+45,y1-GATE_HEIGHT);
+  GrLine(map_dc,x1+45-dx,y1+dy,x1+45-dx,y1+dy-GATE_HEIGHT);
+  GrLine(map_dc,x1+45,y1-GATE_HEIGHT,x1+45-dx,y1+dy-GATE_HEIGHT);
+  GrLine(map_dc,x1+45,y1,x1+45-dx,y1+dy-GATE_HEIGHT);
+  GrLine(map_dc,x1+45,y1-GATE_HEIGHT,x1+45-dx,y1+dy);
+}
+
+Bool CheckMap(I64 x,I64 y)
+{
+  I64 i,j,c;
+  if (SqrI64(x-(waterfall_x+waterfall_width/2))>>1+
+	SqrI64(y-(waterfall_y+WATERFALL_HEIGHT/2))<2500)
+    return FALSE;
+  for (j=-4;j<=2;j++)
+    for (i=-4;i<=4;i++) {
+      c=GrPeek(map_dc,x+i,y+j);
+      if (c==LTGRAY || c==BLACK)
+	return FALSE;
+    }
+  return TRUE;
+}
+
+U0 AnimateTask(CTask *parent)
+{
+  I64 i,cx,cy,cursor_x,cursor_y,dd,ddx,ddy,cnt,max_speed=I64_MAX,updates=0,
+	my_outside_cnt;
+  F64 f,d,dx,dy,s,stress;
+  Animal *tmpa,*tmpa1;
+  while (TRUE) {
+    max_speed=ClampU64(max_speed,U32_MAX/3,200*U32_MAX);
+    cx=(MAP_WIDTH -parent->pix_width)/2,
+	  cy=(MAP_HEIGHT-parent->pix_height)/2;
+    cursor_x=ms.pos.x+cx-parent->pix_left-parent->scroll_x;
+    cursor_y=ms.pos.y+cy-parent->pix_top -parent->scroll_y;
+    cnt=0;stress=0;
+    my_outside_cnt=0;
+    if (cursor_x<FENCE_WIDTH && cursor_y<FENCE_HEIGHT)
+      gate_t=tS;
+    RedrawGate;
+    for (i=0;i<ANIMALS_NUM;i++) {
+      tmpa=&a[i];
+      if (!tmpa->dead) {
+//Move away from horse
+	ddx=tmpa->x.i32[1]-cursor_x;
+	ddy=tmpa->y.i32[1]-cursor_y;
+	if (dd=SqrI64(ddx)+SqrI64(ddy)) {
+	  d=Sqrt(dd);
+	  dx=ddx/d;
+	  dy=ddy/d;
+	  f=5.0e2*U32_MAX/dd;
+	  tmpa->dx+=f*dx;
+	  tmpa->dy+=f*dy;
+	}
+
+	//Resel buddy about every ANIMALS_NUM*10ms=5.12 seconds
+	tmpa1=&a[tmpa->buddy];
+	if (tmpa1->dead || i==updates%ANIMALS_NUM) {
+	  BuddySel(i);
+	  tmpa1=&a[tmpa->buddy];
+	}
+
+	//Move toward buddy
+	ddx=tmpa->x.i32[1]-tmpa1->x.i32[1];
+	ddy=tmpa->y.i32[1]-tmpa1->y.i32[1];
+	if (dd=SqrI64(ddx)+SqrI64(ddy)) {
+	  d=Sqrt(dd);
+	  s=d`1.25-80;
+	  stress+=Abs(s);
+	  dx=ddx/d;
+	  dy=ddy/d;
+	  f=-0.001*s*U32_MAX;
+	  tmpa->dx+=f*dx;
+	  tmpa->dy+=f*dy;
+	}
+
+	//Make velocity similar to buddy
+	tmpa->dx+=0.1*(tmpa1->dx-tmpa->dx);
+	tmpa->dy+=0.1*(tmpa1->dy-tmpa->dy);
+
+	//Add random movement, limit speed and dampen speed
+	tmpa->dx=0.995*ClampI64(tmpa->dx+RandI32/32,-max_speed,max_speed);
+	tmpa->dy=0.995*ClampI64(tmpa->dy+RandI32/32,-max_speed,max_speed);
+
+	//Slow in river
+	if (GrPeek(map_dc,tmpa->x.i32[1],tmpa->y.i32[1])!=LTGREEN) {
+	  tmpa->dx/=2;
+	  tmpa->dy/=2;
+	}
+
+	if (CheckMap((tmpa->x+tmpa->dx)>>32,(tmpa->y+tmpa->dy)>>32)) {
+	  tmpa->x+=tmpa->dx;
+	  tmpa->y+=tmpa->dy;
+	}
+
+	//Keep on map
+	if (!(MAP_BORDER+ANIMAL_WIDTH/2
+	      <=tmpa->x.i32[1]<MAP_WIDTH-MAP_BORDER-ANIMAL_WIDTH/2)) {
+	  tmpa->x -=tmpa->dx;
+	  tmpa->dx=-tmpa->dx;
+	}
+	if (!(MAP_BORDER+ANIMAL_HEIGHT
+	      <=tmpa->y.i32[1]<MAP_HEIGHT-MAP_BORDER)) {
+	  tmpa->y -=tmpa->dy;
+	  tmpa->dy=-tmpa->dy;
+	}
+	cnt++;
+	if (tmpa->x>>32>=FENCE_WIDTH || tmpa->y>>32>=FENCE_HEIGHT)
+	  my_outside_cnt++;
+      }
+    }
+    outside_cnt=my_outside_cnt;
+
+    if (!(updates&15))
+      RiverDropsNext(parent);
+
+    if (!tf && !outside_cnt) {
+      tf=tS;
+      music.mute=TRUE;
+      Snd(86);Sleep(200);Snd;Sleep(100);
+      if (tf-t0<best_score) {
+	best_score=tf-t0;
+	Snd(86);Sleep(200);Snd;Sleep(100);
+      }
+      music.mute=FALSE;
+    }
+
+    updates++;
+
+    if (cnt)
+      stress/=cnt;
+    else
+      stress=0;
+    if (stress>100.0) {
+      Yield;
+      max_speed=stress/5.0*U32_MAX; //Converge faster at start-up
+    } else {
+      Sleep(10);
+      max_speed=0; //Will be set to normal max speed
+    }
+  }
+}
+
+U0 SongTask(I64)
+{//Randomly generated (by God :-)
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  while (TRUE) {
+    Play("5qC4etG5DC4B5DCECFqFC4sA5D4A5D4qB");
+    Play("5C4etG5DC4B5DCECFqFC4sA5D4A5D4qB");
+    Play("4sGAGA5qG4etG5GD4eBBqB5F4eBA5qE");
+    Play("4sGAGA5qG4etG5GD4eBBqB5F4eBA5qE");
+  }
+}
+
+U0 ReInit()
+{
+  I64 i;
+
+  RiverDropsDel;
+  map_dc->color=LTGREEN;
+  GrRect(map_dc,2,2,MAP_WIDTH-4,MAP_HEIGHT-4);
+
+  RiverMake;
+
+  //Plot fence
+  for (i=FENCE_WIDTH;i>0;i-=16)
+    Sprite3(map_dc,i,FENCE_HEIGHT,0,$IB,"<9>",BI=9$);
+  map_dc->pen_width=1;
+  map_dc->color=BROWN;
+  for (i=0;i<FENCE_HEIGHT-16;i+=16)
+    GrLine(map_dc,FENCE_WIDTH-1,i,FENCE_WIDTH-1,i+7);
+  map_dc->color=LTGRAY;
+  GrLine(map_dc,FENCE_WIDTH,0,FENCE_WIDTH,FENCE_HEIGHT-6);
+  RedrawGate;
+
+  map_dc->pen_width=MAP_BORDER;
+  map_dc->color=RED;
+  GrBorder(map_dc,MAP_BORDER/2,MAP_BORDER/2,
+	MAP_WIDTH-(MAP_BORDER+1)/2,MAP_HEIGHT-(MAP_BORDER+1)/2);
+
+  for (i=MAP_BORDER;i<=MAP_HEIGHT-MAP_BORDER;i++)
+    RiverDropsNext(Fs);
+
+  MemSet(a,0,ANIMALS_NUM*sizeof(Animal));
+  for (i=0;i<ANIMALS_NUM;i++) {
+    a[i].num=i;
+    do {
+      a[i].x=(64+RandU32%(MAP_WIDTH-128))<<32;
+      a[i].y=(64+RandU32%(MAP_WIDTH-128))<<32;
+    } while (!CheckMap(a[i].x>>32,a[i].y>>32));
+    if (i&1)
+      a[i].imgs=cow_imgs;
+    else
+      a[i].imgs=bull_imgs;
+    a[i].frame0=RandU16&3;
+    BuddySel(i);
+  }
+  outside_cnt=ANIMALS_NUM;
+  gate_t=0;
+  gate_é=0;
+  t0=tS;
+  tf=0;
+}
+
+U0 Init()
+{
+  RiverNew;
+  rd_lock=0;
+  QueInit(&rd_head);
+  map_dc=DCNew(MAP_WIDTH,MAP_HEIGHT);
+  a=MAlloc(ANIMALS_NUM*sizeof(Animal));
+  ReInit;
+}
+
+U0 CleanUp()
+{
+  DCDel(map_dc);
+  Free(a);
+  RiverDropsDel;
+  RiverDel;
+}
+
+U0 RawHide()
+{
+  I64 msg_code,arg1,arg2;
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  MenuPush(
+	"File {"
+	"  Abort(,CH_SHIFT_ESC);"
+	"  Exit(,CH_ESC);"
+	"}"
+	"Play {"
+	"  Restart(,'\n');"
+	"}"
+	);
+  Fs->song_task=Spawn(&SongTask,NULL,"Song",,Fs);
+
+  PopUpOk(
+	"Coral the cattle.  The coral is in the\n"
+	"upper-left corner if you scroll.\n\n"
+	"Keep holding the $$GREEN$$<CTRL>$$FG$$ key and\n"
+	"scroll with $$GREEN$${CTRL-Left Grab}$$FG$$.");
+
+  Fs->win_inhibit=WIG_TASK_DFT-WIF_SELF_FOCUS
+	-WIF_SELF_BORDER-WIF_SELF_GRAB_SCROLL-WIF_FOCUS_TASK_MENU;
+  AutoComplete;
+  WinBorder;
+  WinMax;
+  DocCursor;
+  DocClear;
+  Init;
+  Fs->animate_task=Spawn(&AnimateTask,Fs,"Animate",,Fs);
+  Fs->draw_it=&DrawIt;
+  try {
+    while (TRUE) {
+      msg_code=GetMsg(&arg1,&arg2,
+	    1<<MSG_KEY_DOWN+1<<MSG_MS_L_DOWN+1<<MSG_MS_R_DOWN);
+      switch (msg_code) {
+	case MSG_MS_L_DOWN:  //Doesn't do anything, yet.
+	  break;
+	case MSG_MS_R_DOWN:  //Doesn't do anything, yet.
+	  break;
+	case MSG_KEY_DOWN:
+	  switch (arg1) {
+	    case '\n':
+	      ReInit;
+	      break;
+	    case CH_SHIFT_ESC:
+	    case CH_ESC:
+	      goto rh_done;
+	  }
+	  break;
+      }
+    }
+rh_done:
+    GetMsg(,,1<<MSG_KEY_UP);
+  } catch
+    PutExcept;
+  MenuPop;
+  SettingsPop;
+  CleanUp;
+  RegWrite("TempleOS/RawHide","F64 best_score=%5.4f;\n",best_score);
+}
+
+RawHide;
+öÿÿÿïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
’
öÿÿÿóÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÚ
öÿÿÿïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	d

+ùÿÿÿ


+úÿÿÿðÿÿÿúÿÿÿ
+ÿÿÿÿðÿÿÿÿÿÿÿ
+ðÿÿÿÿÿÿÿÿÿÿÿúÿÿÿ
+ÿÿÿÿÿÿÿÿðÿÿÿúÿÿÿz
öÿÿÿóÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿz
öÿÿÿóÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÚ
öÿÿÿïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÚ
öÿÿÿïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿÿÿêÿÿÿ" ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ò ÊÿÿÿõÿÿÿxDÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+
+

+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+
+
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+
+
+
+
+
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+
+
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+
+
+
+
+
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+
+
+
+
+ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
+ÿÿÿÿÿÿÿÿÿÿÿÿÿ
+
+
+
+
+
+ÿÿÿÿÿÿÿÿÿÿÿ
+
+
+
+ÿÿÿÿÿÿÿÿÿÿ
+
+
+
+
+ÿÿÿÿÿÿÿÿÿ
+
+
+
+ÿÿÿÿÿÿÿÿ
+
+
+
+
+
+
+
+
+
+ÿÿÿÿÿÿÿ
+
+
+
+
+
+
+
+
+
+
+
+
+ÿÿÿÿÿÿ
+
+
+
+
+ÿÿÿÿÿ
+
+
+
+
+
+

+
+ÿÿÿ
+
+
+
+
+
+
+
+
+ÿÿÿ
+
+
+
+
+
+
+
+
+ÿÿ
+
+
+
+
+ÿ
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+	
+
+
+
+
+
+
+
+
+
+
+
+
+

+
+	
+
+
+
+
+
+
+	
+
+

+
+
+
+
+
+

	



+	



+	

	
ÿ

ÿÿÿÿ	
ÿÿÿÿÿÿ
	ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ	ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ


ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ

TempleOSCD/Demo/Games/Stadium/StadiumGen.HC

@@ -0,0 +1,33 @@
+//Generate "StadiumBG.GR.Z" from "StadiumBG.DD.Z"
+
+U0 StadiumGen()
+{
+  U0 (*fp_old_update)(CDC *dc);
+  CDC *dc,*dc2;
+
+  Cd(__DIR__);
+  AutoComplete;
+  WinBorder;
+  WinMax;
+  DocCursor(OFF);
+  DocClear;
+  Type("StadiumBG.DD");
+  "$$CM,0,%d$$",TEXT_ROWS-3;
+  fp_old_update=gr.fp_final_scrn_update; //hide mouse cursor
+  gr.fp_final_scrn_update=NULL;
+
+  Refresh(2,TRUE);
+  dc2=DCScrnCapture;
+  dc=DCExt(dc2,0,FONT_HEIGHT,GR_WIDTH,GR_HEIGHT);
+  DCDel(dc2);
+
+  GRWrite("StadiumBG",dc,DCSF_COMPRESSED|DCSF_PALETTE_GET);
+  DCDel(dc);
+
+  DocCursor(ON);
+  gr.fp_final_scrn_update=fp_old_update;
+  DocClear;
+}
+
+StadiumGen;
+

TempleOSCD/Demo/Games/TicTacToe.HC

@@ -0,0 +1,125 @@
+I8  board  [9];
+I64 board_x[9]={150,250,350,150,250,350,150,250,350};
+I64 board_y[9]={150,150,150,250,250,250,350,350,350};
+
+U0 DrawX(CDC *dc,I64 x,I64 y)
+{
+  dc->pen_width=5;
+  GrLine3(dc,x-20,y-20,0,x+20,y+20,0);
+  GrLine3(dc,x+20,y-20,0,x-20,y+20,0);
+}
+
+U0 DrawO(CDC *dc,I64 x,I64 y)
+{
+  dc->pen_width=5;
+  GrCircle3(dc,x,y,0,25);
+}
+
+U0 DrawBoard(I64 player)
+{
+  I64 i;
+  CDC *dc=DCAlias;
+  DCFill;
+  dc->pen_width=5;
+  GrLine3(dc,200,100,0,200,400,0);
+  GrLine3(dc,300,100,0,300,400,0);
+  GrLine3(dc,100,200,0,400,200,0);
+  GrLine3(dc,100,300,0,400,300,0);
+  for (i=0;i<9;i++)
+    switch (board[i]) {
+      case 1:
+	DrawX(dc,board_x[i],board_y[i]);
+	break;
+      case 2:
+	DrawO(dc,board_x[i],board_y[i]);
+	break;
+
+    }
+//ms.pos.x,ms.pos.y are mouse x,y.
+    //ms.lb	is mouse left bttn
+  if (player==1)
+    DrawX(dc,ms.pos.x-Fs->pix_left,ms.pos.y-Fs->pix_top);
+  else
+    DrawO(dc,ms.pos.x-Fs->pix_left,ms.pos.y-Fs->pix_top);
+  DCDel(dc);
+}
+
+U0 TakeTurn(I64 player)
+{
+  I64 i,x=0,y=0;
+  while (!(100<=x<400) || !(100<=y<400) || board[i]) {
+    if (player==1)
+      Beep;
+    else
+      Beep(74);
+    while (!ms.lb) {
+      DrawBoard(player);
+      Refresh;
+    }
+    while (ms.lb) {
+      DrawBoard(player);
+      Refresh;
+    }
+    x=ms.pos.x-Fs->pix_left;
+    y=ms.pos.y-Fs->pix_top;
+    i=(x-100)/100+(y-100)/100*3;
+  }
+  board[i]=player;
+}
+
+Bool CheckWinner(I64 player)
+{
+  if (	player==board[0]==board[1]==board[2] ||
+	player==board[3]==board[4]==board[5] ||
+	player==board[6]==board[7]==board[8] ||
+
+	player==board[0]==board[3]==board[6] ||
+	player==board[1]==board[4]==board[7] ||
+	player==board[2]==board[5]==board[8] ||
+
+	player==board[0]==board[4]==board[8] ||
+	player==board[2]==board[4]==board[6]   )
+    return TRUE;
+  else
+    return FALSE;
+}
+
+U0 DoGame()
+{
+  I64 moves=0;
+  MemSet(board,0,sizeof(board));
+  while (TRUE) {
+    TakeTurn(1);
+    if (CheckWinner(1)) {
+      Beep;
+      Beep;
+      Beep;
+      break;
+    }
+    if (++moves==9) break;
+
+    TakeTurn(2);
+    if (CheckWinner(2)) {
+      Beep(74);
+      Beep(74);
+      Beep(74);
+      break;
+    }
+    if (++moves==9) break;
+  }
+}
+
+U0 TicTacToe()
+{
+  WinMax;   //Maximize window
+  DocClear; //Clear window text.
+  "$$GREEN$$CTRL-ALT-c$$FG$$ to exit.\n";
+  try
+    while (TRUE)
+      DoGame;
+  catch
+    PutExcept;
+  DCFill;
+}
+
+TicTacToe;

TempleOSCD/Demo/Games/TreeCheckers.HC

@@ -0,0 +1,357 @@
+U0 InitDefines()
+{
+  I64 w=GR_WIDTH,h=GR_HEIGHT-FONT_HEIGHT,cols,rows,
+	size=PopUpRangeI64(1,9,,"Size\n"),rad=16-size;
+  if (size<0) throw;
+  DefinePrint("UNITS_NUM","%d",4096/SqrI64(rad)&~1);
+  DefinePrint("CIRCLE_RAD","%d",rad);
+  DefinePrint("MOVE_CIRCLES","%d",40/rad);
+
+  cols=(w-8-rad)/(2*rad)&~1-1;
+  DefinePrint("BORDER_X","%d",(w+rad-cols*2*rad)/2);
+
+  rows=(h-8)/(2*rad)&~1;
+  DefinePrint("BORDER_Y","%d",(h-rows*2*rad)/2);
+
+} InitDefines;
+
+class Unit
+{
+  I64 num,x,y,player,link,color;
+  Bool alive,king;
+} u[UNITS_NUM];
+
+CDC *map_dc;
+I64 cur_player,num_alive[2],start_x,start_y,end_x,end_y;
+Bool show_start;
+
+U0 S2Circle(I64 *_x,I64 *_y)
+{
+  I64 i,j;
+  j=(*_y-BORDER_Y)/(CIRCLE_RAD*2);
+  if (j&1)
+    i=(*_x-CIRCLE_RAD-BORDER_X)/(CIRCLE_RAD*2);
+  else
+    i=(*_x-BORDER_X)/(CIRCLE_RAD*2);
+  *_y=j;
+  *_x=i;
+}
+
+U0 Circle2S(I64 *_x,I64 *_y)
+{
+  I64 j=*_y,i=*_x;
+  *_y=j*CIRCLE_RAD*2+CIRCLE_RAD+BORDER_Y;
+  *_x=i*CIRCLE_RAD*2+CIRCLE_RAD+BORDER_X;
+  if (j&1) *_x+=CIRCLE_RAD;
+}
+
+U0 S2W(I64 *_x,I64 *_y)
+{
+  S2Circle(_x,_y);
+  Circle2S(_x,_y);
+}
+
+U0 DrawIt(CTask *task,CDC *dc)
+{
+  I64 i;
+  map_dc->flags|=DCF_NO_TRANSPARENTS;
+  GrBlot(dc,0,0,map_dc);
+
+  if (cur_player==0) {
+    dc->color=LTCYAN;
+    GrFloodFill(dc,0,0);
+    dc->color=CYAN;
+  } else {
+    dc->color=LTPURPLE;
+    GrFloodFill(dc,0,0);
+    dc->color=PURPLE;
+  }
+  GrPrint(dc,2,2,"Player %d",cur_player+1);
+
+  for (i=0;i<UNITS_NUM;i++)
+    if (u[i].alive) {
+      dc->color=u[i].color;
+      GrFloodFill(dc,u[i].x,u[i].y);
+    }
+  for (i=0;i<UNITS_NUM;i++)
+    if (u[i].alive && !u[i].king) {
+      dc->color=BLACK;
+      GrLine(dc,u[i].x,u[i].y,u[u[i].link].x,u[u[i].link].y);
+      if (Blink) {
+	dc->color=BLUE;
+	dc->pen_width=6;
+	GrPlot3(dc,(u[i].x+u[u[i].link].x)>>1,(u[i].y+u[u[i].link].y)>>1,0);
+      }
+    }
+  if (show_start) {
+    dc->color=LTRED;
+    GrLine(dc,start_x-4,start_y-4,start_x+4,start_y+4);
+    GrLine(dc,start_x-4,start_y+4,start_x+4,start_y-4);
+    GrLine(dc,start_x,start_y,end_x,end_y);
+  }
+  if ((num_alive[0]==1 || num_alive[1]==1) && Blink(4)) {
+    dc->color=BLACK;
+    GrPrint(dc,(task->pix_width-FONT_WIDTH*9)>>1,
+	  (task->pix_height-FONT_HEIGHT)>>1,"Game Over");
+  }
+}
+
+Unit *UnitFind(I64 x,I64 y,I64 player)
+{
+  I64 i,dd,best_dd=I64_MAX;
+  Unit *res=NULL;
+  for (i=0;i<UNITS_NUM;i++) {
+    if (u[i].player==player && u[i].alive) {
+      dd=SqrI64(u[i].x-x)+SqrI64(u[i].y-y);
+      if (dd<best_dd) {
+	best_dd=dd;
+	res=&u[i];
+      }
+    }
+  }
+  return res;
+}
+
+U0 KillsChk(I64 x1,I64 y1,I64 player)
+{
+  I64 i,j,x2,y2,dd;
+  Bool found;
+  for (i=0;i<UNITS_NUM;i++) {
+    if (u[i].player!=player && u[i].alive && !u[i].king) {
+      x2=(u[i].x+u[u[i].link].x)>>1;
+      y2=(u[i].y+u[u[i].link].y)>>1;
+      dd=SqrI64(x2-x1)+SqrI64(y2-y1);
+      if (dd<=(CIRCLE_RAD+2)*(CIRCLE_RAD+2)) {
+	u[i].alive=FALSE;
+	Snd(62);Sleep(100);Snd;Sleep(25);
+	num_alive[u[i].player]--;
+	do {
+	  found=FALSE;
+	  for (j=0;j<UNITS_NUM;j++)
+	    if (u[j].alive && u[j].player!=player && !u[j].king &&
+		  !u[u[j].link].alive) {
+	      found=TRUE;
+	      u[j].alive=FALSE;
+	      Snd(62);Sleep(100);Snd;Sleep(25);
+	      num_alive[u[j].player]--;
+	    }
+	} while (found);
+      }
+    }
+  }
+}
+
+Bool UnitMove(Unit *tmpu,I64 x2,I64 y2)
+{
+  I64 i,r,c,r2,c2,x=start_x,y=start_y;
+  S2W(&x2,&y2);
+  c2=x2; r2=y2;
+  S2Circle(&c2,&r2);
+  for (i=0;i<MOVE_CIRCLES+1;i++) {
+    c=x; r=y;
+    S2Circle(&c,&r);
+    if (c==c2 && r==r2) {
+      end_x=tmpu->x=x2;
+      end_y=tmpu->y=y2;
+      return TRUE;
+    }
+    if (r2!=r) {
+      if (r&1) {
+	if (c<c2) c++;
+      } else {
+	if (c>c2) c--;
+      }
+    }
+    if (r2>r) {
+      x=c; y=++r;
+      Circle2S(&x,&y);
+    } else if (r2<r) {
+      x=c; y=--r;
+      Circle2S(&x,&y);
+    } else if (c2>c) {
+      x=++c; y=r;
+      Circle2S(&x,&y);
+    } else if (c2<c) {
+      x=--c; y=r;
+      Circle2S(&x,&y);
+    }
+  }
+  return FALSE;
+}
+
+CDC *DrawHexMap(I64 *_w,I64 *_h)
+{
+  CDC *dc=DCNew(*_w,*_h);
+  I64 i,j,x,y;
+  *_w=(dc->width-BORDER_X*2-CIRCLE_RAD)/(CIRCLE_RAD*2);
+  *_h=(dc->height-BORDER_Y*2)/(CIRCLE_RAD*2);
+  DCFill(dc,WHITE);
+  dc->color=LTGRAY;
+  for (j=0;j<*_h;j++) {
+    for (i=0;i<*_w;i++) {
+      x=i*CIRCLE_RAD*2+BORDER_X+CIRCLE_RAD;
+      y=j*CIRCLE_RAD*2+BORDER_Y+CIRCLE_RAD;
+      if (j&1) x+=CIRCLE_RAD;
+      S2W(&x,&y);
+      GrCircle(dc,x,y,CIRCLE_RAD);
+    }
+  }
+  *_w*=CIRCLE_RAD*2;
+  *_h*=CIRCLE_RAD*2;
+  return dc;
+}
+
+U0 Init()
+{
+  I64 i,j,j1,j2,dd,best_dd,best,w=Fs->pix_width,h=Fs->pix_height;
+
+  map_dc=DrawHexMap(&w,&h);
+  cur_player=0;
+
+  for (i=0;i<UNITS_NUM/2;i++) {
+    u[i].num=i;
+    u[i+UNITS_NUM/2].num=i+UNITS_NUM/2;
+
+ti_restart:
+    u[i].y=FloorI64(RandU32%h,CIRCLE_RAD*2)+CIRCLE_RAD;
+    u[i+UNITS_NUM/2].y=h-1-u[i].y;
+    j1=u[i].y/(CIRCLE_RAD*2);
+    j2=u[i+UNITS_NUM/2].y/(CIRCLE_RAD*2);
+    u[i].y+=BORDER_Y;
+    u[i+UNITS_NUM/2].y+=BORDER_Y;
+
+    if (!i) {
+      u[i].x=CIRCLE_RAD;
+      if (j1&1)
+	goto ti_restart;
+    } else
+      u[i].x=FloorI64(RandU32%((w-CIRCLE_RAD*2*2)/2),CIRCLE_RAD*2)+CIRCLE_RAD;
+    u[i+UNITS_NUM/2].x=w-1-u[i].x;
+
+    if (j1&1)
+      u[i].x+=CIRCLE_RAD;
+    if (j2&1)
+      u[i+UNITS_NUM/2].x+=CIRCLE_RAD;
+    u[i].x+=BORDER_X;
+    u[i+UNITS_NUM/2].x+=BORDER_X;
+
+    S2W(&u[i].x,&u[i].y);
+    S2W(&u[i+UNITS_NUM/2].x,&u[i+UNITS_NUM/2].y);
+
+    u[i].player=0;
+    u[i+UNITS_NUM/2].player=1;
+
+    u[i].alive=TRUE;
+    u[i+UNITS_NUM/2].alive=TRUE;
+
+    if (!i) {
+      u[i].color=LTCYAN;
+      u[i+UNITS_NUM/2].color=LTPURPLE;
+      u[i].king=TRUE;
+      u[i+UNITS_NUM/2].king=TRUE;
+    } else {
+      u[i].color=CYAN;
+      u[i+UNITS_NUM/2].color=PURPLE;
+      u[i].king=FALSE;
+      u[i+UNITS_NUM/2].king=FALSE;
+    }
+  }
+  for (i=0;i<UNITS_NUM/2;i++) {
+    if (!u[i].king) {
+      best_dd=I64_MAX;
+      for (j=0;j<UNITS_NUM/2;j++) {
+	if (i!=j) {
+	  dd=SqrI64(u[i].x-u[j].x)+SqrI64(u[i].y-u[j].y);
+	  if (u[j].x<=u[i].x && dd<best_dd) {
+	    best_dd=dd;
+	    best=j;
+	  }
+	}
+      }
+      u[i].link=best;
+      u[i+UNITS_NUM/2].link=best+UNITS_NUM/2;
+    }
+  }
+  num_alive[0]=UNITS_NUM/2;
+  num_alive[1]=UNITS_NUM/2;
+}
+
+U0 CleanUp()
+{
+  DCDel(map_dc);
+}
+
+U0 TreeCheckers()
+{
+  I64 msg_code,arg1,arg2,ch,sc;
+  Unit *tmpu;
+
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  MenuPush(
+	"File {"
+	"  Abort(,CH_SHIFT_ESC);"
+	"  Exit(,CH_ESC);"
+	"}"
+	"Play {"
+	"  Restart(,'\n');"
+	"}"
+	);
+  AutoComplete;
+  WinBorder;
+  WinMax;
+  DocCursor;
+  DocClear;
+  PopUpOk("Step on the link mid points.\n");
+  Fs->win_inhibit=WIG_TASK_DFT-WIF_SELF_FOCUS
+	-WIF_SELF_BORDER-WIF_FOCUS_TASK_MENU;
+  try {
+cn_start:
+    Init;
+    tmpu=NULL;
+    show_start=FALSE;
+    Fs->draw_it=&DrawIt;
+    while (TRUE) {
+      msg_code=GetMsg(&arg1,&arg2,
+	    1<<MSG_KEY_DOWN+1<<MSG_MS_L_DOWN+1<<MSG_MS_L_UP+1<<MSG_MS_MOVE);
+      switch (msg_code) {
+	case MSG_KEY_DOWN:
+	  switch (arg1) {
+	    case '\n':
+	      CleanUp;
+	      goto cn_start;
+	    case CH_ESC:
+	    case CH_SHIFT_ESC:
+	      goto cn_done;
+	  }
+	  break;
+	case MSG_MS_L_DOWN:
+	  if (num_alive[0]>1 && num_alive[1]>1) {
+	    tmpu=UnitFind(arg1,arg2,cur_player);
+	    end_x=start_x=tmpu->x;
+	    end_y=start_y=tmpu->y;
+	    show_start=TRUE;
+	  }
+	  break;
+	case MSG_MS_MOVE:
+	  if (tmpu)
+	    UnitMove(tmpu,arg1,arg2);
+	  break;
+	case MSG_MS_L_UP:
+	  UnitMove(tmpu,arg1,arg2);
+	  KillsChk(tmpu->x,tmpu->y,cur_player);
+	  show_start=FALSE;
+	  tmpu=NULL;
+	  cur_player=1-cur_player;
+	  break;
+      }
+    }
+cn_done:
+    GetMsg(,,1<<MSG_KEY_UP);
+  } catch
+    PutExcept;
+  SettingsPop;
+  CleanUp;
+  MenuPop;
+}
+
+TreeCheckers;

TempleOSCD/Demo/Games/Varoom.HC

@@ -0,0 +1,796 @@
+
+
+
+
+
+    $SP,"<1>",BI=1$
+
+
+
+    $SP,"<2>",BI=2$
+
+
+
+
+
+
+
+    $SP,"<3>",BI=3$
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+    $SP,"<4>",BI=4$
+
+
+
+
+
+
+
+
+
+		 $SP,"<5>",BI=5$
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+		 $SP,"<6>",BI=6$
+
+
+
+
+
+
+
+
+
+
+
+
+RegDft("TempleOS/Varoom","F64 best_score=9999;\n");
+RegExe("TempleOS/Varoom");
+
+F64 distance,t0,tf;
+Bool game_over;
+
+#define BORDER		7500
+#define RADIUS		10000
+#define WIDTH		2000
+#define SHOULDER	200
+#define D_é		(2*ã/360)   //Curve track slice is one degree.
+#define D_S		(2*ã*RADIUS/360) //Straight track is degree at 10000.
+#define DIPS		5
+#define DIP_DEPTH	50
+class Track
+{
+  Track *next,*last;
+  I32 num;
+  CColorROPU16 c,pad;
+  I64 x,z;
+  F64 é,d;
+  CD3I32 left[4],center[4],right[4];
+} track_head,
+  *track_start[MP_PROCESSORS_NUM],*track_end[MP_PROCESSORS_NUM];
+
+CDC *track_map;
+#define MAP_BITS	9
+I64 t_minx,t_maxx,t_minz,t_maxz;
+
+#define BUSHES_NUM	512
+class Bush
+{
+  CD3I32 p;
+  Bool sym,pad[3];
+  U8 *img;
+} b[BUSHES_NUM];
+
+#define CARS_NUM	8
+class Car
+{
+  CD3I32 p;
+  F64 é,dé,speed;
+  U8 *img;
+  Track *t;
+} c[CARS_NUM];
+
+I64 DipY(I64 x,I64 z)
+{
+  F64 m,a;
+  R2P(&m,&a,x,z);
+  return DIP_DEPTH*m*Cos(DIPS*a)/RADIUS;
+}
+
+#define CAR_LENGTH	400
+
+F64 Dipé(I64 x,I64 z,F64 é)
+{
+  F64 y_front,y_back;
+  y_front=DipY(x-CAR_LENGTH/2*Cos(é),z-CAR_LENGTH/2*Sin(é));
+  y_back =DipY(x+CAR_LENGTH/2*Cos(é),z+CAR_LENGTH/2*Sin(é));
+  return ASin((y_front-y_back)/CAR_LENGTH);
+}
+
+Track *TrackFind(Track *_tmpt,I64 x,I64 z)
+{
+  Track *res=_tmpt,*tmpt;
+  I64 dd,best=SqrI64(res->x-x)+SqrI64(res->z-z);
+
+  tmpt=_tmpt;
+  while (TRUE) {
+    tmpt=tmpt->next;
+    if (tmpt==&track_head)
+      tmpt=tmpt->next;
+    dd=SqrI64(tmpt->x-x)+SqrI64(tmpt->z-z);
+    if (dd<best) {
+      best=dd;
+      res=tmpt;
+    } else
+      break;
+  }
+  tmpt=_tmpt;
+  while (TRUE) {
+    tmpt=tmpt->last;
+    if (tmpt==&track_head)
+      tmpt=tmpt->last;
+    dd=SqrI64(tmpt->x-x)+SqrI64(tmpt->z-z);
+    if (dd<best) {
+      best=dd;
+      res=tmpt;
+    } else
+      break;
+  }
+  return res;
+}
+
+U0 TrackSlice(F64 *_x,F64 *_z,F64 é,F64 d)
+{
+  F64 x=*_x,z=*_z,c=Cos(é),s=Sin(é),dx=d*s,dz=-d*c;
+  Track *tmpt,*last=track_head.last;
+  if (last==&track_head)
+    last=NULL;
+
+  tmpt=CAlloc(sizeof(Track));
+  if (last) {
+    MemCpy(&tmpt->center[0],&last->center[3],sizeof(CD3I32));
+    MemCpy(&tmpt->center[1],&last->center[2],sizeof(CD3I32));
+  }
+  tmpt->center[2].x=x+(WIDTH/2)*c+dx;
+  tmpt->center[2].z=z+(WIDTH/2)*s+dz;
+  tmpt->center[2].y=DipY(tmpt->center[2].x,tmpt->center[2].z);
+  tmpt->center[3].x=x-(WIDTH/2)*c+dx;
+  tmpt->center[3].z=z-(WIDTH/2)*s+dz;
+  tmpt->center[3].y=DipY(tmpt->center[3].x,tmpt->center[3].z);
+
+  if (last) {
+    MemCpy(&tmpt->left[0],&last->left[3],sizeof(CD3I32));
+    MemCpy(&tmpt->left[1],&last->left[2],sizeof(CD3I32));
+  }
+  tmpt->left[2].x=x-(WIDTH/2)*c+dx;
+  tmpt->left[2].z=z-(WIDTH/2)*s+dz;
+  tmpt->left[2].y=DipY(tmpt->left[2].x,tmpt->left[2].z);
+  tmpt->left[3].x=x-(WIDTH/2+SHOULDER)*c+dx;
+  tmpt->left[3].z=z-(WIDTH/2+SHOULDER)*s+dz;
+  tmpt->left[3].y=DipY(tmpt->left[3].x,tmpt->left[3].z);
+
+  if (last) {
+    MemCpy(&tmpt->right[0],&last->right[3],sizeof(CD3I32));
+    MemCpy(&tmpt->right[1],&last->right[2],sizeof(CD3I32));
+  }
+  tmpt->right[2].x=x+(WIDTH/2+SHOULDER)*c+dx;
+  tmpt->right[2].z=z+(WIDTH/2+SHOULDER)*s+dz;
+  tmpt->right[2].y=DipY(tmpt->right[2].x,tmpt->right[2].z);
+  tmpt->right[3].x=x+(WIDTH/2)*c+dx;
+  tmpt->right[3].z=z+(WIDTH/2)*s+dz;
+  tmpt->right[3].y=DipY(tmpt->right[3].x,tmpt->right[3].z);
+
+  tmpt->x=x;
+  tmpt->z=z;
+  tmpt->é=é;
+  tmpt->num=track_head.last->num+1;
+  tmpt->d  =track_head.last->d+d;
+
+  QueIns(tmpt,track_head.last);
+
+  if (tmpt->num&1)
+    tmpt->c=RED;
+  else
+    tmpt->c=WHITE;
+
+  if (x<t_minx) t_minx=x;
+  if (x>t_maxx) t_maxx=x;
+  if (z<t_minz) t_minz=z;
+  if (z>t_maxz) t_maxz=z;
+
+  x+=dx;
+  *_x=x;
+  z+=dz;
+  *_z=z;
+
+  if (x<t_minx) t_minx=x;
+  if (x>t_maxx) t_maxx=x;
+  if (z<t_minz) t_minz=z;
+  if (z>t_maxz) t_maxz=z;
+}
+
+U0 CoupleEnds()
+{
+  Track *first=track_head.next,*last=track_head.last;
+  MemCpy(&first->center[0],&last->center[3],sizeof(CD3I32));
+  MemCpy(&first->center[1],&last->center[2],sizeof(CD3I32));
+  MemCpy(&first->left[0]  ,&last->left[3]  ,sizeof(CD3I32));
+  MemCpy(&first->left[1]  ,&last->left[2]  ,sizeof(CD3I32));
+  MemCpy(&first->right[0] ,&last->right[3] ,sizeof(CD3I32));
+  MemCpy(&first->right[1] ,&last->right[2] ,sizeof(CD3I32));
+}
+
+U0 InitTrack()
+{
+  I64 i,j;
+  Track *tmpt;
+  F64 x,z,é,d;
+
+  MemSet(&track_head,0,sizeof(Track));
+  QueInit(&track_head);
+
+  t_minx=t_minz=I64_MAX;
+  t_maxx=t_maxz=I64_MIN;
+
+  x=0; z=0; é=0;
+  for (d=0;d<6*RADIUS;d+=D_S)
+    TrackSlice(&x,&z,é,D_S);
+  for (i=0;i<180;i++,é+=D_é)
+    TrackSlice(&x,&z,é,D_é*RADIUS);
+  for (d=0;d<RADIUS;d+=D_S)
+    TrackSlice(&x,&z,é,D_S);
+  for (i=0;i<90;i++,é-=D_é)
+    TrackSlice(&x,&z,é,D_é*RADIUS);
+  for (i=0;i<180;i++,é+=D_é)
+    TrackSlice(&x,&z,é,D_é*RADIUS);
+  for (i=0;i<90;i++,é-=D_é)
+    TrackSlice(&x,&z,é,D_é*RADIUS);
+  for (d=0;d<RADIUS;d+=D_S)
+    TrackSlice(&x,&z,é,D_S);
+  for (i=0;i<180;i++,é+=D_é)
+    TrackSlice(&x,&z,é,D_é*RADIUS);
+
+  CoupleEnds;
+
+  tmpt=track_head.next;
+  for (i=0;i<mp_cnt;i++) {
+    j=(i+1)*track_head.last->num/mp_cnt+1;
+    track_start[i]=tmpt;
+    while (tmpt!=&track_head && tmpt->num!=j)
+      tmpt=tmpt->next;
+    track_end[i]=tmpt;
+  }
+
+  t_minx-=BORDER; t_minz-=BORDER;
+  t_maxx+=BORDER; t_maxz+=BORDER;
+  track_map=DCNew((t_maxx-t_minx+1<<MAP_BITS-1)>>MAP_BITS,
+	(t_maxz-t_minz+1<<MAP_BITS-1)>>MAP_BITS);
+
+  track_map->color=LTGRAY;
+  GrRect(track_map,0,0,track_map->width,track_map->height);
+  tmpt=track_head.next;
+  track_map->color=YELLOW;
+  track_map->pen_width=3;
+  while (tmpt!=&track_head) {
+    GrPlot3(track_map,track_map->width-(tmpt->x-t_minx)>>MAP_BITS,
+	  (tmpt->z-t_minz)>>MAP_BITS,0);
+    tmpt=tmpt->next;
+  }
+}
+
+#define HORIZON_DIP	200
+
+Bool PrepPoly(CD3I32 *p,I64 *r,I64 cx,I64 h,CD3I32 *poly)
+{
+  I64 x,y,z,i;
+  F64 s;
+  for (i=0;i<4;i++) {
+    x=p[i].x-c[0].p.x;
+    y=p[i].y-c[0].p.y;
+    z=p[i].z-c[0].p.z;
+    Mat4x4MulXYZ(r,&x,&y,&z);
+    s=100.0/(AbsI64(z)+50);
+    poly[i].y=s*y+h;
+    if (z<-200 || !(-h<poly[i].y<2*h))
+      return FALSE;
+    poly[i].x=s*x+cx;
+    poly[i].z=z+GR_Z_ALL;
+  }
+  return TRUE;
+}
+
+I64 mp_not_done_flags;
+
+U0 MPUpdateWin(CDC *dc2)
+{
+  CTask *task=dc2->win_task;
+  I64	i,x,y,z,
+	w=task->pix_width,h=task->pix_height,r[16],cx=w>>1;
+  F64	s,dip_é=Dipé(c[0].p.x,c[0].p.z,c[0].é);
+  Car	*tmpc;
+  CD3I32 poly[4];
+  Track	*tmpt,*tmpt1;
+  CDC	*dc=DCAlias(gr.dc2,task);
+
+  Mat4x4IdentEqu(r);
+  Mat4x4RotY(r,ã-c[0].é);
+  Mat4x4RotX(r,75*ã/180-dip_é);
+
+  dc->depth_buf=dc2->depth_buf;
+
+  //Track
+  tmpt =track_start[Gs->num];
+  tmpt1=track_end  [Gs->num];
+  while (tmpt!=tmpt1) {
+    dc->color=DKGRAY;
+    if (PrepPoly(&tmpt->center,r,cx,h,poly)) {
+      GrFillPoly3(dc,4,poly);
+      dc->color=tmpt->c;
+      if (PrepPoly(&tmpt->left,r,cx,h,poly))
+	GrFillPoly3(dc,4,poly);
+      if (PrepPoly(&tmpt->right,r,cx,h,poly))
+	GrFillPoly3(dc,4,poly);
+    }
+    tmpt=tmpt->next;
+  }
+
+  dc->flags|=DCF_TRANSFORMATION;
+  for (i=Gs->num;i<BUSHES_NUM;i+=mp_cnt) {
+    x=b[i].p.x-c[0].p.x; y=b[i].p.y-c[0].p.y; z=b[i].p.z-c[0].p.z;
+    Mat4x4MulXYZ(r,&x,&y,&z);
+    if (z>0) {
+      s=100.0/(AbsI64(z)+50);
+      Mat4x4IdentEqu(dc->r);
+      Mat4x4Scale(dc->r,s*2);
+      DCMat4x4Set(dc,dc->r);
+      if (b[i].sym) {
+	dc->flags|=DCF_SYMMETRY|DCF_JUST_MIRROR;
+	DCSymmetrySet(dc,s*x+cx,s*y+h,s*x+cx,s*y+h+10);
+      }
+      Sprite3B(dc,s*x+cx,s*y+h,z+GR_Z_ALL,b[i].img);
+      dc->flags&=~(DCF_SYMMETRY|DCF_JUST_MIRROR);
+    }
+  }
+  for (i=Gs->num+1;i<CARS_NUM;i+=mp_cnt) {
+    tmpc=&c[i];
+    x=tmpc->p.x-c[0].p.x; y=tmpc->p.y-c[0].p.y; z=tmpc->p.z-c[0].p.z;
+    Mat4x4MulXYZ(r,&x,&y,&z);
+    if (z>0) {
+      s=100.0/(AbsI64(z)+50);
+      Mat4x4IdentEqu(dc->r);
+      Mat4x4Scale(dc->r,s*2);
+      Mat4x4RotX(dc->r,Dipé(tmpc->p.x,tmpc->p.z,-tmpc->é));
+      Mat4x4RotY(dc->r,tmpc->é-c[0].é);
+      DCMat4x4Set(dc,dc->r);
+      Sprite3B(dc,s*x+cx,s*y+h,z+GR_Z_ALL,tmpc->img);
+    }
+  }
+  dc->depth_buf=NULL;
+  DCDel(dc);
+  LBtr(&mp_not_done_flags,Gs->num);
+}
+
+U0 VRTransform(CDC *dc,I64 *x,I64 *y,I64 *z)
+{
+  I64 zz;
+  Mat4x4MulXYZ(dc->r,x,y,z);
+  zz=400+*z;
+  if (zz<1) zz=1;
+  *x=400* *x/zz;
+  *y=400* *y/zz;
+  *x+=dc->x;
+  *y+=dc->y;
+  *z+=dc->z;
+}
+
+U0 DrawIt(CTask *task,CDC *dc)
+{
+  I64	i,x,y,z,
+	w=task->pix_width,
+	h=task->pix_height,r[16],
+	cx=w>>1;
+  F64	s,dip_é=Dipé(c[0].p.x,c[0].p.z,c[0].é);
+  Car	*tmpc=&c[0];
+
+  dc->color=LTCYAN;
+  GrRect(dc,0,0,w,HORIZON_DIP*Sin(dip_é)+FONT_HEIGHT*4.5);
+
+  Mat4x4IdentEqu(r);
+  Mat4x4RotY(r,ã-c[0].é);
+  Mat4x4RotX(r,75*ã/180-dip_é);
+
+  DCDepthBufAlloc(dc);
+
+  //Sun
+  x=c[0].p.x; y=0; z=1000000-c[0].p.z;
+  Mat4x4MulXYZ(r,&x,&y,&z);
+  s=100.0/(AbsI64(z)+50);
+  if (y<0) {
+    dc->color=BROWN;
+    GrCircle(dc,s*x+cx,15+HORIZON_DIP*Sin(dip_é),15);
+    dc->color=YELLOW;
+    GrFloodFill(dc,s*x+cx,15+HORIZON_DIP*Sin(dip_é));
+  }
+
+  mp_not_done_flags=1<<mp_cnt-1;
+  for (i=0;i<mp_cnt;i++)
+    JobQue(&MPUpdateWin,dc,i);
+  while (mp_not_done_flags)
+    Yield;
+
+  Mat4x4IdentEqu(r);
+  Mat4x4RotY(r,tmpc->dé);
+  Mat4x4RotX(r,0.4-8*dip_é); //Made this up
+  dc->transform=&VRTransform;
+  dc->x=task->pix_width>>1;
+  dc->y=task->pix_height-150;
+  dc->z=GR_Z_ALL;
+  Sprite3Mat4x4B(dc,0,0,-100,c[0].img,r);
+
+  //Map
+  GrBlot(dc,w-track_map->width,h-track_map->height,track_map);
+
+  dc->pen_width=2;
+  for (i=0;i<CARS_NUM;i++) {
+    if (i)
+      dc->color=LTPURPLE;
+    else
+      dc->color=LTCYAN;
+    GrPlot3(dc,w-(c[i].p.x-t_minx)>>MAP_BITS,
+	       h-track_map->height+(c[i].p.z-t_minz)>>MAP_BITS,0);
+  }
+
+  if (game_over) {
+    dc->color=LTRED;
+    if (tf) {
+      s=tf-t0;
+      if (Blink)
+	GrPrint(dc,(w-FONT_WIDTH*14)/2,(h-FONT_HEIGHT)/2,"Game Completed");
+    } else {
+      s=99.9;
+      if (Blink)
+	GrPrint(dc,(w-FONT_WIDTH*9)/2,(h-FONT_HEIGHT)/2,"Game Over");
+    }
+  } else
+    s=tS-t0;
+  dc->color=BLACK;
+  GrPrint(dc,0,0,"%0.1f%% Time:%0.2f Best:%0.2f",
+	100.0*distance/track_head.last->d,s,best_score);
+}
+
+U0 AnimateTask(I64)
+{
+  Car  *tmpc;
+  I64 i,x,z;
+  Bool on_track;
+  Track *tmpt,*tmpt2;
+  while (TRUE) {
+    if (!game_over)
+      Snd(12.0*Log2(c[0].speed/500+0.7));
+    else
+      Snd;
+    for (i=0;i<CARS_NUM;i++) {
+      tmpc=&c[i];
+      tmpc->p.x-=0.01*tmpc->speed*Cos(tmpc->é-ã/2);
+      tmpc->p.z+=0.01*tmpc->speed*Sin(tmpc->é-ã/2);
+      tmpt=TrackFind(tmpc->t,tmpc->p.x,tmpc->p.z);
+      if (i) {
+	if (tmpt!=tmpc->t) {
+	  tmpt2=tmpt->next;
+	  if (tmpt2==&track_head)
+	    tmpt2=tmpt2->next;
+	  tmpc->é=Arg(-tmpt2->z+tmpc->p.z,-tmpt2->x+tmpc->p.x);
+	}
+      } else {
+	tmpc->é+=0.01*tmpc->dé;
+	x=track_map->width-(tmpc->p.x-t_minx)>>MAP_BITS;
+	z=(tmpc->p.z-t_minz)>>MAP_BITS;
+	if (GrPeek(track_map,x,z)!=YELLOW) {
+	  on_track=FALSE;
+	  tmpc->speed-=0.01*tmpc->speed;
+	  if (tmpc->speed<0) tmpc->speed=0;
+	} else
+	  on_track=TRUE;
+      }
+      tmpc->t=tmpt;
+      tmpc->p.y=DipY(tmpc->p.x,tmpc->p.z);
+    }
+    if (!game_over && on_track) {
+      for (i=1;i<CARS_NUM;i++)
+	if (D3I32DistSqr(&c[i].p,&c[0].p)<CAR_LENGTH>>1*CAR_LENGTH>>1) {
+	  game_over=TRUE;
+	  Noise(500,22,34);
+	  Sleep(500);
+	  break;
+	}
+      if (!game_over) {
+	distance+=0.01*c[0].speed;
+	if (distance>track_head.last->d&& c[0].t->num<track_head.last->num>>1) {
+	  tf=tS;
+	  game_over=TRUE;
+	  Beep;
+	  if (tf-t0<best_score) {
+	    best_score=tf-t0;
+	    Beep;
+	  }
+	}
+      }
+    }
+    Sleep(10);
+  }
+}
+
+U8 *imgs[8]={$IB,"<1>",BI=1$,$IB,"<1>",BI=1$,$IB,"<2>",BI=2$,$IB,"<2>",BI=2$,$IB,"<3>",BI=3$,$IB,"<4>",BI=4$,$IB,"<4>",BI=4$,$IB,"<4>",BI=4$};
+
+
+U0 InitBushes()
+{
+  Bush *tmpb;
+  I64 i,j,x,z;
+  track_map->color=LTGREEN;
+  track_map->pen_width=1;
+  for (i=0;i<BUSHES_NUM;i++) {
+    tmpb=&b[i];
+
+ib_restart:
+    tmpb->p.x=Rand*(t_maxx-t_minx)+t_minx;
+    tmpb->p.z=Rand*(t_maxz-t_minz)+t_minz;
+    x=track_map->width-(tmpb->p.x-t_minx)>>MAP_BITS;
+    z=(tmpb->p.z-t_minz)>>MAP_BITS;
+    for (j=0;j<8;j++)
+      if (GrPeek(track_map,x+gr_x_offsets[j],z+gr_y_offsets[j])!=LTGRAY)
+	goto ib_restart;
+
+    GrPlot(track_map,x,z);
+    tmpb->p.y=DipY(tmpb->p.x,tmpb->p.z);
+    tmpb->sym=RandU16&1;
+    tmpb->img=imgs[i&7];
+  }
+}
+
+
+U0 Init()
+{
+  Car	*tmpc;
+  Track *tmpt;
+  F64	d;
+  I64	i;
+
+  InitTrack;
+  InitBushes;
+  tmpt=track_head.next;
+  for (i=0;i<CARS_NUM;i++) {
+    tmpc=&c[i];
+    tmpc->t=tmpt;
+    tmpc->p.x=tmpt->x;
+    tmpc->p.z=tmpt->z;
+    tmpc->p.y=DipY(tmpc->p.x,tmpc->p.z);
+    tmpc->é  =-tmpt->é;
+    tmpc->dé=0;
+    if (!i) {
+      tmpc->img=$IB,"<5>",BI=5$;
+      tmpc->speed=0;
+    } else {
+      tmpc->img=$IB,"<6>",BI=6$;
+      tmpc->speed=2500.0;
+    }
+    d=(i+1)*track_head.last->d/CARS_NUM;
+    while (tmpt->next!=&track_head && tmpt->d<d)
+      tmpt=tmpt->next;
+  }
+  distance=0;
+  tf=0;
+  t0=tS;
+  game_over=FALSE;
+}
+
+U0 CleanUp()
+{
+  while (mp_not_done_flags)
+    Yield;
+  QueDel(&track_head,TRUE);
+  DCDel(track_map);
+}
+
+U0 Varoom()
+{
+  I64 sc;
+  MenuPush(
+	"File {"
+	"  Abort(,CH_SHIFT_ESC);"
+	"  Exit(,CH_ESC);"
+	"}"
+	"Play {"
+	"  Restart(,'\n');"
+	"  Accelerator(,,SC_CURSOR_UP);"
+	"  Brake(,,SC_CURSOR_DOWN);"
+	"  Left(,,SC_CURSOR_LEFT);"
+	"  Right(,,SC_CURSOR_RIGHT);"
+	"}"
+	);
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  try {
+    Fs->text_attr=YELLOW<<4+BLUE;
+    Fs->win_inhibit=WIG_TASK_DFT-WIF_SELF_FOCUS
+	  -WIF_SELF_GRAB_SCROLL-WIF_FOCUS_TASK_MENU;
+    AutoComplete;
+    WinBorder;
+    WinMax;
+    DocCursor;
+    DocClear;
+    Init;
+    Fs->draw_it=&DrawIt;
+    Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",,Fs);
+    while (TRUE)
+      switch (GetKey(&sc)) {
+	case 0:
+	  switch (sc.u8[0]) {
+	    case SC_CURSOR_LEFT:
+	      c[0].dé-=ã/60;
+	      break;
+	    case SC_CURSOR_RIGHT:
+	      c[0].dé+=ã/60;
+	      break;
+	    case SC_CURSOR_UP:
+	      c[0].speed+=300;
+	      break;
+	    case SC_CURSOR_DOWN:
+	      c[0].speed-=900;
+	      if (c[0].speed<0) c[0].speed=0;
+	      break;
+	  }
+	  break;
+	case '\n':
+	  CleanUp;
+	  Init;
+	  break;
+	case CH_SHIFT_ESC:
+	case CH_ESC:
+	  goto vr_done;
+      }
+vr_done: //Don't goto out of try
+  } catch
+    PutExcept;
+  CleanUp;
+  SettingsPop;
+  MenuPop;
+  RegWrite("TempleOS/Varoom","F64 best_score=%5.4f;\n",best_score);
+}
+
+Varoom;
+
ö

+þÿÿÿèÿÿÿ
+ôÿÿÿêÿÿÿ
+þÿÿÿîÿÿÿúÿÿÿèÿÿÿ
+øÿÿÿúÿÿÿôÿÿÿ
+ôÿÿÿìÿÿÿ
+âÿÿÿúÿÿÿèÿÿÿ
+àÿÿÿ
+ìÿÿÿ
+îÿÿÿàÿÿÿ
+üÿÿÿîÿÿÿ
+øÿÿÿâÿÿÿ
+øÿÿÿ
+öÿÿÿúÿÿÿþÿÿÿ
+úÿÿÿüÿÿÿÜÿÿÿ
+úÿÿÿðÿÿÿúÿÿÿäÿÿÿã

+æÿÿÿöÿÿÿäÿÿÿ
+ìÿÿÿìÿÿÿæÿÿÿüÿÿÿ
+äÿÿÿÖÿÿÿ
+Öÿÿÿæÿÿÿ
+æÿÿÿ"àÿÿÿ
+êÿÿÿ$äÿÿÿ
+ìÿÿÿ$æÿÿÿ
+äÿÿÿúÿÿÿäÿÿÿúÿÿÿ
+æÿÿÿüÿÿÿæÿÿÿüÿÿÿ
+îÿÿÿúÿÿÿêÿÿÿ

+"Üÿÿÿ&æÿÿÿ
+äÿÿÿàÿÿÿ


+
+þÿÿÿ
+üÿÿÿ
+üÿÿÿðÿÿÿ
+êÿÿÿøÿÿÿ
+øÿÿÿèÿÿÿ
+èÿÿÿþÿÿÿ
+þÿÿÿîÿÿÿ
+ìÿÿÿþÿÿÿ
+þÿÿÿîÿÿÿ

+
+öÿÿÿ ìÿÿÿ
+êÿÿÿðÿÿÿ
+ðÿÿÿäÿÿÿ
+âÿÿÿðÿÿÿ
+ðÿÿÿêÿÿÿ
+êÿÿÿúÿÿÿ
+ öÿÿÿ”

+úÿÿÿÄÿÿÿ
+úÿÿÿÄÿÿÿøÿÿÿúÿÿÿ
+üÿÿÿÂÿÿÿüÿÿÿ
+úÿÿÿÄÿÿÿæÿÿÿ¤ÿÿÿ
+üÿÿÿÂÿÿÿäÿÿÿ¤ÿÿÿ
+øÿÿÿ¼ÿÿÿúÿÿÿ†ÿÿÿ
+Äÿÿÿüÿÿÿ„ÿÿÿ
+þÿÿÿºÿÿÿ
+Œÿÿÿ
+
+Œÿÿÿüÿÿÿ¸ÿÿÿ

+¦ÿÿÿšÿÿÿ
+šÿÿÿzÿÿÿ
+zÿÿÿ„ÿÿÿ
+†ÿÿÿžÿÿÿ
+žÿÿÿvÿÿÿ
+vÿÿÿþÿÿÿ`ÿÿÿ
+þÿÿÿ`ÿÿÿìÿÿÿ„ÿÿÿ
+ìÿÿÿ„ÿÿÿöÿÿÿ¬ÿÿÿ
+öÿÿÿ¬ÿÿÿâÿÿÿžÿÿÿ
+âÿÿÿžÿÿÿØÿÿÿ¨ÿÿÿ
+Øÿÿÿ¨ÿÿÿîÿÿÿºÿÿÿ
+îÿÿÿºÿÿÿòÿÿÿºÿÿÿ
+ôÿÿÿ¸ÿÿÿúÿÿÿ¸ÿÿÿ
+
+–ÿÿÿˆÿÿÿ
+„ÿÿÿŠÿÿÿ
+þÿÿÿŽÿÿÿþÿÿÿjÿÿÿ
+þÿÿÿjÿÿÿôÿÿÿ‚ÿÿÿ
+ôÿÿÿ‚ÿÿÿøÿÿÿœÿÿÿ
+ôÿÿÿ´ÿÿÿîÿÿÿ¦ÿÿÿ
+èÿÿÿ²ÿÿÿÞÿÿÿ¦ÿÿÿ

+
+œÿÿÿ–ÿÿÿ
+øÿÿÿ€ÿÿÿhÿÿÿ
+ˆÿÿÿ€ÿÿÿ
+þÿÿÿ~ÿÿÿnÿÿÿ
+~ÿÿÿ’ÿÿÿ
+
+œÿÿÿ¨ÿÿÿ

+öÿÿÿ²ÿÿÿðÿÿÿ‚ÿÿÿ
+ðÿÿÿ‚ÿÿÿúÿÿÿjÿÿÿ
+êÿÿÿ´ÿÿÿÞÿÿÿ ÿÿÿJ␍`ŒFçÿÿÿ}-çÿÿÿ}-çÿÿÿKFçÿÿÿK7ýÿÿÿ‡7ýÿÿÿ–ýÿÿÿ–(ýÿÿÿ‡(ýÿÿÿA7ýÿÿÿA7ýÿÿÿýÿÿÿF}-}-KFK7‡7––(‡(A7A7ºÿÿÿçÿÿÿ}Óÿÿÿçÿÿÿ}ÓÿÿÿçÿÿÿKºÿÿÿçÿÿÿKÉÿÿÿýÿÿÿ‡Éÿÿÿýÿÿÿ–ýÿÿÿ–Øÿÿÿýÿÿÿ‡ØÿÿÿýÿÿÿAÉÿÿÿýÿÿÿAÉÿÿÿýÿÿÿýÿÿÿºÿÿÿ}Óÿÿÿ}ÓÿÿÿKºÿÿÿKÉÿÿÿ‡Éÿÿÿ––Øÿÿÿ‡ØÿÿÿAÉÿÿÿAÉÿÿÿFçÿÿÿƒÿÿÿ-çÿÿÿƒÿÿÿ-çÿÿÿµÿÿÿFçÿÿÿµÿÿÿ7áÿÿÿyÿÿÿ7áÿÿÿjÿÿÿáÿÿÿjÿÿÿ(áÿÿÿyÿÿÿ(áÿÿÿ¿ÿÿÿ7áÿÿÿ¿ÿÿÿ7ýÿÿÿýÿÿÿFƒÿÿÿ-ƒÿÿÿ-µÿÿÿFµÿÿÿ7yÿÿÿ7jÿÿÿjÿÿÿ(yÿÿÿ(¿ÿÿÿ7¿ÿÿÿ7ºÿÿÿçÿÿÿƒÿÿÿÓÿÿÿçÿÿÿƒÿÿÿÓÿÿÿçÿÿÿµÿÿÿºÿÿÿçÿÿÿµÿÿÿÉÿÿÿáÿÿÿyÿÿÿÉÿÿÿáÿÿÿjÿÿÿáÿÿÿjÿÿÿØÿÿÿáÿÿÿyÿÿÿØÿÿÿáÿÿÿ¿ÿÿÿÉÿÿÿáÿÿÿ¿ÿÿÿÉÿÿÿýÿÿÿýÿÿÿºÿÿÿƒÿÿÿÓÿÿÿƒÿÿÿÓÿÿÿµÿÿÿºÿÿÿµÿÿÿÉÿÿÿyÿÿÿÉÿÿÿjÿÿÿjÿÿÿØÿÿÿyÿÿÿØÿÿÿ¿ÿÿÿÉÿÿÿ¿ÿÿÿÉÿÿÿ␍


␍

␍␍
+			
+	$%&&'$%$$$'$%%&&'&#!"!# #     /-.-/,/*,,*++)(+*)+(+ + +(!.-.!" + + ,*)*<=>>?<1033211=<<01<?330<1=2=>2>233?>;9:9;8867754765GEFEGDGBDDBCCA@CBA4C@C474C7C4@9FEF9:8C7C8D5BAB56TUVVWTIHKKJIIUTTHITWKKHTIUJUVJVJKKWVSRQQPSPONOLMOMN_^]]\__\Z\[Z[XY[YZLX[[OLLO[[XLQ]^^RQPO[[\PMYZZNMP88P654@@A5LMYYXLJ␍`ŒFçÿÿÿ}-çÿÿÿ}-çÿÿÿKFçÿÿÿK7ýÿÿÿ‡7ýÿÿÿ–ýÿÿÿ–(ýÿÿÿ‡(ýÿÿÿA7ýÿÿÿA7ýÿÿÿýÿÿÿF}-}-KFK7‡7––(‡(A7A7ºÿÿÿçÿÿÿ}Óÿÿÿçÿÿÿ}ÓÿÿÿçÿÿÿKºÿÿÿçÿÿÿKÉÿÿÿýÿÿÿ‡Éÿÿÿýÿÿÿ–ýÿÿÿ–Øÿÿÿýÿÿÿ‡ØÿÿÿýÿÿÿAÉÿÿÿýÿÿÿAÉÿÿÿýÿÿÿýÿÿÿºÿÿÿ}Óÿÿÿ}ÓÿÿÿKºÿÿÿKÉÿÿÿ‡Éÿÿÿ––Øÿÿÿ‡ØÿÿÿAÉÿÿÿAÉÿÿÿFçÿÿÿƒÿÿÿ-çÿÿÿƒÿÿÿ-çÿÿÿµÿÿÿFçÿÿÿµÿÿÿ7áÿÿÿyÿÿÿ7áÿÿÿjÿÿÿáÿÿÿjÿÿÿ(áÿÿÿyÿÿÿ(áÿÿÿ¿ÿÿÿ7áÿÿÿ¿ÿÿÿ7ýÿÿÿýÿÿÿFƒÿÿÿ-ƒÿÿÿ-µÿÿÿFµÿÿÿ7yÿÿÿ7jÿÿÿjÿÿÿ(yÿÿÿ(¿ÿÿÿ7¿ÿÿÿ7ºÿÿÿçÿÿÿƒÿÿÿÓÿÿÿçÿÿÿƒÿÿÿÓÿÿÿçÿÿÿµÿÿÿºÿÿÿçÿÿÿµÿÿÿÉÿÿÿáÿÿÿyÿÿÿÉÿÿÿáÿÿÿjÿÿÿáÿÿÿjÿÿÿØÿÿÿáÿÿÿyÿÿÿØÿÿÿáÿÿÿ¿ÿÿÿÉÿÿÿáÿÿÿ¿ÿÿÿÉÿÿÿýÿÿÿýÿÿÿºÿÿÿƒÿÿÿÓÿÿÿƒÿÿÿÓÿÿÿµÿÿÿºÿÿÿµÿÿÿÉÿÿÿyÿÿÿÉÿÿÿjÿÿÿjÿÿÿØÿÿÿyÿÿÿØÿÿÿ¿ÿÿÿÉÿÿÿ¿ÿÿÿÉÿÿÿ␍


␍

␍␍
+			
+	$%&&'$%$$$'$%%&&'&#!"!# #     /-.-/,/*,,*++)(+*)+(+ + +(!.-.!" + + ,*)*<=>>?<1033211=<<01<?330<1=2=>2>233?>;9:9;8867754765GEFEGDGBDDBCCA@CBA4C@C474C7C4@9FEF9:8C7C8D5BAB56TUVVWTIHKKJIIUTTHITWKKHTIUJUVJVJKKWVSRQQPSPONOLMOMN_^]]\__\Z\[Z[XY[YZLX[[OLLO[[XLQ]^^RQPO[[\PMYZZNMP88P654@@A5LMYYXL

TempleOSCD/Demo/Games/Wenceslas.HC

@@ -0,0 +1,728 @@
+RegDft("TempleOS/Wenceslas","F64 best_score=9999;\n");
+RegExe("TempleOS/Wenceslas");
+
+#define BORDER		5
+#define KING_STEP	6
+
+
+
+
+
+	$SP,"<1>",BI=1$	//See $MA-X+PU,"::/Apps/GrModels",LM="Cd(\"::/Apps/GrModels\");Dir;View;\n"$ for making 3D men.
+
+
+
+
+	$SP,"<2>",BI=2$
+
+
+
+	$SP,"<3>",BI=3$
+
+
+
+	$SP,"<4>",BI=4$
+
+
+
+	$SP,"<5>",BI=5$
+
+
+
+	$SP,"<6>",BI=6$
+
+
+
+
+
+
+
+
+
+ 
+
+
+	$SP,"<7>",BI=7$
+
+
+
+
+	$SP,"<8>",BI=8$
+
+
+
+
+
+
+	$SP,"<9>",BI=9$
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+	$SP,"<10>",BI=10$
+
+
+
+
+
+
+	$SP,"<11>",BI=11$
+
+
+U8 *king_imgs[4]={$IB,"<2>",BI=2$,$IB,"<1>",BI=1$,$IB,"<2>",BI=2$,$IB,"<3>",BI=3$};
+U8 *peasant_imgs[4]={$IB,"<5>",BI=5$,$IB,"<4>",BI=4$,$IB,"<5>",BI=5$,$IB,"<6>",BI=6$};
+
+
+#define TREES_NUM	8
+class Tree
+{
+  U16 x,y;
+  I64 fire_frame_idx;
+} trees[TREES_NUM];
+
+U64 snow_x,snow_y,new_snow_mS;
+#define SNOW_TILE_SIZE	128
+CDC *snow_tile;
+
+I64 king_x,king_y,king_mS,king_phase,
+    not_stopped_cnt;
+F64 king_timeout,king_é,t0,tf,door_open_t0;
+I64 animate_mS,animate_phase;
+
+#define PEASANTS_NUM	10
+class Peasant
+{
+  Peasant *next,*last;
+  F64 x,y,é,door_opened_t0;
+  Bool stopped;
+} peasant_head;
+
+class Step
+{
+  Step *next,*last;
+  U16 x,y;
+  F64 t0;
+} step_head,king_step_head;
+
+U0 DrawIt(CTask *task,CDC *dc)
+{
+  I64 r[16],i,w=task->pix_width,h=task->pix_height,x,y;
+  U8 *img,*tmps;
+  Step *tmpst;
+  Peasant *tmpp;
+  F64 tt;
+
+  dc->pen_width=1;
+  for (i=0;i<TREES_NUM;i++) {
+    if (trees[i].y<=h/2) {//Draw trees behind house
+      if (trees[i].fire_frame_idx) {
+	if (trees[i].fire_frame_idx++&1)
+	  img=$IB,"<8>",BI=8$;
+	else
+	  img=$IB,"<9>",BI=9$;
+      } else
+	img=$IB,"<7>",BI=7$;
+      Sprite3(dc,trees[i].x,trees[i].y,0,img);
+    }
+  }
+
+  Sprite3(dc,w/2,h/2,0,$IB,"<10>",BI=10$);
+  if (tS<door_open_t0+1.0)
+    Sprite3(dc,w/2,h/2,0,$IB,"<11>",BI=11$);
+
+  for (i=0;i<TREES_NUM;i++) {
+    if (trees[i].y>h/2) {//Draw trees in front of house
+      if (trees[i].fire_frame_idx) {
+	if (trees[i].fire_frame_idx++&1)
+	  img=$IB,"<8>",BI=8$;
+	else
+	  img=$IB,"<9>",BI=9$;
+      } else
+	img=$IB,"<7>",BI=7$;
+      Sprite3(dc,trees[i].x,trees[i].y,0,img);
+    }
+  }
+
+  tmpst=step_head.next;
+  while (tmpst!=&step_head) {
+    if (tS-tmpst->t0<2.0)
+      dc->color=DKGRAY;
+    else
+      dc->color=LTGRAY;
+    dc->pen_width=4;
+    GrPlot3(dc,tmpst->x,tmpst->y,0);
+    tmpst=tmpst->next;
+  }
+
+  DCDepthBufAlloc(dc);
+  dc->flags|=DCF_TRANSFORMATION;
+  dc->pen_width=1;
+  tmpp=peasant_head.next;
+  while (tmpp!=&peasant_head) {
+    Mat4x4IdentEqu(r);
+    Mat4x4RotY(r,tmpp->é+ã/2);
+    Mat4x4RotX(r,ã/6);
+    if (tmpp->stopped)
+      Sprite3Mat4x4B(dc,tmpp->x,tmpp->y,GR_Z_ALL,peasant_imgs[0],r);
+    else {
+      tmps=SpriteInterpolate(Saw(animate_mS/250.0,1.0),
+	    peasant_imgs[ animate_phase   &3],
+	    peasant_imgs[(animate_phase+1)&3]);
+      Sprite3Mat4x4B(dc,tmpp->x,tmpp->y,GR_Z_ALL,tmps,r);
+      Free(tmps);
+    }
+    tmpp=tmpp->next;
+  }
+
+  dc->pen_width=1;
+  Mat4x4IdentEqu(r);
+  Mat4x4RotY(r,king_é+ã/2);
+  Mat4x4RotX(r,ã/6);
+  if (tS>king_timeout)
+    Sprite3Mat4x4B(dc,king_x,king_y,GR_Z_ALL,king_imgs[0],r);
+  else {
+    tmps=SpriteInterpolate(Saw(king_mS/250.0,1.0),
+	  king_imgs[ king_phase   &3],
+	  king_imgs[(king_phase+1)&3]);
+    Sprite3Mat4x4B(dc,king_x,king_y,GR_Z_ALL,tmps,r);
+    Free(tmps);
+  }
+
+  dc->pen_width=1;
+  dc->color=ROP_MONO|WHITE;
+  for (y=snow_y%SNOW_TILE_SIZE-SNOW_TILE_SIZE;y<=h;y+=SNOW_TILE_SIZE)
+    for (x=snow_x%SNOW_TILE_SIZE-SNOW_TILE_SIZE;x<=w;x+=SNOW_TILE_SIZE)
+      GrBlot(dc,x,y,snow_tile);
+
+  if (tf) {
+    dc->color=LTRED;
+    if (Blink)
+      GrPrint(dc,w/2-(FONT_WIDTH*14)/2,h/2+FONT_HEIGHT,"Game Completed");
+    tt=tf;
+  } else {
+    tt=tS;
+  }
+  dc->color=LTBLUE;
+  GrPrint(dc,0,0,"Freezing Peasants:%d Time:%3.2f Best:%3.2f",
+	not_stopped_cnt,tt-t0,best_score);
+}
+
+U0 StepNew(CTask *task,I64 x,I64 y,F64 é,Bool left_right,Bool king)
+{
+  Step *tmps;
+
+  if (king) {
+    tmps=MAlloc(sizeof(Step),task);
+    tmps->x=x;
+    tmps->y=y;
+    tmps->t0=tS;
+    QueIns(tmps,king_step_head.last);
+  }
+
+  if (left_right) {
+    tmps=MAlloc(sizeof(Step),task);
+    tmps->x=x-3.5*Sin(é)+2.0*Cos(é);
+    tmps->y=y+3.5*Cos(é)+2.0*Sin(é);
+    tmps->t0=tS;
+    QueIns(tmps,step_head.last);
+    tmps=MAlloc(sizeof(Step),task);
+    tmps->x=x-3.5*Sin(é)+5.0*Cos(é);
+    tmps->y=y+3.5*Cos(é)+5.0*Sin(é);
+    tmps->t0=tS;
+    QueIns(tmps,step_head.last);
+  } else {
+    tmps=MAlloc(sizeof(Step),task);
+    tmps->x=x+3.5*Sin(é)+0.0*Cos(é);
+    tmps->y=y-3.5*Cos(é)+0.0*Sin(é);
+    tmps->t0=tS;
+    QueIns(tmps,step_head.last);
+    tmps=MAlloc(sizeof(Step),task);
+    tmps->x=x+3.5*Sin(é)+3.0*Cos(é);
+    tmps->y=y-3.5*Cos(é)+3.0*Sin(é);
+    tmps->t0=tS;
+    QueIns(tmps,step_head.last);
+  }
+}
+
+U0 Init()
+{
+  I64 i,min_x,max_x,min_y,max_y,
+	w=Fs->pix_width,h=Fs->pix_height;
+  Peasant *tmpp;
+
+  snow_x=snow_y=0;
+  new_snow_mS=0;
+  snow_tile=DCNew(SNOW_TILE_SIZE,SNOW_TILE_SIZE);
+
+  SpriteExtents($IB,"<7>",BI=7$,&min_x,&max_x,&min_y,&max_y);
+  for (i=0;i<TREES_NUM;i++) {
+    trees[i].x=RandU16%(w-2*BORDER-(max_x-min_x+1))+BORDER-min_x;
+    trees[i].y=RandU16%(h-2*BORDER-(max_y-min_y+1))+BORDER-min_y;
+    trees[i].fire_frame_idx=0;
+  }
+
+  QueInit(&step_head);
+  QueInit(&king_step_head);
+
+  SpriteExtents($IB,"<12>",BI=12$,&min_x,&max_x,&min_y,&max_y);
+  QueInit(&peasant_head);
+  for (i=0;i<PEASANTS_NUM;i++) {
+    tmpp=MAlloc(sizeof(Peasant));
+    tmpp->x=RandU16%(w-2*BORDER-(max_x-min_x+1))+BORDER-min_x;
+    tmpp->y=RandU16%(h-2*BORDER-(max_y-min_y+1))+BORDER-min_y;
+    tmpp->é=ã*2*Rand;
+    tmpp->door_opened_t0=0;
+    tmpp->stopped=FALSE;
+    QueIns(tmpp,peasant_head.last);
+  }
+  animate_phase=0;
+  animate_mS=0;
+  king_phase=0;
+  king_mS=0;
+  king_timeout=0;
+  king_x=w/2;
+  king_y=h/2;
+  king_é=-ã/2;
+  door_open_t0=0;
+  t0=tS;
+  tf=0;
+}
+
+U0 CleanUp()
+{
+  DCDel(snow_tile);
+  QueDel(&peasant_head,TRUE);
+  QueDel(&step_head,TRUE);
+  QueDel(&king_step_head,TRUE);
+}
+
+U0 Follow(CTask *,Peasant *tmpp)
+{
+  Step *tmps=king_step_head.next;
+  F64 d,best_d=F64_MAX;
+  while (tmps!=&king_step_head) {
+    if ((d=Sqr(tmps->x-tmpp->x)+Sqr(tmps->y-tmpp->y)) &&
+	  d<15*15) {
+      d+=1000*Sqr(tS-tmps->t0);
+      if (d<best_d) {
+	best_d=d;
+	tmpp->é=Arg(tmps->x-tmpp->x,tmps->y-tmpp->y);
+      }
+    }
+    tmps=tmps->next;
+  }
+}
+
+U0 AnimateTask(I64)
+{
+  Step *tmps,*tmps1;
+  Peasant *tmpp;
+  I64 i,w,h;
+  while (TRUE) {
+    w=Fs->parent_task->pix_width;
+    h=Fs->parent_task->pix_height;
+
+    tmps=step_head.next;
+    while (tmps!=&step_head) {
+      tmps1=tmps->next;
+      if (tS-tmps->t0>5.0) {
+	QueRem(tmps);
+	Free(tmps);
+      }
+      tmps=tmps1;
+    }
+
+    tmps=king_step_head.next;
+    while (tmps!=&king_step_head) {
+      tmps1=tmps->next;
+      if (tS-tmps->t0>3.0) {
+	QueRem(tmps);
+	Free(tmps);
+      }
+      tmps=tmps1;
+    }
+
+    not_stopped_cnt=0;
+    tmpp=peasant_head.next;
+    while (tmpp!=&peasant_head) {
+      if (tmpp->stopped) {
+	if (tmpp->door_opened_t0 && tS>tmpp->door_opened_t0+1.0) {
+	  tmpp->door_opened_t0=0;
+	  tmpp->y=tmpp->x=-9999;
+	}
+      } else {
+	if (Sqr(tmpp->x-w/2)+Sqr(tmpp->y-h/2)<20*20) {
+	  tmpp->stopped=TRUE;
+	  tmpp->door_opened_t0=door_open_t0=tS;
+	}
+	for (i=0;i<TREES_NUM;i++) //Hang-out by fire
+	  if (trees[i].fire_frame_idx &&
+		Sqr(tmpp->x-trees[i].x)+Sqr(tmpp->y-trees[i].y)<20*20) {
+	    tmpp->stopped=TRUE;
+	    break;
+	  }
+	if (!tmpp->stopped) {
+	  Follow(Fs->parent_task,tmpp);
+	  tmpp->x+=Cos(tmpp->é)/100;
+	  tmpp->y+=Sin(tmpp->é)/100;
+	  if (!(BORDER/2<=tmpp->x<w-BORDER/2) ||
+		!(BORDER/2<=tmpp->y<h-BORDER/2)) {
+	    tmpp->é+=ã;
+	    tmpp->x+=3*Cos(tmpp->é)/100;
+	    tmpp->y+=3*Sin(tmpp->é)/100;
+	  }
+	  if (!animate_mS && animate_phase&1)
+	    StepNew(Fs->parent_task,tmpp->x,tmpp->y,tmpp->é,
+		  animate_phase&2,FALSE);
+	  not_stopped_cnt++;
+	}
+      }
+      tmpp=tmpp->next;
+    }
+    if (!not_stopped_cnt && !tf) {
+      tf=tS;
+      music.mute=TRUE;
+      Snd(86);Sleep(200);Snd;Sleep(100);
+      if (tf-t0<best_score) {
+	best_score=tf-t0;
+	Snd(86);Sleep(200);Snd;Sleep(100);
+      }
+      music.mute=FALSE;
+    }
+
+    snow_x+=RandU16%3-1;
+    snow_y+=1-SignI64(RandU16&3);
+    if (new_snow_mS++>8) {
+      new_snow_mS=0;
+      snow_tile->color=WHITE;
+      GrPlot(snow_tile,RandU16&(SNOW_TILE_SIZE-1),RandU16&(SNOW_TILE_SIZE-1));
+    }
+
+    Sleep(1);
+    if (animate_mS++>=250) {
+      animate_mS=0;
+      animate_phase=(animate_phase+1)&3;
+    }
+    if (tS<king_timeout) {
+      if (king_mS++>=250) {
+	king_mS=0;
+	king_phase|=1;
+      }
+    }
+  }
+}
+
+U0 BurnTrees()
+{
+  I64 i;
+  for (i=0;i<TREES_NUM;i++)
+    if (Sqr(king_x-trees[i].x)+Sqr(king_y-trees[i].y)<10*10)
+      trees[i].fire_frame_idx=1;
+}
+
+U0 SongTask(I64)
+{
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  music.tempo= 2.480;
+  music.stacatto_factor= 0.902;
+  while (TRUE) {
+    Play("5eCCCDCC4qGeAGAB5qCC");
+    Play("5eCCCDCC4qGeAGAB5qCC");
+    Play("5eGFEDEDqC4eAGAB5qCC");
+  }
+}
+ 
+U0 Wenceslas()
+{
+  I64 sc;
+
+  MenuPush(
+	"File {"
+	"  Abort(,CH_SHIFT_ESC);"
+	"  Exit(,CH_ESC);"
+	"}"
+	"Play {"
+	"  Restart(,'\n');"
+	"  BurnTree(,CH_SPACE);"
+	"  Up(,,SC_CURSOR_UP);"
+	"  Down(,,SC_CURSOR_DOWN);"
+	"  Left(,,SC_CURSOR_LEFT);"
+	"  Right(,,SC_CURSOR_RIGHT);"
+	"}"
+	);
+
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  AutoComplete;
+  WinBorder;
+  WinMax;
+  DocCursor;
+  DocClear;
+  Fs->song_task=Spawn(&SongTask,NULL,"Song",,Fs);
+
+  PopUpOk("
+Good King Wenceslas looked out
+On the feast of Stephen
+When the snow lay round about
+Deep and crisp and even
+Brightly shone the moon that night
+Though the frost was cruel
+When a poor man came in sight
+Gath'ring winter fuel
+
+\"Hither, page, and stand by me
+If thou know'st it, telling
+Yonder peasant, who is he?
+Where and what his dwelling?\"
+\"Sire, he lives a good league hence
+Underneath the mountain
+Right against the forest fence
+By Saint Agnes' fountain.\"
+
+\"Bring me flesh and bring me wine
+Bring me pine logs hither
+Thou and I will see him dine
+When we bear him thither.\"
+Page and monarch forth they went
+Forth they went together
+Through the rude wind's wild lament
+And the bitter weather
+
+");
+  PopUpOk("
+\"Sire, the night is darker now
+And the wind blows stronger
+Fails my heart, I know not how,
+I can go no longer.\"
+\"Mark my footsteps, my good page
+Tread thou in them boldly
+Thou shalt find the winter's rage
+Freeze thy blood less coldly.\"
+
+In his master's steps he trod
+Where the snow lay dinted
+Heat was in the very sod
+Which the Saint had printed
+Therefore, Christian men, be sure
+Wealth or rank possessing
+Ye who now will bless the poor
+Shall yourselves find blessing
+
+");
+  PopUpOk("
+$$PURPLE$$$$TX+CX,\"Winceslas Game\"$$$$FG$$
+
+Start fires by pressing $$GREEN$$<SPACE>$$FG$$
+on trees. (Yule logs)
+
+Lead peasants to fires.
+");
+
+  Init;
+  Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",,Fs);
+  Fs->draw_it=&DrawIt;
+  try {
+    while (TRUE) {
+      switch (GetKey(&sc)) {
+	case '\n':
+	  CleanUp;
+	  Init;
+	  break;
+	case CH_ESC:
+	case CH_SHIFT_ESC:
+	  goto ws_done;
+	case CH_SPACE:
+	  BurnTrees;
+	  break;
+	case 0:
+	  switch (sc.u8[0]) {
+	    start:
+	      case SC_CURSOR_RIGHT:
+		if (king_x+KING_STEP<Fs->pix_width-BORDER)
+		  king_x+=KING_STEP;
+		king_é=0;
+		break;
+	      case SC_CURSOR_LEFT:
+		if (king_x-KING_STEP>=BORDER)
+		  king_x-=KING_STEP;
+		king_é=ã;
+		break;
+	      case SC_CURSOR_DOWN:
+		if (king_y+KING_STEP<Fs->pix_height-BORDER)
+		  king_y+=KING_STEP;
+		king_é=-ã/2;
+		break;
+	      case SC_CURSOR_UP:
+		if (king_y-KING_STEP>=BORDER)
+		  king_y-=KING_STEP;
+		king_é=ã/2;
+		break;
+	    end:
+	      king_mS=0;
+	      king_phase=(king_phase+2)&2;
+	      StepNew(Fs,king_x,king_y,king_é,king_phase&2,TRUE);
+	      king_timeout=tS+0.5;
+	      break;
+	  }
+      }
+    }
+ws_done:
+  } catch
+    PutExcept;
+  SettingsPop;
+  MenuPop;
+  CleanUp;
+  RegWrite("TempleOS/Wenceslas","F64 best_score=%5.4f;\n",best_score);
+}
+
+Wenceslas;
+y


+þÿÿÿÚÿÿÿ
+Êÿÿÿ
+þÿÿÿÚÿÿÿäÿÿÿ
+Öÿÿÿ
+Ðÿÿÿ
+úÿÿÿÖÿÿÿôÿÿÿìÿÿÿ
+üÿÿÿØÿÿÿúÿÿÿðÿÿÿ
+üÿÿÿðÿÿÿÖÿÿÿ
+üÿÿÿÔÿÿÿòÿÿÿæÿÿÿ
+ÒÿÿÿöÿÿÿÂÿÿÿ
+þÿÿÿÔÿÿÿòÿÿÿ¼ÿÿÿ
+þÿÿÿÎÿÿÿ¼ÿÿÿ
+þÿÿÿÔÿÿÿÊÿÿÿ
+þÿÿÿØÿÿÿäÿÿÿ
+ÚÿÿÿÀÿÿÿ
+þÿÿÿÎÿÿÿ´ÿÿÿ
+Êÿÿÿªÿÿÿ
+¶ÿÿÿøÿÿÿÈÿÿÿ
+²ÿÿÿ¬ÿÿÿ
+Æÿÿÿ
+¶ÿÿÿ
+Ìÿÿÿ Ìÿÿÿ
+üÿÿÿÔÿÿÿèÿÿÿÚÿÿÿ
+Öÿÿÿ*



+ðÿÿÿüÿÿÿ
+ðÿÿÿ
+ðÿÿÿèÿÿÿ
+þÿÿÿòÿÿÿüÿÿÿæÿÿÿ
+þÿÿÿæÿÿÿàÿÿÿ
+þÿÿÿèÿÿÿüÿÿÿòÿÿÿ
+æÿÿÿðÿÿÿ

+þÿÿÿâÿÿÿàÿÿÿ
+àÿÿÿÞÿÿÿ
+Þÿÿÿâÿÿÿ

+ÞÿÿÿÞÿÿÿ
+ýÿÿÿäÿÿÿâÿÿÿ

+þÿÿÿäÿÿÿüÿÿÿèÿÿÿ
+üÿÿÿèÿÿÿüÿÿÿòÿÿÿ
+äÿÿÿêÿÿÿ
+æÿÿÿþÿÿÿîÿÿÿ
+ìÿÿÿòÿÿÿã


+öÿÿÿðÿÿÿ
+øÿÿÿ
+ôÿÿÿ
+ðÿÿÿòÿÿÿ
+îÿÿÿ
+êÿÿÿ
+öÿÿÿæÿÿÿ
+úÿÿÿæÿÿÿöÿÿÿèÿÿÿ
+øÿÿÿæÿÿÿ
+æÿÿÿ
+øÿÿÿîÿÿÿ
+þÿÿÿòÿÿÿ
+þÿÿÿöÿÿÿ
+ôÿÿÿîÿÿÿ

+ðÿÿÿ
+ðÿÿÿþÿÿÿ
+üÿÿÿþÿÿÿäÿÿÿ
+þÿÿÿäÿÿÿîÿÿÿ
+äÿÿÿöÿÿÿöÿÿÿ
+öÿÿÿðÿÿÿøÿÿÿ
+üÿÿÿüÿÿÿðÿÿÿ
+
+ðÿÿÿøÿÿÿ
+úÿÿÿ
+þÿÿÿúÿÿÿúÿÿÿ
+ðÿÿÿüÿÿÿ

+úÿÿÿ
+üÿÿÿ
+üÿÿÿøÿÿÿ
+úÿÿÿøÿÿÿúÿÿÿðÿÿÿ
+òÿÿÿìÿÿÿ	ô


+öÿÿÿðÿÿÿ
+øÿÿÿ
+ôÿÿÿ
+ðÿÿÿòÿÿÿ
+îÿÿÿ
+êÿÿÿ
+öÿÿÿæÿÿÿ
+úÿÿÿæÿÿÿöÿÿÿèÿÿÿ
+øÿÿÿæÿÿÿ
+æÿÿÿ
+øÿÿÿîÿÿÿ
+þÿÿÿòÿÿÿ
+þÿÿÿöÿÿÿ
+ôÿÿÿîÿÿÿ

+äÿÿÿ
+úÿÿÿâÿÿÿúÿÿÿ
+èÿÿÿúÿÿÿöÿÿÿ
+òÿÿÿîÿÿÿöÿÿÿúÿÿÿ
+öÿÿÿøÿÿÿðÿÿÿ
+öÿÿÿäÿÿÿôÿÿÿôÿÿÿ
+üÿÿÿêÿÿÿþÿÿÿþÿÿÿ
+üÿÿÿôÿÿÿ
+ôÿÿÿöÿÿÿ
+òÿÿÿâÿÿÿ
+þÿÿÿ
+úÿÿÿ

+öÿÿÿ
+òÿÿÿüÿÿÿ
+øÿÿÿðÿÿÿøÿÿÿ
+
+ôÿÿÿ
+üÿÿÿ
+ÒbÎÿÿÿhÿÿÿŸžÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿLine truncated
+
+	␍␍	␍	
+
+
+	␍␍   ! ""#!%$&&'%! $$%!#"&&'#" $$&"#!%%'#)(**+)-,../-)(,,-)+*../+*(,,.*+)--/+10223154667510445132667320446231557398::;9=<>>?=98<<=9;:>>?;:8<<>:;9==?;A@BBCAEDFFGEA@DDEACBFFGCB@DDFBCAEEGCIHJJKIMLNNOMIHLLMIKJNNOKJHLLNJKIMMOKQPRRSQUTVVWUQPTTUQSRVVWSRPTTVRSQUUWSYXZZ[Y]\^^_]YX\\]Y[Z^^_[ZX\\^Z[Y]]_[a`bbcaedffgea`ddeacbffgcb`ddfbcaeegcihjjkimlnnomihllmikjnnokjhllnjkimmokÊp¨ÝÿÿÿýÿÿÿýÿÿÿÝÿÿÿýÿÿÿáÿÿÿýÿÿÿýÿÿÿáÿÿÿýÿÿÿÝÿÿÿýÿÿÿÝÿÿÿáÿÿÿýÿÿÿáÿÿÿáÿÿÿýÿÿÿûÿÿÿáÿÿÿýÿÿÿðÿÿÿýÿÿÿûÿÿÿðÿÿÿýÿÿÿáÿÿÿûÿÿÿáÿÿÿðÿÿÿûÿÿÿðÿÿÿáÿÿÿâÿÿÿçÿÿÿüÿÿÿèÿÿÿüÿÿÿâÿÿÿ
ãÿÿÿ
èÿÿÿýÿÿÿéÿÿÿýÿÿÿçÿÿÿüÿÿÿèÿÿÿüÿÿÿíÿÿÿùÿÿÿíÿÿÿùÿÿÿèÿÿÿýÿÿÿéÿÿÿýÿÿÿíÿÿÿúÿÿÿîÿÿÿúÿÿÿíÿÿÿùÿÿÿíÿÿÿùÿÿÿ	ðÿÿÿøÿÿÿðÿÿÿøÿÿÿíÿÿÿúÿÿÿîÿÿÿúÿÿÿ	ðÿÿÿùÿÿÿñÿÿÿùÿÿÿûÿÿÿãÿÿÿþÿÿÿúÿÿÿãÿÿÿþÿÿÿúÿÿÿéÿÿÿøÿÿÿéÿÿÿûÿÿÿáÿÿÿúÿÿÿáÿÿÿúÿÿÿçÿÿÿøÿÿÿçÿÿÿúÿÿÿéÿÿÿøÿÿÿéÿÿÿùÿÿÿíÿÿÿøÿÿÿíÿÿÿúÿÿÿçÿÿÿøÿÿÿçÿÿÿùÿÿÿêÿÿÿ	øÿÿÿêÿÿÿ	ùÿÿÿìÿÿÿøÿÿÿìÿÿÿùÿÿÿîÿÿÿ÷ÿÿÿîÿÿÿùÿÿÿëÿÿÿøÿÿÿëÿÿÿùÿÿÿìÿÿÿ÷ÿÿÿìÿÿÿðÿÿÿþÿÿÿ
ñÿÿÿÿÿÿÿõÿÿÿöÿÿÿîÿÿÿ
ïÿÿÿ
óÿÿÿôÿÿÿõÿÿÿöÿÿÿüÿÿÿýÿÿÿóÿÿÿôÿÿÿúÿÿÿûÿÿÿþÿÿÿþÿÿÿüÿÿÿüÿÿÿ␍üÿÿÿüÿÿÿúÿÿÿúÿÿÿþÿÿÿïÿÿÿþÿÿÿüÿÿÿïÿÿÿÿÿÿÿþÿÿÿôÿÿÿúÿÿÿûÿÿÿôÿÿÿúÿÿÿþÿÿÿðÿÿÿüÿÿÿðÿÿÿ
þÿÿÿõÿÿÿûÿÿÿûÿÿÿõÿÿÿüÿÿÿþÿÿÿôÿÿÿúÿÿÿûÿÿÿôÿÿÿúÿÿÿýÿÿÿùÿÿÿõÿÿÿûÿÿÿùÿÿÿöÿÿÿþÿÿÿõÿÿÿûÿÿÿûÿÿÿõÿÿÿüÿÿÿýÿÿÿúÿÿÿ÷ÿÿÿûÿÿÿúÿÿÿøÿÿÿýÿÿÿûÿÿÿóÿÿÿûÿÿÿûÿÿÿóÿÿÿýÿÿÿøÿÿÿúÿÿÿøÿÿÿýÿÿÿøÿÿÿõÿÿÿûÿÿÿøÿÿÿõÿÿÿýÿÿÿýÿÿÿúÿÿÿúÿÿÿýÿÿÿúÿÿÿ




	
+
+	␍␍	␍	
+
+
+	␍␍   ! ""#!%$&&'%! $$%!#"&&'#" $$&"#!%%'#)(**+)-,../-)(,,-)+*../+*(,,.*+)--/+10223154667510445132667320446231557398::;9=<>>?=98<<=9;:>>?;:8<<>:;9==?;A@BBCAEDFFGEA@DDEACBFFGCB@DDFBCAEEGCIHJJKIMLNNOMIHLLMIKJNNOKJHLLNJKIMMOKQPRRSQUTVVWUQPTTUQSRVVWSRPTTVRSQUUWSYXZZ[Y]\^^_]YX\\]Y[Z^^_[ZX\\^Z[Y]]_[a`bbcaedffgea`ddeacbffgcb`ddfbcaeegcihjjkimlnnomihllmikjnnokjhllnjkimmokÊp¨ÝÿÿÿýÿÿÿýÿÿÿÝÿÿÿýÿÿÿáÿÿÿýÿÿÿýÿÿÿáÿÿÿýÿÿÿÝÿÿÿýÿÿÿÝÿÿÿáÿÿÿýÿÿÿáÿÿÿáÿÿÿýÿÿÿûÿÿÿáÿÿÿýÿÿÿðÿÿÿýÿÿÿûÿÿÿðÿÿÿýÿÿÿáÿÿÿûÿÿÿáÿÿÿðÿÿÿûÿÿÿðÿÿÿáÿÿÿþÿÿÿâÿÿÿþÿÿÿèÿÿÿþÿÿÿéÿÿÿþÿÿÿáÿÿÿ
âÿÿÿ
èÿÿÿ
éÿÿÿ
èÿÿÿþÿÿÿéÿÿÿþÿÿÿïÿÿÿþÿÿÿðÿÿÿþÿÿÿèÿÿÿ
éÿÿÿ
ïÿÿÿ
ðÿÿÿ
ïÿÿÿÿÿÿÿðÿÿÿÿÿÿÿ	òÿÿÿÿÿÿÿóÿÿÿÿÿÿÿïÿÿÿðÿÿÿ	òÿÿÿóÿÿÿûÿÿÿâÿÿÿþÿÿÿúÿÿÿâÿÿÿþÿÿÿúÿÿÿéÿÿÿþÿÿÿøÿÿÿéÿÿÿþÿÿÿûÿÿÿâÿÿÿ
úÿÿÿâÿÿÿ
úÿÿÿéÿÿÿ
øÿÿÿéÿÿÿ
úÿÿÿéÿÿÿþÿÿÿøÿÿÿéÿÿÿþÿÿÿùÿÿÿïÿÿÿþÿÿÿøÿÿÿïÿÿÿþÿÿÿúÿÿÿéÿÿÿ
øÿÿÿéÿÿÿ
ùÿÿÿïÿÿÿ
øÿÿÿïÿÿÿ
ùÿÿÿïÿÿÿÿÿÿÿøÿÿÿïÿÿÿÿÿÿÿùÿÿÿòÿÿÿÿÿÿÿ÷ÿÿÿòÿÿÿÿÿÿÿùÿÿÿïÿÿÿøÿÿÿïÿÿÿùÿÿÿòÿÿÿ÷ÿÿÿòÿÿÿïÿÿÿþÿÿÿ
ðÿÿÿþÿÿÿöÿÿÿþÿÿÿ÷ÿÿÿþÿÿÿïÿÿÿ

ðÿÿÿ
öÿÿÿ
÷ÿÿÿ
öÿÿÿþÿÿÿ÷ÿÿÿþÿÿÿýÿÿÿþÿÿÿýÿÿÿþÿÿÿöÿÿÿ
÷ÿÿÿ
ýÿÿÿ
ýÿÿÿ
ÿÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿÿÿþÿÿÿýÿÿÿÿÿÿÿýÿÿÿýÿÿÿþÿÿÿðÿÿÿþÿÿÿüÿÿÿðÿÿÿþÿÿÿþÿÿÿöÿÿÿþÿÿÿûÿÿÿöÿÿÿþÿÿÿþÿÿÿðÿÿÿ
üÿÿÿðÿÿÿ
þÿÿÿöÿÿÿ
ûÿÿÿöÿÿÿ
þÿÿÿöÿÿÿþÿÿÿûÿÿÿöÿÿÿþÿÿÿýÿÿÿýÿÿÿþÿÿÿûÿÿÿýÿÿÿþÿÿÿþÿÿÿöÿÿÿ
ûÿÿÿöÿÿÿ
ýÿÿÿýÿÿÿ
ûÿÿÿýÿÿÿ
ýÿÿÿÿÿÿÿþÿÿÿûÿÿÿÿÿÿÿþÿÿÿýÿÿÿÿÿÿÿúÿÿÿÿÿÿÿýÿÿÿýÿÿÿþÿÿÿûÿÿÿýÿÿÿþÿÿÿýÿÿÿýÿÿÿúÿÿÿýÿÿÿ




	
+
+	␍␍	␍	
+
+
+	␍␍   ! ""#!%$&&'%! $$%!#"&&'#" $$&"#!%%'#)(**+)-,../-)(,,-)+*../+*(,,.*+)--/+10223154667510445132667320446231557398::;9=<>>?=98<<=9;:>>?;:8<<>:;9==?;A@BBCAEDFFGEA@DDEACBFFGCB@DDFBCAEEGCIHJJKIMLNNOMIHLLMIKJNNOKJHLLNJKIMMOKQPRRSQUTVVWUQPTTUQSRVVWSRPTTVRSQUUWSYXZZ[Y]\^^_]YX\\]Y[Z^^_[ZX\\^Z[Y]]_[a`bbcaedffgea`ddeacbffgcb`ddfbcaeegcihjjkimlnnomihllmikjnnokjhllnjkimmok
Êp¨ÝÿÿÿýÿÿÿýÿÿÿÝÿÿÿýÿÿÿáÿÿÿýÿÿÿýÿÿÿáÿÿÿýÿÿÿÝÿÿÿýÿÿÿÝÿÿÿáÿÿÿýÿÿÿáÿÿÿáÿÿÿýÿÿÿûÿÿÿáÿÿÿýÿÿÿðÿÿÿýÿÿÿûÿÿÿðÿÿÿýÿÿÿáÿÿÿûÿÿÿáÿÿÿðÿÿÿûÿÿÿðÿÿÿâÿÿÿþÿÿÿãÿÿÿÿÿÿÿèÿÿÿéÿÿÿàÿÿÿáÿÿÿçÿÿÿèÿÿÿéÿÿÿêÿÿÿìÿÿÿíÿÿÿæÿÿÿçÿÿÿêÿÿÿëÿÿÿ	ìÿÿÿíÿÿÿ		íÿÿÿîÿÿÿêÿÿÿëÿÿÿ		ìÿÿÿíÿÿÿûÿÿÿáÿÿÿÿÿÿÿúÿÿÿáÿÿÿúÿÿÿèÿÿÿûÿÿÿøÿÿÿèÿÿÿüÿÿÿûÿÿÿâÿÿÿ
úÿÿÿâÿÿÿúÿÿÿèÿÿÿýÿÿÿøÿÿÿèÿÿÿþÿÿÿúÿÿÿèÿÿÿûÿÿÿøÿÿÿèÿÿÿüÿÿÿùÿÿÿíÿÿÿøÿÿÿøÿÿÿíÿÿÿùÿÿÿúÿÿÿèÿÿÿýÿÿÿøÿÿÿèÿÿÿþÿÿÿùÿÿÿîÿÿÿúÿÿÿøÿÿÿîÿÿÿûÿÿÿùÿÿÿíÿÿÿùÿÿÿøÿÿÿíÿÿÿúÿÿÿùÿÿÿðÿÿÿøÿÿÿ÷ÿÿÿðÿÿÿøÿÿÿùÿÿÿîÿÿÿúÿÿÿøÿÿÿîÿÿÿúÿÿÿùÿÿÿñÿÿÿøÿÿÿ÷ÿÿÿñÿÿÿùÿÿÿîÿÿÿÿÿÿÿ
ïÿÿÿÿÿÿÿóÿÿÿúÿÿÿôÿÿÿúÿÿÿðÿÿÿ
ñÿÿÿõÿÿÿüÿÿÿöÿÿÿüÿÿÿóÿÿÿúÿÿÿôÿÿÿúÿÿÿøÿÿÿõÿÿÿùÿÿÿõÿÿÿõÿÿÿüÿÿÿöÿÿÿüÿÿÿúÿÿÿ÷ÿÿÿûÿÿÿ÷ÿÿÿúÿÿÿóÿÿÿûÿÿÿôÿÿÿÿÿÿÿøÿÿÿøÿÿÿøÿÿÿõÿÿÿùÿÿÿõÿÿÿýÿÿÿùÿÿÿýÿÿÿúÿÿÿþÿÿÿñÿÿÿÿÿÿÿüÿÿÿñÿÿÿÿÿÿÿþÿÿÿöÿÿÿûÿÿÿöÿÿÿþÿÿÿîÿÿÿüÿÿÿîÿÿÿþÿÿÿóÿÿÿûÿÿÿóÿÿÿþÿÿÿõÿÿÿûÿÿÿõÿÿÿýÿÿÿüÿÿÿûÿÿÿüÿÿÿþÿÿÿôÿÿÿûÿÿÿôÿÿÿýÿÿÿúÿÿÿûÿÿÿúÿÿÿýÿÿÿþÿÿÿûÿÿÿÿÿÿÿýÿÿÿüÿÿÿúÿÿÿýÿÿÿýÿÿÿûÿÿÿûÿÿÿüÿÿÿýÿÿÿùÿÿÿúÿÿÿúÿÿÿ





	
+

+	
␍
␍
	
␍	

+


+

+
	␍
␍   ! ""#!%$&&'%! $$%!#"&&'#" $$&"#!%%'#)(**+)-,../-)(,,-)+*../+*(,,.*+)--/+10223154667510445132667320446231557398::;9=<>>?=98<<=9;:>>?;:8<<>:;9==?;A@BBCAEDFFGEA@DDEACBFFGCB@DDFBCAEEGCIHJJKIMLNNOMIHLLMIKJNNOKJHLLNJKIMMOKQPRRSQUTVVWUQPTTUQSRVVWSRPTTVRSQUUWSYXZZ[Y]\^^_]YX\\]Y[Z^^_[ZX\\^Z[Y]]_[a`bbcaedffgea`ddeacbffgcb`ddfbcaeegcihjjkimlnnomihllmikjnnokjhllnjkimmokÊp¨ÝÿÿÿýÿÿÿýÿÿÿÝÿÿÿýÿÿÿáÿÿÿýÿÿÿýÿÿÿáÿÿÿýÿÿÿÝÿÿÿýÿÿÿÝÿÿÿáÿÿÿýÿÿÿáÿÿÿáÿÿÿýÿÿÿûÿÿÿáÿÿÿýÿÿÿðÿÿÿýÿÿÿûÿÿÿðÿÿÿýÿÿÿáÿÿÿûÿÿÿáÿÿÿðÿÿÿûÿÿÿðÿÿÿáÿÿÿþÿÿÿâÿÿÿþÿÿÿèÿÿÿþÿÿÿéÿÿÿþÿÿÿáÿÿÿ
âÿÿÿ
èÿÿÿ
éÿÿÿ
èÿÿÿþÿÿÿéÿÿÿþÿÿÿïÿÿÿþÿÿÿðÿÿÿþÿÿÿèÿÿÿ
éÿÿÿ
ïÿÿÿ
ðÿÿÿ
ïÿÿÿÿÿÿÿðÿÿÿÿÿÿÿ	òÿÿÿÿÿÿÿóÿÿÿÿÿÿÿïÿÿÿðÿÿÿ	òÿÿÿóÿÿÿûÿÿÿâÿÿÿþÿÿÿúÿÿÿâÿÿÿþÿÿÿúÿÿÿéÿÿÿþÿÿÿøÿÿÿéÿÿÿþÿÿÿûÿÿÿâÿÿÿ
úÿÿÿâÿÿÿ
úÿÿÿéÿÿÿ
øÿÿÿéÿÿÿ
úÿÿÿéÿÿÿþÿÿÿøÿÿÿéÿÿÿþÿÿÿùÿÿÿïÿÿÿþÿÿÿøÿÿÿïÿÿÿþÿÿÿúÿÿÿéÿÿÿ
øÿÿÿéÿÿÿ
ùÿÿÿïÿÿÿ
øÿÿÿïÿÿÿ
ùÿÿÿïÿÿÿÿÿÿÿøÿÿÿïÿÿÿÿÿÿÿùÿÿÿòÿÿÿÿÿÿÿ÷ÿÿÿòÿÿÿÿÿÿÿùÿÿÿïÿÿÿøÿÿÿïÿÿÿùÿÿÿòÿÿÿ÷ÿÿÿòÿÿÿïÿÿÿþÿÿÿ
ðÿÿÿþÿÿÿöÿÿÿþÿÿÿ÷ÿÿÿþÿÿÿïÿÿÿ

ðÿÿÿ
öÿÿÿ
÷ÿÿÿ
öÿÿÿþÿÿÿ÷ÿÿÿþÿÿÿýÿÿÿþÿÿÿýÿÿÿþÿÿÿöÿÿÿ
÷ÿÿÿ
ýÿÿÿ
ýÿÿÿ
ÿÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿÿÿþÿÿÿýÿÿÿÿÿÿÿýÿÿÿýÿÿÿþÿÿÿðÿÿÿþÿÿÿüÿÿÿðÿÿÿþÿÿÿþÿÿÿöÿÿÿþÿÿÿûÿÿÿöÿÿÿþÿÿÿþÿÿÿðÿÿÿ
üÿÿÿðÿÿÿ
þÿÿÿöÿÿÿ
ûÿÿÿöÿÿÿ
þÿÿÿöÿÿÿþÿÿÿûÿÿÿöÿÿÿþÿÿÿýÿÿÿýÿÿÿþÿÿÿûÿÿÿýÿÿÿþÿÿÿþÿÿÿöÿÿÿ
ûÿÿÿöÿÿÿ
ýÿÿÿýÿÿÿ
ûÿÿÿýÿÿÿ
ýÿÿÿÿÿÿÿþÿÿÿûÿÿÿÿÿÿÿþÿÿÿýÿÿÿÿÿÿÿúÿÿÿÿÿÿÿýÿÿÿýÿÿÿþÿÿÿûÿÿÿýÿÿÿþÿÿÿýÿÿÿýÿÿÿúÿÿÿýÿÿÿ





	
+

+	
␍
␍
	
␍	

+


+

+
	␍
␍   ! ""#!%$&&'%! $$%!#"&&'#" $$&"#!%%'#)(**+)-,../-)(,,-)+*../+*(,,.*+)--/+10223154667510445132667320446231557398::;9=<>>?=98<<=9;:>>?;:8<<>:;9==?;A@BBCAEDFFGEA@DDEACBFFGCB@DDFBCAEEGCIHJJKIMLNNOMIHLLMIKJNNOKJHLLNJKIMMOKQPRRSQUTVVWUQPTTUQSRVVWSRPTTVRSQUUWSYXZZ[Y]\^^_]YX\\]Y[Z^^_[ZX\\^Z[Y]]_[a`bbcaedffgea`ddeacbffgcb`ddfbcaeegcihjjkimlnnomihllmikjnnokjhllnjkimmokÊp¨ÝÿÿÿýÿÿÿýÿÿÿÝÿÿÿýÿÿÿáÿÿÿýÿÿÿýÿÿÿáÿÿÿýÿÿÿÝÿÿÿýÿÿÿÝÿÿÿáÿÿÿýÿÿÿáÿÿÿáÿÿÿýÿÿÿûÿÿÿáÿÿÿýÿÿÿðÿÿÿýÿÿÿûÿÿÿðÿÿÿýÿÿÿáÿÿÿûÿÿÿáÿÿÿðÿÿÿûÿÿÿðÿÿÿáÿÿÿâÿÿÿçÿÿÿüÿÿÿèÿÿÿüÿÿÿâÿÿÿ
ãÿÿÿ
èÿÿÿýÿÿÿéÿÿÿýÿÿÿçÿÿÿüÿÿÿèÿÿÿüÿÿÿíÿÿÿùÿÿÿíÿÿÿùÿÿÿèÿÿÿýÿÿÿéÿÿÿýÿÿÿíÿÿÿúÿÿÿîÿÿÿúÿÿÿíÿÿÿùÿÿÿíÿÿÿùÿÿÿ	ðÿÿÿøÿÿÿðÿÿÿøÿÿÿíÿÿÿúÿÿÿîÿÿÿúÿÿÿ	ðÿÿÿùÿÿÿñÿÿÿùÿÿÿûÿÿÿãÿÿÿþÿÿÿúÿÿÿãÿÿÿþÿÿÿúÿÿÿéÿÿÿøÿÿÿéÿÿÿûÿÿÿáÿÿÿúÿÿÿáÿÿÿúÿÿÿçÿÿÿøÿÿÿçÿÿÿúÿÿÿéÿÿÿøÿÿÿéÿÿÿùÿÿÿíÿÿÿøÿÿÿíÿÿÿúÿÿÿçÿÿÿøÿÿÿçÿÿÿùÿÿÿêÿÿÿ	øÿÿÿêÿÿÿ	ùÿÿÿìÿÿÿøÿÿÿìÿÿÿùÿÿÿîÿÿÿ÷ÿÿÿîÿÿÿùÿÿÿëÿÿÿøÿÿÿëÿÿÿùÿÿÿìÿÿÿ÷ÿÿÿìÿÿÿðÿÿÿþÿÿÿ
ñÿÿÿÿÿÿÿõÿÿÿöÿÿÿîÿÿÿ
ïÿÿÿ
óÿÿÿôÿÿÿõÿÿÿöÿÿÿüÿÿÿýÿÿÿóÿÿÿôÿÿÿúÿÿÿûÿÿÿþÿÿÿþÿÿÿüÿÿÿüÿÿÿ␍üÿÿÿüÿÿÿúÿÿÿúÿÿÿþÿÿÿïÿÿÿþÿÿÿüÿÿÿïÿÿÿÿÿÿÿþÿÿÿôÿÿÿúÿÿÿûÿÿÿôÿÿÿúÿÿÿþÿÿÿðÿÿÿüÿÿÿðÿÿÿ
þÿÿÿõÿÿÿûÿÿÿûÿÿÿõÿÿÿüÿÿÿþÿÿÿôÿÿÿúÿÿÿûÿÿÿôÿÿÿúÿÿÿýÿÿÿùÿÿÿõÿÿÿûÿÿÿùÿÿÿöÿÿÿþÿÿÿõÿÿÿûÿÿÿûÿÿÿõÿÿÿüÿÿÿýÿÿÿúÿÿÿ÷ÿÿÿûÿÿÿúÿÿÿøÿÿÿýÿÿÿûÿÿÿóÿÿÿûÿÿÿûÿÿÿóÿÿÿýÿÿÿøÿÿÿúÿÿÿøÿÿÿýÿÿÿøÿÿÿõÿÿÿûÿÿÿøÿÿÿõÿÿÿýÿÿÿýÿÿÿúÿÿÿúÿÿÿýÿÿÿúÿÿÿ





	
+

+	
␍
␍
	
␍	

+


+

+
	␍
␍   ! ""#!%$&&'%! $$%!#"&&'#" $$&"#!%%'#)(**+)-,../-)(,,-)+*../+*(,,.*+)--/+10223154667510445132667320446231557398::;9=<>>?=98<<=9;:>>?;:8<<>:;9==?;A@BBCAEDFFGEA@DDEACBFFGCB@DDFBCAEEGCIHJJKIMLNNOMIHLLMIKJNNOKJHLLNJKIMMOKQPRRSQUTVVWUQPTTUQSRVVWSRPTTVRSQUUWSYXZZ[Y]\^^_]YX\\]Y[Z^^_[ZX\\^Z[Y]]_[a`bbcaedffgea`ddeacbffgcb`ddfbcaeegcihjjkimlnnomihllmikjnnokjhllnjkimmok

TempleOSCD/Demo/Games/Whap.HC

@@ -0,0 +1,173 @@
+#define BALLS_NUM	7
+#define SPRINGS_NUM	3
+
+#define STRETCH 	500.0
+#define GRAVITY 	50.0 //not really gravity
+#define BALL_RADIUS	5
+#define BASE_SIZE	10
+
+CMass balls[BALLS_NUM];
+CSpring springs[SPRINGS_NUM];
+F64 collision_t;
+
+U0 DrawIt(CTask *task,CDC *dc)
+{
+  I64 i,
+	cx=task->pix_width>>1,
+	cy=task->pix_height>>1;
+  Bool snd_on=FALSE;
+  dc->color=BLACK;
+  GrPrint(dc,0,0,"Protect your base.");
+  GrRect(dc,cx-BASE_SIZE,cy-BASE_SIZE,BASE_SIZE*2,BASE_SIZE*2);
+  dc->color=CYAN;
+  GrRect(dc,cx-BASE_SIZE+2,cy-BASE_SIZE+2,BASE_SIZE*2-4,BASE_SIZE*2-4);
+  dc->color=YELLOW;
+  GrLine(dc,balls[0].x,balls[0].y,
+	ms.pos.x-task->pix_left-task->scroll_x,
+	ms.pos.y-task->pix_top-task->scroll_y);
+  for (i=0;i<SPRINGS_NUM;i++)
+    GrLine(dc,springs[i].end1->x,springs[i].end1->y,
+	  springs[i].end2->x,springs[i].end2->y);
+
+  dc->color=LTCYAN;
+  GrCircle(dc,balls[0].x,balls[0].y,BALL_RADIUS);
+  GrFloodFill(dc,balls[0].x,balls[0].y,TRUE);
+  dc->color=BLACK;
+  GrCircle(dc,balls[0].x,balls[0].y,BALL_RADIUS);
+
+  for (i=1;i<BALLS_NUM;i++) {
+    dc->color=LTPURPLE;
+    GrCircle(dc,balls[i].x,balls[i].y,BALL_RADIUS);
+    GrFloodFill(dc,balls[i].x,balls[i].y,TRUE);
+    if (cx-BASE_SIZE-BALL_RADIUS<=balls[i].x<=cx+BASE_SIZE+BALL_RADIUS &&
+	  cy-BASE_SIZE-BALL_RADIUS<=balls[i].y<=cy+BASE_SIZE+BALL_RADIUS)
+      snd_on=TRUE;
+    dc->color=BLACK;
+    GrCircle(dc,balls[i].x,balls[i].y,BALL_RADIUS);
+  }
+  if (snd_on)
+    Snd(74);
+  else
+    Snd;
+}
+
+U0 MyDerivative(CMathODE *ode,F64 t,COrder2D3 *,COrder2D3 *)
+{
+  I64 i,j;
+  F64 d,dd;
+  CD3 p,p2;
+  CTask *task=ode->win_task;
+
+  D3SubEqu(D3Equ(&p2,
+	ms.pos.x-task->pix_left-task->scroll_x,
+	ms.pos.y-task->pix_top-task->scroll_y,0),
+	&balls[0].state->x);
+  D3AddEqu(&balls[0].DstateDt->DxDt,D3MulEqu(&p2,STRETCH));
+
+  D3Equ(&p2,task->pix_width>>1,task->pix_height>>1,0);
+  for (i=1;i<BALLS_NUM;i++) {
+    D3Sub(&p,&p2,&balls[i].state->x);
+    if (d=D3Norm(&p)) {
+//Gravity would be /(d*d*d), but that's too exponential.
+      D3MulEqu(&p,GRAVITY/d);
+      D3AddEqu(&balls[i].DstateDt->DxDt,&p);
+    }
+  }
+
+  for (i=0;i<BALLS_NUM;i++)
+    for (j=i+1;j<BALLS_NUM;j++) {
+      D3Sub(&p,&balls[j].state->x,&balls[i].state->x);
+      dd=D3NormSqr(&p);
+      if (dd<=(2*BALL_RADIUS)*(2*BALL_RADIUS)) {
+	if (t-collision_t>0.05) {
+	  Noise(50,102,105);
+	  collision_t=t;
+	}
+	d=Sqrt(dd)+0.0001;
+	dd=10.0*Sqr(Sqr((2*BALL_RADIUS)*(2*BALL_RADIUS)-dd));
+	D3MulEqu(&p,dd/d);
+	D3AddEqu(&balls[j].DstateDt->DxDt,&p);
+	D3SubEqu(&balls[i].DstateDt->DxDt,&p);
+      }
+    }
+
+  d=balls[0].state->x;
+  if (d-BALL_RADIUS<0)
+    balls[0].DstateDt->DxDt+=Sqr(Sqr(Sqr(d-BALL_RADIUS)));
+  if (d+BALL_RADIUS>task->pix_width)
+    balls[0].DstateDt->DxDt-=Sqr(Sqr(Sqr((d+BALL_RADIUS)-task->pix_width)));
+
+  d=balls[0].state->y;
+  if (d-BALL_RADIUS<0)
+    balls[0].DstateDt->DyDt+=Sqr(Sqr(Sqr(d-BALL_RADIUS)));
+  if (d+BALL_RADIUS>task->pix_height)
+    balls[0].DstateDt->DyDt-=Sqr(Sqr(Sqr((d+BALL_RADIUS)-task->pix_height)));
+}
+
+U0 Whap()
+{
+  I64 i;
+  CMathODE *ode=ODENew(0,1e-2,ODEF_HAS_MASSES);
+
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  AutoComplete;
+  WinBorder;
+  WinMax;
+
+  MenuPush(
+	"File {"
+	"  Abort(,CH_SHIFT_ESC);"
+	"  Exit(,CH_ESC);"
+	"}"
+	);
+  ode->derivative=&MyDerivative;
+  ode->drag_v2=0.002;
+  ode->drag_v3=0.00001;
+  ode->acceleration_limit=5e3;
+  MemSet(balls,0,BALLS_NUM*sizeof(CMass));
+  D3Equ(&balls[0].x,100,100,0);
+  for (i=1;i<BALLS_NUM;i++)
+    D3Equ(&balls[i].x,
+	  RandI16%500+Fs->pix_width>>1,RandI16%500+Fs->pix_height>>1,0);
+  balls[0].x=ms.pos.x-Fs->pix_left-Fs->scroll_x;
+  balls[0].y=ms.pos.y-Fs->pix_top-Fs->scroll_y;
+  for (i=0;i<BALLS_NUM;i++) {
+    balls[i].mass=1.0;
+    balls[i].drag_profile_factor=1.0;
+    QueIns(&balls[i],ode->last_mass);
+  }
+  balls[2].x=balls[1].x+15;
+  balls[2].y=balls[1].y;
+  balls[3].x=balls[1].x;
+  balls[3].y=balls[1].y+15;
+  MemSet(springs,0,SPRINGS_NUM*sizeof(CSpring));
+  springs[0].end1=&balls[1];
+  springs[0].end2=&balls[2];
+  springs[0].rest_len=15;
+  springs[0].const=10000;
+  QueIns(&springs[0],ode->last_spring);
+  springs[1].end1=&balls[1];
+  springs[1].end2=&balls[3];
+  springs[1].rest_len=15;
+  springs[1].const=10000;
+  QueIns(&springs[1],ode->last_spring);
+  springs[2].end1=&balls[2];
+  springs[2].end2=&balls[3];
+  springs[2].rest_len=sqrt2*15;
+  springs[2].const=10000;
+  QueIns(&springs[2],ode->last_spring);
+
+  collision_t=0;
+  QueIns(ode,Fs->last_ode);
+
+  DocCursor;
+  DocClear;
+  Fs->draw_it=&DrawIt;
+  GetChar;
+  SettingsPop;
+  QueRem(ode);
+  ODEDel(ode);
+  MenuPop;
+}
+
+Whap;