Title: City Defender version 1.0 beta Author: Derek Cross E-Mail: Size: Less than 2k URL: http://www.geocities.com/TimesSquare/1934/main.htm Description: You are EEP-EEP the asterisk, and it is your duty to defend the city against the incoming meteors. If a meteor slips by, you lose a life (you have three lives). Your main (and only weapon at this point) weapon is a powerful orange laser that fires upward. The laser automatically ranges itself to the meteor. Controls are included in a built in help screen in the game. Please keep in mind that this game is in the beta stage at the moment, and I may write a new version if there is a demand for it. I mean...hey, what can you expect for 8 hours of work?! A screenshot is damn near impossible to replicate using text, but if you have the cable and software I would appreciate you sending me a screenshot of the game (in .GIF or .JPEG format) ;) This game is really easy to learn, and anyone should be able to pick up the basics within a few minutes... Note: To use the menu, use the up and down arrow keys to select an option (marked by the arrow). When a Y/N question is asked, just press Y or N on the keypad. That's just about it... What I'd Like To See: Some code cleaning, multiple asteroids on the screen at any one time, difficulty levels, little bits and pieces... SYMBOLS * YOU! () An asteroid (bunch of little lines) The city CONTROLS Left/right arrow keys Left/right movement [SHIFT] Fire the laser [MENU] (when playing) The in-game menu/pause screen [EXIT] Quickly quit the game (if you're playing in class or something...) ============================================================================== Program: "DEFENDER" 0 -> A~Z:ClrText Locate 7,4,"DEFENDER" For 1 -> A To 250 Getkey => Goto 0 Next:ClrText Locate 6,3,"STARRING..." Locate 8,5,"EEP-EEP" ;the '-' is the negative sign Locate 11,6,"*" For 1 -> A To 250 Getkey => Goto 0 Next:Lbl 0 ClrText Locate 8,1,"DEFENDER" Locate 2,2,"PLAY!" Locate 2,3,"INSTRUCTIONS" Locate 2,4,"ABOUT" Locate 2,5,"QUIT" 2 -> A:While Getkey =\= 31 A=1 => 5 -> A:A=6 => 2 -> A Locate 1,A,"->" ;'->' is the arrow on the keypad If Getkey=37 Then Locate 1,A," " Dsz A:IfEnd If Getkey=28 Then Locate 1,A," " Isz A:IfEnd WhileEnd A=2 => Goto A A=3 => Goto 1 A=4 => Goto 2 A=5 => Goto Q Lbl 1:ClrText Locate 1,1,"< AND > ARROWS MOVE" ;3 spaces to 'M' Locate 1,2,"[SHIFT] FIRE" ;10 spaces to 'F' Locate 1,3,"[EXIT] QUICK-QUIT" ;7 spaces to 'Q' Locate 1,4,"[MENU] PAUSE/MENU" ;""""""""""" 'P' Locate 6,7,"PRESS [EXE]" Do:LpWhile Getkey =\= 31 Goto 0 Lbl 2:ClrText Locate 2,2,"DEFENDER VER. 1.0" ;3 spaces to 'V' Locate 4,3,"BY: DEREK CROSS" Locate 6,4,"(c)1997 DTC" ;the little c is in the VARS-STAT- Locate 6,7,"PRESS [EXE]" ;( cont.'d ) GRPH menu Do:LpWhile Getkey =\= 31 Goto 0 Lbl A If Not J Then 3 -> L:66 -> B:1 -> W ViewWindow 1,127,0,63,1,0 For 1 -> A To 15 Vertical A Vertical 101-A Next For 17 -> A To 86 F-Line A,63,A,(63-Int 4Ran#+1) Next Text 1,102,"SCORE:" Text 18,102,"LIVES:" Text 36,102,"WAVE:" 0 -> T:IfEnd J => RclPict 1 ;RclPict is in the OPTN-PICT menu Text 7,102,S Text 24,102,L Text 42,102,W Lbl B Isz T:T=5W => Goto W Int 70Ran#+10 -> H:9 -> G While 1 Text G,H," ":Isz G ;2 spaces between "" Text G,H,"()" G>57 => Goto L Green Text 54,B,"*" If Getkey=38 And B>21 Then Green Text 54,B," " ;2 spaces between "" B-3 -> B:IfEnd If Getkey=27 And B<76 Then Green Text 54,B," " ;2 spaces between "" B+3 -> B:IfEnd Getkey=48 => Goto M Getkey=47 => Goto Q If Getkey=78 Then Text G,H," " StoPict 1 Text G,H,"()" Orange F-Line B+2,55,B+2,G+2 B+2>H+1 => B+2 Goto K Cls:RclPict 1 IfEnd WhileEnd Lbl K For 1 -> A To 15 Tet G,H," " PlotChg H+(Int 10Ran#),G+(Int 10Ran#) Next:Cls S+100 -> S 1 -> J:Goto A Lbl W Text 26,20,"WAVE COMPLETE" Text 33,26,"PRESS [EXE]"_ :'_' is the Disp. symbol Text 26,20," " ;17 spaces between "" Text 33,26," " ;ditto Isz W:0 -> T Goto A Lbl L For 1 -> A To 15 PlotChg B+(Int 10Ran#),56-(Int 10Ran#) PlotChg B-(Int 10Ran#),56-(Int 10Ran#) Next:L-1 -> L L<1 => Goto Z Cls:RclPict 1 Goto A Lbl Z:ClrText Locate 3,4,"PLAY AGAIN? [Y/N]" Locate 5,3,"YOU HAVE DIED" While (Getkey =\= 64 Or Getkey =\=32) Getkey -> C:WhileEnd 0 -> J:C=32 => Goto A ClrText:ClrGraph Stop Lbl M:ClrText Locate 7,1,"GAME MENU" Locate 2,2,"CONTINUE" Locate 2,3,"NEW GAME" Locate 2,4,"QUIT" 2 -> A:While Getkey =\= 31 A=1 => 4 -> A:A=5 => 2 -> A Locate 1,A,"->" ;'->' is the arrow on the keypad If Getkey=37 Then Locate 1,A," " Dsz A:IfEnd If Getkey=28 Then Locate 1,A," " Isz A:IfEnd WhileEnd A=2 => Goto B A=3 => 0 -> J A=3 => Goto A A=4 => Goto Q Lbl Q:ClrText Locate 2,3,"ARE YOU SURE?" While (Getkey =\= 32 Or Getkey =\= 64) Getkey -> C:WhileEnd C=64 => (Not J) => Goto 0 C=64 => Goto A If C=32 Then ClrGraph ClrText Stop:IfEnd Well, that does it. ENJOY! \\DTC