]> 4ch.mooo.com Git - 16.git/blob - 16/roads/ROADS.C
p16 is being worked on a bunch by me wwww [16_ca needs huge amounts of work and I...
[16.git] / 16 / roads / ROADS.C
1 #define ROADS_C\r
2 \r
3 #include <fastgraf.h>\r
4 #include <stdlib.h>\r
5 #include <stdio.h>\r
6 #include <time.h> /* FOR RANDOM */\r
7 #include "roads.h"\r
8 #include "tiles.h"    /* DUE TO R AND C CHEATS        */\r
9 #include "fx.h"       /* FOR FADING STUFF             */\r
10 #include "version.h"  /* INFO ON THIS VERSION         */\r
11 #include "keys.h"     /* KEY AND SCANCODE DEFINITIONS */\r
12 \r
13 extern int far *topography;      /* BACKGROUND TILE LIST (ARRAY) */\r
14 extern int far *terrain;      /* FOREGROUND TILE LIST (ARRAY) */\r
15 extern int view_x, view_y;     /* VIEW AREA (UPPER LEFT CORNER) */\r
16 extern int viewpage;           /* CURRENTLY VIEWED PAGE */\r
17 extern int world_type;         /* TENDENCY TO GRASS */\r
18 \r
19 extern int edgemode;           /* BLOCKY GRASS/DIRT OR EDGED? */\r
20 extern int animatemode;\r
21 extern int frogmode;\r
22 extern int frogwatchmode;\r
23 \r
24 int keyboardmode=0;\r
25 \r
26 /* PROTOTYPES FOR INTERNAL FUNCTIONS */\r
27 void time_test (void);\r
28 void cheat (int type);\r
29 void toggle_mode (int type);\r
30 void make_world (int type);\r
31 void view_tile_page (void);\r
32 void move_view (void);\r
33 int keycheck (void);\r
34 void init_all (void);\r
35 void gogofrog (void);\r
36 \r
37 #pragma argsused\r
38 void main (int argc, char *argv[])\r
39 {\r
40     char quitting_time=0;       /* QUIT PROGRAM LOOP   */\r
41 \r
42     printf (HEADER);\r
43 \r
44     if (argc>1)\r
45     {\r
46         printf (KEY_HELP);\r
47         exit (2);\r
48     }\r
49 \r
50     printf ("Loading ... [Escape quits] ... [Type ROADS /? for more keys!]\n");\r
51     init_all(); /* INITIALIZE ALL SYSTEMS */\r
52 \r
53     while (!quitting_time) /* LOOP FOREVER */\r
54     {\r
55         quitting_time=keycheck(); /* CHECK FOR REGULAR KEYS */\r
56         if (animatemode) animate(); /* PERFORM ALL ANIMATIONS */\r
57     }\r
58 \r
59     program_shutdown("Thank you for running ROADS!", 0);\r
60 }\r
61 \r
62 #define TIMETEST_LENGTH 10 /* TIME TEST LENGTH IN SECONDS */\r
63 \r
64 /*\r
65  *\r
66  * Performs time testing to try and guess a FPS.\r
67  *\r
68  */\r
69 void time_test (void)\r
70 {\r
71     int x, dir;\r
72     long end_time;\r
73     int frames_shown[2];\r
74 \r
75     for (x=0; x<2; x++) /* TEST TWICE, ONCE WITH ANIMATION */\r
76     {\r
77         while (redraw(SCROLL_UL)); /* SCROLL UPPER LEFT TO START */\r
78         fg_music ("L64FAC.AE.B$");\r
79         frames_shown[x]=0; dir=0;\r
80         end_time=TIMETEST_LENGTH*182/10;\r
81         end_time+=fg_getclock();\r
82 \r
83         while (fg_getclock()<end_time)\r
84         {\r
85             frames_shown[x]++;\r
86 \r
87             switch (dir)\r
88             {\r
89                 case 0: if (!redraw (SCROLL_DR   )) dir++; break;\r
90                 case 1: if (!redraw (SCROLL_UP   )) dir++; break;\r
91                 case 2: if (!redraw (SCROLL_DL   )) dir++; break;\r
92                 case 3: if (!redraw (SCROLL_RIGHT)) dir++; break;\r
93                 case 4: if (!redraw (SCROLL_UL   )) dir++; break;\r
94                 case 5: if (!redraw (SCROLL_DOWN )) dir++; break;\r
95                 case 6: if (!redraw (SCROLL_UR   )) dir++; break;\r
96                 case 7: if (!redraw (SCROLL_LEFT )) dir=0; break;\r
97             }\r
98 \r
99             if (x==0) animate(); /* ANIMATION ON FIRST TEST ONLY */\r
100         }\r
101     }\r
102 \r
103     program_shutdown ("",-1); /* DON'T EXIT YET */\r
104     printf ("%d Frames in %i seconds (%i FPS) with animation\n",\r
105         frames_shown[0], TIMETEST_LENGTH, frames_shown[0]/TIMETEST_LENGTH);\r
106     printf ("%d Frames in %i seconds (%i FPS) without animation\n",\r
107         frames_shown[1], TIMETEST_LENGTH, frames_shown[1]/TIMETEST_LENGTH);\r
108     exit (0);\r
109 }\r
110 \r
111 /*\r
112  *\r
113  * Turns on cheats (fills screen with anims for testing)\r
114  *\r
115  */\r
116 void cheat (int type)\r
117 {\r
118     register int x;\r
119 \r
120     if (type==0)\r
121     {\r
122         fade_out_all();\r
123         for (x=0; x<WORLD_TILES_TOTAL; x++)\r
124             terrain[x]=ANM_FIRE;\r
125         redraw(REFRESH);\r
126         animatewhilefading=0;\r
127         fade_in_all();\r
128         animatewhilefading=1;\r
129     }\r
130 \r
131     else if (type==1)\r
132     {\r
133         fade_out_all();\r
134         for (x=0; x<WORLD_TILES_TOTAL; x++)\r
135             if (!isroad(terrain[x])) terrain[x]=ANM_FIRE;\r
136         redraw(REFRESH);\r
137         animatewhilefading=0; /* DON'T ANIMATE IN FADES -- TOO MANY ANIMS! */\r
138         fade_in_all();\r
139         animatewhilefading=1;\r
140     }\r
141 }\r
142 \r
143 /*\r
144  *\r
145  * Toggles modes on and off (animation, edging, etc.)\r
146  *\r
147  */\r
148 void toggle_mode (int type)\r
149 {\r
150     if (type==0)\r
151     {\r
152         animatemode=!animatemode;\r
153         fg_music ("L64G.AG.A$");\r
154     }\r
155 \r
156     else if (type==1)\r
157     {\r
158         edgemode=!edgemode;\r
159         fg_music ("S1L20B..G..F..$");\r
160         if (edgemode)\r
161         {\r
162             add_dirt_edges();\r
163             redraw(REFRESH);\r
164         }\r
165     }\r
166     else if (type==2)\r
167     {\r
168         keyboardmode=!keyboardmode;\r
169         fg_music ("L40BABAGFG.$");\r
170     }\r
171     else if (type==3)\r
172     {\r
173         frogwatchmode=!frogwatchmode;\r
174         fg_music ("O1L30D.ED.A$");\r
175     }\r
176 }\r
177 \r
178 /*\r
179  *\r
180  * Initializes the world, foreground and/or background.\r
181  *\r
182  */\r
183 void make_world (int type)\r
184 {\r
185     if (type==0)\r
186     {\r
187         fade_out_all();\r
188         init_world();\r
189         redraw(REFRESH);\r
190         fade_in_all();\r
191     }\r
192 \r
193     else if (type==1)\r
194     {\r
195         init_background();\r
196         redraw(REFRESH);\r
197     }\r
198 \r
199     else if (type==2)\r
200     {\r
201         init_foreground();\r
202         redraw(REFRESH);\r
203     }\r
204 }\r
205 \r
206 /*\r
207  *\r
208  * Shows the contents of the tile page.  Hit any key to fade back.\r
209  *\r
210  */\r
211 void view_tile_page (void)\r
212 {\r
213     char key1, key2;\r
214 \r
215     fade_out_all();\r
216     fg_setvpage (TILEPAGE);\r
217     fade_in_all();\r
218 \r
219     fg_kbinit(0);\r
220 \r
221     do {\r
222       fg_intkey (&key1, &key2);\r
223       animate();\r
224     } while (!(key1+key2)); /* DO LOOP WHILE KEYS ARE NOT HIT */\r
225 \r
226     fg_kbinit(1);\r
227 \r
228     fade_out_all();\r
229     fg_setvpage (viewpage);\r
230     fade_in_all();\r
231 }\r
232 \r
233 /*\r
234  *\r
235  * Scans for arrow keys and scrolls the view area in reaction to them.\r
236  *\r
237  */\r
238 void move_view (void)\r
239 {\r
240     static char left=0, right=0, up=0, down=0; /* KEYBOARD VARS       */\r
241 \r
242         /* CHECK FOR ARROWS BEING PRESSED */\r
243     if (fg_kbtest(SCAN_RIGHT))      right++; else right=0;\r
244     if (fg_kbtest(SCAN_LEFT))       left++;  else left=0;\r
245     if (fg_kbtest(SCAN_UP))         up++;    else up=0;\r
246     if (fg_kbtest(SCAN_DOWN))       down++;  else down=0;\r
247 \r
248         /* MAKE SURE COUNTERS DON'T GO TOO HIGH */\r
249     if (right>100)  right=100;\r
250     if (left>100)   left=100;\r
251     if (up>100)     up=100;\r
252     if (down>100)   down=100;\r
253 \r
254         /* IF "TAP" KEYBOARD MODE IS ON, DON'T MOVE UNTIL KEYS RELEASED */\r
255     if (keyboardmode && (right>1 || left>1 || up>1 || down>1)) return;\r
256 \r
257         /* MOVE, CHECKING FOR DIAGONAL MOVEMENT FIRST */\r
258     if (up && right)        redraw (SCROLL_UR);\r
259     else if (down && left)  redraw (SCROLL_DL);\r
260     else if (up && left)    redraw (SCROLL_UL);\r
261     else if (down && right) redraw (SCROLL_DR);\r
262     else if (right)         redraw (SCROLL_RIGHT);\r
263     else if (left)          redraw (SCROLL_LEFT);\r
264     else if (up)            redraw (SCROLL_UP);\r
265     else if (down)          redraw (SCROLL_DOWN);\r
266 }\r
267 \r
268 /*\r
269  *\r
270  * Initializes all systems and brings display up.\r
271  *\r
272  */\r
273 void init_all (void)\r
274 {\r
275     fg_kbinit(1);       /* LATCH LOW-LEVEL KEYBOARD HANDLER */\r
276     randomize();        /* ALLOW RANDOMIZATIONS             */\r
277 \r
278     init_anim();        /* CALL BEFORE WORLD CREATION       */\r
279     init_data();        /* CALL BEFORE WORLD CREATION       */\r
280     init_world();       /* RANDOMIZE THE WORLD              */\r
281     init_video();       /* SET OUR VIDEO MODE ETC.          */\r
282 \r
283     fade_init();        /* ALLOW FADING                     */\r
284     fade_blackout();    /* SET ALL COLORS TO BLACK          */\r
285     redraw(REFRESH);    /* DRAW THE SCREEN (UNSEEN)         */\r
286     fade_in_all();      /* FADE IN SCREEN                   */\r
287 }\r
288 \r
289 /*\r
290  *\r
291  * Keycheck checks all keys and reacts upon them.\r
292  * Returns 1 if a key has indicated the user has requested to quit.\r
293  *\r
294  */\r
295 int keycheck (void)\r
296 {\r
297     if (fg_kbtest(SCAN_T)) time_test();\r
298     if (fg_kbtest(SCAN_C)) cheat (0);\r
299     if (fg_kbtest(SCAN_R)) cheat (1);\r
300     if (fg_kbtest(SCAN_A)) toggle_mode(0);\r
301     if (fg_kbtest(SCAN_E)) toggle_mode(1);\r
302     if (fg_kbtest(SCAN_K)) toggle_mode(2);\r
303     if (fg_kbtest(SCAN_W)) toggle_mode(3);\r
304     if (fg_kbtest(SCAN_F))\r
305     {\r
306         fg_music ("L50O4BAFDEF.$");\r
307         switch (frogmode)\r
308         {\r
309             case 1: frogmode=2; break;\r
310             case 3: frogmode=0; break;\r
311         }\r
312     }\r
313     if (fg_kbtest(SCAN_G)) /* RERANDOMIZE GRASS/DIRT TENDENCY */\r
314     {\r
315         world_type=random(100);\r
316         fg_music ("S1L20C..B..A..$");\r
317     }\r
318     if (fg_kbtest(SCAN_SPACE))  make_world (0);\r
319     if (fg_kbtest(SCAN_B))      make_world (1);\r
320     if (fg_kbtest(SCAN_ENTER))  make_world (2);\r
321     if (fg_kbtest(SCAN_S))      view_tile_page();\r
322 \r
323     move_view(); /* RESPOND TO ARROW KEYS MOVING VIEW */\r
324 \r
325     if (fg_kbtest(SCAN_ESC) || fg_kbtest(SCAN_Q)) /* ESCAPE TO QUIT */\r
326         return 1;\r
327 \r
328     return 0;\r
329 }\r
330 \r