News:

Printed Amstrad Addict magazine announced, check it out here!

Main Menu
avatar_Devilmarkus

"Der Springende Punkt" - 11Liner ;)

Started by Devilmarkus, 20:33, 14 November 12

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Devilmarkus

Have fun!
10 MODE 1:INK 1,24:INK 0,1:INK 2,1:BORDER 1:INK 3,15
20 LOCATE 1,25:PEN 2:PRINT"Der Springende Punkt"
30 FOR y= 14 TO 0 STEP -2:FOR x=0 TO 320 STEP 2:IF TEST(x,y)>0 THEN PLOT x*2,100+(y*2),3:PLOT (x*2)+2,100+(y*2):PLOT (x*2)+2,102+(y*2):PLOT (x*2),102+(y*2)
40 NEXT:NEXT
50 LOCATE 1,25:PRINT SPC(30);:INK 2,15:st=4:xlr=12:PRINT CHR$(23);CHR$(1);:x=-100:y=0:PLOT x,y:ax=x:ay=Y
60 x=-100:y=0:PLOT x,y:ax=x:ay=Y
70 PLOT ax,ay,1:PLOT x,y,1:CALL &BD19:ax=x:ay=y:x=x+st:y=y+xlr
80 IF x>630 THEN st=-4 ELSE IF x<10 THEN st=4
90 IF y > 100 THEN xlr=xlr-1 ELSE IF y < 0 THEN y=0:xlr=RND*10+10
100 GOTO 70


Who also can do silly effects in 11 BASIC lines? ;)
Post your results here :D
When you put your ear on a hot stove, you can smell how stupid you are ...

Amstrad CPC games in your webbrowser

JavaCPC Desktop Full Release

AMSDOS

Quote from: Devilmarkus on 20:33, 14 November 12
Who also can do silly effects in 11 BASIC lines? ;)
Post your results here :D
Slightly confused.
Do you want people to add an extra line (making that 11) to your existing program just to make it silly or something? I've pretty much filled a whole thread with silly routines and stuff (perhaps not in 10 or 11 lines though) ;D
Obviously to make things look sillier, it's good to alternate the ink colours and "Speed Ink 1,1" is your friend when it comes to being silly, perhaps add some cursor control to the program and throw in a Speed key 1,1 or something weird. Don't think you can alternate the speed between "SPEED INK", so you could have one 1 flashing away at one speed and another at a different speed, Amstrad probably didn't want people having seizures. You could add some really slow or weird Speed Key to what your moving just to make it all weird.  ;D
* 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

HAL6128

...I like the movement of the "jumping point". It's almost a parabel which means a realistic jumping/movement path with the help of fast integers calculations.
(no, I haven't an "eleven-liner" for the moment...  :) )
...proudly supported Schnapps Demo, Pentomino and NQ-Music-Disc with GFX

Devilmarkus

No, my program already has 11 lines ;)

I want other programs in 11 lines, which also do some silly effects :D
When you put your ear on a hot stove, you can smell how stupid you are ...

Amstrad CPC games in your webbrowser

JavaCPC Desktop Full Release

AMSDOS

* 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

Devilmarkus

Ouch... 10 lines... (Well it was late when I coded it)

Ok so post a 10 liner here ;)
When you put your ear on a hot stove, you can smell how stupid you are ...

Amstrad CPC games in your webbrowser

JavaCPC Desktop Full Release

Devilmarkus

Still 10 lines:
10 MODE 1:INK 1,15:INK 0,1:INK 2,1:BORDER 1:INK 3,15:SYMBOL 255,&X1111,&X1111:LOCATE 1,25:PEN 2:PRINT"Der Springende Punkt"
20 FOR y= 14 TO 0 STEP -2:FOR x=0 TO 320 STEP 2:IF TEST(x,y)>0 THEN PLOT x*2,100+(y*2),3:PLOT (x*2)+2,100+(y*2):PLOT (x*2)+2,102+(y*2):PLOT (x*2),102+(y*2)
30 NEXT:NEXT
40 LOCATE 1,25:PRINT SPC(30);:LOCATE 1,1:PEN 1:INK 2,15:st=4:xlr=1:PRINT CHR$(23);CHR$(1);:TAG:x=236:y=128:PLOT x,y,3:PLOT x+2,y:PLOT x+2,y+2:PLOT x,y+2:PLOT x+4,y+2:PLOT x+4,y:PLOT x+6,y:PLOT x+6,y+2:PLOT -x,-y,1:x=x-8
50 y=y+2:MOVE x,y:PRINT CHR$(255);:ax=x:ay=Y:INK 1,15,24:FOR t=1 TO 10:SPEED INK 11-t,t:FOR e=1 TO 500:NEXT:NEXT:INK 1,24:GOSUB 100
60 MOVE ax,ay:PRINT CHR$(255);:MOVE x,y:PRINT CHR$(255);
70 CALL &BD19:ax=x:ay=y:x=x+st:y=y+xlr:IF x>624 THEN st=-4 ELSE IF x<6 THEN st=4
80 IF y > 100 THEN xlr=xlr-1 ELSE IF y < 0 THEN y=0:xlr=RND*10+10
90 GOTO 60
100 MOVE ax,ay:PRINT CHR$(255);:MOVE x,y:PRINT CHR$(255);:CALL &BD19:ax=x:ay=y:y=y+xlr:x=x+xlr/2:xlr=xlr+0.125:rr=rr+1:IF rr>50 THEN RETURN ELSE GOTO 100

When you put your ear on a hot stove, you can smell how stupid you are ...

Amstrad CPC games in your webbrowser

JavaCPC Desktop Full Release

Gryzor

Just saw these two now! The physics in the first one is very nicely done :DThe second one is a bit more boring.

Powered by SMFPacks Menu Editor Mod