home *** CD-ROM | disk | FTP | other *** search
/ ST-Computer Leser 2002 January / STC_CD_01_2002.iso / GAMES / BOINKO21 / SRC / SRC / BOINKOUT.C < prev    next >
C/C++ Source or Header  |  2002-01-03  |  55KB  |  2,396 lines
  1. /********************************************
  2. *        Boinkout program and acc            *
  3. *                                            *
  4. *        Based Upon code by                    *
  5. *        Samuel Streeper 90/02/26            *
  6. *                                            *
  7. *    Original Version                        *
  8. *    Copyright 1990 by Antic Publishing Inc.    *
  9. *                                            *
  10. * "what to do with all that wasted            *
  11. *    CPU time Part III"                        *
  12. ********************************************/
  13.  
  14. /* edited with tabsize = 4 */
  15.  
  16. /*  Updating Notes:
  17.     Well Antic went belly up shortly after running this article and
  18.     code.  There were numerous stories at the time of them not actually
  19.     paying authors for code/articles that they had written.
  20.     I DO NOT KNOW IF THIS WAS THE CASE WITH BOINKOUT!
  21.     However, Mr. Streeper ported it to the next station,
  22.     that he worked on shortly after this.  In fact it became
  23.     a hit there (being one of the few initial games for that 
  24.     platform).  Since then it has seen a few incarnations most
  25.     recently in JAVA.   I thought it was kind of irritating that
  26.     this great game, no longer ran on many modern atari systems
  27.     due to some programming conflicts that have arisen since its
  28.     initial release.  While I was in here I made a few more changes,
  29.     such as the XIMG backdrop support.  There are probably more
  30.     errors running around in here.  Don't try to use the linea support
  31.     unless you put it all back in.  I ripped most of it out.  I know
  32.     that there are some people that can still use linea.  However In
  33.     almost all cases I beleive they can use the initial game as well.
  34.     
  35.         - Dan Ackerman    August 1999
  36.         baldrick@netset.com
  37.         
  38.  
  39.     I spoke with Mr. Streeper via email one day.  He was very happy to
  40.     see BoinkOut2.  Whew!  One worry gone :)
  41. */
  42.  
  43. /*    Compiler notes:        */
  44. /*    ---------------        */
  45. /*    This code compiles with Laser C and Mark Williams C                    */
  46. /*    version 2.0. It shouldn't be tough to get it to compile with other    */
  47. /*    things...                                                             */
  48. /*    There are just a few things to look out for when porting this        */
  49. /*    between compilers:                                                    */
  50.  
  51. /*    The blitter routines require a structure known as a memory form        */
  52. /*    descriptor block. Laser C and Alcyon C call this structure a        */
  53. /*    MFDB, while MWC calls this a FDB.                                    */
  54.  
  55. /*    This code will work as both a desk accessory or a program if you    */
  56. /*    link it with the proper startup module. The default Laser startup    */
  57. /*    module works ok. I recommend linking to the laser or                */
  58. /*    MWC startup code supplied with Start magazine October 89. This code    */
  59. /*    gives the smallest executable file, and will work as a program or    */
  60. /*    DA just by changing the file's extention from .prg to .acc            */
  61.  
  62. #include <stdio.h>
  63. #include <string.h>
  64. #include <stdlib.h>
  65. #include <time.h>
  66.  
  67. #include "boink.h"
  68.  
  69. #ifndef EXIT_FAILURE
  70. #define EXIT_FAILURE 1
  71. #endif
  72.  
  73.  
  74. /** _app should be FALSE if boinkout is started as an accessory  **/
  75. /** This is an compiler dependant variable, so adapt it to yours **/
  76. #if OS_TOS
  77. #define GLOBAL    0x0020
  78. #define ALLOCMODE 3|GLOBAL
  79. #define GS_REQUEST  0x1350
  80. #define GS_REPLY    0x1351
  81. #define GS_COMMAND  0x1352
  82. #define GS_ACK      0x1353
  83. #define GS_QUIT     0x1354
  84.  
  85. #define GSM_COMMAND 0x0001
  86.  
  87. #define GSACK_OK      0
  88. #define GSACK_UNKNOWN 1
  89. #define GSACK_ERROR   2
  90. typedef struct
  91. {
  92.     long len;
  93.     int  version;
  94.     int  msgs;
  95.     long ext;
  96. } GS_INFO;
  97. int gsapp=-1;
  98. char *xaccname =NULL;
  99. GS_INFO    *gsi = NULL;
  100. #ifdef __TURBOC__
  101. extern int _app;
  102. #endif
  103. #endif
  104. #if OS_DOS
  105. int _app=1;
  106. #endif
  107.  
  108. /* prototypes */
  109. void rsrc_init(void);
  110. void do_redraw(void);
  111. void new_game(void);
  112. void add_region(int x,int y,int w,int h);
  113. void clear(int x,int y,int w,int h);
  114. void restart_level(void);
  115. void boink_dial(void);
  116. void load_levels(void);
  117. void load_pic(void);
  118. void multi(void);
  119. int open_game_window(void);
  120. void open_vwork(void);
  121. void open_jump(void);
  122. int do_jumpdial(void);
  123.  
  124. /* External variables */
  125. extern int monoballs[], monobricks[], mono_perm_bricks[], monopaddle[];
  126. extern int mono_digits[], mono_fuji[], monofuji_mask[], mono_eye[];
  127. extern int mono_leveltext[], mono_twobrick[], invis, magic_bottom;
  128. extern int medballs[], medbricks[], med_perm_bricks[], medpaddle[];
  129. extern int med_digits[], med_fuji[], medfuji_mask[], med_eye[];
  130. extern int med_leveltext[], med_twobrick[], gravity;
  131.  
  132. extern long snd_system;
  133. extern int sound_switch;
  134.  
  135.  
  136. /* Variables */
  137. int n_redraws;
  138. GRECT region[MAX_ANI];        /* a list of redraw regions */
  139. GRECT tregion [MAX_ANI];        /* temporary clipping region */
  140. BALL_STRUCT bs[MAX_BALLS];
  141.  
  142. int num_balls;
  143. int done = FALSE; /* Tests whether users wants to quit program under application mode */
  144.  
  145. /*char null[] = "";*/
  146.  
  147. #define WI_KIND    (MOVER|CLOSER|NAME)
  148.  
  149. OBJECT *about_dial,*menu_ptr,*timing_dial,*highscore_dial,*scorelist_dial,
  150.         *loading_dial,*icons_dial,*jump_dial, *objcolor_dial;
  151. char *alert_noscore, *alert_cantcreate, *alert_cantfind, *alert_invalid;
  152.  
  153. int    aes_id;
  154.  
  155. int    gl_hchar, gl_wchar, gl_wbox, gl_hbox;    /* sizes of system characters */
  156.  
  157. int    win_kind = WI_KIND;
  158. int    menu_id, paddle_x, paddle_y, pad_y_min, pad_y_max, pad_y_top;
  159.  
  160. int    phys_handle;    /* physical workstation handle */
  161. int    vdi_handle;            /* virtual workstation handle */
  162.  
  163. struct win_info win[MAX_WINDOWS]; /* 1 win_info struct for each window */
  164.  
  165. SCORE_ENTRY scores[10] =
  166. { 
  167.     "Mr. Humphries", 10, 5000L,
  168.     "Mr. Grace Jr.", 9, 4000L,
  169.     "Mr. Lucas", 8, 3500L,
  170.     "Cpt. Peacock", 7, 3000L,
  171.     "Mr. Rumbold", 6, 2500L,
  172.     "Mr. Granger", 5, 2000L,
  173.     "Mrs. Slocumb", 4, 1500L,
  174.     "Mr. Harmon", 3, 1000L,
  175.     "Ms. Brahms", 2, 750L,
  176.     "Mr. Tebbs", 1, 500L
  177. } ; /* This is our highscore list */
  178.  
  179. GRECT desk;
  180. GRECT old;
  181. GRECT work;    /* desktop and work areas */
  182. GRECT max;
  183.  
  184. int    msg[8];                    /* event message buffer */
  185. int    ret;
  186.  
  187. int win_width = 448;
  188. int win_height = 344;
  189.  
  190. extern char intbrickmask[36][63];
  191. char brickmask[99][63];
  192. int level;
  193. int file_levels = 36; /* Number of levels in current file */
  194.  
  195. extern int mode;
  196. int ani_count, num_bricks, cheat;
  197. int    ball_ht = 20; /* Was 21; for some reason */
  198. int win_ht = HEIGHT;
  199. int max_xspeed = 8;
  200. int min_yspeed = -8;
  201. int planes;            /* number of bit planes */
  202.  
  203. int btop = 44;        /* actual top of block of bricks */
  204. int btopm = 39;        /* measured top of bricks */
  205. int bth = 26;        /* total brick height, including space */
  206. int bh = 16;        /* brick height */
  207. int block_bot = 221;    /* block_top = btopm + 7 * bth */
  208. int bleft = 6;
  209. int btw = 48;
  210. int pady_offset = 25;
  211. int max_pad_dy = 16;
  212. int pad_ht = 19;     /* paddle height */
  213. int fuji_ht = 13;
  214. int fmask_ht = 15;
  215. int text_ht = 12;
  216.  
  217. char brickcount[63];
  218. int objcolors[6] = {1,1,1,1,1,1};
  219. int curr_colorobj = -1;
  220.  
  221. char title_bar[] = " BoinkOut2 ";
  222.  
  223. long score, old_score, bonus_life, old_bonus;
  224. int lives, old_lives;
  225.  
  226. int    timer = 0;
  227. int ttimer, event_kind = MU_KEYBD | MU_MESAG | MU_BUTTON;
  228.  
  229. int remap_pal = 1;  /* If this is off the screen colors will be modified by window */
  230.  
  231. int screen_colors;
  232. int junkcolors[2] = {0,1};
  233.  
  234. int ballarray[8];            /* ball blit array */
  235. int paddlearray[8];            /* paddle blit array */
  236. int brickarray[8];
  237.  
  238. long mfdb_buffersize;
  239.  
  240. MFDB ballsource = {0L,144,20,144/16,0,1,0,0,0};
  241. MFDB ballmask = {0L,144,20,144/16,0,1,0,0,0};
  242. MFDB paddlesource = {0L,64,19,64/16,0,1,0,0,0};
  243. MFDB paddlemask = {0L,64,19,64/16,0,1,0,0,0};
  244. MFDB bricksource = {0L,192,16,192/16,0,1,0,0,0};
  245. MFDB nbrickmask = {0L,192,16,192/16,0,1,0,0,0};
  246. MFDB twobricksource = {0L,192,16,192/16,0,1,0,0,0};
  247. MFDB magicbricksource = {0L,192,16,192/16,0,1,0,0,0};
  248. MFDB twobrickmask = {0L,192,16,192/16,0,1,0,0,0};
  249. MFDB permbricksource = {0L,192,16,192/16,0,1,0,0,0};
  250. MFDB permbrickmask = {0L,192,16,192/16,0,1,0,0,0};
  251. MFDB windsource = {0L,448,344,448/16,0,1,0,0,0};
  252. MFDB pic_buf = {0L,448,344,448/16,0,1,0,0,0};
  253. MFDB tit_buf = {0L,474,77,474/16,0,1,0,0,0};
  254. MFDB digitsource = {0L,5*16,12,5,0,1,0,0,0};
  255. MFDB fujisource = {0L,7*16,13,7,0,1,0,0,0};
  256. MFDB fmasksource = {0L,7*16,15,7,0,1,0,0,0};
  257. MFDB eyesource = {0L,144,20,144/16,0,1,0,0,0};
  258. MFDB eyemask = {0L,144,20,144/16,0,1,0,0,0};
  259. MFDB levelsource = {0L,3*16,12,3,0,1,0,0,0};
  260. MFDB screen_fdb;
  261.  
  262. char path[PATH_MAX], name[FILENAME_MAX], lpath[PATH_MAX], spath[PATH_MAX], image_name[FILENAME_MAX];
  263. char config_file[FILENAME_MAX];
  264. char score_file[FILENAME_MAX];
  265.  
  266. RGB1000 screen_colortab[256]; /* used to save colors */
  267. RGB1000 imgcolortab[256]; /* used to save colors */
  268. RGB1000 aboutcolortab[256]; /* used to save colors */
  269.  
  270.  
  271. char *boinkout_version = "This version FREEWARE  Ver: 2.1";
  272.  
  273. #if OS_TOS
  274.     int    AES_type; /* We might want this to be global */
  275. #endif
  276.  
  277. /****************************************************************/
  278. /* open virtual workstation                                        */
  279. /****************************************************************/
  280. void
  281. open_vwork(void)
  282. {
  283.     register int i;
  284.     int work_in[11], work_out[57], vwork_out[57];
  285.  
  286.     for(i=0;i<10;work_in[i++]=1);
  287.     work_in[10]=2;
  288.     vdi_handle=phys_handle;
  289.     v_opnvwk(work_in,&vdi_handle,work_out);
  290.  
  291.     vq_extnd(vdi_handle, 1, vwork_out);
  292.     screen_colors = work_out[13];
  293.     planes = vwork_out[4];
  294.  
  295.     screen_fdb.fd_addr = 0L; /* This is the official way for the screen FDB */
  296. }
  297.  
  298.  
  299.  
  300.  
  301. int hidden;        /* = FALSE */
  302. /****************************************************************/
  303. /* find and redraw all clipping rectangles            */
  304. /****************************************************************/
  305. void
  306. do_redraw(void)
  307. {
  308.     register GRECT *p;
  309.     GRECT t;
  310.     register int i;
  311.     int array[8];
  312.     int x_pos,y_pos, mxmin, mxmax, mymin, mymax;
  313.     int mbut,kstate;
  314.     
  315.     graf_mkstate(&x_pos,&y_pos,&mbut,&kstate);
  316.  
  317.     if (mbut == 0)
  318.         ttimer = timer;
  319.     else
  320.         ttimer = 200;
  321.         
  322.     mxmin = x_pos - 20;
  323.     mxmax = x_pos + 20;
  324.     mymin = y_pos - 20;
  325.     mymax = y_pos + 20;
  326.  
  327.     wind_update(TRUE);
  328.  
  329.     /* check all redraw regions for mouse interference */
  330.     for (i=0; i<n_redraws; i++)
  331.     {
  332.         p = ®ion[i];
  333.         if ((p->g_x < mxmax) && ((p->g_x + p->g_w) > mxmin) &&
  334.             (p->g_y < mymax) && ((p->g_y + p->g_h) > mymin))
  335.         {    
  336.             HIDE_MOUSE;
  337.             hidden = TRUE;
  338.             break;
  339.         }
  340.     }
  341.  
  342.     /* clip all regions to screen size */
  343.     for (i=0; i<n_redraws; i++)
  344.     {
  345.         p = ®ion[i];
  346.  
  347.         if (p->g_x < 0) 
  348.             p->g_x = 0;
  349.  
  350.         if ((p->g_x+p->g_w) > desk.g_w) p->g_w = desk.g_w - p->g_x;
  351.         if ((p->g_y+p->g_h) > max.g_y) p->g_h =max.g_y-p->g_y;
  352.     }
  353.  
  354.     wind_get(win[GAME_WIN].handle,WF_FIRSTXYWH,ELTR(t));
  355.  
  356.     while (t.g_w && t.g_h)
  357.     {
  358.         for (i=0; i<n_redraws; i++)
  359.         {
  360.             p = &tregion[i];
  361.             *p = t;                /* copy this window rect */
  362.  
  363.             if (rc_intersect(®ion[i],p))
  364.             /* tregion[i] clipped to my redraw region */
  365.             {
  366.                 array[0] = p->g_x - work.g_x;
  367.                 array[1] = p->g_y - work.g_y;
  368.                 array[2] = p->g_x - work.g_x + p->g_w - 1;
  369.                 array[3] = p->g_y - work.g_y + p->g_h - 1;
  370.                 array[4] = p->g_x;
  371.                 array[5] = p->g_y;
  372.                 array[6] = p->g_x + p->g_w - 1;
  373.                 array[7] = p->g_y + p->g_h - 1;
  374.  
  375.                 vro_cpyfm(vdi_handle,S_ONLY,array,&windsource,&screen_fdb);
  376.             }
  377.         }
  378.         wind_get(win[GAME_WIN].handle,WF_NEXTXYWH,ELTR(t));
  379.     }
  380.  
  381.     if (hidden)
  382.     {    
  383.         hidden = FALSE;
  384.         SHOW_MOUSE;
  385.     }
  386.  
  387.     wind_update(FALSE);
  388.     n_redraws = 0;
  389. }
  390.  
  391. /********************************/
  392. /*        MAIN()                     */
  393. /********************************/
  394. int
  395. main()
  396. {
  397.     char tempname[FILENAME_MAX];
  398.     char titname[FILENAME_MAX];
  399.  
  400.     srand(time(NULL)); /* Initialize the random number generator ( for rand() )*/
  401.  
  402.     aes_id = appl_init(); /* aes_id wasn't being set?  - DAN */
  403.  
  404. #if OS_TOS
  405.     AES_type = identify_AES();
  406.  
  407.     if (_app != 0)
  408.     {
  409.         if( AES_type != AES_single ) 
  410.         {
  411.             shel_write(9,1,1,"","");
  412.                 
  413.             if ( (AES_type == AES_MTOS)||(AES_type == AES_nAES))
  414.                 menu_register(aes_id, "  BoinkOut2  ");
  415.         }
  416.     }
  417.     else
  418.         menu_id = menu_register(aes_id, "  BoinkOut2  ");
  419. #else
  420.     if (!_app) menu_id=menu_register(aes_id,"  BoinkOut2  ");
  421. #endif
  422.  
  423.  
  424.       if( AES_type == AES_single ) 
  425.        {
  426.            if (_app != 0)
  427.             va_helpbuf = (char *) Malloc(250);
  428.         else
  429.             va_helpbuf = (char *) malloc(250);
  430.     }
  431.     else
  432.         va_helpbuf = (char *) Mxalloc(250,ALLOCMODE);
  433.  
  434.     va_helpbuf[0] = 0;
  435.  
  436.     send_avprot();
  437.     
  438.     phys_handle=graf_handle(&gl_wchar,&gl_hchar,&gl_wbox,&gl_hbox);
  439.  
  440.     wind_get(0, WF_WORKXYWH, ELTR(desk));
  441.  
  442.     old.g_x = desk.g_x + (desk.g_w - WIDTH) / 2;
  443.     old.g_y = desk.g_y + (desk.g_h - win_ht) / 3;
  444.     old.g_w = WIDTH;
  445.     old.g_h = win_ht;
  446.  
  447.     max.g_x = desk.g_x + desk.g_w;
  448.     max.g_y = desk.g_y + desk.g_h;
  449.  
  450. /*    Set up the path for the background picture*/
  451. #if OS_TOS
  452.     path[0] = Dgetdrv() + 'A';
  453.     path[1] = ':';
  454.     Dgetpath(path+2, 0);
  455. #endif
  456. #if OS_DOS
  457.     path[0] = dos_gdrv() + 'A';
  458.     path[1] = ':';
  459.     path[2] = '\\';
  460.     dos_gdir(0, path+3);
  461. #endif
  462. #if OS_UNIX
  463.     getcwd(path, PATH_MAX); /* Will most probably not work */
  464. #endif
  465.     if(path[strlen(path)-1]=='\\')  path[strlen(path)-1]=0;
  466.  
  467.     strcpy(tempname,path);
  468.     strcpy(titname,path);
  469.     strcpy(config_file,path);
  470.     strcpy(score_file,path);
  471.     strcpy(lpath,path);
  472.     strcpy(spath,path);
  473.  
  474. #if OS_TOS
  475.     if( AES_type != AES_single ) 
  476.     {
  477. #endif
  478.         strcat(lpath,"\\data\\levels\\*.lvl");
  479.         strcat(path,"\\data\\img\\*.img");
  480.         strcat(spath,"\\data\\snd\\*.avr");
  481.         strcpy(name,"BOINKOUT.LVL"/*null*/);
  482. #if OS_TOS
  483.     }
  484.     else
  485.     {
  486.         strcat(lpath,"\\data\\levels\\*.LVL");
  487.         strcat(path,"\\data\\img\\*.IMG");
  488.         strcat(spath,"\\data\\snd\\*.AVR");
  489.         strcpy(name,"BOINKOUT.LVL"/*null*/);    
  490.     }
  491. #endif
  492.  
  493.     win[GAME_WIN].handle = NO_WINDOW;
  494.     win[ABOUT_WIN].handle = NO_WINDOW;
  495.     win[JUMP_WIN].handle = NO_WINDOW;
  496.     win[SCORE_WIN].handle = NO_WINDOW;
  497.  
  498.     if (_app)
  499.     {
  500.         open_vwork();
  501.     }
  502.  
  503.     strcat(config_file,"\\data\\boinkout.cfg");
  504.     read_cfg_file(config_file);
  505.  
  506.     if(desk.g_h>300)            /* new monitor */
  507.     {
  508.         windsource.fd_nplanes = planes;
  509.         pic_buf.fd_nplanes = planes;
  510.         tit_buf.fd_nplanes = planes;
  511.          pic_buf.fd_w = windsource.fd_w = win_width;   /* width        */
  512.         windsource.fd_wdwidth = pic_buf.fd_wdwidth = (pic_buf.fd_w + 15) >> 4;
  513.         tit_buf.fd_wdwidth = (tit_buf.fd_w + 15) >> 4;
  514.         windsource.fd_h = pic_buf.fd_h = win_height;     /* height       */
  515.         windsource.fd_stand = pic_buf.fd_stand = 0;                     /* raster format = device */
  516.  
  517.         ballsource.fd_addr = monoballs; 
  518.         ballmask.fd_addr = monoballs; 
  519.         paddlesource.fd_addr = monopaddle;
  520.         paddlemask.fd_addr = monopaddle;
  521.         bricksource.fd_addr = monobricks;
  522.         nbrickmask.fd_addr = monobricks;
  523.         twobricksource.fd_addr = mono_twobrick;
  524.         magicbricksource.fd_addr = mono_twobrick;
  525.         twobrickmask.fd_addr = mono_twobrick;
  526.         permbricksource.fd_addr = mono_perm_bricks;
  527.         permbrickmask.fd_addr = mono_perm_bricks;
  528.         digitsource.fd_addr = mono_digits;
  529.         fujisource.fd_addr = mono_fuji;
  530.         fmasksource.fd_addr = monofuji_mask;
  531.         eyesource.fd_addr = mono_eye;
  532.         eyemask.fd_addr = mono_eye;
  533.         levelsource.fd_addr = mono_leveltext;
  534.  
  535.         fix_image(&ballsource,objcolors[1]);
  536.         fix_image(&paddlesource,objcolors[0]);
  537.         fix_image(&bricksource,objcolors[2]);
  538.         fix_image(&twobricksource,objcolors[5]);
  539.         fix_image(&magicbricksource,objcolors[4]);
  540.         fix_image(&permbricksource,objcolors[3]);
  541.         fix_image(&digitsource,1);
  542.         fix_image(&fujisource,objcolors[1]);
  543.         fix_image(&eyesource,objcolors[1]);
  544.         fix_image(&levelsource,1);
  545.  
  546.         pad_y_min = 247;
  547.         pad_y_max = 323;
  548.     }
  549.     else
  550.     {
  551.         win_height=win_height/2;
  552.         windsource.fd_nplanes = planes;
  553.         pic_buf.fd_nplanes = planes;
  554.         tit_buf.fd_nplanes = planes;
  555.          pic_buf.fd_w = windsource.fd_w = win_width;   /* width        */
  556.         windsource.fd_wdwidth = pic_buf.fd_wdwidth = (pic_buf.fd_w + 15) >> 4;
  557.         tit_buf.fd_wdwidth = (tit_buf.fd_w + 15) >> 4;
  558.         windsource.fd_h = pic_buf.fd_h = win_height;     /* height       */
  559.         windsource.fd_stand = pic_buf.fd_stand = 0;                     /* raster format = device */
  560.  
  561.         ball_ht = 10;
  562.         win_ht = HEIGHT/2;
  563.         min_yspeed = -4;
  564.         btop = 22;
  565.         btopm = 20;
  566.         bth = 13;
  567.         bh = 8;
  568.         block_bot = 111;
  569.         pady_offset = 12;
  570.         max_pad_dy = 8;
  571.         pad_ht = 10;
  572.         fuji_ht = 6;
  573.         fmask_ht = 8;
  574.         text_ht = 6;
  575.  
  576.         pad_y_min = 122;
  577.         pad_y_max = 159;
  578.  
  579.         ballsource.fd_addr = medballs;
  580.         paddlesource.fd_addr = medpaddle;
  581.         paddlemask.fd_addr = medpaddle;
  582.         bricksource.fd_addr = medbricks;
  583.         nbrickmask.fd_addr = medbricks;
  584.         twobricksource.fd_addr = med_twobrick;
  585.         magicbricksource.fd_addr = med_twobrick;
  586.         twobrickmask.fd_addr = med_twobrick;
  587.         permbricksource.fd_addr = med_perm_bricks;
  588.         permbrickmask.fd_addr = med_perm_bricks;
  589.         digitsource.fd_addr = med_digits;
  590.         fujisource.fd_addr = med_fuji;
  591.         fmasksource.fd_addr = medfuji_mask;
  592.         eyesource.fd_addr = med_eye;
  593.         eyemask.fd_addr = med_eye;
  594.         levelsource.fd_addr = med_leveltext;
  595.  
  596.     }
  597.  
  598.     mfdb_buffersize = 2L*(long)pic_buf.fd_wdwidth*(long)pic_buf.fd_nplanes*(long)pic_buf.fd_h;
  599.  
  600.     if(( windsource.fd_addr = (short *) malloc(mfdb_buffersize ))== NULL)
  601.         printf("No memory for window buffer\r\n");
  602.     if(( pic_buf.fd_addr = (short *) malloc(mfdb_buffersize )) == NULL)
  603.         printf("No memory for off screen buffer\r\n");
  604.  
  605.     /* Now load the title picture */
  606.  
  607.     mfdb_buffersize = 2L*(long)tit_buf.fd_wdwidth*(long)tit_buf.fd_nplanes*(long)tit_buf.fd_h;
  608.  
  609.     /* Not being able to load the title image should NOT be fatal 
  610.         however it is at the moment */
  611.  
  612.     if(( tit_buf.fd_addr = (short *) malloc(mfdb_buffersize )) == NULL)
  613.         printf("No memory for title buffer\r\n");
  614.  
  615.     /* Load RSC */
  616.     if (!rsrc_load("boinkout.rsc"))
  617.     {
  618.         form_alert(1, "[1][Error Loading Resource!][Quit]");
  619.         exit(EXIT_FAILURE);
  620.     }
  621.         
  622.     rsrc_init();
  623.     
  624.     set_tedinfo(about_dial, R_VERSION, boinkout_version);
  625.     
  626.     if (_app)
  627.     {
  628.         graf_mouse( ARROW, 0L);
  629.  
  630.         menu_bar(menu_ptr, 1);    /* display the menu */
  631.     }
  632.  
  633.     save_colors();
  634.  
  635.     if (_app)
  636.     {
  637.         do_loading();
  638.  
  639.         do_wind_redraw(win[LOADING_WIN].handle,&win[LOADING_WIN].curr);
  640.     }
  641.  
  642.     strcat(titname,"\\data\\img\\title.img");
  643.     img_load(&tit_buf, titname);
  644.  
  645.     save_about_colors();
  646.  
  647.     if (_app)
  648.     {
  649.         set_tedinfo(loading_dial, RIMG_COUNT, "(2/2)");
  650.         
  651.         do_wind_redraw(win[LOADING_WIN].handle,&win[LOADING_WIN].curr);
  652.     }
  653.  
  654.     strcat(tempname,"\\data\\img\\back.img");
  655.     img_load(&pic_buf, tempname);
  656.  
  657.     save_image_colors();
  658.  
  659.     if (_app)
  660.     {
  661.         wind_close(win[LOADING_WIN].handle);
  662.         wind_delete(win[LOADING_WIN].handle);
  663.  
  664.         win[LOADING_WIN].handle = NO_WINDOW;
  665.     }
  666.  
  667.     reset_colors();
  668.  
  669.     strcat(score_file,"\\data\\boinkout.hgh");
  670.     read_highscore();
  671.  
  672.     memcpy(brickmask,intbrickmask,sizeof(intbrickmask));
  673.  
  674.     sound_init();
  675.  
  676.     multi();            /* accessory will not return, program will */
  677.  
  678.     sound_exit();
  679.  
  680.     menu_bar(menu_ptr, 0);    /* erase the menu bar */
  681.  
  682.     if (remap_pal == 0)
  683.         reset_colors();
  684.  
  685.     v_clsvwk(vdi_handle);    /* close the vdi handle */
  686.  
  687.     if (planes > 2)
  688.     {
  689.         free(ballsource.fd_addr); 
  690.         free(paddlesource.fd_addr);
  691.         free(bricksource.fd_addr);
  692.         free(twobricksource.fd_addr);
  693.         free(magicbricksource.fd_addr);
  694.         free(permbricksource.fd_addr);
  695.         free(digitsource.fd_addr);
  696.         free(fujisource.fd_addr);
  697.         free(eyesource.fd_addr);
  698.         free(levelsource.fd_addr);
  699.     }
  700.  
  701.     free(pic_buf.fd_addr);
  702.     free(tit_buf.fd_addr);
  703.     free(windsource.fd_addr);
  704.  
  705.     send_avexit();
  706.     
  707.     Mfree(va_helpbuf);
  708.  
  709.     rsrc_free();
  710.     appl_exit();
  711.     
  712.     exit(1);
  713. }
  714.  
  715. void
  716. m_timing_event(void)
  717. {
  718.     int xchoice;
  719.     GRECT dial;
  720.     char tempstr[4];
  721.  
  722.     if (remap_pal == 0)
  723.         reset_colors();
  724.  
  725.     sprintf(tempstr,"%d",timer);
  726.  
  727.     set_tedinfo(timing_dial, TIMING_VALUE, tempstr);
  728.  
  729.     form_center(timing_dial,ELTR(dial));
  730.     form_dial(FMD_START,0,0,10,10,ELTS(dial));
  731.     objc_draw(timing_dial,0,3,ELTS(dial));
  732.  
  733.     xchoice = (form_do(timing_dial, 0) & 0x7fff);
  734.  
  735.     form_dial(FMD_FINISH,0,0,10,10,ELTS(dial));
  736.  
  737.     timing_dial[xchoice].ob_state &= ~SELECTED;
  738.  
  739.     if (xchoice == B_SETTIME)
  740.     {
  741.         get_tedinfo(timing_dial,TIMING_VALUE,tempstr);
  742.         timer = atoi(tempstr);
  743.     }
  744.  
  745.     if (remap_pal == 0)
  746.         load_image_colors();
  747. }
  748.  
  749. void
  750. get_high_name(int x)
  751. {
  752.     int xchoice;
  753.     GRECT dial;
  754.     static char tempstr[14]="";
  755.  
  756.     if (remap_pal == 0)
  757.         reset_colors();
  758.  
  759.     set_tedinfo(highscore_dial, D_ENTERNAME, tempstr);
  760.  
  761.     form_center(highscore_dial,ELTR(dial));
  762.     form_dial(FMD_START,0,0,10,10,ELTS(dial));
  763.     objc_draw(highscore_dial,0,3,ELTS(dial));
  764.     xchoice = (form_do(highscore_dial, 0) & 0x7fff);
  765.     form_dial(FMD_FINISH,0,0,10,10,ELTS(dial));
  766.  
  767.     highscore_dial[xchoice].ob_state &= ~SELECTED;
  768.  
  769.     get_tedinfo(highscore_dial,D_ENTERNAME,tempstr);
  770.  
  771.     strcpy(scores[x].name,tempstr);
  772.     scores[x].level = level + 1;
  773.     scores[x].score = score;    /* MAR -- .score is now long  */
  774.  
  775.     write_score();
  776.     read_highscore();
  777.  
  778.     if (remap_pal == 0)
  779.         load_image_colors();
  780. }
  781.  
  782. void
  783. m_load_event(void)
  784. {
  785.     if (remap_pal == 0)
  786.         reset_colors();
  787.  
  788.     load_pic();
  789. }
  790.  
  791. void
  792. m_quit_event(void)
  793. {
  794.     if (win[GAME_WIN].handle != NO_WINDOW)
  795.     {    
  796.         wind_close(win[GAME_WIN].handle);
  797.         wind_delete(win[GAME_WIN].handle);
  798.     }
  799.  
  800.     done = TRUE;
  801. }
  802.  
  803. void
  804. m_new_event(void)
  805. {
  806.     if (win[GAME_WIN].handle != NO_WINDOW)
  807.     {    
  808.         if (win[GAME_WIN].status == 3) /* iconified */
  809.             un_iconify(GAME_WIN,(GRECT *)&win[GAME_WIN].curr);
  810.  
  811.         wind_set(win[GAME_WIN].handle,WF_TOP,0,0,0,0);
  812.  
  813.         if (lives <= 0)
  814.         {
  815.             new_game();
  816.             restart_level();
  817.             event_kind = MU_MESAG | MU_TIMER | MU_BUTTON | MU_KEYBD;
  818.         }
  819.     }
  820.     else open_game_window();
  821. }
  822.  
  823. /*
  824.  *  This routine handles all keyboard input
  825.  */
  826. void
  827. handle_key_evnts(int key,int mousex,int mousey)
  828. {
  829.     int cont, next, state, scan;
  830.     int w_info, top_window;
  831.     GRECT p;
  832.  
  833.     top_window = get_topwindow(0);
  834.  
  835.     wind_get(top_window,WF_WORKXYWH,ELTR(p));
  836.  
  837.     w_info = get_wininfo_from_handle(top_window);
  838.  
  839.     if ((w_info != -1) && (win[w_info].status == 1))
  840.     {            
  841.         if(w_info == JUMP_WIN)
  842.         {
  843.             cont = form_keybd(win[JUMP_WIN].window_obj, win[JUMP_WIN].cur_item, 0, key, &next, &scan);
  844.  
  845.             if (scan)
  846.             {
  847.                 /* if not special the edit the form */
  848.                     
  849.                 objc_edit(win[JUMP_WIN].window_obj, win[JUMP_WIN].cur_item, scan, (int *)win[JUMP_WIN].edit_pos, ED_CHAR,(int *)&win[JUMP_WIN].edit_pos);
  850.                 return;
  851.             }
  852.  
  853.             if ((cont != 1) || (next!=0 && next != win[w_info].cur_item))
  854.             {    
  855.                 objc_edit(win[JUMP_WIN].window_obj, win[JUMP_WIN].cur_item, 0, win[JUMP_WIN].edit_pos, ED_END,&win[JUMP_WIN].edit_pos);
  856.  
  857.                 if (next == JUMP_GO)
  858.                     jump_drive(next);
  859.                 else
  860.                 {
  861.                     win[JUMP_WIN].cur_item = next;
  862.  
  863.                     objc_edit(win[JUMP_WIN].window_obj,win[JUMP_WIN].cur_item,0, win[JUMP_WIN].edit_pos,ED_INIT,&win[JUMP_WIN].edit_pos);
  864.                 }
  865.                 return;
  866.             }                
  867.         }            
  868.     }                
  869. /*printf("%d\r\n",key);
  870. */            
  871.     switch (key)
  872.     {
  873.         case 283:  /* Esc key */
  874.             if(w_info == GAME_WIN)
  875.             {
  876.                 if(win[w_info].status == 1)
  877.                 {
  878.                     /* Esc - Pause */
  879.                     if (event_kind == (MU_MESAG | MU_TIMER | MU_BUTTON | MU_KEYBD))
  880.                         event_kind = MU_MESAG | MU_KEYBD | MU_BUTTON;
  881.                     else
  882.                         event_kind = MU_MESAG | MU_TIMER | MU_BUTTON | MU_KEYBD;
  883.                 }
  884.             }
  885.             break;
  886.                     
  887.         case 9740:
  888.             /* Control L */
  889.             m_load_event();
  890.             break;
  891.                     
  892.         case 4113:
  893.             /* Control Q */
  894.             m_quit_event();
  895.             break;
  896.                     
  897.         case 6159:
  898.             /* Control O */
  899.             m_new_event();
  900.             break;
  901.                     
  902.         case 9226:
  903.             /* Control J */
  904.             open_jump();    
  905.             break;
  906.  
  907.         case 11779:
  908.             /* Control C - copy */
  909.             if ((w_info != -1) && (win[w_info].status == 1)&&
  910.                 (win[w_info].edit == 1) && (win[w_info].cur_item != -1))
  911.                 copy_paste(w_info);
  912.             break;
  913.         case 12054:
  914.             /* Control V - Paste */
  915.             if ((w_info != -1) && (win[w_info].status == 1))
  916.                 paste_text(w_info);
  917.             break;
  918.                     
  919.         case 12558:
  920.             /* Control N */
  921.             m_new_event();
  922.             break;
  923.  
  924.         case 25088: /* Help Key */
  925.  
  926. #if 0            
  927.             switch(w_info)
  928.             {
  929.                 case INBOX_WIN:
  930.                     do_help("INBOX Window");
  931.                     break;
  932.                 case OUTBOX_WIN:
  933.                     do_help("OUTBOX Window");
  934.                     break;
  935.                 case ABOUT_WIN:
  936.                     do_help("Contents");
  937.                     break;
  938.                 default:
  939.                     do_help("Main");
  940.                     break;
  941.             }
  942. #endif
  943.             do_help("Main");
  944.             break;
  945.             
  946.         default:
  947. sendkey:
  948.             state = (int)Kbshift(-1);
  949.                     
  950.             msg[0] = AV_SENDKEY;
  951.  
  952. #ifdef __GNUC__
  953.              msg[1] = _global[2];  /* my apps id */ 
  954. #else
  955.               msg[1] = _GemParBlk.global[2];  /* my apps id */ 
  956. #endif
  957.             msg[2] = 0;
  958.             msg[3] = state;
  959.             msg[4] = key;
  960.             msg[5] = msg[6] = msg[7] = 0;
  961.             appl_write(get_avserver(), 16, &msg);
  962.             break;     
  963.     }
  964.                         
  965.     return;
  966. }
  967. #if OS_TOS
  968. int doGSCommand(int pipe[8])
  969. {
  970.     int   answ[8], ret=0;
  971.     char *cmd = *(char **)&pipe[3];
  972.     char *gslongname =NULL;
  973.     answ[0]=GS_ACK;
  974.     answ[1]=aes_id;
  975.     answ[2]=0;
  976.     answ[3]=pipe[3];
  977.     answ[4]=pipe[4];
  978.     answ[5]=0;
  979.     answ[6]=0;
  980.     answ[7]=GSACK_ERROR;
  981.     if (xaccname==NULL) {
  982.         xaccname = (char *)Mxalloc(96L,ALLOCMODE);
  983.     }
  984.     gslongname = xaccname+64;
  985.     strcpy(gslongname,"BoinkOut");
  986.     if (cmd)
  987.     {
  988.         answ[7]=GSACK_UNKNOWN;
  989.  
  990.         if ( (!stricmp(cmd,"Quit")) || (!stricmp(cmd,"Shutdown")) )
  991.         {
  992.             ret=1;
  993.             answ[7]=GSACK_OK;
  994.         }
  995.         else if (!stricmp(cmd,"Open")) {
  996.             m_load_event();            
  997.             answ[7]=GSACK_OK;
  998.         } else if (!stricmp(cmd,"AppGetLongName")) {
  999.             if (gslongname)
  1000.             {
  1001.                 answ[5]=(int)(((long)gslongname >> 16) & 0x0000ffffL);
  1002.                 answ[6]=(int)((long)gslongname & 0x0000ffffL);
  1003.                 answ[7]=GSACK_OK;
  1004.             }
  1005.             else
  1006.             {
  1007.                 answ[7]=GSACK_ERROR;
  1008.             }
  1009.         }
  1010.     }
  1011.  
  1012.     appl_write(pipe[1],16,answ);
  1013.     if ( (!stricmp(cmd,"Quit")) || (!stricmp(cmd,"Shutdown")) ) {
  1014.         m_quit_event();
  1015.     }
  1016.  
  1017.     return(ret);
  1018. }
  1019.  
  1020. #endif
  1021. /****************************************************************/
  1022. /* dispatches all accessory tasks                */
  1023. /****************************************************************/
  1024. void
  1025. multi(void)
  1026. {
  1027.     int event, scan;
  1028.     int junk, k, w_info, top_window;
  1029.     int button = 0, clicks = 0;
  1030.     int mousex, mousey;    
  1031.     int which_obj;
  1032.  
  1033. /*    The accessory will loop forever, the program loops until    */
  1034. /*    the done variable is set to TRUE.                            */
  1035.  
  1036.     while ((!_app) || !done)
  1037.     {
  1038.         event = evnt_multi(event_kind,
  1039. /*            1,0,0,*/
  1040.             2,1,1,
  1041.             0,0,0,0,0,
  1042.             0,0,0,0,0,
  1043.             msg,
  1044.             ttimer,0,
  1045.             &mousex,&mousey,&button,&ret,&scan,&clicks);
  1046.  
  1047.         if (event & MU_MESAG) switch (msg[0])
  1048.         {
  1049.  
  1050.         case MN_SELECTED:
  1051.  
  1052.         /* menu functions, program only */
  1053.  
  1054.             switch(msg[4])
  1055.             {
  1056.  
  1057.             case ABOUT_BOINK:
  1058.                 boink_dial();
  1059.                 break;
  1060.  
  1061.             case M_NEW:
  1062.                 m_new_event();
  1063.                 break;
  1064.  
  1065.             case M_PAUSE:
  1066.                 if (event_kind == (MU_MESAG | MU_TIMER | MU_BUTTON | MU_KEYBD))
  1067.                     event_kind = MU_MESAG | MU_KEYBD | MU_BUTTON;
  1068.                 else
  1069.                     event_kind = MU_MESAG | MU_TIMER | MU_BUTTON | MU_KEYBD;
  1070.                 break;
  1071.  
  1072.             case M_LEVEL:
  1073.                 load_levels();
  1074.                 break;
  1075.                 
  1076.             case M_JUMP:
  1077.                 open_jump();
  1078.                 break;
  1079.                 
  1080.             case M_LOAD:
  1081.                 m_load_event();
  1082.                 break;
  1083.  
  1084.             case M_QUIT:
  1085.                 m_quit_event();
  1086.                 break;
  1087.                 
  1088.             case M_SOUNDSWITCH:
  1089.                 sound_switch=!sound_switch;
  1090.                 break;
  1091. #if 0
  1092.     I removed this option right now
  1093.                     
  1094.             case M_REMAPPALETTE:
  1095.                 remap_pal=!remap_pal;
  1096.                 break;
  1097. #endif 
  1098.             
  1099.             case M_SETCOLORS:
  1100.                 open_objcolors();
  1101.                 break;
  1102.                 
  1103.             case M_TIMING:
  1104.                 m_timing_event();
  1105.                 break;
  1106.                 
  1107.             case M_VIEWSCORES:
  1108.                 high_score();
  1109.                 break;
  1110.                 
  1111.             case M_SAVEPREF:
  1112.                 write_cfg_file(config_file);
  1113.                 break;
  1114.             
  1115.             case M_HELP:
  1116.                 do_help("Main");
  1117.                 break;
  1118.             }
  1119.  
  1120.             menu_tnormal(menu_ptr, msg[3], TRUE ); /* deselect menubar */
  1121.             break;
  1122.  
  1123.         case WM_REDRAW:
  1124.             w_info = get_wininfo_from_handle(msg[3]);
  1125.         
  1126.             if (w_info != -1)
  1127.             {
  1128.                 if ((w_info == GAME_WIN)&&
  1129.                     (win[w_info].status == 1))
  1130.                 {
  1131.                     add_region(msg[4],msg[5],msg[6],msg[7]);
  1132.                     do_redraw();
  1133.                 }
  1134.                 else
  1135.                     do_wind_redraw(win[w_info].handle,(GRECT *)&msg[4]);
  1136.             }
  1137.             break;
  1138.  
  1139.         case WM_NEWTOP:
  1140.         case WM_TOPPED:
  1141.             wind_set(msg[3], WF_TOP, msg[3], 0,0,0);
  1142.             /* Nasty hack for lower resolutions
  1143.                 and to deal with my nasty programming */
  1144.  
  1145.             if (remap_pal == 0)
  1146.             {
  1147.                 if (msg[3] == win[GAME_WIN].handle)
  1148.                     load_image_colors();
  1149.                 else if (msg[3] == win[OBJCOLOR_WIN].handle)
  1150.                     load_image_colors();
  1151.                 else if (msg[3] == win[ABOUT_WIN].handle)        
  1152.                     load_about_colors();
  1153.                 else 
  1154.                     reset_colors();
  1155.             }
  1156.                     
  1157.             break;
  1158.  
  1159.         case AC_CLOSE:
  1160.             if((msg[3] == menu_id) && (win[GAME_WIN].handle != NO_WINDOW))
  1161.             {
  1162.                 wind_update(TRUE);
  1163.  
  1164.                 v_clsvwk(vdi_handle);
  1165.  
  1166.                 win[GAME_WIN].handle = NO_WINDOW;
  1167.                 sound_exit();
  1168.                 event_kind = MU_MESAG | MU_KEYBD | MU_BUTTON;
  1169.                 wind_update(FALSE);
  1170.             }
  1171.             break;
  1172.  
  1173. #if OS_TOS
  1174.         case AP_TERM:
  1175.             if (_app)
  1176.                 done = 1;
  1177.             break;
  1178. #endif
  1179.         case WM_CLOSED:
  1180.             if(msg[3] == win[GAME_WIN].handle)
  1181.             {    wind_close(win[GAME_WIN].handle);
  1182.                 graf_shrinkbox(desk.g_x,desk.g_y,gl_wbox,gl_hbox,ELTS(old));
  1183.                 wind_delete(win[GAME_WIN].handle);
  1184.  
  1185.                 if (!_app) v_clsvwk(vdi_handle);
  1186.  
  1187.                 win[GAME_WIN].handle = NO_WINDOW;
  1188.                 sound_exit();
  1189.                 event_kind = MU_MESAG | MU_KEYBD | MU_BUTTON;
  1190.             }
  1191.             else
  1192.             {
  1193.                 wind_close(msg[3]);
  1194.                 wind_delete(msg[3]);
  1195.  
  1196.                 w_info = get_wininfo_from_handle(msg[3]);
  1197.             
  1198.                 win[w_info].handle = NO_WINDOW;            
  1199.  
  1200.                 if (remap_pal == 0)
  1201.                 {
  1202.                     if (win[GAME_WIN].handle == get_topwindow(msg[3]))                    
  1203.                         load_image_colors();
  1204.                     else if (win[ABOUT_WIN].handle == get_topwindow(msg[3]))
  1205.                         load_about_colors();
  1206.                     else
  1207.                         reset_colors();
  1208.                 }
  1209.             }
  1210.             break;
  1211.  
  1212. #if OS_TOS
  1213.         case GS_REQUEST:
  1214.             {
  1215.                 int answ[8];
  1216.                 
  1217.                 answ[0]=GS_REPLY;
  1218.                 answ[1]=aes_id;
  1219.                 answ[2]=0;
  1220.                 answ[3]=0;
  1221.                 answ[4]=0;
  1222.                 answ[5]=0;
  1223.                 answ[6]=1;
  1224.                 answ[7]=msg[7];
  1225.  
  1226.                 if (!gsi) gsi = (GS_INFO *)Mxalloc(sizeof(GS_INFO),ALLOCMODE);
  1227.                 
  1228.                 if (gsi)
  1229.                 {
  1230.                     GS_INFO *sender = *(GS_INFO **)&msg[3];
  1231.  
  1232.                     gsi->len     = sizeof(GS_INFO);
  1233.                     gsi->version = 0x0100;
  1234.                     gsi->msgs    = GSM_COMMAND;
  1235.                     gsi->ext     = 0L;
  1236.                     
  1237.                     answ[3]=(int)(((long)gsi >> 16) & 0x0000ffffL);
  1238.                     answ[4]=(int)((long)gsi & 0x0000ffffL);
  1239.                     
  1240.                     if (sender)
  1241.                     {
  1242.                         if (sender->version >= 0x0070)
  1243.                         {
  1244.                             answ[6]=0;
  1245.                             gsapp=msg[1];
  1246.                         }
  1247.                     }
  1248.                 }
  1249.                 
  1250.                 appl_write(gsapp,16,answ);
  1251.             }
  1252.             break;
  1253.         case GS_COMMAND:
  1254.             if (doGSCommand(msg)) return; /* (1); - we don't track returns from here so does it really matter */
  1255.             break;
  1256.         case WM_ICONIFY:
  1257.             w_info = get_wininfo_from_handle(msg[3]);
  1258.             
  1259.             if (w_info != -1)            
  1260.                 iconify(w_info,((GRECT *)&msg[4]));
  1261.  
  1262.             if (w_info == GAME_WIN)
  1263.                 event_kind = MU_MESAG | MU_KEYBD | MU_BUTTON;
  1264.  
  1265.             if (remap_pal == 0)
  1266.             {
  1267.                 if (win[GAME_WIN].handle == get_topwindow(msg[3]))            
  1268.                     load_image_colors();
  1269.                 else
  1270.                     reset_colors();
  1271.             }
  1272.             break;
  1273.  
  1274.         case WM_UNICONIFY:
  1275.             w_info = get_wininfo_from_handle(msg[3]);
  1276.  
  1277.             if (w_info != -1)
  1278.             {
  1279.                 un_iconify(w_info,((GRECT *)&msg[4]));
  1280.  
  1281.                 wind_set(msg[3], WF_TOP, msg[3]);
  1282.             
  1283.                 if (remap_pal == 0)
  1284.                 {
  1285.                     if (w_info == GAME_WIN)
  1286.                         load_image_colors();
  1287.                     else if (w_info == ABOUT_WIN)
  1288.                         load_about_colors();
  1289.                     else 
  1290.                         reset_colors();
  1291.                 }
  1292.             }
  1293.                 
  1294.             break;
  1295. #endif /* OS_TOS */
  1296.  
  1297.         case WM_MOVED:
  1298.             if(msg[3] == win[GAME_WIN].handle) 
  1299.             {
  1300.                 old.g_x = msg[4];
  1301.                 old.g_y = msg[5];
  1302.  
  1303.                 wind_set(win[GAME_WIN].handle,WF_CURRXYWH,msg[4],
  1304.                     msg[5],old.g_w,old.g_h);
  1305.                 wind_get(win[GAME_WIN].handle,WF_WORKXYWH,ELTR(work));
  1306.             }
  1307.             else
  1308.             {
  1309.                 wind_set(msg[3], WF_CURRXYWH, PTRS((GRECT *)&msg[4]));
  1310.  
  1311.                 w_info = get_wininfo_from_handle(msg[3]);
  1312.  
  1313.                 switch(win[w_info].status)
  1314.                 {
  1315.                     case 1:
  1316.                         /* Normal */
  1317.                             
  1318.                         if (win[w_info].type == 0)
  1319.                             wind_calc(WC_WORK, W_TYPE, PTRS((GRECT *)&msg[4]),
  1320.                               ELTR(win[w_info].curr));
  1321.                         else
  1322.                             wind_calc(WC_WORK, W_T2, PTRS((GRECT *)&msg[4]),
  1323.                               ELTR(win[w_info].curr));
  1324.  
  1325.                         win[w_info].window_obj[ROOT].ob_x = win[w_info].curr.g_x;
  1326.                         win[w_info].window_obj[ROOT].ob_y = win[w_info].curr.g_y;
  1327.                         win[w_info].window_obj[ROOT].ob_width = win[w_info].curr.g_w;
  1328.                         win[w_info].window_obj[ROOT].ob_height = win[w_info].curr.g_h;
  1329.                         break;
  1330.                             
  1331.                     case 2:
  1332.                         /* Rolled up */                        
  1333.  
  1334.                         wind_calc(WC_WORK, W_TYPE, PTRS((GRECT *)&msg[4]),
  1335.                           &win[w_info].curr.g_x,
  1336.                           &win[w_info].curr.g_y,
  1337.                           &junk,
  1338.                           &junk);
  1339.  
  1340.                     case 3:
  1341.                         /* Iconified */
  1342.  
  1343.                         wind_calc(WC_WORK, W_TYPE, PTRS((GRECT *)&msg[4]),
  1344.                           ELTR(win[w_info].icon));
  1345.  
  1346.                         win[w_info].icon_obj[ROOT].ob_x = win[w_info].icon.g_x;
  1347.                         win[w_info].icon_obj[ROOT].ob_y = win[w_info].icon.g_y;
  1348.                         win[w_info].icon_obj[ROOT].ob_width = win[w_info].icon.g_w;
  1349.                         win[w_info].icon_obj[ROOT].ob_height = win[w_info].icon.g_h;
  1350.                         break;
  1351.                 }
  1352.             }
  1353.  
  1354.             break;
  1355.  
  1356.         case AC_OPEN:
  1357.             if (msg[4] == menu_id)
  1358.             {
  1359.                 graf_mkstate(&junk, &junk, &junk, &k);
  1360.                 if(k & 3)
  1361.                 {
  1362.                     boink_dial();
  1363.                     break;
  1364.                 }
  1365.  
  1366.                 if (win[GAME_WIN].handle == NO_WINDOW)
  1367.                 {    
  1368.                     open_vwork();
  1369.  
  1370.                     if (open_game_window() < 0)
  1371.                     {
  1372.                         v_clsvwk(vdi_handle);
  1373.                         break;
  1374.                     }
  1375.                 }
  1376.                 else
  1377.                 {
  1378.                     if (win[GAME_WIN].status == 3) /* iconified */
  1379.                         un_iconify(GAME_WIN,(GRECT *)&win[GAME_WIN].curr);
  1380.  
  1381.                     wind_set(win[GAME_WIN].handle,WF_TOP,0,0,0,0);
  1382.                     if (lives <= 0)
  1383.                     {
  1384.                         new_game();
  1385.                         restart_level();
  1386.                         event_kind = MU_MESAG | MU_TIMER | MU_BUTTON | MU_KEYBD;
  1387.                     }
  1388.                 }
  1389.             }
  1390.             break;
  1391.  
  1392.         } /* switch (msg[0]) */
  1393.  
  1394.  
  1395.         
  1396.         /* Grab those fabulous hot keys */
  1397.         if (event & MU_KEYBD)
  1398.             handle_key_evnts(scan, mousex, mousey);
  1399.         
  1400.         if (event & MU_TIMER)
  1401.         {    if (win[GAME_WIN].handle != NO_WINDOW)
  1402.             {
  1403.                 new_ball();
  1404.             }
  1405.         }
  1406.  
  1407.         /* Get Mouse Button Events */
  1408.         if (event & MU_BUTTON)
  1409.         {
  1410.             if (button == 1)
  1411.             {
  1412.                 junk = wind_find(mousex,mousey);
  1413.  
  1414.                 top_window = get_topwindow(junk);
  1415.         
  1416.                 if (top_window == junk) /* don't do anything unless top window */
  1417.                 {    
  1418.                     w_info = get_wininfo_from_handle(junk);
  1419.                         
  1420.                     if (win[w_info].status == 1) /* don't do anything if iconified */
  1421.                     {
  1422.                         which_obj = objc_find(win[w_info].window_obj,0,MAX_DEPTH,mousex,mousey);
  1423.     
  1424.                         if (w_info == JUMP_WIN)
  1425.                             jump_drive(which_obj);
  1426.                         else if (w_info == OBJCOLOR_WIN)
  1427.                             objcolors_drive(which_obj);
  1428.                         else if (w_info == ABOUT_WIN)
  1429.                             about_drive(which_obj);
  1430.                     }
  1431.                 }
  1432.             }
  1433.         }
  1434.         
  1435.     } /* while (!_app || !done) */
  1436. }
  1437.  
  1438. /* put up high score list window */
  1439. void
  1440. high_score(void)
  1441. {
  1442.  
  1443.     if (win[SCORE_WIN].handle == NO_WINDOW)
  1444.     {
  1445.         do_scorelist();
  1446.         return;
  1447.     }
  1448.  
  1449.     if (win[SCORE_WIN].status == 3) /* iconified */
  1450.     {
  1451.         un_iconify(SCORE_WIN, (GRECT *)&win[SCORE_WIN].curr);
  1452.         wind_set(win[SCORE_WIN].handle, WF_TOP, win[SCORE_WIN].handle,0,0,0);
  1453.     }
  1454.     else if (win[SCORE_WIN].status == 1) /* normal */
  1455.     {
  1456.         wind_set(win[SCORE_WIN].handle, WF_TOP, win[SCORE_WIN].handle,0,0,0);
  1457.     }
  1458.     else
  1459.         do_scorelist();
  1460.  
  1461.     return;
  1462. }
  1463.  
  1464. /* put up about window */
  1465. void
  1466. boink_dial(void)
  1467. {
  1468.     if (win[ABOUT_WIN].handle == NO_WINDOW)
  1469.     {
  1470.         do_title();
  1471.         return;
  1472.     }
  1473.  
  1474.     if (win[ABOUT_WIN].status == 3) /* iconified */
  1475.     {
  1476.         un_iconify(ABOUT_WIN,(GRECT *)&win[ABOUT_WIN].curr);
  1477.         wind_set(win[ABOUT_WIN].handle, WF_TOP, win[ABOUT_WIN].handle,0,0,0);
  1478.     }
  1479.     else if (win[ABOUT_WIN].status == 1) /* normal */
  1480.     {
  1481.         wind_set(win[ABOUT_WIN].handle, WF_TOP, win[ABOUT_WIN].handle,0,0,0);
  1482.     }
  1483.     else
  1484.         do_title();
  1485.  
  1486.     return;
  1487. }
  1488.  
  1489. /* put up jump window dialog */
  1490. void
  1491. open_jump(void)
  1492. {
  1493.     if (win[JUMP_WIN].handle == NO_WINDOW)
  1494.     {
  1495.         do_jumpdial();
  1496.         return;
  1497.     }
  1498.  
  1499.     if (win[JUMP_WIN].status == 3) /* iconified */
  1500.     {
  1501.         un_iconify(JUMP_WIN,(GRECT *)&win[JUMP_WIN].curr);
  1502.         wind_set(win[JUMP_WIN].handle, WF_TOP, win[JUMP_WIN].handle,0,0,0);
  1503.     }
  1504.     else if (win[JUMP_WIN].status == 1) /* normal */
  1505.     {
  1506.         wind_set(win[JUMP_WIN].handle, WF_TOP, win[JUMP_WIN].handle,0,0,0);
  1507.     }
  1508.     else
  1509.         do_jumpdial();
  1510.  
  1511.     return;
  1512. }
  1513.  
  1514. int
  1515. about_drive(int which_obj)
  1516. {
  1517.     GRECT p;
  1518.     int x_pos,y_pos;
  1519.     int mbut,kstate;
  1520.  
  1521.     
  1522.     wind_get(win[ABOUT_WIN].handle,WF_WORKXYWH,ELTR(p));
  1523.  
  1524.     if(which_obj == R_URL)
  1525.     {
  1526.         objc_change(win[ABOUT_WIN].window_obj,which_obj,0,ELTS(p),0x0001,1);
  1527.  
  1528.         objc_change(win[ABOUT_WIN].window_obj,which_obj,0,ELTS(p),0x0000,1);
  1529.  
  1530.         run_web_browser("*http://www.netset.com/~baldrick/boinkout2.html");
  1531.         
  1532.         while(TRUE)
  1533.         {
  1534.             graf_mkstate(&x_pos,&y_pos,&mbut,&kstate);
  1535.             
  1536.             if (mbut == 0)
  1537.                 break;
  1538.         }
  1539.     }
  1540.         
  1541.     return(1);
  1542. }
  1543.  
  1544. int
  1545. jump_drive(int which_obj)
  1546. {
  1547.     GRECT p;
  1548.     char ft[100] = "";
  1549.     int jump_lvl;
  1550.     
  1551.     set_tedinfo(win[JUMP_WIN].window_obj, JUMP_LEVEL_NAME, name);
  1552.     sprintf(ft,"%d",file_levels);
  1553.     set_tedinfo(win[JUMP_WIN].window_obj, JUMP_LEVEL_NUM, ft);
  1554.  
  1555.     wind_get(win[JUMP_WIN].handle,WF_WORKXYWH,ELTR(p));
  1556.  
  1557.     if(which_obj == JUMP_GO)
  1558.     {
  1559.         objc_change(win[JUMP_WIN].window_obj,which_obj,0,ELTS(p),0x0001,1);
  1560.  
  1561.         objc_change(win[JUMP_WIN].window_obj,which_obj,0,ELTS(p),0x0000,1);
  1562.  
  1563.         jump_lvl = atoi(win[JUMP_WIN].window_obj[JUMP_SELECT].ob_spec.tedinfo->te_ptext);
  1564.  
  1565.         if ((jump_lvl > file_levels)||
  1566.             (jump_lvl < 1)) /* make sure it's in range and the user isn't a joker */
  1567.         {
  1568.             form_alert(1,alert_invalid);
  1569.             return(0);
  1570.         }
  1571.         
  1572.         if (win[GAME_WIN].handle != NO_WINDOW)
  1573.         {
  1574.             lives = old_lives = 3;
  1575.             score = old_score = 0;
  1576.             bonus_life = old_bonus = BONUS;
  1577.             pad_y_top = pad_y_min;
  1578.             level = jump_lvl - 1;
  1579.  
  1580.             /* Close the jump window */
  1581.             wind_close(win[JUMP_WIN].handle);
  1582.             wind_delete(win[JUMP_WIN].handle);
  1583.  
  1584.             /* clear JUMP_WIN handle */
  1585.             win[JUMP_WIN].handle = NO_WINDOW;
  1586.  
  1587.             /* If GAME_WIN is iconified, uniconify it */
  1588.             if (win[GAME_WIN].status == 3) /* iconified */
  1589.                 un_iconify(GAME_WIN,(GRECT *)&win[GAME_WIN].curr);
  1590.  
  1591.             /* Top the Game window */
  1592.             wind_set(win[GAME_WIN].handle, WF_TOP, win[GAME_WIN].handle,0,0,0);
  1593.  
  1594.             /* Set the colors to the Game Window colors */
  1595.             if (remap_pal == 0)
  1596.                 load_image_colors();
  1597.  
  1598.             restart_level();
  1599.             event_kind = MU_MESAG | MU_TIMER | MU_BUTTON | MU_KEYBD;
  1600.         }
  1601.     }
  1602.     else if (which_obj == JUMP_SELECT)
  1603.     {
  1604.         /* Disable old edit field */
  1605.  
  1606.         objc_edit(win[JUMP_WIN].window_obj, win[JUMP_WIN].cur_item, 0, &win[JUMP_WIN].edit_pos, ED_END, &win[JUMP_WIN].edit_pos);
  1607.         objc_draw(win[JUMP_WIN].window_obj, ROOT, MAX_DEPTH, ELTS(p));
  1608.  
  1609.         /* Enable Level selection edit field */
  1610.         objc_edit(win[JUMP_WIN].window_obj,win[JUMP_WIN].cur_item,0, win[JUMP_WIN].edit_pos,ED_INIT, &win[JUMP_WIN].edit_pos);
  1611.         objc_draw(win[JUMP_WIN].window_obj, JUMP_SELECT, MAX_DEPTH, ELTS(p));
  1612.     }
  1613.         
  1614.     return(1);
  1615. }
  1616.  
  1617. int
  1618. redraw_objcolors(void)
  1619. {
  1620.     int x,y,x1;
  1621.     int loop,size,tot_colors;
  1622.     
  1623.         
  1624.     HIDE_MOUSE;
  1625.     wind_update(TRUE);
  1626.  
  1627.     /* First reset the color pallete in the window */
  1628.  
  1629.     objc_offset(objcolor_dial,COLOR1,&x,&y);
  1630.     color_square(vdi_handle, objcolors[0], x, y, 16);
  1631.  
  1632.     objc_offset(objcolor_dial,COLOR2,&x,&y);
  1633.     color_square(vdi_handle, objcolors[1], x, y, 16);
  1634.             
  1635.     objc_offset(objcolor_dial,COLOR3,&x,&y);
  1636.     color_square(vdi_handle, objcolors[2], x, y, 16);
  1637.  
  1638.     objc_offset(objcolor_dial,COLOR4,&x,&y);
  1639.     color_square(vdi_handle, objcolors[3], x, y, 16);
  1640.  
  1641.     objc_offset(objcolor_dial,COLOR5,&x,&y);
  1642.     color_square(vdi_handle, objcolors[4], x, y, 16);
  1643.  
  1644.     objc_offset(objcolor_dial,COLOR6,&x,&y);
  1645.     color_square(vdi_handle, objcolors[5], x, y, 16);
  1646.  
  1647.     /* Now draw the color selection box */
  1648.     if (planes >= 8)
  1649.         tot_colors = 256;
  1650.     else
  1651.         tot_colors = (1 << planes);
  1652.  
  1653.     /* I'm tired and the following is crap but it's 
  1654.      * working crap
  1655.      */
  1656.      
  1657.     switch(tot_colors)
  1658.     {
  1659.         case 1:
  1660.         case 4:
  1661.             size = 64;
  1662.             break;
  1663.         case 16:
  1664.             size = 32;
  1665.             break;
  1666.         case 256:
  1667.             size = 8;
  1668.             break;
  1669.     }
  1670.     
  1671.     objc_offset(objcolor_dial,DCOLORBOX,&x1,&y);
  1672.  
  1673.     x = x1; /* Store real offsets for later */
  1674.     
  1675.     for (loop=0;loop < tot_colors;loop++)
  1676.     {
  1677.         color_square(vdi_handle, loop, x, y, size);
  1678.         
  1679.         x = x + size;
  1680.  
  1681.         if (x >= (x1 + 128))
  1682.         {
  1683.             x = x1;
  1684.             y = y + size;
  1685.         }
  1686.     }
  1687.  
  1688.     wind_update(FALSE);
  1689.     SHOW_MOUSE;
  1690.  
  1691.     return(1);
  1692. }
  1693.  
  1694. /* put up jump window dialog */
  1695. void
  1696. open_objcolors(void)
  1697. {
  1698.     if (win[OBJCOLOR_WIN].handle == NO_WINDOW)
  1699.     {
  1700.         do_objcolorsdial();
  1701.         return;
  1702.     }
  1703.  
  1704.     if (win[OBJCOLOR_WIN].status == 3) /* iconified */
  1705.     {
  1706.         un_iconify(OBJCOLOR_WIN,(GRECT *)&win[OBJCOLOR_WIN].curr);
  1707.         wind_set(win[OBJCOLOR_WIN].handle, WF_TOP, win[OBJCOLOR_WIN].handle,0,0,0);
  1708.     }
  1709.     else if (win[OBJCOLOR_WIN].status == 1) /* normal */
  1710.     {
  1711.         wind_set(win[OBJCOLOR_WIN].handle, WF_TOP, win[OBJCOLOR_WIN].handle,0,0,0);
  1712.     }
  1713.     else
  1714.         do_objcolorsdial();
  1715.  
  1716.     return;
  1717. }
  1718.  
  1719. int
  1720. objcolors_drive(int which_obj)
  1721. {
  1722.     GRECT p;
  1723.     int x,y,x1,y1,x2,y2,junk;
  1724.     int hardware_color, vdi_color ;    
  1725.     int tot_colors, size;
  1726.  
  1727.     redraw_objcolors();
  1728.  
  1729.     wind_get(win[OBJCOLOR_WIN].handle,WF_WORKXYWH,ELTR(p));
  1730.  
  1731.     if(which_obj == DPADCOLOR)
  1732.     {
  1733.         objc_change(objcolor_dial,which_obj,0,ELTS(p),0x0001,1);
  1734.         objc_change(objcolor_dial,curr_colorobj,0,ELTS(p),0x0000,1);
  1735.         curr_colorobj = DPADCOLOR;
  1736.     }
  1737.     else if(which_obj == DBALLCOLOR)
  1738.     {
  1739.         objc_change(objcolor_dial,which_obj,0,ELTS(p),0x0001,1);
  1740.         objc_change(objcolor_dial,curr_colorobj,0,ELTS(p),0x0000,1);
  1741.         curr_colorobj = DBALLCOLOR;
  1742.     }
  1743.     else if(which_obj == DBRICKCOLOR)
  1744.     {
  1745.         objc_change(objcolor_dial,which_obj,0,ELTS(p),0x0001,1);
  1746.         objc_change(objcolor_dial,curr_colorobj,0,ELTS(p),0x0000,1);
  1747.         curr_colorobj = DBRICKCOLOR;
  1748.     }
  1749.     else if(which_obj == DPERMCOLOR)
  1750.     {
  1751.         objc_change(objcolor_dial,which_obj,0,ELTS(p),0x0001,1);
  1752.         objc_change(objcolor_dial,curr_colorobj,0,ELTS(p),0x0000,1);
  1753.         curr_colorobj = DPERMCOLOR;
  1754.     }
  1755.     else if(which_obj == DMAGICCOLOR)
  1756.     {
  1757.         objc_change(objcolor_dial,which_obj,0,ELTS(p),0x0001,1);
  1758.         objc_change(objcolor_dial,curr_colorobj,0,ELTS(p),0x0000,1);
  1759.         curr_colorobj = DMAGICCOLOR;
  1760.     }        
  1761.     else if(which_obj == DSPINCOLOR)
  1762.     {
  1763.         objc_change(objcolor_dial,which_obj,0,ELTS(p),0x0001,1);
  1764.         objc_change(objcolor_dial,curr_colorobj,0,ELTS(p),0x0000,1);
  1765.         curr_colorobj = DSPINCOLOR;
  1766.     }    
  1767.     else if(which_obj == DCOLORBOX)
  1768.     {
  1769.         graf_mkstate(&x,&y,&junk,&junk);
  1770.         
  1771.         v_get_pixel(vdi_handle, x-1, y-1, &hardware_color, &vdi_color);
  1772.  
  1773.         /* If we are in TrueColor modes then we need to track down
  1774.          * which color we want - Yuck!
  1775.          *
  1776.          * If this were really nice for true color we wouldn't 
  1777.          * mess with the pens and would just display a wide color
  1778.          * map that the user could select from.
  1779.          *
  1780.          * However I have too many projects to work on that people
  1781.          * are asking for fixes to spend another week working this out
  1782.          * right now.  So I am going to be cheap and track the pen by the physical
  1783.          * location on the screen from where I drew the color boxes.
  1784.          */
  1785.  
  1786.         if (planes > 8)
  1787.         {
  1788.             /* Get the size of color selection box */
  1789.             if (planes >= 8)
  1790.                 tot_colors = 256;
  1791.             else
  1792.                 tot_colors = (1 << planes);
  1793.  
  1794.             /* Copied from redraw_objcolors above.
  1795.              * working crap
  1796.              */
  1797.      
  1798.             switch(tot_colors)
  1799.             {
  1800.                 case 1:
  1801.                 case 4:
  1802.                     size = 64;
  1803.                 break;
  1804.                 case 16:
  1805.                     size = 32;
  1806.                     break;
  1807.                 case 256:
  1808.                     size = 8;
  1809.                     break;
  1810.             }
  1811.         
  1812.             /* Get x and y of color box object */
  1813.             objc_offset(objcolor_dial,DCOLORBOX,&x1,&y1);
  1814.  
  1815.             x2 = x - x1;
  1816.             y2 = y - y1;
  1817.  
  1818.             x2 = x2/size;
  1819.             y2 = y2/size;
  1820.             
  1821.             vdi_color = x2 + (y2 * (128/size));
  1822.         }
  1823.         
  1824.         switch(curr_colorobj)
  1825.         {
  1826.             case DPADCOLOR:
  1827.                 objcolors[0] = vdi_color;
  1828.                 break;
  1829.             case DBALLCOLOR:
  1830.                 objcolors[1] = vdi_color;
  1831.                 break;
  1832.             case DBRICKCOLOR:
  1833.                 objcolors[2] = vdi_color;
  1834.                 break;
  1835.             case DPERMCOLOR:
  1836.                 objcolors[3] = vdi_color;
  1837.                 break;
  1838.             case DMAGICCOLOR:
  1839.                 objcolors[4] = vdi_color;
  1840.                 break;
  1841.             case DSPINCOLOR:
  1842.                 objcolors[5] = vdi_color;
  1843.                 break;
  1844.         }
  1845.         
  1846.         redraw_objcolors();
  1847.     }
  1848.     else if(which_obj == DSETCOLOR)
  1849.     {
  1850.         objc_change(objcolor_dial,which_obj,0,ELTS(p),0x0001,1);
  1851.         objc_change(objcolor_dial,which_obj,0,ELTS(p),0x0000,1);
  1852.         curr_colorobj = -1;
  1853.  
  1854.         free(ballsource.fd_addr); 
  1855.         free(paddlesource.fd_addr);
  1856.         free(bricksource.fd_addr);
  1857.         free(twobricksource.fd_addr);
  1858.         free(magicbricksource.fd_addr);
  1859.         free(permbricksource.fd_addr);
  1860.         free(fujisource.fd_addr);
  1861.         free(eyesource.fd_addr);
  1862.         
  1863.         ballsource.fd_addr = monoballs; 
  1864.         paddlesource.fd_addr = monopaddle;
  1865.         bricksource.fd_addr = monobricks;
  1866.         twobricksource.fd_addr = mono_twobrick;
  1867.         magicbricksource.fd_addr = mono_twobrick;
  1868.         permbricksource.fd_addr = mono_perm_bricks;
  1869.         fujisource.fd_addr = mono_fuji;
  1870.         eyesource.fd_addr = mono_eye;
  1871.  
  1872.         fix_image(&paddlesource,objcolors[0]);
  1873.         fix_image(&ballsource,objcolors[1]);
  1874.         fix_image(&fujisource,objcolors[1]);
  1875.         fix_image(&eyesource,objcolors[1]);
  1876.         fix_image(&bricksource,objcolors[2]);
  1877.         fix_image(&permbricksource,objcolors[3]);
  1878.         fix_image(&magicbricksource,objcolors[4]);
  1879.         fix_image(&twobricksource,objcolors[5]);
  1880.  
  1881.         wind_set(win[GAME_WIN].handle, WF_TOP, win[GAME_WIN].handle,0,0,0);
  1882.  
  1883.         restart_level();
  1884.         event_kind = MU_MESAG | MU_TIMER | MU_BUTTON | MU_KEYBD;
  1885.     }
  1886.             
  1887.     return(1);
  1888. }
  1889.  
  1890. void 
  1891. rsrc_init(void)
  1892. {
  1893.     rsrc_gaddr(0, MENU,&menu_ptr);     
  1894.     rsrc_gaddr(0, ABOUT,&about_dial);
  1895.     rsrc_gaddr(0, TIMING,&timing_dial);
  1896.     rsrc_gaddr(0, HIGHSCORE,&highscore_dial);
  1897.     rsrc_gaddr(0, SCORELIST,&scorelist_dial);
  1898.     rsrc_gaddr(0, LOADING,&loading_dial);
  1899.     rsrc_gaddr(0, JUMPLEVEL,&jump_dial);
  1900.     rsrc_gaddr(0, ICONS,&icons_dial);
  1901.     rsrc_gaddr(0, OBJCOLORS,&objcolor_dial);
  1902.     rsrc_gaddr(R_STRING,ALERT_NOSCOR,&alert_noscore);
  1903.     rsrc_gaddr(R_STRING,ALERT_CANTCREATE,&alert_cantcreate);
  1904.     rsrc_gaddr(R_STRING,ALERT_CANTFIND,&alert_cantfind);
  1905.     rsrc_gaddr(R_STRING,ALERT_INVALID,&alert_invalid);
  1906. }
  1907.  
  1908.  
  1909.  
  1910. /* Allow the user access to a Gem file selector to pick a new */
  1911. /* level file */
  1912.  
  1913. void
  1914. load_levels(void)
  1915. {
  1916.     register int i;
  1917.     FILE *fd;
  1918.     int button;
  1919.     char complete[80];
  1920.  
  1921.     if (remap_pal == 0)
  1922.         reset_colors();
  1923.  
  1924.     wind_update(TRUE);
  1925.     fsel_input(lpath,name,&button);
  1926.     if (!button) goto end;
  1927.  
  1928.     i = (int)strlen(lpath) - 1;
  1929.     while (i > 0 && (lpath[i] != '\\') && (lpath[i] != ':'))
  1930.         i--;
  1931.     strcpy(complete,lpath);
  1932.     strcpy(&complete[i+1],name);
  1933.  
  1934.     fd = fopen(complete, "r");
  1935.     if (fd == NULL) goto end;
  1936.  
  1937.     fclose(fd);
  1938.     
  1939.     read_level_file(complete);
  1940.  
  1941.     if (remap_pal == 0)
  1942.         load_image_colors();
  1943.  
  1944.     if (win[GAME_WIN].handle != NO_WINDOW)
  1945.     {
  1946.         if (lives <= 0) new_game();
  1947.         restart_level();
  1948.         event_kind = MU_MESAG | MU_TIMER | MU_BUTTON | MU_KEYBD;
  1949.     }
  1950.  
  1951. end:
  1952.     wind_update(FALSE);
  1953. }
  1954.  
  1955. /* Allow the user access to a Gem file selector to pick a new */
  1956. /* background picture */
  1957.  
  1958. void
  1959. load_pic(void)
  1960. {
  1961.     register int i;
  1962.     FILE *fd;
  1963.     int button;
  1964.     char complete[80];
  1965.  
  1966.     wind_update(TRUE);
  1967.     fsel_input(path,image_name,&button);
  1968.     if (!button) goto end;
  1969.  
  1970.     i = (int)strlen(path) - 1;
  1971.     while (i > 0 && (path[i] != '\\') && (path[i] != ':'))
  1972.         i--;
  1973.     strcpy(complete,path);
  1974.     strcpy(&complete[i+1],image_name);
  1975.  
  1976.     fd = fopen(complete, "r");
  1977.     if (fd == NULL) goto end;
  1978.  
  1979.     fclose(fd);
  1980.  
  1981.     if (remap_pal == 0)
  1982.         reset_colors();
  1983.  
  1984.     wind_update(FALSE);
  1985.  
  1986.     if (_app)
  1987.     {
  1988.         do_loading();
  1989.  
  1990.         set_tedinfo(loading_dial, RIMG_COUNT, "(1/1)");
  1991.  
  1992.         do_wind_redraw(win[LOADING_WIN].handle,&win[LOADING_WIN].curr);
  1993.     }
  1994.  
  1995.     img_load(&pic_buf, complete);
  1996.  
  1997.     save_image_colors();
  1998.  
  1999.     reset_colors();
  2000.  
  2001.     if (_app)
  2002.     {
  2003.         wind_close(win[LOADING_WIN].handle);
  2004.         wind_delete(win[LOADING_WIN].handle);
  2005.         win[LOADING_WIN].handle = NO_WINDOW;
  2006.     }    
  2007.  
  2008.     wind_update(TRUE);
  2009.  
  2010.     if (win[GAME_WIN].handle != NO_WINDOW)
  2011.     {
  2012.         if (lives <= 0) new_game();
  2013.         restart_level();
  2014.         event_kind = MU_MESAG | MU_TIMER | MU_BUTTON | MU_KEYBD;
  2015.     }
  2016.  
  2017. end:
  2018.     wind_update(FALSE);
  2019. }
  2020.  
  2021. void
  2022. restart_level(void)
  2023. {
  2024.     register int x, y, image, ndx;
  2025.     int ltemp = level % file_levels;
  2026.  
  2027.     int colors[2];
  2028.     
  2029.     colors[0] = 0;
  2030.     colors[1] = 1;
  2031.     
  2032.     if (win[GAME_WIN].handle == NO_WINDOW) return;
  2033.  
  2034.     magic_bottom = 0;
  2035.      gravity = 0;
  2036.     score = old_score;
  2037.     lives = old_lives;
  2038.     bonus_life = old_bonus;
  2039.     invis = FALSE;
  2040.  
  2041.     clear_areas();
  2042.  
  2043.     num_bricks = 0;
  2044.  
  2045.     brickarray[0] = brickarray[1] = brickarray[4] = brickarray[5] = 0;
  2046.     brickarray[2] = brickarray[6] = pic_buf.fd_w - 1;
  2047.     brickarray[3] = brickarray[7] = pic_buf.fd_h - 1;
  2048.     vro_cpyfm(vdi_handle,S_ONLY,brickarray,&pic_buf,&windsource); /* windsource */
  2049.  
  2050.     show_lives();
  2051.     show_level();
  2052.     show_score();
  2053.  
  2054.     brickarray[1] = 0;
  2055.     brickarray[3] = bh-1;
  2056.  
  2057.     ndx = 0;
  2058.     for (y=0; y<7; y++)
  2059.     {
  2060.         for (x=0; x < 9; x++)
  2061.         {
  2062.             brickarray[0] = 0;
  2063.             brickarray[2] = 43;
  2064.             brickarray[4] = bleft + x * btw;
  2065.             brickarray[5] = btop + y * bth;
  2066.             brickarray[6] = brickarray[4] + 43;
  2067.             brickarray[7] = brickarray[5] + bh - 1;
  2068.  
  2069.             switch(brickmask[ltemp][ndx])
  2070.             {
  2071.                 case 9:        /* permanent */
  2072.                     vrt_cpyfm(vdi_handle, MD_TRANS, brickarray,&permbrickmask,&windsource,colors);    
  2073.                     vro_notcpy(brickarray, &permbricksource, &windsource);
  2074.                     break;
  2075.  
  2076.                 case 1:            /* normal */
  2077.                     num_bricks++;
  2078.                     break;
  2079.  
  2080.                 case 2:            /* magic */
  2081.                     vrt_cpyfm(vdi_handle, MD_TRANS, brickarray,&twobrickmask,&windsource,colors);
  2082.                     vro_notcpy(brickarray, &magicbricksource, &windsource);
  2083.  
  2084.                     num_bricks++;
  2085.                     break;
  2086.  
  2087.                 case 3:
  2088.                 case 4:
  2089.                 case 5:
  2090.                 case 6:
  2091.                     num_bricks++;
  2092.                     break;
  2093.             }
  2094.             ndx++;
  2095.         }
  2096.     }
  2097.  
  2098.     n_redraws = 0;
  2099.     add_region(work.g_x,work.g_y,work.g_w,work.g_h);
  2100.     do_redraw();
  2101.  
  2102.     evnt_timer(150,0);
  2103.  
  2104.     sound_play(S_APPEAR);
  2105.     
  2106.     evnt_timer(350,0);
  2107.  
  2108.     for (image = 3; image >= 0; image--)
  2109.     {
  2110.         ndx = 0;
  2111.         brickarray[0] = image * btw;
  2112.         brickarray[2] = brickarray[0] + btw - 1;
  2113.  
  2114.         for (y=0; y<7; y++)
  2115.         {
  2116.             for (x=0; x < 9; x++)
  2117.             {
  2118.                 brickarray[4] = bleft + x * btw;
  2119.                 brickarray[5] = btop + y * bth;
  2120.                 brickarray[6] = brickarray[4] + btw - 1;
  2121.                 brickarray[7] = brickarray[5] + bh - 1;
  2122.  
  2123.                 switch(brickmask[ltemp][ndx++])
  2124.                 {
  2125.                     case 1:
  2126.                         vrt_cpyfm(vdi_handle, MD_TRANS, brickarray,&nbrickmask,&windsource,junkcolors);
  2127.                         vro_notcpy(brickarray, &bricksource, &windsource);
  2128.                         break;
  2129.                 case 3:
  2130.                 case 4:
  2131.                 case 5:
  2132.                 case 6:
  2133.                     if (image > 0)
  2134.                     {
  2135.                         vrt_cpyfm(vdi_handle, MD_TRANS, brickarray,&twobrickmask,&windsource,junkcolors);
  2136.                         vro_notcpy(brickarray, &twobricksource, &windsource);
  2137.                     }
  2138.                     break;
  2139.                 }
  2140.             }
  2141.         }
  2142.         add_region(work.g_x,work.g_y,work.g_w,work.g_h);
  2143.         do_redraw();
  2144.     }
  2145.     evnt_timer(500,0);
  2146.  
  2147.     ani_count = 0;
  2148.     paddle_x = 0;
  2149.     paddle_y = pad_y_max;
  2150.     paddlearray[4] = 0;
  2151.     paddlearray[5] = pad_y_max;
  2152.     paddlearray[6] = 52;
  2153.     paddlearray[7] = paddlearray[5] + pad_ht - 1;
  2154.  
  2155.     num_balls = 0;
  2156.  
  2157.     if (cheat)
  2158.     {
  2159.         for (x=0; x<3; x++)
  2160.             add_ball(0,pad_y_min - ball_ht,max_xspeed-x,-min_yspeed, TRUE);
  2161.     }
  2162.     else add_ball(0,pad_y_min - ball_ht,2,2, FALSE);
  2163.  
  2164.     mode = BNORMAL;
  2165.  
  2166.     for (x=0; x < 63; x++) brickcount[x] = brickmask[ltemp][x];
  2167. }
  2168.  
  2169. void
  2170. add_region(int x,int y,int w,int h)
  2171. {
  2172.     register GRECT *p;
  2173.  
  2174.     /* this should never happen... */
  2175.     if (n_redraws >= MAX_ANI) return;
  2176.  
  2177.     p = ®ion[n_redraws];
  2178.     p->g_x = x;
  2179.     p->g_y = y;
  2180.     p->g_w = w;
  2181.     p->g_h = h;
  2182.     n_redraws++;
  2183. }
  2184.  
  2185. void
  2186. new_game(void)
  2187. {
  2188.     lives = old_lives = 3;
  2189.     score = old_score = 0;
  2190.     bonus_life = old_bonus = BONUS;
  2191.     pad_y_top = pad_y_min;
  2192.     level = 0;
  2193. }
  2194.  
  2195. void
  2196. clear(int x,int y,int w,int h)
  2197. {
  2198.     int pxy[8];
  2199.     
  2200.     pxy[0] = pxy[1] = 0;
  2201.     pxy[2] = w-1;
  2202.     pxy[3] = h-1;
  2203.     pxy[4] = x;
  2204.     pxy[5] = y;
  2205.     pxy[6] = x + w - 1;
  2206.     pxy[7] = y + h - 1;
  2207.  
  2208.     vro_cpyfm(vdi_handle,(planes>9)?ALL_BLACK:ALL_WHITE,pxy,&pic_buf,&pic_buf);
  2209. }
  2210.  
  2211. /* Saves colors in global array screen_colortab[] */
  2212. void
  2213. save_colors(void)
  2214. {
  2215.     int i;
  2216.     int coltab[3];
  2217.     
  2218.     for (i=0;i<screen_colors;i++)
  2219.     {
  2220.         vq_color(vdi_handle,i,0,coltab);
  2221.  
  2222.         screen_colortab[i].red = coltab[0];
  2223.         screen_colortab[i].green = coltab[1];
  2224.         screen_colortab[i].blue = coltab[2];            
  2225.     }
  2226. }
  2227.  
  2228. void
  2229. reset_colors(void)
  2230. {
  2231.     int i;
  2232.     int coltab[3];
  2233.  
  2234. #if OS_DOS
  2235.     if( planes == 1 )  return;  /* Looks better */
  2236. #endif
  2237.  
  2238.     for (i=0;i<screen_colors;i++)
  2239.     {
  2240.         coltab[0] = screen_colortab[i].red;
  2241.         coltab[1] = screen_colortab[i].green;
  2242.         coltab[2] = screen_colortab[i].blue;
  2243.  
  2244.         vs_color(vdi_handle,i,coltab);
  2245.     }
  2246. }
  2247.  
  2248. /* These 2 would be better stored in the window
  2249.     structure.  However I don't have the time
  2250.     at the moment if I want to meet the deadline
  2251.     I've agreed to. To make this modification.
  2252.     
  2253.     It would be fairly simple to do.
  2254.     
  2255.     All one needs to do is create all the windows you
  2256.     might want to use at the startup of the program.
  2257.     
  2258.     Then if the window contains an image.
  2259.     Set the colortab for that window to be equal to that
  2260.     image.  voila!
  2261.     
  2262.     */
  2263.  
  2264.  
  2265. void
  2266. save_image_colors(void)
  2267. {
  2268.     int i;
  2269.     int coltab[3];
  2270.  
  2271.     for (i=0;i<screen_colors;i++)
  2272.         {
  2273.             vq_color(vdi_handle,i,0,coltab);
  2274.  
  2275.             imgcolortab[i].red = coltab[0];
  2276.             imgcolortab[i].green = coltab[1];
  2277.             imgcolortab[i].blue = coltab[2];            
  2278.         }
  2279. }
  2280.     
  2281. void
  2282. load_image_colors(void)
  2283. {
  2284.     int i;
  2285.     int coltab[3];
  2286.  
  2287. #if OS_DOS
  2288.     if( planes == 1 )  return;  /* Looks better */
  2289. #endif
  2290.     
  2291.     for (i=0;i<screen_colors;i++)
  2292.     {
  2293.         coltab[0] = imgcolortab[i].red;
  2294.         coltab[1] = imgcolortab[i].green;
  2295.         coltab[2] = imgcolortab[i].blue;
  2296.             
  2297.         vs_color(vdi_handle,i,coltab);
  2298.     }
  2299. }
  2300.  
  2301. void
  2302. save_about_colors(void)
  2303. {
  2304.     int i;
  2305.     int coltab[3];
  2306.  
  2307.     for (i=0;i<screen_colors;i++)
  2308.     {
  2309.         vq_color(vdi_handle,i,0,coltab);
  2310.  
  2311.         aboutcolortab[i].red = coltab[0];
  2312.         aboutcolortab[i].green = coltab[1];
  2313.         aboutcolortab[i].blue = coltab[2];            
  2314.     }
  2315. }
  2316.     
  2317. void
  2318. load_about_colors(void)
  2319. {
  2320.     int i;
  2321.     int coltab[3];
  2322.  
  2323. #if OS_DOS
  2324.     if( planes == 1 )  return;  /* Looks better */
  2325. #endif
  2326.  
  2327.     for (i=0;i<screen_colors;i++)
  2328.     {
  2329.         coltab[0] = aboutcolortab[i].red;
  2330.         coltab[1] = aboutcolortab[i].green;
  2331.         coltab[2] = aboutcolortab[i].blue;
  2332.  
  2333.         vs_color(vdi_handle,i,coltab);
  2334.     }
  2335. }
  2336.  
  2337. /* waits for a period of time */
  2338. void
  2339. delay(int period)
  2340. {
  2341.     evnt_timer(period,0);
  2342. }
  2343.  
  2344. /********************************************/
  2345. /*        open game window                    */
  2346. /********************************************/
  2347. int 
  2348. open_game_window(void)
  2349. {
  2350.     int i, k;
  2351.  
  2352.     if ((win[GAME_WIN].handle=wind_create(W_TYPE,desk.g_x,desk.g_y,max.g_w,max.g_h)) < 0)
  2353.         return -1;
  2354.  
  2355.     graf_mkstate(&i, &i, &i, &k);
  2356.     cheat = (k & 3);
  2357.  
  2358. #if OS_DOS
  2359.     wind_set(win[GAME_WIN].handle, WF_NAME, LLOWD(title_bar), LHIWD(title_bar), 0,0);
  2360. #else
  2361.     wind_set(win[GAME_WIN].handle, WF_NAME,title_bar);
  2362. #endif
  2363.     graf_growbox(desk.g_x,desk.g_y,gl_wbox,gl_hbox,ELTS(old));
  2364.  
  2365.     wind_open(win[GAME_WIN].handle,ELTS(old));
  2366.  
  2367.     wind_get(win[GAME_WIN].handle,WF_WORKXYWH,ELTR(work));
  2368.  
  2369.         win[GAME_WIN].window_obj = (OBJECT *)NULL;
  2370.         win[GAME_WIN].title = title_bar;
  2371.         win[GAME_WIN].cur_item = -1;
  2372.         win[GAME_WIN].text_block = NULL;
  2373.         win[GAME_WIN].buf_size = 0;
  2374.         win[GAME_WIN].status = 1;
  2375.         win[GAME_WIN].edit = 0;
  2376.         win[GAME_WIN].type = 0;
  2377.         
  2378.         win[GAME_WIN].icon_obj = icons_dial;
  2379.  
  2380.         wind_get(win[GAME_WIN].handle, WF_CURRXYWH, ELTR(win[GAME_WIN].curr));
  2381.  
  2382.     if (remap_pal == 0)
  2383.         load_image_colors();
  2384.     
  2385.     /*if (lives <= 0) */
  2386.     new_game();
  2387.     restart_level();
  2388.  
  2389.     event_kind = MU_MESAG | MU_TIMER | MU_BUTTON | MU_KEYBD;
  2390.  
  2391.     ttimer = timer;
  2392.  
  2393.     return 0;
  2394. }
  2395.  
  2396.