source: abuse/tags/pd/macabuse/src/game.c.new @ 49

Last change on this file since 49 was 49, checked in by Sam Hocevar, 12 years ago
  • Imported original public domain release, for future reference.
File size: 67.4 KB
Line 
1#include "idle.hpp" #include "system.h" #include "game.hpp" #include "dev.hpp" #include "id.hpp" #include "joy.hpp" #include "timing.hpp" #include "help.hpp" #include "ability.hpp" #include "cache.hpp" #include "loader.hpp" #include "lisp.hpp" #include "monoprnt.hpp" #include "jrand.hpp" #include "config.hpp" #include "light.hpp" #include "scroller.hpp" #include "dprint.hpp" #include "nfserver.hpp" #include "video.hpp" #include "transp.hpp" #include "clisp.hpp" #include "guistat.hpp" #include "menu.hpp" #include "gamma.hpp" #include "lisp_gc.hpp" #include "demo.hpp" #include "sbar.hpp" #include "profile.hpp" #include "compiled.hpp" #include "lisp_gc.hpp" #include "pmenu.hpp" #include "timing.hpp" #include "chat.hpp" #include "demo.hpp" #include "netcfg.hpp" #include "specache.hpp" #include "ant.hpp" #include "netstat.hpp" #ifdef __MAC__ //#include <profiler.h>  //prof #include "macgame.hpp" #include "macstat.hpp" #endif #include <ctype.h> #include <setjmp.h> #define SHIFT_RIGHT_DEFAULT 0 #define SHIFT_DOWN_DEFAULT 30 class game; extern crc_manager *net_crcs; extern void show_verinfo(int argc, char **argv); game *the_game; window_manager *eh=NULL; int dev,shift_down=SHIFT_DOWN_DEFAULT,shift_right=SHIFT_RIGHT_DEFAULT; double sum_diffs=1,total_diffs=12; int total_active=0; long map_xoff=0,map_yoff=0; long current_vxadd,current_vyadd; int frame_panic=0,massive_frame_panic=0; int demo_start=0,idle_ticks=0; int req_end=0; extern palette *old_pal; char **start_argv; int start_argc; int has_joystick=0; char req_name[100]; int registered=0; extern int PixMult; extern uchar chatting_enabled; extern int confirm_quit(); #ifdef __MAC__ extern char *macify_name(char *s); #if 1 #include "atalk.hpp" atalk_protocol atalk; #else #include "tcpip.hpp" tcpip_protocol tcpip; #endif #endif #if !defined (MAC_PROFILE) #define StartTime(a) (0) #define DiffTime(a,b) (0) #else // Timer code #include <Timer.h> // kill me (us) #define KJCOUNTERS 20 long kjcount[KJCOUNTERS]; char kjfie[KJCOUNTERS][256] = { };  // kill me extern long StartTime(int cnt);         //kill me extern long DiffTime(char *name, int cnt);   //kill me extern unsigned lighting_loop_time; long StartTime(int cnt) //kill me too {   UnsignedWide t;   Microseconds(&t);           return (kjcount[cnt] = t.lo); } long DiffTime(char *name, int cnt) //kill me too {   UnsignedWide t;   Microseconds(&t);           sprintf(kjfie[cnt],"%-16s %8d",name,t.lo-kjcount[cnt]);           return (t.lo-kjcount[cnt]); } #endif void fade_in(image *im, int steps); void fade_out(int steps); FILE *open_FILE(char *filename, char *mode) {   /*  char *prefix=get_filename_prefix() ? get_filename_prefix() : "",*c;         if (get_save_filename_prefix)       {       for (c=mode;*c;c++)       if (c=='w' || c=='W')       {       }       } */           char tmp_name[200];   if (get_filename_prefix())     sprintf(tmp_name,"%s%s",get_filename_prefix(),filename);   else strcpy(tmp_name,filename); #ifdef __MAC__   macify_name(tmp_name); #endif   return fopen(tmp_name,mode); } void handle_no_space() {   char *no_space_msg= "\nYou are out of disk space or the game\n"     "was unable to write to disk for some reason\n"     "The game cannot continue, please check this out\n"     "and try again.\n";   if (eh)   {     jwindow *no_space=eh->new_window(0,0,-1,-1,         new button(WINDOW_FRAME_LEFT,WINDOW_FRAME_TOP,ID_QUIT_OK,"Quit",             new info_field(WINDOW_FRAME_LEFT,WINDOW_FRAME_TOP+eh->font()->height()*2,ID_NULL,                 no_space_msg,NULL)),"ERROR");     event ev;     do     {       eh->flush_screen();       eh->get_event(ev);     } while (ev.type!=EV_MESSAGE || ev.message.id!=ID_QUIT_OK);     eh->close_window(no_space);     close_graphics();     exit(1);   } else   {     dprintf("%s\n",no_space_msg);     exit(0);   } } void game::play_sound(int id, int vol, long x, long y) {   if (sound_avail&SFX_INITIALIZED)   {     if (vol<15) return ;     if (!player_list) return ;     ulong mdist=0xffffffff;     view *cd=NULL;     for (view *f=player_list;f;f=f->next)     {       if (f->local_player())       {         long cx=abs(f->x_center()-x),cy=abs(f->y_center()-y),d;         if (cx<cy)           d=cx+cy-(cx>>1);         else d=cx+cy-(cy>>1);         if (d<mdist)         {           cd=f;           mdist=d;         }       }     }      if (mdist>500 || !cd) return ;     if (mdist<100) mdist=0;     else mdist-=100;     int v=(400-mdist)*sfx_volume/400-(127-vol);     if (v>0 && (sound_avail&SFX_INITIALIZED))       cash.sfx(id)->play(v);   } } int get_option(char *name) {   int i;   for (i=1;i<start_argc;i++)     if (!strcmp(start_argv[i],name))       return i;   return 0; } void make_screen_size(int w, int h) {   return ;   /*   for (view *f=player_list;f;f=f->next)   {     if (f->local_player())     {       if (w>=xres-1) w=xres-2;       if (h>=yres-1) h=yres-2;       f->suggest.cx1=(xres+1)/2-w/2;       f->suggest.cx2=(xres+1)/2+w/2;       f->suggest.cy1=(yres-31)/2+5-h/2;       f->suggest.cy2=(yres-51)/2+5+h/2;       f->suggest.shift_down=f->shift_down;       f->suggest.shift_right=f->shift_right;       f->suggest.pan_x=f->pan_x;       f->suggest.pan_y=f->pan_y;       f->suggest.send_view=1;     }   } */ } void game::grow_views(int amount) {   return ;   /*   int undo=0;   view *f=first_view;   for (;f;f=f->next)   {     if (f->local_player())     {       f->suggest.cx1=(f->cx1-amount);       f->suggest.cy1=f->cy1-amount/2;       f->suggest.cx2=(f->cx2+amount);       f->suggest.cy2=f->cy2+amount/2;       f->suggest.shift_down=f->shift_down;       f->suggest.shift_right=f->shift_right;       f->suggest.pan_x=f->pan_x;       f->suggest.pan_y=f->pan_y;       f->suggest.send_view=1;     }   }   for (f=first_view;f;f=f->next)    {     if (f->local_player())     {       if (f->suggest.cx2-f->suggest.cx1<20 || f->suggest.cy2-f->suggest.cy1<15 ||           f->suggest.cx1<0 || f->suggest.cy1<0) f->suggest.send_view=0;       if (f->next && f->next->local_player() && f->suggest.cy2>=f->next->cy1) f->suggest.send_view=0;     }   } */ } void game::pan(int xv, int yv) {   first_view->pan_x+=xv;   first_view->pan_y+=yv; } view *game::view_in(int mousex, int mousey) {   for (view *f=first_view;f;f=f->next)     if (f->drawable() && mousex>=f->cx1 && mousey>=f->cy1 && mousex<=f->cx2 && mousey<=f->cy2)       return f;   return NULL; } int playing_state(int state) {   if (state==RUN_STATE || state==PAUSE_STATE) return 1;   else return 0; } void game::ftile_on(int screenx, int screeny, long &x, long &y) {   mouse_to_game(screenx,screeny,x,y);   x/=ftile_width();   y/=ftile_height();   /*  view *f=view_in(screenx,screeny);       if (f)       {       x=((long)(screenx)-(long)f->cx1+f->xoff())/(long)f_wid;       y=((long)(screeny)-(long)f->cy1+f->yoff())/(long)f_hi;       }       else       {       x=-1;       y=-1;       }*/ } void game::btile_on(int screenx, int screeny, long &x, long &y) {   view *f=view_in(screenx,screeny);   if (f)   {     x=((long)(screenx)-(long)f->cx1+f->xoff()*bg_xmul/bg_xdiv)/(long)b_wid;     y=((long)(screeny)-(long)f->cy1+f->yoff()*bg_ymul/bg_ydiv)/(long)b_hi;   }   else   {     x=-1;     y=-1;   } } void game::mouse_to_game(long x, long y, long &gamex, long &gamey, view *f) {   if (!f)   {     f=view_in(x,y);     if (!f) f=player_list;  // if not in a view use the first on   }   if (f)   {     if (dev&MAP_MODE)     {       gamex=((x-(long)f->cx1)*ftile_width()/AUTOTILE_WIDTH+map_xoff*ftile_width());       gamey=((y-(long)f->cy1)*ftile_height()/AUTOTILE_HEIGHT+map_yoff*ftile_height());     } else     {       gamex=(x-(long)f->cx1+f->xoff());       gamey=(y-(long)f->cy1+f->yoff());     }   } } void game::game_to_mouse(long gamex, long gamey, view *which, long &x, long &y) {   if (dev&MAP_MODE)   {     long x1,y1;     if (dev&EDIT_MODE)     {       x1=map_xoff;       y1=map_yoff;     } else     {       if (which->focus)       {         x1=which->focus->x/ftile_width()-(which->cx2-which->cx1)/AUTOTILE_WIDTH/2;         y1=which->focus->y/ftile_height()-(which->cy2-which->cy1)/AUTOTILE_HEIGHT/2;       } else x1=y1=0;     }     if (x1<0) x1=0;     if (y1<0) y1=0;     x=gamex*AUTOTILE_WIDTH/ftile_width()-x1*AUTOTILE_WIDTH+which->cx1;     if (x1>0)       x-=((which->focus->x*AUTOTILE_WIDTH/ftile_width()) %AUTOTILE_WIDTH);     y=gamey*AUTOTILE_HEIGHT/ftile_height()-y1*AUTOTILE_HEIGHT+which->cy1;     if (y1>0)       y-=((which->focus->y*AUTOTILE_HEIGHT/ftile_height()) %AUTOTILE_HEIGHT);   }   else   {     x=gamex-which->xoff()+which->cx1;     y=gamey-which->yoff()+which->cy1;   } } int window_state(int state) {   switch (state)   {     case RUN_STATE :     case PAUSE_STATE :     case JOY_CALB_STATE :     { return 1; } break;     case INTRO_START_STATE :     case HELP_STATE :     case INTRO_MORPH_STATE :     case MENU_STATE :     case SCENE_STATE :     { return 0; } break;   }   return 1; } // not global for now extern void make_edit_mode_menu(); extern void kill_edit_mode_menu(); void game::set_state(int new_state) {   int d=0;     reset_keymap();                             // we think all the keys are up right now   if (!playing_state(new_state) && playing_state(state))   {     switch_mode(VMODE_640x480);   }   if (playing_state(new_state) && !playing_state(state))   {     switch_mode(VMODE_320x200);     recalc_local_view_space();     if (first_view && first_view!=player_list)     {       while (first_view)       {         view *tmp=first_view;         first_view=first_view->next;         delete tmp;       }       first_view=old_view;       old_view=NULL;     }     first_view=player_list;     d=1;   } else if (!playing_state(new_state) && (playing_state(state) || state==START_STATE))   {     if (player_list)        {       first_view=new view(player_list->focus,NULL,-1);       first_view->pan_x=player_list->xoff();       first_view->pan_y=player_list->yoff();     }     else          first_view=new view(NULL,NULL,0);     /*     first_view->cx1=(xres+1)/2-155;     first_view->cy1=(yres+1)/2-95;     first_view->cx2=(xres+1)/2+155;     if (total_weapons)       first_view->cy2=(yres+1)/2+68;     else       first_view->cy2=(yres+1)/2+95;       */         d=1;   }     // switching to/from scene mode cause the screen size to change and the border to change   // so we need to redraw.   if (window_state(new_state) && !window_state(state))     eh->show_windows();   else if (!window_state(new_state) && window_state(state))     eh->hide_windows();   int old_state=state;   state=new_state;   pal->load();    // restore old palette   if (playing_state(state) &&  !(dev&EDIT_MODE))     eh->set_mouse_shape(cash.img(c_target)->copy(),8,8);   else     eh->set_mouse_shape(cash.img(c_normal)->copy(),1,1);         if (playing_state(new_state) && (dev&EDIT_MODE))                 make_edit_mode_menu();         else                 kill_edit_mode_menu();           if (old_state==SCENE_STATE && new_state!=SCENE_STATE)   {     d=1;     scene_director.set_abort(0);   // don't skip any more scene stuff   }   else if (new_state==SCENE_STATE && old_state!=SCENE_STATE)     d=1;     if (d)     draw(state==SCENE_STATE);   dev_cont->set_state(new_state); } void game::joy_calb(event &ev) {   if (joy_win)   // make sure the joy stick calibration window is open   {         if (ev.type==EV_SPURIOUS)   // spurious means we should update your status     {       int b1,b2,b3=0,x,y;       joy_status(b1,b2,b2,x,y);       int but=b1|b2|b3;       if (x>0) x=1; else if (x<0) x=-1;       if (y>0) y=1; else if (y<0) y=-1;       if (but) but=1;       int dx=WINDOW_FRAME_LEFT+20,dy=WINDOW_FRAME_TOP+5;       image *jim=cash.img(joy_picts[but*9+(y+1)*3+x+1]);       joy_win->screen->bar(dx,dy,dx+jim->width()+6,dy+jim->height()+6,eh->black());       jim->put_image(joy_win->screen,dx+3,dy+3);       if (but)         joy_calibrate();     } else if (ev.type==EV_MESSAGE && ev.message.id==JOY_OK)     {       eh->close_window(joy_win);       joy_win=NULL;       set_state(MENU_STATE);     }          } } void game::menu_select(event &ev) {   state=DEV_MOUSE_RELEASE;   if (top_menu)   {     /*    eh->push_event(new event(men_mess[((pick_list *)ev.message.data)->get_selection()],NULL));           eh->close_window(top_menu);           top_menu=NULL;*/   } } void game::show_help(char *st) {   strcpy(help_text,st);   help_text_frames=0;    refresh=1; } void game::draw_value(image *screen, int x, int y, int w, int h, int val, int max) {   screen->bar(x,y,x+w-1,y+h,eh->dark_color());   screen->bar(x,y+1,x+w*val/max,y+h-1,eh->bright_color());  } void game::set_level(level *nl) {   if (current_level)     delete current_level;    current_level=nl; } void game::load_level(char *name) {   if (current_level)     delete current_level;   bFILE *fp=open_file(name,"rb");   if (fp->open_failure())   {     delete fp;     current_level=new level(100,100,name);     char msg[100];     sprintf(msg,symbol_str("no_file"),name);     show_help(msg);   }   else   {                                spec_directory sd(fp);  #ifdef __MAC__     if (state != RUN_STATE)     {       // clear screen       image blank(2,2); blank.clear();       fade_out(16);       eh->set_mouse_shape(blank.copy(),0,0);      // don't show mouse       fade_in(cash.img(cdc_logo),16);     } #endif     spec_entry *e=sd.find("Copyright 1995 Crack dot Com, All Rights reserved");     if (!e)     {       the_game->show_help(symbol_str("missing_c"));       current_level=new level(100,100,"untitled");       the_game->need_refresh();     }     else       current_level=new level(&sd,fp,name);     delete fp;   }     base->current_tick=(current_level->tick_counter()&0xff);   current_level->level_loaded_notify();   the_game->help_text_frames=0;  } int game::done() {   return finished || (main_net_cfg && main_net_cfg->restart_state()); } void game::end_session() {   finished=1;   if (main_net_cfg)   {     delete main_net_cfg;     main_net_cfg=NULL;   } } void game::put_block_fg(int x, int y, trans_image *im) {   for (view *f=first_view;f;f=f->next)   {     if (f->drawable())     {       int xoff=f->xoff(),yoff=f->yoff(),viewx1=f->cx1,viewy1=f->cy1,viewx2=f->cx2,viewy2=f->cy2;       if (xoff/ftile_width()>x || xoff/ftile_width()+(viewx2-viewx1)/ftile_width()+1<x ||           yoff/ftile_height()>y || yoff/ftile_height()+(viewy2-viewy1)/ftile_height()+1<y) return;       short cx1,cy1,cx2,cy2;       screen->get_clip(cx1,cy1,cx2,cy2);       screen->set_clip(viewx1,viewy1,viewx2,viewy2);       im->put_image(screen,(x-xoff/ftile_width())*ftile_width()+viewx1-xoff%ftile_width(),           (y-yoff/ftile_height())*ftile_height()+viewy1-yoff%ftile_height());       screen->set_clip(cx1,cy1,cx2,cy2);     }   } } void game::put_block_bg(int x, int y, image *im) {   for (view *f=first_view;f;f=f->next)   {     if (f->drawable())     {       int xoff=f->xoff(),yoff=f->yoff(),viewx1=f->cx1,viewy1=f->cy1,viewx2=f->cx2,viewy2=f->cy2;       int xo=xoff*bg_xmul/bg_xdiv;       int yo=yoff*bg_ymul/bg_ydiv;             if (xo/btile_width()>x || xo/btile_width()+(viewx2-viewx1)/btile_width()+1<x ||           yo/btile_height()>y || yo/btile_height()+(viewy2-viewy1)/btile_height()+1<y) return;       short cx1,cy1,cx2,cy2;       screen->get_clip(cx1,cy1,cx2,cy2);       screen->set_clip(viewx1,viewy1,viewx2,viewy2);       im->put_image(screen,(x-xo/btile_width())*btile_width()+viewx1-xo%btile_width(),           (y-yo/btile_height())*btile_height()+viewy1-yo%btile_height(),0);       screen->set_clip(cx1,cy1,cx2,cy2);     }   } } int need_delay=1; void game::dev_scroll() {   need_delay=0;   if (dev)   {     int xmargin,ymargin;     if (xres>400)     {       xmargin=20;       ymargin=10;     }     else     {       xmargin=10;       ymargin=5;     }     int xs,ys;     if (mousex<xmargin &&  dev_cont->ok_to_scroll()) xs=-18;     else if (mousex>(screen->width()-xmargin) &&  dev_cont->ok_to_scroll()) xs=18;     else if (eh->key_pressed(JK_LEFT) && !last_input && !dev_cont->need_arrows())       xs=-18;     else if (eh->key_pressed(JK_RIGHT) && !last_input && !dev_cont->need_arrows())       xs=18;     else xs=0;                   if (mousey<ymargin && dev_cont->ok_to_scroll()) ys=-18;     else if (mousey>(screen->height()-ymargin) &&  dev_cont->ok_to_scroll()) ys=18;     else if (eh->key_pressed(JK_UP) && !last_input)       ys=-18;     else if (eh->key_pressed(JK_DOWN) && !last_input)       ys=18;     else ys=0;         if (xs || ys)     {       need_delay=1;       if (dev&MAP_MODE)       {         map_xoff+=xs/2;         map_yoff+=ys/2;         if (map_xoff<0) map_xoff=0;         if (map_yoff<0) map_yoff=0;       }       else       {         for (view *v=first_view;v;v=v->next)         {           if (xs>=0 || v->xoff()>0)             v->pan_x+=xs;           if (ys>=0 || v->yoff()>0)             v->pan_y+=ys;         }       }       refresh=1;     }   } } void remap_area(image *screen, int x1, int y1, int x2, int y2, uchar *remap) {   uchar *sl=(uchar *)screen->scan_line(y1)+x1;   int x,y,a=screen->width()-(x2-x1+1);   uchar c;   for (y=y1;y<=y2;y++)   {     for (x=x1;x<=x2;x++)     {       c=*sl;       *(sl++)=remap[c];     }     sl+=a;   } } void post_render() {   if (DEFINEDP(symbol_function(l_post_render)))   {     screen->dirt_off();     clear_tmp();     eval_function((lisp_symbol *)l_post_render,NULL);     clear_tmp();     screen->dirt_on();   } }   void game::draw_map(view *v, int interpolate) {   foretile *ft;   backtile *bt;   int x1,y1,x2,y2,x,y,xo,yo,nxoff,nyoff;   short cx1,cy1,cx2,cy2;     StartTime(6); //kill me     screen->get_clip(cx1,cy1,cx2,cy2);   if (!current_level || state==MENU_STATE)   {     if (title_screen>=0)     {       if (state==SCENE_STATE)         screen->set_clip(v->cx1,v->cy1,v->cx2,v->cy2);              image *tit=cash.img(title_screen);       tit->put_image(screen,screen->width()/2-tit->width()/2,           screen->height()/2-tit->height()/2);       if (state==SCENE_STATE)         screen->set_clip(cx1,cy1,cx2,cy2);       eh->flush_screen();     }        return ;   }   refresh=0;    // save the dirty rect routines some work by markinging evrything in the   // view area dirty alreadt   if (small_render)     screen->add_dirty(v->cx1,v->cy1,(v->cx2-v->cx1+1)*2+v->cx1,v->cy1+(v->cy2-v->cy1+1)*2);      else     screen->add_dirty(v->cx1,v->cy1,v->cx2,v->cy2);      if (v->draw_solid!=-1)      // fill the screen and exit..   {     int c=v->draw_solid;     for (int y=v->cy1;y<=v->cy2;y++)       memset(screen->scan_line(y)+v->cx1,c,v->cx2-v->cx1+1);     v->draw_solid=-1;     return ;   }   long old_cx1,old_cy1,old_cx2,old_cy2;   // if we do a small render, we need to restore these   image *old_screen=NULL;   if (small_render && (dev&DRAW_LIGHTS))  // cannot do this if we skip lighting   {     old_cx1=v->cx1;     old_cy1=v->cy1;     old_cx2=v->cx2;     old_cy2=v->cy2;     /*    v->cx1=0;     v->cy1=0;     v->cx2=small_render->width()-1;     v->cy2=small_render->height()-1; */     old_screen=screen;     screen=small_render;   } else     screen->dirt_off();   //  long max_xoff=(current_level->foreground_width()-1)*ftile_width()-(v->cx2-v->cx1+1);   //  long max_yoff=(current_level->foreground_height()-1)*ftile_height()-(v->cy2-v->cy1+1);   long xoff,yoff;   if (interpolate)   {     xoff=v->interpolated_xoff();     yoff=v->interpolated_yoff();   } else   {     xoff=v->xoff();     yoff=v->yoff();   }   //  if (xoff>max_xoff) xoff=max_xoff;   //  if (yoff>max_yoff) yoff=max_yoff;    current_vxadd=xoff-v->cx1;   current_vyadd=yoff-v->cy1;   screen->set_clip(v->cx1,v->cy1,v->cx2,v->cy2);   nxoff=xoff*bg_xmul/bg_xdiv;   nyoff=yoff*bg_ymul/bg_ydiv;   //  long max_bg_xoff=(current_level->background_width())*btile_width()-(v->cx2-v->cx1+1);   //  long max_bg_yoff=(current_level->background_height())*btile_height()-(v->cy2-v->cy1+1);   //  if (nxoff>max_bg_xoff) nxoff=max_xoff;   //  if (nyoff>max_bg_yoff) nyoff=max_yoff;        x1=nxoff/btile_width(); y1=nyoff/btile_height();   x2=x1+(v->cx2-v->cx1+btile_width())/btile_width();   y2=y1+(v->cy2-v->cy1+btile_height())/btile_height();   xo=v->cx1-nxoff%btile_width();   yo=v->cy1-nyoff%btile_height();     int xinc,yinc,draw_x,draw_y;   DiffTime("      PreDraw",6);//kill me   StartTime(7); //kill me   if (!(dev & MAP_MODE) && (dev & DRAW_BG_LAYER))   {     xinc=btile_width();      yinc=btile_height();          int bh=current_level->background_height(),bw=current_level->background_width();     ushort *bl;     for (draw_y=yo,y=y1;y<=y2;y++,draw_y+=yinc)     {       if (y>=bh)         bl=NULL;       else         bl=current_level->get_bgline(y)+x1;       for (x=x1,draw_x=xo;x<=x2;x++,draw_x+=xinc)       {         if (x<bw && y<bh)         {           bt=get_bg(*bl);           bl++;         }         else bt=get_bg(0);         bt->im->put_image(screen,draw_x,draw_y);         //        if (!(dev & EDIT_MODE) && bt->next)         //        current_level->put_bg(x,y,bt->next);       }     }   }   //  if (!(dev&EDIT_MODE))   //    server_check();   uchar rescan=0;    int fw,fh;   if (dev&MAP_MODE)   {     fw=AUTOTILE_WIDTH;     fh=AUTOTILE_HEIGHT;     if (dev&EDIT_MODE)     {       x1=map_xoff;       y1=map_yoff;     } else     {       if (v->focus)       {         x1=v->focus->x/ftile_width()-(v->cx2-v->cx1)/fw/2;         y1=v->focus->y/ftile_height()-(v->cy2-v->cy1)/fh/2;       } else x1=y1=0;     }     if (x1>0)       xo=v->cx1-((v->focus->x*fw/ftile_width()) %fw);     else xo=v->cx1;     if (y1>0)       yo=v->cy1-((v->focus->y*fh/ftile_height()) %fh);     else yo=v->cy1;   } else   {     fw=ftile_width();     fh=ftile_height();     x1=(xoff)/fw; y1=(yoff)/fh;     xo=v->cx1-xoff%fw;     yo=v->cy1-yoff%fh;   }   if (x1<0) x1=0;   if (y1<0) y1=0;     x2=x1+(v->cx2-v->cx1+fw)/fw;   y2=y1+(v->cy2-v->cy1+fh)/fh;   if (x2>=current_level->foreground_width())     x2=current_level->foreground_width()-1;   if (y2>=current_level->foreground_height())     y2=current_level->foreground_height()-1;   xinc=fw;   yinc=fh;   DiffTime("      BG/MAP",7);//kill me   StartTime(8); //kill me   if (dev & DRAW_FG_LAYER)   {     short ncx1,ncy1,ncx2,ncy2;     screen->get_clip(ncx1,ncy1,ncx2,ncy2);     int scr_w=screen->width();     if (dev&MAP_MODE)     {       if (dev&EDIT_MODE)         screen->clear(eh->bright_color());       else         screen->clear(eh->black());       for (y=y1,draw_y=yo;y<=y2;y++,draw_y+=yinc)       {         if (!(draw_y<ncy1 ||draw_y+yinc>=ncy2))         {           ushort *cl=current_level->get_fgline(y)+x1;           uchar *sl1=screen->scan_line(draw_y)+xo;           for (x=x1,draw_x=xo;x<=x2;x++,cl++,sl1+=xinc,draw_x+=xinc)           {             if (!(draw_x<ncx1 || draw_x+xinc>=ncx2))             {               int fort_num;               //              if (*cl&0x8000 || (dev&EDIT_MODE))               fort_num=fgvalue(*cl);               //              else fort_num=0;                                       uchar *sl2=get_fg(fort_num)->micro_image->scan_line(0);               uchar *sl3=sl1;               memcpy(sl3,sl2,AUTOTILE_WIDTH); sl2+=AUTOTILE_WIDTH; sl3+=scr_w;               memcpy(sl3,sl2,AUTOTILE_WIDTH); sl2+=AUTOTILE_WIDTH; sl3+=scr_w;               memcpy(sl3,sl2,AUTOTILE_WIDTH);             }           }         }       }       if (dev&EDIT_MODE)         current_level->draw_areas(v);     } else     {       int fg_h=current_level->foreground_height(),fg_w=current_level->foreground_width();             for (y=y1,draw_y=yo;y<=y2;y++,draw_y+=yinc)       {                 ushort *cl;         if (y<fg_h)           cl=current_level->get_fgline(y)+x1;         else cl=NULL;         uchar *sl1=draw_y<ncy1 ? 0 : screen->scan_line(draw_y)+xo;                                 for (x=x1,draw_x=xo;x<=x2;x++,draw_x+=xinc,cl++,sl1+=xinc)         {           if (x<fg_w && y<fg_h)           {             if (above_tile(*cl))               rescan=1;             else             {               int fort_num=fgvalue(*cl);                        if (fort_num!=BLACK)               {                 if (draw_y<ncy1 || draw_y+yinc>=ncy2 || draw_x<ncx1 || draw_x+xinc>=ncx2)                   get_fg(fort_num)->im->put_image(screen,draw_x,draw_y);                 else                   get_fg(fort_num)->im->put_image_offseted(screen,sl1);                                         if (!(dev & EDIT_MODE))                   *cl|=0x8000;      // mark as has-been-seen               }             }           }         }       }      }     /*        if (dev==0)               current_level->put_fg(x,y,ft->next);  */          }     DiffTime("      FG",8);//kill me   //  if (!(dev&EDIT_MODE))   //    server_check();   long ro=rand_on;   if (dev & DRAW_PEOPLE_LAYER)   {     if (interpolate)       current_level->interpolate_draw_objects(v);     else       current_level->draw_objects(v);   }   //  if (!(dev&EDIT_MODE))   //    server_check();   StartTime(9); //kill me   if (!(dev&MAP_MODE))   {     int fg_h=current_level->foreground_height(),fg_w=current_level->foreground_width();     if (dev & DRAW_FG_LAYER && rescan)     {       for (y=y1,draw_y=yo;y<=y2;y++,draw_y+=yinc)       {         ushort *cl=current_level->get_fgline(y)+x1;         for (x=x1,draw_x=xo;x<=x2;x++,draw_x+=xinc,cl++)         {           if (above_tile(*cl))           {             int fort_num=fgvalue(*cl);                if (fort_num!=BLACK)             {               if (dev & DRAW_BG_LAYER)                 get_fg(fort_num)->im->put_image(screen,draw_x,draw_y);               else                 get_fg(fort_num)->im->put_image_filled(screen,draw_x,draw_y,0);                                       if (!(dev & EDIT_MODE))                 current_level->mark_seen(x,y);               else               {                 screen->line(draw_x,draw_y,draw_x+xinc,draw_y+yinc,eh->bright_color());                 screen->line(draw_x+xinc,draw_y,draw_x,draw_y+yinc,eh->bright_color());               }             }              }         }       }        }         if (dev & DRAW_FG_BOUND_LAYER)     {       int b=eh->bright_color();       int fg_h=current_level->foreground_height(),fg_w=current_level->foreground_width();       for (y=y1,draw_y=yo;y<=y2;y++,draw_y+=yinc)       {         ushort *cl;         if (y<fg_h)           cl=current_level->get_fgline(y)+x1;         else cl=NULL;         for (x=x1,draw_x=xo;x<=x2;x++,draw_x+=xinc,cl++)         {           if (x<fg_w && y<fg_h)           {             int fort_num=fgvalue(*cl);                if (fort_num!=BLACK)             {               point_list *p=get_fg(fort_num)->points;               uchar *d=p->data;               if (p->tot)               {                 for (int i=1;i<p->tot;i++)                 {                   d+=2;                   screen->line(draw_x+*(d-2),draw_y+*(d-1),draw_x+*d,draw_y+*(d+1),b);                 }                 screen->line(draw_x+*d,draw_y+*(d-1),draw_x+p->data[0],draw_y+p->data[1],b);               }             }           }         }       }     }     //    if (!(dev&EDIT_MODE))     //      server_check();     if (dev & DRAW_HELP_LAYER)     {       if (help_text_frames>=0)       {         int color;                                         if (help_text_frames<10)           color=2;         else           color=2+(help_text_frames-10);                                         int x1=v->cx1,y1=v->cy1,x2=v->cx2,y2=v->cy1+eh->font()->height()+10;                                 remap_area(screen,x1,y1,x2,y2,white_light+40*256);         screen->bar(x1,y1,x2,y1,color);         screen->bar(x1,y2,x2,y2,color);                                 eh->frame_font()->put_string(screen,x1+5,y1+5,             help_text,color);         if (color>30)           help_text_frames=-1;              else help_text_frames++;               }        }         if (dev_cont)       dev_cont->dev_draw(v);      if (cash.in_use())       cash.img(vmm_image)->put_image(screen,v->cx1,v->cy2-cash.img(vmm_image)->height()+1);      if (dev&DRAW_LIGHTS)     {        if (small_render)       {         double_light_screen(screen,xoff,yoff,white_light,v->ambient,old_screen,old_cx1,old_cy1);                                 /*        v->cx1=old_cx1;         v->cy1=old_cy1;         v->cx2=old_cx2;         v->cy2=old_cy2; */         screen=old_screen;       } else       {              screen->dirt_on();         if (xres*yres<=64000)           light_screen(screen,xoff,yoff,white_light,v->ambient);         else light_screen(screen,xoff,yoff,white_light,63);            // no lighting for hi-rez       }     } else       screen->dirt_on();   }  else     screen->dirt_on();   DiffTime("      Other",9); //kill me   StartTime(15); // kill me   rand_on=ro;                // restore random start in case in draw funs moved it   // ... not every machine will draw the same thing   post_render();   screen->set_clip(cx1,cy1,cx2,cy2);       if (playing_state(state))        // draw stuff outside the clipping region     v->draw_character_damage();   if (profiling())     profile_update();   sbar.draw_update();   DiffTime("      Post",15); //kill me } void game::put_fg(int x, int y, int type) {   if (current_level->get_fg(x,y)!=type)   {     current_level->put_fg(x,y,type);     for (view *f=first_view;f;f=f->next)       if (f->drawable())         draw_map(f);        /*    put_block_bg(x,y,get_bg(current_level->get_bg(x/ASPECT,y/ASPECT))->im);           if (type>BLACK)           put_block_fg(x,y,get_fg(type)->im); */   } } void game::put_bg(int x, int y, int type) {   if (current_level->get_bg(x,y)!=type)   {     current_level->put_bg(x,y,type);     for (view *f=first_view;f;f=f->next)       if (f->drawable())         draw_map(f);        /*    put_block_bg(x,y,get_bg(type)->im);           if (current_level->get_fg(x,y)>BLACK)           put_block_fg(x,y,get_fg(current_level->get_fg(x,y))->im);*/   } } int game::in_area(event &ev, int x1, int y1, int x2, int y2) {   return (last_demo_mx>=x1 && last_demo_mx<=x2 &&       last_demo_my>=y1 && last_demo_my<=y2); } void game::request_level_load(char *name) {   strcpy(req_name,name); } extern int start_doubled; void fade_in(image *im, int steps) {   palette *old_pal=pal->copy();   int i;   if (im)   {     screen->clear();     im->put_image(screen,(xres+1)/2-im->width()/2,(yres+1)/2-im->height()/2);   }   for (i=0;i<steps;i++)   {     uchar *sl1=(uchar *)pal->addr();        uchar *sl2=(uchar *)old_pal->addr();        int j;     int r,g,b;     int v=(i+1)*256/steps;     for (j=0;j<256;j++)     {       *(sl1)=((int)*(sl2))*v/256;  sl1++; sl2++;       *(sl1)=((int)*(sl2))*v/256;  sl1++; sl2++;       *(sl1)=((int)*(sl2))*v/256;  sl1++; sl2++;     }     pal->load();     eh->flush_screen();     milli_wait(25);   }   delete pal;   pal=old_pal; } void fade_out(int steps) {   palette *old_pal=pal->copy();   int i;   for (i=0;i<steps;i++)   {     uchar *sl1=(uchar *)pal->addr();        uchar *sl2=(uchar *)old_pal->addr();        int j;     int r,g,b;     int v=(steps-i)*256/steps;     for (j=0;j<256;j++)     {       *(sl1)=((int)*(sl2))*v/256;  sl1++; sl2++;       *(sl1)=((int)*(sl2))*v/256;  sl1++; sl2++;       *(sl1)=((int)*(sl2))*v/256;  sl1++; sl2++;     }     pal->load();     eh->flush_screen();     milli_wait(25);   }   screen->clear();   eh->flush_screen();   delete pal;   pal=old_pal;     pal->load(); } int text_draw(int y, int x1, int y1, int x2, int y2, char *buf, JCFont *font, uchar *cmap, char color); void do_title() {   if (cdc_logo!=-1)   {     if (sound_avail&MUSIC_INITIALIZED)     {       if (current_song) { current_song->stop(); delete current_song; }       current_song=new song("music/intro.hmi");       current_song->play(music_volume);     }     void *logo_snd=symbol_value(make_find_symbol("LOGO_SND"));     if (DEFINEDP(logo_snd) && (sound_avail&SFX_INITIALIZED))       cash.sfx(lnumber_value(logo_snd))->play(sfx_volume);     image blank(2,2); blank.clear();     eh->set_mouse_shape(blank.copy(),0,0);      // don't show mouse     fade_in(cash.img(cdc_logo),32);         milli_wait(900);     void *space_snd=symbol_value(make_find_symbol("SPACE_SND"));     fade_out(32);     milli_wait(300);     int i,abort=0;     char *str=lstring_value(eval(make_find_symbol("plot_start")));         bFILE *fp=open_file("art/smoke.spe","rb");     if (!fp->open_failure())     {       spec_directory sd(fp);       palette *old_pal=pal;       pal=new palette(sd.find(SPEC_PALETTE),fp);       pal->shift(1);       image *gray=new image(sd.find("gray_pict"),fp);       image *smoke[5];       char nm[20];       for (i=0;i<5;i++)       {         sprintf(nm,"smoke%04d.pcx",i+1);         smoke[i]=new image(sd.find(nm),fp);       }       screen->clear();       pal->load();       int dx=(xres+1)/2-gray->width()/2,dy=(yres+1)/2-gray->height()/2;       gray->put_image(screen,dx,dy);       smoke[0]->put_image(screen,dx+24,dy+5);       fade_in(NULL,16);       uchar cmap[32];       for (i=0;i<32;i++)         cmap[i]=pal->find_closest(i*256/32,i*256/32,i*256/32);       event ev; ev.type=EV_SPURIOUS;       time_marker start;       for (i=0;i<600 && ev.type!=EV_KEY && ev.type!=EV_MOUSE_BUTTON;i++)       {         gray->put_part(screen,dx,dy,0,0,319,199);         smoke[i%5]->put_image(screen,dx+65,dy+70);         text_draw(205-i,dx+15,dy,dx+320-15,dy+199,str,eh->font(),cmap,eh->bright_color());         eh->flush_screen();         time_marker now;         while (now.diff_time(&start)<0.15)           now.get_time();         start.get_time();                                 while (eh->event_waiting() && ev.type!=EV_KEY) eh->get_event(ev);         if ((i%5)==0 && DEFINEDP(space_snd) && (sound_avail&SFX_INITIALIZED))           cash.sfx(lnumber_value(space_snd))->play(sfx_volume*90/127);       }       the_game->reset_keymap();       fade_out(16);       for (i=0;i<5;i++) delete smoke[i];       delete gray;       delete pal;       pal=old_pal;     }     delete fp;     for (i=0;i<100 && !abort;i++)     {           }     if (title_screen>=0)       fade_in(cash.img(title_screen),32);     eh->set_mouse_shape(cash.img(c_normal)->copy(),1,1);   } } extern int start_edit; void game::request_end() {   req_end=1; } extern void fast_load_start_recording(char *name); extern void fast_load_stop_recording(); extern void fast_load_start_reloading(char *name); extern void fast_load_stop_reloading(); game::game(int argc, char **argv) {   int i;   req_name[0]=0;   bg_xmul=bg_ymul=1;   bg_xdiv=bg_ydiv=8;   last_input=NULL;   current_level=NULL;   refresh=1;    the_game=this;    top_menu=joy_win=NULL;   old_view=first_view=NULL;   nplayers=1;   help_text_frames=0;    strcpy(help_text,"");   for (i=1;i<argc;i++)     if (!strcmp(argv[i],"-no_delay"))     {       no_delay=1;       dprintf("Frame delay off (-nodelay)\n");     }     image_init();    zoom=15;    no_delay=0;   if (get_option("-use_joy"))    {     has_joystick=joy_init(argc,argv);     dprintf("Joystick : ");     if (has_joystick) dprintf("detected\n");     else dprintf("not detected\n");   }   else has_joystick=0;   //    fast_load_start_recording("fastload.dat");   load_data(argc,argv);    //    fast_load_stop_recording();   get_key_bindings();   reset_keymap();                   // we think all the keys are up right now   finished=0;   calc_light_table(pal);   if (current_level==NULL && net_start())  // if we joined a net game get level from server   {     if (!request_server_entry())     {       exit(0);     }     net_reload();     //    load_level(NET_STARTFILE);   }   if (get_option("-2") && (xres<639 || yres<399))   {     close_graphics();     dprintf("Resolution must be > 640x400 to use -2 option\n");        exit(0);   }   pal->load();     recalc_local_view_space();   // now that we know what size the screen is...   dark_color=get_color(cash.img(window_colors)->pixel(2,0));   bright_color=get_color(cash.img(window_colors)->pixel(0,0));   med_color=get_color(cash.img(window_colors)->pixel(1,0));   morph_dark_color=get_color(cash.img(window_colors)->pixel(2,1));   morph_bright_color=get_color(cash.img(window_colors)->pixel(0,1));   morph_med_color=get_color(cash.img(window_colors)->pixel(1,1));   morph_sel_frame_color=pal->find_closest(255,255,0);   light_connection_color=morph_sel_frame_color;   if (NILP(symbol_value(l_default_font)))   {     dprintf("No font defined, set symbol default-font to an image name\n");     exit(0);   }   int font_pict=big_font_pict;     if (console_font_pict==-1) console_font_pict=font_pict;   game_font=new JCFont(cash.img(big_font_pict));   window_font=new JCFont(cash.img(small_font_pict));   console_font=new JCFont(cash.img(console_font_pict));   eh=new window_manager(screen,pal,bright_color,       med_color,       dark_color,       game_font);    idle_man=new idle_manager;   eh->set_frame_font(window_font);   chat=new chat_console(eh,console_font,50,6);   if (!eh->has_mouse())   {     close_graphics();     image_uninit();     dprintf("No mouse driver detected, please rectify.\n");     exit(0);   }   gamma_correct(pal);   if (main_net_cfg==NULL || (main_net_cfg->state!=net_configuration::SERVER &&       main_net_cfg->state!=net_configuration::CLIENT))   {     if (!start_edit && !net_start())       do_title();   } else if (main_net_cfg && main_net_cfg->state==net_configuration::SERVER)   {     the_game->load_level(level_file);     start_running=1;   }       dev|= DRAW_FG_LAYER | DRAW_BG_LAYER | DRAW_PEOPLE_LAYER | DRAW_HELP_LAYER | DRAW_LIGHTS | DRAW_LINKS;   if (dev & EDIT_MODE)     set_frame_size(0);   //  do_intro();   state=START_STATE;         // first set the state to one that has windows   if (start_running)     set_state(RUN_STATE);   else   {     screen->clear();      if (title_screen>=0)     {       image *tit=cash.img(title_screen);       tit->put_image(screen,screen->width()/2-tit->width()/2,           screen->height()/2-tit->height()/2);     }        set_state(MENU_STATE);   // then go to menu state so windows will turn off   } } time_marker *led_last_time=NULL,*fps_mark_start=NULL; double avg_fps=15.0,possible_fps=15.0; void game::toggle_delay() {   no_delay=!no_delay;   if (no_delay)     show_help(symbol_str("delay_off"));   else show_help(symbol_str("delay_on"));   avg_fps=possible_fps=15.0; } void game::show_time() {   if (first_view && fps_on)   {     char str[10];     sprintf(str,"%d",(long)(avg_fps*10.0));     console_font->put_string(screen,first_view->cx1,first_view->cy1,str);     sprintf(str,"%d",total_active);     console_font->put_string(screen,first_view->cx1,first_view->cy1+10,str);   } #ifdef MAC_PROFILE   for (int i=0; i<KJCOUNTERS; i++)     console_font->put_string(screen,10,8*i+8,kjfie[i]); // kill me #endif } void game::update_screen() {   if (state==HELP_STATE)     draw_help();   else if (current_level)   {        if (!(dev & EDIT_MODE) || refresh)        {          view *f=first_view;       current_level->clear_active_list();       for (;f;f=f->next)       {         if (f->focus)                    {           int w,h;                                   w=(f->cx2-f->cx1+1);           h=(f->cy2-f->cy1+1);                                   total_active+=current_level->add_drawables(f->xoff()-w/4,f->yoff()-h/4,               f->xoff()+w+w/4,f->yoff()+h+h/4);                                 }       }       for (f=first_view;f;f=f->next)       {         if (f->drawable())         {           StartTime(5); // kill me           if (interpolate_draw)           {             draw_map(f,1);             eh->flush_screen();           }           draw_map(f,0);           DiffTime("    Drawmap",5); // kill me         }       }     }      if (state==PAUSE_STATE)     {       for (view *f=first_view;f;f=f->next)         cash.img(pause_image)->put_image(screen,(f->cx1+f->cx2)/2-cash.img(pause_image)->width()/2,             f->cy1+5,1);     }         show_time();   }   if (state==RUN_STATE && cash.prof_is_on())     cash.prof_poll_end();   StartTime(16); //kill me   eh->flush_screen();   DiffTime("    Flush",16); //kill me } void game::do_intro() { } #if 1 int game::calc_speed() {   int ret=0;   if (fps_mark_start)   {     time_marker t;     // find average fps for last 10 frames     double td=t.diff_time(fps_mark_start);     if (td<0.001)     // something is rotten in the state of demark       td=0.001;     avg_fps=avg_fps*9.0/10.0+1.0/(td*10.0);      possible_fps=possible_fps*9.0/10.0+1.0/(td*10.0);      if (avg_fps>14)     {       if (massive_frame_panic>20)         massive_frame_panic=20;       else if (massive_frame_panic)         massive_frame_panic--;     }     if (avg_fps>15 && ((dev&EDIT_MODE)==0 || need_delay))     {       frame_panic=0;       long stime=(long)((1/15.0-1.0/possible_fps)*1000.0);       if (stime>0 && !no_delay)       {         milli_wait(stime);         avg_fps-=1.0/(td*10.0);        // subtract out old estimate                                 time_marker t;                                         // find average fps for last 10 frames         double td=t.diff_time(fps_mark_start);         if (td<0.00001)     // something is rotten in the state of demark           td=0.00001;                                 avg_fps+=1.0/(td*10.0);       // add in new estimate       }     } else if (avg_fps<14)     {       if (avg_fps<10)         massive_frame_panic++;       frame_panic++;       ret=1;     }         delete fps_mark_start;      }   fps_mark_start=new time_marker;   return ret; } #else int game::calc_speed() {   static UnsignedWide last_t = {0,0};   UnsignedWide t;           if (dev & EDIT_MODE)     return 0;           do   {     Microseconds(&t);   } while( t.lo - last_t.lo < 60000);           last_t = t;           return 0; } #endif extern int start_edit; void single_render(); void double_render(); void game::get_input() {   event ev;    idle_ticks++;   while (event_waiting(eh))   {     get_event(ev,eh);     if (ev.type==EV_MOUSE_MOVE) last_input=ev.window;     // don't process repeated keys in the main window, it will slow down the game handle such     // useless events. However in other windows it might be useful, such as in input windows     // where you want to repeatedly scroll down..     if (ev.type!=EV_KEY || !key_down(ev.key) || ev.window || (dev&EDIT_MODE))     {       if (ev.type==EV_KEY)            {         set_key_down(ev.key,1);         if (playing_state(state))         {                  if (ev.key<256)           {             if (chat && chat->chat_event(ev))               base->packet.write_byte(SCMD_CHAT_KEYPRESS);             else               base->packet.write_byte(SCMD_KEYPRESS);           }           else             base->packet.write_byte(SCMD_EXT_KEYPRESS);           base->packet.write_byte(client_number());           if (ev.key>256)             base->packet.write_byte(ev.key-256);           else             base->packet.write_byte(ev.key);              }       }       else if (ev.type==EV_KEYRELEASE)       {         set_key_down(ev.key,0);         if (playing_state(state))         {                  if (ev.key<256)             base->packet.write_byte(SCMD_KEYRELEASE);           else             base->packet.write_byte(SCMD_EXT_KEYRELEASE);           base->packet.write_byte(client_number());           if (ev.key>255)             base->packet.write_byte(ev.key-256);           else             base->packet.write_byte(ev.key);              }              }             if ((dev&EDIT_MODE) || start_edit || ev.type==EV_MESSAGE)         dev_cont->handle_event(ev);       view *v=first_view;       for (;v;v=v->next)         if (v->local_player() && v->handle_event(ev))           ev.type=EV_SPURIOUS;       // if the event was used by the view, gobble it up             help_handle_event(ev);          mousex=last_demo_mx;       mousey=last_demo_my;       if (ev.type==EV_MESSAGE)       {         switch (ev.message.id)         {           case CALB_JOY :           {             if (!joy_win)             {               int wx=WINDOW_FRAME_LEFT,wy=WINDOW_FRAME_TOP;                                                     joy_win=eh->new_window(80,50,-1,-1,                   new button(wx+70,wy+9,JOY_OK,"OK",                       new info_field(wx,wy+30,DEV_NULL,                           " Center joystick and\n"                           "press the fire button",NULL)),                                           "Joystick");               set_state(JOY_CALB_STATE);             }           }           case TOP_MENU :           { menu_select(ev); } break;           case DEV_QUIT :           { finished=1; } break;                                 }       }            else if (ev.type==EV_CLOSE_WINDOW && ev.window==top_menu)       {         eh->close_window(top_menu);         top_menu=NULL;       }           switch (state)       {         case JOY_CALB_STATE :         { joy_calb(ev); } break;         case INTRO_START_STATE :         { do_intro();         if (dev & EDIT_MODE)           set_state(RUN_STATE);         else           set_state(MENU_STATE);         } break;              case PAUSE_STATE : if (ev.type==EV_KEY && (ev.key==JK_SPACE || ev.key==JK_ENTER))         { set_state(RUN_STATE); } break;         case RUN_STATE :         {           if (ev.window==NULL)           {                                               switch (ev.type)             {               case EV_KEY :               { switch (ev.key)               {                 case 'm' :                 {                   if (dev&MAP_MODE) dev-=MAP_MODE;                   else if ((player_list && player_list->next) || dev&EDIT_MODE) dev|=MAP_MODE;                                                   if (!(dev&MAP_MODE))                   {                     if (dev_cont->tbw) dev_cont->toggle_toolbar();                     edit_mode=ID_DMODE_DRAW;                   }                   need_refresh();                        } break;                 case 'v' :                 { eh->push_event(new event(DO_VOLUME,NULL)); } break;                 case 'p' :                 { if (!(dev&EDIT_MODE) && (!main_net_cfg ||                     (main_net_cfg->state!=net_configuration::SERVER &&                         main_net_cfg->state!=net_configuration::CLIENT)))                    set_state(PAUSE_STATE);                 } break;                 case 'S' :                   if (start_edit)                   { eh->push_event(new event(ID_LEVEL_SAVE,NULL)); } break;                 case JK_TAB :                 { if (start_edit) toggle_edit_mode(); need_refresh(); } break;                 case 'c' :                                { if (chatting_enabled && (!(dev&EDIT_MODE) && chat))                   chat->toggle();                 } break;                 case '9' :                 { dev=dev^PERFORMANCE_TEST_MODE; need_refresh(); } break;                                                 /*                   case '=' :                   case '+' :                   { if (!dev_cont->need_plus_minus())                   {                   if (eh->key_pressed(JK_CTRL_L))                   grow_views(20);                   else                   grow_views(5);                   draw(state==SCENE_STATE);                   }                   } break;                   case JK_F10 : make_screen_size(311,160); break;                   case '_' :                   case '-' :                   {                   if (!dev_cont->need_plus_minus())                                    {                   if (eh->key_pressed(JK_CTRL_L))                   grow_views(-20);                   else                   grow_views(-5);                   draw(state==SCENE_STATE);                   }                   } break; */                                               }               } break;                          case EV_RESIZE :               {                 view *v;                 for (v=first_view;v;v=v->next)  // see if any views need to change size                 {                   if (v->local_player())                   {                     int w=(xres-10)/(small_render ? 2 : 1);                     int h=(yres-10)/(small_render ? 2 : 1);                                                     /*                    v->suggest.send_view=1;                     v->suggest.cx1=5;                     v->suggest.cx2=5+w;                     v->suggest.cy1=5;                     v->suggest.cy2=5+h;                     v->suggest.pan_x=v->pan_x;                     v->suggest.pan_y=v->pan_y;                     v->suggest.shift_down=v->shift_down;                     v->suggest.shift_right=v->shift_right; */                   }                                }                 draw();               } break;               case EV_REDRAW :                 screen->add_dirty(ev.redraw.x1,ev.redraw.y1,                     ev.redraw.x2,ev.redraw.y2);                 break;               case EV_MESSAGE :                      switch (ev.message.id)                 {                   case RAISE_SFX :                   case LOWER_SFX :                   case RAISE_MUSIC :                   case LOWER_MUSIC :                     if (ev.message.id==RAISE_SFX && sfx_volume!=127) sfx_volume=min(127,sfx_volume+16);                     if (ev.message.id==LOWER_SFX && sfx_volume!=0) sfx_volume=max(sfx_volume-16,0);                     if (ev.message.id==RAISE_MUSIC && music_volume!=126)                     {                                      music_volume=min(music_volume+16,127);                       if (current_song && (sound_avail&MUSIC_INITIALIZED))                         current_song->set_volume(music_volume);                     }                                               if (ev.message.id==LOWER_MUSIC && music_volume!=0)                     {                                      music_volume=max(music_volume-16,0);                       if (current_song && (sound_avail&MUSIC_INITIALIZED))                         current_song->set_volume(music_volume);                     }                                                              ((button *)ev.message.data)->push();                                  break;                 }                                               }           }         } break;       }     }   } } void net_send(int force=0) {   if ( (!(dev&EDIT_MODE)) || force)   {     if (demo_man.state==demo_manager::PLAYING)     {       base->input_state=INPUT_PROCESSING;     } else     {             if (!player_list->focus)       {         dprintf("Players have not been created\ncall create_players");         exit(0);       }       view *p=player_list;       for (;p;p=p->next)         if (p->local_player())           p->get_input();       base->packet.write_byte(SCMD_SYNC);       base->packet.write_short(make_sync());       if (base->join_list)         base->packet.write_byte(SCMD_RELOAD);       //      dprintf("save tick %d, pk size=%d, rand_on=%d, sync=%d\n",current_level->tick_counter(),       //             base->packet.packet_size(),rand_on,make_sync());       send_local_request();     }   } } void net_receive() {   if (!(dev&EDIT_MODE) && current_level)   {     uchar buf[PACKET_MAX_SIZE+1];     int size;     if (demo_man.state==demo_manager::PLAYING)     {       if (!demo_man.get_packet(buf,size))         size=0;       base->packet.packet_reset();       base->mem_lock=0;     } else     {       size=get_inputs_from_server(buf);       if (demo_man.state==demo_manager::RECORDING)         demo_man.save_packet(buf,size);     }     process_packet_commands(buf,size);   } } void game::step() {   clear_tmp();   if (current_level)   {     current_level->unactivate_all();     total_active=0;     for (view *f=first_view;f;f=f->next)     {       if (f->focus)                  {         f->update_scroll();         int w,h;                                 w=(f->cx2-f->cx1+1);         h=(f->cy2-f->cy1+1);         total_active+=current_level->add_actives(f->xoff()-w/4,f->yoff()-h/4,             f->xoff()+w+w/4,f->yoff()+h+h/4);       }     }   }   if (state==RUN_STATE)   {        if ((dev&EDIT_MODE) || (main_net_cfg && (main_net_cfg->state==net_configuration::CLIENT ||         main_net_cfg->state==net_configuration::SERVER)))       idle_ticks=0;     if (demo_man.current_state()==demo_manager::NORMAL && idle_ticks>420 && demo_start)     {       idle_ticks=0;       set_state(MENU_STATE);        }     else if (!(dev & EDIT_MODE))               // if edit mode, then don't step anything     { #ifdef __MAC__       if (key_down(JK_ESC) || (key_down('q') && key_down(JK_COMMAND))) #else         if (key_down(JK_ESC)) #endif         {           set_state(MENU_STATE);           set_key_down(JK_ESC,0);           return;         }       ambient_ramp=0;       view *v;       for (v=first_view;v;v=v->next)         v->update_scroll();       cash.prof_poll_start();       current_level->tick();       sbar.step();     } else          dev_scroll();    } else if (state==JOY_CALB_STATE)   {     event ev;     joy_calb(ev);   } else if (state==MENU_STATE)      main_menu();        if (key_down('x') && (key_down(JK_ALT_L) || key_down(JK_ALT_R)) && confirm_quit()) finished=1; } extern void *current_demo; game::~game() {    delete idle_man;   idle_man=0;   current_demo=NULL;   if (first_view==player_list) first_view=NULL;   while (player_list)   {     view *p=player_list;     game_object *o=p->focus;     player_list=player_list->next;     delete p;     o->set_controller(NULL);     if (current_level && o)       current_level->delete_object(o);     else delete o;   }   if (current_level) { delete current_level; current_level=NULL; }   if (first_view!=player_list)   {     while (player_list)     {       view *p=player_list;       player_list=player_list->next;       delete p;     }   }   while (first_view)   {     view *p=first_view;     first_view=first_view->next;     delete p;   }   player_list=NULL;    if (old_view)   {     first_view=old_view;     while (first_view)     {       view *p=first_view;       first_view=first_view->next;       delete p;     }   }   old_view=NULL;   int i=0;   for (;i<total_objects;i++)   {     jfree(object_names[i]);     delete figures[i];   }   if (fps_mark_start) delete fps_mark_start; fps_mark_start=NULL;   delete pal;   jfree(object_names);   jfree(figures);   jfree(backtiles);   jfree(foretiles);   if (total_weapons)     jfree(weapon_types);   config_cleanup();   delete color_table;   delete eh;   delete game_font;   delete window_font;   delete big_font;   delete console_font;   if (total_help_screens)     jfree(help_screens);       //  image_uninit(); } void game::draw(int scene_mode) {   screen->add_dirty(0,0,xres,yres);   image *bt=cash.img(border_tile);   int tw=bt->width(),th=bt->height(),dx,dy=0;   int xt=screen->width()/tw+1,yt=screen->height()/th+1,x,y;   screen->clear();   //  for (y=0;y<yt;y++,dy+=th)   //    for (x=0,dx=0;x<xt;x++,dx+=tw)   //      bt->put_image(screen,dx,dy);   int lr=eh->bright_color(),     mr=eh->medium_color();   if (scene_mode)   {     char *helpstr="ARROW KEYS CHANGE TEXT SPEED";     eh->font()->put_string(screen,screen->width()/2-(eh->font()->width()*strlen(helpstr))/2+1,         screen->height()-eh->font()->height()-5+1,helpstr,eh->dark_color());        eh->font()->put_string(screen,screen->width()/2-(eh->font()->width()*strlen(helpstr))/2,         screen->height()-eh->font()->height()-5,helpstr,eh->bright_color());      }   /*  else       {       char *helpstr="PRESS h FOR HELP";       eh->font()->put_string(screen,screen->width()-eh->font()->width()*strlen(helpstr)-5,       screen->height()-eh->font()->height()-5,helpstr);       }*/   /*  int dc=cash.img(window_colors)->pixel(0,2);       int mc=cash.img(window_colors)->pixel(1,2);       int bc=cash.img(window_colors)->pixel(2,2);       screen->line(0,0,screen->width()-1,0,dc);       screen->line(0,0,0,screen->height()-1,dc);       screen->line(0,screen->height()-1,screen->width()-1,screen->height()-1,bc);       screen->line(screen->width()-1,0,screen->width()-1,screen->height()-1,bc);*/   for (view *f=first_view;f;f=f->next)     draw_map(f,0);   sbar.redraw(screen); } int external_print=0; void start_sound(int argc, char **argv) {   sfx_volume=music_volume=127;   for (int i=1;i<argc;i++)     if (!strcmp(argv[i],"-sfx_volume"))     {       i++;       if (atoi(argv[i])>=0 && atoi(argv[i])<127)         sfx_volume=atoi(argv[i]);       else dprintf("Bad sound effects volume level, use 0..127\n");          }     else if (!strcmp(argv[i],"-music_volume"))     {       i++;       if (atoi(argv[i])>=0 && atoi(argv[i])<127)         music_volume=atoi(argv[i]);       else dprintf("Bad music volume level, use 0..127\n");          }   sound_avail=sound_init(argc,argv); } void game_printer(char *st) { #if 1         static FILE *f = 0;         if (!f)                 f = fopen("abuse.out","wt");         fprintf(f,st);         fflush(f); #endif   if (dev_console && !external_print)   {     dev_console->put_string(st);   } #ifndef __MAC__   else fprintf(stderr,"%s",st); #endif } void game_getter(char *st, int max) {   if (!max) return ;   max--;   *st=0;   if (dev_console && !external_print)   {        dev_console->show();     int t=0;     event ev;     do     {       get_event(ev,eh);       if (ev.type==EV_KEY)       {         if (ev.key==JK_BACKSPACE)         {           if (t)           {             dev_console->printf("%c",ev.key);             t--;             st--;             *st=0;             max++;           }         } else if (ev.key>=' ' && ev.key<='~')         {           dev_console->printf("%c",ev.key);           *st=ev.key;           t++;           max--;           st++;           *st=0;         }                                }       eh->flush_screen();     } while (ev.type!=EV_KEY || ev.key!=JK_ENTER);        dprintf("\n");   }   else   {     if (fgets(st,max,stdin))     {       if (*st)         st[strlen(st)-1]=0;     }   } } void show_startup() {   show_verinfo(start_argc,start_argv); } char *get_line(int open_braces) {   char *line=(char *)jmalloc(1000,"lstring");   fgets(line,1000,stdin);   char prev=' ';   for (char *s=line;*s && (prev!=' ' || *s!=';');s++)   {     prev=*s;     if (*s=='(') open_braces++;     else if (*s==')') open_braces--;   }   if (open_braces<0)        dprintf("\nToo many )'s\n");   else if (open_braces>0)   {     char *s2=get_line(open_braces);     line=(char *)jrealloc(line,strlen(line)+strlen(s2)+1,"lstring");     strcat(line,s2);     jfree(s2);      }    return line; } void check_for_upgrade(int argc, char **argv) {   for (int i=1;i<argc;i++)     if (!strcmp(argv[i],"-upgrade"))     {       lisp_init(0xf000,0x30000);       char *prog="(load \"lisp/upgrade.lsp\")",*cs;       cs=prog;       if (!eval(compile(cs)))         dprintf("file does not exists : lisp/upgrade.lsp, cannot upgrade\n");       exit(0);     }        } void check_for_lisp(int argc, char **argv) {   for (int i=1;i<argc;i++)   {     if (!strcmp(argv[i],"-lisp"))     {       lisp_init(0xf000,0x30000); #ifdef __WATCOMC__       char *eof_char="CTRL-Z"; #else       char *eof_char="CTRL-D"; #endif       dprintf(               " CLIVE (C) 1995 Jonathan Clark, all rights reserved\n"               "   (C LISP interpreter and various extentions)\n"               "Type (%s) to exit\n",eof_char);       while (!feof(stdin))       {         dprintf("Lisp> ");         char *l=get_line(0);         char *s=l;         while (*s)         {           void *prog=compile(s);           l_user_stack.push(prog);           while (*s==' ' || *s=='\t' || *s=='\r' || *s=='\n') s++;           lprint(eval(prog));           l_user_stack.pop(1);         }         jfree(l);       }            dprintf("End of input : bye\n");       exit(0);     }   } } void music_check() {   if (sound_avail&MUSIC_INITIALIZED)   {     if (current_song && !current_song->playing())     {       current_song->play();       dprintf("song finished\n");     }     if (!current_song)     {       current_song=new song("music/intro.hmi");       current_song->play(music_volume);       /*      if (DEFINEDP(symbol_function(l_next_song)))  // if user function installed, call it to load up next song               {               int sp=current_space;               current_space=PERM_SPACE;               eval_function((lisp_symbol *)l_next_song,NULL);               current_space=sp;               } */     }   } } void setup(int argc, char **argv); void share_end(); void show_end(); void show_sell(int abortable); extern pmenu *dev_menu; extern int jmalloc_max_size; extern int jmalloc_min_low_size; extern int (*verify_file_fun)(char *,char *); int registered_ok(char *filename, char *mode) {   if (registered) return 1;   char name[256],*c;   c=name;   while (*filename) { *c=*(filename++); *c=toupper(*c); c++; } *c=0;   if (strstr(name,"REGISTER"))     return 0;   else return 1; } void game_net_init(int argc, char **argv) {   int nonet=!net_init(argc, argv);   if (nonet)     dprintf("No network driver, or network driver returned failure\n");   else   {     set_file_opener(open_nfs_file);     if (main_net_cfg && main_net_cfg->state==net_configuration::CLIENT)     {       if (set_file_server(net_server))         start_running=1;       else       {         dprintf("Unable to attach to server, quiting\n");         exit(0);       }     } else     {       int i;       for (i=1;i<argc-1;i++)         if (!strcmp(argv[i],"-fs"))           if (!set_file_server(argv[i+1]))             dprintf("could not set defualt file server to %s\n",argv[i+1]);     }   }      } #ifdef __MAC__ //extern int PixMult; #if 1 char cmdline[256]; #elif 1 char cmdline[] = ""; #elif 1 char cmdline[] = "abuse -server -a deathmat"; #else char cmdline[] = "abuse -net 193.246.40.9"; #endif char delims[] = " "; char *tmp_argv[255]; void GetArgs(int &argc, char **(&argv)) {   char *s;   dprintf(      "Usage:\n"       "  abuse [-options]\n\n"       "  Options:\n"       "    -server -a deathmat        become a server for deathmatch game\n"       "    -net <dotted ip address>   connect to a server\n\n"       "Options for mac:\n"       "  Hold down <control> for single pixel mode\n"       "  Hold down <option> for edit mode\n"       "  Hold down <left shift> for double size mode\n\n"       "If started with no command line options, networking will attempt\n"       "  to search the local network for servers\n\n"                 );   dprintf("Enter command line:\n");   gets(cmdline);           argc = 0;   argv = tmp_argv;   s = strtok(cmdline, delims);   while (s)   {     argv[argc] = s;     argc++;     s = strtok(0, delims);   }   argv[argc] = 0; } extern void InitMacScreen(); extern void QuitMacScreen(); #endif int main(int argc, char **argv) { #ifdef __MAC__   InitMacScreen(); #if 1   //    if (!MacMenu())   //            return 0; #else   unsigned char km[16];   GetArgs(argc,argv);           dprintf("Mac Options: ");   GetKeys((unsigned long*)&km);   if ((km[ 0x3a >>3] >> (0x3a & 7)) &1 != 0)   {     dev|=EDIT_MODE;        start_edit=1;     start_running=1;     disable_autolight=1;     dprintf("Edit Mode...");   }   if ((km[ 0x3b >>3] >> (0x3b & 7)) &1 != 0)   {     PixMult = 1;     dprintf("Single Pixel...");   }   else   {     PixMult = 2;     dprintf("Double Pixel...");   }   if ((km[ 0x38 >>3] >> (0x38 & 7)) &1 != 0)   {     xres *= 2;  yres *= 2;     dprintf("Double Size...");   }   dprintf("\n");           if (tcpip.installed())     dprintf( "Using %s\n", tcpip.name()); #endif #endif   start_argc=argc;   start_argv=argv;     { for (int i=0;i<argc;i++)   {     if (!strcmp(argv[i],"-cprint"))       external_print=1;     if (!strcmp(argv[i],"-min_low"))     {       i++;       jmalloc_min_low_size=atoi(argv[i]);     }   }   }   set_dprinter(game_printer);   set_dgetter(game_getter);   set_no_space_handler(handle_no_space);   setup(argc,argv);   show_startup();   //  jmalloc_max_size=0x150000;   jmalloc_init(0x150000);   //  jmalloc_init(100000);   start_sound(argc,argv); //#ifdef __MAC__   //stat_man=new mac_status_manager(); //#else   stat_man=new text_status_manager(); //#endif   if (!get_option("-no_timer"))   {     timer_init();   }   if (!get_option("-share"))   {     jFILE *fp=new jFILE("register/micron.vcd","rb");     if (!fp->open_failure())     {       spec_directory sd(fp);       if (sd.find("Copyright (C) 1995 Crack dot Com, All Rights reserved"))         registered=1;     }     delete fp;   }   verify_file_fun=registered_ok;   jrand_init();   jrand();  // so compiler doesn't complain   set_spec_main_file("abuse.spe");   if (getenv("ABUSE_PATH"))       // look to see if we are supposed to fetch the data elsewhere     set_filename_prefix(getenv("ABUSE_PATH"));      if (getenv("ABUSE_SAVE_PATH"))       // look to see if we are supposed to fetch the data elsewhere     set_save_filename_prefix(getenv("ABUSE_SAVE_PATH"));      check_for_lisp(argc,argv);   check_for_upgrade(argc,argv);   set_mode(VMODE_640x480,argc,argv);   if (stat_man)     delete stat_man;   stat_man=new net_status_manager("art/loading.spe",       413,428,608,451,       54,104);     do   {     if (main_net_cfg)     {       if (!main_net_cfg->notify_reset())       {         if (!get_option("-no_timer"))           timer_uninit();         sound_uninit();         exit(0);       }     }     game_net_init(argc,argv);     lisp_init(0x16000,0x94000);     //  lisp_init(0x100000,0x10000);     dev_init(argc,argv);     game *g=new game(argc,argv);     delete stat_man;     stat_man=new net_status_manager("art/status.spe",         295,203,304,366,         46,222);     dev_cont=new dev_controll();     dev_cont->load_stuff();     g->get_input();      // prime the net     int xx;     for (xx=1;xx<argc;xx++)       if (!strcmp(argv[xx],"-server"))       {         xx++;         if (!become_server(argv[xx]))         {                dprintf("unable to become a server\n");           exit(0);         }         xx=argc+1;       }     if (main_net_cfg)       wait_min_players();     net_send(1);     if (net_start())     {       g->step();                        // process all the objects in the       g->calc_speed();       g->update_screen();               // redraw the screen with any changes     }     while (!g->done())     {       StartTime(0);//kill me               StartTime(1);//kill me       //      music_check();       if (req_end)       {         delete current_level;         current_level=NULL;                                         if (!registered)           share_end();         else show_end();                                 the_game->set_state(MENU_STATE);         req_end=0;       }             if (demo_man.current_state()==demo_manager::NORMAL)       {         net_receive();       }       if (req_name[0])            // see if a request for a level load was made during the last tick       {         //                                      ProfilerDump("\pabuse.prof");  //prof            //                                      ProfilerTerm();         int show;         if (!current_level)           show=0;         else if (strcmp(req_name,current_level->name()) && memcmp(req_name,"save",4)!=0)           show=1;         else show=0;         if (show)           show_stats();         g->load_level(req_name);         switch_mode(VMODE_320x200);                         recalc_local_view_space();         if (show)           end_stats();         //                                      ProfilerInit(collectDetailed, bestTimeBase, 2000, 200); //prof         req_name[0]=0;         g->draw(g->state==SCENE_STATE);       }       //    if (demo_man.current_state()!=demo_manager::PLAYING)       g->get_input();             if (demo_man.current_state()==demo_manager::NORMAL)         net_send();       else         demo_man.do_inputs();       service_net_request();       DiffTime("  PreStuff",1); //kill me       StartTime(2);     //kill me                               g->step();                        // process all the objects in the       DiffTime("  Step",2);  // kill me       StartTime(3);  // kill me       server_check();       g->calc_speed();       DiffTime("  MidStuff",3);  // kill me       StartTime(4);  // kill me       if (!req_name[0])                // see if a request for a level load was made during the last tick         g->update_screen();               // redraw the screen with any changes       DiffTime("  Update",4);  // kill me       DiffTime("GameLoop",0);     }           switch_mode(VMODE_640x480);     net_uninit();     if (net_crcs)     {       net_crcs->clean_up();       delete net_crcs;       net_crcs=NULL;     }     delete chat;     if (!registered)       show_sell(0);     else milli_wait(500);     if (small_render) { delete small_render; small_render=NULL; }     if (current_song)     { current_song->stop();     delete current_song;     current_song=NULL;     }     cash.empty();     if (dev_console)     {       delete dev_console;       dev_console=NULL;     }     if (dev_menu)     {       delete dev_menu;       dev_menu=NULL;     }     delete g;     if (old_pal) delete old_pal; old_pal=NULL;     compiled_uninit();     delete_all_lights();     jfree(white_light_initial);     for (int i=0;i<TTINTS;i++) jfree(tints[i]);     dev_cleanup();     delete dev_cont; dev_cont=NULL;         if (!(main_net_cfg && main_net_cfg->restart_state()))     {       void *end_msg=make_find_symbol("end_msg");       if (DEFINEDP(symbol_value(end_msg)))         dprintf("%s\n",lstring_value(symbol_value(end_msg)));     }     lisp_uninit();     sd_cache.clear();     base->packet.packet_reset();     mem_report("end.mem");   } while (main_net_cfg && main_net_cfg->restart_state());    close_graphics();   if (main_net_cfg) { delete main_net_cfg; main_net_cfg=NULL; }   set_filename_prefix(NULL);  // dealloc this mem if there was any   set_save_filename_prefix(NULL);   if (!get_option("-no_timer"))     timer_uninit();   mem_report("end.mem");   jmalloc_uninit();   l_user_stack.clean_up();   l_ptr_stack.clean_up();   sound_uninit(); #ifdef __MAC__   QuitMacScreen(); #endif   exit(0);   return 0;  }
Note: See TracBrowser for help on using the repository browser.