lincity: lintypes.c Source File

00001 /* ---------------------------------------------------------------------- *
00002  * lintypes.c
00003  * This file is part of lincity.
00004  * Lincity is copyright (c) I J Peters 1995-1997, (c) Greg Sharp 1997-2001.
00005  * ---------------------------------------------------------------------- */
00006 #include "lcconfig.h"
00007 #include "lin-city.h"
00008 #include "engglobs.h"
00009 #include "lctypes.h"
00010 #include "shrglobs.h"
00011 #include "lintypes.h"
00012 #include "lcintl.h"
00013 
00014 struct TYPE main_types[NUM_OF_TYPES];
00015 
00016 struct GROUP main_groups[NUM_OF_GROUPS] =
00017 {
00018     /* 0 */
00019     { N_("Empty"),       /* name */
00020       FALSE,            /* need credit? */
00021       GROUP_BARE,       /* group number */
00022       1,                /* size */
00023       (green(12)),      /* color */
00024       1,                /* cost multiplier */
00025       1,                /* bulldoze cost */
00026       0,                /* probability of fire */
00027       0,                /* cost */
00028       0                 /* tech */
00029     },
00030     /* 1 */
00031     { N_("Power line"),
00032       FALSE,                           /* need credit? */
00033       GROUP_POWER_LINE,
00034       1,                               /* size */
00035       GROUP_POWER_LINE_COLOUR,
00036       GROUP_POWER_LINE_COST_MUL,
00037       GROUP_POWER_LINE_BUL_COST,
00038       GROUP_POWER_LINE_FIREC,
00039       GROUP_POWER_LINE_COST,
00040       GROUP_POWER_LINE_TECH
00041     },
00042     /* 2 */
00043     { N_("Solar PS"),
00044       TRUE,                            /* need credit? */
00045       GROUP_SOLAR_POWER,
00046       4,                               /* size */
00047       GROUP_SOLAR_POWER_COLOUR,
00048       GROUP_SOLAR_POWER_COST_MUL,
00049       GROUP_SOLAR_POWER_BUL_COST,
00050       GROUP_SOLAR_POWER_FIREC,
00051       GROUP_SOLAR_POWER_COST,
00052       GROUP_SOLAR_POWER_TECH
00053     },
00054     /* 3 */
00055     { N_("Substation"),
00056       FALSE,                           /* need credit? */
00057       GROUP_SUBSTATION,
00058       2,                               /* size */
00059       GROUP_SUBSTATION_COLOUR,
00060       GROUP_SUBSTATION_COST_MUL,
00061       GROUP_SUBSTATION_BUL_COST,
00062       GROUP_SUBSTATION_FIREC,
00063       GROUP_SUBSTATION_COST,
00064       GROUP_SUBSTATION_TECH
00065     },
00066     /* 4 */
00067     { N_("Residential LL"),
00068       FALSE,                           /* need credit? */
00069       GROUP_RESIDENCE_LL,
00070       3,                               /* size */
00071       GROUP_RESIDENCE_LL_COLOUR,
00072       GROUP_RESIDENCE_LL_COST_MUL,
00073       GROUP_RESIDENCE_LL_BUL_COST,
00074       GROUP_RESIDENCE_LL_FIREC,
00075       GROUP_RESIDENCE_LL_COST,
00076       GROUP_RESIDENCE_LL_TECH
00077     },
00078     /* 5 */
00079     { N_("Farm"),
00080       FALSE,                           /* need credit? */
00081       GROUP_ORGANIC_FARM,
00082       4,                               /* size */
00083       GROUP_ORGANIC_FARM_COLOUR,
00084       GROUP_ORGANIC_FARM_COST_MUL,
00085       GROUP_ORGANIC_FARM_BUL_COST,
00086       GROUP_ORGANIC_FARM_FIREC,
00087       GROUP_ORGANIC_FARM_COST,
00088       GROUP_ORGANIC_FARM_TECH
00089     },
00090     /* 6 */
00091     { N_("Market"),
00092       FALSE,                           /* need credit? */
00093       GROUP_MARKET,
00094       2,                               /* size */
00095       GROUP_MARKET_COLOUR,
00096       GROUP_MARKET_COST_MUL,
00097       GROUP_MARKET_BUL_COST,
00098       GROUP_MARKET_FIREC,
00099       GROUP_MARKET_COST,
00100       GROUP_MARKET_TECH
00101     },
00102     /* 7 */
00103     { N_("Track"),
00104       FALSE,                           /* need credit? */
00105       GROUP_TRACK,
00106       1,                               /* size */
00107       GROUP_TRACK_COLOUR,
00108       GROUP_TRACK_COST_MUL,
00109       GROUP_TRACK_BUL_COST,
00110       GROUP_TRACK_FIREC,
00111       GROUP_TRACK_COST,
00112       GROUP_TRACK_TECH
00113     },
00114     /* 8 */
00115     { N_("Coalmine"),
00116       FALSE,                           /* need credit? */
00117       GROUP_COALMINE,
00118       4,                               /* size */
00119       GROUP_COALMINE_COLOUR,
00120       GROUP_COALMINE_COST_MUL,
00121       GROUP_COALMINE_BUL_COST,
00122       GROUP_COALMINE_FIREC,
00123       GROUP_COALMINE_COST,
00124       GROUP_COALMINE_TECH
00125     },
00126     /* 9 */
00127     { N_("Railway"),
00128       FALSE,                           /* need credit? */
00129       GROUP_RAIL,
00130       1,                               /* size */
00131       GROUP_RAIL_COLOUR,
00132       GROUP_RAIL_COST_MUL,
00133       GROUP_RAIL_BUL_COST,
00134       GROUP_RAIL_FIREC,
00135       GROUP_RAIL_COST,
00136       GROUP_RAIL_TECH
00137     },
00138     /* 10 */
00139     { N_("Coal PS"),
00140       FALSE,                           /* need credit? */
00141       GROUP_COAL_POWER,
00142       4,                               /* size */
00143       GROUP_COAL_POWER_COLOUR,
00144       GROUP_COAL_POWER_COST_MUL,
00145       GROUP_COAL_POWER_BUL_COST,
00146       GROUP_COAL_POWER_FIREC,
00147       GROUP_COAL_POWER_COST,
00148       GROUP_COAL_POWER_TECH
00149     },
00150     /* 11 */
00151     { N_("Road"),
00152       FALSE,                           /* need credit? */
00153       GROUP_ROAD,
00154       1,                               /* size */
00155       GROUP_ROAD_COLOUR,
00156       GROUP_ROAD_COST_MUL,
00157       GROUP_ROAD_BUL_COST,
00158       GROUP_ROAD_FIREC,
00159       GROUP_ROAD_COST,
00160       GROUP_ROAD_TECH
00161     },
00162     /* 12 */
00163     { N_("Lt. Industry"),
00164       FALSE,                           /* need credit? */
00165       GROUP_INDUSTRY_L,
00166       3,                               /* size */
00167       GROUP_INDUSTRY_L_COLOUR,
00168       GROUP_INDUSTRY_L_COST_MUL,
00169       GROUP_INDUSTRY_L_BUL_COST,
00170       GROUP_INDUSTRY_L_FIREC,
00171       GROUP_INDUSTRY_L_COST,
00172       GROUP_INDUSTRY_L_TECH
00173     },
00174     /* 13 */
00175     { N_("University"),
00176       FALSE,                           /* need credit? */
00177       GROUP_UNIVERSITY,
00178       3,                               /* size */
00179       GROUP_UNIVERSITY_COLOUR,
00180       GROUP_UNIVERSITY_COST_MUL,
00181       GROUP_UNIVERSITY_BUL_COST,
00182       GROUP_UNIVERSITY_FIREC,
00183       GROUP_UNIVERSITY_COST,
00184       GROUP_UNIVERSITY_TECH
00185     },
00186     /* 14 */
00187     { N_("Commune"),
00188       FALSE,                           /* need credit? */
00189       GROUP_COMMUNE,
00190       4,                               /* size */
00191       GROUP_COMMUNE_COLOUR,
00192       GROUP_COMMUNE_COST_MUL,
00193       GROUP_COMMUNE_BUL_COST,
00194       GROUP_COMMUNE_FIREC,
00195       GROUP_COMMUNE_COST,
00196       GROUP_COMMUNE_TECH
00197     },
00198     /* 15 */
00199     { N_("Ore mine"),
00200       FALSE,                           /* need credit? */
00201       GROUP_OREMINE,
00202       4,                               /* size */
00203       GROUP_OREMINE_COLOUR,
00204       GROUP_OREMINE_COST_MUL,
00205       GROUP_OREMINE_BUL_COST,
00206       GROUP_OREMINE_FIREC,
00207       GROUP_OREMINE_COST,
00208       GROUP_OREMINE_TECH
00209     },
00210     /* 16 */
00211     { N_("Rubbish tip"),
00212       FALSE,                           /* need credit? */
00213       GROUP_TIP,
00214       4,                               /* size */
00215       GROUP_TIP_COLOUR,
00216       GROUP_TIP_COST_MUL,
00217       GROUP_TIP_BUL_COST,
00218       GROUP_TIP_FIREC,
00219       GROUP_TIP_COST,
00220       GROUP_TIP_TECH
00221     },
00222     /* 17 */
00223     { N_("Port"),
00224       FALSE,                           /* need credit? */
00225       GROUP_PORT,
00226       4,                               /* size */
00227       GROUP_PORT_COLOUR,
00228       GROUP_PORT_COST_MUL,
00229       GROUP_PORT_BUL_COST,
00230       GROUP_PORT_FIREC,
00231       GROUP_PORT_COST,
00232       GROUP_PORT_TECH
00233     },
00234     /* 18 */
00235     { N_("Hv. Industry"),
00236       FALSE,                           /* need credit? */
00237       GROUP_INDUSTRY_H,
00238       4,                               /* size */
00239       GROUP_INDUSTRY_H_COLOUR,
00240       GROUP_INDUSTRY_H_COST_MUL,
00241       GROUP_INDUSTRY_H_BUL_COST,
00242       GROUP_INDUSTRY_H_FIREC,
00243       GROUP_INDUSTRY_H_COST,
00244       GROUP_INDUSTRY_H_TECH
00245     },
00246     /* 19 */
00247     { N_("Park"),
00248       TRUE,                           /* need credit? */
00249       GROUP_PARKLAND,
00250       1,                               /* size */
00251       GROUP_PARKLAND_COLOUR,
00252       GROUP_PARKLAND_COST_MUL,
00253       GROUP_PARKLAND_BUL_COST,
00254       GROUP_PARKLAND_FIREC,
00255       GROUP_PARKLAND_COST,
00256       GROUP_PARKLAND_TECH
00257     },
00258     /* 20 */
00259     { N_("Recycle"),
00260       TRUE,                           /* need credit? */
00261       GROUP_RECYCLE,
00262       2,                               /* size */
00263       GROUP_RECYCLE_COLOUR,
00264       GROUP_RECYCLE_COST_MUL,
00265       GROUP_RECYCLE_BUL_COST,
00266       GROUP_RECYCLE_FIREC,
00267       GROUP_RECYCLE_COST,
00268       GROUP_RECYCLE_TECH
00269     },
00270     /* 21 */
00271     { N_("Water"),
00272       FALSE,                           /* need credit? */
00273       GROUP_WATER,
00274       1,                               /* size */
00275       GROUP_WATER_COLOUR,
00276       GROUP_WATER_COST_MUL,
00277       GROUP_WATER_BUL_COST,
00278       GROUP_WATER_FIREC,
00279       GROUP_WATER_COST,
00280       GROUP_WATER_TECH
00281     },
00282     /* 22 */
00283     { N_("Health centre"),
00284       FALSE,                           /* need credit? */
00285       GROUP_HEALTH,
00286       2,                               /* size */
00287       GROUP_HEALTH_COLOUR,
00288       GROUP_HEALTH_COST_MUL,
00289       GROUP_HEALTH_BUL_COST,
00290       GROUP_HEALTH_FIREC,
00291       GROUP_HEALTH_COST,
00292       GROUP_HEALTH_TECH
00293     },
00294     /* 23 */
00295     { N_("Rocket pad"),
00296       TRUE,                            /* need credit? */
00297       GROUP_ROCKET,
00298       4,                               /* size */
00299       GROUP_ROCKET_COLOUR,
00300       GROUP_ROCKET_COST_MUL,
00301       GROUP_ROCKET_BUL_COST,
00302       GROUP_ROCKET_FIREC,
00303       GROUP_ROCKET_COST,
00304       GROUP_ROCKET_TECH
00305     },
00306     /* 24 */
00307     { N_("Windmill"),
00308       FALSE,                           /* need credit? */
00309       GROUP_WINDMILL,
00310       2,                               /* size */
00311       GROUP_WINDMILL_COLOUR,
00312       GROUP_WINDMILL_COST_MUL,
00313       GROUP_WINDMILL_BUL_COST,
00314       GROUP_WINDMILL_FIREC,
00315       GROUP_WINDMILL_COST,
00316       GROUP_WINDMILL_TECH
00317     },
00318     /* 25 */
00319     { N_("Monument"),
00320       FALSE,                           /* need credit? */
00321       GROUP_MONUMENT,
00322       2,                               /* size */
00323       GROUP_MONUMENT_COLOUR,
00324       GROUP_MONUMENT_COST_MUL,
00325       GROUP_MONUMENT_BUL_COST,
00326       GROUP_MONUMENT_FIREC,
00327       GROUP_MONUMENT_COST,
00328       GROUP_MONUMENT_TECH
00329     },
00330     /* 26 */
00331     { N_("School"),
00332       FALSE,                           /* need credit? */
00333       GROUP_SCHOOL,
00334       2,                               /* size */
00335       GROUP_SCHOOL_COLOUR,
00336       GROUP_SCHOOL_COST_MUL,
00337       GROUP_SCHOOL_BUL_COST,
00338       GROUP_SCHOOL_FIREC,
00339       GROUP_SCHOOL_COST,
00340       GROUP_SCHOOL_TECH
00341     },
00342     /* 27 */
00343     { N_("Blacksmith"),
00344       FALSE,                           /* need credit? */
00345       GROUP_BLACKSMITH,
00346       2,                               /* size */
00347       GROUP_BLACKSMITH_COLOUR,
00348       GROUP_BLACKSMITH_COST_MUL,
00349       GROUP_BLACKSMITH_BUL_COST,
00350       GROUP_BLACKSMITH_FIREC,
00351       GROUP_BLACKSMITH_COST,
00352       GROUP_BLACKSMITH_TECH
00353     },
00354     /* 28 */
00355     { N_("Mill"),
00356       FALSE,                           /* need credit? */
00357       GROUP_MILL,
00358       2,                               /* size */
00359       GROUP_MILL_COLOUR,
00360       GROUP_MILL_COST_MUL,
00361       GROUP_MILL_BUL_COST,
00362       GROUP_MILL_FIREC,
00363       GROUP_MILL_COST,
00364       GROUP_MILL_TECH
00365     },
00366     /* 29 */
00367     { N_("Pottery"),
00368       FALSE,                           /* need credit? */
00369       GROUP_POTTERY,
00370       2,                               /* size */
00371       GROUP_POTTERY_COLOUR,
00372       GROUP_POTTERY_COST_MUL,
00373       GROUP_POTTERY_BUL_COST,
00374       GROUP_POTTERY_FIREC,
00375       GROUP_POTTERY_COST,
00376       GROUP_POTTERY_TECH
00377     },
00378     /* 30 */
00379     { N_("Fire sta'n"),
00380       FALSE,                           /* need credit? */
00381       GROUP_FIRESTATION,
00382       2,                               /* size */
00383       GROUP_FIRESTATION_COLOUR,
00384       GROUP_FIRESTATION_COST_MUL,
00385       GROUP_FIRESTATION_BUL_COST,
00386       GROUP_FIRESTATION_FIREC,
00387       GROUP_FIRESTATION_COST,
00388       GROUP_FIRESTATION_TECH
00389     },
00390     /* 31 */
00391     { N_("Cricket pitch"),
00392       FALSE,                           /* need credit? */
00393       GROUP_CRICKET,
00394       2,                               /* size */
00395       GROUP_CRICKET_COLOUR,
00396       GROUP_CRICKET_COST_MUL,
00397       GROUP_CRICKET_BUL_COST,
00398       GROUP_CRICKET_FIREC,
00399       GROUP_CRICKET_COST,
00400       GROUP_CRICKET_TECH
00401     },
00402     /* 32 */
00403     /* there is no button for this. */
00404     { N_("Burnt"),
00405       FALSE,                           /* need credit? */
00406       GROUP_BURNT,
00407       1,                               /* size */
00408       GROUP_BURNT_COLOUR,
00409       GROUP_BURNT_COST_MUL,
00410       GROUP_BURNT_BUL_COST,
00411       GROUP_BURNT_FIREC,
00412       GROUP_BURNT_COST,
00413       GROUP_BURNT_TECH
00414     },
00415     /* 33 */
00416     /* there is no button for this. */
00417     { N_("Shanty town"),
00418       FALSE,                           /* need credit? */
00419       GROUP_SHANTY,
00420       2,                               /* size */
00421       GROUP_SHANTY_COLOUR,
00422       GROUP_SHANTY_COST_MUL,
00423       GROUP_SHANTY_BUL_COST,
00424       GROUP_SHANTY_FIREC,
00425       GROUP_SHANTY_COST,
00426       GROUP_SHANTY_TECH
00427     },
00428     /* 34 */
00429     /* there is no button for this. */
00430     { N_("Fire"),
00431       FALSE,                           /* need credit? */
00432       GROUP_FIRE,
00433       1,                               /* size */
00434       GROUP_FIRE_COLOUR,
00435       GROUP_FIRE_COST_MUL,
00436       GROUP_FIRE_BUL_COST,
00437       GROUP_FIRE_FIREC,
00438       GROUP_FIRE_COST,
00439       GROUP_FIRE_TECH
00440     },
00441     /* 35 */
00442     /* there is no button for this. */
00443     { N_("Used"),
00444       FALSE,                           /* need credit? */
00445       GROUP_USED,
00446       1,                               /* size */
00447       GROUP_USED_COLOUR,
00448       GROUP_USED_COST_MUL,
00449       GROUP_USED_BUL_COST,
00450       GROUP_USED_FIREC,
00451       GROUP_USED_COST,
00452       GROUP_USED_TECH
00453     },
00454     /* 36 */
00455     { N_("Residential ML"),
00456       FALSE,                           /* need credit? */
00457       GROUP_RESIDENCE_ML,
00458       3,                               /* size */
00459       GROUP_RESIDENCE_ML_COLOUR,
00460       GROUP_RESIDENCE_ML_COST_MUL,
00461       GROUP_RESIDENCE_ML_BUL_COST,
00462       GROUP_RESIDENCE_ML_FIREC,
00463       GROUP_RESIDENCE_ML_COST,
00464       GROUP_RESIDENCE_ML_TECH
00465     },
00466     /* 37 */
00467     { N_("Residential HL"),
00468       FALSE,                           /* need credit? */
00469       GROUP_RESIDENCE_HL,
00470       3,                               /* size */
00471       GROUP_RESIDENCE_HL_COLOUR,
00472       GROUP_RESIDENCE_HL_COST_MUL,
00473       GROUP_RESIDENCE_HL_BUL_COST,
00474       GROUP_RESIDENCE_HL_FIREC,
00475       GROUP_RESIDENCE_HL_COST,
00476       GROUP_RESIDENCE_HL_TECH
00477     },
00478     /* 38 */
00479     { N_("Residential"),
00480       FALSE,                           /* need credit? */
00481       GROUP_RESIDENCE_LH,
00482       3,                               /* size */
00483       GROUP_RESIDENCE_LH_COLOUR,
00484       GROUP_RESIDENCE_LH_COST_MUL,
00485       GROUP_RESIDENCE_LH_BUL_COST,
00486       GROUP_RESIDENCE_LH_FIREC,
00487       GROUP_RESIDENCE_LH_COST,
00488       GROUP_RESIDENCE_LH_TECH
00489     },
00490     /* 39 */
00491     { N_("Residential"),
00492       FALSE,                           /* need credit? */
00493       GROUP_RESIDENCE_MH,
00494       3,                               /* size */
00495       GROUP_RESIDENCE_MH_COLOUR,
00496       GROUP_RESIDENCE_MH_COST_MUL,
00497       GROUP_RESIDENCE_MH_BUL_COST,
00498       GROUP_RESIDENCE_MH_FIREC,
00499       GROUP_RESIDENCE_MH_COST,
00500       GROUP_RESIDENCE_MH_TECH
00501     },
00502     /* 40 */
00503     { N_("Residential"),
00504       FALSE,                           /* need credit? */
00505       GROUP_RESIDENCE_LH,
00506       3,                               /* size */
00507       GROUP_RESIDENCE_HH_COLOUR,
00508       GROUP_RESIDENCE_HH_COST_MUL,
00509       GROUP_RESIDENCE_HH_BUL_COST,
00510       GROUP_RESIDENCE_HH_FIREC,
00511       GROUP_RESIDENCE_HH_COST,
00512       GROUP_RESIDENCE_HH_TECH
00513     },
00514     /* 41 */
00515     /* End of Data */
00516     { "EOF",
00517       FALSE,                           /* need credit? */
00518       0,
00519       0,                               /* size */
00520       0,
00521       0,
00522       0,
00523       0,
00524       0,
00525       0
00526     }
00527 };
00528 
00529 
00530 void init_types(void)
00531 {
00532     main_types[CST_GREEN].group=GROUP_BARE;
00533     main_types[CST_GREEN].graphic=load_graphic(CST_GREEN_G);
00534 
00535     main_types[CST_POWERL_H_L].group=GROUP_POWER_LINE;
00536     main_types[CST_POWERL_H_L].graphic=load_graphic(CST_POWERL_H_L_G);
00537 
00538     main_types[CST_POWERL_V_L].group=GROUP_POWER_LINE;
00539     main_types[CST_POWERL_V_L].graphic=load_graphic(CST_POWERL_V_L_G);
00540 
00541     main_types[CST_POWERL_LD_L].group=GROUP_POWER_LINE;
00542     main_types[CST_POWERL_LD_L].graphic=load_graphic(CST_POWERL_LD_L_G);
00543 
00544     main_types[CST_POWERL_RD_L].group=GROUP_POWER_LINE;
00545     main_types[CST_POWERL_RD_L].graphic=load_graphic(CST_POWERL_RD_L_G);
00546 
00547     main_types[CST_POWERL_LU_L].group=GROUP_POWER_LINE;
00548     main_types[CST_POWERL_LU_L].graphic=load_graphic(CST_POWERL_LU_L_G);
00549 
00550     main_types[CST_POWERL_RU_L].group=GROUP_POWER_LINE;
00551     main_types[CST_POWERL_RU_L].graphic=load_graphic(CST_POWERL_RU_L_G);
00552 
00553     main_types[CST_POWERL_LDU_L].group=GROUP_POWER_LINE;
00554     main_types[CST_POWERL_LDU_L].graphic=load_graphic(CST_POWERL_LDU_L_G);
00555 
00556     main_types[CST_POWERL_LDR_L].group=GROUP_POWER_LINE;
00557     main_types[CST_POWERL_LDR_L].graphic=load_graphic(CST_POWERL_LDR_L_G);
00558 
00559     main_types[CST_POWERL_LUR_L].group=GROUP_POWER_LINE;
00560     main_types[CST_POWERL_LUR_L].graphic=load_graphic(CST_POWERL_LUR_L_G);
00561 
00562     main_types[CST_POWERL_UDR_L].group=GROUP_POWER_LINE;
00563     main_types[CST_POWERL_UDR_L].graphic=load_graphic(CST_POWERL_UDR_L_G);
00564 
00565     main_types[CST_POWERL_LUDR_L].group=GROUP_POWER_LINE;
00566     main_types[CST_POWERL_LUDR_L].graphic
00567             =load_graphic(CST_POWERL_LUDR_L_G);
00568 
00569     main_types[CST_POWERL_H_D].group=GROUP_POWER_LINE;
00570     main_types[CST_POWERL_H_D].graphic=load_graphic(CST_POWERL_H_D_G);
00571 
00572     main_types[CST_POWERL_V_D].group=GROUP_POWER_LINE;
00573     main_types[CST_POWERL_V_D].graphic=load_graphic(CST_POWERL_V_D_G);
00574 
00575     main_types[CST_POWERL_LD_D].group=GROUP_POWER_LINE;
00576     main_types[CST_POWERL_LD_D].graphic=load_graphic(CST_POWERL_LD_D_G);
00577 
00578     main_types[CST_POWERL_RD_D].group=GROUP_POWER_LINE;
00579     main_types[CST_POWERL_RD_D].graphic=load_graphic(CST_POWERL_RD_D_G);
00580 
00581     main_types[CST_POWERL_LU_D].group=GROUP_POWER_LINE;
00582     main_types[CST_POWERL_LU_D].graphic=load_graphic(CST_POWERL_LU_D_G);
00583 
00584     main_types[CST_POWERL_RU_D].group=GROUP_POWER_LINE;
00585     main_types[CST_POWERL_RU_D].graphic=load_graphic(CST_POWERL_RU_D_G);
00586 
00587     main_types[CST_POWERL_LDU_D].group=GROUP_POWER_LINE;
00588     main_types[CST_POWERL_LDU_D].graphic=load_graphic(CST_POWERL_LDU_D_G);
00589 
00590     main_types[CST_POWERL_LDR_D].group=GROUP_POWER_LINE;
00591     main_types[CST_POWERL_LDR_D].graphic=load_graphic(CST_POWERL_LDR_D_G);
00592 
00593     main_types[CST_POWERL_LUR_D].group=GROUP_POWER_LINE;
00594     main_types[CST_POWERL_LUR_D].graphic=load_graphic(CST_POWERL_LUR_D_G);
00595 
00596     main_types[CST_POWERL_UDR_D].group=GROUP_POWER_LINE;
00597     main_types[CST_POWERL_UDR_D].graphic=load_graphic(CST_POWERL_UDR_D_G);
00598 
00599     main_types[CST_POWERL_LUDR_D].group=GROUP_POWER_LINE;
00600     main_types[CST_POWERL_LUDR_D].graphic
00601             =load_graphic(CST_POWERL_LUDR_D_G);
00602 
00603     main_types[CST_POWERS_SOLAR].group=GROUP_SOLAR_POWER;
00604     main_types[CST_POWERS_SOLAR].graphic=load_graphic(CST_POWERS_SOLAR_G);
00605 
00606     main_types[CST_POWERS_COAL_EMPTY].group=GROUP_COAL_POWER;
00607     main_types[CST_POWERS_COAL_EMPTY].graphic
00608             =load_graphic(CST_POWERS_COAL_EMPTY_G);
00609 
00610     main_types[CST_POWERS_COAL_LOW].group=GROUP_COAL_POWER;
00611     main_types[CST_POWERS_COAL_LOW].graphic
00612             =load_graphic(CST_POWERS_COAL_LOW_G);
00613 
00614     prog_box("",12);
00615 
00616     main_types[CST_POWERS_COAL_MED].group=GROUP_COAL_POWER;
00617     main_types[CST_POWERS_COAL_MED].graphic
00618             =load_graphic(CST_POWERS_COAL_MED_G);
00619 
00620     main_types[CST_POWERS_COAL_FULL].group=GROUP_COAL_POWER;
00621     main_types[CST_POWERS_COAL_FULL].graphic
00622             =load_graphic(CST_POWERS_COAL_FULL_G);
00623 
00624     main_types[CST_SUBSTATION_R].group=GROUP_SUBSTATION;
00625     main_types[CST_SUBSTATION_R].graphic=load_graphic(CST_SUBSTATION_R_G);
00626 
00627     main_types[CST_SUBSTATION_G].group=GROUP_SUBSTATION;
00628     main_types[CST_SUBSTATION_G].graphic=load_graphic(CST_SUBSTATION_G_G);
00629 
00630     main_types[CST_SUBSTATION_RG].group=GROUP_SUBSTATION;
00631     main_types[CST_SUBSTATION_RG].graphic
00632             =load_graphic(CST_SUBSTATION_RG_G);
00633 
00634     main_types[CST_RESIDENCE_LL].group=GROUP_RESIDENCE_LL;
00635     main_types[CST_RESIDENCE_LL].graphic=load_graphic(CST_RESIDENCE_LL_G);
00636 
00637     main_types[CST_RESIDENCE_ML].group=GROUP_RESIDENCE_ML;
00638     main_types[CST_RESIDENCE_ML].graphic
00639             =load_graphic(CST_RESIDENCE_ML_G);
00640 
00641     main_types[CST_RESIDENCE_HL].group=GROUP_RESIDENCE_HL;
00642     main_types[CST_RESIDENCE_HL].graphic
00643             =load_graphic(CST_RESIDENCE_HL_G);
00644 
00645     main_types[CST_RESIDENCE_LH].group=GROUP_RESIDENCE_LH;
00646     main_types[CST_RESIDENCE_LH].graphic=load_graphic(CST_RESIDENCE_LH_G);
00647 
00648     main_types[CST_RESIDENCE_MH].group=GROUP_RESIDENCE_MH;
00649     main_types[CST_RESIDENCE_MH].graphic=load_graphic(CST_RESIDENCE_MH_G);
00650 
00651     main_types[CST_RESIDENCE_HH].group=GROUP_RESIDENCE_HH;
00652     main_types[CST_RESIDENCE_HH].graphic=load_graphic(CST_RESIDENCE_HH_G);
00653 
00654 
00655     main_types[CST_FARM_O0].group=GROUP_ORGANIC_FARM;
00656     main_types[CST_FARM_O0].graphic=load_graphic(CST_FARM_O0_G);
00657 
00658     main_types[CST_FARM_O1].group=GROUP_ORGANIC_FARM;
00659     main_types[CST_FARM_O1].graphic=load_graphic(CST_FARM_O1_G);
00660 
00661     main_types[CST_FARM_O2].group=GROUP_ORGANIC_FARM;
00662     main_types[CST_FARM_O2].graphic=load_graphic(CST_FARM_O2_G);
00663 
00664     main_types[CST_FARM_O3].group=GROUP_ORGANIC_FARM;
00665     main_types[CST_FARM_O3].graphic=load_graphic(CST_FARM_O3_G);
00666 
00667     main_types[CST_FARM_O4].group=GROUP_ORGANIC_FARM;
00668     main_types[CST_FARM_O4].graphic=load_graphic(CST_FARM_O4_G);
00669 
00670     main_types[CST_FARM_O5].group=GROUP_ORGANIC_FARM;
00671     main_types[CST_FARM_O5].graphic=load_graphic(CST_FARM_O5_G);
00672 
00673     main_types[CST_FARM_O6].group=GROUP_ORGANIC_FARM;
00674     main_types[CST_FARM_O6].graphic=load_graphic(CST_FARM_O6_G);
00675 
00676     main_types[CST_FARM_O7].group=GROUP_ORGANIC_FARM;
00677     main_types[CST_FARM_O7].graphic=load_graphic(CST_FARM_O7_G);
00678 
00679     main_types[CST_FARM_O8].group=GROUP_ORGANIC_FARM;
00680     main_types[CST_FARM_O8].graphic=load_graphic(CST_FARM_O8_G);
00681 
00682     main_types[CST_FARM_O9].group=GROUP_ORGANIC_FARM;
00683     main_types[CST_FARM_O9].graphic=load_graphic(CST_FARM_O9_G);
00684 
00685     main_types[CST_FARM_O10].group=GROUP_ORGANIC_FARM;
00686     main_types[CST_FARM_O10].graphic=load_graphic(CST_FARM_O10_G);
00687 
00688     main_types[CST_FARM_O11].group=GROUP_ORGANIC_FARM;
00689     main_types[CST_FARM_O11].graphic=load_graphic(CST_FARM_O11_G);
00690 
00691     main_types[CST_FARM_O12].group=GROUP_ORGANIC_FARM;
00692     main_types[CST_FARM_O12].graphic=load_graphic(CST_FARM_O12_G);
00693 
00694     main_types[CST_FARM_O13].group=GROUP_ORGANIC_FARM;
00695     main_types[CST_FARM_O13].graphic=load_graphic(CST_FARM_O13_G);
00696 
00697     main_types[CST_FARM_O14].group=GROUP_ORGANIC_FARM;
00698     main_types[CST_FARM_O14].graphic=load_graphic(CST_FARM_O14_G);
00699 
00700     main_types[CST_FARM_O15].group=GROUP_ORGANIC_FARM;
00701     main_types[CST_FARM_O15].graphic=load_graphic(CST_FARM_O15_G);
00702 
00703     main_types[CST_FARM_O16].group=GROUP_ORGANIC_FARM;
00704     main_types[CST_FARM_O16].graphic=load_graphic(CST_FARM_O16_G);
00705 
00706 
00707     main_types[CST_MARKET_EMPTY].group=GROUP_MARKET;
00708     main_types[CST_MARKET_EMPTY].graphic
00709             =load_graphic(CST_MARKET_EMPTY_G);
00710 
00711     main_types[CST_MARKET_LOW].group=GROUP_MARKET;
00712     main_types[CST_MARKET_LOW].graphic
00713             =load_graphic(CST_MARKET_LOW_G);
00714 
00715     main_types[CST_MARKET_MED].group=GROUP_MARKET;
00716     main_types[CST_MARKET_MED].graphic
00717             =load_graphic(CST_MARKET_MED_G);
00718 
00719     main_types[CST_MARKET_FULL].group=GROUP_MARKET;
00720     main_types[CST_MARKET_FULL].graphic
00721             =load_graphic(CST_MARKET_FULL_G);
00722 
00723     main_types[CST_TRACK_LR].group=GROUP_TRACK;
00724     main_types[CST_TRACK_LR].graphic=load_graphic(CST_TRACK_LR_G);
00725 
00726     main_types[CST_TRACK_LU].group=GROUP_TRACK;
00727     main_types[CST_TRACK_LU].graphic=load_graphic(CST_TRACK_LU_G);
00728 
00729     main_types[CST_TRACK_LD].group=GROUP_TRACK;
00730     main_types[CST_TRACK_LD].graphic=load_graphic(CST_TRACK_LD_G);
00731 
00732     main_types[CST_TRACK_UD].group=GROUP_TRACK;
00733     main_types[CST_TRACK_UD].graphic=load_graphic(CST_TRACK_UD_G);
00734 
00735     main_types[CST_TRACK_UR].group=GROUP_TRACK;
00736     main_types[CST_TRACK_UR].graphic=load_graphic(CST_TRACK_UR_G);
00737 
00738     main_types[CST_TRACK_DR].group=GROUP_TRACK;
00739     main_types[CST_TRACK_DR].graphic=load_graphic(CST_TRACK_DR_G);
00740 
00741     main_types[CST_TRACK_LUR].group=GROUP_TRACK;
00742     main_types[CST_TRACK_LUR].graphic=load_graphic(CST_TRACK_LUR_G);
00743 
00744     main_types[CST_TRACK_LDR].group=GROUP_TRACK;
00745     main_types[CST_TRACK_LDR].graphic=load_graphic(CST_TRACK_LDR_G);
00746 
00747     main_types[CST_TRACK_LUD].group=GROUP_TRACK;
00748     main_types[CST_TRACK_LUD].graphic=load_graphic(CST_TRACK_LUD_G);
00749 
00750     main_types[CST_TRACK_UDR].group=GROUP_TRACK;
00751     main_types[CST_TRACK_UDR].graphic=load_graphic(CST_TRACK_UDR_G);
00752 
00753     main_types[CST_TRACK_LUDR].group=GROUP_TRACK;
00754     main_types[CST_TRACK_LUDR].graphic=load_graphic(CST_TRACK_LUDR_G);
00755 
00756     main_types[CST_COALMINE_EMPTY].group=GROUP_COALMINE;
00757     main_types[CST_COALMINE_EMPTY].graphic
00758             =load_graphic(CST_COALMINE_EMPTY_G);
00759 
00760     prog_box("",25);
00761 
00762     main_types[CST_COALMINE_LOW].group=GROUP_COALMINE;
00763     main_types[CST_COALMINE_LOW].graphic=load_graphic(CST_COALMINE_LOW_G);
00764 
00765     main_types[CST_COALMINE_MED].group=GROUP_COALMINE;
00766     main_types[CST_COALMINE_MED].graphic=load_graphic(CST_COALMINE_MED_G);
00767 
00768     main_types[CST_COALMINE_FULL].group=GROUP_COALMINE;
00769     main_types[CST_COALMINE_FULL].graphic
00770             =load_graphic(CST_COALMINE_FULL_G);
00771 
00772 
00773     main_types[CST_RAIL_LR].group=GROUP_RAIL;
00774     main_types[CST_RAIL_LR].graphic=load_graphic(CST_RAIL_LR_G);
00775 
00776     main_types[CST_RAIL_LU].group=GROUP_RAIL;
00777     main_types[CST_RAIL_LU].graphic=load_graphic(CST_RAIL_LU_G);
00778 
00779     main_types[CST_RAIL_LD].group=GROUP_RAIL;
00780     main_types[CST_RAIL_LD].graphic=load_graphic(CST_RAIL_LD_G);
00781 
00782     main_types[CST_RAIL_UD].group=GROUP_RAIL;
00783     main_types[CST_RAIL_UD].graphic=load_graphic(CST_RAIL_UD_G);
00784 
00785     main_types[CST_RAIL_UR].group=GROUP_RAIL;
00786     main_types[CST_RAIL_UR].graphic=load_graphic(CST_RAIL_UR_G);
00787 
00788     main_types[CST_RAIL_DR].group=GROUP_RAIL;
00789     main_types[CST_RAIL_DR].graphic=load_graphic(CST_RAIL_DR_G);
00790 
00791     main_types[CST_RAIL_LUR].group=GROUP_RAIL;
00792     main_types[CST_RAIL_LUR].graphic=load_graphic(CST_RAIL_LUR_G);
00793 
00794     main_types[CST_RAIL_LDR].group=GROUP_RAIL;
00795     main_types[CST_RAIL_LDR].graphic=load_graphic(CST_RAIL_LDR_G);
00796 
00797     main_types[CST_RAIL_LUD].group=GROUP_RAIL;
00798     main_types[CST_RAIL_LUD].graphic=load_graphic(CST_RAIL_LUD_G);
00799 
00800     prog_box("",30);
00801 
00802     main_types[CST_RAIL_UDR].group=GROUP_RAIL;
00803     main_types[CST_RAIL_UDR].graphic=load_graphic(CST_RAIL_UDR_G);
00804 
00805     main_types[CST_RAIL_LUDR].group=GROUP_RAIL;
00806     main_types[CST_RAIL_LUDR].graphic=load_graphic(CST_RAIL_LUDR_G);
00807 
00808     main_types[CST_ROAD_LR].group=GROUP_ROAD;
00809     main_types[CST_ROAD_LR].graphic=load_graphic(CST_ROAD_LR_G);
00810 
00811     main_types[CST_ROAD_LU].group=GROUP_ROAD;
00812     main_types[CST_ROAD_LU].graphic=load_graphic(CST_ROAD_LU_G);
00813 
00814     main_types[CST_ROAD_LD].group=GROUP_ROAD;
00815     main_types[CST_ROAD_LD].graphic=load_graphic(CST_ROAD_LD_G);
00816 
00817     main_types[CST_ROAD_UD].group=GROUP_ROAD;
00818     main_types[CST_ROAD_UD].graphic=load_graphic(CST_ROAD_UD_G);
00819 
00820     main_types[CST_ROAD_UR].group=GROUP_ROAD;
00821     main_types[CST_ROAD_UR].graphic=load_graphic(CST_ROAD_UR_G);
00822 
00823     main_types[CST_ROAD_DR].group=GROUP_ROAD;
00824     main_types[CST_ROAD_DR].graphic=load_graphic(CST_ROAD_DR_G);
00825 
00826     main_types[CST_ROAD_LUR].group=GROUP_ROAD;
00827     main_types[CST_ROAD_LUR].graphic=load_graphic(CST_ROAD_LUR_G);
00828 
00829     main_types[CST_ROAD_LDR].group=GROUP_ROAD;
00830     main_types[CST_ROAD_LDR].graphic=load_graphic(CST_ROAD_LDR_G);
00831 
00832     main_types[CST_ROAD_LUD].group=GROUP_ROAD;
00833     main_types[CST_ROAD_LUD].graphic=load_graphic(CST_ROAD_LUD_G);
00834 
00835     main_types[CST_ROAD_UDR].group=GROUP_ROAD;
00836     main_types[CST_ROAD_UDR].graphic=load_graphic(CST_ROAD_UDR_G);
00837 
00838     main_types[CST_ROAD_LUDR].group=GROUP_ROAD;
00839     main_types[CST_ROAD_LUDR].graphic=load_graphic(CST_ROAD_LUDR_G);
00840 
00841     main_types[CST_INDUSTRY_L_C].group=GROUP_INDUSTRY_L;
00842     main_types[CST_INDUSTRY_L_C].graphic
00843             =load_graphic(CST_INDUSTRY_L_C_G);
00844 
00845     main_types[CST_INDUSTRY_L_Q1].group=GROUP_INDUSTRY_L;
00846     main_types[CST_INDUSTRY_L_Q1].graphic
00847             =load_graphic(CST_INDUSTRY_L_Q1_G);
00848 
00849     main_types[CST_INDUSTRY_L_Q2].group=GROUP_INDUSTRY_L;
00850     main_types[CST_INDUSTRY_L_Q2].graphic
00851             =load_graphic(CST_INDUSTRY_L_Q2_G);
00852 
00853     main_types[CST_INDUSTRY_L_Q3].group=GROUP_INDUSTRY_L;
00854     main_types[CST_INDUSTRY_L_Q3].graphic
00855             =load_graphic(CST_INDUSTRY_L_Q3_G);
00856 
00857     main_types[CST_INDUSTRY_L_Q4].group=GROUP_INDUSTRY_L;
00858     main_types[CST_INDUSTRY_L_Q4].graphic
00859             =load_graphic(CST_INDUSTRY_L_Q4_G);
00860 
00861     main_types[CST_INDUSTRY_L_L1].group=GROUP_INDUSTRY_L;
00862     main_types[CST_INDUSTRY_L_L1].graphic
00863             =load_graphic(CST_INDUSTRY_L_L1_G);
00864 
00865     main_types[CST_INDUSTRY_L_L2].group=GROUP_INDUSTRY_L;
00866     main_types[CST_INDUSTRY_L_L2].graphic
00867             =load_graphic(CST_INDUSTRY_L_L2_G);
00868 
00869     main_types[CST_INDUSTRY_L_L3].group=GROUP_INDUSTRY_L;
00870     main_types[CST_INDUSTRY_L_L3].graphic
00871             =load_graphic(CST_INDUSTRY_L_L3_G);
00872 
00873     main_types[CST_INDUSTRY_L_L4].group=GROUP_INDUSTRY_L;
00874     main_types[CST_INDUSTRY_L_L4].graphic
00875             =load_graphic(CST_INDUSTRY_L_L4_G);
00876 
00877 
00878     main_types[CST_INDUSTRY_L_M1].group=GROUP_INDUSTRY_L;
00879     main_types[CST_INDUSTRY_L_M1].graphic
00880             =load_graphic(CST_INDUSTRY_L_M1_G);
00881 
00882     main_types[CST_INDUSTRY_L_M2].group=GROUP_INDUSTRY_L;
00883     main_types[CST_INDUSTRY_L_M2].graphic
00884             =load_graphic(CST_INDUSTRY_L_M2_G);
00885 
00886     main_types[CST_INDUSTRY_L_M3].group=GROUP_INDUSTRY_L;
00887     main_types[CST_INDUSTRY_L_M3].graphic
00888             =load_graphic(CST_INDUSTRY_L_M3_G);
00889 
00890     main_types[CST_INDUSTRY_L_M4].group=GROUP_INDUSTRY_L;
00891     main_types[CST_INDUSTRY_L_M4].graphic
00892             =load_graphic(CST_INDUSTRY_L_M4_G);
00893 
00894 
00895     main_types[CST_INDUSTRY_L_H1].group=GROUP_INDUSTRY_L;
00896     main_types[CST_INDUSTRY_L_H1].graphic
00897             =load_graphic(CST_INDUSTRY_L_H1_G);
00898 
00899     main_types[CST_INDUSTRY_L_H2].group=GROUP_INDUSTRY_L;
00900     main_types[CST_INDUSTRY_L_H2].graphic
00901             =load_graphic(CST_INDUSTRY_L_H2_G);
00902 
00903     main_types[CST_INDUSTRY_L_H3].group=GROUP_INDUSTRY_L;
00904     main_types[CST_INDUSTRY_L_H3].graphic
00905             =load_graphic(CST_INDUSTRY_L_H3_G);
00906 
00907     main_types[CST_INDUSTRY_L_H4].group=GROUP_INDUSTRY_L;
00908     main_types[CST_INDUSTRY_L_H4].graphic
00909             =load_graphic(CST_INDUSTRY_L_H4_G);
00910 
00911 
00912 
00913     main_types[CST_COMMUNE_1].group=GROUP_COMMUNE;
00914     main_types[CST_COMMUNE_1].graphic=load_graphic(CST_COMMUNE_1_G);
00915 
00916     main_types[CST_COMMUNE_2].group=GROUP_COMMUNE;
00917     main_types[CST_COMMUNE_2].graphic=load_graphic(CST_COMMUNE_2_G);
00918 
00919     main_types[CST_COMMUNE_3].group=GROUP_COMMUNE;
00920     main_types[CST_COMMUNE_3].graphic=load_graphic(CST_COMMUNE_3_G);
00921 
00922     main_types[CST_COMMUNE_4].group=GROUP_COMMUNE;
00923     main_types[CST_COMMUNE_4].graphic=load_graphic(CST_COMMUNE_4_G);
00924 
00925     main_types[CST_COMMUNE_5].group=GROUP_COMMUNE;
00926     main_types[CST_COMMUNE_5].graphic=load_graphic(CST_COMMUNE_5_G);
00927 
00928     main_types[CST_COMMUNE_6].group=GROUP_COMMUNE;
00929     main_types[CST_COMMUNE_6].graphic=load_graphic(CST_COMMUNE_6_G);
00930 
00931     main_types[CST_COMMUNE_7].group=GROUP_COMMUNE;
00932     main_types[CST_COMMUNE_7].graphic=load_graphic(CST_COMMUNE_7_G);
00933 
00934     main_types[CST_COMMUNE_8].group=GROUP_COMMUNE;
00935     main_types[CST_COMMUNE_8].graphic=load_graphic(CST_COMMUNE_8_G);
00936 
00937     main_types[CST_COMMUNE_9].group=GROUP_COMMUNE;
00938     main_types[CST_COMMUNE_9].graphic=load_graphic(CST_COMMUNE_9_G);
00939 
00940     main_types[CST_COMMUNE_10].group=GROUP_COMMUNE;
00941     main_types[CST_COMMUNE_10].graphic=load_graphic(CST_COMMUNE_10_G);
00942 
00943     main_types[CST_COMMUNE_11].group=GROUP_COMMUNE;
00944     main_types[CST_COMMUNE_11].graphic=load_graphic(CST_COMMUNE_11_G);
00945 
00946     main_types[CST_COMMUNE_12].group=GROUP_COMMUNE;
00947     main_types[CST_COMMUNE_12].graphic=load_graphic(CST_COMMUNE_12_G);
00948 
00949     main_types[CST_COMMUNE_13].group=GROUP_COMMUNE;
00950     main_types[CST_COMMUNE_13].graphic=load_graphic(CST_COMMUNE_13_G);
00951 
00952     main_types[CST_COMMUNE_14].group=GROUP_COMMUNE;
00953     main_types[CST_COMMUNE_14].graphic=load_graphic(CST_COMMUNE_14_G);
00954 
00955 
00956     main_types[CST_UNIVERSITY].group=GROUP_UNIVERSITY;
00957     main_types[CST_UNIVERSITY].graphic=load_graphic(CST_UNIVERSITY_G);
00958 
00959     main_types[CST_OREMINE_1].group=GROUP_OREMINE;
00960     main_types[CST_OREMINE_1].graphic=load_graphic(CST_OREMINE_1_G);
00961 
00962     main_types[CST_OREMINE_2].group=GROUP_OREMINE;
00963     main_types[CST_OREMINE_2].graphic=load_graphic(CST_OREMINE_2_G);
00964 
00965     main_types[CST_OREMINE_3].group=GROUP_OREMINE;
00966     main_types[CST_OREMINE_3].graphic=load_graphic(CST_OREMINE_3_G);
00967 
00968     main_types[CST_OREMINE_4].group=GROUP_OREMINE;
00969     main_types[CST_OREMINE_4].graphic=load_graphic(CST_OREMINE_4_G);
00970 
00971     main_types[CST_OREMINE_5].group=GROUP_OREMINE;
00972     main_types[CST_OREMINE_5].graphic=load_graphic(CST_OREMINE_5_G);
00973 
00974     main_types[CST_OREMINE_6].group=GROUP_OREMINE;
00975     main_types[CST_OREMINE_6].graphic=load_graphic(CST_OREMINE_6_G);
00976 
00977     main_types[CST_OREMINE_7].group=GROUP_OREMINE;
00978     main_types[CST_OREMINE_7].graphic=load_graphic(CST_OREMINE_7_G);
00979 
00980     main_types[CST_OREMINE_8].group=GROUP_OREMINE;
00981     main_types[CST_OREMINE_8].graphic=load_graphic(CST_OREMINE_8_G);
00982 
00983     main_types[CST_TIP_0].group=GROUP_TIP;
00984     main_types[CST_TIP_0].graphic=load_graphic(CST_TIP_0_G);
00985 
00986     main_types[CST_TIP_1].group=GROUP_TIP;
00987     main_types[CST_TIP_1].graphic=load_graphic(CST_TIP_1_G);
00988 
00989     main_types[CST_TIP_2].group=GROUP_TIP;
00990     main_types[CST_TIP_2].graphic=load_graphic(CST_TIP_2_G);
00991 
00992     main_types[CST_TIP_3].group=GROUP_TIP;
00993     main_types[CST_TIP_3].graphic=load_graphic(CST_TIP_3_G);
00994 
00995     main_types[CST_TIP_4].group=GROUP_TIP;
00996     main_types[CST_TIP_4].graphic=load_graphic(CST_TIP_4_G);
00997 
00998     main_types[CST_TIP_5].group=GROUP_TIP;
00999     main_types[CST_TIP_5].graphic=load_graphic(CST_TIP_5_G);
01000 
01001     main_types[CST_TIP_6].group=GROUP_TIP;
01002     main_types[CST_TIP_6].graphic=load_graphic(CST_TIP_6_G);
01003 
01004     main_types[CST_TIP_7].group=GROUP_TIP;
01005     main_types[CST_TIP_7].graphic=load_graphic(CST_TIP_7_G);
01006 
01007     main_types[CST_TIP_8].group=GROUP_TIP;
01008     main_types[CST_TIP_8].graphic=load_graphic(CST_TIP_8_G);
01009 
01010 
01011     main_types[CST_EX_PORT].group=GROUP_PORT;
01012     main_types[CST_EX_PORT].graphic=load_graphic(CST_EX_PORT_G);
01013 
01014 
01015     main_types[CST_INDUSTRY_H_C].group=GROUP_INDUSTRY_H;
01016     main_types[CST_INDUSTRY_H_C].graphic
01017             =load_graphic(CST_INDUSTRY_H_C_G);
01018 
01019     main_types[CST_INDUSTRY_H_L1].group=GROUP_INDUSTRY_H;
01020     main_types[CST_INDUSTRY_H_L1].graphic
01021             =load_graphic(CST_INDUSTRY_H_L1_G);
01022 
01023     main_types[CST_INDUSTRY_H_L2].group=GROUP_INDUSTRY_H;
01024     main_types[CST_INDUSTRY_H_L2].graphic
01025             =load_graphic(CST_INDUSTRY_H_L2_G);
01026 
01027     main_types[CST_INDUSTRY_H_L3].group=GROUP_INDUSTRY_H;
01028     main_types[CST_INDUSTRY_H_L3].graphic
01029             =load_graphic(CST_INDUSTRY_H_L3_G);
01030 
01031     main_types[CST_INDUSTRY_H_L4].group=GROUP_INDUSTRY_H;
01032     main_types[CST_INDUSTRY_H_L4].graphic
01033             =load_graphic(CST_INDUSTRY_H_L4_G);
01034 
01035     main_types[CST_INDUSTRY_H_L5].group=GROUP_INDUSTRY_H;
01036     main_types[CST_INDUSTRY_H_L5].graphic
01037             =load_graphic(CST_INDUSTRY_H_L5_G);
01038 
01039     main_types[CST_INDUSTRY_H_L6].group=GROUP_INDUSTRY_H;
01040     main_types[CST_INDUSTRY_H_L6].graphic
01041             =load_graphic(CST_INDUSTRY_H_L6_G);
01042 
01043     main_types[CST_INDUSTRY_H_L7].group=GROUP_INDUSTRY_H;
01044     main_types[CST_INDUSTRY_H_L7].graphic
01045             =load_graphic(CST_INDUSTRY_H_L7_G);
01046 
01047     main_types[CST_INDUSTRY_H_L8].group=GROUP_INDUSTRY_H;
01048     main_types[CST_INDUSTRY_H_L8].graphic
01049             =load_graphic(CST_INDUSTRY_H_L8_G);
01050 
01051 
01052     main_types[CST_INDUSTRY_H_M1].group=GROUP_INDUSTRY_H;
01053     main_types[CST_INDUSTRY_H_M1].graphic
01054             =load_graphic(CST_INDUSTRY_H_M1_G);
01055 
01056     main_types[CST_INDUSTRY_H_M2].group=GROUP_INDUSTRY_H;
01057     main_types[CST_INDUSTRY_H_M2].graphic
01058             =load_graphic(CST_INDUSTRY_H_M2_G);
01059 
01060     main_types[CST_INDUSTRY_H_M3].group=GROUP_INDUSTRY_H;
01061     main_types[CST_INDUSTRY_H_M3].graphic
01062             =load_graphic(CST_INDUSTRY_H_M3_G);
01063 
01064     main_types[CST_INDUSTRY_H_M4].group=GROUP_INDUSTRY_H;
01065     main_types[CST_INDUSTRY_H_M4].graphic
01066             =load_graphic(CST_INDUSTRY_H_M4_G);
01067 
01068     main_types[CST_INDUSTRY_H_M5].group=GROUP_INDUSTRY_H;
01069     main_types[CST_INDUSTRY_H_M5].graphic
01070             =load_graphic(CST_INDUSTRY_H_M5_G);
01071 
01072     main_types[CST_INDUSTRY_H_M6].group=GROUP_INDUSTRY_H;
01073     main_types[CST_INDUSTRY_H_M6].graphic
01074             =load_graphic(CST_INDUSTRY_H_M6_G);
01075 
01076     main_types[CST_INDUSTRY_H_M7].group=GROUP_INDUSTRY_H;
01077     main_types[CST_INDUSTRY_H_M7].graphic
01078             =load_graphic(CST_INDUSTRY_H_M7_G);
01079 
01080     main_types[CST_INDUSTRY_H_M8].group=GROUP_INDUSTRY_H;
01081     main_types[CST_INDUSTRY_H_M8].graphic
01082             =load_graphic(CST_INDUSTRY_H_M8_G);
01083 
01084     main_types[CST_INDUSTRY_H_H1].group=GROUP_INDUSTRY_H;
01085     main_types[CST_INDUSTRY_H_H1].graphic
01086             =load_graphic(CST_INDUSTRY_H_H1_G);
01087 
01088     main_types[CST_INDUSTRY_H_H2].group=GROUP_INDUSTRY_H;
01089     main_types[CST_INDUSTRY_H_H2].graphic
01090             =load_graphic(CST_INDUSTRY_H_H2_G);
01091 
01092     main_types[CST_INDUSTRY_H_H3].group=GROUP_INDUSTRY_H;
01093     main_types[CST_INDUSTRY_H_H3].graphic
01094             =load_graphic(CST_INDUSTRY_H_H3_G);
01095 
01096     main_types[CST_INDUSTRY_H_H4].group=GROUP_INDUSTRY_H;
01097     main_types[CST_INDUSTRY_H_H4].graphic
01098             =load_graphic(CST_INDUSTRY_H_H4_G);
01099 
01100     main_types[CST_INDUSTRY_H_H5].group=GROUP_INDUSTRY_H;
01101     main_types[CST_INDUSTRY_H_H5].graphic
01102             =load_graphic(CST_INDUSTRY_H_H5_G);
01103 
01104     main_types[CST_INDUSTRY_H_H6].group=GROUP_INDUSTRY_H;
01105     main_types[CST_INDUSTRY_H_H6].graphic
01106             =load_graphic(CST_INDUSTRY_H_H6_G);
01107 
01108     main_types[CST_INDUSTRY_H_H7].group=GROUP_INDUSTRY_H;
01109     main_types[CST_INDUSTRY_H_H7].graphic
01110             =load_graphic(CST_INDUSTRY_H_H7_G);
01111 
01112     main_types[CST_INDUSTRY_H_H8].group=GROUP_INDUSTRY_H;
01113     main_types[CST_INDUSTRY_H_H8].graphic
01114             =load_graphic(CST_INDUSTRY_H_H8_G);
01115 
01116 
01117     main_types[CST_PARKLAND_PLANE].group=GROUP_PARKLAND;
01118     main_types[CST_PARKLAND_PLANE].graphic
01119             =load_graphic(CST_PARKLAND_PLANE_G);
01120 
01121     prog_box("",50);
01122 
01123     main_types[CST_PARKLAND_LAKE].group=GROUP_PARKLAND;
01124     main_types[CST_PARKLAND_LAKE].graphic
01125             =load_graphic(CST_PARKLAND_LAKE_G);
01126 
01127     main_types[CST_RECYCLE].group=GROUP_RECYCLE;
01128     main_types[CST_RECYCLE].graphic=load_graphic(CST_RECYCLE_G);
01129 
01130     main_types[CST_WATER].group=GROUP_WATER;
01131     main_types[CST_WATER].graphic=load_graphic(CST_WATER_G);
01132 
01133     main_types[CST_WATER_D].group=GROUP_WATER;
01134     main_types[CST_WATER_D].graphic=load_graphic(CST_WATER_D_G);
01135 
01136     main_types[CST_WATER_R].group=GROUP_WATER;
01137     main_types[CST_WATER_R].graphic=load_graphic(CST_WATER_R_G);
01138 
01139     main_types[CST_WATER_U].group=GROUP_WATER;
01140     main_types[CST_WATER_U].graphic=load_graphic(CST_WATER_U_G);
01141 
01142     main_types[CST_WATER_L].group=GROUP_WATER;
01143     main_types[CST_WATER_L].graphic=load_graphic(CST_WATER_L_G);
01144 
01145     main_types[CST_WATER_LR].group=GROUP_WATER;
01146     main_types[CST_WATER_LR].graphic=load_graphic(CST_WATER_LR_G);
01147 
01148     main_types[CST_WATER_UD].group=GROUP_WATER;
01149     main_types[CST_WATER_UD].graphic=load_graphic(CST_WATER_UD_G);
01150 
01151     main_types[CST_WATER_LD].group=GROUP_WATER;
01152     main_types[CST_WATER_LD].graphic=load_graphic(CST_WATER_LD_G);
01153 
01154     main_types[CST_WATER_RD].group=GROUP_WATER;
01155     main_types[CST_WATER_RD].graphic=load_graphic(CST_WATER_RD_G);
01156 
01157     main_types[CST_WATER_LU].group=GROUP_WATER;
01158     main_types[CST_WATER_LU].graphic=load_graphic(CST_WATER_LU_G);
01159 
01160     main_types[CST_WATER_UR].group=GROUP_WATER;
01161     main_types[CST_WATER_UR].graphic=load_graphic(CST_WATER_UR_G);
01162 
01163     main_types[CST_WATER_LUD].group=GROUP_WATER;
01164     main_types[CST_WATER_LUD].graphic=load_graphic(CST_WATER_LUD_G);
01165 
01166     main_types[CST_WATER_LRD].group=GROUP_WATER;
01167     main_types[CST_WATER_LRD].graphic=load_graphic(CST_WATER_LRD_G);
01168 
01169     main_types[CST_WATER_LUR].group=GROUP_WATER;
01170     main_types[CST_WATER_LUR].graphic=load_graphic(CST_WATER_LUR_G);
01171 
01172     main_types[CST_WATER_URD].group=GROUP_WATER;
01173     main_types[CST_WATER_URD].graphic=load_graphic(CST_WATER_URD_G);
01174 
01175     main_types[CST_WATER_LURD].group=GROUP_WATER;
01176     main_types[CST_WATER_LURD].graphic=load_graphic(CST_WATER_LURD_G);
01177 
01178 
01179     main_types[CST_HEALTH].group=GROUP_HEALTH;
01180     main_types[CST_HEALTH].graphic=load_graphic(CST_HEALTH_G);
01181 
01182     main_types[CST_ROCKET_1].group=GROUP_ROCKET;
01183     main_types[CST_ROCKET_1].graphic=load_graphic(CST_ROCKET_1_G);
01184 
01185     main_types[CST_ROCKET_2].group=GROUP_ROCKET;
01186     main_types[CST_ROCKET_2].graphic=load_graphic(CST_ROCKET_2_G);
01187 
01188     main_types[CST_ROCKET_3].group=GROUP_ROCKET;
01189     main_types[CST_ROCKET_3].graphic=load_graphic(CST_ROCKET_3_G);
01190 
01191     main_types[CST_ROCKET_4].group=GROUP_ROCKET;
01192     main_types[CST_ROCKET_4].graphic=load_graphic(CST_ROCKET_4_G);
01193 
01194     prog_box("",60);
01195 
01196     main_types[CST_ROCKET_5].group=GROUP_ROCKET;
01197     main_types[CST_ROCKET_5].graphic=load_graphic(CST_ROCKET_5_G);
01198 
01199     main_types[CST_ROCKET_6].group=GROUP_ROCKET;
01200     main_types[CST_ROCKET_6].graphic=load_graphic(CST_ROCKET_6_G);
01201 
01202     main_types[CST_ROCKET_7].group=GROUP_ROCKET;
01203     main_types[CST_ROCKET_7].graphic=load_graphic(CST_ROCKET_7_G);
01204 
01205     main_types[CST_ROCKET_FLOWN].group=GROUP_ROCKET;
01206     main_types[CST_ROCKET_FLOWN].graphic
01207             =load_graphic(CST_ROCKET_FLOWN_G);
01208 
01209     main_types[CST_BURNT].group=GROUP_BURNT;
01210     main_types[CST_BURNT].graphic=load_graphic(CST_BURNT_G);
01211 
01212     main_types[CST_WINDMILL_1_G].group=GROUP_WINDMILL;
01213     main_types[CST_WINDMILL_1_G].graphic
01214             =load_graphic(CST_WINDMILL_1_G_G);
01215 
01216     main_types[CST_WINDMILL_2_G].group=GROUP_WINDMILL;
01217     main_types[CST_WINDMILL_2_G].graphic
01218             =load_graphic(CST_WINDMILL_2_G_G);
01219 
01220     main_types[CST_WINDMILL_3_G].group=GROUP_WINDMILL;
01221     main_types[CST_WINDMILL_3_G].graphic
01222             =load_graphic(CST_WINDMILL_3_G_G);
01223 
01224     main_types[CST_WINDMILL_1_RG].group=GROUP_WINDMILL;
01225     main_types[CST_WINDMILL_1_RG].graphic
01226             =load_graphic(CST_WINDMILL_1_RG_G);
01227 
01228     main_types[CST_WINDMILL_2_RG].group=GROUP_WINDMILL;
01229     main_types[CST_WINDMILL_2_RG].graphic
01230             =load_graphic(CST_WINDMILL_2_RG_G);
01231 
01232     main_types[CST_WINDMILL_3_RG].group=GROUP_WINDMILL;
01233     main_types[CST_WINDMILL_3_RG].graphic
01234             =load_graphic(CST_WINDMILL_3_RG_G);
01235 
01236     main_types[CST_WINDMILL_1_R].group=GROUP_WINDMILL;
01237     main_types[CST_WINDMILL_1_R].graphic
01238             =load_graphic(CST_WINDMILL_1_R_G);
01239 
01240     main_types[CST_WINDMILL_2_R].group=GROUP_WINDMILL;
01241     main_types[CST_WINDMILL_2_R].graphic
01242             =load_graphic(CST_WINDMILL_2_R_G);
01243 
01244     main_types[CST_WINDMILL_3_R].group=GROUP_WINDMILL;
01245     main_types[CST_WINDMILL_3_R].graphic
01246             =load_graphic(CST_WINDMILL_3_R_G);
01247 
01248     main_types[CST_WINDMILL_1_W].group=GROUP_WINDMILL;
01249     main_types[CST_WINDMILL_1_W].graphic
01250             =load_graphic(CST_WINDMILL_1_W_G);
01251 
01252     main_types[CST_WINDMILL_2_W].group=GROUP_WINDMILL;
01253     main_types[CST_WINDMILL_2_W].graphic
01254             =load_graphic(CST_WINDMILL_2_W_G);
01255 
01256     main_types[CST_WINDMILL_3_W].group=GROUP_WINDMILL;
01257     main_types[CST_WINDMILL_3_W].graphic
01258             =load_graphic(CST_WINDMILL_3_W_G);
01259 
01260 
01261     main_types[CST_MONUMENT_0].group=GROUP_MONUMENT;
01262     main_types[CST_MONUMENT_0].graphic=load_graphic(CST_MONUMENT_0_G);
01263 
01264     main_types[CST_MONUMENT_1].group=GROUP_MONUMENT;
01265     main_types[CST_MONUMENT_1].graphic=load_graphic(CST_MONUMENT_1_G);
01266 
01267     main_types[CST_MONUMENT_2].group=GROUP_MONUMENT;
01268     main_types[CST_MONUMENT_2].graphic=load_graphic(CST_MONUMENT_2_G);
01269 
01270     main_types[CST_MONUMENT_3].group=GROUP_MONUMENT;
01271     main_types[CST_MONUMENT_3].graphic=load_graphic(CST_MONUMENT_3_G);
01272 
01273     main_types[CST_MONUMENT_4].group=GROUP_MONUMENT;
01274     main_types[CST_MONUMENT_4].graphic=load_graphic(CST_MONUMENT_4_G);
01275 
01276     main_types[CST_MONUMENT_5].group=GROUP_MONUMENT;
01277     main_types[CST_MONUMENT_5].graphic=load_graphic(CST_MONUMENT_5_G);
01278 
01279 
01280     main_types[CST_SCHOOL].group=GROUP_SCHOOL;
01281     main_types[CST_SCHOOL].graphic=load_graphic(CST_SCHOOL_G);
01282 
01283     main_types[CST_BLACKSMITH_0].group=GROUP_BLACKSMITH;
01284     main_types[CST_BLACKSMITH_0].graphic
01285             =load_graphic(CST_BLACKSMITH_0_G);
01286 
01287     main_types[CST_BLACKSMITH_1].group=GROUP_BLACKSMITH;
01288     main_types[CST_BLACKSMITH_1].graphic
01289             =load_graphic(CST_BLACKSMITH_1_G);
01290 
01291     main_types[CST_BLACKSMITH_2].group=GROUP_BLACKSMITH;
01292     main_types[CST_BLACKSMITH_2].graphic
01293             =load_graphic(CST_BLACKSMITH_2_G);
01294 
01295     main_types[CST_BLACKSMITH_3].group=GROUP_BLACKSMITH;
01296     main_types[CST_BLACKSMITH_3].graphic
01297             =load_graphic(CST_BLACKSMITH_3_G);
01298 
01299     main_types[CST_BLACKSMITH_4].group=GROUP_BLACKSMITH;
01300     main_types[CST_BLACKSMITH_4].graphic
01301             =load_graphic(CST_BLACKSMITH_4_G);
01302 
01303     main_types[CST_BLACKSMITH_5].group=GROUP_BLACKSMITH;
01304     main_types[CST_BLACKSMITH_5].graphic
01305             =load_graphic(CST_BLACKSMITH_5_G);
01306 
01307     main_types[CST_BLACKSMITH_6].group=GROUP_BLACKSMITH;
01308     main_types[CST_BLACKSMITH_6].graphic
01309             =load_graphic(CST_BLACKSMITH_6_G);
01310 
01311     prog_box("",75);
01312 
01313     main_types[CST_MILL_0].group=GROUP_MILL;
01314     main_types[CST_MILL_0].graphic=load_graphic(CST_MILL_0_G);
01315 
01316     main_types[CST_MILL_1].group=GROUP_MILL;
01317     main_types[CST_MILL_1].graphic=load_graphic(CST_MILL_1_G);
01318 
01319     main_types[CST_MILL_2].group=GROUP_MILL;
01320     main_types[CST_MILL_2].graphic=load_graphic(CST_MILL_2_G);
01321 
01322     main_types[CST_MILL_3].group=GROUP_MILL;
01323     main_types[CST_MILL_3].graphic=load_graphic(CST_MILL_3_G);
01324 
01325     main_types[CST_MILL_4].group=GROUP_MILL;
01326     main_types[CST_MILL_4].graphic=load_graphic(CST_MILL_4_G);
01327 
01328     main_types[CST_MILL_5].group=GROUP_MILL;
01329     main_types[CST_MILL_5].graphic=load_graphic(CST_MILL_5_G);
01330 
01331     main_types[CST_MILL_6].group=GROUP_MILL;
01332     main_types[CST_MILL_6].graphic=load_graphic(CST_MILL_6_G);
01333 
01334     main_types[CST_POTTERY_0].group=GROUP_POTTERY;
01335     main_types[CST_POTTERY_0].graphic=load_graphic(CST_POTTERY_0_G);
01336 
01337     main_types[CST_POTTERY_1].group=GROUP_POTTERY;
01338     main_types[CST_POTTERY_1].graphic=load_graphic(CST_POTTERY_1_G);
01339 
01340     main_types[CST_POTTERY_2].group=GROUP_POTTERY;
01341     main_types[CST_POTTERY_2].graphic=load_graphic(CST_POTTERY_2_G);
01342 
01343     main_types[CST_POTTERY_3].group=GROUP_POTTERY;
01344     main_types[CST_POTTERY_3].graphic=load_graphic(CST_POTTERY_3_G);
01345 
01346     main_types[CST_POTTERY_4].group=GROUP_POTTERY;
01347     main_types[CST_POTTERY_4].graphic=load_graphic(CST_POTTERY_4_G);
01348 
01349     main_types[CST_POTTERY_5].group=GROUP_POTTERY;
01350     main_types[CST_POTTERY_5].graphic=load_graphic(CST_POTTERY_5_G);
01351 
01352     main_types[CST_POTTERY_6].group=GROUP_POTTERY;
01353     main_types[CST_POTTERY_6].graphic=load_graphic(CST_POTTERY_6_G);
01354 
01355     main_types[CST_POTTERY_7].group=GROUP_POTTERY;
01356     main_types[CST_POTTERY_7].graphic=load_graphic(CST_POTTERY_7_G);
01357 
01358     main_types[CST_POTTERY_8].group=GROUP_POTTERY;
01359     main_types[CST_POTTERY_8].graphic=load_graphic(CST_POTTERY_8_G);
01360 
01361     main_types[CST_POTTERY_9].group=GROUP_POTTERY;
01362     main_types[CST_POTTERY_9].graphic=load_graphic(CST_POTTERY_9_G);
01363 
01364     main_types[CST_POTTERY_10].group=GROUP_POTTERY;
01365     main_types[CST_POTTERY_10].graphic=load_graphic(CST_POTTERY_10_G);
01366 
01367     main_types[CST_FIRESTATION_1].group=GROUP_FIRESTATION;
01368     main_types[CST_FIRESTATION_1].graphic
01369             =load_graphic(CST_FIRESTATION_1_G);
01370 
01371     main_types[CST_FIRESTATION_2].group=GROUP_FIRESTATION;
01372     main_types[CST_FIRESTATION_2].graphic
01373             =load_graphic(CST_FIRESTATION_2_G);
01374 
01375     main_types[CST_FIRESTATION_3].group=GROUP_FIRESTATION;
01376     main_types[CST_FIRESTATION_3].graphic
01377             =load_graphic(CST_FIRESTATION_3_G);
01378 
01379     main_types[CST_FIRESTATION_4].group=GROUP_FIRESTATION;
01380     main_types[CST_FIRESTATION_4].graphic
01381             =load_graphic(CST_FIRESTATION_4_G);
01382 
01383     main_types[CST_FIRESTATION_5].group=GROUP_FIRESTATION;
01384     main_types[CST_FIRESTATION_5].graphic
01385             =load_graphic(CST_FIRESTATION_5_G);
01386 
01387     main_types[CST_FIRESTATION_6].group=GROUP_FIRESTATION;
01388     main_types[CST_FIRESTATION_6].graphic
01389             =load_graphic(CST_FIRESTATION_6_G);
01390 
01391     main_types[CST_FIRESTATION_7].group=GROUP_FIRESTATION;
01392     main_types[CST_FIRESTATION_7].graphic
01393             =load_graphic(CST_FIRESTATION_7_G);
01394 
01395     main_types[CST_FIRESTATION_8].group=GROUP_FIRESTATION;
01396     main_types[CST_FIRESTATION_8].graphic
01397             =load_graphic(CST_FIRESTATION_8_G);
01398 
01399     main_types[CST_FIRESTATION_9].group=GROUP_FIRESTATION;
01400     main_types[CST_FIRESTATION_9].graphic
01401             =load_graphic(CST_FIRESTATION_9_G);
01402 
01403     main_types[CST_FIRESTATION_10].group=GROUP_FIRESTATION;
01404     main_types[CST_FIRESTATION_10].graphic
01405             =load_graphic(CST_FIRESTATION_10_G);
01406 
01407 
01408     main_types[CST_CRICKET_1].group=GROUP_CRICKET;
01409     main_types[CST_CRICKET_1].graphic
01410             =load_graphic(CST_CRICKET_1_G);
01411 
01412     main_types[CST_CRICKET_2].group=GROUP_CRICKET;
01413     main_types[CST_CRICKET_2].graphic
01414             =load_graphic(CST_CRICKET_2_G);
01415 
01416     main_types[CST_CRICKET_3].group=GROUP_CRICKET;
01417     main_types[CST_CRICKET_3].graphic
01418             =load_graphic(CST_CRICKET_3_G);
01419 
01420     main_types[CST_CRICKET_4].group=GROUP_CRICKET;
01421     main_types[CST_CRICKET_4].graphic
01422             =load_graphic(CST_CRICKET_4_G);
01423 
01424     prog_box("",90);
01425 
01426     main_types[CST_CRICKET_5].group=GROUP_CRICKET;
01427     main_types[CST_CRICKET_5].graphic
01428             =load_graphic(CST_CRICKET_5_G);
01429 
01430     main_types[CST_CRICKET_6].group=GROUP_CRICKET;
01431     main_types[CST_CRICKET_6].graphic
01432             =load_graphic(CST_CRICKET_6_G);
01433 
01434     main_types[CST_CRICKET_7].group=GROUP_CRICKET;
01435     main_types[CST_CRICKET_7].graphic
01436             =load_graphic(CST_CRICKET_7_G);
01437 
01438     main_types[CST_FIRE_1].group=GROUP_FIRE;
01439     main_types[CST_FIRE_1].graphic
01440             =load_graphic(CST_FIRE_1_G);
01441 
01442     main_types[CST_FIRE_2].group=GROUP_FIRE;
01443     main_types[CST_FIRE_2].graphic
01444             =load_graphic(CST_FIRE_2_G);
01445 
01446     main_types[CST_FIRE_3].group=GROUP_FIRE;
01447     main_types[CST_FIRE_3].graphic
01448             =load_graphic(CST_FIRE_3_G);
01449 
01450     main_types[CST_FIRE_4].group=GROUP_FIRE;
01451     main_types[CST_FIRE_4].graphic
01452             =load_graphic(CST_FIRE_4_G);
01453 
01454     main_types[CST_FIRE_5].group=GROUP_FIRE;
01455     main_types[CST_FIRE_5].graphic
01456             =load_graphic(CST_FIRE_5_G);
01457 
01458     main_types[CST_FIRE_DONE1].group=GROUP_FIRE;
01459     main_types[CST_FIRE_DONE1].graphic
01460             =load_graphic(CST_FIRE_DONE1_G);
01461 
01462     main_types[CST_FIRE_DONE2].group=GROUP_FIRE;
01463     main_types[CST_FIRE_DONE2].graphic
01464             =load_graphic(CST_FIRE_DONE2_G);
01465 
01466     main_types[CST_FIRE_DONE3].group=GROUP_FIRE;
01467     main_types[CST_FIRE_DONE3].graphic
01468             =load_graphic(CST_FIRE_DONE3_G);
01469 
01470     main_types[CST_FIRE_DONE4].group=GROUP_FIRE;
01471     main_types[CST_FIRE_DONE4].graphic
01472             =load_graphic(CST_FIRE_DONE4_G);
01473 
01474     main_types[CST_SHANTY].group=GROUP_SHANTY;
01475     main_types[CST_SHANTY].graphic=load_graphic(CST_SHANTY_G);
01476 
01477     main_types[CST_USED].group=GROUP_USED;
01478     main_types[CST_USED].graphic=0;         /* Won't be dereferenced! */
01479 }
01480 
01481 
01482 
01483 int
01484 get_group_of_type (short type)
01485 {
01486     return main_types[type].group;
01487 }
01488 
01489 void
01490 set_map_groups (void)
01491 {
01492     int x, y;
01493     for (x = 0; x < WORLD_SIDE_LEN; x++) {
01494         for (y = 0; y < WORLD_SIDE_LEN; y++) {
01495             MP_GROUP(x,y) = get_group_of_type(MP_TYPE(x,y));
01496         }
01497     }
01498 }
01499 
01500 int
01501 get_group_cost (short group)
01502 {
01503     return (int) ((float) main_groups[group].cost
01504                   + ((float) main_groups[group].cost
01505                      * ((float) main_groups[group].cost_mul
01506                         * (float) tech_level) 
01507                      / (float) MAX_TECH_LEVEL));
01508 }
01509 
01510 void 
01511 get_type_name (short type, char * s) 
01512 {
01513      short g;
01514      g = get_group_of_type (type);
01515      strcpy (s, _(main_groups[g].name));
01516 }
01517 
01518 int
01519 get_type_cost (short type)
01520 {
01521     return get_group_cost ((short) get_group_of_type (type));
01522 }