TempleOSTS_130707.ISO

TempleOS/Demo/Games/Maze.CPP

@@ -0,0 +1,107 @@
+//See $LK,"ExtScreenCodes","FA:::/TempleOS/Adam/Gr/GrScreen.CPP,ExtScreenCodes"$
+
+#define ATTR (BLACK<<12+WHITE<<8)
+
+U32 text[TEXT_ROWS][TEXT_COLS];
+
+#define STK_SIZE 2048
+//We would put these as local vars
+//In SolveMaze() except the system stk size
+//is limited.  The heap is the normal TempleOS
+//technique, but it's a pain in this case.
+I64 stk_ptr;
+I16 stk_x[STK_SIZE];
+I16 stk_y[STK_SIZE];
+I16 stk_dir[STK_SIZE];
+
+U0 DrawIt(CTask *task,CDC *)
+{
+  I64 i,j;
+  for (j=0;j<TEXT_ROWS;j++)
+    for (i=0;i<TEXT_COLS;i++)
+  PlotWinU8(task,text[j][i],i,j);
+  PlotWinStr(task,"Draw a maze with left button.",ATTR>>8,0,0);
+  PlotWinStr(task,"Solve maze starting at right click.",ATTR>>8,0,1);
+}
+
+//Four directions:
+//  0=Up,1=right,2=down,3=left
+I64 dir_x[4]={ 0,+1, 0,-1},
+    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)
+	ThrowBreak;
+    }
+  }
+}
+
+U0 Maze()
+{
+  I64 ch,x,y;
+
+  SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
+  WinMax;
+  WordStat;
+  DocCursor;
+  DocClear;
+  Fs->draw_it=&DrawIt;
+  Fs->win_inhibit=WIF_ALL-WIF_BORDER;
+
+try
+  do {
+    MemSet(text,0,sizeof(text));
+    while (!(ch=ScanChar)) {
+//Input Ptr (mouse) text x,y coordinates.
+      x=iptx-Fs->win_left-Fs->win_scroll_x/FONT_WIDTH;
+      y=ipty-Fs->win_top-Fs->win_scroll_y/FONT_HEIGHT;
+      if (ip_lb&&!win_grab_scroll)
+	text[y][x]=CH_SPACE+ATTRF_INVERT+ATTR;
+      if (ip_rb&&!win_grab_scroll) {
+	text[y][x]='*'+ATTR;
+	SolveMaze(x,y);
+	ch=GetChar;
+	break;
+      }
+      WinMgrSync;
+    }
+  } while (ch!=CH_SHIFT_ESC && ch!=CH_ESC);
+catch
+  CatchAll;
+  SettingsPop;
+}
+
+Maze;