// screen.cxx part of lincity // Copyright (c) I J Peters 1995,1996. Please read the file 'COPYRIGHT'. #include #include #ifdef LC_X11 #include #include #include #include "lcx11.h" #else #include #include #include #endif #include #include #ifdef SCO #include #endif #ifdef VMS #include #endif #include #include "lctypes.h" #include "lin-city.h" #include "screen.h" #ifdef CS_PROFILE void FPgl_write(int a,int b,char *s) { gl_write(a,b,s); } void FPgl_getbox(int a,int b,int c,int d,void *e) { gl_getbox(a,b,c,d,e); } void FPgl_putbox(int a,int b,int c,int d,void *e) { gl_putbox(a,b,c,d,e); } void FPgl_fillbox(int a,int b,int c,int d,int e) { gl_fillbox(a,b,c,d,e); } void FPgl_hline(int a,int b,int c,int d) { gl_hline(a,b,c,d); } void FPgl_line(int a,int b,int c,int d,int e) { gl_line(a,b,c,d,e); } void FPgl_setpixel(int a,int b,int c) { gl_setpixel(a,b,c); } #endif #ifdef THMO_SCREEN_STUFF /* combined all check_*_graphics() functions into one... -- (ThMO) */ void refresh_main_screen() { static const short power_table[ 16]= { CST_POWERL_H_D, CST_POWERL_V_D, CST_POWERL_H_D, CST_POWERL_RD_D, CST_POWERL_H_D, CST_POWERL_LD_D, CST_POWERL_H_D, CST_POWERL_LDR_D, CST_POWERL_V_D, CST_POWERL_V_D, CST_POWERL_RU_D, CST_POWERL_UDR_D, CST_POWERL_LU_D, CST_POWERL_LDU_D, CST_POWERL_LUR_D, CST_POWERL_LUDR_D }, track_table[ 16]= { CST_TRACK_LR, CST_TRACK_LR, CST_TRACK_UD, CST_TRACK_LU, CST_TRACK_LR, CST_TRACK_LR, CST_TRACK_UR, CST_TRACK_LUR, CST_TRACK_UD, CST_TRACK_LD, CST_TRACK_UD, CST_TRACK_LUD, CST_TRACK_DR, CST_TRACK_LDR, CST_TRACK_UDR, CST_TRACK_LUDR }, road_table[ 16]= { CST_ROAD_LR, CST_ROAD_LR, CST_ROAD_UD, CST_ROAD_LU, CST_ROAD_LR, CST_ROAD_LR, CST_ROAD_UR, CST_ROAD_LUR, CST_ROAD_UD, CST_ROAD_LD, CST_ROAD_UD, CST_ROAD_LUD, CST_ROAD_DR, CST_ROAD_LDR, CST_ROAD_UDR, CST_ROAD_LUDR }, rail_table[ 16]= { CST_RAIL_LR, CST_RAIL_LR, CST_RAIL_UD, CST_RAIL_LU, CST_RAIL_LR, CST_RAIL_LR, CST_RAIL_UR, CST_RAIL_LUR, CST_RAIL_UD, CST_RAIL_LD, CST_RAIL_UD, CST_RAIL_LUD, CST_RAIL_DR, CST_RAIL_LDR, CST_RAIL_UDR, CST_RAIL_LUDR }, water_table[ 16]= { CST_WATER, CST_WATER_D, CST_WATER_R, CST_WATER_RD, CST_WATER_L, CST_WATER_LD, CST_WATER_LR, CST_WATER_LRD, CST_WATER_U, CST_WATER_UD, CST_WATER_UR, CST_WATER_URD, CST_WATER_LU, CST_WATER_LUD, CST_WATER_LUR, CST_WATER_LURD }; if ( !( market_cb_flag || port_cb_flag)) { int x, y, mask, tflags, group, type; for ( x= main_screen_originx; x < main_screen_originx+ MAIN_WIN_W/ 16; x++) for ( y= main_screen_originy; y < main_screen_originy+ MAIN_WIN_W/ 16; y++) switch ( main_types[ mappointtype[ x][ y]].group) { case GROUP_POWER_LINE: mask= 0; #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( y > 0) #endif { /* up -- (ThMO) */ group= main_types[ mappointtype[ x][ y- 1]].group; /* see if dug under track, rail or road */ if ( y > 1 && ( group == GROUP_TRACK || group == GROUP_RAIL || group == GROUP_ROAD || group == GROUP_WATER)) group= main_types[ mappointtype[ x][ y- 2]].group; switch ( group) { #ifdef notdef case GROUP_WINDMILL: if ( mappoint[ x][ y].int_2 < MODERN_WINDMILL_TECH) break; #endif case GROUP_POWER_LINE: case GROUP_POWER_SOURCE: case GROUP_SUBSTATION: case GROUP_POWER_SOURCE_COAL: mask |= 8; break; } } #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( x > 0) #endif { /* left -- (ThMO) */ group= main_types[ mappointtype[ x- 1][ y]].group; if ( x > 1 && ( group == GROUP_TRACK || group == GROUP_RAIL || group == GROUP_ROAD || group == GROUP_WATER)) group= main_types[ mappointtype[ x- 2][ y]].group; switch ( group) { #ifdef notdef case GROUP_WINDMILL: if ( mappoint[ x][ y].int_2 < MODERN_WINDMILL_TECH) break; #endif case GROUP_POWER_LINE: case GROUP_POWER_SOURCE: case GROUP_SUBSTATION: case GROUP_POWER_SOURCE_COAL: mask |= 4; break; } } #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( x < WORLD_SIDE_LEN- 1) #endif { /* right -- (ThMO) */ group= main_types[ mappointtype[ x+ 1][ y]].group; if ( x < WORLD_SIDE_LEN- 2 && ( group == GROUP_TRACK || group == GROUP_RAIL || group == GROUP_ROAD || group == GROUP_WATER)) group= main_types[ mappointtype[ x+ 2][ y]].group; switch ( group) { case GROUP_WINDMILL: if ( mappoint[ x+ 1][ y].int_2 < MODERN_WINDMILL_TECH) break; case GROUP_POWER_LINE: case GROUP_POWER_SOURCE: case GROUP_SUBSTATION: case GROUP_POWER_SOURCE_COAL: mask |= 2; break; } } #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( y < WORLD_SIDE_LEN- 1) #endif { /* down -- (ThMO) */ group= main_types[ mappointtype[ x][ y+ 1]].group; if ( y < WORLD_SIDE_LEN- 2 && ( group == GROUP_TRACK || group == GROUP_RAIL || group == GROUP_ROAD || group == GROUP_WATER)) group= main_types[ mappointtype[ x][ y+ 2]].group; switch ( group) { case GROUP_WINDMILL: if ( mappoint[ x][ y+ 1].int_2 < MODERN_WINDMILL_TECH) break; case GROUP_POWER_LINE: case GROUP_POWER_SOURCE: case GROUP_SUBSTATION: case GROUP_POWER_SOURCE_COAL: ++mask; break; } } mappointtype[ x][ y]= power_table[ mask]; if ( mappoint[ x][ y].int_1 != 0) mappointtype[ x][ y] -= 11; break; case GROUP_TRACK: #if FLAG_LEFT != 1 || FLAG_UP != 2 || FLAG_RIGHT != 4 || FLAG_DOWN != 8 #error check_track_graphics(): you loose #error this algorithm depends on proper flag settings -- (ThMO) #endif mask= 0; #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( y > 0) #endif { if ( main_types[ mappointtype[ x][ y- 1]].group == GROUP_TRACK) mask |= FLAG_UP; } #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( x > 0) #endif { if ( main_types[ mappointtype[ x- 1][ y]].group == GROUP_TRACK) mask |= FLAG_LEFT; } tflags= mask; #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( x < WORLD_SIDE_LEN- 1) #endif { switch ( main_types[ mappointtype[ x+ 1][ y]].group) { case GROUP_TRACK: tflags |= FLAG_RIGHT; case GROUP_COMMUNE: case GROUP_COALMINE: case GROUP_OREMINE: case GROUP_INDUSTRY_L: case GROUP_INDUSTRY_H: case GROUP_RECYCLE: case GROUP_TIP: case GROUP_PORT: mask |= FLAG_RIGHT; break; default: #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( y > 0) #endif if ( main_types[ mappointtype[ x+ 1][ y- 1]].group == GROUP_POWER_SOURCE_COAL) mask |= FLAG_RIGHT; break; } } #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( y < WORLD_SIDE_LEN- 1) #endif { switch ( main_types[ mappointtype[ x][ y+ 1]].group) { case GROUP_TRACK: tflags |= FLAG_DOWN; case GROUP_COMMUNE: case GROUP_COALMINE: case GROUP_OREMINE: case GROUP_INDUSTRY_L: case GROUP_INDUSTRY_H: case GROUP_RECYCLE: case GROUP_TIP: case GROUP_PORT: mask |= FLAG_DOWN; break; default: #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( x > 0) #endif if ( main_types[ mappointtype[ x- 1][ y+ 1]].group == GROUP_POWER_SOURCE_COAL) mask |= FLAG_DOWN; break; } } mappoint[ x][ y].flags &= ~( FLAG_UP | FLAG_DOWN | FLAG_LEFT | FLAG_RIGHT); mappoint[ x][ y].flags |= tflags; mappointtype[ x][ y]= track_table[ mask]; break; case GROUP_ROAD: #if FLAG_LEFT != 1 || FLAG_UP != 2 || FLAG_RIGHT != 4 || FLAG_DOWN != 8 #error check_road_graphics(): you loose #error this algorithm depends on proper flag settings -- (ThMO) #endif mask= 0; #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( y > 0) #endif { if ( main_types[ mappointtype[ x][ y- 1]].group == GROUP_ROAD) mask |= FLAG_UP; } #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( x > 0) #endif { if ( main_types[ mappointtype[ x- 1][ y]].group == GROUP_ROAD) mask |= FLAG_LEFT; } tflags= mask; #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( x < WORLD_SIDE_LEN- 1) #endif { switch ( main_types[ mappointtype[ x+ 1][ y]].group) { case GROUP_ROAD: tflags |= FLAG_RIGHT; case GROUP_COMMUNE: case GROUP_COALMINE: case GROUP_OREMINE: case GROUP_INDUSTRY_L: case GROUP_INDUSTRY_H: case GROUP_RECYCLE: case GROUP_TIP: case GROUP_PORT: mask |= FLAG_RIGHT; break; default: #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( y > 0) #endif if ( main_types[ mappointtype[ x+ 1][ y- 1]].group == GROUP_POWER_SOURCE_COAL) mask |= FLAG_RIGHT; break; } } #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( y < WORLD_SIDE_LEN- 1) #endif { switch ( main_types[ mappointtype[ x][ y+ 1]].group) { case GROUP_ROAD: tflags |= FLAG_DOWN; case GROUP_COMMUNE: case GROUP_COALMINE: case GROUP_OREMINE: case GROUP_INDUSTRY_L: case GROUP_INDUSTRY_H: case GROUP_RECYCLE: case GROUP_TIP: case GROUP_PORT: mask |= FLAG_DOWN; break; default: #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( x > 0) #endif if ( main_types[ mappointtype[ x- 1][ y+ 1]].group == GROUP_POWER_SOURCE_COAL) mask |= FLAG_DOWN; break; } } mappoint[ x][ y].flags &= ~( FLAG_UP | FLAG_DOWN | FLAG_LEFT | FLAG_RIGHT); mappoint[ x][ y].flags |= tflags; mappointtype[ x][ y]= road_table[ mask]; break; case GROUP_RAIL: #if FLAG_LEFT != 1 || FLAG_UP != 2 || FLAG_RIGHT != 4 || FLAG_DOWN != 8 #error check_rail_graphics(): you loose #error this algorithm depends on proper flag settings -- (ThMO) #endif mask= 0; #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( y > 0) #endif { if ( main_types[ mappointtype[ x][ y- 1]].group == GROUP_RAIL) mask |= FLAG_UP; } #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( x > 0) #endif { if ( main_types[ mappointtype[ x- 1][ y]].group == GROUP_RAIL) mask |= FLAG_LEFT; } tflags= mask; #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( x < WORLD_SIDE_LEN- 1) #endif { switch ( main_types[ mappointtype[ x+ 1][ y]].group) { case GROUP_RAIL: tflags |= FLAG_RIGHT; case GROUP_COMMUNE: case GROUP_COALMINE: case GROUP_OREMINE: case GROUP_INDUSTRY_L: case GROUP_INDUSTRY_H: case GROUP_RECYCLE: case GROUP_TIP: case GROUP_PORT: mask |= FLAG_RIGHT; break; default: #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( y > 0) #endif if ( main_types[ mappointtype[ x+ 1][ y- 1]].group == GROUP_POWER_SOURCE_COAL) mask |= FLAG_RIGHT; break; } } #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( y < WORLD_SIDE_LEN- 1) #endif { switch ( main_types[ mappointtype[ x][ y+ 1]].group) { case GROUP_RAIL: tflags |= FLAG_DOWN; case GROUP_COMMUNE: case GROUP_COALMINE: case GROUP_OREMINE: case GROUP_INDUSTRY_L: case GROUP_INDUSTRY_H: case GROUP_RECYCLE: case GROUP_TIP: case GROUP_PORT: mask |= FLAG_DOWN; break; default: #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( x > 0) #endif if ( main_types[ mappointtype[ x- 1][ y+ 1]].group == GROUP_POWER_SOURCE_COAL) mask |= FLAG_DOWN; break; } } mappoint[ x][ y].flags &= ~( FLAG_UP | FLAG_DOWN | FLAG_LEFT | FLAG_RIGHT); mappoint[ x][ y].flags |= tflags; mappointtype[ x][ y]= rail_table[ mask]; break; case GROUP_WATER: mask= 0; #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( y > 0) #endif { /* up -- (ThMO) */ if ( main_types[ mappointtype[ x][ y- 1]].group == GROUP_WATER) mask |= 8; } #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( x > 0) #endif { /* left -- (ThMO) */ type= mappointtype[ x- 1][ y]; if ( ( type == CST_USED && main_types[ mappointtype[ mappoint[ x- 1][ y] .int_1] [ mappoint[ x- 1][ y] .int_2] ].group == GROUP_EX_PORT) || main_types[ type].group == GROUP_WATER) mask |= 4; } #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( x < WORLD_SIDE_LEN- 1) #endif { /* right -- (ThMO) */ if ( main_types[ mappointtype[ x+ 1][ y]].group == GROUP_WATER) mask |= 2; } #ifdef THOMMY_MAY_BE_WRONG /* just in case -- (ThMO) */ if ( y < WORLD_SIDE_LEN- 1) #endif { /* down -- (ThMO) */ if ( main_types[ mappointtype[ x][ y+ 1]].group == GROUP_WATER) ++mask; } mappointtype[ x][ y]= water_table[ mask]; break; } screen_refresh_flag= 1; update_main_screen(); update_mini_screen(); } } /*static INLINE*/ void /* worth inlining -- (ThMO) */ clip_main_window() { Fgl_enableclipping(); Fgl_setclippingwindow( MAIN_WIN_X, MAIN_WIN_Y, MAIN_WIN_X+ MAIN_WIN_W- 1, MAIN_WIN_Y+ MAIN_WIN_H- 1); } /*static INLINE*/ void /* worth inlining -- (ThMO) */ unclip_main_window() { Fgl_disableclipping(); } #else /* !defined( THMO_SCREEN_STUFF) */ void refresh_main_screen(void) { if (market_cb_flag || port_cb_flag) return; check_track_graphics(); check_rail_graphics(); check_road_graphics(); check_water_graphics(); check_power_line_graphics(); screen_refresh_flag=1; update_main_screen(); update_mini_screen(); } #endif void update_main_screen(void) { int x,y,t1,t2,xm,ym; #ifdef USE_PIXMAPS int sx,sy,dx,dy,x1,y1; #endif // main_screen_origin[x|y] contain the mappoint of the top left of win #ifdef DEBUG_MAIN_SCREEN printf("Updating main screen\n"); #endif if (help_flag || load_flag || save_flag) return; xm=main_screen_originx; if (xm>3) xm=3; ym=main_screen_originy; if (ym>3) ym=3; if (mouse_type==MOUSE_TYPE_SQUARE) hide_mouse(); clip_main_window(); for (y=main_screen_originy-ym;y(main_screen_originx+(MAIN_WIN_W/16))) sx=(main_screen_originx+(MAIN_WIN_W/16))-x; if ((sy+y)>(main_screen_originy+(MAIN_WIN_H/16))) sy=(main_screen_originy+(MAIN_WIN_H/16))-y; sx=(sx<<4)-x1; sy=(sy<<4)-y1; dx=MAIN_WIN_X+(x-main_screen_originx)*16+x1; dy=MAIN_WIN_Y+(y-main_screen_originy)*16+y1; if (sx>0 && sy>0) { #ifdef ALLOW_PIX_DOUBLING if (pix_double) XCopyArea(display.dpy ,icon_pixmap[t2] ,display.win ,display.pixcolour_gc[0] ,x1*2,y1*2,sx*2,sy*2 ,dx*2,dy*2); else #endif XCopyArea(display.dpy ,icon_pixmap[t2] ,display.win ,display.pixcolour_gc[0] ,x1,y1,sx,sy ,dx+borderx,dy+bordery); update_pixmap(x1,y1,sx,sy,dx,dy ,main_types[t2].size ,main_types[t2].graphic); } } else #endif Fgl_putbox(MAIN_WIN_X +(x-main_screen_originx)*16 ,MAIN_WIN_Y +(y-main_screen_originy)*16 ,16*main_types[t2].size ,16*main_types[t2].size ,main_types[t2].graphic); } } unclip_main_window(); screen_refresh_flag=0; if (mouse_type==MOUSE_TYPE_SQUARE) redraw_mouse(); } #ifndef THMO_SCREEN_STUFF void clip_main_window(void) { Fgl_enableclipping(); Fgl_setclippingwindow(MAIN_WIN_X,MAIN_WIN_Y ,MAIN_WIN_X+MAIN_WIN_W-1,MAIN_WIN_Y+MAIN_WIN_H-1); } void unclip_main_window(void) { Fgl_disableclipping(); } void check_power_line_graphics(void) { int x,y,t,u,l,r,d,tu,tl,tr,td; for (y=main_screen_originy;y0) { tu=mappointtype[x][y-1]; // see if dug under track, rail or road if (y>1 && (main_types[tu].group ==GROUP_TRACK || main_types[tu].group==GROUP_RAIL || main_types[tu].group==GROUP_ROAD || main_types[tu].group==GROUP_WATER)) tu=mappointtype[x][y-2]; } if (x>0) { tl=mappointtype[x-1][y]; if (x>1 && (main_types[tl].group ==GROUP_TRACK || main_types[tl].group==GROUP_RAIL || main_types[tl].group==GROUP_ROAD || main_types[tl].group==GROUP_WATER)) tl=mappointtype[x-2][y]; } if (x<(WORLD_SIDE_LEN-1)) { tr=mappointtype[x+1][y]; if (x<(WORLD_SIDE_LEN-2) && (main_types[tr].group==GROUP_TRACK || main_types[tr].group==GROUP_RAIL || main_types[tr].group==GROUP_ROAD || main_types[tr].group==GROUP_WATER)) tr=mappointtype[x+2][y]; } if (y<(WORLD_SIDE_LEN-1)) { td=mappointtype[x][y+1]; if (y<(WORLD_SIDE_LEN-2) && (main_types[td].group==GROUP_TRACK || main_types[td].group==GROUP_RAIL || main_types[td].group==GROUP_ROAD || main_types[td].group==GROUP_WATER)) td=mappointtype[x][y+2]; } u=l=r=d=0; if (main_types[tu].group==GROUP_POWER_LINE || main_types[tu].group==GROUP_POWER_SOURCE || main_types[tu].group==GROUP_SUBSTATION || main_types[tu].group==GROUP_POWER_SOURCE_COAL) u=1; if (main_types[tl].group==GROUP_POWER_LINE || main_types[tl].group==GROUP_POWER_SOURCE || main_types[tl].group==GROUP_SUBSTATION || main_types[tl].group==GROUP_POWER_SOURCE_COAL) l=1; if (main_types[tr].group==GROUP_POWER_LINE || main_types[tr].group==GROUP_POWER_SOURCE || main_types[tr].group==GROUP_SUBSTATION || (main_types[tr].group==GROUP_WINDMILL && mappoint[x+1][y].int_2>=MODERN_WINDMILL_TECH) || main_types[tr].group==GROUP_POWER_SOURCE_COAL) r=1; if (main_types[td].group==GROUP_POWER_LINE || main_types[td].group==GROUP_POWER_SOURCE || main_types[td].group==GROUP_SUBSTATION || (main_types[td].group==GROUP_WINDMILL && mappoint[x][y+1].int_2>=MODERN_WINDMILL_TECH) || main_types[td].group==GROUP_POWER_SOURCE_COAL) d=1; mappointtype[x][y] =select_power_line_type(u,l,r,d); // do the live powerline stuff if (mappoint[x][y].int_1!=0) mappointtype[x][y]-=11; } } } int select_power_line_type(int u,int l,int r,int d) { if (u && l && r && d) return(CST_POWERL_LUDR_D); if (u && d && r) return(CST_POWERL_UDR_D); if (l && u && r) return(CST_POWERL_LUR_D); if (l && d && r) return(CST_POWERL_LDR_D); if (l && d && u) return(CST_POWERL_LDU_D); if (r && u) return(CST_POWERL_RU_D); if (l && u) return(CST_POWERL_LU_D); if (r && d) return(CST_POWERL_RD_D); if (l && d) return(CST_POWERL_LD_D); if (u || d) return(CST_POWERL_V_D); return(CST_POWERL_H_D); } void check_track_graphics(void) { int x,y,t,u,l,r,d,tu,tl,tr,trc,td,tdc,trc2,trc3; tu=tl=tr=trc=td=tdc=trc2=trc3=0; for (y=main_screen_originy;y0) tu=mappointtype[x][y-1]; if (x>0) tl=mappointtype[x-1][y]; if (x<(WORLD_SIDE_LEN-1)) { tr=mappointtype[x+1][y]; if (y>0) trc=mappointtype[x+1][y-1]; if (y>1) trc2=mappointtype[x+1][y-2]; if (y>2) trc3=mappointtype[x+1][y-3]; } if (y<(WORLD_SIDE_LEN-1)) { td=mappointtype[x][y+1]; if (x>0) tdc=mappointtype[x-1][y+1]; } u=l=r=d=0; mappoint[x][y].flags &= 0xfffffff0; if (main_types[tu].group==GROUP_TRACK) { u=1; mappoint[x][y].flags |= FLAG_UP; } if (main_types[tl].group==GROUP_TRACK) { l=1; mappoint[x][y].flags |= FLAG_LEFT; } if (main_types[tr].group==GROUP_TRACK) mappoint[x][y].flags |= FLAG_RIGHT; if (main_types[tr].group==GROUP_TRACK || main_types[tr].group==GROUP_COALMINE || main_types[tr].group==GROUP_INDUSTRY_L || main_types[tr].group==GROUP_INDUSTRY_H || main_types[tr].group==GROUP_OREMINE || main_types[tr].group==GROUP_RECYCLE || main_types[tr].group==GROUP_TIP || main_types[tr].group==GROUP_PORT || main_types[tr].group==GROUP_COMMUNE || main_types[trc].group==GROUP_POWER_SOURCE_COAL ) r=1; if (main_types[td].group==GROUP_TRACK) mappoint[x][y].flags |= FLAG_DOWN; if (main_types[td].group==GROUP_TRACK || main_types[td].group==GROUP_COALMINE || main_types[td].group==GROUP_INDUSTRY_L || main_types[td].group==GROUP_INDUSTRY_H || main_types[td].group==GROUP_OREMINE || main_types[td].group==GROUP_RECYCLE || main_types[td].group==GROUP_COMMUNE || main_types[td].group==GROUP_TIP || main_types[td].group==GROUP_PORT || main_types[tdc].group==GROUP_POWER_SOURCE_COAL) d=1; mappointtype[x][y] =select_track_type(u,l,r,d); } } } int select_track_type(int u,int l,int r,int d) { if (u && l && r && d) return(CST_TRACK_LUDR); if (u && d && r) return(CST_TRACK_UDR); if (l && u && r) return(CST_TRACK_LUR); if (l && d && r) return(CST_TRACK_LDR); if (l && d && u) return(CST_TRACK_LUD); if (r && u) return(CST_TRACK_UR); if (l && u) return(CST_TRACK_LU); if (r && d) return(CST_TRACK_DR); if (l && d) return(CST_TRACK_LD); if (u || d) return(CST_TRACK_UD); return(CST_TRACK_LR); } void check_water_graphics(void) { int x,y,t,u,l,r,d,tu,tl,tr,td,xx,yy; tu=tl=tr=td=0; for (y=main_screen_originy;y0) tu=mappointtype[x][y-1]; if (x>0) tl=mappointtype[x-1][y]; if (x<(WORLD_SIDE_LEN-1)) tr=mappointtype[x+1][y]; if (y<(WORLD_SIDE_LEN-1)) td=mappointtype[x][y+1]; u=l=r=d=0; if (main_types[tu].group==GROUP_WATER) { u=1; } if (main_types[tl].group==GROUP_WATER) { l=1; } if (tl==CST_USED) { xx=mappoint[x-1][y].int_1; yy=mappoint[x-1][y].int_2; if (main_types[mappointtype[xx][yy]].group==GROUP_EX_PORT) l=1; } if (main_types[tr].group==GROUP_WATER) r=1; if (main_types[td].group==GROUP_WATER) d=1; mappointtype[x][y] =select_water_type(u,l,r,d); } } } int select_water_type(int u,int l,int r,int d) { if (u && l && r && d) return(CST_WATER_LURD); if (u && d && r) return(CST_WATER_URD); if (l && u && r) return(CST_WATER_LUR); if (l && d && r) return(CST_WATER_LRD); if (l && d && u) return(CST_WATER_LUD); if (r && u) return(CST_WATER_UR); if (l && u) return(CST_WATER_LU); if (r && d) return(CST_WATER_RD); if (l && d) return(CST_WATER_LD); if (u && d) return(CST_WATER_UD); if (l && r) return(CST_WATER_LR); if (l) return(CST_WATER_L); if (u) return(CST_WATER_U); if (r) return(CST_WATER_R); if (d) return(CST_WATER_D); return(CST_WATER); } void check_rail_graphics(void) { int x,y,t,u,l,r,d,tu,tl,tr,trc,td,tdc,trc2,trc3; tu=tl=tr=trc=td=tdc=trc2=trc3=0; for (y=main_screen_originy;y0) tu=mappointtype[x][y-1]; if (x>0) tl=mappointtype[x-1][y]; if (x<(WORLD_SIDE_LEN-1)) { tr=mappointtype[x+1][y]; if (y>0) trc=mappointtype[x+1][y-1]; if (y>1) trc2=mappointtype[x+1][y-2]; if (y>2) trc3=mappointtype[x+1][y-3]; } if (y<(WORLD_SIDE_LEN-1)) { td=mappointtype[x][y+1]; if (x>0) tdc=mappointtype[x-1][y+1]; } u=l=r=d=0; mappoint[x][y].flags &= 0xfffffff0; if (main_types[tu].group==GROUP_RAIL) { u=1; mappoint[x][y].flags |= FLAG_UP; } if (main_types[tl].group==GROUP_RAIL) { l=1; mappoint[x][y].flags |= FLAG_LEFT; } if (main_types[tr].group==GROUP_RAIL) mappoint[x][y].flags |= FLAG_RIGHT; if (main_types[tr].group==GROUP_RAIL || main_types[tr].group==GROUP_COALMINE || main_types[tr].group==GROUP_INDUSTRY_L || main_types[tr].group==GROUP_INDUSTRY_H || main_types[tr].group==GROUP_OREMINE || main_types[tr].group==GROUP_RECYCLE || main_types[tr].group==GROUP_TIP || main_types[tr].group==GROUP_PORT || main_types[trc].group==GROUP_POWER_SOURCE_COAL ) r=1; if (main_types[td].group==GROUP_RAIL) mappoint[x][y].flags |= FLAG_DOWN; if (main_types[td].group==GROUP_RAIL || main_types[td].group==GROUP_COALMINE || main_types[td].group==GROUP_INDUSTRY_L || main_types[td].group==GROUP_INDUSTRY_H || main_types[td].group==GROUP_OREMINE || main_types[td].group==GROUP_RECYCLE || main_types[td].group==GROUP_TIP || main_types[td].group==GROUP_PORT || main_types[tdc].group==GROUP_POWER_SOURCE_COAL) d=1; mappointtype[x][y] =select_rail_type(u,l,r,d); } } } int select_rail_type(int u,int l,int r,int d) { if (u && l && r && d) return(CST_RAIL_LUDR); if (u && d && r) return(CST_RAIL_UDR); if (l && u && r) return(CST_RAIL_LUR); if (l && d && r) return(CST_RAIL_LDR); if (l && d && u) return(CST_RAIL_LUD); if (r && u) return(CST_RAIL_UR); if (l && u) return(CST_RAIL_LU); if (r && d) return(CST_RAIL_DR); if (l && d) return(CST_RAIL_LD); if (u || d) return(CST_RAIL_UD); return(CST_RAIL_LR); } void check_road_graphics(void) { int x,y,t,u,l,r,d,tu,tl,tr,trc,td,tdc,trc2,trc3; tu=tl=tr=trc=td=tdc=trc2=trc3=0; for (y=main_screen_originy;y0) tu=mappointtype[x][y-1]; if (x>0) tl=mappointtype[x-1][y]; if (x<(WORLD_SIDE_LEN-1)) { tr=mappointtype[x+1][y]; if (y>0) trc=mappointtype[x+1][y-1]; if (y>1) trc2=mappointtype[x+1][y-2]; if (y>2) trc3=mappointtype[x+1][y-3]; } if (y<(WORLD_SIDE_LEN-1)) { td=mappointtype[x][y+1]; if (x>0) tdc=mappointtype[x-1][y+1]; } u=l=r=d=0; mappoint[x][y].flags &= 0xfffffff0; if (main_types[tu].group==GROUP_ROAD) { u=1; mappoint[x][y].flags |= FLAG_UP; } if (main_types[tl].group==GROUP_ROAD) { l=1; mappoint[x][y].flags |= FLAG_LEFT; } if (main_types[tr].group==GROUP_ROAD) mappoint[x][y].flags |= FLAG_RIGHT; if (main_types[tr].group==GROUP_ROAD || main_types[tr].group==GROUP_COALMINE || main_types[tr].group==GROUP_INDUSTRY_L || main_types[tr].group==GROUP_INDUSTRY_H || main_types[tr].group==GROUP_OREMINE || main_types[tr].group==GROUP_RECYCLE || main_types[tr].group==GROUP_TIP || main_types[tr].group==GROUP_PORT || main_types[trc].group==GROUP_POWER_SOURCE_COAL ) r=1; if (main_types[td].group==GROUP_ROAD) mappoint[x][y].flags |= FLAG_DOWN; if (main_types[td].group==GROUP_ROAD || main_types[td].group==GROUP_COALMINE || main_types[td].group==GROUP_INDUSTRY_L || main_types[td].group==GROUP_INDUSTRY_H || main_types[td].group==GROUP_OREMINE || main_types[td].group==GROUP_RECYCLE || main_types[td].group==GROUP_TIP || main_types[td].group==GROUP_PORT || main_types[tdc].group==GROUP_POWER_SOURCE_COAL) d=1; mappointtype[x][y] =select_road_type(u,l,r,d); } } } int select_road_type(int u,int l,int r,int d) { if (u && l && r && d) return(CST_ROAD_LUDR); if (u && d && r) return(CST_ROAD_UDR); if (l && u && r) return(CST_ROAD_LUR); if (l && d && r) return(CST_ROAD_LDR); if (l && d && u) return(CST_ROAD_LUD); if (r && u) return(CST_ROAD_UR); if (l && u) return(CST_ROAD_LU); if (r && d) return(CST_ROAD_DR); if (l && d) return(CST_ROAD_LD); if (u || d) return(CST_ROAD_UD); return(CST_ROAD_LR); } #endif /* THMO_SCREEN_STUFF */ // ******************* // SCREEN SETUP // ******************* void screen_setup(void) { int i; // draw the graph boxes do_monthgraph(); // load the pbar graphics up_pbar1_graphic=load_graphic("pbarup1.csi"); up_pbar2_graphic=load_graphic("pbarup2.csi"); down_pbar1_graphic=load_graphic("pbardown1.csi"); down_pbar2_graphic=load_graphic("pbardown2.csi"); pop_pbar_graphic=load_graphic("pbarpop.csi"); tech_pbar_graphic=load_graphic("pbartech.csi"); food_pbar_graphic=load_graphic("pbarfood.csi"); jobs_pbar_graphic=load_graphic("pbarjobs.csi"); coal_pbar_graphic=load_graphic("pbarcoal.csi"); goods_pbar_graphic=load_graphic("pbargoods.csi"); ore_pbar_graphic=load_graphic("pbarore.csi"); steel_pbar_graphic=load_graphic("pbarsteel.csi"); money_pbar_graphic=load_graphic("pbarmoney.csi"); do_pbar_population(0); do_pbar_tech(0); do_pbar_food(0); do_pbar_jobs(0); do_pbar_coal(0); do_pbar_goods(0); do_pbar_ore(0); do_pbar_steel(0); do_pbar_money(0); // draw the box around the main window draw_main_window_box(green(8)); // load the checked and unchecked box graphics checked_box_graphic=load_graphic("checked_box.csi"); unchecked_box_graphic=load_graphic("unchecked_box.csi"); // draw the mini screen normal button ms_normal_button_graphic=load_graphic("ms-normal-button.csi"); Fgl_putbox(MS_NORMAL_BUTTON_X,MS_NORMAL_BUTTON_Y ,16,16,ms_normal_button_graphic); // draw the pollution button ms_pollution_button_graphic=load_graphic("ms-pollution-button.csi"); Fgl_putbox(MS_POLLUTION_BUTTON_X,MS_POLLUTION_BUTTON_Y ,16,16,ms_pollution_button_graphic); // draw the fire cover button ms_fire_cover_button_graphic =load_graphic("ms-fire-cover-button.csi"); Fgl_putbox(MS_FIRE_COVER_BUTTON_X,MS_FIRE_COVER_BUTTON_Y ,16,16,ms_fire_cover_button_graphic); // draw the health cover button ms_health_cover_button_graphic =load_graphic("ms-health-cover-button.csi"); Fgl_putbox(MS_HEALTH_COVER_BUTTON_X,MS_HEALTH_COVER_BUTTON_Y ,16,16,ms_health_cover_button_graphic); // draw the cricket cover button ms_cricket_cover_button_graphic =load_graphic("ms-cricket-cover-button.csi"); Fgl_putbox(MS_CRICKET_COVER_BUTTON_X,MS_CRICKET_COVER_BUTTON_Y ,16,16,ms_cricket_cover_button_graphic); // draw the ub40 button ms_ub40_button_graphic=load_graphic("ms-ub40-button.csi"); Fgl_putbox(MS_UB40_BUTTON_X,MS_UB40_BUTTON_Y ,16,16,ms_ub40_button_graphic); // draw the coal button ms_coal_button_graphic=load_graphic("ms-coal-button.csi"); Fgl_putbox(MS_COAL_BUTTON_X,MS_COAL_BUTTON_Y ,16,16,ms_coal_button_graphic); // draw the starving button ms_starve_button_graphic=load_graphic("ms-starve-button.csi"); Fgl_putbox(MS_STARVE_BUTTON_X,MS_STARVE_BUTTON_Y ,16,16,ms_starve_button_graphic); // draw the power mini screen button ms_power_button_graphic=load_graphic("ms-power-button.csi"); Fgl_putbox(MS_POWER_BUTTON_X,MS_POWER_BUTTON_Y ,16,16,ms_power_button_graphic); // draw the other cost button ms_ocost_button_graphic=load_graphic("ms-ocost-button.csi"); Fgl_putbox(MS_OCOST_BUTTON_X,MS_OCOST_BUTTON_Y ,16,16,ms_ocost_button_graphic); // draw the pause button pause_button1_off=load_graphic("pause-offl.csi"); Fgl_putbox(PAUSE_BUTTON_X,PAUSE_BUTTON_Y,16,16,pause_button1_off); pause_button2_off=load_graphic("pause-offr.csi"); Fgl_putbox(PAUSE_BUTTON_X+16,PAUSE_BUTTON_Y ,16,16,pause_button2_off); pause_button1_on=load_graphic("pause-onl.csi"); pause_button2_on=load_graphic("pause-onr.csi"); // draw the slow button slow_button1_off=load_graphic("slow-offl.csi"); Fgl_putbox(SLOW_BUTTON_X,SLOW_BUTTON_Y,16,16,slow_button1_off); slow_button2_off=load_graphic("slow-offr.csi"); Fgl_putbox(SLOW_BUTTON_X+16,SLOW_BUTTON_Y ,16,16,slow_button2_off); slow_button1_on=load_graphic("slow-onl.csi"); slow_button2_on=load_graphic("slow-onr.csi"); // draw the medium button med_button1_off=load_graphic("norm-offl.csi"); Fgl_putbox(MED_BUTTON_X,MED_BUTTON_Y,16,16,med_button1_off); med_button2_off=load_graphic("norm-offr.csi"); Fgl_putbox(MED_BUTTON_X+16,MED_BUTTON_Y ,16,16,med_button2_off); med_button1_on=load_graphic("norm-onl.csi"); med_button2_on=load_graphic("norm-onr.csi"); // draw the fast button fast_button1_off=load_graphic("fast-offl.csi"); Fgl_putbox(FAST_BUTTON_X,FAST_BUTTON_Y,16,16,fast_button1_off); fast_button2_off=load_graphic("fast-offr.csi"); Fgl_putbox(FAST_BUTTON_X+16,FAST_BUTTON_Y ,16,16,fast_button2_off); fast_button1_on=load_graphic("fast-onl.csi"); fast_button2_on=load_graphic("fast-onr.csi"); // draw the results button results_button1=load_graphic("results-l.csi"); Fgl_putbox(RESULTSBUT_X,RESULTSBUT_Y,16,16,results_button1); results_button2=load_graphic("results-r.csi"); Fgl_putbox(RESULTSBUT_X+16,RESULTSBUT_Y ,16,16,results_button2); // draw the t-overwrite button and load 'on button' toveron_button1=load_graphic("tover1-on.csi"); toveroff_button1=load_graphic("tover1-off.csi"); Fgl_putbox(TOVERBUT_X,TOVERBUT_Y,16,16,toveroff_button1); toveron_button2=load_graphic("tover2-on.csi"); toveroff_button2=load_graphic("tover2-off.csi"); Fgl_putbox(TOVERBUT_X+16,TOVERBUT_Y ,16,16,toveroff_button2); #ifdef LC_X11 // draw the confine mouse button confine_button=load_graphic("mouse-confined.csi"); unconfine_button=load_graphic("mouse-free.csi"); Fgl_putbox(CONFINEBUT_X,CONFINEBUT_Y,16,16,unconfine_button); #endif // draw the help button help_button_graphic=load_graphic("help-button.csi"); Fgl_putbox(HELP_BUTTON_X,HELP_BUTTON_Y,HELP_BUTTON_W,HELP_BUTTON_H ,help_button_graphic); // draw the quit button quit_button_graphic=load_graphic("quit-button.csi"); Fgl_putbox(QUIT_BUTTON_X,QUIT_BUTTON_Y,QUIT_BUTTON_W,QUIT_BUTTON_H ,quit_button_graphic); // draw the load button load_button_graphic=load_graphic("load-button.csi"); Fgl_putbox(LOAD_BUTTON_X,LOAD_BUTTON_Y,LOAD_BUTTON_W,LOAD_BUTTON_H ,load_button_graphic); // draw the save button save_button_graphic=load_graphic("save-button.csi"); Fgl_putbox(SAVE_BUTTON_X,SAVE_BUTTON_Y,SAVE_BUTTON_W,SAVE_BUTTON_H ,save_button_graphic); // draw border around mini screen for (i=1;i<8;i++) { Fgl_hline(MINI_SCREEN_X-1-i,MINI_SCREEN_Y-1-i ,MINI_SCREEN_X+WORLD_SIDE_LEN+1+i ,yellow(16)); Fgl_line(MINI_SCREEN_X-1-i,MINI_SCREEN_Y-1-i ,MINI_SCREEN_X-1-i ,MINI_SCREEN_Y+WORLD_SIDE_LEN+1+i ,yellow(14)); Fgl_hline(MINI_SCREEN_X-1-i ,MINI_SCREEN_Y+WORLD_SIDE_LEN+1+i ,MINI_SCREEN_X+WORLD_SIDE_LEN+1+i ,yellow(22)); Fgl_line(MINI_SCREEN_X+WORLD_SIDE_LEN+1+i ,MINI_SCREEN_Y-1-i ,MINI_SCREEN_X+WORLD_SIDE_LEN+1+i ,MINI_SCREEN_Y+WORLD_SIDE_LEN+1+i ,yellow(24)); } // draw the select button box Fgl_fillbox(SELECT_BUTTON_WIN_X,SELECT_BUTTON_WIN_Y ,SELECT_BUTTON_WIN_W,SELECT_BUTTON_WIN_H,white(20)); redraw_mouse(); select_button_graphic[sbut[0]]=load_graphic("powerline-button.csi"); select_button_type[sbut[0]]=CST_POWERL_H_L; strcpy(select_button_help[sbut[0]],"powerline.hlp"); draw_select_button_graphic(sbut[0],select_button_graphic[sbut[0]]); select_button_cost[sbut[0]]=GROUP_POWER_LINE_COST; select_button_cost_mul[sbut[0]]=GROUP_POWER_LINE_COST_MUL; select_button_bul_cost[sbut[0]]=GROUP_POWER_LINE_BUL_COST; select_button_tech[sbut[0]]=GROUP_POWER_LINE_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[1]]=load_graphic("powerssolar-button.csi"); draw_select_button_graphic(sbut[1],select_button_graphic[sbut[1]]); select_button_type[sbut[1]]=CST_POWERS_SOLAR; strcpy(select_button_help[sbut[1]],"powerssolar.hlp"); select_button_cost[sbut[1]]=GROUP_POWER_SOURCE_COST; select_button_cost_mul[sbut[1]]=GROUP_POWER_SOURCE_COST_MUL; select_button_bul_cost[sbut[1]]=GROUP_POWER_SOURCE_BUL_COST; select_button_tech[sbut[1]]=GROUP_POWER_SOURCE_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[2]]=load_graphic("substation-button.csi"); draw_select_button_graphic(sbut[2],select_button_graphic[sbut[2]]); select_button_type[sbut[2]]=CST_SUBSTATION_R; strcpy(select_button_help[sbut[2]],"substation.hlp"); select_button_cost[sbut[2]]=GROUP_SUBSTATION_COST; select_button_cost_mul[sbut[2]]=GROUP_SUBSTATION_COST_MUL; select_button_bul_cost[sbut[2]]=GROUP_SUBSTATION_BUL_COST; select_button_tech[sbut[2]]=GROUP_SUBSTATION_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[3]]=load_graphic("residence-button.csi"); draw_select_button_graphic(sbut[3],select_button_graphic[sbut[3]]); select_button_type[sbut[3]]=CST_RESIDENCE_LL; strcpy(select_button_help[sbut[3]],"residential.hlp"); select_button_cost[sbut[3]]=GROUP_RESIDENCE_COST; select_button_cost_mul[sbut[3]]=GROUP_RESIDENCE_COST_MUL; select_button_bul_cost[sbut[3]]=GROUP_RESIDENCE_BUL_COST; select_button_tech[sbut[3]]=GROUP_RESIDENCE_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[4]]=load_graphic("organic-farm-button.csi"); draw_select_button_graphic(sbut[4],select_button_graphic[sbut[4]]); select_button_type[sbut[4]]=CST_FARM_O0; strcpy(select_button_help[sbut[4]],"farm.hlp"); select_button_cost[sbut[4]]=GROUP_ORGANIC_FARM_COST; select_button_cost_mul[sbut[4]]=GROUP_ORGANIC_FARM_COST_MUL; select_button_bul_cost[sbut[4]]=GROUP_ORGANIC_FARM_BUL_COST; select_button_tech[sbut[4]]=GROUP_ORGANIC_FARM_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[5]]=load_graphic("market-button.csi"); draw_select_button_graphic(sbut[5],select_button_graphic[sbut[5]]); select_button_type[sbut[5]]=CST_MARKET_EMPTY; strcpy(select_button_help[sbut[5]],"market.hlp"); select_button_cost[sbut[5]]=GROUP_MARKET_COST; select_button_cost_mul[sbut[5]]=GROUP_MARKET_COST_MUL; select_button_bul_cost[sbut[5]]=GROUP_MARKET_BUL_COST; select_button_tech[sbut[5]]=GROUP_MARKET_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[6]]=load_graphic("buldoze-button.csi"); draw_select_button_graphic(sbut[6],select_button_graphic[sbut[6]]); select_button_type[sbut[6]]=CST_GREEN; strcpy(select_button_help[sbut[6]],"bulldoze.hlp"); select_button_cost[sbut[6]]=GROUP_BARE_COST; select_button_cost_mul[sbut[6]]=GROUP_BARE_COST_MUL; select_button_bul_cost[sbut[6]]=GROUP_BARE_BUL_COST; select_button_tech[sbut[6]]=GROUP_BARE_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[7]]=load_graphic("track-button.csi"); draw_select_button_graphic(sbut[7],select_button_graphic[sbut[7]]); select_button_type[sbut[7]]=CST_TRACK_LR; strcpy(select_button_help[sbut[7]],"track.hlp"); select_button_help_flag[sbut[7]]=1; select_button_cost[sbut[7]]=GROUP_TRACK_COST; select_button_cost_mul[sbut[7]]=GROUP_TRACK_COST_MUL; select_button_bul_cost[sbut[7]]=GROUP_TRACK_BUL_COST; select_button_tech[sbut[7]]=GROUP_TRACK_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[8]]=load_graphic("coalmine-button.csi"); draw_select_button_graphic(sbut[8],select_button_graphic[sbut[8]]); select_button_type[sbut[8]]=CST_COALMINE_EMPTY; strcpy(select_button_help[sbut[8]],"coalmine.hlp"); select_button_cost[sbut[8]]=GROUP_COALMINE_COST; select_button_cost_mul[sbut[8]]=GROUP_COALMINE_COST_MUL; select_button_bul_cost[sbut[8]]=GROUP_COALMINE_BUL_COST; select_button_tech[sbut[8]]=GROUP_COALMINE_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[9]]=load_graphic("rail-button.csi"); draw_select_button_graphic(sbut[9],select_button_graphic[sbut[9]]); select_button_type[sbut[9]]=CST_RAIL_LR; strcpy(select_button_help[sbut[9]],"rail.hlp"); select_button_cost[sbut[9]]=GROUP_RAIL_COST; select_button_cost_mul[sbut[9]]=GROUP_RAIL_COST_MUL; select_button_bul_cost[sbut[9]]=GROUP_RAIL_BUL_COST; select_button_tech[sbut[9]]=GROUP_RAIL_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[10]]=load_graphic("powerscoal-button.csi"); draw_select_button_graphic(sbut[10],select_button_graphic[sbut[10]]); select_button_type[sbut[10]]=CST_POWERS_COAL_EMPTY; strcpy(select_button_help[sbut[10]],"powerscoal.hlp"); select_button_cost[sbut[10]]=GROUP_POWER_SOURCE_COAL_COST; select_button_cost_mul[sbut[10]]=GROUP_POWER_SOURCE_COAL_COST_MUL; select_button_bul_cost[sbut[10]]=GROUP_POWER_SOURCE_COAL_BUL_COST; select_button_tech[sbut[10]]=GROUP_POWER_SOURCE_COAL_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[11]]=load_graphic("road-button.csi"); draw_select_button_graphic(sbut[11],select_button_graphic[sbut[11]]); select_button_type[sbut[11]]=CST_ROAD_LR; strcpy(select_button_help[sbut[11]],"road.hlp"); select_button_cost[sbut[11]]=GROUP_ROAD_COST; select_button_cost_mul[sbut[11]]=GROUP_ROAD_COST_MUL; select_button_bul_cost[sbut[11]]=GROUP_ROAD_BUL_COST; select_button_tech[sbut[11]]=GROUP_ROAD_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[12]]=load_graphic("industryl-button.csi"); draw_select_button_graphic(sbut[12],select_button_graphic[sbut[12]]); select_button_type[sbut[12]]=CST_INDUSTRY_L_C; strcpy(select_button_help[sbut[12]],"industryl.hlp"); select_button_cost[sbut[12]]=GROUP_INDUSTRY_L_COST; select_button_cost_mul[sbut[12]]=GROUP_INDUSTRY_L_COST_MUL; select_button_bul_cost[sbut[12]]=GROUP_INDUSTRY_L_BUL_COST; select_button_tech[sbut[12]]=GROUP_INDUSTRY_L_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[13]]=load_graphic("university-button.csi"); draw_select_button_graphic(sbut[13],select_button_graphic[sbut[13]]); select_button_type[sbut[13]]=CST_UNIVERSITY; strcpy(select_button_help[sbut[13]],"university.hlp"); select_button_cost[sbut[13]]=GROUP_UNIVERSITY_COST; select_button_cost_mul[sbut[13]]=GROUP_UNIVERSITY_COST_MUL; select_button_bul_cost[sbut[13]]=GROUP_UNIVERSITY_BUL_COST; select_button_tech[sbut[13]]=GROUP_UNIVERSITY_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[14]]=load_graphic("commune-button.csi"); draw_select_button_graphic(sbut[14],select_button_graphic[sbut[14]]); select_button_type[sbut[14]]=CST_COMMUNE_1; strcpy(select_button_help[sbut[14]],"commune.hlp"); select_button_cost[sbut[14]]=GROUP_COMMUNE_COST; select_button_cost_mul[sbut[14]]=GROUP_COMMUNE_COST_MUL; select_button_bul_cost[sbut[14]]=GROUP_COMMUNE_BUL_COST; select_button_tech[sbut[14]]=GROUP_COMMUNE_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[15]]=load_graphic("oremine-button.csi"); draw_select_button_graphic(sbut[15],select_button_graphic[sbut[15]]); select_button_type[sbut[15]]=CST_OREMINE_1; strcpy(select_button_help[sbut[15]],"oremine.hlp"); select_button_cost[sbut[15]]=GROUP_OREMINE_COST; select_button_cost_mul[sbut[15]]=GROUP_OREMINE_COST_MUL; select_button_bul_cost[sbut[15]]=GROUP_OREMINE_BUL_COST; select_button_tech[sbut[15]]=GROUP_OREMINE_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[16]]=load_graphic("tip-button.csi"); draw_select_button_graphic(sbut[16],select_button_graphic[sbut[16]]); select_button_type[sbut[16]]=CST_TIP_0; strcpy(select_button_help[sbut[16]],"tip.hlp"); select_button_cost[sbut[16]]=GROUP_TIP_COST; select_button_cost_mul[sbut[16]]=GROUP_TIP_COST_MUL; select_button_bul_cost[sbut[16]]=GROUP_TIP_BUL_COST; select_button_tech[sbut[16]]=GROUP_TIP_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[17]]=load_graphic("port-button.csi"); draw_select_button_graphic(sbut[17],select_button_graphic[sbut[17]]); select_button_type[sbut[17]]=CST_EX_PORT; strcpy(select_button_help[sbut[17]],"port.hlp"); select_button_cost[sbut[17]]=GROUP_EX_PORT_COST; select_button_cost_mul[sbut[17]]=GROUP_EX_PORT_COST_MUL; select_button_bul_cost[sbut[17]]=GROUP_EX_PORT_BUL_COST; select_button_tech[sbut[17]]=GROUP_EX_PORT_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[18]]=load_graphic("industryh-button.csi"); draw_select_button_graphic(sbut[18],select_button_graphic[sbut[18]]); select_button_type[sbut[18]]=CST_INDUSTRY_H_C; strcpy(select_button_help[sbut[18]],"industryh.hlp"); select_button_cost[sbut[18]]=GROUP_INDUSTRY_H_COST; select_button_cost_mul[sbut[18]]=GROUP_INDUSTRY_H_COST_MUL; select_button_bul_cost[sbut[18]]=GROUP_INDUSTRY_H_BUL_COST; select_button_tech[sbut[18]]=GROUP_INDUSTRY_H_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[19]]=load_graphic("parkland-button.csi"); draw_select_button_graphic(sbut[19],select_button_graphic[sbut[19]]); select_button_type[sbut[19]]=CST_PARKLAND_PLANE; strcpy(select_button_help[sbut[19]],"park.hlp"); select_button_cost[sbut[19]]=GROUP_PARKLAND_COST; select_button_cost_mul[sbut[19]]=GROUP_PARKLAND_COST_MUL; select_button_bul_cost[sbut[19]]=GROUP_PARKLAND_BUL_COST; select_button_tech[sbut[19]]=GROUP_PARKLAND_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[20]]=load_graphic("recycle-button.csi"); draw_select_button_graphic(sbut[20],select_button_graphic[sbut[20]]); select_button_type[sbut[20]]=CST_RECYCLE; strcpy(select_button_help[sbut[20]],"recycle.hlp"); select_button_cost[sbut[20]]=GROUP_RECYCLE_COST; select_button_cost_mul[sbut[20]]=GROUP_RECYCLE_COST_MUL; select_button_bul_cost[sbut[20]]=GROUP_RECYCLE_BUL_COST; select_button_tech[sbut[20]]=GROUP_RECYCLE_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[21]]=load_graphic("water-button.csi"); draw_select_button_graphic(sbut[21],select_button_graphic[sbut[21]]); select_button_type[sbut[21]]=CST_WATER; strcpy(select_button_help[sbut[21]],"river.hlp"); select_button_cost[sbut[21]]=GROUP_WATER_COST; select_button_cost_mul[sbut[21]]=GROUP_WATER_COST_MUL; select_button_bul_cost[sbut[21]]=GROUP_WATER_BUL_COST; select_button_tech[sbut[21]]=GROUP_WATER_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[22]]=load_graphic("health-button.csi"); draw_select_button_graphic(sbut[22],select_button_graphic[sbut[22]]); select_button_type[sbut[22]]=CST_HEALTH; strcpy(select_button_help[sbut[22]],"health.hlp"); select_button_cost[sbut[22]]=GROUP_HEALTH_COST; select_button_cost_mul[sbut[22]]=GROUP_HEALTH_COST_MUL; select_button_bul_cost[sbut[22]]=GROUP_HEALTH_BUL_COST; select_button_tech[sbut[22]]=GROUP_HEALTH_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[23]]=load_graphic("rocket-button.csi"); draw_select_button_graphic(sbut[23],select_button_graphic[sbut[23]]); select_button_type[sbut[23]]=CST_ROCKET_1; strcpy(select_button_help[sbut[23]],"rocket.hlp"); select_button_cost[sbut[23]]=GROUP_ROCKET_COST; select_button_cost_mul[sbut[23]]=GROUP_ROCKET_COST_MUL; select_button_bul_cost[sbut[23]]=GROUP_ROCKET_BUL_COST; select_button_tech[sbut[23]]=GROUP_ROCKET_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[24]]=load_graphic("windmill-button.csi"); draw_select_button_graphic(sbut[24],select_button_graphic[sbut[24]]); select_button_type[sbut[24]]=CST_WINDMILL_1_R; strcpy(select_button_help[sbut[24]],"windmill.hlp"); select_button_cost[sbut[24]]=GROUP_WINDMILL_COST; select_button_cost_mul[sbut[24]]=GROUP_WINDMILL_COST_MUL; select_button_bul_cost[sbut[24]]=GROUP_WINDMILL_BUL_COST; select_button_tech[sbut[24]]=GROUP_WINDMILL_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[25]]=load_graphic("monument-button.csi"); draw_select_button_graphic(sbut[25],select_button_graphic[sbut[25]]); select_button_type[sbut[25]]=CST_MONUMENT_0; strcpy(select_button_help[sbut[25]],"monument.hlp"); select_button_cost[sbut[25]]=GROUP_MONUMENT_COST; select_button_cost_mul[sbut[25]]=GROUP_MONUMENT_COST_MUL; select_button_bul_cost[sbut[25]]=GROUP_MONUMENT_BUL_COST; select_button_tech[sbut[25]]=GROUP_MONUMENT_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[26]]=load_graphic("school-button.csi"); draw_select_button_graphic(sbut[26],select_button_graphic[sbut[26]]); select_button_type[sbut[26]]=CST_SCHOOL; strcpy(select_button_help[sbut[26]],"school.hlp"); select_button_cost[sbut[26]]=GROUP_SCHOOL_COST; select_button_cost_mul[sbut[26]]=GROUP_SCHOOL_COST_MUL; select_button_bul_cost[sbut[26]]=GROUP_SCHOOL_BUL_COST; select_button_tech[sbut[26]]=GROUP_SCHOOL_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[27]]=load_graphic("blacksmith-button.csi"); draw_select_button_graphic(sbut[27],select_button_graphic[sbut[27]]); select_button_type[sbut[27]]=CST_BLACKSMITH_0; strcpy(select_button_help[sbut[27]],"blacksmith.hlp"); select_button_cost[sbut[27]]=GROUP_BLACKSMITH_COST; select_button_cost_mul[sbut[27]]=GROUP_BLACKSMITH_COST_MUL; select_button_bul_cost[sbut[27]]=GROUP_BLACKSMITH_BUL_COST; select_button_tech[sbut[27]]=GROUP_BLACKSMITH_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[28]]=load_graphic("mill-button.csi"); draw_select_button_graphic(sbut[28],select_button_graphic[sbut[28]]); select_button_type[sbut[28]]=CST_MILL_0; strcpy(select_button_help[sbut[28]],"mill.hlp"); select_button_cost[sbut[28]]=GROUP_MILL_COST; select_button_cost_mul[sbut[28]]=GROUP_MILL_COST_MUL; select_button_bul_cost[sbut[28]]=GROUP_MILL_BUL_COST; select_button_tech[sbut[28]]=GROUP_MILL_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[29]]=load_graphic("pottery-button.csi"); draw_select_button_graphic(sbut[29],select_button_graphic[sbut[29]]); select_button_type[sbut[29]]=CST_POTTERY_0; strcpy(select_button_help[sbut[29]],"pottery.hlp"); select_button_cost[sbut[29]]=GROUP_POTTERY_COST; select_button_cost_mul[sbut[29]]=GROUP_POTTERY_COST_MUL; select_button_bul_cost[sbut[29]]=GROUP_POTTERY_BUL_COST; select_button_tech[sbut[29]]=GROUP_POTTERY_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[30]]=load_graphic("firestation-button.csi"); draw_select_button_graphic(sbut[30],select_button_graphic[sbut[30]]); select_button_type[sbut[30]]=CST_FIRESTATION_1; strcpy(select_button_help[sbut[30]],"firestation.hlp"); select_button_cost[sbut[30]]=GROUP_FIRESTATION_COST; select_button_cost_mul[sbut[30]]=GROUP_FIRESTATION_COST_MUL; select_button_bul_cost[sbut[30]]=GROUP_FIRESTATION_BUL_COST; select_button_tech[sbut[30]]=GROUP_FIRESTATION_TECH*MAX_TECH_LEVEL/1000; select_button_graphic[sbut[31]]=load_graphic("cricket-button.csi"); draw_select_button_graphic(sbut[31],select_button_graphic[sbut[31]]); select_button_type[sbut[31]]=CST_CRICKET_1; strcpy(select_button_help[sbut[31]],"cricket.hlp"); select_button_cost[sbut[31]]=GROUP_CRICKET_COST; select_button_cost_mul[sbut[31]]=GROUP_CRICKET_COST_MUL; select_button_bul_cost[sbut[31]]=GROUP_CRICKET_BUL_COST; select_button_tech[sbut[31]]=GROUP_CRICKET_TECH*MAX_TECH_LEVEL/1000; select_button_bul_cost[32]=GROUP_BURNT_BUL_COST; for (i=0;i=select_button_tech[i]) { if (select_button_tflag[i]==0) call_select_change_up(i); f=1; } else if (select_button_tflag[i]!=0 && tech_level <(select_button_tech[i]-(select_button_tech[i]/10))) f=0; if (select_button_tflag[i]!=f) { select_button_tflag[i]=f; // Can take this 'if' out when all the buttons are there. // Leave the command though! if (select_button_graphic[i]!=0) draw_select_button_graphic(i ,select_button_graphic[i]); } } if (tech_level>MODERN_WINDMILL_TECH && modern_windmill_flag==0) { ok_dial_box("mod_wind_up.mes",GOOD,0L); modern_windmill_flag=1; } #else for (i=0;i... ",colour_pal_file); do_error("Can't find it."); } while (feof(inf)==0) { fgets(s,99,inf); if (sscanf(s,"%d %d %d %d",&n,&r,&g,&b)==4) { pal.color[n].red=r; pal.color[n].green=g; pal.color[n].blue=b; flag[n]=1; } } fclose (inf); for (i=0;i<256;i++) { if (flag[i]==0) { printf("Colour %d not loaded\n",i); do_error("Can't continue"); } pal.color[i].red=(unsigned char)((pal.color[i].red *(1-gamma_correct_red))+(64*sin((float)pal.color[i].red *M_PI/128))*gamma_correct_red); pal.color[i].green=(unsigned char)((pal.color[i].green *(1-gamma_correct_green))+(64*sin((float)pal.color[i].green *M_PI/128))*gamma_correct_green); pal.color[i].blue=(unsigned char)((pal.color[i].blue *(1-gamma_correct_blue))+(64*sin((float)pal.color[i].blue *M_PI/128))*gamma_correct_blue); } gl_setpalette(&pal); } #endif #ifndef LC_X11 void initfont() { #ifdef USE_EXPANDED_FONT void *font; font = malloc(256 * 8 * 8 * BYTESPERPIXEL); gl_expandfont(8, 8, white(24), gl_font8x8, font); gl_setfont(8, 8, font); #else gl_setwritemode(FONT_COMPRESSED); gl_setfont(8,8,gl_font8x8); Fgl_setfontcolors(TEXT_BG_COLOUR,TEXT_FG_COLOUR); #endif } #endif void update_mini_screen(void) { switch (mini_screen_flags) { case (0): draw_mini_screen(); break; case (MINI_SCREEN_POL_FLAG): draw_mini_screen_pollution(); break; case (MINI_SCREEN_UB40_FLAG): draw_mini_screen_ub40(); break; case (MINI_SCREEN_STARVE_FLAG): draw_mini_screen_starve(); break; case (MINI_SCREEN_PORT_FLAG): draw_mini_screen_port(); break; case (MINI_SCREEN_POWER_FLAG): draw_mini_screen_power(); break; } } void draw_mini_screen(void) { int x,y,xx,yy; mini_screen_flags=0; Fgl_write(MINI_SCREEN_X+12,MINI_SCREEN_Y+110," "); for (y=0;y20) col=20; col+=red(11); } Fgl_setpixel(MINI_SCREEN_X+x,MINI_SCREEN_Y+y,col); } draw_mini_screen_cursor(); } void draw_mini_screen_fire_cover(void) { int x,y,xx,yy,col; mini_screen_flags=0; Fgl_write(MINI_SCREEN_X+12,MINI_SCREEN_Y+110,"Fire cover"); for (y=0;y=COAL_RESERVE_SIZE/2) col=white(18); else if (mappoint[x][y].coal_reserve19999) { sprintf(s,"Int %4dK",ly_interest/1000); } else sprintf(s,"Int %5d",ly_interest); Fgl_write(MINI_SCREEN_X+10,MINI_SCREEN_Y+16,s); if (ly_school_cost>19999) { if (ly_school_cost>1999999) sprintf(s,"Scl %4dM",ly_school_cost/1000000); else sprintf(s,"Scl %4dK",ly_school_cost/1000); } else sprintf(s,"Scl %5d",ly_school_cost); Fgl_write(MINI_SCREEN_X+10,MINI_SCREEN_Y+24,s); if (ly_university_cost>19999) { if (ly_university_cost>1999999) sprintf(s,"Uni %4dM",ly_university_cost/1000000); else sprintf(s,"Uni %4dK",ly_university_cost/1000); } else sprintf(s,"Uni %5d",ly_university_cost); Fgl_write(MINI_SCREEN_X+10,MINI_SCREEN_Y+32,s); if (ly_deaths_cost>19999) { if (ly_deaths_cost>1999999) sprintf(s,"UnD %4dM",ly_deaths_cost/1000000); else sprintf(s,"UnD %4dK",ly_deaths_cost/1000); } else sprintf(s,"UnD %5d",ly_deaths_cost); Fgl_write(MINI_SCREEN_X+10,MINI_SCREEN_Y+40,s); if (ly_windmill_cost>19999) { if (ly_windmill_cost>1999999) sprintf(s,"WiM %4dM",ly_windmill_cost/1000000); else sprintf(s,"WiM %4dK",ly_windmill_cost/1000); } else sprintf(s,"WiM %5d",ly_windmill_cost); Fgl_write(MINI_SCREEN_X+10,MINI_SCREEN_Y+48,s); if (ly_recycle_cost>19999) { if (ly_recycle_cost>1999999) sprintf(s,"Rcy %4dM",ly_recycle_cost/1000000); else sprintf(s,"Rcy %4dK",ly_recycle_cost/1000); } else sprintf(s,"Rcy %5d",ly_recycle_cost); Fgl_write(MINI_SCREEN_X+10,MINI_SCREEN_Y+56,s); if (ly_health_cost>19999) { if (ly_health_cost>1999999) sprintf(s,"Hth %4dM",ly_health_cost/1000000); else sprintf(s,"Hth %4dK",ly_health_cost/1000); } else sprintf(s,"Hth %5d",ly_health_cost); Fgl_write(MINI_SCREEN_X+10,MINI_SCREEN_Y+64,s); if (ly_rocket_pad_cost>19999) { if (ly_rocket_pad_cost>1999999) sprintf(s,"Rok %4dM",ly_rocket_pad_cost/1000000); else sprintf(s,"Rok %4dK",ly_rocket_pad_cost/1000); } else sprintf(s,"Rok %5d",ly_rocket_pad_cost); Fgl_write(MINI_SCREEN_X+10,MINI_SCREEN_Y+72,s); if (ly_fire_cost>19999) { if (ly_fire_cost>1999999) sprintf(s,"Fst %4dM",ly_fire_cost/1000000); else sprintf(s,"Fst %4dK",ly_fire_cost/1000); } else sprintf(s,"Fst %5d",ly_fire_cost); Fgl_write(MINI_SCREEN_X+10,MINI_SCREEN_Y+80,s); if (ly_cricket_cost>19999) { if (ly_cricket_cost>1999999) sprintf(s,"Ckt %4dM",ly_cricket_cost/1000000); else sprintf(s,"Ckt %4dK",ly_cricket_cost/1000); } else sprintf(s,"Ckt %5d",ly_cricket_cost); Fgl_write(MINI_SCREEN_X+10,MINI_SCREEN_Y+88,s); Fgl_setfontcolors(TEXT_BG_COLOUR,TEXT_FG_COLOUR); } void draw_mini_screen_port(void) { char buy[256],sell[256],s[256]; int l,i,*p1,*p2; mini_screen_flags=MINI_SCREEN_PORT_FLAG; Fgl_fillbox(MINI_SCREEN_X,MINI_SCREEN_Y ,WORLD_SIDE_LEN,WORLD_SIDE_LEN,green(12)); Fgl_setfontcolors(green(12),TEXT_FG_COLOUR); sprintf(s," Port %2d %2d",mini_screen_port_x,mini_screen_port_y); Fgl_write(MINI_SCREEN_X+4,MINI_SCREEN_Y+2,s); Fgl_write(MINI_SCREEN_X+4,MINI_SCREEN_Y+16," F C O G S"); Fgl_write(MINI_SCREEN_X+4,MINI_SCREEN_Y+26," Buy Sell"); p1=&(mappoint[mini_screen_port_x][mini_screen_port_y+1].int_3); p2=&(mappoint[mini_screen_port_x][mini_screen_port_y+2].int_3); for (i=0;i<5;i++) { l=*(p1++)/100; if (l>19999) { if (l>1999999) sprintf(buy,"%4dM",l/1000000); else sprintf(buy,"%4dK",l/1000); } else sprintf(buy,"%5d",l); l=*(p2++)/100; if (l>19999) { if (l>1999999) sprintf(sell,"%4dM",l/1000000); else sprintf(sell,"%4dK",l/1000); } else sprintf(sell,"%5d",l); sprintf(s,"%s %s",buy,sell); Fgl_write(MINI_SCREEN_X+10,MINI_SCREEN_Y+40+i*8,s); } Fgl_setfontcolors(TEXT_BG_COLOUR,TEXT_FG_COLOUR); } void draw_mini_screen_cursor(void) { Fgl_hline(MINI_SCREEN_X+main_screen_originx ,MINI_SCREEN_Y+main_screen_originy ,MINI_SCREEN_X+main_screen_originx+MAIN_WIN_W/16-1 ,green(30)); Fgl_hline(MINI_SCREEN_X+main_screen_originx ,MINI_SCREEN_Y+main_screen_originy+MAIN_WIN_H/16-1 ,MINI_SCREEN_X+main_screen_originx+MAIN_WIN_W/16-1 ,green(30)); Fgl_line(MINI_SCREEN_X+main_screen_originx ,MINI_SCREEN_Y+main_screen_originy ,MINI_SCREEN_X+main_screen_originx ,MINI_SCREEN_Y+main_screen_originy+MAIN_WIN_H/16-1 ,green(30)); Fgl_line(MINI_SCREEN_X+main_screen_originx+MAIN_WIN_W/16-1 ,MINI_SCREEN_Y+main_screen_originy ,MINI_SCREEN_X+main_screen_originx+MAIN_WIN_W/16-1 ,MINI_SCREEN_Y+main_screen_originy+MAIN_WIN_H/16-1 ,green(30)); } void print_stats(void) { static int flag=0; static int tfood_in_markets=0,tjobs_in_markets=0; static int tcoal_in_markets=0,tgoods_in_markets=0; static int tore_in_markets=0,tsteel_in_markets=0; int i; char s[100]; if (flag==0) { hide_mouse(); Fgl_write(STATS_X,STATS_Y,"Population "); Fgl_write(STATS_X,STATS_Y+8,"% Starving "); Fgl_write(STATS_X,STATS_Y+16,"Foodstore "); Fgl_write(STATS_X,STATS_Y+24,"% u-ployed "); Fgl_write(STATS_X+18*8,STATS_Y,"Tech level "); Fgl_write(STATS_X+18*8,STATS_Y+8,"Un-nat deaths "); Fgl_write(STATS_X+18*8,STATS_Y+16,"Rockets "); Fgl_write(STATS_X+18*8,STATS_Y+24,"Shanty towns"); for (i=1;i<8;i++) { // stats window Fgl_hline(STATS_X-1-i,STATS_Y-1-i ,STATS_X+STATS_W+1+i ,yellow(16)); Fgl_line(STATS_X-1-i,STATS_Y-1-i ,STATS_X-1-i ,STATS_Y+STATS_H+1+i ,yellow(14)); Fgl_hline(STATS_X-1-i ,STATS_Y+STATS_H+1+i ,STATS_X+STATS_W+1+i ,yellow(22)); Fgl_line(STATS_X+STATS_W+1+i ,STATS_Y-1-i ,STATS_X+STATS_W+1+i ,STATS_Y+STATS_H+1+i ,yellow(24)); // finance window Fgl_hline(FINANCE_X-1-i,FINANCE_Y-1-i ,FINANCE_X+FINANCE_W+1+i ,yellow(16)); Fgl_line(FINANCE_X-1-i,FINANCE_Y-1-i ,FINANCE_X-1-i ,FINANCE_Y+FINANCE_H+1+i ,yellow(14)); Fgl_hline(FINANCE_X-1-i ,FINANCE_Y+FINANCE_H+1+i ,FINANCE_X+FINANCE_W+1+i ,yellow(22)); Fgl_line(FINANCE_X+FINANCE_W+1+i ,FINANCE_Y-1-i ,FINANCE_X+FINANCE_W+1+i ,FINANCE_Y+FINANCE_H+1+i ,yellow(24)); } Fgl_write(FINANCE_X,FINANCE_Y,"Income Expend"); Fgl_write(FINANCE_X,FINANCE_Y+8,"IT"); Fgl_write(FINANCE_X,FINANCE_Y+16,"CT"); Fgl_write(FINANCE_X,FINANCE_Y+24,"GT"); Fgl_write(FINANCE_X,FINANCE_Y+32,"XP"); Fgl_write(FINANCE_X+64,FINANCE_Y+8,"OC"); Fgl_write(FINANCE_X+64,FINANCE_Y+16,"UC"); Fgl_write(FINANCE_X+64,FINANCE_Y+24,"TC"); Fgl_write(FINANCE_X+64,FINANCE_Y+32,"IP"); Fgl_write(FINANCE_X,FINANCE_Y+48,"Tot"); income_tax_rate=INCOME_TAX_RATE; coal_tax_rate=COAL_TAX_RATE; goods_tax_rate=GOODS_TAX_RATE; dole_rate=DOLE_RATE; transport_cost_rate=TRANSPORT_COST_RATE; import_cost_rate=IM_PORT_COST_RATE; flag=1; redraw_mouse(); } tpopulation+=population; tstarving_population+=starving_population; tfood_in_markets+=food_in_markets/1000; tjobs_in_markets+=jobs_in_markets/1000; tcoal_in_markets+=coal_in_markets/250; tgoods_in_markets+=goods_in_markets/500; tore_in_markets+=ore_in_markets/500; tsteel_in_markets+=steel_in_markets/25; tunemployed_population+=unemployed_population; if (total_time%NUMOF_DAYS_IN_MONTH==(NUMOF_DAYS_IN_MONTH-5)) update_select_buttons(); hide_mouse(); if (total_time%NUMOF_DAYS_IN_MONTH==(NUMOF_DAYS_IN_MONTH-20)) { do_pbar_population(population); do_pbar_tech(tech_level); do_pbar_money(total_money/400); } else if (total_time%NUMOF_DAYS_IN_MONTH==(NUMOF_DAYS_IN_MONTH-1)) { do_monthgraph(); housed_population=(tpopulation/NUMOF_DAYS_IN_MONTH); if ((housed_population+people_pool)>max_pop_ever) max_pop_ever=housed_population+people_pool; sprintf(s,"%5d ",housed_population+people_pool); Fgl_write(STATS_X+8*11,STATS_Y,s); i=((tstarving_population/NUMOF_DAYS_IN_MONTH) *1000)/((tpopulation/NUMOF_DAYS_IN_MONTH)+1); sprintf(s,"%3d.%1d ",i/10,i%10); Fgl_write(STATS_X+8*11,STATS_Y+8,s); sprintf(s,"%5d ",tfood_in_markets/NUMOF_DAYS_IN_MONTH); Fgl_write(STATS_X+8*11,STATS_Y+16,s); do_pbar_food(tfood_in_markets/NUMOF_DAYS_IN_MONTH); do_pbar_jobs(tjobs_in_markets/NUMOF_DAYS_IN_MONTH); do_pbar_coal(tcoal_in_markets/NUMOF_DAYS_IN_MONTH); do_pbar_goods(tgoods_in_markets/NUMOF_DAYS_IN_MONTH); do_pbar_ore(tore_in_markets/NUMOF_DAYS_IN_MONTH); do_pbar_steel(tsteel_in_markets/NUMOF_DAYS_IN_MONTH); i=((tunemployed_population/NUMOF_DAYS_IN_MONTH) *1000)/((tpopulation/NUMOF_DAYS_IN_MONTH)+1); sprintf(s,"%3d.%1d ",i/10,i%10); Fgl_write(STATS_X+8*11,STATS_Y+24,s); if (people_pool>100) { if (rand()%1000TECH_LEVEL_LOSS_START) { tech_level-=(tech_level/(TECH_LEVEL_LOSS -((tpopulation/NUMOF_DAYS_IN_MONTH)/120))); } else tech_level+=TECH_LEVEL_UNAIDED; // we can go over 100, but it's even more difficult if (tech_level>MAX_TECH_LEVEL) tech_level-=((tech_level-MAX_TECH_LEVEL) /(TECH_LEVEL_LOSS -((tpopulation/NUMOF_DAYS_IN_MONTH)/80))); if (highest_tech_level19999) { if (income_tax>1999999) sprintf(s,"%4dM",income_tax/1000000); else sprintf(s,"%4dK",income_tax/1000); } else sprintf(s,"%5d",income_tax); total_money+=income_tax; Fgl_write(FINANCE_X+2*8,FINANCE_Y+8,s); coal_tax=(coal_tax*coal_tax_rate)/100; if (coal_tax>19999) { if (coal_tax>1999999) sprintf(s,"%4dM",coal_tax/1000000); else sprintf(s,"%4dK",coal_tax/1000); } else sprintf(s,"%5d",coal_tax); total_money+=coal_tax; Fgl_write(FINANCE_X+2*8,FINANCE_Y+16,s); goods_tax=(goods_tax*goods_tax_rate)/100; goods_tax+=(int)((float)(goods_tax*goods_tax_rate) *(float)tech_level/2000000.0); if (goods_tax>19999) { if (goods_tax>1999999) sprintf(s,"%4dM",goods_tax/1000000); else sprintf(s,"%4dK",goods_tax/1000); } else sprintf(s,"%5d",goods_tax); total_money+=goods_tax; Fgl_write(FINANCE_X+2*8,FINANCE_Y+24,s); // The price of exports on the world market drops as you export more. // The exporters have to discount there wares, therefore the tax take is // less. if (export_tax>ex_tax_dis[0]) { int discount,disi; discount=0; for (disi=0;disiex_tax_dis[disi];disi++) discount+=(export_tax-ex_tax_dis[disi])/10; export_tax-=discount; } if (export_tax>19999) { if (export_tax>1999999) sprintf(s,"%4dM",export_tax/1000000); else sprintf(s,"%4dK",export_tax/1000); } else sprintf(s,"%5d",export_tax); total_money+=export_tax; Fgl_write(FINANCE_X+2*8,FINANCE_Y+32,s); ly_university_cost=university_cost; ly_recycle_cost=recycle_cost; ly_deaths_cost=deaths_cost; ly_health_cost=(health_cost*(tech_level/10000) *HEALTH_RUNNING_COST_MUL)/(MAX_TECH_LEVEL/10000); ly_rocket_pad_cost=rocket_pad_cost; ly_school_cost=school_cost; ly_windmill_cost=windmill_cost; ly_fire_cost=(fire_cost*(tech_level/10000) *FIRESTATION_RUNNING_COST_MUL) /(MAX_TECH_LEVEL/10000); ly_cricket_cost=cricket_cost; if (total_money<0) { ly_interest=((-total_money/1000)*INTEREST_RATE); if (ly_interest>1000000) ly_interest=1000000; } else ly_interest=0; other_cost=university_cost+recycle_cost+deaths_cost +ly_health_cost+rocket_pad_cost+school_cost +ly_interest+windmill_cost+ly_fire_cost +ly_cricket_cost; if (other_cost>19999) { if (other_cost>1999999) sprintf(s,"%4dM",other_cost/1000000); else sprintf(s,"%4dK",other_cost/1000); } else sprintf(s,"%5d",other_cost); total_money-=other_cost; Fgl_write(FINANCE_X+10*8,FINANCE_Y+8,s); unemployment_cost=(unemployment_cost*dole_rate)/100; if (unemployment_cost>19999) { if (unemployment_cost>1999999) sprintf(s,"%4dM",unemployment_cost/1000000); else sprintf(s,"%4dK",unemployment_cost/1000); } else sprintf(s,"%5d",unemployment_cost); total_money-=unemployment_cost; Fgl_write(FINANCE_X+10*8,FINANCE_Y+16,s); transport_cost=(transport_cost*transport_cost_rate)/100; if (transport_cost>19999) { if (transport_cost>1999999) sprintf(s,"%4dM",transport_cost/1000000); else sprintf(s,"%4dK",transport_cost/1000); } else sprintf(s,"%5d",transport_cost); total_money-=transport_cost; Fgl_write(FINANCE_X+10*8,FINANCE_Y+24,s); import_cost=(import_cost*import_cost_rate)/100; if (import_cost>19999) { if (import_cost>1999999) sprintf(s,"%4dM",import_cost/1000000); else sprintf(s,"%4dK",import_cost/1000); } else sprintf(s,"%5d",import_cost); total_money-=import_cost; Fgl_write(FINANCE_X+10*8,FINANCE_Y+32,s); income_tax=coal_tax=unemployment_cost=transport_cost =goods_tax=export_tax=import_cost=windmill_cost =university_cost=recycle_cost=deaths_cost =health_cost=rocket_pad_cost=school_cost =fire_cost=cricket_cost=0; print_total_money(); } redraw_mouse(); } void print_total_money(void) { char s[100],s2[100],i; if (total_money>2000000000) total_money=2000000000; else if (total_money<-2000000000) total_money=-2000000000; if (total_money/1000000==0) strcpy(s," "); else sprintf(s,"%5d",total_money/1000000); if ((total_money<0) && (total_money/1000000 !=0)) sprintf(s2," %06d",-total_money%1000000); else if (total_money/1000000 !=0) sprintf(s2," %06d",total_money%1000000); else sprintf(s2,"%7d",total_money%1000000); if (total_money/1000000!=0) s2[0]=MONEY_SEPARATOR; strcat(s,s2); i=3; if (total_money<0) Fgl_setfontcolors(TEXT_BG_COLOUR,red(30)); Fgl_write(FINANCE_X+i*8,FINANCE_Y+48,s); if (total_money<0) Fgl_setfontcolors(TEXT_BG_COLOUR,TEXT_FG_COLOUR); } void do_monthgraph(void) { static int flag=0; int i; float f; if (flag==0) { Fgl_fillbox(MONTHGRAPH_X,MONTHGRAPH_Y,MONTHGRAPH_W+1 ,MONTHGRAPH_H+1,GRAPHS_B_COLOUR); Fgl_fillbox(MAPPOINT_STATS_X ,MAPPOINT_STATS_Y,MAPPOINT_STATS_W ,MAPPOINT_STATS_H,GRAPHS_B_COLOUR); flag=1; // draw borders for (i=1;i<8;i++) { // pop graph Fgl_hline(MONTHGRAPH_X-1-i,MONTHGRAPH_Y-1-i ,MONTHGRAPH_X+MONTHGRAPH_W+1+i ,yellow(16)); Fgl_line(MONTHGRAPH_X-1-i,MONTHGRAPH_Y-1-i ,MONTHGRAPH_X-1-i ,MONTHGRAPH_Y+MONTHGRAPH_H+1+i ,yellow(14)); Fgl_hline(MONTHGRAPH_X-1-i ,MONTHGRAPH_Y+MONTHGRAPH_H+1+i ,MONTHGRAPH_X+MONTHGRAPH_W+1+i ,yellow(22)); Fgl_line(MONTHGRAPH_X+MONTHGRAPH_W+1+i ,MONTHGRAPH_Y-1-i ,MONTHGRAPH_X+MONTHGRAPH_W+1+i ,MONTHGRAPH_Y+MONTHGRAPH_H+1+i ,yellow(24)); // diff graph Fgl_hline(MAPPOINT_STATS_X-1-i,MAPPOINT_STATS_Y-1-i ,MAPPOINT_STATS_X+MAPPOINT_STATS_W+1+i ,yellow(16)); Fgl_line(MAPPOINT_STATS_X-1-i,MAPPOINT_STATS_Y-1-i ,MAPPOINT_STATS_X-1-i ,MAPPOINT_STATS_Y+MAPPOINT_STATS_H+1+i ,yellow(14)); Fgl_hline(MAPPOINT_STATS_X-1-i ,MAPPOINT_STATS_Y+MAPPOINT_STATS_H+1+i ,MAPPOINT_STATS_X+MAPPOINT_STATS_W+1+i ,yellow(22)); Fgl_line(MAPPOINT_STATS_X+MAPPOINT_STATS_W+1+i ,MAPPOINT_STATS_Y-1-i ,MAPPOINT_STATS_X+MAPPOINT_STATS_W+1+i ,MAPPOINT_STATS_Y+MAPPOINT_STATS_H+1+i ,yellow(24)); } } for (i=MONTHGRAPH_W-1;i>0;i--) { Fgl_setpixel(MONTHGRAPH_X+MONTHGRAPH_W-i ,MONTHGRAPH_Y+MONTHGRAPH_H-monthgraph_pop[i] ,GRAPHS_B_COLOUR); monthgraph_pop[i]=monthgraph_pop[i-1]; Fgl_setpixel(MONTHGRAPH_X+MONTHGRAPH_W-i ,MONTHGRAPH_Y+MONTHGRAPH_H-monthgraph_pop[i],7); Fgl_setpixel(MONTHGRAPH_X+MONTHGRAPH_W-i ,MONTHGRAPH_Y+MONTHGRAPH_H-monthgraph_ppool[i] ,GRAPHS_B_COLOUR); monthgraph_ppool[i]=monthgraph_ppool[i-1]; Fgl_setpixel(MONTHGRAPH_X+MONTHGRAPH_W-i ,MONTHGRAPH_Y+MONTHGRAPH_H-monthgraph_ppool[i] ,cyan(24)); Fgl_line(MONTHGRAPH_X+MONTHGRAPH_W-i ,MONTHGRAPH_Y+MONTHGRAPH_H-monthgraph_nojobs[i] ,MONTHGRAPH_X+MONTHGRAPH_W-i ,MONTHGRAPH_Y+MONTHGRAPH_H ,GRAPHS_B_COLOUR); monthgraph_nojobs[i]=monthgraph_nojobs[i-1]; Fgl_line(MONTHGRAPH_X+MONTHGRAPH_W-i ,MONTHGRAPH_Y+MONTHGRAPH_H-monthgraph_nojobs[i] ,MONTHGRAPH_X+MONTHGRAPH_W-i ,MONTHGRAPH_Y+MONTHGRAPH_H ,yellow(24)); Fgl_line(MONTHGRAPH_X+MONTHGRAPH_W-i ,MONTHGRAPH_Y+MONTHGRAPH_H-monthgraph_starve[i] ,MONTHGRAPH_X+MONTHGRAPH_W-i ,MONTHGRAPH_Y+MONTHGRAPH_H ,GRAPHS_B_COLOUR); monthgraph_starve[i]=monthgraph_starve[i-1]; Fgl_line(MONTHGRAPH_X+MONTHGRAPH_W-i ,MONTHGRAPH_Y+MONTHGRAPH_H-monthgraph_starve[i] ,MONTHGRAPH_X+MONTHGRAPH_W-i ,MONTHGRAPH_Y+MONTHGRAPH_H ,red(24)); // diff graph stuff. We can't draw it because the box might be used to // show the mappoint stats. diffgraph_power[i]=diffgraph_power[i-1]; diffgraph_population[i]=diffgraph_population[i-1]; diffgraph_coal[i]=diffgraph_coal[i-1]; diffgraph_goods[i]=diffgraph_goods[i-1]; diffgraph_ore[i]=diffgraph_ore[i-1]; } if (tpopulation>0) { Fgl_setpixel(MONTHGRAPH_X+MONTHGRAPH_W ,MONTHGRAPH_Y+MONTHGRAPH_H-monthgraph_pop[0],GRAPHS_B_COLOUR); Fgl_setpixel(MONTHGRAPH_X+MONTHGRAPH_W,MONTHGRAPH_Y +MONTHGRAPH_H-monthgraph_starve[0],GRAPHS_B_COLOUR); Fgl_setpixel(MONTHGRAPH_X+MONTHGRAPH_W ,MONTHGRAPH_Y+MONTHGRAPH_H-monthgraph_nojobs[0] ,GRAPHS_B_COLOUR); Fgl_setpixel(MONTHGRAPH_X+MONTHGRAPH_W ,MONTHGRAPH_Y+MONTHGRAPH_H-monthgraph_ppool[0] ,GRAPHS_B_COLOUR); monthgraph_pop[0]=((int)(log((tpopulation/NUMOF_DAYS_IN_MONTH)+1) *MONTHGRAPH_H/15))-5; if (monthgraph_pop[0]<0) monthgraph_pop[0]=0; f=((float)tstarving_population/((float)tpopulation+1.0))*100.0; if (tpopulation>3000) // double the scale if pop > 3000 f+=f; if (tpopulation>6000) // double it AGAIN if pop > 6000 f+=f; monthgraph_starve[0]=(int)f; // max out at 32 if (monthgraph_starve[0]>=MONTHGRAPH_H) monthgraph_starve[0]=MONTHGRAPH_H-1; f=((float)tunemployed_population/((float)tpopulation+1.0))*100.0; if (tpopulation>3000) // double the scale if pop > 3000 f+=f; if (tpopulation>6000) // double it AGAIN if pop > 6000 f+=f; monthgraph_nojobs[0]=(int)f; // max out at 32 if(monthgraph_nojobs[0]>=MONTHGRAPH_H) monthgraph_nojobs[0]=MONTHGRAPH_H-1; monthgraph_ppool[0]=((int)(sqrt(people_pool+1)*MONTHGRAPH_H)/35); if (monthgraph_ppool[0]<0) monthgraph_ppool[0]=0; if (monthgraph_ppool[0]>=MONTHGRAPH_H) monthgraph_ppool[0]=MONTHGRAPH_H-1; Fgl_setpixel(MONTHGRAPH_X+MONTHGRAPH_W ,MONTHGRAPH_Y+MONTHGRAPH_H-monthgraph_pop[0],7); Fgl_setpixel(MONTHGRAPH_X+MONTHGRAPH_W ,MONTHGRAPH_Y+MONTHGRAPH_H-monthgraph_starve[0],red(24)); Fgl_setpixel(MONTHGRAPH_X+MONTHGRAPH_W ,MONTHGRAPH_Y+MONTHGRAPH_H-monthgraph_nojobs[0],yellow(24)); Fgl_setpixel(MONTHGRAPH_X+MONTHGRAPH_W ,MONTHGRAPH_Y+MONTHGRAPH_H-monthgraph_ppool[0],cyan(24)); } // diff graph new values i=(power_made-power_used)*4; power_made=power_used=0; if (i==0) diffgraph_power[0]=diffgraph_power[1]/2; else if (i<0) { if (i<-((MAPPOINT_STATS_H/4)-1)) i=-((MAPPOINT_STATS_H/4)-1); diffgraph_power[0]=(i+diffgraph_power[1])/2; } else { if (i>(MAPPOINT_STATS_H/4)-1) i=(MAPPOINT_STATS_H/4)-1; diffgraph_power[0]=(i+diffgraph_power[1])/2; } i=(population-diff_old_population); diff_old_population=population; if (i==0) diffgraph_population[0]=diffgraph_population[1]/2; else if (i<0) { if (i<-((MAPPOINT_STATS_H/4)-1)) i=-((MAPPOINT_STATS_H/4)-1); diffgraph_population[0]=(i+diffgraph_population[1])/2; } else { if (i>(MAPPOINT_STATS_H/4)-1) i=(MAPPOINT_STATS_H/4)-1; diffgraph_population[0]=(i+diffgraph_population[1])/2; } i=coal_made-coal_used; coal_made=coal_used=0; if (i==0) diffgraph_coal[0]=diffgraph_coal[1]/2; else if (i<0) { i=(int)(log(-i)); if (i>(MAPPOINT_STATS_H/4)-1) i=(MAPPOINT_STATS_H/4)-1; diffgraph_coal[0]=(-i+diffgraph_coal[1])/2; } else { i=(int)(log(i)); if (i>(MAPPOINT_STATS_H/4)-1) i=(MAPPOINT_STATS_H/4)-1; diffgraph_coal[0]=(i+diffgraph_coal[1])/2; } i=(goods_made-goods_used); goods_made=goods_used=0; if (i==0) diffgraph_goods[0]=diffgraph_goods[1]/2; else if (i<0) { i=(int)(log(-i)); if (i>(MAPPOINT_STATS_H/4)-1) i=(MAPPOINT_STATS_H/4)-1; diffgraph_goods[0]=(-i+diffgraph_goods[1])/2; } else { i=(int)(log(i)); if (i>(MAPPOINT_STATS_H/4)-1) i=(MAPPOINT_STATS_H/4)-1; diffgraph_goods[0]=(i+diffgraph_goods[1])/2; } i=(ore_made-ore_used)/2; ore_made=ore_used=0; if (i==0) diffgraph_ore[0]=diffgraph_ore[1]/2; else if (i<0) { i=(int)(log(-i)); if (i>(MAPPOINT_STATS_H/4)-1) i=(MAPPOINT_STATS_H/4)-1; diffgraph_ore[0]=(-i+diffgraph_ore[1])/2; } else { i=(int)(log(i)); if (i>(MAPPOINT_STATS_H/4)-1) i=(MAPPOINT_STATS_H/4)-1; diffgraph_ore[0]=(i+diffgraph_ore[1])/2; } // now draw the graph if not used by mappoint stats if (mappoint_stats_flag==0) draw_diffgraph(); } void draw_diffgraph(void) { int i; // got to fill the whole box because we lost the old data Fgl_fillbox(MAPPOINT_STATS_X ,MAPPOINT_STATS_Y,MAPPOINT_STATS_W+1 ,MAPPOINT_STATS_H+1,GRAPHS_B_COLOUR); for (i=MONTHGRAPH_W-1;i>=0;i--) { Fgl_setpixel(MAPPOINT_STATS_X+MAPPOINT_STATS_W-i ,(MAPPOINT_STATS_Y+(3*MAPPOINT_STATS_H)/4) -diffgraph_ore[i],DIFFGRAPH_ORE_COLOUR); Fgl_setpixel(MAPPOINT_STATS_X+MAPPOINT_STATS_W-i ,(MAPPOINT_STATS_Y+(3*MAPPOINT_STATS_H)/4) -diffgraph_goods[i],DIFFGRAPH_GOODS_COLOUR); Fgl_setpixel(MAPPOINT_STATS_X+MAPPOINT_STATS_W-i ,(MAPPOINT_STATS_Y+(3*MAPPOINT_STATS_H)/4) -diffgraph_coal[i],DIFFGRAPH_COAL_COLOUR); Fgl_setpixel(MAPPOINT_STATS_X+MAPPOINT_STATS_W-i ,(MAPPOINT_STATS_Y+MAPPOINT_STATS_H/4) -diffgraph_population[i],DIFFGRAPH_POPULATION_COLOUR); Fgl_setpixel(MAPPOINT_STATS_X+MAPPOINT_STATS_W-i ,(MAPPOINT_STATS_Y+MAPPOINT_STATS_H/4) -diffgraph_power[i],DIFFGRAPH_POWER_COLOUR); } // centre lines Fgl_hline(MAPPOINT_STATS_X ,MAPPOINT_STATS_Y+MAPPOINT_STATS_H/4 ,MAPPOINT_STATS_X+MAPPOINT_STATS_W-1,white(22)); Fgl_hline(MAPPOINT_STATS_X ,MAPPOINT_STATS_Y+(3*MAPPOINT_STATS_H)/4 ,MAPPOINT_STATS_X+MAPPOINT_STATS_W-1,white(22)); Fgl_hline(MAPPOINT_STATS_X ,MAPPOINT_STATS_Y+MAPPOINT_STATS_H/2 ,MAPPOINT_STATS_X+MAPPOINT_STATS_W-1,0); } void clicked_market_cb(int x,int y) { market_cb_flag=1; mcbx=x; mcby=y; } //void draw_market_cb(int x,int y) // x & y are the market's pos. void draw_market_cb(void) // x & y are the market's pos. { int x,y,flags; char s[100]; #ifdef LC_X11 market_cb_drawn_flag=1; #endif x=mcbx; y=mcby; flags=mappoint[x][y].flags; Fgl_getbox(MARKET_CB_X,MARKET_CB_Y,MARKET_CB_W,MARKET_CB_H ,market_cb_gbuf); Fgl_fillbox(MARKET_CB_X,MARKET_CB_Y,MARKET_CB_W,MARKET_CB_H,28); #ifdef USE_EXPANDED_FONT gl_setwritemode(WRITEMODE_MASKED | FONT_EXPANDED); #endif Fgl_write(MARKET_CB_X+6*8,MARKET_CB_Y+1,"Market"); Fgl_write(MARKET_CB_X+7*8,MARKET_CB_Y+4*8,"FOOD"); Fgl_write(MARKET_CB_X+7*8,MARKET_CB_Y+7*8,"JOBS"); Fgl_write(MARKET_CB_X+7*8,MARKET_CB_Y+10*8,"COAL"); Fgl_write(MARKET_CB_X+7*8+4,MARKET_CB_Y+13*8,"ORE"); Fgl_write(MARKET_CB_X+6*8+4,MARKET_CB_Y+16*8,"GOODS"); Fgl_write(MARKET_CB_X+6*8+4,MARKET_CB_Y+19*8,"STEEL"); Fgl_write(MARKET_CB_X+12,MARKET_CB_Y+2*8,"Buy"); Fgl_write(MARKET_CB_X+14*8,MARKET_CB_Y+2*8,"Sell"); sprintf(s,"%3d",x); s[3]=','; s[4]=0; Fgl_write(MARKET_CB_X+5*8+4,MARKET_CB_Y+2*8,s); sprintf(s,"%3d",y); Fgl_write(MARKET_CB_X+9*8+4,MARKET_CB_Y+2*8,s); #ifdef USE_EXPANDED_FONT gl_setwritemode(WRITEMODE_OVERWRITE | FONT_EXPANDED); #endif if ((flags & FLAG_MB_FOOD)!=0) Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+3*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+3*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MS_FOOD)!=0) Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+3*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+3*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MB_JOBS)!=0) Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+6*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+6*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MS_JOBS)!=0) Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+6*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+6*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MB_COAL)!=0) Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+9*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+9*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MS_COAL)!=0) Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+9*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+9*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MB_ORE)!=0) Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+12*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+12*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MS_ORE)!=0) Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+12*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+12*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MB_GOODS)!=0) Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+15*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+15*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MS_GOODS)!=0) Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+15*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+15*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MB_STEEL)!=0) Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+18*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+18*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MS_STEEL)!=0) Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+18*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+18*8+4,16,16 ,unchecked_box_graphic); } void close_market_cb(void) { market_cb_flag=0; #ifdef LC_X11 market_cb_drawn_flag=0; #endif Fgl_putbox(MARKET_CB_X,MARKET_CB_Y,MARKET_CB_W,MARKET_CB_H ,market_cb_gbuf); // when exiting market cb, stop the mouse repeating straight away cs_mouse_button=MOUSE_LEFTBUTTON; cs_mouse_button_repeat=real_time+1000; } void clicked_port_cb(int x,int y) { port_cb_flag=1; mcbx=x; mcby=y; } //void draw_port_cb(int x,int y) // x & y are the market's pos. void draw_port_cb(void) // x & y are the market's pos. { int x,y,flags; char s[100]; #ifdef LC_X11 port_cb_drawn_flag=1; #endif x=mcbx; y=mcby; flags=mappoint[x][y].flags; // use the market cb resources where possible. Fgl_getbox(MARKET_CB_X,MARKET_CB_Y,MARKET_CB_W,MARKET_CB_H ,market_cb_gbuf); Fgl_fillbox(MARKET_CB_X,MARKET_CB_Y,MARKET_CB_W,MARKET_CB_H,28); #ifdef USE_EXPANDED_FONT gl_setwritemode(WRITEMODE_MASKED | FONT_EXPANDED); #endif Fgl_write(MARKET_CB_X+7*8,MARKET_CB_Y+1,"Port"); Fgl_write(MARKET_CB_X+7*8,MARKET_CB_Y+7*8,"FOOD"); Fgl_write(MARKET_CB_X+7*8,MARKET_CB_Y+10*8,"COAL"); Fgl_write(MARKET_CB_X+7*8+4,MARKET_CB_Y+13*8,"ORE"); Fgl_write(MARKET_CB_X+6*8+4,MARKET_CB_Y+16*8,"GOODS"); Fgl_write(MARKET_CB_X+6*8+4,MARKET_CB_Y+19*8,"STEEL"); Fgl_write(MARKET_CB_X+12,MARKET_CB_Y+2*8,"Buy"); Fgl_write(MARKET_CB_X+14*8,MARKET_CB_Y+2*8,"Sell"); sprintf(s,"%3d",x); s[3]=','; s[4]=0; Fgl_write(MARKET_CB_X+5*8+4,MARKET_CB_Y+2*8,s); sprintf(s,"%3d",y); Fgl_write(MARKET_CB_X+9*8+4,MARKET_CB_Y+2*8,s); #ifdef USE_EXPANDED_FONT gl_setwritemode(WRITEMODE_OVERWRITE | FONT_EXPANDED); #endif if ((flags & FLAG_MB_FOOD)!=0) Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+6*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+6*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MS_FOOD)!=0) Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+6*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+6*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MB_COAL)!=0) Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+9*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+9*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MS_COAL)!=0) Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+9*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+9*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MB_ORE)!=0) Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+12*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+12*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MS_ORE)!=0) Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+12*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+12*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MB_GOODS)!=0) Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+15*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+15*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MS_GOODS)!=0) Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+15*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+15*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MB_STEEL)!=0) Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+18*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+2*8,MARKET_CB_Y+18*8+4,16,16 ,unchecked_box_graphic); if ((flags & FLAG_MS_STEEL)!=0) Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+18*8+4,16,16 ,checked_box_graphic); else Fgl_putbox(MARKET_CB_X+14*8,MARKET_CB_Y+18*8+4,16,16 ,unchecked_box_graphic); } void close_port_cb(void) { port_cb_flag=0; #ifdef LC_X11 port_cb_drawn_flag=0; #endif Fgl_putbox(MARKET_CB_X,MARKET_CB_Y,MARKET_CB_W,MARKET_CB_H ,market_cb_gbuf); // when exiting port cb, stop the mouse repeating straight away cs_mouse_button=MOUSE_LEFTBUTTON; cs_mouse_button_repeat=real_time+1000; } int yn_dial_box(char *title,char *s1,char *s2,char *s3) { int x,y,h,i; unsigned int w=0; cs_mouse_button_delay=0; // find len of longest string if (strlen(s1)>w) w=strlen(s1); if (strlen(s2)>w) w=strlen(s2); if (strlen(s3)>w) w=strlen(s3); w+=4; // add a few spaces to the sides if (w<20) // min width w=20; w*=8; // convert chars to pixels x=(640/2)-(w/2); y=(480/2)-(8*9/2); h=9*8; char *ss = new char[(w+16)*(h+16)]; hide_mouse(); Fgl_getbox(x-8,y-8,w+16,h+16,ss); Fgl_fillbox(x,y,w,h,YN_DIALBOX_BG_COLOUR); for (i=1;i<8;i++) { Fgl_hline(x-i,y-i,x+w+i-1,YN_DIALBOX_BG_COLOUR+i+i); Fgl_hline(x-i,y+h+i-1,x+w+i-1,YN_DIALBOX_BG_COLOUR+i+i); Fgl_line(x-i,y-i,x-i,y+h+i-1,YN_DIALBOX_BG_COLOUR+i+i); Fgl_line(x+w+i-1,y-i,x+w+i-1,y+h+i-1,YN_DIALBOX_BG_COLOUR+i+i); } db_yesbox_x1=x+w/4-(2*8); db_yesbox_x2=db_yesbox_x1+4*8; db_yesbox_y1=(y+h-14-1); db_yesbox_y2=db_yesbox_y1+10+2; db_nobox_x1=x+((3*w)/4)-(2*8); db_nobox_x2=db_nobox_x1+4*8; db_nobox_y1=(y+h-14-1); db_nobox_y2=db_nobox_y1+10+2; Fgl_fillbox(db_yesbox_x1,db_yesbox_y1,4*8,10+2,white(0)); Fgl_fillbox(db_nobox_x1,db_nobox_y1,4*8,10+2,white(0)); Fgl_write(db_yesbox_x1+4,db_yesbox_y1+2,"YES"); Fgl_write(db_nobox_x1+8,db_nobox_y1+2,"NO"); #ifdef USE_EXPANDED_FONT gl_setwritemode(WRITEMODE_MASKED | FONT_EXPANDED); #else Fgl_setfontcolors(YN_DIALBOX_BG_COLOUR,TEXT_FG_COLOUR); #endif Fgl_write((x+w/2)-(strlen(title)*4),y+4,title); Fgl_write((x+w/2)-(strlen(s1)*4),y+20,s1); Fgl_write((x+w/2)-(strlen(s2)*4),y+30,s2); Fgl_write((x+w/2)-(strlen(s3)*4),y+40,s3); #ifdef USE_EXPANDED_FONT gl_setwritemode(WRITEMODE_OVERWRITE | FONT_EXPANDED); #else Fgl_setfontcolors(TEXT_BG_COLOUR,TEXT_FG_COLOUR); #endif redraw_mouse(); db_flag=1; // shake the mouse a bit to make sure we have the correct cursor. cs_mouse_handler(0,-1,0); cs_mouse_handler(0,1,0); db_yesbox_clicked=0; db_nobox_clicked=0; db_yesbox_clicked=0; db_nobox_clicked=0; do { lc_usleep(1000); #ifdef LC_X11 call_event(); i=x_key_value; x_key_value=0; #else mouse_update(); i=vga_getkey(); #endif if (i==10 || i==13 || i==' ' || i=='y' || i=='Y') db_yesbox_clicked=1; else if (i=='n' || i==127 || i=='N') db_nobox_clicked=1; } while (db_yesbox_clicked==0 && db_nobox_clicked==0); db_flag=0; hide_mouse(); Fgl_putbox(x-8,y-8,w+16,h+16,ss); redraw_mouse(); // shake the mouse a bit to make sure we have the correct cursor. cs_mouse_handler(0,-1,0); cs_mouse_handler(0,1,0); delete /* [(w+16)*(h+16)] */ ss; // this flag is there to reset the mouse button, mouse_update() is not // 'very' re-entrant, so I've got to clean it up after we get out of here. // Yet another hack that I don't like! I need to get these dial boxes // in the main loop! reset_mouse_flag=1; cs_mouse_button_repeat=real_time+1000; if (db_yesbox_clicked!=0) return(1); return(0); } void ok_dial_box(char *fn,int good_bad,char *xs) { char s[100]; int i,l,x,y,h,w,colour; FILE *inf; cs_mouse_button_delay=0; // select which colour to draw the box in. if (suppress_ok_buttons!=0) return; if (good_bad==GOOD || good_bad==RESULTS) colour=green(14); else if (good_bad==BAD) colour=red(12); else colour=white(12); if (good_bad==RESULTS) strcpy(s,fn); else { strcpy(s,message_path); strcat(s,fn); } if ((inf=fopen(s,"r"))==NULL) { printf("Can't open message <%s> for OK dialog box\n",s); strcpy(s,message_path); strcat(s,"error.mes"); if ((inf=fopen(s,"r"))==NULL) { fprintf(stderr ,"Can't open default message <%s> either\n",s); fprintf(stderr," ...it was not displayed"); return; } } // static 74*22 char array for the message info array l=0; while (feof(inf)==0 && l<20) { if (fgets(okmessage[l],70,inf)==0) break; l++; } fclose(inf); if (xs!=0) { strncpy(okmessage[l],xs,70); l++; } // 'l' is now the number of lines. Work out the height of the box. h=(l+3)*10; // half a line above and below the title, 2 lines // for the ok button. 10 pixels per line w=0; // Get rid of new line and work out the width of the logest line. for (i=0;i(unsigned int)w) w=strlen(okmessage[i]); } w=(w+2)*8; // leave a space at either side. // now we can work out the x and y points. x=(640/2)-(w/2); y=(480/2)-(h/2); char *ss = new char[(w+16)*(h+16)]; hide_mouse(); Fgl_getbox(x-8,y-8,w+16,h+16,ss); Fgl_fillbox(x,y,w,h,colour); for (i=1;i<8;i++) { Fgl_hline(x-i,y-i,x+w+i-1,colour+i+i); Fgl_hline(x-i,y+h+i-1,x+w+i-1,colour+i+i); Fgl_line(x-i,y-i,x-i,y+h+i-1,colour+i+i); Fgl_line(x+w+i-1,y-i,x+w+i-1,y+h+i-1,colour+i+i); } db_okbox_x1=x+w/2-(2*8); db_okbox_x2=db_okbox_x1+4*8; db_okbox_y1=y+h-15; db_okbox_y2=db_okbox_y1+12; Fgl_fillbox(db_okbox_x1,db_okbox_y1,4*8,10+2,white(0)); Fgl_write(db_okbox_x1+8,db_okbox_y1+2,"OK"); #ifdef USE_EXPANDED_FONT gl_setwritemode(WRITEMODE_MASKED | FONT_EXPANDED); #else Fgl_setfontcolors(colour,TEXT_FG_COLOUR); #endif Fgl_write((x+w/2)-(strlen(okmessage[0])*4),y+4,okmessage[0]); for (i=1;i0) ok_dial_box("oremineup.mes",GOOD,0L); } else if (button==GROUP_EX_PORT) // exports are the same ok_dial_box("import-exportup.mes",GOOD,0L); else if (button==GROUP_INDUSTRY_H) ok_dial_box("hvindustryup.mes",GOOD,0L); else if (button==GROUP_PARKLAND) { if (GROUP_PARKLAND_TECH>0) ok_dial_box("parkup.mes",GOOD,0L); } else if (button==GROUP_RECYCLE) ok_dial_box("recycleup.mes",GOOD,0L); else if (button==GROUP_RIVER) { if (GROUP_WATER_TECH>0) ok_dial_box("riverup.mes",GOOD,0L); } else if (button==GROUP_HEALTH) ok_dial_box("healthup.mes",GOOD,0L); else if (button==GROUP_ROCKET) ok_dial_box("rocketup.mes",GOOD,0L); else if (button==GROUP_SCHOOL) { if (GROUP_SCHOOL_TECH>0) ok_dial_box("schoolup.mes",GOOD,0L); } else if (button==GROUP_BLACKSMITH) { if (GROUP_BLACKSMITH_TECH>0) ok_dial_box("blacksmithup.mes",GOOD,0L); } else if (button==GROUP_MILL) { if (GROUP_MILL_TECH>0) ok_dial_box("millup.mes",GOOD,0L); } else if (button==GROUP_POTTERY) { if (GROUP_POTTERY_TECH>0) ok_dial_box("potteryup.mes",GOOD,0L); } else if (button==GROUP_FIRESTATION) ok_dial_box("firestationup.mes",GOOD,0L); else if (button==GROUP_CRICKET) ok_dial_box("cricketup.mes",GOOD,0L); } // add spaces to the begining of the string. void beg_space_pad(char *s,int l) { char ss[100]; int x,y; if ((x=strlen(s))>=l) return; x-=l; ss[0]=0; for (y=0;y(PBAR_SIZE_Y/2)-8) offset=(PBAR_SIZE_Y/2)-8; oldoffset=(int)sqrt(oldval); if (oldoffset>(PBAR_SIZE_Y/2)-8) oldoffset=(PBAR_SIZE_Y/2)-8; if (offset==oldoffset) return; Fgl_enableclipping(); Fgl_setclippingwindow(x+2,y+2,x+2+PBAR_SIZE_X ,y+2+(PBAR_SIZE_Y/2)-8); if (offset15) Fgl_putbox(x+2,y+2+(PBAR_SIZE_Y/2)+7-offset ,16,16,up_pbar2_graphic); Fgl_disableclipping(); } void draw_down_pbar(int x,int y,int val,int oldval) // offset is sqrt(val) - max = (PBAR_SIZE_Y/2)-8 { int offset,oldoffset; offset=(int)sqrt(val); if (offset>(PBAR_SIZE_Y/2)-8) offset=(PBAR_SIZE_Y/2)-8; oldoffset=(int)sqrt(oldval); if (oldoffset>(PBAR_SIZE_Y/2)-8) oldoffset=(PBAR_SIZE_Y/2)-8; if (offset==oldoffset) return; Fgl_enableclipping(); Fgl_setclippingwindow(x+2,y+2+(PBAR_SIZE_Y/2)+8 ,x+2+PBAR_SIZE_X,y+2+PBAR_SIZE_Y-2); if (offset15) Fgl_putbox(x+2,y+2+(PBAR_SIZE_Y/2)-24+offset ,16,16,down_pbar2_graphic); Fgl_disableclipping(); } void do_pbar_population(int pop) { static int flag=0; int i,tot=0,diff=0; if (flag==0) { flag=1; for (i=0;i<12;i++) // Don't think this is needed pbar_pops[i]=0; // Do it anyway. for (i=0;i<2;i++) { Fgl_hline(PBAR_POP_X+i,PBAR_POP_Y+i ,PBAR_POP_X+(PBAR_SIZE_X+3)-i,yellow(12)); Fgl_hline(PBAR_POP_X+i,PBAR_POP_Y+(PBAR_SIZE_Y+3)-i ,PBAR_POP_X+(PBAR_SIZE_X+3)-i,yellow(24)); Fgl_line(PBAR_POP_X+i,PBAR_POP_Y+1+i,PBAR_POP_X+i ,PBAR_POP_Y+(PBAR_SIZE_Y+2)-i,yellow(14)); Fgl_line(PBAR_POP_X+(PBAR_SIZE_X+3)-i,PBAR_POP_Y+1+i ,PBAR_POP_X+(PBAR_SIZE_X+3)-i ,PBAR_POP_Y+(PBAR_SIZE_Y+2)-i,yellow(22)); } Fgl_fillbox(PBAR_POP_X+2,PBAR_POP_Y+2 ,PBAR_SIZE_X,PBAR_SIZE_Y,0); Fgl_putbox(PBAR_POP_X+2,PBAR_POP_Y+(PBAR_SIZE_Y/2)-6 ,16,16 ,pop_pbar_graphic); } for (i=0;i<11;i++) // go on, it's only 11 :) tot+=(pbar_pops[i]=pbar_pops[i+1]); tot+=(pbar_pops[11]=pop); diff=tot-pbar_pop_oldtot; if (diff>=0) { if (pbar_pop_olddiff<0) // get rid of any -ve bar { Fgl_fillbox(PBAR_POP_X+2,PBAR_POP_Y+(PBAR_SIZE_Y/2)+8 ,PBAR_SIZE_X ,PBAR_SIZE_Y-((PBAR_SIZE_Y/2)+8),0); pbar_pop_olddiff=0; } draw_up_pbar(PBAR_POP_X,PBAR_POP_Y,diff*2,pbar_pop_olddiff*2); } else { if (pbar_pop_olddiff>=0) // get rid of any +ve bar { Fgl_fillbox(PBAR_POP_X+2,PBAR_POP_Y+2 ,PBAR_SIZE_X ,PBAR_SIZE_Y-((PBAR_SIZE_Y/2)+7),0); pbar_pop_olddiff=0; } draw_down_pbar(PBAR_POP_X,PBAR_POP_Y,-diff*2 ,-pbar_pop_olddiff*2); } pbar_pop_oldtot=tot; pbar_pop_olddiff=diff; } void do_pbar_tech(int tech) { static int flag=0; int i,tot=0,diff=0; if (flag==0) { flag=1; for (i=0;i<12;i++) // Don't think this is needed pbar_techs[i]=0; // Do it anyway. for (i=0;i<2;i++) { Fgl_hline(PBAR_TECH_X+i,PBAR_TECH_Y+i ,PBAR_TECH_X+(PBAR_SIZE_X+3)-i,yellow(12)); Fgl_hline(PBAR_TECH_X+i,PBAR_TECH_Y+(PBAR_SIZE_Y+3)-i ,PBAR_TECH_X+(PBAR_SIZE_X+3)-i,yellow(24)); Fgl_line(PBAR_TECH_X+i,PBAR_TECH_Y+1+i,PBAR_TECH_X+i ,PBAR_TECH_Y+(PBAR_SIZE_Y+2)-i,yellow(14)); Fgl_line(PBAR_TECH_X+(PBAR_SIZE_X+3)-i ,PBAR_TECH_Y+1+i ,PBAR_TECH_X+(PBAR_SIZE_X+3)-i ,PBAR_TECH_Y+(PBAR_SIZE_Y+2)-i,yellow(22)); } Fgl_fillbox(PBAR_TECH_X+2,PBAR_TECH_Y+2,PBAR_SIZE_X ,PBAR_SIZE_Y,0); Fgl_putbox(PBAR_TECH_X+2,PBAR_TECH_Y+(PBAR_SIZE_Y/2)-6 ,16,16,tech_pbar_graphic); } for (i=0;i<11;i++) // go on, it's only 11 :) tot+=(pbar_techs[i]=pbar_techs[i+1]); tot+=(pbar_techs[11]=tech/8); diff=tot-pbar_tech_oldtot; if (diff>=0) { if (pbar_tech_olddiff<0) // get rid of any -ve bar { Fgl_fillbox(PBAR_TECH_X+2 ,PBAR_TECH_Y+(PBAR_SIZE_Y/2)+8 ,PBAR_SIZE_X ,PBAR_SIZE_Y-((PBAR_SIZE_Y/2)+8),0); pbar_tech_olddiff=0; } draw_up_pbar(PBAR_TECH_X,PBAR_TECH_Y ,(diff/4)+1,(pbar_tech_olddiff/4)+1); } else { if (pbar_tech_olddiff>=0) // get rid of any +ve bar { Fgl_fillbox(PBAR_TECH_X+2,PBAR_TECH_Y+2 ,PBAR_SIZE_X ,PBAR_SIZE_Y-((PBAR_SIZE_Y/2)+7),0); pbar_tech_olddiff=0; } draw_down_pbar(PBAR_TECH_X,PBAR_TECH_Y ,(-diff/2)+1,(-pbar_tech_olddiff/2)+1); } pbar_tech_oldtot=tot; pbar_tech_olddiff=diff; } void do_pbar_food(int food) { static int flag=0; int i,tot=0,diff=0; if (flag==0) { flag=1; for (i=0;i<12;i++) // Don't think this is needed pbar_foods[i]=0; // Do it anyway. for (i=0;i<2;i++) { Fgl_hline(PBAR_FOOD_X+i,PBAR_FOOD_Y+i ,PBAR_FOOD_X+(PBAR_SIZE_X+3)-i,yellow(12)); Fgl_hline(PBAR_FOOD_X+i,PBAR_FOOD_Y+(PBAR_SIZE_Y+3)-i ,PBAR_FOOD_X+(PBAR_SIZE_X+3)-i,yellow(24)); Fgl_line(PBAR_FOOD_X+i,PBAR_FOOD_Y+1+i,PBAR_FOOD_X+i ,PBAR_FOOD_Y+(PBAR_SIZE_Y+2)-i ,yellow(14)); Fgl_line(PBAR_FOOD_X+(PBAR_SIZE_X+3)-i ,PBAR_FOOD_Y+1+i ,PBAR_FOOD_X+(PBAR_SIZE_X+3)-i ,PBAR_FOOD_Y+(PBAR_SIZE_Y+2)-i ,yellow(22)); } Fgl_fillbox(PBAR_FOOD_X+2,PBAR_FOOD_Y+2 ,PBAR_SIZE_X,PBAR_SIZE_Y,0); Fgl_putbox(PBAR_FOOD_X+2,PBAR_FOOD_Y+(PBAR_SIZE_Y/2)-6 ,16,16,food_pbar_graphic); } for (i=0;i<11;i++) // go on, it's only 11 :) tot+=(pbar_foods[i]=pbar_foods[i+1]); tot+=(pbar_foods[11]=food); diff=tot-pbar_food_oldtot; if (diff>=0) { if (pbar_food_olddiff<0) // get rid of any -ve bar { Fgl_fillbox(PBAR_FOOD_X+2,PBAR_FOOD_Y+(PBAR_SIZE_Y/2)+8 ,PBAR_SIZE_X ,PBAR_SIZE_Y-((PBAR_SIZE_Y/2)+8),0); pbar_food_olddiff=0; } draw_up_pbar(PBAR_FOOD_X,PBAR_FOOD_Y ,(diff/2)+1,(pbar_food_olddiff/2)+1); } else { if (pbar_food_olddiff>=0) // get rid of any +ve bar { Fgl_fillbox(PBAR_FOOD_X+2,PBAR_FOOD_Y+2 ,PBAR_SIZE_X ,PBAR_SIZE_Y-((PBAR_SIZE_Y/2)+7),0); pbar_food_olddiff=0; } draw_down_pbar(PBAR_FOOD_X,PBAR_FOOD_Y ,(-diff)+1,(-pbar_food_olddiff)+1); } pbar_food_oldtot=tot; pbar_food_olddiff=diff; } void do_pbar_jobs(int jobs) { static int flag=0; int i,tot=0,diff=0; if (flag==0) { flag=1; for (i=0;i<12;i++) // Don't think this is needed pbar_jobs[i]=0; // Do it anyway. for (i=0;i<2;i++) { Fgl_hline(PBAR_JOBS_X+i,PBAR_JOBS_Y+i ,PBAR_JOBS_X+(PBAR_SIZE_X+3)-i,yellow(12)); Fgl_hline(PBAR_JOBS_X+i,PBAR_JOBS_Y+(PBAR_SIZE_Y+3)-i ,PBAR_JOBS_X+(PBAR_SIZE_X+3)-i,yellow(24)); Fgl_line(PBAR_JOBS_X+i,PBAR_JOBS_Y+1+i,PBAR_JOBS_X+i ,PBAR_JOBS_Y+(PBAR_SIZE_Y+2)-i ,yellow(14)); Fgl_line(PBAR_JOBS_X+(PBAR_SIZE_X+3)-i ,PBAR_JOBS_Y+1+i ,PBAR_JOBS_X+(PBAR_SIZE_X+3)-i ,PBAR_JOBS_Y+(PBAR_SIZE_Y+2)-i ,yellow(22)); } Fgl_fillbox(PBAR_JOBS_X+2,PBAR_JOBS_Y+2 ,PBAR_SIZE_X,PBAR_SIZE_Y,0); Fgl_putbox(PBAR_JOBS_X+2,PBAR_JOBS_Y+(PBAR_SIZE_Y/2)-6 ,16,16,jobs_pbar_graphic); } for (i=0;i<11;i++) // go on, it's only 11 :) tot+=(pbar_jobs[i]=pbar_jobs[i+1]); tot+=(pbar_jobs[11]=jobs); diff=tot-pbar_jobs_oldtot; if (diff>=0) { if (pbar_jobs_olddiff<0) // get rid of any -ve bar { Fgl_fillbox(PBAR_JOBS_X+2,PBAR_JOBS_Y+(PBAR_SIZE_Y/2)+8 ,PBAR_SIZE_X ,PBAR_SIZE_Y-((PBAR_SIZE_Y/2)+8),0); pbar_jobs_olddiff=0; } draw_up_pbar(PBAR_JOBS_X,PBAR_JOBS_Y ,(diff/2)+1,(pbar_jobs_olddiff/2)+1); } else { if (pbar_jobs_olddiff>=0) // get rid of any +ve bar { Fgl_fillbox(PBAR_JOBS_X+2,PBAR_JOBS_Y+2 ,PBAR_SIZE_X ,PBAR_SIZE_Y-((PBAR_SIZE_Y/2)+7),0); pbar_jobs_olddiff=0; } draw_down_pbar(PBAR_JOBS_X,PBAR_JOBS_Y ,(-diff)+1,(-pbar_jobs_olddiff)+1); } pbar_jobs_oldtot=tot; pbar_jobs_olddiff=diff; } void do_pbar_coal(int coal) { static int flag=0; int i,tot=0,diff=0; if (flag==0) { flag=1; for (i=0;i<12;i++) // Don't think this is needed pbar_coal[i]=0; // Do it anyway. for (i=0;i<2;i++) { Fgl_hline(PBAR_COAL_X+i,PBAR_COAL_Y+i ,PBAR_COAL_X+(PBAR_SIZE_X+3)-i,yellow(12)); Fgl_hline(PBAR_COAL_X+i,PBAR_COAL_Y+(PBAR_SIZE_Y+3)-i ,PBAR_COAL_X+(PBAR_SIZE_X+3)-i,yellow(24)); Fgl_line(PBAR_COAL_X+i,PBAR_COAL_Y+1+i,PBAR_COAL_X+i ,PBAR_COAL_Y+(PBAR_SIZE_Y+2)-i ,yellow(14)); Fgl_line(PBAR_COAL_X+(PBAR_SIZE_X+3)-i ,PBAR_COAL_Y+1+i ,PBAR_COAL_X+(PBAR_SIZE_X+3)-i ,PBAR_COAL_Y+(PBAR_SIZE_Y+2)-i ,yellow(22)); } Fgl_fillbox(PBAR_COAL_X+2,PBAR_COAL_Y+2 ,PBAR_SIZE_X,PBAR_SIZE_Y,0); Fgl_putbox(PBAR_COAL_X+2,PBAR_COAL_Y+(PBAR_SIZE_Y/2)-6 ,16,16,coal_pbar_graphic); } for (i=0;i<11;i++) // go on, it's only 11 :) tot+=(pbar_coal[i]=pbar_coal[i+1]); tot+=(pbar_coal[11]=coal); diff=tot-pbar_coal_oldtot; if (diff>=0) { if (pbar_coal_olddiff<0) // get rid of any -ve bar { Fgl_fillbox(PBAR_COAL_X+2,PBAR_COAL_Y+(PBAR_SIZE_Y/2)+8 ,PBAR_SIZE_X ,PBAR_SIZE_Y-((PBAR_SIZE_Y/2)+8),0); pbar_coal_olddiff=0; } draw_up_pbar(PBAR_COAL_X,PBAR_COAL_Y ,(diff/2)+1,(pbar_coal_olddiff/2)+1); } else { if (pbar_coal_olddiff>=0) // get rid of any +ve bar { Fgl_fillbox(PBAR_COAL_X+2,PBAR_COAL_Y+2 ,PBAR_SIZE_X ,PBAR_SIZE_Y-((PBAR_SIZE_Y/2)+7),0); pbar_coal_olddiff=0; } draw_down_pbar(PBAR_COAL_X,PBAR_COAL_Y ,(-diff)+1,(-pbar_coal_olddiff)+1); } pbar_coal_oldtot=tot; pbar_coal_olddiff=diff; } void do_pbar_goods(int goods) { static int flag=0; int i,tot=0,diff=0; if (flag==0) { flag=1; for (i=0;i<12;i++) // Don't think this is needed pbar_goods[i]=0; // Do it anyway. for (i=0;i<2;i++) { Fgl_hline(PBAR_GOODS_X+i,PBAR_GOODS_Y+i ,PBAR_GOODS_X+(PBAR_SIZE_X+3)-i,yellow(12)); Fgl_hline(PBAR_GOODS_X+i ,PBAR_GOODS_Y+(PBAR_SIZE_Y+3)-i ,PBAR_GOODS_X+(PBAR_SIZE_X+3)-i,yellow(24)); Fgl_line(PBAR_GOODS_X+i ,PBAR_GOODS_Y+1+i,PBAR_GOODS_X+i ,PBAR_GOODS_Y+(PBAR_SIZE_Y+2)-i ,yellow(14)); Fgl_line(PBAR_GOODS_X+(PBAR_SIZE_X+3)-i ,PBAR_GOODS_Y+1+i ,PBAR_GOODS_X+(PBAR_SIZE_X+3)-i ,PBAR_GOODS_Y+(PBAR_SIZE_Y+2)-i ,yellow(22)); } Fgl_fillbox(PBAR_GOODS_X+2,PBAR_GOODS_Y+2 ,PBAR_SIZE_X,PBAR_SIZE_Y,0); Fgl_putbox(PBAR_GOODS_X+2,PBAR_GOODS_Y+(PBAR_SIZE_Y/2)-6 ,16,16,goods_pbar_graphic); } for (i=0;i<11;i++) // go on, it's only 11 :) tot+=(pbar_goods[i]=pbar_goods[i+1]); tot+=(pbar_goods[11]=goods); diff=tot-pbar_goods_oldtot; if (diff>=0) { if (pbar_goods_olddiff<0) // get rid of any -ve bar { Fgl_fillbox(PBAR_GOODS_X+2 ,PBAR_GOODS_Y+(PBAR_SIZE_Y/2)+8 ,PBAR_SIZE_X ,PBAR_SIZE_Y-((PBAR_SIZE_Y/2)+8),0); pbar_goods_olddiff=0; } draw_up_pbar(PBAR_GOODS_X,PBAR_GOODS_Y ,(diff/2)+1,(pbar_goods_olddiff/2)+1); } else { if (pbar_goods_olddiff>=0) // get rid of any +ve bar { Fgl_fillbox(PBAR_GOODS_X+2,PBAR_GOODS_Y+2 ,PBAR_SIZE_X ,PBAR_SIZE_Y-((PBAR_SIZE_Y/2)+7),0); pbar_goods_olddiff=0; } draw_down_pbar(PBAR_GOODS_X,PBAR_GOODS_Y ,(-diff)+1,(-pbar_goods_olddiff)+1); } pbar_goods_oldtot=tot; pbar_goods_olddiff=diff; } void do_pbar_ore(int ore) { static int flag=0; int i,tot=0,diff=0; if (flag==0) { flag=1; for (i=0;i<12;i++) // Don't think this is needed pbar_ore[i]=0; // Do it anyway. for (i=0;i<2;i++) { Fgl_hline(PBAR_ORE_X+i,PBAR_ORE_Y+i ,PBAR_ORE_X+(PBAR_SIZE_X+3)-i,yellow(12)); Fgl_hline(PBAR_ORE_X+i ,PBAR_ORE_Y+(PBAR_SIZE_Y+3)-i ,PBAR_ORE_X+(PBAR_SIZE_X+3)-i,yellow(24)); Fgl_line(PBAR_ORE_X+i ,PBAR_ORE_Y+1+i,PBAR_ORE_X+i ,PBAR_ORE_Y+(PBAR_SIZE_Y+2)-i ,yellow(14)); Fgl_line(PBAR_ORE_X+(PBAR_SIZE_X+3)-i ,PBAR_ORE_Y+1+i ,PBAR_ORE_X+(PBAR_SIZE_X+3)-i ,PBAR_ORE_Y+(PBAR_SIZE_Y+2)-i ,yellow(22)); } Fgl_fillbox(PBAR_ORE_X+2,PBAR_ORE_Y+2 ,PBAR_SIZE_X,PBAR_SIZE_Y,0); Fgl_putbox(PBAR_ORE_X+2,PBAR_ORE_Y+(PBAR_SIZE_Y/2)-6 ,16,16,ore_pbar_graphic); } for (i=0;i<11;i++) // go on, it's only 11 :) tot+=(pbar_ore[i]=pbar_ore[i+1]); tot+=(pbar_ore[11]=ore); diff=tot-pbar_ore_oldtot; if (diff>=0) { if (pbar_ore_olddiff<0) // get rid of any -ve bar { Fgl_fillbox(PBAR_ORE_X+2 ,PBAR_ORE_Y+(PBAR_SIZE_Y/2)+8 ,PBAR_SIZE_X ,PBAR_SIZE_Y-((PBAR_SIZE_Y/2)+8),0); pbar_ore_olddiff=0; } draw_up_pbar(PBAR_ORE_X,PBAR_ORE_Y ,(diff/2)+1,(pbar_ore_olddiff/2)+1); } else { if (pbar_ore_olddiff>=0) // get rid of any +ve bar { Fgl_fillbox(PBAR_ORE_X+2,PBAR_ORE_Y+2 ,PBAR_SIZE_X ,PBAR_SIZE_Y-((PBAR_SIZE_Y/2)+7),0); pbar_ore_olddiff=0; } draw_down_pbar(PBAR_ORE_X,PBAR_ORE_Y ,(-diff)+1,(-pbar_ore_olddiff)+1); } pbar_ore_oldtot=tot; pbar_ore_olddiff=diff; } void do_pbar_steel(int steel) { static int flag=0; int i,tot=0,diff=0; if (flag==0) { flag=1; for (i=0;i<12;i++) // Don't think this is needed pbar_steel[i]=0; // Do it anyway. for (i=0;i<2;i++) { Fgl_hline(PBAR_STEEL_X+i,PBAR_STEEL_Y+i ,PBAR_STEEL_X+(PBAR_SIZE_X+3)-i,yellow(12)); Fgl_hline(PBAR_STEEL_X+i ,PBAR_STEEL_Y+(PBAR_SIZE_Y+3)-i ,PBAR_STEEL_X+(PBAR_SIZE_X+3)-i,yellow(24)); Fgl_line(PBAR_STEEL_X+i ,PBAR_STEEL_Y+1+i,PBAR_STEEL_X+i ,PBAR_STEEL_Y+(PBAR_SIZE_Y+2)-i ,yellow(14)); Fgl_line(PBAR_STEEL_X+(PBAR_SIZE_X+3)-i ,PBAR_STEEL_Y+1+i ,PBAR_STEEL_X+(PBAR_SIZE_X+3)-i ,PBAR_STEEL_Y+(PBAR_SIZE_Y+2)-i ,yellow(22)); } Fgl_fillbox(PBAR_STEEL_X+2,PBAR_STEEL_Y+2 ,PBAR_SIZE_X,PBAR_SIZE_Y,0); Fgl_putbox(PBAR_STEEL_X+2,PBAR_STEEL_Y+(PBAR_SIZE_Y/2)-6 ,16,16,steel_pbar_graphic); } for (i=0;i<11;i++) // go on, it's only 11 :) tot+=(pbar_steel[i]=pbar_steel[i+1]); tot+=(pbar_steel[11]=steel); diff=tot-pbar_steel_oldtot; if (diff>=0) { if (pbar_steel_olddiff<0) // get rid of any -ve bar { Fgl_fillbox(PBAR_STEEL_X+2 ,PBAR_STEEL_Y+(PBAR_SIZE_Y/2)+8 ,PBAR_SIZE_X ,PBAR_SIZE_Y-((PBAR_SIZE_Y/2)+8),0); pbar_steel_olddiff=0; } draw_up_pbar(PBAR_STEEL_X,PBAR_STEEL_Y ,(diff/2)+1,(pbar_steel_olddiff/2)+1); } else { if (pbar_steel_olddiff>=0) // get rid of any +ve bar { Fgl_fillbox(PBAR_STEEL_X+2,PBAR_STEEL_Y+2 ,PBAR_SIZE_X ,PBAR_SIZE_Y-((PBAR_SIZE_Y/2)+7),0); pbar_steel_olddiff=0; } draw_down_pbar(PBAR_STEEL_X,PBAR_STEEL_Y ,(-diff)+1,(-pbar_steel_olddiff)+1); } pbar_steel_oldtot=tot; pbar_steel_olddiff=diff; } void do_pbar_money(int money) { static int flag=0; int i,tot=0,diff=0; if (flag==0) { flag=1; for (i=0;i<12;i++) // Don't think this is needed pbar_money[i]=0; // Do it anyway. for (i=0;i<2;i++) { Fgl_hline(PBAR_MONEY_X+i,PBAR_MONEY_Y+i ,PBAR_MONEY_X+(PBAR_SIZE_X+3)-i,yellow(12)); Fgl_hline(PBAR_MONEY_X+i,PBAR_MONEY_Y +(PBAR_SIZE_Y+3)-i ,PBAR_MONEY_X+(PBAR_SIZE_X+3)-i,yellow(24)); Fgl_line(PBAR_MONEY_X+i,PBAR_MONEY_Y+1+i ,PBAR_MONEY_X+i ,PBAR_MONEY_Y+(PBAR_SIZE_Y+2)-i ,yellow(14)); Fgl_line(PBAR_MONEY_X+(PBAR_SIZE_X+3)-i ,PBAR_MONEY_Y+1+i ,PBAR_MONEY_X+(PBAR_SIZE_X+3)-i ,PBAR_MONEY_Y+(PBAR_SIZE_Y+2)-i ,yellow(22)); } Fgl_fillbox(PBAR_MONEY_X+2,PBAR_MONEY_Y+2 ,PBAR_SIZE_X,PBAR_SIZE_Y,0); Fgl_putbox(PBAR_MONEY_X+2,PBAR_MONEY_Y+(PBAR_SIZE_Y/2)-6 ,16,16,money_pbar_graphic); } for (i=0;i<11;i++) // go on, it's only 11 :) tot+=(pbar_money[i]=pbar_money[i+1]); tot+=(pbar_money[11]=money); diff=tot-pbar_money_oldtot; if (diff>=0) { if (pbar_money_olddiff<0) // get rid of any -ve bar { Fgl_fillbox(PBAR_MONEY_X+2,PBAR_MONEY_Y +(PBAR_SIZE_Y/2)+8,PBAR_SIZE_X ,PBAR_SIZE_Y-((PBAR_SIZE_Y/2)+8),0); pbar_money_olddiff=0; } draw_up_pbar(PBAR_MONEY_X,PBAR_MONEY_Y ,(diff/2)+1,(pbar_money_olddiff/2)+1); } else { if (pbar_money_olddiff>=0) // get rid of any +ve bar { Fgl_fillbox(PBAR_MONEY_X+2,PBAR_MONEY_Y+2 ,PBAR_SIZE_X ,PBAR_SIZE_Y-((PBAR_SIZE_Y/2)+7),0); pbar_money_olddiff=0; } draw_down_pbar(PBAR_MONEY_X,PBAR_MONEY_Y ,(-diff)+1,(-pbar_money_olddiff)+1); } pbar_money_oldtot=tot; pbar_money_olddiff=diff; } void prog_box(char *title,int percent) { static int flag=0,oldpercent=0; char s[100]; int i; if (flag==0) { hide_mouse(); Fgl_getbox(PROGBOXX-8,PROGBOXY-8,PROGBOXW+16 ,PROGBOXH+16,progbox); Fgl_fillbox(PROGBOXX,PROGBOXY ,PROGBOXW,PROGBOXH,PROGBOX_BG_COLOUR); for (i=1;i<8;i++) { Fgl_hline(PROGBOXX-i,PROGBOXY-i ,PROGBOXX+PROGBOXW+i-1 ,PROGBOX_BG_COLOUR+i+i); Fgl_hline(PROGBOXX-i,PROGBOXY+PROGBOXH+i-1 ,PROGBOXX+PROGBOXW+i-1 ,PROGBOX_BG_COLOUR+i+i); Fgl_line(PROGBOXX-i,PROGBOXY-i ,PROGBOXX-i,PROGBOXY+PROGBOXH+i-1 ,PROGBOX_BG_COLOUR+i+i); Fgl_line(PROGBOXX+PROGBOXW+i-1,PROGBOXY-i ,PROGBOXX+PROGBOXW+i-1 ,PROGBOXY+PROGBOXH+i-1 ,PROGBOX_BG_COLOUR+i+i); } Fgl_setfontcolors(PROGBOX_BG_COLOUR,TEXT_FG_COLOUR); Fgl_write((PROGBOXX+PROGBOXW/2) -(strlen(title)*4),PROGBOXY+8,title); Fgl_setfontcolors(TEXT_BG_COLOUR,TEXT_FG_COLOUR); flag=1; } if (percent!=oldpercent) { Fgl_fillbox(PROGBOXX+20,PROGBOXY+60 ,((PROGBOXW-40)*percent)/100 ,20,PROGBOX_DONE_COL); Fgl_fillbox(PROGBOXX+20+(((PROGBOXW-40)*percent)/100) ,PROGBOXY+60 ,PROGBOXW-40-(((PROGBOXW-40)*percent)/100) ,20,PROGBOX_NOTDONE_COL); oldpercent=percent; Fgl_fillbox(PROGBOXX+(PROGBOXW/2)-20 ,PROGBOXY+24,40,16,PROGBOX_BG_COLOUR); sprintf(s,"%3d%%",percent); Fgl_setfontcolors(PROGBOX_BG_COLOUR,TEXT_FG_COLOUR); Fgl_write(PROGBOXX+(PROGBOXW/2)-20,PROGBOXY+24,s); Fgl_setfontcolors(TEXT_BG_COLOUR,TEXT_FG_COLOUR); } #ifdef LC_X11 XSync(display.dpy,FALSE); #endif if (percent<100) { return; } Fgl_putbox(PROGBOXX-8,PROGBOXY-8,PROGBOXW+16,PROGBOXH+16,progbox); redraw_mouse(); flag=0; } void draw_sustainable_window(void) { static int flag=0; int i; if (flag==0) { flag=1; // draw border around the sustainable screen for (i=1;i<8;i++) { Fgl_hline(SUST_SCREEN_X-1-i,SUST_SCREEN_Y-1-i ,SUST_SCREEN_X+SUST_SCREEN_W+1+i ,yellow(16)); Fgl_line(SUST_SCREEN_X-1-i,SUST_SCREEN_Y-1-i ,SUST_SCREEN_X-1-i ,SUST_SCREEN_Y+SUST_SCREEN_H+1+i ,yellow(14)); Fgl_hline(SUST_SCREEN_X-1-i ,SUST_SCREEN_Y+SUST_SCREEN_H+1+i ,SUST_SCREEN_X+SUST_SCREEN_W+1+i ,yellow(22)); Fgl_line(SUST_SCREEN_X+SUST_SCREEN_W+1+i ,SUST_SCREEN_Y-1-i ,SUST_SCREEN_X+SUST_SCREEN_W+1+i ,SUST_SCREEN_Y+SUST_SCREEN_H+1+i ,yellow(24)); } Fgl_fillbox(SUST_SCREEN_X,SUST_SCREEN_Y ,SUST_SCREEN_W,SUST_SCREEN_H,0); Fgl_line(SUST_SCREEN_X+7,SUST_SCREEN_Y ,SUST_SCREEN_X+7,SUST_SCREEN_Y+20 ,yellow(24)); // ore coal Fgl_hline(SUST_SCREEN_X+3,SUST_SCREEN_Y+2 ,SUST_SCREEN_X+6,SUST_ORE_COAL_COL); // import export Fgl_hline(SUST_SCREEN_X+3,SUST_SCREEN_Y+5 ,SUST_SCREEN_X+6,SUST_PORT_COL); // money Fgl_hline(SUST_SCREEN_X+3,SUST_SCREEN_Y+8 ,SUST_SCREEN_X+6,SUST_MONEY_COL); // population Fgl_hline(SUST_SCREEN_X+3,SUST_SCREEN_Y+11 ,SUST_SCREEN_X+6,SUST_POP_COL); // tech Fgl_hline(SUST_SCREEN_X+3,SUST_SCREEN_Y+14 ,SUST_SCREEN_X+6,SUST_TECH_COL); // fire Fgl_hline(SUST_SCREEN_X+3,SUST_SCREEN_Y+17 ,SUST_SCREEN_X+6,SUST_FIRE_COL); } if (sust_dig_ore_coal_count>=SUST_ORE_COAL_YEARS_NEEDED && sust_port_count>=SUST_PORT_YEARS_NEEDED && sust_old_money_count>=SUST_MONEY_YEARS_NEEDED && sust_old_population_count>=SUST_POP_YEARS_NEEDED && sust_old_tech_count>=SUST_TECH_YEARS_NEEDED && sust_fire_count>=SUST_FIRE_YEARS_NEEDED) { if (sustain_flag==0) ok_dial_box("sustain.mes",GOOD,0L); sustain_flag=1; } else sustain_flag=0; draw_sustline(0,sust_dig_ore_coal_count ,SUST_ORE_COAL_YEARS_NEEDED,SUST_ORE_COAL_COL); draw_sustline(3,sust_port_count ,SUST_PORT_YEARS_NEEDED,SUST_PORT_COL); draw_sustline(6,sust_old_money_count ,SUST_MONEY_YEARS_NEEDED,SUST_MONEY_COL); draw_sustline(9,sust_old_population_count ,SUST_POP_YEARS_NEEDED,SUST_POP_COL); draw_sustline(12,sust_old_tech_count ,SUST_TECH_YEARS_NEEDED,SUST_TECH_COL); draw_sustline(15,sust_fire_count ,SUST_FIRE_YEARS_NEEDED,SUST_FIRE_COL); } void draw_sustline(int yoffset,int count,int max,int col) { int split; if (count>=max) split=60; else split=60*count/max; Fgl_hline(SUST_SCREEN_X+8,SUST_SCREEN_Y+2+yoffset ,SUST_SCREEN_X+8+split,col); if (split<60) Fgl_hline(SUST_SCREEN_X+8+split,SUST_SCREEN_Y+2+yoffset ,SUST_SCREEN_X+8+60,0); }