| 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;
}
|
|---|
