News:

Printed Amstrad Addict magazine announced, check it out here!

Main Menu
avatar_SRS

weltball

Started by SRS, 21:04, 19 August 17

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

SRS

Just found this 1k BASIC-Start of a game. I do not remember what i wanted to prog so maybe someone here can use it to make a funny game ?

100 MODE 1:INK 0,0:BORDER 0:INK 1,11:INK 2,24:INK 3,6
105 FOR t=1 TO 300:PLOT RND*638,RND*400,RND*3+1:NEXT
110 DEG:FOR t=-1 TO 1 STEP 2:PLOT 320+t*320+(t=1)*2,0,3:DRAWR 0,(t=1)*-12:FOR x=92 TO 0 STEP -4:DRAW 320+t*SIN(x)*320,COS(x)*200:NEXT:NEXT
120 SYMBOL AFTER 240
130 SYMBOL 240,&99,&FF,&99,&FF,&99,&FF,&99,&FF:SYMBOL 241,0,0,0,0,0,&18,&7E,&FF
150 FOR x=2 TO 9:FOR t=x-1 TO 1 STEP -1:LOCATE x,26-t:PRINT CHR$(240);:LOCATE 41-x,26-t:PRINT CHR$(240);:NEXT t:LOCATE x,26-x:PRINT CHR$(241);:LOCATE 41-x,26-x:PRINT CHR$(241);:NEXT
160 FOR x=8 TO 2 STEP -1:FOR t=x-1 TO 1 STEP -1:LOCATE 18-x,26-t:PRINT CHR$(240);:LOCATE 23+x,26-t:PRINT CHR$(240);:NEXT t:LOCATE 18-x,26-x:PRINT CHR$(241);:LOCATE 23+x,26-x:PRINT CHR$(241);:NEXT
170 WINDOW #1,1,40,1,1:PAPER #1,1:PEN #1,0:CLS #1:PRINT#1,"   SCORE: 00000 LIVES: 03 ALIENS: 090";


[attachimg=1]

AMSDOS

Looks like a shoot the Aliens from your cozy cockpit style game  The winning game from EXTREM-256 category in the BASIC 10-Liners Compo earlier this year, just happened to be such a game.  :D
I also noticed you're using SYMBOL AFTER 240, which I think is unnecessary as the BASIC allows you to automatically define characters 240-255 by default.
* Using the old Amstrad Languages :D   * with the Firmware :P
* I also like to problem solve code in BASIC :)   * And type-in Type-Ins! :D

Home Computing Weekly Programs
Popular Computing Weekly Programs
Your Computer Programs
Updated Other Program Links on Profile Page (Update April 16/15 phew!)
Programs for Turbo Pascal 3

Powered by SMFPacks Menu Editor Mod