home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / games / volume1 / sidtool / part01 next >
Internet Message Format  |  1987-05-15  |  59KB
  1. Path: seismo!husc6!mit-eddie!uw-beaver!tektronix!tekgen!tekred!games-request
  2. From: games-request@tekred.TEK.COM
  3. Newsgroups: comp.sources.games
  4. Subject: v01i018:  sidtool - pacman game for Suns, Part01/05
  5. Message-ID: <1216@tekred.TEK.COM>
  6. Date: 15 May 87 23:39:07 GMT
  7. Sender: billr@tekred.TEK.COM
  8. Lines: 2042
  9. Approved: billr@tekred.TEK.COM
  10.  
  11. Submitted by: Rich Burridge <munnari!sunk.oz!richb@seismo.css.gov>
  12. Comp.sources.games: Volume 1, Issue 18
  13. Archive-name: sidtool/Part01
  14.  
  15.     [I've actually tried this on our Sun50.  It's pretty neat.
  16.      This version *includes* the first official patch for the
  17.      game.  Note that the default is for the support files to
  18.      be in the same directory as the game.  Edit "sidtool.h"
  19.      if you want to change this.  Note also that the mouse
  20.      cursor has to be inside the sidtool window for it to
  21.      recognize the DEL key.   -br]
  22.  
  23. #! /bin/sh
  24. # This is a shell archive.  Remove anything before this line, then unpack
  25. # it by saving it into a file and typing "sh file".  To overwrite existing
  26. # files, type "sh file -c".  You can also feed this as standard input via
  27. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  28. # will see the following message at the end:
  29. #        "End of archive 1 (of 5)."
  30. # Contents:  README MANIFEST images images/animate.c release sid_blt.c
  31. #   sid_main.c
  32. # Wrapped by billr@tekred on Tue May 12 09:16:27 1987
  33. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  34. if test -f README -a "${1}" != "-c" ; then 
  35.   echo shar: Will not over-write existing file \"README\"
  36. else
  37. echo shar: Extracting \"README\" \(1865 characters\)
  38. sed "s/^X//" >README <<'END_OF_README'
  39. X
  40. X  Welcome to sidtool version 2.1.  -  April 1987.
  41. X
  42. XThis software is the second major release of the Sun Interactive
  43. XDebugger program, better known as sidtool. It probably still
  44. Xcontains bugs (and features). Should you find any of these, I
  45. Xwould be pleased to hear about them, and try to remove them.
  46. X
  47. XThis software will only work correctly with SunOS v3.2 or later.
  48. XWith a small effort, it could probably be made to run under v3.0,
  49. Xbut this is not supported.
  50. X
  51. XSETUP.
  52. XNote there is a #define in sidtool.h called SPEED. Experimentation
  53. Xwith this should give a better timing for other machines such as 
  54. XSun2s and the 3/260s.
  55. X
  56. XUnpack these files into a directory, alter the BINDIR line in
  57. Xthe top level Makefile to be where you want the sidtool release
  58. Xto be put, and type "make install".
  59. X
  60. XDISCLAIMER.
  61. XThis software was developed and tested on a 3/50. It is recognised
  62. Xthat this software runs slowly on Sun2s, and that there are
  63. Xprobably timing problems on other Sun3s. If you find a good pause
  64. Xfactor, please let me know.
  65. X
  66. XOPTIONS.
  67. XThere are a few command line options for alternately specifying
  68. Xwhere some of the files used by sidtool can be found. These are:
  69. X
  70. X -afilename   -  New animate filename.
  71. X -cspeed      -  New class (speed) of machine.
  72. X -d           -  Run in self demonstration mode.
  73. X -hfilename   -  New help filename.
  74. X -mfilename   -  New maze filename.
  75. X -sfilename   -  New high score filename.
  76. X
  77. XThe replacement filenames can also be specified by environment
  78. Xvariables. These are:
  79. X
  80. X SID_MAZE    -  New maze filename.
  81. X SID_ANIMATE -  New animate filename.
  82. X SID_SCORE   -  New high score filename.
  83. X SID_HELP    -  New help filename.
  84. X
  85. XKNOWN BUGS AND FEATURES:    None known.
  86. X
  87. XHave fun,
  88. X
  89. X  Rich Burridge,         SUN Microsystems Australia (Melbourne).
  90. X  Tel:  +61 59 962672.   UUCP:  sun!sunaus!sunk!richb
  91. X                         ACSnet:  richb@sunk.oz
  92. END_OF_README
  93. if test 1865 -ne `wc -c <README`; then
  94.     echo shar: \"README\" unpacked with wrong size!
  95. fi
  96. # end of overwriting check
  97. fi
  98. if test -f MANIFEST -a "${1}" != "-c" ; then 
  99.   echo shar: Will not over-write existing file \"MANIFEST\"
  100. else
  101. echo shar: Extracting \"MANIFEST\" \(2394 characters\)
  102. sed "s/^X//" >MANIFEST <<'END_OF_MANIFEST'
  103. X   File Name        Archive #    Description
  104. X-----------------------------------------------------------
  105. X INTRO                     4    
  106. X MANIFEST                  1    This shipping list
  107. X Makefile                  4    
  108. X README                    1    
  109. X README_v30                4    
  110. X TO_DO                     5    
  111. X bltstuff.h                4    
  112. X images                    1    
  113. X images/BASHFUL0.pic       3    
  114. X images/BASHFUL1.pic       3    
  115. X images/Makefile           2    
  116. X images/POKEY0.pic         4    
  117. X images/POKEY1.pic         4    
  118. X images/SHADOW0.pic        4    
  119. X images/SHADOW1.pic        4    
  120. X images/SPEEDY0.pic        4    
  121. X images/SPEEDY1.pic        4    
  122. X images/animate.c          1    
  123. X images/blueghost0.pic     3    
  124. X images/blueghost1.pic     2    
  125. X images/bluepics0.pic      3    
  126. X images/bluepics1.pic      3    
  127. X images/cirDOWN0.pic       3    
  128. X images/cirDOWN1.pic       3    
  129. X images/cirDOWN2.pic       3    
  130. X images/cirDOWN3.pic       3    
  131. X images/cirLEFT0.pic       3    
  132. X images/cirLEFT1.pic       3    
  133. X images/cirLEFT2.pic       3    
  134. X images/cirLEFT3.pic       3    
  135. X images/cirRIGHT0.pic      3    
  136. X images/cirRIGHT1.pic      3    
  137. X images/cirRIGHT2.pic      3    
  138. X images/cirRIGHT3.pic      3    
  139. X images/cirUP0.pic         4    
  140. X images/cirUP1.pic         4    
  141. X images/cirUP2.pic         4    
  142. X images/cirUP3.pic         4    
  143. X images/circleexplode0.pic 2    
  144. X images/circleexplode1.pic 2    
  145. X images/circleexplode2.pic 2    
  146. X images/circleexplode3.pic 2    
  147. X images/circleexplode4.pic 2    
  148. X images/circleexplode5.pic 2    
  149. X images/circleexplode6.pic 2    
  150. X images/circleexplode7.pic 2    
  151. X images/circleexplode8.pic 2    
  152. X images/cornerDL.pic       4    
  153. X images/cornerLU.pic       3    
  154. X images/cornerRD.pic       3    
  155. X images/cornerUR.pic       3    
  156. X images/eyesDOWN.pic       3    
  157. X images/eyesLEFT.pic       3    
  158. X images/eyesRIGHT.pic      3    
  159. X images/eyesUP.pic         4    
  160. X images/fruit1.pic         4    
  161. X images/fruit2.pic         4    
  162. X images/fruit3.pic         4    
  163. X images/fruit4.pic         4    
  164. X images/fruit5.pic         4    
  165. X images/fruit6.pic         4    
  166. X images/fruit7.pic         4    
  167. X images/fruit8.pic         4    
  168. X images/picbigdot.pic      3    
  169. X images/picsmalldot.pic    2    
  170. X main.cursor               5    
  171. X patchlevel.h              4    
  172. X release                   1    
  173. X sid_blt.c                 1    
  174. X sid_main.c                1    
  175. X sid_stuff.c               2    
  176. X sid_sun.c                 2    
  177. X sidtool.h                 2    
  178. X sidtool.help              4    
  179. X sidtool.icon              4    
  180. X sidtool.maze              2    
  181. END_OF_MANIFEST
  182. if test 2394 -ne `wc -c <MANIFEST`; then
  183.     echo shar: \"MANIFEST\" unpacked with wrong size!
  184. fi
  185. # end of overwriting check
  186. fi
  187. if test ! -d images ; then
  188.     echo shar: Creating directory \"images\"
  189.     mkdir images
  190. fi
  191. if test -f images/animate.c -a "${1}" != "-c" ; then 
  192.   echo shar: Will not over-write existing file \"images/animate.c\"
  193. else
  194. echo shar: Extracting \"images/animate.c\" \(4180 characters\)
  195. sed "s/^X//" >images/animate.c <<'END_OF_images/animate.c'
  196. X
  197. X/*  animate.c
  198. X *
  199. X *  Make the debugger.animate file from the individual icons.
  200. X *  Written by Rich Burridge - Sun Microsystems Australia (Melbourne).
  201. X *
  202. X *  Version 2.1.  -  April 1987.
  203. X *
  204. X *  No responsibility is taken for any errors or inaccuracies inherent
  205. X *  either to the comments or the code of this program, but if reported
  206. X *  to me, then an attempt will be made to fix them.
  207. X */
  208. X
  209. X#include <stdio.h>
  210. X#include <strings.h>
  211. X#include <errno.h>
  212. X
  213. X#define  CLOSE    (void) close      /* To make lint happy. */
  214. X#define  FCLOSE   (void) fclose
  215. X#define  FPRINTF  (void) fprintf
  216. X#define  SSCANF   (void) sscanf
  217. X#define  STRCPY   (void) strcpy
  218. X#define  STRNCPY  (void) strncpy
  219. X#define  WRITE    (void) write
  220. X
  221. X#define  BUFSIZE  512               /* Output buffer size in characters. */
  222. X#define  MAXLINE  256               /* Maximum length of character string. */
  223. X
  224. Xextern int errno ;
  225. X
  226. Xchar progname[MAXLINE] ;            /* Name of this program. */
  227. Xchar filename[MAXLINE] ;            /* Name of the sidtool animate file. */
  228. X
  229. Xint fd ;                            /* File descriptor for animate data. */
  230. X
  231. X
  232. Xgetline(fd,s)      /* Checks each character, and ignore's it if its NULL. */
  233. XFILE *fd ;
  234. Xchar s[MAXLINE] ;
  235. X
  236. X{
  237. X  int c,i ;
  238. X
  239. X  i = 0 ;
  240. X  while (i < MAXLINE-1 && (c = getc(fd)) != EOF && c != '\n')
  241. X  if (c != '\0') s[i++] = c ;
  242. X
  243. X  if (c == EOF) return ;
  244. X  if (c == '\n') s[i++] = c ;
  245. X  s[i] = '\0' ;
  246. X}
  247. X
  248. X
  249. Xload_cursor(name)
  250. Xchar name[MAXLINE] ;
  251. X
  252. X{
  253. X  unsigned short buf[BUFSIZE/2] ;
  254. X  int i,j,temp ;
  255. X  char arg[MAXLINE],line[MAXLINE] ;
  256. X  FILE *fin,*fopen() ;
  257. X
  258. X  if ((fin = fopen(name,"r")) == NULL)
  259. X    {
  260. X      FPRINTF(stderr,"%s: can't open %s.\n",progname,name) ;
  261. X      exit(1) ;
  262. X    }
  263. X  getline(fin,line) ;
  264. X  getline(fin,line) ;
  265. X  for (i = 0; i < 32; i++)
  266. X    {
  267. X      getline(fin,line) ;
  268. X      for (j = 0; j < 8; j++)
  269. X        {
  270. X          STRNCPY(&arg[0],&line[j*7+3],4) ;
  271. X          arg[4] = '\0' ;
  272. X          SSCANF(arg,"%X",&temp) ;
  273. X          buf[i*8+j] = (short) temp ;
  274. X        }
  275. X    }
  276. X  WRITE(fd,(char *) buf,BUFSIZE) ;
  277. X  FCLOSE(fin) ;
  278. X}
  279. X
  280. X
  281. X/*ARGSUSED*/
  282. Xmain(argc,argv)
  283. Xint argc ;
  284. Xchar *argv[] ;
  285. X
  286. X{
  287. X  STRCPY(progname,argv[0]) ;
  288. X  STRCPY(filename,"sidtool.animate") ;
  289. X  if ((fd = open(filename,2)) == -1)
  290. X    if ((fd = creat(filename,0777)) == -1)
  291. X      {
  292. X        FPRINTF(stderr,"\n%s: unable to create %s.\n",progname,filename) ;
  293. X        exit(1) ;
  294. X      }
  295. X
  296. X  load_cursor("cornerUR.pic") ;
  297. X  load_cursor("cornerRD.pic") ;
  298. X  load_cursor("cornerDL.pic") ;
  299. X  load_cursor("cornerLU.pic") ;
  300. X
  301. X  load_cursor("picbigdot.pic") ;
  302. X  load_cursor("picsmalldot.pic") ;
  303. X
  304. X  load_cursor("cirRIGHT0.pic") ;
  305. X  load_cursor("cirRIGHT1.pic") ;
  306. X  load_cursor("cirRIGHT2.pic") ;
  307. X  load_cursor("cirRIGHT3.pic") ;
  308. X
  309. X  load_cursor("cirUP0.pic") ;
  310. X  load_cursor("cirUP1.pic") ;
  311. X  load_cursor("cirUP2.pic") ;
  312. X  load_cursor("cirUP3.pic") ;
  313. X
  314. X  load_cursor("cirLEFT0.pic") ;
  315. X  load_cursor("cirLEFT1.pic") ;
  316. X  load_cursor("cirLEFT2.pic") ;
  317. X  load_cursor("cirLEFT3.pic") ;
  318. X
  319. X  load_cursor("cirDOWN0.pic") ;
  320. X  load_cursor("cirDOWN1.pic") ;
  321. X  load_cursor("cirDOWN2.pic") ;
  322. X  load_cursor("cirDOWN3.pic") ;
  323. X
  324. X  load_cursor("POKEY0.pic") ;
  325. X  load_cursor("POKEY1.pic") ;
  326. X
  327. X  load_cursor("BASHFUL0.pic") ;
  328. X  load_cursor("BASHFUL1.pic") ;
  329. X
  330. X  load_cursor("SPEEDY0.pic") ;
  331. X  load_cursor("SPEEDY1.pic") ;
  332. X
  333. X  load_cursor("SHADOW0.pic") ;
  334. X  load_cursor("SHADOW1.pic") ;
  335. X
  336. X  load_cursor("blueghost0.pic") ;
  337. X  load_cursor("blueghost1.pic") ;
  338. X
  339. X  load_cursor("bluepics0.pic") ;
  340. X  load_cursor("bluepics1.pic") ;
  341. X
  342. X  load_cursor("eyesRIGHT.pic") ;
  343. X  load_cursor("eyesUP.pic") ;
  344. X  load_cursor("eyesLEFT.pic") ;
  345. X  load_cursor("eyesDOWN.pic") ;
  346. X
  347. X  load_cursor("circleexplode0.pic") ;
  348. X  load_cursor("circleexplode1.pic") ;
  349. X  load_cursor("circleexplode2.pic") ;
  350. X  load_cursor("circleexplode3.pic") ;
  351. X  load_cursor("circleexplode4.pic") ;
  352. X  load_cursor("circleexplode5.pic") ;
  353. X  load_cursor("circleexplode6.pic") ;
  354. X  load_cursor("circleexplode7.pic") ;
  355. X  load_cursor("circleexplode8.pic") ;
  356. X
  357. X  load_cursor("fruit1.pic") ;
  358. X  load_cursor("fruit2.pic") ;
  359. X  load_cursor("fruit3.pic") ;
  360. X  load_cursor("fruit4.pic") ;
  361. X  load_cursor("fruit5.pic") ;
  362. X  load_cursor("fruit6.pic") ;
  363. X  load_cursor("fruit7.pic") ;
  364. X  load_cursor("fruit8.pic") ;
  365. X  CLOSE(fd) ;
  366. X}
  367. END_OF_images/animate.c
  368. if test 4180 -ne `wc -c <images/animate.c`; then
  369.     echo shar: \"images/animate.c\" unpacked with wrong size!
  370. fi
  371. # end of overwriting check
  372. fi
  373. if test ! -d release ; then
  374.     echo shar: Creating directory \"release\"
  375.     mkdir release
  376. fi
  377. if test -f sid_blt.c -a "${1}" != "-c" ; then 
  378.   echo shar: Will not over-write existing file \"sid_blt.c\"
  379. else
  380. echo shar: Extracting \"sid_blt.c\" \(21194 characters\)
  381. sed "s/^X//" >sid_blt.c <<'END_OF_sid_blt.c'
  382. X
  383. X/*  sid_blt.c
  384. X *
  385. X *  Various routines that do "rasterop" type graphics used by sidtool.
  386. X *
  387. X *  Written by Rich Burridge - SUN Microsystems Australia (Melbourne).
  388. X *
  389. X *  Version 2.1.  -  April 1987.
  390. X *
  391. X *  No responsibility is taken for any errors inherent either to the code
  392. X *  or the comments of this program, but if reported to me then an attempt
  393. X *  will be made to fix them.
  394. X */
  395. X
  396. X#include <stdio.h>
  397. X#include <strings.h>
  398. X#include <setjmp.h>
  399. X#include "bltstuff.h"
  400. X#include "sidtool.h"
  401. X#include <sys/types.h>
  402. X#include <sys/timeb.h>
  403. X#include <suntool/sunview.h>
  404. X#include <suntool/canvas.h>
  405. X
  406. Xextern jmp_buf exception ;
  407. Xextern int val ;
  408. X
  409. Xextern Pixfont *pf ;
  410. Xextern Pixwin *pw ;
  411. X
  412. X/* For descriptions of these variables, see sid_main.c */
  413. X
  414. Xextern BOOLEAN autoplay,demomode,remove ;
  415. X
  416. Xextern char a_name[MAXLINE],buffer[MAXLINE],but_names[7][8],h_name[MAXLINE] ;
  417. Xextern char m_name[MAXLINE],maze[XSIZE+2][YSIZE+2],names[4][MAXLINE],sc ;
  418. Xextern char titlestring[MAXLINE] ;
  419. X
  420. Xextern int autoscore,blueblink,blueincblink,boxx,boxy,button,c,circatchup ;
  421. Xextern int cirmx,cirmy,cirx,ciry,count,credits,curbluetime[MAXNUMPLAYERS+1] ;
  422. Xextern int curdir,dots[MAXNUMPLAYERS+1][XSIZE+4][YSIZE+2],dotx,doty ;
  423. Xextern int fruitchances[MAXNUMPLAYERS+1],fruiton,fruittime,fruitx,fruity ;
  424. Xextern int fruitmaze[MAXNUMPLAYERS+1],g,gamestate,height,highplayer ;
  425. Xextern int highscore,inc,movei,movej,movex,newdir,numcir[MAXNUMPLAYERS+1] ;
  426. Xextern int numdots[MAXNUMPLAYERS+1],nx,ny,oldcurdir,oldcx,oldcy,orgx,orgy ;
  427. Xextern int pausetime,player,posx,posy,progstate,score[MAXNUMPLAYERS+1] ;
  428. Xextern int sfunc,skilllevel,speed,tunnel[XSIZE+4][YSIZE+2],walls[XSIZE+6][YSIZE+1] ;
  429. Xextern int width,x,y ;
  430. X
  431. Xextern Pixrect *load_picture() ;
  432. Xextern long random() ;
  433. X
  434. Xextern Pixrect *bigdot,*bluebug[2],*bluepics[2],*bugpics[4][2],*circleexplode[9] ;
  435. Xextern Pixrect *circles[4][4],*corner[4],*curcircle,*eyes[4],*fruitpics[9] ;
  436. Xextern Pixrect *smalldot ;
  437. X
  438. Xextern struct bugrec  bugs[4] ;         /* The bad guys. */
  439. Xextern struct scorerec allhighscores[11] ;
  440. Xextern struct startrec startpos[4] ;
  441. X
  442. X
  443. Xclear_screen()
  444. X
  445. X{
  446. X  BLT_SCRN(orgx,orgy,width,height,RCLR) ;
  447. X
  448. X/*  To get over displaying the last cursor incorrectly after a cleared screen,
  449. X *  the old cursor position is forced off the screen.
  450. X */
  451. X
  452. X  oldcx = 1000 ;
  453. X  oldcy = 1000 ;
  454. X}
  455. X
  456. X
  457. Xddrawline(mx,my,dir)
  458. Xint mx,my,dir ;
  459. X
  460. X/*  Draw a maze line from mx,my in the direction dir.
  461. X *  Parameters: dir should be d,u,l,r, (or R for a thin line).
  462. X */
  463. X
  464. X{
  465. X  int x,y ;
  466. X
  467. X  TRANSPT(mx,my,x,y) ;
  468. X  switch (dir)
  469. X    {
  470. X      case 'd' :
  471. X      case 'u' : BLT_SCRN(x+SQUARE/2,y,2,SQUARE,RSET) ;
  472. X                 break ;
  473. X      case 'l' :
  474. X      case 'r' : BLT_SCRN(x,y+SQUARE/2,SQUARE,2,RSET) ;
  475. X                 break ;
  476. X      case 'R' : BLT_SCRN(x,y+SQUARE/2,SQUARE,1,RSET) ;
  477. X    }
  478. X}
  479. X
  480. X
  481. Xdrawbug(g)
  482. Xregister struct bugrec *g ;
  483. X 
  484. X{
  485. X  int inc,winc ;
  486. X 
  487. X  inc = g->scrx - GOFFSET ;
  488. X  winc = 0 ;
  489. X 
  490. X  if (inc < 0)
  491. X    if (inc <= 45) return ;
  492. X    else  winc = inc ;
  493. X  else if (inc > SWIDTH-45)
  494. X    if (inc > SWIDTH - 1) return ;
  495. X    else
  496. X      {
  497. X        winc = SWIDTH-45-inc ;
  498. X        inc = 0 ;
  499. X      }
  500. X  else inc = 0 ;
  501. X
  502. X  if (g->eyesonly)
  503. X    {
  504. X      BLT_MEM_TO_SCRN(g->scrx-GOFFSET-inc,g->scry-GOFFSET,
  505. X                      45+winc,21,RXOR,eyes[g->dir],-inc,0) ;
  506. X/* Fake BLT to get speed same. */
  507. X      BLT_MEM(bugpics[GIND(g)][g->pic],0,0,45+winc,21,RRPL,
  508. X              bugpics[GIND(g)][g->pic],0,0) ;
  509. X    }
  510. X  else if (g->bluetime > 0)
  511. X    {
  512. X      if ((g->bluetime < blueblink) &&
  513. X          (g->bluetime % blueincblink > blueincblink / 2))
  514. X        BLT_MEM_TO_SCRN(g->scrx-GOFFSET-inc,g->scry-GOFFSET,
  515. X                        45+winc,45,RXOR,bluepics[g->pic],-inc,0) ;
  516. X      else
  517. X        BLT_MEM_TO_SCRN(g->scrx-GOFFSET-inc,g->scry-GOFFSET,
  518. X                        45+winc,45,RXOR,bluebug[g->pic],-inc,0) ;
  519. X/* Fake BLT to get speed same. */
  520. X      BLT_MEM(eyes[g->dir],0,0,45+winc,21,RRPL,eyes[g->dir],0,0) ;
  521. X    }
  522. X  else
  523. X    { 
  524. X      BLT_MEM_TO_SCRN(g->scrx-GOFFSET-inc,g->scry-GOFFSET,
  525. X                      45+winc,45,RXOR,bugpics[GIND(g)][g->pic],-inc,0) ;
  526. X      BLT_MEM_TO_SCRN(g->scrx-GOFFSET-inc,g->scry-GOFFSET,
  527. X                      45+winc,21,RXOR,eyes[g->dir],-inc,0) ;
  528. X    }
  529. X}
  530. X
  531. X
  532. Xdrawcir(p,x,y)             /* Draw the specified screen on the screen. */
  533. Xint x,y ;
  534. XPixrect *p ;
  535. X
  536. X{
  537. X  if (x < 0) return ;                   /* Fully off left side. */
  538. X  else if (x > SWIDTH+1) return ;       /* Fully off right side. */
  539. X
  540. X  if (!(oldcx == x && oldcy == y))
  541. X    {
  542. X      BLT_MEM_TO_SCRN(oldcx-GOFFSET+5,oldcy-GOFFSET+5,45,45,RXOR,curcircle,0,0) ;
  543. X      curcircle = p ;
  544. X      BLT_MEM_TO_SCRN(x-GOFFSET+5,y-GOFFSET+5,45,45,RXOR,curcircle,0,0) ;
  545. X      oldcx = x ;
  546. X      oldcy = y ;
  547. X    }
  548. X}
  549. X
  550. X
  551. Xdrawcorner(mx,my,dir)
  552. Xint dir,mx,my ;
  553. X
  554. X/*  Draw a corner at MAZE position mx,my turning the direction dir. */
  555. X
  556. X{
  557. X  int x,y ;
  558. X
  559. X  TRANSPT(mx,my,x,y) ;
  560. X  BLT_MEM_TO_SCRN(x,y,SQUARE,SQUARE,RRPL,corner[dir],0,0) ;
  561. X}
  562. X 
  563. X 
  564. Xdrawdot(mx,my,size)        /* XORS a dot at the maze position mx,my. */
  565. Xint mx,my,size ;
  566. X
  567. X{
  568. X   TRANSPT(mx,my,mx,my) ;
  569. X   if (size == BIGDOT) BLT_MEM_TO_SCRN(mx,my,24,24,RXOR,bigdot,0,0) ;
  570. X   else if (size == SMALLDOT) BLT_MEM_TO_SCRN(mx+9,my+9,7,7,RXOR,smalldot,9,9) ;
  571. X}
  572. X
  573. X
  574. Xdrawmaze()     /* Draw the maze,the dots,the scores, etc on the screen. */
  575. X 
  576. X{
  577. X  int x,y ;
  578. X 
  579. X  clear_screen() ;
  580. X  for (y = 0; y <= YSIZE+1; y++)
  581. X    {
  582. X      walls[1][y] = 1 ;
  583. X      walls[0][y] = 1 ;
  584. X      walls[XSIZE+4][y] = 1 ;
  585. X      walls[XSIZE+5][y] = 1 ;
  586. X      for (x = 0; x <= XSIZE+1; x++) walls[x+2][y] = 0 ;
  587. X    }
  588. X 
  589. X  for (y = 0; y <= YSIZE+1; y++)
  590. X    for (x = 0; x <= XSIZE+1; x++)
  591. X      if ((maze[x][y] == 's') || (maze[x][y] == 'S') || (maze[x][y] == 'T'))
  592. X        drawbox(x,y) ;
  593. X      else if (maze[x][y] == 'x') walls[x+2][y] = 1 ;   /* Borders. */
  594. X 
  595. X  PPAUSE(pausetime*30) ;
  596. X  BLT_SCRN(XBASE-(SQUARE/2)-2,YBASE-(SQUARE/2)-2,
  597. X                  SQUARE*(XSIZE+1)+6,SQUARE*(YSIZE+1)+6,RINV) ;
  598. X  fixexits() ;
  599. X
  600. X  for (y = 1; y <= YSIZE; y++)
  601. X    for (x = 1; x <= XSIZE; x++)
  602. X      if (dots[player][x+1][y] == SMALLDOT)
  603. X        {
  604. X          PPAUSE(pausetime*5) ;
  605. X          drawdot(x,y,SMALLDOT) ;
  606. X        }
  607. X      else if (dots[player][x+1][y] == BIGDOT)
  608. X        {
  609. X          PPAUSE(pausetime*5) ;
  610. X          drawdot(x,y,BIGDOT) ;
  611. X        }
  612. X
  613. X  for (x = 1; x <= 4; x++) showplayerscore(x) ;
  614. X
  615. X  SPRINTF(buffer,"High Score (%1d)",skilllevel) ;
  616. X  WRITELN(310,20,buffer) ;
  617. X  if (!highscore) WRITELN(348,35,"0") ;
  618. X  else
  619. X    { 
  620. X      SPRINTF(buffer,"%1d0",highscore) ;
  621. X      WRITELN(348,35,buffer) ;
  622. X    }
  623. X
  624. X  for (x = 1; x <= numcir[player]; x++)
  625. X    {
  626. X      PPAUSE(pausetime*30) ;
  627. X      BLT_MEM_TO_SCRN(30+(x-1)*60,20,50,50,RXOR,circles[RIGHT][0],0,0) ;
  628. X    }
  629. X
  630. X  BLT_MEM_TO_SCRN(705,25,45,45,RRPL,fruitpics[fruitmaze[player]],0,0) ;
  631. X  BLT_SCRN(700,20,55,55,RINV) ;
  632. X  SPRINTF(buffer,"%1d0",fruitscore(fruitmaze[player])) ;
  633. X  WRITELN(710,15,buffer) ;
  634. X
  635. X  if (autoplay && (!demomode))
  636. X    {
  637. X      SCHRFUNC(RXOR) ;
  638. X      WRITELN(339,YBASE+SQUARE*16,"GAME OVER!") ;
  639. X      SCHRFUNC(RRPL) ;
  640. X      WRITELN(300,65,"Type DEL to begin") ;
  641. X      WRITELN(480,50,"Auto Score") ;
  642. X      WRITELN(489,65,"0") ;
  643. X    }
  644. X}
  645. X
  646. X
  647. Xdocredits()
  648. X 
  649. X{
  650. X  int g,x,y,i,j ;
  651. X 
  652. X  credits = 1 ;
  653. X  clear_screen() ;
  654. X  dohelp() ;
  655. X  WRITELN(5,860,"Type DEL to begin") ;
  656. X  for (i = 0; i < 100; i++) LONGPAUSE() ;
  657. X
  658. X  newbugs(0) ;
  659. X  UNTRANSPT(130,350,dotx,doty) ;
  660. X  UNTRANSPT(860,350,x,y) ;
  661. X  TRANSPT(x,y,i,ciry) ;
  662. X  BLT_SCRN(3,ciry-37,762,100,RINV) ;
  663. X
  664. X  for (g = POKEY; g <= SHADOW; g++)
  665. X    {
  666. X      bugs[g].mx = x + g * 2 ;
  667. X      bugs[g].my = doty ;
  668. X      bugs[g].dir = g ;
  669. X      TRANSPT(bugs[g].mx,bugs[g].my,bugs[g].scrx,bugs[g].scry) ;
  670. X      drawbug(&bugs[g]) ;                        /* Should be invisible. */
  671. X    }
  672. X  drawdot(dotx,doty,BIGDOT) ;
  673. X  cirx = 720 ;
  674. X  inc = 0 ;
  675. X  movei = 1 ;
  676. X  progstate = MOVELEFT ;
  677. X}
  678. X
  679. X
  680. Xmove_left()      /* Animate screen and bugs left. */
  681. X
  682. X{
  683. X  int g ;
  684. X
  685. X  if (movei % 8) cirx-- ;
  686. X  drawcir(circles[LEFT][inc],cirx,ciry) ;
  687. X  if (movei % 4 == 0) inc = (inc + 1) % 4 ;
  688. X  for (g = POKEY; g <= SHADOW; g++)
  689. X    {
  690. X      drawbug(&bugs[g]) ;               /* Erase old. */
  691. X      bugs[g].scrx-- ;
  692. X      if (movei % 13 == 0) bugs[g].pic = (bugs[g].pic + 1) % 2 ;
  693. X      if (movei % 18 == 0) bugs[g].dir = (bugs[g].dir + 1) % 4 ;
  694. X      drawbug(&bugs[g]) ;               /* Draw new. */
  695. X    }
  696. X  if (++movei > 662)
  697. X    {
  698. X      credits = 2 ;
  699. X      drawdot(dotx,doty,BIGDOT) ;
  700. X      for (g = POKEY; g <= SHADOW; g++)
  701. X        {
  702. X          drawbug(&bugs[g]) ;           /* Erase old. */
  703. X          bugs[g].bluetime = 32000 ;
  704. X          drawbug(&bugs[g]) ;           /* Draw new as blue. */
  705. X        } 
  706. X      SCHRFUNC(RXOR) ;
  707. X      movej = 200 ;
  708. X      movex = 1 ;
  709. X      movei = 1 ;
  710. X      progstate = MOVERIGHT ;
  711. X    }
  712. X}
  713. X
  714. X
  715. Xmove_right()    /* Animate eating screen and bugs right. */
  716. X
  717. X{
  718. X  int g,i ;
  719. X
  720. X   PPAUSE(8*movex) ;
  721. X   if (movei % 26) cirx++ ;
  722. X   drawcir(circles[RIGHT][inc],cirx,ciry) ;
  723. X   if (movei % 4 == 0) inc = (inc + 1) % 4 ;
  724. X   for (g = POKEY; g <= SHADOW; g++)
  725. X     if (!bugs[g].eyesonly)
  726. X       {
  727. X         drawbug(&bugs[g]) ;            /* Erase old. */
  728. X         if (movei % 2) bugs[g].scrx++ ;
  729. X         if (movei % 13 == 0) bugs[g].pic = (bugs[g].pic + 1) % 2 ;
  730. X         if (cirx >= bugs[g].scrx-20)
  731. X           {
  732. X             bugs[g].eyesonly = 1 ;
  733. X             SPRINTF(buffer,"%1d",movej) ;
  734. X             WRITELN(bugs[g].scrx-20,440,buffer) ;
  735. X             for (i = 0; i < 60; i++) LONGPAUSE() ;
  736. X             SPRINTF(buffer,"%1d",movej) ;
  737. X             WRITELN(bugs[g].scrx-20,440,buffer) ;
  738. X             movej *= 2 ;
  739. X             movex++ ;
  740. X           }
  741. X         else drawbug(&bugs[g]) ;       /* Draw new. */
  742. X       }
  743. X  if (++movei > 665)
  744. X    {
  745. X      SCHRFUNC(RRPL) ;
  746. X      for (i = 0; i < 100; i++) LONGPAUSE() ;
  747. X      credits = 0 ;
  748. X      progstate = INITGAME ;
  749. X    }
  750. X}
  751. X
  752. X
  753. Xdohelp()
  754. X
  755. X{
  756. X  int g,i,x,y ;
  757. X  char line[MAXLINE] ;
  758. X  FILE *fn ;
  759. X
  760. X  write_bold(105,100,titlestring) ;
  761. X  WRITELN(105,120,"Original version by Brad A. Myers with pictures of fruit by Terry Vavra.") ;
  762. X
  763. X  for (g = POKEY; g <= SHADOW; g++)
  764. X    {
  765. X      if (g > 1) y = YBASE + 130 ;
  766. X      else y = YBASE + 50 ;
  767. X      x = (g % 2) ? 384 : 100 ;
  768. X
  769. X      BLT_MEM_TO_SCRN(x,y,45,45,RRPL,bugpics[g][0],0,0) ;
  770. X      BLT_MEM_TO_SCRN(x,y,45,21,RXOR,eyes[g],0,0) ;
  771. X      for (i = 0; i < 40; i++) LONGPAUSE() ;
  772. X      SPRINTF(buffer,"- %s",names[g]) ;
  773. X      WRITELN(x+60,y+25,buffer) ;
  774. X      for (i = 0; i < 40; i++) LONGPAUSE() ;
  775. X    }
  776. X
  777. X  if ((fn = fopen(h_name,"r")) == NULL)
  778. X    {
  779. X      FPRINTF(stderr,"\nsidtool: can't open %s\n",h_name) ;
  780. X      exit(-1) ;
  781. X    }
  782. X  x = 105 ;
  783. X  y = 465 ;
  784. X  i = 0 ;
  785. X  while (get_string(fn,line) != -1)
  786. X    {
  787. X      WRITELN(x,i*15+y,line) ;
  788. X      i++ ;
  789. X    }
  790. X  if (!autoplay) make_control_panel() ;
  791. X  if (!autoplay) display_settings() ;
  792. X}
  793. X
  794. X
  795. Xdoplay()
  796. X
  797. X{
  798. X  if (remove)                /* Jump here if have been eaten or starting new game. */
  799. X    {
  800. X      removecircle() ;
  801. X      numcir[player]-- ;
  802. X    }
  803. X  curdir = LEFT ;             /* Jump here if got all dots. */
  804. X  fruiton = 0 ;
  805. X  sc = ' ' ;
  806. X  inc = 0 ;
  807. X  count = 1 ;
  808. X  posx = (SWIDTH / 2) - 11 ;
  809. X  posy = YBASE + SQUARE * 21 ;
  810. X  fruittime = randomrange(1000,2500) ;
  811. X  UNTRANSPT(posx,posy,cirmx,cirmy) ;
  812. X  drawcir(circles[curdir][inc],posx,posy) ;
  813. X  newbugs(1) ;
  814. X  if (demomode || !autoplay)
  815. X    {
  816. X      SCHRFUNC(RXOR) ;
  817. X      WRITELN(357,YBASE+SQUARE*16,"READY!") ;
  818. X      blinkpause() ;
  819. X      SCHRFUNC(RXOR) ;
  820. X      WRITELN(357,YBASE+SQUARE*16,"READY!") ;
  821. X      SCHRFUNC(RRPL) ;
  822. X    }
  823. X}
  824. X
  825. X
  826. Xmake_play()         /* Perform next movement of each sid tool object. */
  827. X
  828. X{
  829. X  updatebugs() ;
  830. X  if (checkcollision(cirmx,cirmy,&g)) handlecollision(&bugs[g]) ;
  831. X  if (fruittime != -1)
  832. X    {
  833. X      fruittime-- ;
  834. X      if (!fruittime) updatefruit() ;
  835. X    }
  836. X  newdir = curdir ;
  837. X  if (GCENTERED(posx,posy))
  838. X    {
  839. X      if (autoplay)
  840. X        newdir = dorandomdir(curdir,posx,posy,cirmx,cirmy,&x,&y,&nx,&ny,1) ;
  841. X      else
  842. X        switch (curdir)
  843. X          {
  844. X            case UP    :      if (sc == 'r' && !walls[cirmx+3][cirmy]) newdir = RIGHT ;
  845. X                         else if (sc == 'l' && !walls[cirmx+1][cirmy]) newdir = LEFT ;
  846. X                         else if (sc == 'd' && !walls[cirmx+2][cirmy+1]) newdir = DOWN ;
  847. X                         break ;
  848. X
  849. X            case DOWN  :      if (sc == 'r' && !walls[cirmx+3][cirmy]) newdir = RIGHT ;
  850. X                         else if (sc == 'l' && !walls[cirmx+1][cirmy]) newdir = LEFT ;
  851. X                         else if (sc == 'u' && !walls[cirmx+2][cirmy-1]) newdir = UP ;
  852. X                         break ;
  853. X
  854. X            case RIGHT :      if (sc == 'l' && !walls[cirmx+1][cirmy]) newdir = LEFT ;
  855. X                         else if (sc == 'u' && !walls[cirmx+2][cirmy-1]) newdir = UP ;
  856. X                         else if (sc == 'd' && !walls[cirmx+2][cirmy+1]) newdir = DOWN ;
  857. X                         break ;
  858. X
  859. X            case LEFT  :      if (sc == 'r' && !walls[cirmx+3][cirmy]) newdir = RIGHT ;
  860. X                         else if (sc == 'u' && !walls[cirmx+2][cirmy-1]) newdir = UP ;
  861. X                         else if (sc == 'd' && !walls[cirmx+2][cirmy+1]) newdir = DOWN ;
  862. X                         break ;
  863. X          }
  864. X    }    
  865. X  if (doinc(newdir,posx,posy,cirmx,cirmy,&x,&y,&nx,&ny)) doupdate() ;
  866. X  else
  867. X    { 
  868. X      if (!GCENTERED(posx,posy)) doupdate() ;          /* Until centered. */
  869. X      else
  870. X        { 
  871. X          if (oldcurdir != curdir)
  872. X            {
  873. X              BLT_MEM_TO_SCRN(oldcx-GOFFSET+5,oldcy-GOFFSET+5,
  874. X                              45,45,RXOR,curcircle,0,0) ;
  875. X              curcircle = circles[curdir][0] ;
  876. X              BLT_MEM_TO_SCRN(oldcx-GOFFSET+5,oldcy-GOFFSET+5,
  877. X                              45,45,RXOR,curcircle,0,0) ;
  878. X              oldcurdir = curdir ;
  879. X            }
  880. X        }    
  881. X    }    
  882. X  if (checkcollision(cirmx,cirmy,&g)) handlecollision(&bugs[g]) ;
  883. X}
  884. X
  885. X
  886. Xdoupdate()
  887. X
  888. X{
  889. X  count++ ;
  890. X  if (count % circatchup == 0) return ;       /* Go slower than bugs. */
  891. X  drawcir(circles[newdir][inc],x,y) ;
  892. X  if (count % 4 == 0) inc = (inc + 1) % 4 ;
  893. X  if (fruiton)
  894. X    if ((nx == FRUITMX) && (ny == FRUITMY)) destroyfruit() ;
  895. X  if (dots[player][nx+1][ny] != NODOT)
  896. X    {
  897. X      if (dots[player][nx+1][ny] == SMALLDOT) updatescore(1) ;
  898. X      else
  899. X        { 
  900. X          changebugs() ;
  901. X          updatescore(5) ;
  902. X        }
  903. X      numdots[player]-- ;
  904. X      drawdot(nx,ny,dots[player][nx+1][ny]) ;
  905. X      dots[player][nx+1][ny] = NODOT ;
  906. X      if (!numdots[player])
  907. X        {
  908. X          resetmaze() ;
  909. X          gamestate = FALSE ;
  910. X          progstate = RESETGAME ;
  911. X          longjmp(exception,val) ;
  912. X        }
  913. X    }    
  914. X  curdir = newdir ;
  915. X  posx = x ;
  916. X  posy = y ;
  917. X  cirmx = nx ;
  918. X  cirmy = ny ;
  919. X}
  920. X
  921. X
  922. Xexplodecircle(posx,posy)
  923. Xint posx,posy ;
  924. X 
  925. X{
  926. X  int i ;
  927. X 
  928. X  for (i = 0; i <= 8; i++)
  929. X    {
  930. X      BLT_MEM_TO_SCRN(oldcx-GOFFSET+5,oldcy-GOFFSET+5,45,45,RXOR,curcircle,0,0) ;
  931. X      curcircle = circleexplode[i] ;
  932. X      BLT_MEM_TO_SCRN(posx-GOFFSET+5,posy-GOFFSET+5,45,45,RXOR,curcircle,0,0) ;
  933. X      oldcx = posx ;
  934. X      oldcy = posy ;
  935. X      PPAUSE(pausetime*70) ;
  936. X    } 
  937. X  for (i = 0; i < 80; i++) LONGPAUSE() ;
  938. X}
  939. X
  940. X
  941. Xfixexits()
  942. X
  943. X/*  Look for tunnels on the borders.  For each, show the area as black
  944. X *  on the screen and set the walls and tunnel global variables to
  945. X *  reflect the presence of the tunnel.
  946. X */
  947. X
  948. X{
  949. X  int x,y,t ;
  950. X
  951. X  PPAUSE(pausetime*30) ;
  952. X  for (y = 1; y <= YSIZE; y++)
  953. X    if (maze[0][y] == ' ')
  954. X      {
  955. X        walls[1][y] = 0 ;
  956. X        walls[0][y] = 0 ;
  957. X        x = -1 ;
  958. X        do
  959. X          {
  960. X            x++ ;
  961. X            tunnel[x][y] = 1 ;
  962. X          }
  963. X        while (maze[x][y] == ' ') ;
  964. X        TRANSPT(0,y,x,t) ;
  965. X        BLT_SCRN(3,t-2-SQUARE/2,XBASE-(SQUARE/2)-5,SQUARE*2+6,RINV) ;
  966. X      }
  967. X
  968. X  PPAUSE(pausetime*30) ;
  969. X  for (y = 1; y <= YSIZE; y++)
  970. X    if (maze[XSIZE+1][y] == ' ')
  971. X      {
  972. X        walls[XSIZE+4][y] = 0 ;
  973. X        walls[XSIZE+5][y] = 0 ;
  974. X        x = XSIZE+1 ;
  975. X        do
  976. X          {
  977. X            x-- ;
  978. X            tunnel[x][y] = 1 ;
  979. X          }
  980. X        while (maze[x][y] == ' ') ;
  981. X        TRANSPT(0,y,x,t) ;
  982. X        BLT_SCRN(XBASE-(SQUARE/2)+SQUARE*(XSIZE+1)+4,t-2-SQUARE/2,
  983. X                           XBASE-(SQUARE/2)-5,SQUARE*2+6,RINV) ;
  984. X      }
  985. X}
  986. X
  987. X
  988. Xget_button_option()
  989. X
  990. X{
  991. X  if (!c) return ;
  992. X  else if (c >= BUT_AUTO+2 && c <= BUT_START+2)
  993. X    {
  994. X      BLT_SCRN(SQUARE/2+100*(c-2)+BUTXOFF,SQUARE/2+BUTYOFF,70,SQUARE,RINV) ;
  995. X      PPAUSE(pausetime*100) ;
  996. X      BLT_SCRN(SQUARE/2+100*(c-2)+BUTXOFF,SQUARE/2+BUTYOFF,70,SQUARE,RINV) ;
  997. X      progstate = MAKESEL ;
  998. X      button = c - 2 ;
  999. X      c = 0 ;
  1000. X    }
  1001. X}
  1002. X
  1003. X
  1004. Xinitialize()
  1005. X
  1006. X{
  1007. X  int fd,i,j,g,x,y ;
  1008. X  struct timeb tp ;
  1009. X  FILE *fn ;
  1010. X
  1011. X  ftime(&tp) ;
  1012. X  for (x = 1; x < tp.millitm % 10; x++) y = (int) random() ;    /* Randomize start. */
  1013. X
  1014. X  if (!demomode) FPRINTF(stdout," Random") ;
  1015. X  if (!demomode) FPRINTF(stdout," Memory") ;
  1016. X
  1017. X  if ((fd = open(a_name,0)) == -1)
  1018. X    {
  1019. X      FPRINTF(stderr,"sidtool: unable to open %s.\n",a_name) ;
  1020. X      exit(-1) ;
  1021. X    }
  1022. X
  1023. X  for (i = UR; i <= LU; i++) corner[i] = load_picture(fd) ;
  1024. X
  1025. X  bigdot = load_picture(fd) ;
  1026. X  smalldot = load_picture(fd) ;
  1027. X
  1028. X  for (i = RIGHT; i <= DOWN; i++)
  1029. X    for (j = 0; j <= 3; j++) circles[i][j] = load_picture(fd) ;
  1030. X  for (i = POKEY; i <= SHADOW; i++)
  1031. X    for (j = 0; j <= 1; j++) bugpics[i][j] = load_picture(fd) ;
  1032. X
  1033. X  for (i = 0; i <= 1; i++) bluebug[i] = load_picture(fd) ;
  1034. X  for (i = 0; i <= 1; i++) bluepics[i] = load_picture(fd) ;
  1035. X  for (i = 0; i <= 3; i++) eyes[i] = load_picture(fd) ;
  1036. X  for (i = 0; i <= 8; i++) circleexplode[i] = load_picture(fd) ;
  1037. X  for (i = 1; i <= 8; i++) fruitpics[i] = load_picture(fd) ;
  1038. X
  1039. X  CLOSE(fd) ;
  1040. X
  1041. X  if (!demomode) FPRINTF(stdout," File") ;
  1042. X
  1043. X  if ((fn = fopen(m_name,"r")) == NULL)
  1044. X    {
  1045. X      FPRINTF(stderr,"\nsidtool: can't open %s\n",m_name) ;
  1046. X      exit(-1) ;
  1047. X    }
  1048. X
  1049. X  for (y = 0; y <= YSIZE+1; y++)
  1050. X    {
  1051. X      FGETS(buffer,MAXLINE,fn) ;
  1052. X      for (x = 0; x <= XSIZE+1; x++) maze[x][y] = buffer[x] ;
  1053. X    }
  1054. X  FCLOSE(fn) ;
  1055. X
  1056. X if (!demomode) FPRINTF(stdout," Maze") ;
  1057. X
  1058. X  TRANSPT(FRUITMX,FRUITMY,fruitx,fruity) ;
  1059. X  readallhighscores() ;
  1060. X  highscore = allhighscores[skilllevel].score ;
  1061. X  if (!demomode) FPRINTF(stdout," HighScore") ;
  1062. X
  1063. X  g = POKEY ;
  1064. X  for (y = 1; y <= YSIZE; y++)
  1065. X    for (x = 1; x <= XSIZE; x++)
  1066. X      if ((maze[x][y] >= '0') && (maze[x][y] <= '9'))
  1067. X        {
  1068. X          startpos[g].x = x ;
  1069. X          startpos[g].y = y ;
  1070. X          startpos[g].time = maze[x][y] - '0' ;
  1071. X          if (g < SHADOW) g++ ;
  1072. X          if (maze[x][y] == '0')
  1073. X            {
  1074. X              boxx = x ;
  1075. X              boxy = y ;
  1076. X            }
  1077. X        }    
  1078. X
  1079. X  if (!demomode) FPRINTF(stdout," Starting\n") ;
  1080. X  for (x = 0; x < XSIZE+3; x++)
  1081. X    for (y = 0; y < YSIZE; y++) tunnel[x][y] = 0 ;
  1082. X}
  1083. X
  1084. X
  1085. Xmake_button(x,y,but_name)
  1086. Xint x,y ;
  1087. Xchar but_name[MAXLINE] ;
  1088. X 
  1089. X{
  1090. X  int len ;
  1091. X
  1092. X  len = strlen(but_name) * 10 ;
  1093. X  BLT_MEM_TO_SCRN(x,y,SQUARE,SQUARE,RRPL,corner[UR],0,0) ;
  1094. X  BLT_MEM_TO_SCRN(x,y+SQUARE,SQUARE,SQUARE,RRPL,corner[LU],0,0) ;
  1095. X
  1096. X  BLT_SCRN(x+SQUARE,y+SQUARE/2,len,2,RSET) ;
  1097. X  BLT_SCRN(x+SQUARE,y+SQUARE*3/2,len,2,RSET) ;
  1098. X
  1099. X  BLT_MEM_TO_SCRN(x+len,y,SQUARE,SQUARE,RRPL,corner[RD],0,0) ;
  1100. X  BLT_MEM_TO_SCRN(x+len,y+SQUARE,SQUARE,SQUARE,RRPL,corner[DL],0,0) ;
  1101. X  write_bold(x+SQUARE-5,y+SQUARE*3/2-10,but_name) ;
  1102. X}
  1103. X
  1104. X
  1105. Xmake_control_panel()
  1106. X
  1107. X{
  1108. X  int i ;
  1109. X
  1110. X  BLT_SCRN(0,0,width,YBASE-20,RCLR) ;                 /* Clear panel area. */
  1111. X  for (i = BUT_AUTO; i <= BUT_START; i++)
  1112. X    make_button(100*i+BUTXOFF,BUTYOFF,but_names[i]) ; /* Make option buttons. */
  1113. X}
  1114. X
  1115. X
  1116. Xremovecircle()
  1117. X
  1118. X{
  1119. X  BLT_MEM_TO_SCRN(30+(numcir[player]-1)*60,20,50,50,RXOR,circles[RIGHT][0],0,0) ;
  1120. X}
  1121. X
  1122. X
  1123. Xresetmaze()
  1124. X
  1125. X{
  1126. X  int i,j ;
  1127. X
  1128. X  erasebugs() ;
  1129. X  LONGPAUSE() ;
  1130. X  for (i = 1; i <= 20; i++)
  1131. X    {
  1132. X      BLT_MEM_TO_SCRN(oldcx-GOFFSET+5,oldcy-GOFFSET+5,45,45,RXOR,curcircle,0,0) ;
  1133. X      for (j = 0; j < 10; j++) LONGPAUSE() ;
  1134. X    }
  1135. X  LONGPAUSE() ;
  1136. X  if (fruitmaze[player] < 8) fruitmaze[player]++ ;
  1137. X  fruitchances[player] = 0 ;
  1138. X  setdots(player) ;
  1139. X  drawmaze() ;
  1140. X  if (curbluetime[player] > 1) curbluetime[player] -= 60 ;
  1141. X}
  1142. X
  1143. X
  1144. Xupdatefruit()
  1145. X
  1146. X{
  1147. X  Pixrect *p ;
  1148. X
  1149. X  p = fruitpics[fruitmaze[player]] ;
  1150. X  BLT_MEM_TO_SCRN(fruitx-GOFFSET,fruity-GOFFSET,45,45,RXOR,p,0,0) ;
  1151. X  if (fruiton)                        /* Turning fruit off. */
  1152. X    {
  1153. X      fruitchances[player]++ ;
  1154. X      if (fruitchances[player] > 2) fruittime = -1 ;    /* Already had 2 chances. */
  1155. X      else fruittime = randomrange(1000,2500) ;
  1156. X    }
  1157. X  else fruittime = randomrange(500,1000) ;              /* Turning fruit on. */
  1158. X  fruiton = !fruiton ;
  1159. X}
  1160. X
  1161. X
  1162. Xupdatescore(amt)
  1163. Xint amt ;
  1164. X
  1165. X{
  1166. X  int i,temp,x,y ;
  1167. X
  1168. X  if (autoplay)
  1169. X    if (!demomode)
  1170. X      {
  1171. X        autoscore += amt ;
  1172. X        SPRINTF(buffer,"%1d0",autoscore) ;
  1173. X        WRITELN(489,65,buffer) ;
  1174. X        return ;
  1175. X      }
  1176. X  temp = score[player] + amt ;
  1177. X  if (temp >= 1000)
  1178. X    if (score[player] < 1000)
  1179. X      {
  1180. X        for (i = 1; i < 7; i++)
  1181. X          {
  1182. X            BLT_MEM_TO_SCRN(oldcx-GOFFSET+5,oldcy-GOFFSET+5,45,45,RXOR,curcircle,0,0) ;
  1183. X            for (i = 0; i < 10; i++) LONGPAUSE() ;
  1184. X          }
  1185. X        numcir[player]++ ;
  1186. X        BLT_MEM_TO_SCRN(30+(numcir[player]-1)*60,20,50,50,RXOR,circles[RIGHT][0],0,0) ;
  1187. X      }
  1188. X  score[player] = temp ;
  1189. X  x = (player % 2) ? 217 : 597 ;
  1190. X  y = (player < 3) ? 40  : 80 ;
  1191. X  SPRINTF(buffer,"%1d0",score[player]) ;
  1192. X  WRITELN(x,y,buffer) ;
  1193. X  if (score[player] > highscore)
  1194. X    {
  1195. X      highplayer = player ;
  1196. X      highscore = score[player] ;
  1197. X      SPRINTF(buffer,"%1d0",highscore) ;
  1198. X      WRITELN(348,35,buffer) ;
  1199. X    }
  1200. X}
  1201. END_OF_sid_blt.c
  1202. if test 21194 -ne `wc -c <sid_blt.c`; then
  1203.     echo shar: \"sid_blt.c\" unpacked with wrong size!
  1204. fi
  1205. # end of overwriting check
  1206. fi
  1207. if test -f sid_main.c -a "${1}" != "-c" ; then 
  1208.   echo shar: Will not over-write existing file \"sid_main.c\"
  1209. else
  1210. echo shar: Extracting \"sid_main.c\" \(23265 characters\)
  1211. sed "s/^X//" >sid_main.c <<'END_OF_sid_main.c'
  1212. X 
  1213. X/*  sid_main.c
  1214. X *
  1215. X *  Sid Tool - the Sun Interactive Debugger program.
  1216. X *
  1217. X *  Written by Rich Burridge - Sun Microsystems Australia (Melbourne).
  1218. X *
  1219. X *  Version 2.1.  -  April 1987.
  1220. X *
  1221. X *  No responsibility is taken for any errors inherent either to the code
  1222. X *  or the comments of this program, but if reported to me then an attempt
  1223. X *  will be made to fix them.
  1224. X */
  1225. X
  1226. X#include <stdio.h>
  1227. X#include <strings.h>
  1228. X#include <setjmp.h>
  1229. X#include <sys/fcntl.h>
  1230. X#include "bltstuff.h"
  1231. X#include "patchlevel.h"
  1232. X#include "sidtool.h"
  1233. X#include <suntool/sunview.h>
  1234. X#include <suntool/canvas.h>
  1235. X
  1236. XCanvas canvas ;
  1237. XFrame base_frame ;
  1238. XPixwin *pw ;
  1239. X
  1240. Xjmp_buf exception ;
  1241. Xint val ;
  1242. X
  1243. Xextern etext() ;
  1244. Xextern restore_screen() ;
  1245. X
  1246. XNotify_value main_loop() ;
  1247. Xvoid event_proc() ;
  1248. X
  1249. Xshort sid_image[] = {
  1250. X#include "sidtool.icon"
  1251. X} ;
  1252. XDEFINE_ICON_FROM_IMAGE(sid_icon,sid_image) ;
  1253. X
  1254. Xstruct scorerec allhighscores[11] ;
  1255. Xstruct startrec startpos[4] ;
  1256. Xstruct bugrec bugs[4] ;
  1257. X
  1258. Xchar but_names[7][8] =    /*  Control panel stuff. */
  1259. X     {
  1260. X       " Auto  ",
  1261. X       " Help  ",
  1262. X       " Level ",
  1263. X       "Players",
  1264. X       " Quit  ",
  1265. X       " Scores",
  1266. X       " Start "
  1267. X     } ;
  1268. X
  1269. Xchar names[4][MAXLINE] =
  1270. X     {
  1271. X       "Time Dependencies",
  1272. X       "Uninitialized Variables",
  1273. X       "Fence Posts",
  1274. X       "Multiple Process Interaction"
  1275. X     } ;
  1276. X
  1277. Xchar old_key_vals[4][MAXLINE] ;       /* Function key string values to save. */
  1278. Xchar new_key_vals[4][MAXLINE] =       /* Function key values used by sidtool. */
  1279. X     {
  1280. X       "u",                  /* R8  - UPARROW. */
  1281. X       "d",                  /* R14 - DOWNARROW. */
  1282. X       "l",                  /* R10 - LEFTARROW. */
  1283. X       "r",                  /* R12 - RIGHTARROW. */
  1284. X     } ;
  1285. X
  1286. Xchar maze[XSIZE+2][YSIZE+2] ;
  1287. Xchar sc,buffer[MAXLINE] ;
  1288. Xchar s_name[MAXLINE] ;     /* Score file name. */
  1289. Xchar a_name[MAXLINE] ;     /* Animate file name. */
  1290. Xchar h_name[MAXLINE] ;     /* Help file name. */
  1291. Xchar m_name[MAXLINE] ;     /* Maze file name. */
  1292. Xchar thisscore[MAXLINE] ;  /* User name for new high score. */
  1293. Xchar titlestring[MAXLINE] ;
  1294. X
  1295. Xint blueblink,blueincblink,boxx,boxy,fruittime,fruitx,fruity,numplayers ;
  1296. Xint skilllevel,circatchup,pausetime,highplayer,autoscore,lastnumplayers ;
  1297. Xint curbluetime[MAXNUMPLAYERS+1],score[MAXNUMPLAYERS+1] ;
  1298. Xint numcir[MAXNUMPLAYERS+1],fruitmaze[MAXNUMPLAYERS+1] ;
  1299. Xint numdots[MAXNUMPLAYERS+1],fruitchances[MAXNUMPLAYERS+1] ;
  1300. Xint fruitsgotten[MAXNUMPLAYERS+1][9] ;
  1301. Xint highscore,player,cirmx,cirmy,bugssincedot ;
  1302. Xint walls[XSIZE+6][YSIZE+1] ;
  1303. Xint dots[MAXNUMPLAYERS+1][XSIZE+4][YSIZE+2] ;
  1304. Xint tunnel[XSIZE+4][YSIZE+2] ;
  1305. X
  1306. Xint key_stations[9] = {69, 113, 91, 93} ;
  1307. X
  1308. Xint button ;       /* Indicates users selection from control panel. */
  1309. Xint c ;            /* Contains latest mouse or keyboard interaction. */
  1310. Xint canvasfd ;     /* File descriptor for canvas subwindow. */
  1311. Xint curdir ;       /* Current direction of the screen. */
  1312. Xint oldcurdir ;    /* Old direction of the screen. */
  1313. Xint g,newdir,posx,posy,x,y,nx,ny,count,inc ;
  1314. Xint orgx,orgy,width,height ;    /* Position and dimension of window. */
  1315. Xint oldcx,oldcy ;  /* Old position of the screen. */
  1316. Xint on = 0 ;       /* Current blinking state of score. */
  1317. Xint canvasflags ;  /* Used to setup no delay for canvas. */
  1318. Xint credits ;      /* Direction of credits if on. */
  1319. Xint cirx ;         /* X position of screen during credits. */
  1320. Xint ciry ;         /* Y position of screen during credits. */
  1321. Xint dotx ;         /* X position of BIGDOT during credits. */
  1322. Xint doty ;         /* Y position of BIGDOT during credits. */
  1323. Xint movei,movej,movex ; /* Used to animate screen during credits. */
  1324. Xint progstate ;    /* State machine for main loop. */
  1325. Xint redraw;        /* If non-zero, then screen should be redrawn. */
  1326. Xint savedstate ;   /* State machine value after Ctrl S. */
  1327. Xint scorei ;       /* No of chars in high score user name. */
  1328. Xint speed ;        /* Class (speed) of this Sun machine. */
  1329. Xint started ;      /* Indicates if we have started a game. */
  1330. X
  1331. XBOOLEAN autoplay ;
  1332. XBOOLEAN demomode ;
  1333. XBOOLEAN fruiton ;
  1334. XBOOLEAN gamestate ;     /* State of the game, 1 = remove circle. */
  1335. XBOOLEAN remove ;        /* Whether Sun screen should be removed. */
  1336. X 
  1337. XFILE *fopen() ;
  1338. X
  1339. Xextern int sfunc ;      /* Used by SCHRFUNC for cursor function. */
  1340. Xextern Pixfont *pf ;
  1341. X
  1342. X
  1343. Xdrawbox(mx,my)
  1344. Xint mx,my ;
  1345. X
  1346. X/*  Draws a box starting at maze position mx, my. Mx, my should be an
  1347. X *  s or S position in maze. Travels around path until reach x or s.
  1348. X */
  1349. X
  1350. X{
  1351. X  int last ;
  1352. X
  1353. X  last = 'r' ;
  1354. X  PPAUSE(pausetime*20) ;
  1355. X  walls[mx+2][my] = 1 ;
  1356. X  if (maze[mx][my] == 's') drawcorner(mx,my,UR) ;
  1357. X  else if (maze[mx][my] == 'S') ddrawline(mx,my,'r') ;
  1358. X  else if (maze[mx][my] == 'T')
  1359. X    {
  1360. X      ddrawline(mx,my,'l') ;
  1361. X      mx -= 2 ;
  1362. X      last = 'l' ;
  1363. X    }
  1364. X   mx++ ;
  1365. X   for (;;)
  1366. X     {
  1367. X       PPAUSE(2*pausetime) ;
  1368. X       walls[mx+2][my] = 1 ;
  1369. X       switch (maze[mx][my])
  1370. X         {
  1371. X           case 's' :
  1372. X           case 'S' :
  1373. X           case 'T' : return ;
  1374. X           case 'd' : if (last == 'r') drawcorner(mx,my,RD) ;
  1375. X                      else if (last == 'l') drawcorner(mx,my,UR) ;
  1376. X                      else ddrawline(mx,my,'d') ;
  1377. X                      last = 'd' ;
  1378. X                      my++ ;
  1379. X                      break ;
  1380. X           case 'l' : if (last == 'd') drawcorner(mx,my,DL) ;
  1381. X                      else if (last == 'u') drawcorner(mx,my,RD) ;
  1382. X                      else ddrawline(mx,my,'l') ;
  1383. X                      last = 'l' ;
  1384. X                      mx-- ;
  1385. X                      break ;
  1386. X           case 'r' :
  1387. X           case 'R' : if (last == 'u') drawcorner(mx,my,UR) ;
  1388. X                      else if (last == 'd') drawcorner(mx,my,LU) ;
  1389. X                      else ddrawline(mx,my,maze[mx][my]) ;
  1390. X                      last = 'r' ;
  1391. X                      mx++ ;
  1392. X                      break ;
  1393. X           case 'u' : if (last == 'l') drawcorner(mx,my,LU) ;
  1394. X                      else if (last == 'r') drawcorner(mx,my,DL) ;
  1395. X                      else ddrawline(mx,my,'u') ;
  1396. X                      last = 'u' ;
  1397. X                      my-- ;
  1398. X                      break ;
  1399. X           case 'x' : ddrawline(mx,my,last) ;
  1400. X                      return ;
  1401. X         }
  1402. X      }   
  1403. X}
  1404. X
  1405. X
  1406. Xsetdots(player)
  1407. Xint player ;
  1408. X
  1409. X{
  1410. X  int x,y ;
  1411. X
  1412. X  for (y = 1; y <= YSIZE; y++)
  1413. X    {
  1414. X      dots[player][0][y] = NODOT ;
  1415. X      dots[player][1][y] = NODOT ;
  1416. X      dots[player][XSIZE+2][y] = NODOT ;
  1417. X      dots[player][XSIZE+3][y] = NODOT ;
  1418. X      for (x = 1; x <= XSIZE; x++)
  1419. X        if (maze[x][y] == '.')
  1420. X          {
  1421. X            dots[player][x+1][y] = SMALLDOT ;
  1422. X            numdots[player]++ ;
  1423. X          }
  1424. X        else if (maze[x][y] == '*')
  1425. X          {
  1426. X            dots[player][x+1][y] = BIGDOT ;
  1427. X            numdots[player]++ ;
  1428. X          }
  1429. X        else dots[player][x+1][y] = NODOT ;
  1430. X    }
  1431. X}
  1432. X
  1433. X
  1434. Xreadallhighscores()
  1435. X
  1436. X/*  Reads all high scores and names into the global table allhighscores.
  1437. X *  If file not found, then sets all high scores to zero.
  1438. X */
  1439. X
  1440. X{
  1441. X  int hsfile,level ;
  1442. X
  1443. X  if ((hsfile = open(s_name,2)) == -1)
  1444. X    {
  1445. X      if ((hsfile = creat(s_name,0777)) == -1)
  1446. X        {
  1447. X          FPRINTF(stderr,"sidtool: unable to create highscores file.\n") ;
  1448. X          return ;
  1449. X        }
  1450. X
  1451. X      for (level = 0; level <= 10; level++)
  1452. X        {
  1453. X          allhighscores[level].score = 0 ;
  1454. X          STRCPY(allhighscores[level].who," ") ;
  1455. X          puths(hsfile,allhighscores[level]) ;
  1456. X        }
  1457. X    }
  1458. X  else
  1459. X    for (level = 1; level <= 10; level++) geths(hsfile,&allhighscores[level]) ;
  1460. X  CLOSE(hsfile) ;
  1461. X}
  1462. X
  1463. X
  1464. Xwritehighscore()
  1465. X
  1466. X/*  If highscore is better than old high score for this skill level then
  1467. X *  asks for player's name and enters name and score into table and writes file.
  1468. X */
  1469. X
  1470. X{
  1471. X  if ((highscore >= allhighscores[skilllevel].score) &&
  1472. X        (highplayer != -1) && (!demomode))
  1473. X    {
  1474. X      clear_screen() ;
  1475. X      SPRINTF(buffer,"Player %1d has beaten the high score for skill level %1d.",
  1476. X                     highplayer,skilllevel) ;
  1477. X      WRITELN(100,140,buffer) ;
  1478. X      if (allhighscores[skilllevel].score)
  1479. X        {
  1480. X          SPRINTF(buffer,"The old record was %1d0 held by: %s.",
  1481. X                         allhighscores[skilllevel].score,
  1482. X                         allhighscores[skilllevel].who) ;
  1483. X          WRITELN(100,160,buffer) ;
  1484. X        }
  1485. X      SPRINTF(buffer,"Type player %1d's name or initials: ",highplayer) ;
  1486. X      WRITELN(100,200,buffer) ;
  1487. X      scorei = 0 ;
  1488. X      c = 0 ;
  1489. X      thisscore[scorei] = '_' ;
  1490. X      thisscore[scorei+1] = '\0' ;
  1491. X      WRITELN(370,200,thisscore) ;
  1492. X      progstate = NEXTLINE ;
  1493. X    }
  1494. X  else progstate = DOCREDIT ;
  1495. X}
  1496. X
  1497. X
  1498. Xgetnewscore(x,y)      /* Get new user name for highscore. */
  1499. Xint x,y ;
  1500. X
  1501. X{
  1502. X  if (c)
  1503. X    {
  1504. X      switch (c)
  1505. X        {
  1506. X          case BSPACE :
  1507. X          case DEL    : if (scorei)
  1508. X                          {   
  1509. X                            scorei-- ;
  1510. X                            thisscore[scorei] = ' ' ;
  1511. X                            thisscore[scorei+1] = '\0' ;
  1512. X                            WRITELN(x,y,thisscore) ;
  1513. X                            thisscore[scorei] = '\0' ;
  1514. X                          } 
  1515. X                        break ;
  1516. X          case CR     : thisscore[scorei] = '\0' ;
  1517. X                        if (!scorei) WRITELN(100,220,"   ** No name given. **") ;
  1518. X                        else
  1519. X                          {
  1520. X                            STRCPY(allhighscores[skilllevel].who,thisscore) ;
  1521. X                            savescorefile() ;
  1522. X                            progstate = DOCREDIT ;
  1523. X                          }
  1524. X                        break ;
  1525. X          default     : if (c < ' ') break ;
  1526. X                        thisscore[scorei++] = c ;
  1527. X                        thisscore[scorei] = '\0' ;
  1528. X                        WRITELN(x,y,thisscore) ;
  1529. X        }
  1530. X      c = 0 ;
  1531. X    }
  1532. X}
  1533. X
  1534. X
  1535. Xsavescorefile()     /* Write away new highscore values. */
  1536. X
  1537. X{
  1538. X  int fd,level ;
  1539. X
  1540. X  allhighscores[skilllevel].score = highscore ;
  1541. X  if ((fd = open(s_name,1)) == -1)
  1542. X    FPRINTF(stderr,"sidtool: unable to open highscores file.\n") ;
  1543. X  else
  1544. X    { 
  1545. X      for (level = 1; level <= 10; level++) puths(fd,allhighscores[level]) ;
  1546. X      CLOSE(fd) ;
  1547. X    }
  1548. X}
  1549. X
  1550. X
  1551. Xinitgame()
  1552. X
  1553. X{
  1554. X  int i,j ;
  1555. X
  1556. X  if (autoplay) autoscore = 0 ;
  1557. X  pausetime = -skilllevel * 20 + (speed * 100) ;
  1558. X  circatchup = -skilllevel * 4 + 46 ;
  1559. X  highplayer = -1 ;
  1560. X  for (j = 1; j < MAXNUMPLAYERS; j++)
  1561. X    {
  1562. X      numdots[j] = 0 ;
  1563. X      numcir[j] = 3 ;
  1564. X      fruitchances[j] = 0 ;
  1565. X      setdots(j) ;
  1566. X      curbluetime[j] = 1 + (-skilllevel * 60 + 900) ;
  1567. X      if (!autoplay)
  1568. X        {
  1569. X          score[j] = 0 ;
  1570. X          if (demomode) fruitmaze[j] = 8 ;
  1571. X          else fruitmaze[j] = 1 ;
  1572. X          for (i = 1; i < 8; i++)
  1573. X            if (demomode) fruitsgotten[j][i] = 1 ;
  1574. X            else fruitsgotten[j][i] = 0 ;
  1575. X        }
  1576. X    }
  1577. X}
  1578. X
  1579. X
  1580. Xshowplayerscore(player)
  1581. Xint player ;
  1582. X
  1583. X{
  1584. X  int x,y ;
  1585. X
  1586. X  SCHRFUNC(RXOR) ;
  1587. X  x = (player % 2) ? 190 : 570 ;
  1588. X  y = (player < 3) ? 25  : 65 ;
  1589. X  SPRINTF(buffer,"  Player %1d ",player) ;
  1590. X  WRITELN(x,y,buffer) ;
  1591. X  if (!score[player]) WRITELN(x+27,y+15,"0") ;
  1592. X  else
  1593. X    {
  1594. X      SPRINTF(buffer,"%1d0",score[player]) ;
  1595. X      WRITELN(x+27,y+15,buffer) ;
  1596. X    }
  1597. X  SCHRFUNC(RRPL) ;
  1598. X}
  1599. X
  1600. X
  1601. Xblinkpause()
  1602. X
  1603. X/*  Wait a while and check keyboard for commands while blinking current players score. */
  1604. X
  1605. X{
  1606. X  int i,j ;
  1607. X
  1608. X  on = 1 ;
  1609. X  if (!autoplay)
  1610. X    for (i = 1; i <= 16; i++)
  1611. X      {
  1612. X        showplayerscore(player) ;
  1613. X        on = !on ;
  1614. X        for (j = 0; j < 10; j++) LONGPAUSE() ;
  1615. X      }
  1616. X}
  1617. X
  1618. X
  1619. Xdoinc(dir,posx,posy,mx,my,x,y,nx,ny)
  1620. Xint dir,posx,posy,mx,my,*x,*y,*nx,*ny ;
  1621. X
  1622. X{
  1623. X  register int status,tx,ty ;
  1624. X
  1625. X  *x = posx ;
  1626. X  *y = posy ;
  1627. X  tx = mx ;
  1628. X  ty = my ;
  1629. X
  1630. X  switch (dir)
  1631. X    {
  1632. X      case UP    : *y = posy - 2 ;
  1633. X                   ty = my - 1 ;
  1634. X                   break ;
  1635. X      case DOWN  : *y = posy + 2 ;
  1636. X                   ty = my + 1 ;
  1637. X                   break ;
  1638. X      case LEFT  : *x = posx - 2 ;
  1639. X                   tx = mx - 1 ;
  1640. X                   break ;
  1641. X      case RIGHT : *x = posx + 2 ;
  1642. X                   tx = mx + 1 ;
  1643. X                   break ;
  1644. X    }
  1645. X  UNTRANSPT(*x,*y,*nx,*ny) ;
  1646. X  if (tx == -2) tx = XSIZE + 2 ;
  1647. X  else if (tx == XSIZE + 3) tx = -1 ;
  1648. X  status = 1 ;
  1649. X
  1650. X  if ((*nx == -2) && (dir == LEFT))
  1651. X    {
  1652. X      *nx = XSIZE + 2 ;
  1653. X      TRANSPT(*nx,*ny,*x,*y) ;
  1654. X    }
  1655. X  else if ((*nx == XSIZE + 3) && (dir == RIGHT))
  1656. X    {
  1657. X      *nx = -1 ;
  1658. X      TRANSPT(*nx,*ny,*x,*y) ;
  1659. X    }
  1660. X  else if (!(walls[*nx+2][*ny] ||
  1661. X            (GCENTERED(posx,posy) && walls[tx+2][ty]))) /* do nothing. */ ;
  1662. X  else status = 0 ;
  1663. X  return(status) ;
  1664. X}
  1665. X
  1666. X
  1667. Xheadto(destx,desty,scrx,scry,mx,my,dir,x,y,nx,ny)   /* Only called when GCENTERED. */
  1668. Xint *dir,destx,desty,scrx,scry,mx,my,*x,*y,*nx,*ny ;
  1669. X
  1670. X{
  1671. X  int dirar[5],rev,i,s,xinc,yinc ;
  1672. X
  1673. X  rev = REVERSEDIR(*dir) ;
  1674. X  xinc = mx - destx ;
  1675. X  yinc = my - desty ;
  1676. X  if (abs(xinc) > abs(yinc)) s = 2 ;
  1677. X  else s = 1 ;
  1678. X  if (xinc < 0)
  1679. X    {
  1680. X      dirar[3-s] = RIGHT ;
  1681. X      dirar[s+2] = LEFT ;
  1682. X    }
  1683. X  else
  1684. X    {
  1685. X      dirar[3-s] = LEFT ;
  1686. X      dirar[s+2] = RIGHT ;
  1687. X    }
  1688. X  if (yinc < 0)
  1689. X    {
  1690. X      dirar[s] = DOWN ;
  1691. X      dirar[5-s] = UP ;
  1692. X    }
  1693. X  else
  1694. X    {
  1695. X      dirar[s] = UP ;
  1696. X      dirar[5-s] = DOWN ;
  1697. X    }
  1698. X
  1699. X  for (i = 1; i <= 4; i++)     /* Adjust so reverse is last choice. */
  1700. X    if (dirar[i] == rev)
  1701. X      {
  1702. X        for (s = i; s <= 3; s++) dirar[s] = dirar[s+1] ;
  1703. X        dirar[4] = rev ;
  1704. X        break ;
  1705. X      }
  1706. X
  1707. X  for (s = 1; s <= 4; s++)
  1708. X    {
  1709. X      if (checkinc(dirar[s],mx,my))
  1710. X        {
  1711. X          *dir = dirar[s] ;
  1712. X          DOINC(*dir,scrx,scry,mx,my,x,y,nx,ny) ;
  1713. X          return ;
  1714. X        }
  1715. X    }
  1716. X}
  1717. X
  1718. X
  1719. Xdorandomdir(dir,scrx,scry,mx,my,x,y,nx,ny,ranrange)
  1720. Xint dir,scrx,scry,mx,my,*x,*y,*nx,*ny,ranrange ;
  1721. X
  1722. X{
  1723. X  int i,test,newdir,rev,status ;
  1724. X
  1725. X  test = randomrange(1,ranrange) ;
  1726. X  rev = REVERSEDIR(dir) ;
  1727. X  if ((test == 1) || (!checkinc(dir,mx,my)))
  1728. X    {
  1729. X      newdir = randomrange(0,3) ;
  1730. X      for (i = 0; i <= 3; i++)
  1731. X        {
  1732. X          if (newdir != rev)
  1733. X            if (checkinc(newdir,mx,my))
  1734. X              {
  1735. X                status = newdir ;
  1736. X                DOINC(newdir,scrx,scry,mx,my,x,y,nx,ny) ;
  1737. X                return(status) ;
  1738. X              }
  1739. X          newdir = (newdir + 1) % 4 ;
  1740. X        }
  1741. X    }
  1742. X  else
  1743. X    {
  1744. X      DOINC(dir,scrx,scry,mx,my,x,y,nx,ny) ;
  1745. X      status = dir ;
  1746. X    }
  1747. X  return(status) ;
  1748. X}
  1749. X
  1750. X
  1751. Xupdatebugs()
  1752. X
  1753. X/* Move each bug one bit in appropriate direction; change direction if appropriate. */
  1754. X
  1755. X{
  1756. X  register struct bugrec *g ;
  1757. X  int bemean ;
  1758. X
  1759. X  for (g = &bugs[POKEY]; g <= &bugs[SHADOW]; g++)
  1760. X    {
  1761. X      g->count++ ;
  1762. X      if (g->inbox || g->intunnel)
  1763. X        if (g->count % 2 == 0) return ;               /* Slow in box. */
  1764. X
  1765. X      if (g->bluetime > 0)
  1766. X        {
  1767. X          if (g->count % CATCHUP == 0) return ;       /* Go slower if blue. */
  1768. X          drawbug(g) ;                        /* Erase old before change blueTime. */
  1769. X          g->bluetime-- ;
  1770. X        }
  1771. X      else drawbug(g) ;                    /* Erase old. */
  1772. X
  1773. X      if (g->count % 7 == 0) g->pic = (g->pic + 1) % 2 ;
  1774. X
  1775. X      if (GCENTERED(g->scrx,g->scry))
  1776. X        {
  1777. X          g->intunnel = tunnel[g->mx+1][g->my] ;
  1778. X
  1779. X          if (!g->bluetime)
  1780. X            if (skilllevel < 5)
  1781. X              bemean = randomrange(0,10-skilllevel-GIND(g)) == 0 ;
  1782. X            else bemean = randomrange(0,skilllevel-5+GIND(g)) != 0 ;
  1783. X          else bemean = FALSE ;
  1784. X
  1785. X          if (g->inbox)
  1786. X            if ((g->mx == boxx) && (g->my == boxy)) g->inbox = FALSE ;
  1787. X
  1788. X          if (g->eyesonly)
  1789. X            {
  1790. X              if ((!g->enteringbox) && (g->mx == boxx) && (g->my == boxy))
  1791. X                {
  1792. X                  g->dir = DOWN ;
  1793. X                  g->enteringbox = TRUE ;
  1794. X                  DOINC(g->dir,g->scrx,g->scry,g->mx,g->my,&x,&y,&nx,&ny) ; 
  1795. X                }
  1796. X              else if (g->enteringbox)
  1797. X                if ((g->my > boxy + 2) &&
  1798. X                    (!doinc(g->dir,g->scrx,g->scry,g->mx,g->my,&x,&y,&nx,&ny)))
  1799. X                  {
  1800. X                    g->dir = UP ;
  1801. X                    g->enteringbox = FALSE ;
  1802. X                    g->inbox = TRUE ;
  1803. X                    g->eyesonly = FALSE ;
  1804. X                    DOINC(g->dir,g->scrx,g->scry,g->mx,g->my,&x,&y,&nx,&ny) ;
  1805. X                  }
  1806. X                else DOINC(g->dir,g->scrx,g->scry,g->mx,g->my,&x,&y,&nx,&ny) ;
  1807. X              else headto(boxx,boxy,g->scrx,g->scry,g->mx,g->my,&g->dir,&x,&y,&nx,&ny) ;
  1808. X            }
  1809. X          else if (g->boxtime)          /* Inbox should be true also. */
  1810. X            {
  1811. X              g->boxtime-- ;
  1812. X              if (g->boxtime < 0)       /* Heading to exit. */
  1813. X                {
  1814. X                  if (g->mx == boxx)    /* Found exit. */
  1815. X                    {
  1816. X                      g->boxtime = 0 ;
  1817. X                      g->dir = UP ;
  1818. X                      DOINC(g->dir,g->scrx,g->scry,g->mx,g->my,&x,&y,&nx,&ny) ;
  1819. X                    }
  1820. X                  else headto(boxx,boxy,g->scrx,g->scry,g->mx,g->my,&g->dir,&x,&y,&nx,&ny) ;
  1821. X                }
  1822. X              else if (!g->boxtime)      /* Start heading to exit. */
  1823. X                {
  1824. X                  g->boxtime = -1 ;
  1825. X                  headto(boxx,boxy,g->scrx,g->scry,g->mx,g->my,&g->dir,&x,&y,&nx,&ny) ;
  1826. X                }
  1827. X              else if (!doinc(g->dir,g->scrx,g->scry,g->mx,g->my,&x,&y,&nx,&ny))
  1828. X                {
  1829. X                  g->dir = REVERSEDIR(g->dir) ; /* Bounce up a down a while. */
  1830. X                  DOINC(g->dir,g->scrx,g->scry,g->mx,g->my,&x,&y,&nx,&ny) ;
  1831. X                }
  1832. X            }
  1833. X           else if (g->inbox)     /* Must be leaving the box; just keep going. */
  1834. X                  DOINC(g->dir,g->scrx,g->scry,
  1835. X                        g->mx,g->my,&x,&y,&nx,&ny) ;
  1836. X           else if (bemean)              /* Chase the circle. */
  1837. X             headto(cirmx,cirmy,g->scrx,g->scry,g->mx,g->my,&g->dir,&x,&y,&nx,&ny) ;
  1838. X           else g->dir = dorandomdir(g->dir,g->scrx,g->scry,
  1839. X                                            g->mx,g->my,&x,&y,&nx,&ny,3) ;
  1840. X         }
  1841. X       else DOINC(g->dir,g->scrx,g->scry,g->mx,g->my,&x,&y,&nx,&ny) ;
  1842. X
  1843. X       g->scrx = x ;
  1844. X       g->scry = y ;
  1845. X       g->mx = nx ;
  1846. X       g->my = ny ;
  1847. X       drawbug(g) ;                /* Draw new. */
  1848. X    }
  1849. X}
  1850. X
  1851. X
  1852. Xmain(argc,argv)
  1853. Xint argc ;
  1854. Xchar *argv[] ;
  1855. X
  1856. X{
  1857. X  get_options(argc,argv) ;          /* Get command line options. */
  1858. X  function_keys(KEY_SET) ;          /* Set direction arrow function keys. */
  1859. X
  1860. X  if ((pf = pf_open("/usr/lib/fonts/fixedwidthfonts/screen.r.14")) == NULL)
  1861. X    {
  1862. X      FPRINTF("Can't open screen.r.14 font.\n") ;
  1863. X      function_keys(KEY_RESET) ;
  1864. X      exit(1) ;
  1865. X    }
  1866. X
  1867. X  base_frame = window_create(NULL, FRAME,
  1868. X                             FRAME_LABEL, titlestring,
  1869. X                             FRAME_ICON, &sid_icon,
  1870. X                             WIN_X, orgx,
  1871. X                             WIN_Y, orgy,
  1872. X                             WIN_WIDTH, width,
  1873. X                             WIN_HEIGHT, height,
  1874. X                             WIN_FONT, pf,
  1875. X                             FRAME_ARGS, argc, argv,
  1876. X                             0) ;
  1877. X  canvas = window_create(base_frame, CANVAS,
  1878. X                         CANVAS_RETAINED, FALSE,
  1879. X                         CANVAS_FAST_MONO, TRUE,
  1880. X                         CANVAS_REPAINT_PROC, restore_screen,
  1881. X                         WIN_EVENT_PROC, event_proc,
  1882. X                         0) ;
  1883. X
  1884. X  window_set(canvas, WIN_CONSUME_KBD_EVENTS, WIN_ASCII_EVENTS, 0) ;
  1885. X  window_set(canvas, WIN_CONSUME_KBD_EVENTS, WIN_LEFT_KEYS, 0) ;
  1886. X  window_set(canvas,WIN_IGNORE_PICK_EVENT,LOC_MOVE,0) ;
  1887. X
  1888. X  pw = canvas_pixwin(canvas) ;
  1889. X
  1890. X/* Set up no delay for events within the canvas. */
  1891. X  canvasfd = (int) window_get(canvas,WIN_FD) ;
  1892. X  canvasflags = fcntl(canvasfd,F_GETFL,0) ;
  1893. X  canvasflags |= FNDELAY ;
  1894. X  FCNTL(canvasfd,F_SETFL,canvasflags) ;
  1895. X
  1896. X  sfunc = PIX_SRC ;                  /* Used by WRITELN. */
  1897. X  iocursormode(OFFCURSOR) ;
  1898. X
  1899. X  initrandom() ;
  1900. X  numplayers = 1 ;
  1901. X  skilllevel = 5 ;
  1902. X  lastnumplayers = 1 ;
  1903. X  autoplay = FALSE ;
  1904. X  initgame() ;
  1905. X  initialize() ;
  1906. X  redraw = 0 ;                       /* Don't redraw the screen, the first time. */
  1907. X  started = 1 ;
  1908. X  autoplay = 1 ;
  1909. X  progstate = STARTUP ;
  1910. X
  1911. X  (void) notify_set_itimer_func(base_frame, main_loop, ITIMER_REAL,
  1912. X                        &NOTIFY_POLLING_ITIMER, ((struct itimerval *) 0)) ;
  1913. X  window_main_loop(base_frame) ;
  1914. X  function_keys(KEY_RESET) ;         /* Restore direction arrow function keys. */
  1915. X  exit(0) ;
  1916. X}
  1917. X
  1918. X
  1919. X/*ARGSUSED*/
  1920. Xvoid
  1921. Xevent_proc(window,event,arg)
  1922. XWindow *window ;
  1923. XEvent *event ;
  1924. Xcaddr_t arg ;
  1925. X
  1926. X{
  1927. X  int x,y ;     /* Position of mouse when button pressed. */
  1928. X  int i ;
  1929. X
  1930. X  if (event_is_ascii(event))
  1931. X    {
  1932. X      c = event_id(event) ;
  1933. X      if (progstate == NEXTLINE) return ;
  1934. X      if ((c == DEL) && !demomode)
  1935. X        {
  1936. X          c = 0 ;
  1937. X          started = 0 ;
  1938. X          progstate = DELHIT ;
  1939. X          return ;
  1940. X        }
  1941. X      else if (c == CTRLS)
  1942. X        {
  1943. X          savedstate = progstate ;
  1944. X          progstate = CTRLSHIT ;
  1945. X          return ;
  1946. X        }
  1947. X      else if (c == CTRLQ)
  1948. X        {
  1949. X          progstate = savedstate ;
  1950. X          return ;
  1951. X        }
  1952. X      else if (!autoplay) sc = c ;
  1953. X    }
  1954. X  else if (event_is_down(event) && event_is_button(event))
  1955. X    {
  1956. X      x = event_x(event) ;
  1957. X      y = event_y(event) ;
  1958. X      if (y > BUTYOFF && y < BUTYOFF+2*SQUARE)
  1959. X        for (i = BUT_AUTO; i <= BUT_START; i++)
  1960. X          if (x > BUTXOFF+i*100 && x < BUTXOFF+i*100+120) c = i+2 ;
  1961. X    }
  1962. X}
  1963. X
  1964. X
  1965. X/*ARGSUSED*/
  1966. Xstatic Notify_value
  1967. Xmain_loop(client, itimer_type)
  1968. XNotify_client client ;
  1969. Xint itimer_type ;
  1970. X
  1971. X{
  1972. X  int i ;
  1973. X
  1974. X  switch (progstate)
  1975. X    {
  1976. X      case STARTUP   : SETJMP(exception) ;
  1977. X                       if (progstate) break ;
  1978. X                       else progstate = INITGAME ;
  1979. X                       break ;
  1980. X      case INITGAME  : initgame() ;
  1981. X                       progstate = PLAY ;
  1982. X                       break ;
  1983. X      case PLAY      : play() ;
  1984. X                       progstate = DOPLAY ;
  1985. X                       break ;
  1986. X      case DOPLAY    : doplay() ;
  1987. X                       progstate = MAKEPLAY ;
  1988. X                       break ;
  1989. X      case MAKEPLAY  : make_play() ;
  1990. X                       break ;
  1991. X      case DOREST    : numplayers = 1 ;
  1992. X                       progstate = HIGHSCORE ;
  1993. X                       break ;
  1994. X      case HIGHSCORE : writehighscore() ;
  1995. X                       break ;
  1996. X      case NEXTLINE  : getnewscore(365,200) ;
  1997. X                       break ;
  1998. X      case DOCREDIT  : if (!demomode)
  1999. X                         {
  2000. X                           dohighscores() ;
  2001. X                           WRITELN(5,860,"Type DEL to begin") ;
  2002. X                           for (i = 1; i <= 200; i++) LONGPAUSE() ;
  2003. X                         }
  2004. X                       docredits() ;
  2005. X                       break ;
  2006. X      case MOVELEFT  : move_left() ;
  2007. X                       break ;
  2008. X      case MOVERIGHT : move_right() ;
  2009. X                       break ;
  2010. X      case DELHIT    : autoplay = FALSE ;
  2011. X                       iocursormode(TRACKCURSOR) ;
  2012. X                       make_control_panel() ;
  2013. X                       display_settings() ;
  2014. X                       progstate = GETBUT ;
  2015. X                       break ;
  2016. X      case GETBUT    : get_button_option() ;
  2017. X                       break ;
  2018. X      case MAKESEL   : make_selection() ;
  2019. X                       break ;
  2020. X      case DOLEAVE   : SCHRFUNC(RRPL) ;
  2021. X                       autoplay = TRUE ;
  2022. X                       progstate = DOREST ;
  2023. X                       break ;
  2024. X      case RESETGAME : remove = gamestate ;
  2025. X                       progstate = DOPLAY ;
  2026. X                       break ;
  2027. X      case CTRLSHIT  : break ;
  2028. X    } 
  2029. X}
  2030. END_OF_sid_main.c
  2031. if test 23265 -ne `wc -c <sid_main.c`; then
  2032.     echo shar: \"sid_main.c\" unpacked with wrong size!
  2033. fi
  2034. # end of overwriting check
  2035. fi
  2036. echo shar: End of archive 1 \(of 5\).
  2037. cp /dev/null ark1isdone
  2038. MISSING=""
  2039. for I in 1 2 3 4 5 ; do
  2040.     if test ! -f ark${I}isdone ; then
  2041.     MISSING="${MISSING} ${I}"
  2042.     fi
  2043. done
  2044. if test "${MISSING}" = "" ; then
  2045.     echo You have unpacked all 5 archives.
  2046.     rm -f ark[1-9]isdone
  2047. else
  2048.     echo You still need to unpack the following archives:
  2049.     echo "        " ${MISSING}
  2050. fi
  2051. ##  End of shell archive.
  2052. exit 0
  2053.