#define INC_EXEC<br>#define INC_DOS<br>#define INC_GRAPHICS<br>#define INC_INTUITION<br>#define NO_BASE#include ".H:macros.h"<br>#include ".H:game.h"<br>/*-------------------------------------------------------------------------*/<br>EXTERN SCR * drawscr = NL;<br>EXTERN SCR_BUF * buf[NUMBUF] = {<br>NL,<br>NL<br>};<br>EXTERN ULONG drawsig = NL;<br>EXTERN ULONG usersig = NL;<br>EXTERN MSG_PORT * drawport = NL;<br>EXTERN MSG_PORT * userport = NL;<br>EXTERN BIT_MAP_OBJ * bmo_cur = NL;<br>EXTERN ULONG RangeSeed;<br>/*-------------------------------------------------------------------------*/<br>ULONG current = NL, nextdraw = NL, nextswap = NL;<br>ULONG dbuf_status[NUMBUF] = {<br>NL,<br>NL<br>};<br>ULONG draw_status = DRAW;<br>ULONG scro_status = WAIT;<br>ULONG nbmo = NL; /*num of curent bitmapobject */<br>/*-------------------------------------------------------------------------*/<br>EXTERN VOID InitAllLib(VOID);<br>EXTERN VOID UnInitAllLib(VOID);<br>EXTERN VOID InitIntuition(VOID);<br>EXTERN VOID UnInitIntuition(VOID);<br>EXTERN BOOL HandleUserMsg(INTUI_MSG * usermsg);<br>EXTERN VOID InitAllBitMap(VOID);<br>EXTERN VOID UnInitAllBitMap(VOID);<br>EXTERN VOID Redraw(BIT_MAP_OBJ * obj, ULONG n, WORD mousex, WORD mousey);<br>VOID main(VOID);<br>VOID bye(ULONG n);<br>VOID wbmain(VOID) {<br>main();<br>}<br>/*-------------------------------------------------------------------------*/<br>VOID main(VOID) {<br>BOOL end = FALSE;<br>ULONG sig = 0, debug = 0;<br>UWORD x, y;<br>InitAllLib();<br>FindMyTask();<br>InitCel();<br>InitAllBitMap();<br>InitIntuition();<br>current = 0;<br>nextdraw = 1;<br>nextswap = 1;<br>dbuf_status[0] = OK_REDRAW;<br>dbuf_status[1] = OK_REDRAW;<br>draw_status = DRAW;<br>WHILE(end == FALSE) {<br>INTUI_MSG * usermsg;<br>MSG * drawmsg;<br>IF(sig & usersig) {<br>WHILE(usermsg = (INTUI_MSG * ) GT_GetIMsg(userport)) {<br>end = HandleUserMsg(usermsg);<br>GT_ReplyIMsg(usermsg);<br>}<br>}<br>IF(sig & drawsig) {<br>WHILE(drawmsg = (MSG * ) GetMsg(drawport)) {<br>REGISTER current = NL;<br>current = (ULONG) * ((APTR ** )(drawmsg + 1));<br>dbuf_status[current ^ 1] = OK_REDRAW;<br>}<br>}<br>GetStatus(bmo_cur);<br>IF(draw_status != WAIT OR scro_status == DRAW) /*Donc draw_status==DRAW|REFR|SCRO|SMOU */ {<br>IF(dbuf_status[nextdraw] == OK_REDRAW) {<br>IF(draw_status == SCRO) {<br>Scroll(nextdraw);<br>DrawBgd(nextdraw);<br>scro_status = DRAW;<br>draw_status = REFR;<br>}<br>ELSE<br>IF(scro_status == DRAW) {<br>REGISTER BOOL smouted = Smout(nextdraw);<br>DrawBgd(nextdraw);<br>IF(smouted == TRUE) scro_status = WAIT;<br>}<br>ELSE<br>IF(draw_status == DRAW) {<br>DrawBgd(nextdraw);<br>DrawObj(bmo_cur, nextdraw);<br>draw_status = REFR;<br>}<br>ELSE<br>IF(draw_status == REFR) {<br>DrawBgd(nextdraw);<br>draw_status = WAIT;<br>}<br>dbuf_status[nextdraw] = OK_SWAPIN;<br>nextdraw ^= 1;<br>}<br>IF(dbuf_status[nextswap] == OK_SWAPIN) {<br>buf[nextswap] -> sb_DBufInfo -> dbi_SafeMessage.mn_ReplyPort = drawport;<br>WaitBlit();<br>IF(ChangeScreenBuffer(drawscr, buf[nextswap])) {<br>dbuf_status[nextswap] = 0;<br>current = nextswap;<br>nextswap ^= 1;<br>}<br>ELSE {<br>WaitTOF();<br>}<br>}<br>sig = Wait(drawsig | usersig);<br>}<br>}<br>bye(0);<br>}<br>VOID bye(ULONG n) {<br>UnInitIntuition();<br>UnInitAllBitMap();<br>UnInitAllLib();<br>exit(n);<br>}<br>/*menu.c */<br>#define INC_GRAPHICS<br>#define INC_INTUITION<br>#define INC_GADTOOLS<br>#define NO_BASE#include ".H:macros.h"<br>#include ".H:game.h"<br>/*-------------------------------------------------------------------------*/<br>EXTERN ULONG nbmo; /*num of curent bitmapobject */<br>EXTERN LONG stepx, stepy; /*offset of scroll */<br>EXTERN WIN * userwin;<br>EXTERN BIT_MAP_OBJ * roads[13];<br>EXTERN BIT_MAP_OBJ * house[8];<br>EXTERN BIT_MAP_OBJ * comme[8];<br>EXTERN BIT_MAP_OBJ * indus[8];<br>EXTERN BIT_MAP_OBJ * agric[8];<br>EXTERN BIT_MAP_OBJ * base[4];<br>EXTERN BIT_MAP_OBJ * bmo_cur;<br>EXTERN GAD ga_house;<br>EXTERN GAD ga_agric;<br>EXTERN GAD ga_comme;<br>EXTERN GAD ga_indus;<br>EXTERN GAD ga_rails;<br>EXTERN GAD ga_roads;<br>EXTERN GAD ga_polic;<br>EXTERN GAD ga_pompi;<br>EXTERN GAD ga_avion;<br>EXTERN GAD ga_batea;<br>EXTERN GAD ga_ecolo;<br>EXTERN GAD ga_money;<br>EXTERN GAD * ga_click;<br>/*-------------------------------------------------------------------------*/<br>MENU * menu = NL;<br>MENU_NEW nm[] = {<br>{<br>NM_TITLE,<br>" Game ",<br>NL,<br>NL,<br>NL,<br>NL,<br>},<br>{<br>NM_ITEM,<br>" Restart this game ",<br>NL,<br>NL,<br>NL,<br>(APTR) MENU_RESTART,<br>},<br>{<br>NM_ITEM,<br>" Load... ",<br>NL,<br>NL,<br>NL,<br>(APTR) MENU_LOAD,<br>},<br>{<br>NM_ITEM,<br>" Save... ",<br>NL,<br>NL,<br>NL,<br>(APTR) MENU_SAVE,<br>},<br>{<br>NM_ITEM,<br>" About. ",<br>NL,<br>NL,<br>NL,<br>(APTR) MENU_ABOUT,<br>},<br>{<br>NM_ITEM,<br>NM_BARLABEL,<br>NL,<br>NL,<br>NL,<br>NL,<br>},<br>{<br>NM_ITEM,<br>" Quit. ",<br>NL,<br>NL,<br>NL,<br>(APTR) MENU_QUIT,<br>},<br>{<br>NM_TITLE,<br>" Scroll ",<br>NL,<br>NL,<br>NL,<br>NL,<br>},<br>{<br>NM_ITEM,<br>" + ",<br>NL,<br>NL,<br>NL,<br>(APTR) MENU_SINC,<br>},<br>{<br>NM_ITEM,<br>" - ",<br>NL,<br>NL,<br>NL,<br>(APTR) MENU_SDEC,<br>},<br>{<br>NM_END,<br>NL,<br>NL,<br>NL,<br>NL,<br>NL,<br>},<br>};<br>VOID ExcludeGadget(ULONG type);<br>/*-------------------------------------------------------------------------*/<br>BOOL HandleUserMsg(INTUI_MSG * usermsg) {<br>REGISTER code = NL;<br>BOOL end = FALSE;<br>code = usermsg -> Code;<br>ga_click = (GAD * ) usermsg -> IAddress;<br>SWITCH(usermsg -> Class) {<br>CASE IDCMP_MENUPICK: {<br>MENU_ITEM * item;<br>item = (MENU_ITEM * ) ItemAddress(menu, code);<br>WHILE(code != MENUNULL) {<br>SWITCH((ULONG) GTMENUITEM_USERDATA(item)) {<br>CASE MENU_RESTART: BREAK;<br>CASE MENU_LOAD: BREAK;<br>CASE MENU_SAVE: BREAK;<br>CASE MENU_QUIT: end = TRUE;<br>BREAK;<br>CASE MENU_SINC: stepx++;<br>stepy++;<br>BREAK;<br>CASE MENU_SDEC: stepx--;<br>stepy--;<br>BREAK;<br>}<br>code = item -> NextSelect;<br>}<br>}<br>CASE IDCMP_GADGETUP:<br>CASE IDCMP_GADGETDOWN: {<br>switch (ga_click -> GadgetID) {<br>CASE GA_HOUSE: ExcludeGadget(GA_HOUSE);<br>bmo_cur = base[0];<br>BREAK;<br>CASE GA_COMME: ExcludeGadget(GA_COMME);<br>bmo_cur = base[1];<br>BREAK;<br>CASE GA_INDUS: ExcludeGadget(GA_INDUS);<br>bmo_cur = base[2];<br>BREAK;<br>CASE GA_AGRIC: ExcludeGadget(GA_AGRIC);<br>bmo_cur = base[3];<br>BREAK;<br>CASE GA_AVION: ExcludeGadget(GA_AVION);<br>BREAK;<br>CASE GA_BATEA: ExcludeGadget(GA_BATEA);<br>BREAK;<br>CASE GA_ECOLO: ExcludeGadget(GA_ECOLO);<br>BREAK;<br>CASE GA_MONEY: ExcludeGadget(GA_MONEY);<br>BREAK;<br>CASE GA_POLIC: ExcludeGadget(GA_POLIC);<br>BREAK;<br>CASE GA_POMPI: ExcludeGadget(GA_POMPI);<br>BREAK;<br>CASE GA_RAILS: ExcludeGadget(GA_RAILS);<br>BREAK;<br>CASE GA_ROADS: ExcludeGadget(GA_ROADS);<br>bmo_cur = roads[4];<br>BREAK;<br>}<br>BREAK;<br>}<br>BREAK;<br>}<br>RETURN(end);<br>}<br>VOID ExcludeGadget(ULONG type) {<br>IF((ga_house.GadgetID != type) AND(ga_house.Flags ANDBIT GFLG_SELECTED)) {<br>ga_house.Flags &= ~GFLG_SELECTED;<br>}<br>IF((ga_agric.GadgetID != type) AND(ga_agric.Flags ANDBIT GFLG_SELECTED)) {<br>ga_agric.Flags &= ~GFLG_SELECTED;<br>}<br>IF((ga_comme.GadgetID != type) AND(ga_comme.Flags ANDBIT GFLG_SELECTED)) {<br>ga_comme.Flags &= ~GFLG_SELECTED;<br>}<br>IF((ga_indus.GadgetID != type) AND(ga_indus.Flags ANDBIT GFLG_SELECTED)) {<br>ga_indus.Flags &= ~GFLG_SELECTED;<br>}<br>IF((ga_rails.GadgetID != type) AND(ga_rails.Flags ANDBIT GFLG_SELECTED)) {<br>ga_rails.Flags &= ~GFLG_SELECTED;<br>}<br>IF((ga_roads.GadgetID != type) AND(ga_roads.Flags ANDBIT GFLG_SELECTED)) {<br>ga_roads.Flags &= ~GFLG_SELECTED;<br>}<br>IF((ga_polic.GadgetID != type) AND(ga_polic.Flags ANDBIT GFLG_SELECTED)) {<br>ga_polic.Flags &= ~GFLG_SELECTED;<br>}<br>IF((ga_pompi.GadgetID != type) AND(ga_pompi.Flags ANDBIT GFLG_SELECTED)) {<br>ga_pompi.Flags &= ~GFLG_SELECTED;<br>}<br>IF((ga_avion.GadgetID != type) AND(ga_avion.Flags ANDBIT GFLG_SELECTED)) {<br>ga_avion.Flags &= ~GFLG_SELECTED;<br>}<br>IF((ga_batea.GadgetID != type) AND(ga_batea.Flags ANDBIT GFLG_SELECTED)) {<br>ga_batea.Flags &= ~GFLG_SELECTED;<br>}<br>IF((ga_ecolo.GadgetID != type) AND(ga_ecolo.Flags ANDBIT GFLG_SELECTED)) {<br>ga_ecolo.Flags &= ~GFLG_SELECTED;<br>}<br>IF((ga_money.GadgetID != type) AND(ga_money.Flags ANDBIT GFLG_SELECTED)) {<br>ga_money.Flags &= ~GFLG_SELECTED;<br>}<br>RefreshGList( & ga_money, userwin, NL, -1);<br>}<br>/*lib.c */<br>#define INC_EXEC<br>#define INC_GRAPHICS<br>#define INC_INTUITION<br>#define INC_GADTOOLS<br>#define INC_FONT#include ".H:macros.h"<br>/*-------------------------------------------------------------------------*/<br>VOID InitAllLib(VOID) {<br>OpenExec();<br>OpenGraphics();<br>OpenIntuition();<br>OpenGadtools();<br>OpenFontDisk();<br>}<br>/*-------------------------------------------------------------------------*/<br>VOID UnInitAllLib(VOID) {<br>CloseFontDisk();<br>CloseGadtools();<br>CloseIntuition();<br>CloseGraphics();<br>CloseExec();<br>}<br>/*-------------------------------------------------------------------------*/<br>/*init.c */<br>#define INC_EXEC<br>#define INC_GRAPHICS<br>#define INC_INTUITION<br>#define INC_GADTOOLS<br>#define INC_UTILITY<br>#define INC_FONT<br>#define NO_BASE#include ".H:macros.h"<br>#include ".H:game.h"<br>/*-------------------------------------------------------------------------*/<br>EXTERN BIT_MAP * userbg = NL;<br>EXTERN MENU * menu;<br>EXTERN MENU_NEW nm[];<br>EXTERN GAD ga_money;<br>EXTERN CEL celbgnd[120][81]; /*drawbm WIDTH, HEIGHT */<br>/*-------------------------------------------------------------------------*/<br>#define DSCR_ID(DEFAULT_MONITOR_ID | LORES_KEY)<br>#define USCR_ID(DEFAULT_MONITOR_ID | LORES_KEY)<br>TAG drawvc[] = {<br>VTAG_BORDERSPRITE_SET,<br>TRUE,<br>VTAG_SPRITERESN_SET,<br>SPRITERESN_70NS,<br>0<br>};<br>TAG uservc[] = {<br>VTAG_BORDERSPRITE_SET,<br>TRUE,<br>VTAG_SPRITERESN_SET,<br>SPRITERESN_70NS,<br>0<br>};<br>SCR * drawscr = NL;<br>SCR * userscr = NL; /*SPRITERESN_ECS 0 */<br>WIN * drawwin = NL; /*SPRITERESN_140NS 1 */<br>WIN * userwin = NL; /*SPRITERESN_70NS 2 */<br>APTR drawvi = NL; /*SPRITERESN_35NS 3 */<br>APTR uservi = NL; /*SPRITERESN_DEFAULT -1 */<br>ULONG drawsig = NL;<br>ULONG usersig = NL;<br>MSG_PORT * drawport = NL;<br>MSG_PORT * userport = NL;<br>TEXT_FONT * tfont = NL;<br>TEXT_ATTR font = {<br>(STRPTR)<br>"topaz.font",<br>8,<br>0x00,<br>0x00<br>};<br>SCR_BUF * buf[NUMBUF] = {<br>NL,<br>NL<br>};<br>RAST_PORT * rp[NUMBUF] = {<br>NL,<br>NL<br>};<br>/*-------------------------------------------------------------------------*/<br>ULONG palette32[98] = {<br>0x00200000,<br>/*Record Header */<br>0x05555555,<br>0x06666666,<br>0x06666666,<br>0x22222222,<br>0x28888888,<br>0x28888888,<br>0x44444444,<br>0x50000000,<br>0x50000000,<br>0x66666666,<br>0x78888888,<br>0x78888888,<br>0x86666666,<br>0x9EEEEEEE,<br>0x9EEEEEEE,<br>0xA9999999,<br>0xC7777777,<br>0xC7777777,<br>0xCBBBBBBB,<br>0xEFFFFFFF,<br>0xEFFFFFFF,<br>0xD4444444,<br>0xF9999999,<br>0xF9999999,<br>0xD4444444,<br>0xF9999999,<br>0xF9999999,<br>0xD4444444,<br>0xF9999999,<br>0x06666666,<br>0x74444444,<br>0xC6666666,<br>0xF9999999,<br>0x22222222,<br>0x9EEEEEEE,<br>0xF9999999,<br>0x05555555,<br>0x86666666,<br>0xE1111111,<br>0x05555555,<br>0x78888888,<br>0xC9999999,<br>0xD4444444,<br>0x57777777,<br>0x58888888,<br>0x52222222,<br>0x32222222,<br>0x06666666,<br>0x78888888,<br>0x58888888,<br>0x13333333,<br>0xA1111111,<br>0x82222222,<br>0x23333333,<br>0xCBBBBBBB,<br>0xB0000000,<br>0x37777777,<br>0x39999999,<br>0xF8888888,<br>0x3EEEEEEE,<br>0x22222222,<br>0xBBBBBBBB,<br>0x23333333,<br>0x0AAAAAAA,<br>0x80000000,<br>0x09999999,<br>0xD4444444,<br>0x88888888,<br>0x55555555,<br>0x2FFFFFFF,<br>0xB0000000,<br>0xF9999999,<br>0x2BBBBBBB,<br>0xCCCCCCCC,<br>0x2EEEEEEE,<br>0xB6666666,<br>0x9AAAAAAA,<br>0x48888888,<br>0xA5555555,<br>0x3EEEEEEE,<br>0x3EEEEEEE,<br>0xD4444444,<br>0xF9999999,<br>0x06666666,<br>0xD4444444,<br>0xF9999999,<br>0x06666666,<br>0xD4444444,<br>0xF9999999,<br>0x06666666,<br>0xD4444444,<br>0xF9999999,<br>0x06666666,<br>0xD4444444,<br>0xF9999999,<br>0x06666666,<br>0x00000000 /*Terminator */<br>};<br>UWORD pens[] = {<br>0,<br>/*DETAILPEN */<br>4,<br>/*BLOCKPEN */<br>0,<br>/*TEXTPEN */<br>6,<br>/*SHINEPEN */<br>2,<br>/*SHADOWPEN */<br>4,<br>/*FILLPEN */<br>1,<br>/*FILLTEXTPEN */<br>4,<br>/*BACKGROUNDPEN */<br>7,<br>/*HIGHLIGHTTEXTPEN */<br>6,<br>/*BARDETAILPEN */<br>13,<br>/*BARBLOCKPEN */<br>13,<br>/*BARTRIMPEN */<br>~0,<br>};<br>/*-------------------------------------------------------------------------*/<br>VOID InitIntuition(VOID);<br>VOID fill(WORD c, WORD x, WORD y, WORD w, WORD h);<br>VOID UnInitIntuition(VOID);<br>/*-------------------------------------------------------------------------*/<br>VOID InitIntuition(VOID) {<br>REGISTER x = NL, y = NL;<br>NewFont(tfont, font);<br>OpenMsgPort(userport);<br>usersig = GetSig(userport);<br>OpenMsgPort(drawport);<br>drawsig = GetSig(drawport);<br>drawscr = (SCR * ) OpenScrTag(SA_VideoControl, drawvc,<br>SA_DisplayID, DSCR_ID,<br>SA_Left, DSCR_LEFT,<br>SA_Top, DSCR_TOP,<br>SA_Width, DSCR_WIDTH,<br>SA_Height, DSCR_HEIGHT,<br>SA_Depth, DSCR_DEPTH,<br>SA_Title, "Draw Screen",<br>SA_Type, CUSTOMSCREEN,<br>SA_Draggable, FALSE,<br>SA_Interleaved, TRUE,<br>SA_Pens, pens,<br>SA_Colors32, & palette32[0],<br>SA_Font, & font, TAG_DONE);<br>GetVI(drawvi, drawscr);<br>userscr = (SCR * ) OpenScrTag(SA_Parent, drawscr,<br>SA_VideoControl, uservc,<br>SA_DisplayID, USCR_ID,<br>SA_Left, USCR_LEFT,<br>SA_Top, USCR_TOP,<br>SA_Width, USCR_WIDTH,<br>SA_Height, USCR_HEIGHT,<br>SA_Depth, USCR_DEPTH,<br>SA_ShowTitle, FALSE,<br>SA_Quiet, TRUE,<br>SA_Draggable, FALSE,<br>SA_Interleaved, TRUE,<br>SA_Pens, pens,<br>SA_Colors32, & palette32[0],<br>SA_Font, & font,<br>TAG_DONE);<br>GetVI(uservi, userscr);<br>drawwin = (WIN * ) OpenWinTag(WA_CustomScreen, drawscr,<br>WA_NoCareRefresh, TRUE,<br>WA_Activate, TRUE,<br>WA_Borderless, TRUE,<br>WA_Backdrop, TRUE,<br>WA_NewLookMenus, TRUE,<br>TAG_DONE);<br>drawwin -> UserPort = userport;<br>ModifyIDCMP(drawwin, IDCMP_MENUPICK);<br>userwin = (WIN * ) OpenWinTag(WA_CustomScreen, userscr,<br>WA_NoCareRefresh, TRUE,<br>WA_Activate, TRUE,<br>WA_Borderless, TRUE,<br>WA_Backdrop, TRUE,<br>WA_NewLookMenus, TRUE,<br>WA_SuperBitMap, userbg,<br>WA_Gadgets, & ga_money,<br>TAG_DONE);<br>userwin -> UserPort = userport;<br>ModifyIDCMP(userwin, IDCMP_MENUPICK | IDCMP_GADGETDOWN | IDCMP_GADGETUP);<br>NewMenu(menu, nm, drawvi, drawwin);<br>CloneMenu(drawwin, userwin);<br>NewScrBuf(buf[0], drawscr, NL, SB_SCREEN_BITMAP, 0);<br>NewScrBuf(buf[1], drawscr, NL, SB_COPY_BITMAP, 1);<br>NewChip(rp[0], RAST_PORT);<br>InitRastPort(rp[0]);<br>NewChip(rp[1], RAST_PORT);<br>InitRastPort(rp[1]);<br>rp[0] -> BitMap = buf[0] -> sb_BitMap;<br>rp[1] -> BitMap = buf[1] -> sb_BitMap;<br>SetDrMd(rp[0], JAM1);<br>SetDrMd(rp[1], JAM1);<br>fill(4, 0, 12, 319, 199);<br>fill(6, 0, 12, 318, 12);<br>fill(6, 0, 12, 0, 198);<br>fill(2, 1, 199, 319, 199);<br>fill(2, 319, 13, 319, 199);<br>fill(5, 1, 13, 317, 13);<br>fill(5, 1, 13, 1, 197);<br>fill(3, 2, 198, 318, 198);<br>fill(3, 318, 15, 318, 198);<br>fill(2, 6, 15, 236, 15);<br>fill(2, 6, 15, 6, 195);<br>fill(6, 7, 196, 237, 196);<br>fill(6, 237, 16, 237, 196);<br>SetAPen(rp[0], 6); /*blanco.*/<br>SetAPen(rp[1], 6);<br>FOR(x = 0; x < 120; x += 2) {<br>FOR(y = 0; y < 81; y += 2) {<br>IF(celbgnd[x][y].type == BROUS) {<br>SetAPen(userwin -> RPort, 20); /*VERT */<br>}<br>ELSE<br>IF(celbgnd[x][y].type == FLOTS) {<br>SetAPen(userwin -> RPort, 11); /*BLEU */<br>}<br>ELSE {<br>SetAPen(userwin -> RPort, 17); /*MARRON */<br>}<br>WritePixel(userwin -> RPort, (x / 2) + 4, (y / 2) + 4);<br>}<br>}<br>}<br>/*-------------------------------------------------------------------------*/<br>VOID fill(WORD c, WORD x, WORD y, WORD w, WORD h) {<br>SetAPen(rp[0], c);<br>RectFill(rp[0], x, y, w, h);<br>SetAPen(rp[1], c);<br>RectFill(rp[1], x, y, w, h);<br>}<br>/*-------------------------------------------------------------------------*/<br>VOID UnInitIntuition(VOID) {<br>UnCloneMenu(userwin);<br>RemMenu(menu, drawwin);<br>CloseWin(userwin);<br>CloseWin(drawwin);<br>CloseScr(userscr);<br>CloseScr(drawscr);<br>CloseMsgPort(drawport);<br>CloseMsgPort(userport);<br>RemVI(drawvi);<br>RemVI(uservi);<br>RemScrBuf(buf[0], drawscr);<br>RemScrBuf(buf[1], drawscr);<br>RemMem(rp[0], RAST_PORT);<br>RemMem(rp[1], RAST_PORT);<br>RemFont(tfont);<br>}<br>/*-------------------------------------------------------------------------*/<br>/*draw.c */<br>#define INC_GRAPHICS<br>#define INC_INTUITION<br>#define NO_BASE#include ".H:macros.h"<br>#include ".H:game.h"<br>EXTERN RAST_PORT * rp[NUMBUF];<br>EXTERN WIN * drawwin;<br>EXTERN WIN * userwi;<br>EXTERN ULONG draw_status;<br>EXTERN CEL celbgnd[120][81]; /*drawbm WIDTH, HEIGHT */<br>EXTERN CEL celview[23][18]; /*VIEW WIDTH, HEIGHT */<br>EXTERN BIT_MAP_OBJ * drawbg;<br>EXTERN BIT_MAP_OBJ * roads[13];<br>EXTERN BIT_MAP_OBJ * house[8];<br>EXTERN BIT_MAP_OBJ * comme[8];<br>EXTERN BIT_MAP_OBJ * indus[8];<br>EXTERN BIT_MAP_OBJ * agric[8];<br>EXTERN BIT_MAP_OBJ * base[4];<br>LONG sx = NL, sy = NL; /*scroll x,y */<br>LONG mx = NL, my = NL; /*mouse x,y */<br>LONG stepx = 5, stepy = 5;<br>ULONG click = FALSE;<br>VOID GetStatus(BIT_MAP_OBJ * obj);<br>VOID DrawBgd(SHORT bufn);<br>VOID Scroll(SHORT bufn);<br>BOOL Smout(SHORT bufn);<br>VOID DrawObj(BIT_MAP_OBJ * obj, USHORT bufn);<br>BOOL SetRoads(WORD bgposx, WORD bgposy);<br>/*-------------------------------------------------------------------------*/<br>VOID GetStatus(BIT_MAP_OBJ * obj) {<br>REGISTER BYTE hwmx = NL, hwmy = NL;<br>REGISTER UBYTE button = NL;<br>mx = drawwin -> MouseX;<br>my = drawwin -> MouseY;<br>button = Mouse( & hwmx, & hwmy);<br>IF(mx >= VIEW_LEFT AND mx <= VIEW_WIDTH + VIEW_LEFT AND /*mouse in the view */ my >= VIEW_TOP AND my <= VIEW_HEIGHT + VIEW_TOP) {<br>draw_status = DRAW;<br>IF(button ANDBIT LEFT_BUTTON) click = TRUE;<br>}<br>sx = NL;<br>sy = NL;<br>IF(mx == MOUSE_LEFT) {<br>sx = -stepx;<br>draw_status = SCRO;<br>SetTask40();<br>}<br>ELSE<br>IF(mx == MOUSE_RIGHT) {<br>sx = +stepx;<br>draw_status = SCRO;<br>SetTask40();<br>}<br>IF(my == MOUSE_TOP) {<br>sy = -stepy;<br>draw_status = SCRO;<br>SetTask40();<br>}<br>ELSE<br>IF(my == MOUSE_BOTTOM) {<br>sy = +stepy;<br>draw_status = SCRO;<br>SetTask40();<br>}<br>IF((mx == MOUSE_LEFT AND hwmx > 0) OR(mx == MOUSE_RIGHT AND hwmx < 0) OR(my == MOUSE_TOP AND hwmy > 0) OR(my == MOUSE_BOTTOM AND hwmy < 0)) {<br>SetTask10();<br>}<br>}<br>/*-------------------------------------------------------------------------*/<br>VOID DrawBgd(SHORT bufn) {<br>BltBitMapRastPort(drawbg -> bm, drawbg -> posx, drawbg -> posy, rp[bufn], VIEW_LEFT, VIEW_TOP, VIEW_WIDTH, VIEW_HEIGHT, BLIT);<br>}<br>/*-------------------------------------------------------------------------*/<br>VOID Scroll(SHORT bufn) {<br>REGISTER WORD * bgposx = & drawbg -> posx;<br>REGISTER WORD * bgposy = & drawbg -> posy;<br>* bgposx += sx;<br>* bgposy += sy;<br>IF( * bgposx < 0) {<br>* bgposx = 0;<br>}<br>ELSE<br>IF( * bgposx > drawbg -> w - VIEW_WIDTH) {<br>* bgposx = drawbg -> w - VIEW_WIDTH;<br>}<br>IF( * bgposy < 0) {<br>* bgposy = 0;<br>}<br>ELSE<br>IF( * bgposy > drawbg -> h - VIEW_HEIGHT) {<br>* bgposy = drawbg -> h - VIEW_HEIGHT;<br>}<br>}<br>/*-------------------------------------------------------------------------*/<br>BOOL Smout(SHORT bufn) {<br>REGISTER WORD * bgposx = & drawbg -> posx;<br>REGISTER WORD * bgposy = & drawbg -> posy;<br>WORD x = ( * bgposx / 10);<br>WORD y = ( * bgposy / 10);<br>WORD statusx = FALSE;<br>WORD statusy = FALSE;<br>IF(celbgnd[x][y].posx != * bgposx) {<br>* bgposx += ( * bgposx - celbgnd[x][y].posx > 4 ? +1 : -1);<br>statusx = FALSE;<br>}<br>ELSE {<br>statusx = TRUE;<br>}<br>IF(celbgnd[x][y].posy != * bgposy) {<br>* bgposy += ( * bgposy - celbgnd[x][y].posy > 4 ? +1 : -1);<br>statusy = FALSE;<br>}<br>ELSE {<br>statusy = TRUE;<br>}<br>BltBitMapRastPort(drawbg -> bm, * bgposx, * bgposy, rp[bufn], VIEW_LEFT, VIEW_TOP, VIEW_WIDTH, VIEW_HEIGHT, BLIT);<br>IF(statusx != TRUE OR statusy != TRUE) {<br>RETURN(FALSE);<br>}<br>ELSE {<br>RETURN(TRUE);<br>}<br>}<br>/*-------------------------------------------------------------------------*/<br>VOID DrawObj(BIT_MAP_OBJ * obj, USHORT bufn) {<br>REGISTER UWORD ocw = obj -> cw, och = obj -> ch;<br>UWORD mousex = mx, mousey = my, x = NL, y = NL, ix = NL, iy = NL;<br>UWORD posx = NL, posy = NL, bgposx = NL, bgposy = NL;<br>UWORD isinbg = TRUE, pen[4];<br>IF(mousex <= VIEW_LEFT + ocw) {<br>/*gere le positionnement obj in view */<br>mousex = VIEW_LEFT + ocw;<br>}<br>IF(mousex >= (VIEW_LEFT + VIEW_WIDTH) - ocw) {<br>mousex = (VIEW_LEFT + VIEW_WIDTH) - ocw;<br>}<br>IF(mousey <= VIEW_TOP + och) {<br>mousey = VIEW_TOP + och;<br>}<br>IF(mousey >= (VIEW_TOP + VIEW_HEIGHT) - och) {<br>mousey = (VIEW_TOP + VIEW_HEIGHT) - och;<br>}<br>obj -> posx = mousex - ocw;<br>obj -> posy = mousey - och;<br>posx = (obj -> posx - VIEW_LEFT + 4) / 10;<br>posy = (obj -> posy - VIEW_TOP + 4) / 10;<br>bgposx = (drawbg -> posx + (obj -> posx - VIEW_LEFT + 4)) / 10;<br>bgposy = (drawbg -> posy + (obj -> posy - VIEW_TOP + 4)) / 10;<br>ix = (obj -> w / 10) - 1;<br>iy = (obj -> h / 10) - 1;<br>x = celview[posx][posy].posx;<br>y = celview[posx][posy].posy;<br>pen[0] = 6;<br>pen[1] = 6;<br>pen[2] = 6;<br>pen[3] = 6;<br>IF(celbgnd[bgposx][bgposy].type != TERRE AND celbgnd[bgposx][bgposy].type != BROUS) {<br>isinbg = FALSE;<br>pen[0] = 14;<br>}<br>IF(celbgnd[bgposx + ix][bgposy].type != TERRE AND celbgnd[bgposx + ix][bgposy].type != BROUS) {<br>isinbg = FALSE;<br>pen[1] = 14;<br>}<br>IF(celbgnd[bgposx][bgposy + iy].type != TERRE AND celbgnd[bgposx][bgposy + iy].type != BROUS) {<br>isinbg = FALSE;<br>pen[2] = 14;<br>}<br>IF(celbgnd[bgposx + ix][bgposy + iy].type != TERRE AND celbgnd[bgposx + ix][bgposy + iy].type != BROUS) {<br>isinbg = FALSE;<br>pen[3] = 14;<br>}<br>IF(isinbg == TRUE) {<br>IF(click == TRUE) {<br>BOOL result = FALSE;<br>UWORD x = NL, y = NL;<br>IF(obj -> type >= ROAD0 AND obj -> type <= ROAD12) {<br>result = SetRoads(bgposx, bgposy);<br>}<br>ELSE {<br>BltBMO(obj, drawbg, celbgnd[bgposx][bgposy].posx, celbgnd[bgposx][bgposy].posy);<br>FOR(x = 0; x <= ix; x++) {<br>FOR(y = 0; y <= iy; y++) {<br>celbgnd[bgposx + x][bgposy + y].type = obj -> type;<br>}<br>}<br>}<br>click = FALSE;<br>}<br>}<br>ELSE {<br>click = FALSE;<br>}<br>SetAPen(rp[bufn], pen[0]);<br>WritePixel(rp[bufn], x, y); /*the user pos indicator */<br>WritePixel(rp[bufn], x + 1, y);<br>WritePixel(rp[bufn], x, y + 1);<br>SetAPen(rp[bufn], pen[1]);<br>WritePixel(rp[bufn], x + obj -> w - 1, y);<br>WritePixel(rp[bufn], x + obj -> w - 1 - 1, y);<br>WritePixel(rp[bufn], x + obj -> w - 1, y + 1);<br>SetAPen(rp[bufn], pen[2]);<br>WritePixel(rp[bufn], x, y + obj -> h - 1);<br>WritePixel(rp[bufn], x, y + obj -> h - 1 - 1);<br>WritePixel(rp[bufn], x + 1, y + obj -> h - 1);<br>SetAPen(rp[bufn], pen[3]);<br>WritePixel(rp[bufn], x + obj -> w - 1, y + obj -> h - 1);<br>WritePixel(rp[bufn], x + obj -> w - 1 - 1, y + obj -> h - 1);<br>WritePixel(rp[bufn], x + obj -> w - 1, y + obj -> h - 1 - 1);<br>BltBitMapRastPort(obj -> bm, 0, 0, rp[bufn], obj -> posx, obj -> posy, obj -> w, obj -> h, BLIT);<br>}<br>/*-------------------------------------------------------------------------*/<br>#define IN(n)(c[n] -> type >= ROAD0 AND c[n] -> type <= ROAD12)<br>#define OUT(n)(c[n] -> type < ROAD0 OR c[n] -> type > ROAD12)<br>#define IS(n, t)(c[n] -> type == t)<br>#define ISNOT(n, t)(c[n] -> type != t)<br>#define SET(n, t) {<br>c[n] -> type = t;<br>}<br>BOOL SetRoads(WORD bgposx, WORD bgposy) {<br>CEL * c[9];<br>SHORT x = 0, y = 0, ok = FALSE;<br>c[0] = (CEL * ) & celbgnd[bgposx - 1][bgposy - 1];<br>c[1] = (CEL * ) & celbgnd[bgposx - 1][bgposy];<br>c[2] = (CEL * ) & celbgnd[bgposx - 1][bgposy + 1];<br>c[3] = (CEL * ) & celbgnd[bgposx][bgposy - 1];<br>c[4] = (CEL * ) & celbgnd[bgposx][bgposy]; /*center */<br>c[5] = (CEL * ) & celbgnd[bgposx][bgposy + 1];<br>c[6] = (CEL * ) & celbgnd[bgposx + 1][bgposy - 1];<br>c[7] = (CEL * ) & celbgnd[bgposx + 1][bgposy];<br>c[8] = (CEL * ) & celbgnd[bgposx + 1][bgposy + 1];<br>IF(OUT(1) AND OUT(3) AND OUT(5) AND OUT(7)) {<br>/*A0 */<br>SET(4, ROAD4);<br>}<br>ELSE<br>IF(OUT(0) AND OUT(3) AND OUT(2) AND OUT(5) AND IS(1, ROAD3) OR IS(1, ROAD4)) {<br>/*A1 */<br>SET(4, ROAD3);<br>SET(1, ROAD3);<br>}<br>ELSE<br>IF(OUT(0) AND OUT(1) AND OUT(6) AND OUT(7) AND IS(3, ROAD1) OR IS(3, ROAD4)) {<br>/*A2 */<br>SET(4, ROAD1);<br>SET(3, ROAD1);<br>}<br>ELSE<br>IF(OUT(1) AND OUT(2) AND OUT(7) AND OUT(8) AND IS(5, ROAD1) OR IS(5, ROAD4)) {<br>/*A3 */<br>SET(4, ROAD1);<br>SET(5, ROAD1);<br>}<br>ELSE<br>IF(OUT(3) AND OUT(5) AND OUT(6) AND OUT(8) AND IS(7, ROAD3) OR IS(7, ROAD4)) {<br>/*A4 */<br>SET(4, ROAD3);<br>SET(7, ROAD3);<br>}<br>IF(OUT(3) AND OUT(5) AND IN(0) AND IN(1) AND IN(2)) {<br>/*B0 */<br>SET(4, ROAD3);<br>IF(IS(1, ROAD1)) {<br>SET(1, ROAD11);<br>}<br>ELSE<br>IF(IS(1, ROAD9)) {<br>SET(1, ROAD4);<br>}<br>}<br>IF(OUT(1) AND OUT(7) AND IN(0) AND IN(3) AND IN(6)) {<br>/*B1 */<br>SET(4, ROAD1);<br>IF(IS(3, ROAD3)) {<br>SET(3, ROAD10);<br>}<br>ELSE<br>IF(IS(3, ROAD12)) {<br>SET(3, ROAD4);<br>}<br>}<br>IF(OUT(1) AND OUT(7) AND IN(2) AND IN(5) AND IN(8)) {<br>/*B2 */<br>SET(4, ROAD1);<br>IF(IS(5, ROAD3)) {<br>SET(5, ROAD12);<br>}<br>ELSE<br>IF(IS(5, ROAD10)) {<br>SET(5, ROAD4);<br>}<br>}<br>IF(OUT(3) AND OUT(5) AND IN(6) AND IN(7) AND IN(8)) {<br>/*B3 */<br>SET(4, ROAD3);<br>IF(IS(7, ROAD1)) {<br>SET(7, ROAD9);<br>}<br>ELSE<br>IF(IS(7, ROAD11)) {<br>SET(7, ROAD4);<br>}<br>}<br>IF(OUT(0) AND OUT(2) AND OUT(6) AND OUT(7) AND OUT(8) AND IS(1, ROAD3) AND IS(3, ROAD1) AND IS(5, ROAD1)) {<br>/*c0 */<br>SET(4, ROAD9);<br>}<br>ELSE<br>IF(OUT(0) AND OUT(2) AND OUT(5) AND OUT(6) AND OUT(8) AND IS(1, ROAD3) AND IS(3, ROAD1) AND IS(7, ROAD3)) {<br>/*c1 */<br>SET(4, ROAD12);<br>}<br>ELSE<br>IF(OUT(0) AND OUT(2) AND OUT(3) AND OUT(6) AND OUT(8) AND IS(1, ROAD3) AND IS(5, ROAD1) AND IS(7, ROAD3)) {<br>/*c2 */<br>SET(4, ROAD10);<br>}<br>ELSE<br>IF(OUT(0) AND OUT(1) AND OUT(2) AND OUT(6) AND OUT(8) AND IS(3, ROAD1) AND IS(5, ROAD1) AND IS(7, ROAD3)) {<br>/*c3 */<br>SET(4, ROAD11);<br>}<br>ELSE<br>IF(OUT(0) AND OUT(2) AND OUT(6) AND OUT(8) AND IS(1, ROAD3) AND IS(3, ROAD1) AND IS(5, ROAD1) AND IS(7, ROAD3)) {<br>/*c4 */<br>SET(4, ROAD4);<br>}<br>IF(OUT(0) AND OUT(2) AND OUT(5) AND OUT(6) AND OUT(7) AND IS(1, ROAD3) AND IS(3, ROAD1)) {<br>/*d0 */<br>SET(4, ROAD8);<br>}<br>ELSE<br>IF(OUT(0) AND OUT(1) AND OUT(5) AND OUT(6) AND OUT(8) AND IS(3, ROAD1) AND IS(7, ROAD3)) {<br>/*d1 */<br>SET(4, ROAD2);<br>}<br>ELSE<br>IF(OUT(1) AND OUT(2) AND OUT(3) AND OUT(6) AND OUT(8) AND IS(5, ROAD1) AND IS(7, ROAD3)) {<br>/*d2 */<br>SET(4, ROAD0);<br>}<br>ELSE<br>IF(OUT(0) AND OUT(2) AND OUT(3) AND OUT(7) AND OUT(8) AND IS(1, ROAD3) AND IS(5, ROAD1)) {<br>/*d3 */<br>SET(4, ROAD6);<br>}<br>IF(OUT(2) AND OUT(3) AND IS(0, ROAD1) AND IS(1, ROAD1) OR IS(1, ROAD8)) {<br>/*e0 */<br>SET(4, ROAD3);<br>IF(IS(5, ROAD1)) {<br>SET(4, ROAD6);<br>}<br>IF(IS(1, ROAD1)) {<br>SET(1, ROAD2);<br>}<br>ELSE<br>IF(IS(1, ROAD8)) {<br>SET(1, ROAD12);<br>}<br>IF(IS(7, ROAD11)) {<br>SET(7, ROAD4);<br>}<br>ELSE<br>IF(IS(7, ROAD0)) {<br>SET(7, ROAD10);<br>}<br>ELSE<br>IF(IS(7, ROAD2)) {<br>SET(7, ROAD12);<br>}<br>}<br>IF(OUT(0) AND OUT(7) AND IS(6, ROAD3) AND IS(3, ROAD3) OR IS(3, ROAD2)) {<br>/*e1 */<br>SET(4, ROAD1);<br>IF(IS(1, ROAD3)) {<br>SET(4, ROAD8);<br>}<br>IF(IS(3, ROAD3)) {<br>SET(3, ROAD0);<br>}<br>ELSE<br>IF(IS(3, ROAD2)) {<br>SET(3, ROAD11);<br>}<br>IF(IS(5, ROAD12)) {<br>SET(5, ROAD4);<br>}<br>ELSE<br>IF(IS(5, ROAD0)) {<br>SET(5, ROAD11);<br>}<br>ELSE<br>IF(IS(5, ROAD6)) {<br>SET(5, ROAD9);<br>}<br>}<br>IF(OUT(5) AND OUT(6) AND IS(8, ROAD1) AND IS(7, ROAD1) OR IS(7, ROAD0)) {<br>/*e2 */<br>SET(4, ROAD3);<br>IF(IS(3, ROAD1)) {<br>SET(4, ROAD2);<br>}<br>IF(IS(7, ROAD1)) {<br>SET(7, ROAD6);<br>}<br>ELSE<br>IF(IS(7, ROAD0)) {<br>SET(7, ROAD10);<br>}<br>IF(IS(1, ROAD9)) {<br>SET(1, ROAD4);<br>}<br>ELSE<br>IF(IS(1, ROAD6)) {<br>SET(1, ROAD10);<br>}<br>ELSE<br>IF(IS(1, ROAD8)) {<br>SET(1, ROAD12);<br>}<br>}<br>IF(OUT(1) AND OUT(8) AND IS(2, ROAD3) AND IS(5, ROAD3) OR IS(5, ROAD6)) {<br>/*e3 */<br>SET(4, ROAD1);<br>IF(IS(7, ROAD3)) {<br>SET(4, ROAD0);<br>}<br>IF(IS(5, ROAD3)) {<br>SET(5, ROAD8);<br>}<br>ELSE<br>IF(IS(5, ROAD6)) {<br>SET(5, ROAD9);<br>}<br>IF(IS(3, ROAD12)) {<br>SET(3, ROAD4);<br>}<br>ELSE<br>IF(IS(3, ROAD2)) {<br>SET(3, ROAD11);<br>}<br>ELSE<br>IF(IS(3, ROAD8)) {<br>SET(3, ROAD9);<br>}<br>}<br>IF(OUT(1) AND OUT(6) AND IS(0, ROAD3) AND IS(3, ROAD3) OR IS(3, ROAD8)) {<br>/*f0 */<br>SET(4, ROAD1);<br>IF(IS(7, ROAD3)) {<br>SET(4, ROAD2);<br>}<br>IF(IS(3, ROAD3)) {<br>SET(3, ROAD6);<br>}<br>ELSE<br>IF(IS(3, ROAD8)) {<br>SET(3, ROAD9);<br>}<br>IF(IS(5, ROAD10)) {<br>SET(5, ROAD4);<br>}<br>ELSE<br>IF(IS(5, ROAD0)) {<br>SET(5, ROAD11);<br>}<br>ELSE<br>IF(IS(5, ROAD6)) {<br>SET(5, ROAD9);<br>}<br>}<br>IF(OUT(3) AND OUT(8) AND IS(6, ROAD1) AND IS(7, ROAD1) OR IS(7, ROAD2)) {<br>/*f1 */<br>SET(4, ROAD3);<br>IF(IS(5, ROAD1)) {<br>SET(4, ROAD0);<br>}<br>IF(IS(7, ROAD1)) {<br>SET(7, ROAD8);<br>}<br>ELSE<br>IF(IS(7, ROAD2)) {<br>SET(7, ROAD12);<br>}<br>IF(IS(1, ROAD9)) {<br>SET(1, ROAD4);<br>}<br>ELSE<br>IF(IS(1, ROAD8)) {<br>SET(1, ROAD12);<br>}<br>ELSE<br>IF(IS(1, ROAD6)) {<br>SET(1, ROAD10);<br>}<br>}<br>IF(OUT(2) AND OUT(7) AND IS(8, ROAD3) AND IS(5, ROAD3) OR IS(5, ROAD0)) {<br>/*f2 */<br>SET(4, ROAD1);<br>IF(IS(1, ROAD3)) {<br>SET(4, ROAD6);<br>}<br>IF(IS(5, ROAD3)) {<br>SET(5, ROAD2);<br>}<br>ELSE<br>IF(IS(5, ROAD0)) {<br>SET(5, ROAD11);<br>}<br>IF(IS(3, ROAD12)) {<br>SET(3, ROAD4);<br>}<br>ELSE<br>IF(IS(3, ROAD2)) {<br>SET(3, ROAD11);<br>}<br>ELSE<br>IF(IS(3, ROAD8)) {<br>SET(3, ROAD9);<br>}<br>}<br>IF(OUT(0) AND OUT(5) AND IS(2, ROAD1) AND IS(1, ROAD1) OR IS(1, ROAD6)) {<br>/*f3 */<br>SET(4, ROAD3);<br>IF(IS(3, ROAD1)) {<br>SET(4, ROAD8);<br>}<br>IF(IS(1, ROAD1)) {<br>SET(1, ROAD0);<br>}<br>ELSE<br>IF(IS(1, ROAD6)) {<br>SET(1, ROAD10);<br>}<br>IF(IS(7, ROAD11)) {<br>SET(7, ROAD4);<br>}<br>ELSE<br>IF(IS(7, ROAD2)) {<br>SET(7, ROAD12);<br>}<br>ELSE<br>IF(IS(7, ROAD0)) {<br>SET(7, ROAD10);<br>}<br>}<br>FOR(x = 0; x < 9; x++) {<br>SWITCH(c[x] -> type) {<br>CASE ROAD0: BltBMO(roads[0], drawbg, c[x] -> posx, c[x] -> posy);<br>BREAK;<br>CASE ROAD1: BltBMO(roads[1], drawbg, c[x] -> posx, c[x] -> posy);<br>BREAK;<br>CASE ROAD2: BltBMO(roads[2], drawbg, c[x] -> posx, c[x] -> posy);<br>BREAK;<br>CASE ROAD3: BltBMO(roads[3], drawbg, c[x] -> posx, c[x] -> posy);<br>BREAK;<br>CASE ROAD4: BltBMO(roads[4], drawbg, c[x] -> posx, c[x] -> posy);<br>BREAK;<br>CASE ROAD5: BltBMO(roads[5], drawbg, c[x] -> posx, c[x] -> posy);<br>BREAK;<br>CASE ROAD6: BltBMO(roads[6], drawbg, c[x] -> posx, c[x] -> posy);<br>BREAK;<br>CASE ROAD7: BltBMO(roads[7], drawbg, c[x] -> posx, c[x] -> posy);<br>BREAK;<br>CASE ROAD8: BltBMO(roads[8], drawbg, c[x] -> posx, c[x] -> posy);<br>BREAK;<br>CASE ROAD9: BltBMO(roads[9], drawbg, c[x] -> posx, c[x] -> posy);<br>BREAK;<br>CASE ROAD10: BltBMO(roads[10], drawbg, c[x] -> posx, c[x] -> posy);<br>BREAK;<br>CASE ROAD11: BltBMO(roads[11], drawbg, c[x] -> posx, c[x] -> posy);<br>BREAK;<br>CASE ROAD12: BltBMO(roads[12], drawbg, c[x] -> posx, c[x] -> posy);<br>BREAK;<br>}<br>}<br>}<br>/*cel.c */<br>#define INC_GRAPHICS<br>#define NO_BASE#include ".H:macros.h"<br>#include ".H:game.h"<br>CEL celview[23][18]; /*VIEW WIDTH, HEIGHT */<br>CEL celbgnd[120][81]; /*drawbm WIDTH, HEIGHT */<br>VOID InitCel(VOID) {<br>REGISTER LONG x = NL, y = NL;<br>FOR(x = 0; x < 120; x++) /*background celules */ {<br>FOR(y = 0; y < 81; y++) {<br>celbgnd[x][y].posx = (x * 10);<br>celbgnd[x][y].posy = (y * 10);<br>celbgnd[x][y].type = TERRE;<br>}<br>}<br>FOR(x = 0; x < 23; x++) {<br>FOR(y = 0; y < 18; y++) {<br>celview[x][y].posx = (x * 10) + VIEW_LEFT;<br>celview[x][y].posy = (y * 10) + VIEW_TOP;<br>celview[x][y].type = NL;<br>}<br>}<br>}<br>/*bm.c */<br>#define INC_EXEC<br>#define INC_GRAPHICS<br>#define NO_BASE#include ".H:macros.h"<br>#include ".H:game.h"<br>#include ".H:data.h"<br>EXTERN ULONG RangeSeed;<br>EXTERN RAST_PORT * rp[NUMBUF];<br>EXTERN CEL celbgnd[120][81]; /*drawbm WIDTH, HEIGHT */<br>/*-------------------------------------------------------------------------*/<br>BIT_MAP_OBJ * drawbg = NL;<br>BIT_MAP * userbg = NL;<br>BIT_MAP_OBJ * terre = NL;<br>BIT_MAP_OBJ * arbre = NL;<br>BIT_MAP_OBJ * pbuis = NL;<br>BIT_MAP_OBJ * gbuis = NL;<br>BIT_MAP_OBJ * gravi = NL;<br>BIT_MAP_OBJ * creva = NL;<br>BIT_MAP_OBJ * brous0[4] = NL;<br>BIT_MAP_OBJ * brous1[4] = NL;<br>BIT_MAP_OBJ * brous2[4] = NL;<br>BIT_MAP_OBJ * brous3[4] = NL;<br>BIT_MAP_OBJ * brous4[9] = NL;<br>BIT_MAP_OBJ * brous5[4] = NL;<br>BIT_MAP_OBJ * brous6[4] = NL;<br>BIT_MAP_OBJ * brous7[4] = NL;<br>BIT_MAP_OBJ * brous8[4] = NL;<br>BIT_MAP_OBJ * flots0[4] = NL;<br>BIT_MAP_OBJ * flots1[4] = NL;<br>BIT_MAP_OBJ * flots2[4] = NL;<br>BIT_MAP_OBJ * flots3[4] = NL;<br>BIT_MAP_OBJ * flots4[9] = NL;<br>BIT_MAP_OBJ * flots5[4] = NL;<br>BIT_MAP_OBJ * flots6[4] = NL;<br>BIT_MAP_OBJ * flots7[4] = NL;<br>BIT_MAP_OBJ * flots8[4] = NL;<br>BIT_MAP_OBJ * roads[13] = NL;<br>BIT_MAP_OBJ * house[8] = NL;<br>BIT_MAP_OBJ * comme[8] = NL;<br>BIT_MAP_OBJ * indus[8] = NL;<br>BIT_MAP_OBJ * agric[8] = NL;<br>BIT_MAP_OBJ * base[4] = NL;<br>BIT_MAP_OBJ * bmo_cur = NL;<br>/*-------------------------------------------------------------------------*/<br>VOID UnInitAllBitMap(VOID);<br>VOID AspergeBitMap(BIT_MAP_OBJ * o, INT n, INT type);<br>VOID Blit(BIT_MAP_OBJ * o, INT x, INT y, INT type);<br>VOID InitAllBitMap(VOID);<br>/*-------------------------------------------------------------------------*/<br>goflots(INT x, INT y) {<br>INT n = NL, endtrace = FALSE;<br>endtrace = FALSE;<br>WHILE(endtrace == FALSE) {<br>celbgnd[x][y].type = FLOT4;<br>celbgnd[x + 1][y].type = FLOT4;<br>celbgnd[x + 1][y + 1].type = FLOT4;<br>celbgnd[x][y + 1].type = FLOT4;<br>x += (RangeRand(4) > 1 ? 1 : -1);<br>IF(x > 118) {<br>endtrace = TRUE;<br>}<br>ELSE IF(x < 0) x = 0;<br>y += (RangeRand(4) > 1 ? 1 : -1);<br>IF(y > 79) {<br>endtrace = TRUE;<br>}<br>ELSE IF(y < 0) y = 0;<br>}<br>}<br>gobrous(INT x, INT y) {<br>INT n = NL, endtrace = FALSE;<br>endtrace = FALSE;<br>WHILE(endtrace == FALSE) {<br>IF(celbgnd[x][y].type != FLOT4 AND celbgnd[x + 1][y].type != FLOT4 AND celbgnd[x + 1][y + 1].type != FLOT4 AND celbgnd[x][y + 1].type != FLOT4) {<br>celbgnd[x][y].type = BROU4;<br>celbgnd[x + 1][y].type = BROU4;<br>celbgnd[x + 1][y + 1].type = BROU4;<br>celbgnd[x][y + 1].type = BROU4;<br>}<br>x += (RangeRand(4) > 1 ? 1 : -1);<br>IF(x > 118) {<br>endtrace = TRUE;<br>}<br>ELSE IF(x < 0) x = 0;<br>y += (RangeRand(4) > 1 ? 1 : -1);<br>IF(y > 79) {<br>endtrace = TRUE;<br>}<br>ELSE IF(y < 0) y = 0;<br>}<br>}<br>/*-------------------------------------------------------------------------*/<br>VOID InitAllBitMap(VOID) {<br>UWORD x, y;<br>NewBMO(drawbg, 1200, 810, 5);<br>userbg = (BIT_MAP * ) NewBitMapPlanes(320, 50, 5, & user0[0], & user1[0], & user2[0], & user3[0], & user4[0]);<br>terre = (BIT_MAP_OBJ * ) NewBMOPlanes(ARBRE, 30, 30, 5, & terre0[0], & terre1[0], & terre2[0], & terre3[0], & terre4[0]);<br>arbre = (BIT_MAP_OBJ * ) NewBMOPlanes(PBUIS, 10, 10, 5, & arbre0[0], & arbre1[0], & arbre2[0], & arbre3[0], & arbre4[0]);<br>pbuis = (BIT_MAP_OBJ * ) NewBMOPlanes(GBUIS, 10, 10, 5, & pbuis0[0], & pbuis1[0], & pbuis2[0], & pbuis3[0], & pbuis4[0]);<br>gbuis = (BIT_MAP_OBJ * ) NewBMOPlanes(GRAVI, 10, 10, 5, & gbuis0[0], & gbuis1[0], & gbuis2[0], & gbuis3[0], & gbuis4[0]);<br>gravi = (BIT_MAP_OBJ * ) NewBMOPlanes(MONTA, 10, 10, 5, & gravi0[0], & gravi1[0], & gravi2[0], & gravi3[0], & gravi4[0]);<br>creva = (BIT_MAP_OBJ * ) NewBMOPlanes(CREVA, 10, 10, 5, & creva0[0], & creva1[0], & creva2[0], & creva3[0], & creva4[0]);<br>brous0[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU0, 10, 10, 5, & brous000[0], & brous001[0], & brous002[0], & brous003[0], & brous004[0]);<br>brous0[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU0, 10, 10, 5, & brous010[0], & brous011[0], & brous012[0], & brous013[0], & brous014[0]);<br>brous0[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU0, 10, 10, 5, & brous020[0], & brous021[0], & brous022[0], & brous023[0], & brous024[0]);<br>brous0[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU0, 10, 10, 5, & brous030[0], & brous031[0], & brous032[0], & brous033[0], & brous034[0]);<br>brous1[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU1, 10, 10, 5, & brous100[0], & brous101[0], & brous102[0], & brous103[0], & brous104[0]);<br>brous1[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU1, 10, 10, 5, & brous110[0], & brous111[0], & brous112[0], & brous113[0], & brous114[0]);<br>brous1[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU1, 10, 10, 5, & brous120[0], & brous121[0], & brous122[0], & brous123[0], & brous124[0]);<br>brous1[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU1, 10, 10, 5, & brous130[0], & brous131[0], & brous132[0], & brous133[0], & brous134[0]);<br>brous2[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU2, 10, 10, 5, & brous200[0], & brous201[0], & brous202[0], & brous203[0], & brous204[0]);<br>brous2[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU2, 10, 10, 5, & brous210[0], & brous211[0], & brous212[0], & brous213[0], & brous214[0]);<br>brous2[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU2, 10, 10, 5, & brous220[0], & brous221[0], & brous222[0], & brous223[0], & brous224[0]);<br>brous2[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU2, 10, 10, 5, & brous230[0], & brous231[0], & brous232[0], & brous233[0], & brous234[0]);<br>brous3[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU3, 10, 10, 5, & brous300[0], & brous301[0], & brous302[0], & brous303[0], & brous304[0]);<br>brous3[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU3, 10, 10, 5, & brous310[0], & brous311[0], & brous312[0], & brous313[0], & brous314[0]);<br>brous3[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU3, 10, 10, 5, & brous320[0], & brous321[0], & brous322[0], & brous323[0], & brous324[0]);<br>brous3[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU3, 10, 10, 5, & brous330[0], & brous331[0], & brous332[0], & brous333[0], & brous334[0]);<br>brous5[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU5, 10, 10, 5, & brous500[0], & brous501[0], & brous502[0], & brous503[0], & brous504[0]);<br>brous5[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU5, 10, 10, 5, & brous510[0], & brous511[0], & brous512[0], & brous513[0], & brous514[0]);<br>brous5[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU5, 10, 10, 5, & brous520[0], & brous521[0], & brous522[0], & brous523[0], & brous524[0]);<br>brous5[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU5, 10, 10, 5, & brous530[0], & brous531[0], & brous532[0], & brous533[0], & brous534[0]);<br>brous6[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU6, 10, 10, 5, & brous600[0], & brous601[0], & brous602[0], & brous603[0], & brous604[0]);<br>brous6[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU6, 10, 10, 5, & brous610[0], & brous611[0], & brous612[0], & brous613[0], & brous614[0]);<br>brous6[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU6, 10, 10, 5, & brous620[0], & brous621[0], & brous622[0], & brous623[0], & brous624[0]);<br>brous6[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU6, 10, 10, 5, & brous630[0], & brous631[0], & brous632[0], & brous633[0], & brous634[0]);<br>brous7[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU7, 10, 10, 5, & brous700[0], & brous701[0], & brous702[0], & brous703[0], & brous704[0]);<br>brous7[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU7, 10, 10, 5, & brous710[0], & brous711[0], & brous712[0], & brous713[0], & brous714[0]);<br>brous7[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU7, 10, 10, 5, & brous720[0], & brous721[0], & brous722[0], & brous723[0], & brous724[0]);<br>brous7[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU7, 10, 10, 5, & brous730[0], & brous731[0], & brous732[0], & brous733[0], & brous734[0]);<br>brous8[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU8, 10, 10, 5, & brous800[0], & brous801[0], & brous802[0], & brous803[0], & brous804[0]);<br>brous8[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU8, 10, 10, 5, & brous810[0], & brous811[0], & brous812[0], & brous813[0], & brous814[0]);<br>brous8[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU8, 10, 10, 5, & brous820[0], & brous821[0], & brous822[0], & brous823[0], & brous824[0]);<br>brous8[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU8, 10, 10, 5, & brous830[0], & brous831[0], & brous832[0], & brous833[0], & brous834[0]);<br>brous4[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU4, 10, 10, 5, & brous400[0], & brous401[0], & brous402[0], & brous403[0], & brous404[0]);<br>brous4[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU4, 10, 10, 5, & brous410[0], & brous411[0], & brous412[0], & brous413[0], & brous414[0]);<br>brous4[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU4, 10, 10, 5, & brous420[0], & brous421[0], & brous422[0], & brous423[0], & brous424[0]);<br>brous4[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU4, 10, 10, 5, & brous430[0], & brous431[0], & brous432[0], & brous433[0], & brous434[0]);<br>brous4[4] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU4, 10, 10, 5, & brous440[0], & brous441[0], & brous442[0], & brous443[0], & brous444[0]);<br>brous4[5] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU4, 10, 10, 5, & brous450[0], & brous451[0], & brous452[0], & brous453[0], & brous454[0]);<br>brous4[6] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU4, 10, 10, 5, & brous460[0], & brous461[0], & brous462[0], & brous463[0], & brous464[0]);<br>brous4[7] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU4, 10, 10, 5, & brous470[0], & brous471[0], & brous472[0], & brous473[0], & brous474[0]);<br>brous4[8] = (BIT_MAP_OBJ * ) NewBMOPlanes(BROU4, 10, 10, 5, & brous480[0], & brous481[0], & brous482[0], & brous483[0], & brous484[0]);<br>flots0[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT0, 10, 10, 5, & flots000[0], & flots001[0], & flots002[0], & flots003[0], & flots004[0]);<br>flots0[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT0, 10, 10, 5, & flots010[0], & flots011[0], & flots012[0], & flots013[0], & flots014[0]);<br>flots0[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT0, 10, 10, 5, & flots020[0], & flots021[0], & flots022[0], & flots023[0], & flots024[0]);<br>flots0[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT0, 10, 10, 5, & flots030[0], & flots031[0], & flots032[0], & flots033[0], & flots034[0]);<br>flots1[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT1, 10, 10, 5, & flots100[0], & flots101[0], & flots102[0], & flots103[0], & flots104[0]);<br>flots1[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT1, 10, 10, 5, & flots110[0], & flots111[0], & flots112[0], & flots113[0], & flots114[0]);<br>flots1[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT1, 10, 10, 5, & flots120[0], & flots121[0], & flots122[0], & flots123[0], & flots124[0]);<br>flots1[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT1, 10, 10, 5, & flots130[0], & flots131[0], & flots132[0], & flots133[0], & flots134[0]);<br>flots2[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT2, 10, 10, 5, & flots200[0], & flots201[0], & flots202[0], & flots203[0], & flots204[0]);<br>flots2[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT2, 10, 10, 5, & flots210[0], & flots211[0], & flots212[0], & flots213[0], & flots214[0]);<br>flots2[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT2, 10, 10, 5, & flots220[0], & flots221[0], & flots222[0], & flots223[0], & flots224[0]);<br>flots2[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT2, 10, 10, 5, & flots230[0], & flots231[0], & flots232[0], & flots233[0], & flots234[0]);<br>flots3[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT3, 10, 10, 5, & flots300[0], & flots301[0], & flots302[0], & flots303[0], & flots304[0]);<br>flots3[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT3, 10, 10, 5, & flots310[0], & flots311[0], & flots312[0], & flots313[0], & flots314[0]);<br>flots3[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT3, 10, 10, 5, & flots320[0], & flots321[0], & flots322[0], & flots323[0], & flots324[0]);<br>flots3[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT3, 10, 10, 5, & flots330[0], & flots331[0], & flots332[0], & flots333[0], & flots334[0]);<br>flots5[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT5, 10, 10, 5, & flots500[0], & flots501[0], & flots502[0], & flots503[0], & flots504[0]);<br>flots5[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT5, 10, 10, 5, & flots510[0], & flots511[0], & flots512[0], & flots513[0], & flots514[0]);<br>flots5[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT5, 10, 10, 5, & flots520[0], & flots521[0], & flots522[0], & flots523[0], & flots524[0]);<br>flots5[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT5, 10, 10, 5, & flots530[0], & flots531[0], & flots532[0], & flots533[0], & flots534[0]);<br>flots6[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT6, 10, 10, 5, & flots600[0], & flots601[0], & flots602[0], & flots603[0], & flots604[0]);<br>flots6[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT6, 10, 10, 5, & flots610[0], & flots611[0], & flots612[0], & flots613[0], & flots614[0]);<br>flots6[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT6, 10, 10, 5, & flots620[0], & flots621[0], & flots622[0], & flots623[0], & flots624[0]);<br>flots6[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT6, 10, 10, 5, & flots630[0], & flots631[0], & flots632[0], & flots633[0], & flots634[0]);<br>flots7[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT7, 10, 10, 5, & flots700[0], & flots701[0], & flots702[0], & flots703[0], & flots704[0]);<br>flots7[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT7, 10, 10, 5, & flots710[0], & flots711[0], & flots712[0], & flots713[0], & flots714[0]);<br>flots7[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT7, 10, 10, 5, & flots720[0], & flots721[0], & flots722[0], & flots723[0], & flots724[0]);<br>flots7[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT7, 10, 10, 5, & flots730[0], & flots731[0], & flots732[0], & flots733[0], & flots734[0]);<br>flots8[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT8, 10, 10, 5, & flots800[0], & flots801[0], & flots802[0], & flots803[0], & flots804[0]);<br>flots8[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT8, 10, 10, 5, & flots810[0], & flots811[0], & flots812[0], & flots813[0], & flots814[0]);<br>flots8[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT8, 10, 10, 5, & flots820[0], & flots821[0], & flots822[0], & flots823[0], & flots824[0]);<br>flots8[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT8, 10, 10, 5, & flots830[0], & flots831[0], & flots832[0], & flots833[0], & flots834[0]);<br>flots4[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT4, 10, 10, 5, & flots400[0], & flots401[0], & flots402[0], & flots403[0], & flots404[0]);<br>flots4[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT4, 10, 10, 5, & flots410[0], & flots411[0], & flots412[0], & flots413[0], & flots414[0]);<br>flots4[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT4, 10, 10, 5, & flots420[0], & flots421[0], & flots422[0], & flots423[0], & flots424[0]);<br>flots4[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT4, 10, 10, 5, & flots430[0], & flots431[0], & flots432[0], & flots433[0], & flots434[0]);<br>flots4[4] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT4, 10, 10, 5, & flots440[0], & flots441[0], & flots442[0], & flots443[0], & flots444[0]);<br>flots4[5] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT4, 10, 10, 5, & flots450[0], & flots451[0], & flots452[0], & flots453[0], & flots454[0]);<br>flots4[6] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT4, 10, 10, 5, & flots460[0], & flots461[0], & flots462[0], & flots463[0], & flots464[0]);<br>flots4[7] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT4, 10, 10, 5, & flots470[0], & flots471[0], & flots472[0], & flots473[0], & flots474[0]);<br>flots4[8] = (BIT_MAP_OBJ * ) NewBMOPlanes(FLOT4, 10, 10, 5, & flots480[0], & flots481[0], & flots482[0], & flots483[0], & flots484[0]);<br>roads[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(ROAD0, 10, 10, 5, & roads00[0], & roads01[0], & roads02[0], & roads03[0], & roads04[0]);<br>roads[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(ROAD1, 10, 10, 5, & roads10[0], & roads11[0], & roads12[0], & roads13[0], & roads14[0]);<br>roads[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(ROAD2, 10, 10, 5, & roads20[0], & roads21[0], & roads22[0], & roads23[0], & roads24[0]);<br>roads[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(ROAD3, 10, 10, 5, & roads30[0], & roads31[0], & roads32[0], & roads33[0], & roads34[0]);<br>roads[4] = (BIT_MAP_OBJ * ) NewBMOPlanes(ROAD4, 10, 10, 5, & roads40[0], & roads41[0], & roads42[0], & roads43[0], & roads44[0]);<br>roads[5] = (BIT_MAP_OBJ * ) NewBMOPlanes(ROAD5, 10, 10, 5, & roads50[0], & roads51[0], & roads52[0], & roads53[0], & roads54[0]);<br>roads[6] = (BIT_MAP_OBJ * ) NewBMOPlanes(ROAD6, 10, 10, 5, & roads60[0], & roads61[0], & roads62[0], & roads63[0], & roads64[0]);<br>roads[7] = (BIT_MAP_OBJ * ) NewBMOPlanes(ROAD7, 10, 10, 5, & roads70[0], & roads71[0], & roads72[0], & roads73[0], & roads74[0]);<br>roads[8] = (BIT_MAP_OBJ * ) NewBMOPlanes(ROAD8, 10, 10, 5, & roads80[0], & roads81[0], & roads82[0], & roads83[0], & roads84[0]);<br>roads[9] = (BIT_MAP_OBJ * ) NewBMOPlanes(ROAD9, 10, 10, 5, & roads90[0], & roads91[0], & roads92[0], & roads93[0], & roads94[0]);<br>roads[10] = (BIT_MAP_OBJ * ) NewBMOPlanes(ROAD10, 10, 10, 5, & roads100[0], & roads101[0], & roads102[0], & roads103[0], & roads104[0]);<br>roads[11] = (BIT_MAP_OBJ * ) NewBMOPlanes(ROAD11, 10, 10, 5, & roads110[0], & roads111[0], & roads112[0], & roads113[0], & roads114[0]);<br>roads[12] = (BIT_MAP_OBJ * ) NewBMOPlanes(ROAD12, 10, 10, 5, & roads120[0], & roads121[0], & roads122[0], & roads123[0], & roads124[0]);<br>house[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(HOUS0, 30, 30, 5, & house00[0], & house01[0], & house02[0], & house03[0], & house04[0]);<br>house[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(HOUS1, 30, 30, 5, & house10[0], & house11[0], & house12[0], & house13[0], & house14[0]);<br>house[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(HOUS2, 30, 30, 5, & house20[0], & house21[0], & house22[0], & house23[0], & house24[0]);<br>house[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(HOUS3, 30, 30, 5, & house30[0], & house31[0], & house32[0], & house33[0], & house34[0]);<br>house[4] = (BIT_MAP_OBJ * ) NewBMOPlanes(HOUS4, 30, 30, 5, & house40[0], & house41[0], & house42[0], & house43[0], & house44[0]);<br>house[5] = (BIT_MAP_OBJ * ) NewBMOPlanes(HOUS5, 30, 30, 5, & house50[0], & house51[0], & house52[0], & house53[0], & house54[0]);<br>house[6] = (BIT_MAP_OBJ * ) NewBMOPlanes(HOUS6, 30, 30, 5, & house60[0], & house61[0], & house62[0], & house63[0], & house64[0]);<br>house[7] = (BIT_MAP_OBJ * ) NewBMOPlanes(HOUS7, 30, 30, 5, & house70[0], & house71[0], & house72[0], & house73[0], & house74[0]);<br>comme[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(COMM0, 30, 30, 5, & comme00[0], & comme01[0], & comme02[0], & comme03[0], & comme04[0]);<br>comme[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(COMM1, 30, 30, 5, & comme10[0], & comme11[0], & comme12[0], & comme13[0], & comme14[0]);<br>comme[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(COMM2, 30, 30, 5, & comme20[0], & comme21[0], & comme22[0], & comme23[0], & comme24[0]);<br>comme[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(COMM3, 30, 30, 5, & comme30[0], & comme31[0], & comme32[0], & comme33[0], & comme34[0]);<br>comme[4] = (BIT_MAP_OBJ * ) NewBMOPlanes(COMM4, 30, 30, 5, & comme40[0], & comme41[0], & comme42[0], & comme43[0], & comme44[0]);<br>comme[5] = (BIT_MAP_OBJ * ) NewBMOPlanes(COMM5, 30, 30, 5, & comme50[0], & comme51[0], & comme52[0], & comme53[0], & comme54[0]);<br>comme[6] = (BIT_MAP_OBJ * ) NewBMOPlanes(COMM6, 30, 30, 5, & comme60[0], & comme61[0], & comme62[0], & comme63[0], & comme64[0]);<br>comme[7] = (BIT_MAP_OBJ * ) NewBMOPlanes(COMM7, 30, 30, 5, & comme70[0], & comme71[0], & comme72[0], & comme73[0], & comme74[0]);<br>indus[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(INDU0, 30, 30, 5, & indus00[0], & indus01[0], & indus02[0], & indus03[0], & indus04[0]);<br>indus[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(INDU1, 30, 30, 5, & indus10[0], & indus11[0], & indus12[0], & indus13[0], & indus14[0]);<br>indus[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(INDU2, 30, 30, 5, & indus20[0], & indus21[0], & indus22[0], & indus23[0], & indus24[0]);<br>indus[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(INDU3, 30, 30, 5, & indus30[0], & indus31[0], & indus32[0], & indus33[0], & indus34[0]);<br>indus[4] = (BIT_MAP_OBJ * ) NewBMOPlanes(INDU4, 30, 30, 5, & indus40[0], & indus41[0], & indus42[0], & indus43[0], & indus44[0]);<br>indus[5] = (BIT_MAP_OBJ * ) NewBMOPlanes(INDU5, 30, 30, 5, & indus50[0], & indus51[0], & indus52[0], & indus53[0], & indus54[0]);<br>indus[6] = (BIT_MAP_OBJ * ) NewBMOPlanes(INDU6, 30, 30, 5, & indus60[0], & indus61[0], & indus62[0], & indus63[0], & indus64[0]);<br>indus[7] = (BIT_MAP_OBJ * ) NewBMOPlanes(INDU7, 30, 30, 5, & indus70[0], & indus71[0], & indus72[0], & indus73[0], & indus74[0]);<br>agric[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(AGRI0, 30, 30, 5, & agric00[0], & agric01[0], & agric02[0], & agric03[0], & agric04[0]);<br>agric[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(AGRI1, 30, 30, 5, & agric10[0], & agric11[0], & agric12[0], & agric13[0], & agric14[0]);<br>agric[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(AGRI2, 30, 30, 5, & agric20[0], & agric21[0], & agric22[0], & agric23[0], & agric24[0]);<br>agric[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(AGRI3, 30, 30, 5, & agric30[0], & agric31[0], & agric32[0], & agric33[0], & agric34[0]);<br>agric[4] = (BIT_MAP_OBJ * ) NewBMOPlanes(AGRI4, 30, 30, 5, & agric40[0], & agric41[0], & agric42[0], & agric43[0], & agric44[0]);<br>agric[5] = (BIT_MAP_OBJ * ) NewBMOPlanes(AGRI5, 30, 30, 5, & agric50[0], & agric51[0], & agric52[0], & agric53[0], & agric54[0]);<br>agric[6] = (BIT_MAP_OBJ * ) NewBMOPlanes(AGRI6, 30, 30, 5, & agric60[0], & agric61[0], & agric62[0], & agric63[0], & agric64[0]);<br>agric[7] = (BIT_MAP_OBJ * ) NewBMOPlanes(AGRI7, 30, 30, 5, & agric70[0], & agric71[0], & agric72[0], & agric73[0], & agric74[0]);<br>base[0] = (BIT_MAP_OBJ * ) NewBMOPlanes(HOUS, 30, 30, 5, & house_base0[0], & house_base1[0], & house_base2[0], & house_base3[0], & house_base4[0]);<br>base[1] = (BIT_MAP_OBJ * ) NewBMOPlanes(COMM, 30, 30, 5, & comme_base0[0], & comme_base1[0], & comme_base2[0], & comme_base3[0], & comme_base4[0]);<br>base[2] = (BIT_MAP_OBJ * ) NewBMOPlanes(INDU, 30, 30, 5, & indus_base0[0], & indus_base1[0], & indus_base2[0], & indus_base3[0], & indus_base4[0]);<br>base[3] = (BIT_MAP_OBJ * ) NewBMOPlanes(AGRI, 30, 30, 5, & agric_base0[0], & agric_base1[0], & agric_base2[0], & agric_base3[0], & agric_base4[0]);<br>RangeSeed = (VBeamPos() * 100);<br>FOR(x = 0; x < drawbg -> w; x += terre -> w) {<br>FOR(y = 0; y < drawbg -> h; y += terre -> h) {<br>BltBMO(terre, drawbg, x, y);<br>}<br>}<br>AspergeBitMap(arbre, 800, TERRE);<br>AspergeBitMap(pbuis, 30, TERRE);<br>AspergeBitMap(gbuis, 60, TERRE);<br>AspergeBitMap(gravi, 20, TERRE);<br>AspergeBitMap(creva, 20, TERRE);<br>goflots(RangeRand(30), RangeRand(20));<br>goflots(RangeRand(30) + 90, RangeRand(20) + 60);<br>gobrous(RangeRand(30) + 90, RangeRand(30));<br>gobrous(RangeRand(30), RangeRand(30) + 50);<br>#<br>define GND > 8<br>#define BRS <= 8<br>FOR(x = 0; x < 120; x++) {<br>FOR(y = 0; y < 81; y++) {<br>IF(celbgnd[x][y].type == BROU4) {<br>IF(celbgnd[x - 1][y].type GND AND celbgnd[x][y - 1].type GND AND celbgnd[x + 1][y].type BRS AND celbgnd[x][y + 1].type BRS) {<br>celbgnd[x][y].type = BROU0;<br>}<br>ELSE<br>IF(celbgnd[x - 1][y].type GND AND celbgnd[x][y - 1].type BRS AND celbgnd[x + 1][y].type BRS AND celbgnd[x][y + 1].type BRS) {<br>celbgnd[x][y].type = BROU1;<br>}<br>ELSE<br>IF(celbgnd[x - 1][y].type GND AND celbgnd[x][y - 1].type BRS AND celbgnd[x + 1][y].type BRS AND celbgnd[x][y + 1].type GND) {<br>celbgnd[x][y].type = BROU2;<br>}<br>ELSE<br>IF(celbgnd[x - 1][y].type BRS AND celbgnd[x][y - 1].type GND AND celbgnd[x + 1][y].type BRS AND celbgnd[x][y + 1].type BRS) {<br>celbgnd[x][y].type = BROU3;<br>}<br>ELSE<br>IF(celbgnd[x - 1][y].type BRS AND celbgnd[x][y - 1].type BRS AND celbgnd[x + 1][y].type BRS AND celbgnd[x][y + 1].type GND) {<br>celbgnd[x][y].type = BROU5;<br>}<br>IF(celbgnd[x - 1][y].type BRS AND celbgnd[x][y - 1].type GND AND celbgnd[x + 1][y].type GND AND celbgnd[x][y + 1].type BRS) {<br>celbgnd[x][y].type = BROU6;<br>}<br>ELSE<br>IF(celbgnd[x - 1][y].type BRS AND celbgnd[x][y - 1].type BRS AND celbgnd[x + 1][y].type GND AND celbgnd[x][y + 1].type BRS) {<br>celbgnd[x][y].type = BROU7;<br>}<br>ELSE<br>IF(celbgnd[x - 1][y].type BRS AND celbgnd[x][y - 1].type BRS AND celbgnd[x + 1][y].type GND AND celbgnd[x][y + 1].type GND) {<br>celbgnd[x][y].type = BROU8;<br>}<br>}<br>ELSE<br>IF(celbgnd[x][y].type == FLOT4) {<br>IF((celbgnd[x - 1][y].type < 9 OR celbgnd[x - 1][y].type > 17) AND(celbgnd[x][y - 1].type < 9 OR celbgnd[x][y - 1].type > 17) AND celbgnd[x + 1][y].type >= 9 AND celbgnd[x + 1][y].type <= 17 AND celbgnd[x][y + 1].type >= 9 AND celbgnd[x][y + 1].type <= 17) {<br>celbgnd[x][y].type = FLOT0;<br>}<br>ELSE<br>IF((celbgnd[x - 1][y].type < 9 OR celbgnd[x - 1][y].type > 17) AND celbgnd[x][y - 1].type >= 9 AND celbgnd[x][y - 1].type <= 17 AND celbgnd[x + 1][y].type >= 9 AND celbgnd[x + 1][y].type <= 17 AND celbgnd[x][y + 1].type >= 9 AND celbgnd[x][y + 1].type <= 17) {<br>celbgnd[x][y].type = FLOT1;<br>}<br>ELSE<br>IF((celbgnd[x - 1][y].type < 9 OR celbgnd[x - 1][y].type > 17) AND celbgnd[x][y - 1].type >= 9 AND celbgnd[x][y - 1].type <= 17 AND celbgnd[x + 1][y].type >= 9 AND celbgnd[x + 1][y].type <= 17 AND(celbgnd[x][y + 1].type < 9 OR celbgnd[x][y + 1].type > 17)) {<br>celbgnd[x][y].type = FLOT2;<br>}<br>ELSE<br>IF(celbgnd[x - 1][y].type >= 9 AND celbgnd[x - 1][y].type <= 17 AND(celbgnd[x][y - 1].type < 9 OR celbgnd[x][y - 1].type > 17) AND celbgnd[x + 1][y].type >= 9 AND celbgnd[x + 1][y].type <= 17 AND celbgnd[x][y + 1].type >= 9 AND celbgnd[x][y + 1].type <= 17) {<br>celbgnd[x][y].type = FLOT3;<br>}<br>ELSE<br>IF(celbgnd[x - 1][y].type >= 9 AND celbgnd[x - 1][y].type <= 17 AND celbgnd[x][y - 1].type >= 9 AND celbgnd[x][y - 1].type <= 17 AND celbgnd[x + 1][y].type >= 9 AND celbgnd[x + 1][y].type <= 17 AND(celbgnd[x][y + 1].type < 9 OR celbgnd[x][y + 1].type > 17)) {<br>celbgnd[x][y].type = FLOT5;<br>}<br>IF(celbgnd[x - 1][y].type >= 9 AND celbgnd[x - 1][y].type <= 17 AND(celbgnd[x][y - 1].type < 9 OR celbgnd[x][y - 1].type > 17) AND(celbgnd[x + 1][y].type < 9 OR celbgnd[x + 1][y].type > 17) AND celbgnd[x][y + 1].type >= 9 AND celbgnd[x][y + 1].type <= 17) {<br>celbgnd[x][y].type = FLOT6;<br>}<br>ELSE<br>IF(celbgnd[x - 1][y].type >= 9 AND celbgnd[x - 1][y].type <= 17 AND celbgnd[x][y - 1].type >= 9 AND celbgnd[x][y - 1].type <= 17 AND(celbgnd[x + 1][y].type < 9 OR celbgnd[x + 1][y].type > 17) AND celbgnd[x][y + 1].type >= 9 AND celbgnd[x][y + 1].type <= 17) {<br>celbgnd[x][y].type = FLOT7;<br>}<br>ELSE<br>IF(celbgnd[x - 1][y].type >= 9 AND celbgnd[x - 1][y].type <= 17 AND celbgnd[x][y - 1].type >= 9 AND celbgnd[x][y - 1].type <= 17 AND(celbgnd[x + 1][y].type < 9 OR celbgnd[x + 1][y].type > 17) AND(celbgnd[x][y + 1].type < 9 OR celbgnd[x][y + 1].type > 17)) {<br>celbgnd[x][y].type = FLOT8;<br>}<br>}<br>}<br>}<br>FOR(x = 0; x < 120; x++) /*background celules */ {<br>FOR(y = 0; y < 81; y++) {<br>REGISTER n = RangeRand(4);<br>SWITCH(celbgnd[x][y].type) {<br>CASE BROU0: Blit(brous0[n], x, y, BROUS);<br>BREAK;<br>CASE BROU1: Blit(brous1[n], x, y, BROUS);<br>BREAK;<br>CASE BROU2: Blit(brous2[n], x, y, BROUS);<br>BREAK;<br>CASE BROU3: Blit(brous3[n], x, y, BROUS);<br>BREAK;<br>CASE BROU5: Blit(brous5[n], x, y, BROUS);<br>BREAK;<br>CASE BROU6: Blit(brous6[n], x, y, BROUS);<br>BREAK;<br>CASE BROU7: Blit(brous7[n], x, y, BROUS);<br>BREAK;<br>CASE BROU8: Blit(brous8[n], x, y, BROUS);<br>BREAK;<br>CASE FLOT0: Blit(flots0[n], x, y, FLOTS);<br>BREAK;<br>CASE FLOT1: Blit(flots1[n], x, y, FLOTS);<br>BREAK;<br>CASE FLOT2: Blit(flots2[n], x, y, FLOTS);<br>BREAK;<br>CASE FLOT3: Blit(flots3[n], x, y, FLOTS);<br>BREAK;<br>CASE FLOT5: Blit(flots5[n], x, y, FLOTS);<br>BREAK;<br>CASE FLOT6: Blit(flots6[n], x, y, FLOTS);<br>BREAK;<br>CASE FLOT7: Blit(flots7[n], x, y, FLOTS);<br>BREAK;<br>CASE FLOT8: Blit(flots8[n], x, y, FLOTS);<br>BREAK;<br>CASE BROU4: n = RangeRand(9);<br>Blit(brous4[n], x, y, BROUS);<br>BREAK;<br>CASE FLOT4: n = RangeRand(9);<br>Blit(flots4[n], x, y, FLOTS);<br>BREAK;<br>}<br>}<br>}<br>bmo_cur = roads[4];<br>}<br>/*-------------------------------------------------------------------------*/<br>VOID AspergeBitMap(BIT_MAP_OBJ * o, INT n, INT type) {<br>REGISTER UWORD x, y, i;<br>FOR(i = 0; i < n; i++) {<br>x = RangeRand(120);<br>y = RangeRand(81);<br>BltBMO(o, drawbg, celbgnd[x][y].posx, celbgnd[x][y].posy);<br>celbgnd[x][y].type = type;<br>}<br>}<br>VOID Blit(BIT_MAP_OBJ * o, INT x, INT y, INT type) {<br>BltBMO(o, drawbg, celbgnd[x][y].posx, celbgnd[x][y].posy);<br>celbgnd[x][y].type = type;<br>}<br>/*-------------------------------------------------------------------------*/<br>VOID UnInitAllBitMap(VOID) {<br>RemBMOPlanes(base[0]);<br>RemBMOPlanes(base[1]);<br>RemBMOPlanes(base[2]);<br>RemBMOPlanes(base[3]);<br>RemBMOPlanes(house[0]);<br>RemBMOPlanes(house[1]);<br>RemBMOPlanes(house[2]);<br>RemBMOPlanes(house[3]);<br>RemBMOPlanes(house[4]);<br>RemBMOPlanes(house[5]);<br>RemBMOPlanes(house[6]);<br>RemBMOPlanes(house[7]);<br>RemBMOPlanes(comme[0]);<br>RemBMOPlanes(comme[1]);<br>RemBMOPlanes(comme[2]);<br>RemBMOPlanes(comme[3]);<br>RemBMOPlanes(comme[4]);<br>RemBMOPlanes(comme[5]);<br>RemBMOPlanes(comme[6]);<br>RemBMOPlanes(comme[7]);<br>RemBMOPlanes(indus[0]);<br>RemBMOPlanes(indus[1]);<br>RemBMOPlanes(indus[2]);<br>RemBMOPlanes(indus[3]);<br>RemBMOPlanes(indus[4]);<br>RemBMOPlanes(indus[5]);<br>RemBMOPlanes(indus[6]);<br>RemBMOPlanes(indus[7]);<br>RemBMOPlanes(agric[0]);<br>RemBMOPlanes(agric[1]);<br>RemBMOPlanes(agric[2]);<br>RemBMOPlanes(agric[3]);<br>RemBMOPlanes(agric[4]);<br>RemBMOPlanes(agric[5]);<br>RemBMOPlanes(agric[6]);<br>RemBMOPlanes(agric[7]);<br>RemBMOPlanes(roads[0]);<br>RemBMOPlanes(roads[1]);<br>RemBMOPlanes(roads[2]);<br>RemBMOPlanes(roads[3]);<br>RemBMOPlanes(roads[4]);<br>RemBMOPlanes(roads[5]);<br>RemBMOPlanes(roads[6]);<br>RemBMOPlanes(roads[7]);<br>RemBMOPlanes(roads[8]);<br>RemBMOPlanes(roads[9]);<br>RemBMOPlanes(roads[10]);<br>RemBMOPlanes(roads[11]);<br>RemBMOPlanes(roads[12]);<br>RemBMOPlanes(brous0[0]);<br>RemBMOPlanes(brous0[1]);<br>RemBMOPlanes(brous0[2]);<br>RemBMOPlanes(brous0[3]);<br>RemBMOPlanes(brous1[0]);<br>RemBMOPlanes(brous1[1]);<br>RemBMOPlanes(brous1[2]);<br>RemBMOPlanes(brous1[3]);<br>RemBMOPlanes(brous2[0]);<br>RemBMOPlanes(brous2[1]);<br>RemBMOPlanes(brous2[2]);<br>RemBMOPlanes(brous2[3]);<br>RemBMOPlanes(brous3[0]);<br>RemBMOPlanes(brous3[1]);<br>RemBMOPlanes(brous3[2]);<br>RemBMOPlanes(brous3[3]);<br>RemBMOPlanes(brous5[0]);<br>RemBMOPlanes(brous5[1]);<br>RemBMOPlanes(brous5[2]);<br>RemBMOPlanes(brous5[3]);<br>RemBMOPlanes(brous6[0]);<br>RemBMOPlanes(brous6[1]);<br>RemBMOPlanes(brous6[2]);<br>RemBMOPlanes(brous6[3]);<br>RemBMOPlanes(brous7[0]);<br>RemBMOPlanes(brous7[1]);<br>RemBMOPlanes(brous7[2]);<br>RemBMOPlanes(brous7[3]);<br>RemBMOPlanes(brous8[0]);<br>RemBMOPlanes(brous8[1]);<br>RemBMOPlanes(brous8[2]);<br>RemBMOPlanes(brous8[3]);<br>RemBMOPlanes(brous4[0]);<br>RemBMOPlanes(brous4[1]);<br>RemBMOPlanes(brous4[2]);<br>RemBMOPlanes(brous4[3]);<br>RemBMOPlanes(brous4[4]);<br>RemBMOPlanes(brous4[5]);<br>RemBMOPlanes(brous4[6]);<br>RemBMOPlanes(brous4[7]);<br>RemBMOPlanes(brous4[8]);<br>RemBMOPlanes(flots0[0]);<br>RemBMOPlanes(flots0[1]);<br>RemBMOPlanes(flots0[2]);<br>RemBMOPlanes(flots0[3]);<br>RemBMOPlanes(flots1[0]);<br>RemBMOPlanes(flots1[1]);<br>RemBMOPlanes(flots1[2]);<br>RemBMOPlanes(flots1[3]);<br>RemBMOPlanes(flots2[0]);<br>RemBMOPlanes(flots2[1]);<br>RemBMOPlanes(flots2[2]);<br>RemBMOPlanes(flots2[3]);<br>RemBMOPlanes(flots3[0]);<br>RemBMOPlanes(flots3[1]);<br>RemBMOPlanes(flots3[2]);<br>RemBMOPlanes(flots3[3]);<br>RemBMOPlanes(flots5[0]);<br>RemBMOPlanes(flots5[1]);<br>RemBMOPlanes(flots5[2]);<br>RemBMOPlanes(flots5[3]);<br>RemBMOPlanes(flots6[0]);<br>RemBMOPlanes(flots6[1]);<br>RemBMOPlanes(flots6[2]);<br>RemBMOPlanes(flots6[3]);<br>RemBMOPlanes(flots7[0]);<br>RemBMOPlanes(flots7[1]);<br>RemBMOPlanes(flots7[2]);<br>RemBMOPlanes(flots7[3]);<br>RemBMOPlanes(flots8[0]);<br>RemBMOPlanes(flots8[1]);<br>RemBMOPlanes(flots8[2]);<br>RemBMOPlanes(flots8[3]);<br>RemBMOPlanes(flots4[0]);<br>RemBMOPlanes(flots4[1]);<br>RemBMOPlanes(flots4[2]);<br>RemBMOPlanes(flots4[3]);<br>RemBMOPlanes(flots4[4]);<br>RemBMOPlanes(flots4[5]);<br>RemBMOPlanes(flots4[6]);<br>RemBMOPlanes(flots4[7]);<br>RemBMOPlanes(flots4[8]);<br>RemBMOPlanes(terre);<br>RemBMOPlanes(arbre);<br>RemBMOPlanes(pbuis);<br>RemBMOPlanes(gbuis);<br>RemBMOPlanes(gravi);<br>RemBMOPlanes(creva);<br>RemBitMapPlanes(userbg);<br>RemBMO(drawbg);<br>}<br>/*amiga.c */<br>#define INC_EXEC<br>#define INC_DOS<br>#define INC_GRAPHICS<br>#define INC_INTUITION<br>#define INC_HARDWARE<br>#define NO_BASE#include ".H:macros.h"<br>EXTERN ULONG bye(ULONG); /*Attention a la déclaration de 'bye' dans 'main' */<br>/*Si le prototypage ne correspond, pas de branchement */<br>/*-------------------------------------------------------------------------*/<br>INT Request(WIN * win, STRPTR gad, STRPTR mes, APTR arg, ...);<br>VOID Error(WIN * win, STRPTR txt, LONG no);<br>LIB OpenLib(STRPTR name, LONG ver);<br>VOID CloseLib(LIB lib);<br>WIN * OpenWinTag(ULONG tag, ...);<br>VOID CloseWin(WIN * win);<br>SCR * OpenScrTag(ULONG tag, ...);<br>VOID CloseScr(SCR * scr);<br>VOID FlushMsg(MSG_PORT * mp, WIN * win);<br>/*-------------------------------------------------------------------------*/<br>INT Request(WIN * win, STRPTR gad, STRPTR mes, APTR arg, ...) {<br>INT result;<br>STRUCT EasyStruct es;<br>es.es_StructSize = (ULONG) SIZEOF(struct EasyStruct);<br>es.es_Flags = 0;<br>es.es_Title = 0;<br>es.es_TextFormat = (UBYTE * ) mes;<br>es.es_GadgetFormat = (UBYTE * ) gad;<br>result = EasyRequestArgs(win, & es, 0, & arg);<br>RETURN((INT) result);<br>}<br>/*-------------------------------------------------------------------------*/<br>VOID Error(WIN * win, STRPTR txt, LONG no) {<br>Request(win, "Ok", "\nError: %s\nCode: %ld\n", txt, no);<br>bye(no);<br>}<br>/*-------------------------------------------------------------------------*/<br>LIB OpenLib(STRPTR name, LONG ver) {<br>LIB lib;<br>if (NOT(lib = (LIB) OpenLibrary(name, ver))) {<br>Request(NL, "Ok", "\nError open library: %s\n Version: %ld\n", name, ver);<br>bye(1);<br>}<br>RETURN((LIB) lib);<br>}<br>/*-------------------------------------------------------------------------*/<br>VOID CloseLib(LIB lib) {<br>if (lib) CloseLibrary(lib);<br>}<br>/*-------------------------------------------------------------------------*/<br>WIN * OpenWinTag(ULONG tag, ...) {<br>WIN * win;<br>if (NOT(win = (WIN * ) OpenWindowTagList(NL, & tag))) {<br>Error(NL, "OpenWindowTags", 2);<br>}<br>RETURN((WIN * ) win);<br>}<br>/*-------------------------------------------------------------------------*/<br>SCR * OpenScrTag(ULONG tag, ...) {<br>SCR * scr;<br>if (NOT(scr = (SCR * ) OpenScreenTagList(NL, & tag))) {<br>Error(NL, "OpenScreenTags", 2);<br>}<br>RETURN((SCR * ) scr);<br>}<br>/*-------------------------------------------------------------------------*/<br>VOID CloseWin(WIN * win) {<br>Forbid();<br>FlushMsg(win -> UserPort, win);<br>win -> UserPort = NL;<br>ModifyIDCMP(win, 0 L);<br>Permit();<br>if (win) CloseWindow(win);<br>}<br>/*-------------------------------------------------------------------------*/<br>VOID CloseScr(SCR * scr) {<br>if (scr) CloseScreen(scr);<br>}<br>/*-------------------------------------------------------------------------*/<br>VOID FlushMsg(MSG_PORT * mp, WIN * win) {<br>INTUI_MSG * msg;<br>NODE * succ;<br>msg = (INTUI_MSG * ) mp -> mp_MsgList.lh_Head;<br>while (succ = msg -> ExecMessage.mn_Node.ln_Succ) {<br>if (msg -> IDCMPWindow == win) {<br>Remove((NODE * ) msg);<br>ReplyMsg((MSG * ) msg);<br>}<br>msg = (INTUI_MSG * ) succ;<br>}<br>}<br>/*-------------------------------------------------------------------------*/<br>BIT_MAP * NewBitMapPlanes(ULONG w, ULONG h, ULONG d, UWORD * p0, UWORD * p1, UWORD * p2, UWORD * p3, UWORD * p4, UWORD * p5, UWORD * p6, UWORD * p7) {<br>BIT_MAP * bm;<br>NewChip(bm, BIT_MAP);<br>InitBitMap(bm, d, w, h);<br>if (p0) bm -> Planes[0] = (PLANEPTR) p0;<br>if (p1) bm -> Planes[1] = (PLANEPTR) p1;<br>if (p2) bm -> Planes[2] = (PLANEPTR) p2;<br>if (p3) bm -> Planes[3] = (PLANEPTR) p3;<br>if (p4) bm -> Planes[4] = (PLANEPTR) p4;<br>if (p5) bm -> Planes[5] = (PLANEPTR) p5;<br>if (p6) bm -> Planes[6] = (PLANEPTR) p6;<br>if (p7) bm -> Planes[7] = (PLANEPTR) p7;<br>RETURN((BIT_MAP * ) bm);<br>}<br>/*-------------------------------------------------------------------------*/<br>BIT_MAP_OBJ * NewBMOPlanes(ULONG type, ULONG w, ULONG h, ULONG d, UWORD * p0, UWORD * p1, UWORD * p2, UWORD * p3, UWORD * p4, UWORD * p5, UWORD * p6, UWORD * p7) {<br>BIT_MAP_OBJ * bmo;<br>NewChip(bmo, BIT_MAP_OBJ);<br>NewChip(bmo -> bm, BIT_MAP);<br>InitBitMap(bmo -> bm, d, w, h);<br>bmo -> w = w;<br>bmo -> h = h;<br>bmo -> d = d;<br>bmo -> cw = w / 2;<br>bmo -> ch = h / 2;<br>bmo -> type = type;<br>if (p0) bmo -> bm -> Planes[0] = (PLANEPTR) p0;<br>if (p1) bmo -> bm -> Planes[1] = (PLANEPTR) p1;<br>if (p2) bmo -> bm -> Planes[2] = (PLANEPTR) p2;<br>if (p3) bmo -> bm -> Planes[3] = (PLANEPTR) p3;<br>if (p4) bmo -> bm -> Planes[4] = (PLANEPTR) p4;<br>if (p5) bmo -> bm -> Planes[5] = (PLANEPTR) p5;<br>if (p6) bmo -> bm -> Planes[6] = (PLANEPTR) p6;<br>if (p7) bmo -> bm -> Planes[7] = (PLANEPTR) p7;<br>RETURN((BIT_MAP_OBJ * ) bmo);<br>}<br>/*-------------------------------------------------------------------------*/<br>#define CIAAPRA 0xBFE001<br>#define PORT1 1<br>#define PORT2 2<br>#define LEFT_BUTTON 1<br>#define MIDDLE_BUTTON 2<br>#define RIGHT_BUTTON 4<br>EXTERN __far struct Custom custom;<br>struct CIA * cia = (struct CIA * ) CIAAPRA;<br>UBYTE Mouse(BYTE * mx, BYTE * my) {<br>UBYTE data = 0;<br>UWORD joy, pot;<br>static BYTE x = 0, y = 0, old_x = 0, old_y = 0;<br>custom.potgo = 0xFF00;<br>pot = custom.potinp;<br>joy = custom.joy0dat;<br>data += !(cia -> ciapra & 0x0040) ? LEFT_BUTTON : 0;<br>data += !(pot & 0x0100) ? MIDDLE_BUTTON : 0;<br>data += !(pot & 0x0400) ? RIGHT_BUTTON : 0;<br>old_x = x;<br>x = joy & 0x00FF;<br>* mx = x - old_x;<br>old_y = y;<br>y = joy >> 8;<br>* my = y - old_y;<br>return (data);<br>}<br>/*-------------------------------------------------------------------------*/<br>TASK * task = NL;<br>ULONG task_status = 10;<br>VOID FindMyTask(VOID) {<br>Forbid();<br>task = (TASK * ) FindTask(NL);<br>SetTaskPri(FindTask("input.device"), 20);<br>Permit();<br>}<br>VOID SetTask40(VOID) {<br>IF(task_status == 10) {<br>SetTaskPri(task, 40);<br>task_status = 40;<br>/*OFF_SPRITE; */<br>}<br>}<br>VOID SetTask10(VOID) {<br>IF(task_status == 40) {<br>SetTaskPri(task, 10);<br>task_status = 10;<br>/*ON_SPRITE; */<br>}
}