Probably my last one for a while...
I was messing with the blue ball saver, resulting in these weird, warped green space gems...
Code:
1 FOR a = -1 TO 63
2 IF a = -1 THEN SCREEN 13 ELSE PALETTE a, a * 256
3 NEXT
4 x% = INT(RND * 320)
5 y% = INT(RND * 200)
6 FOR z% = RND * 63 + 1 TO 1 STEP -1
7 IF INKEY$ = "" THEN CIRCLE (x%, y%), z%, -z% + 64, , , INT(RND * 320) * RND * .1 ELSE END
8 IF z% > 1 THEN PAINT (x%, y%), -z% + 64 ELSE GOTO 4
9 NEXT
- Dav
be careful what you wish for, generic... i've modified my fire to work in text mode
Code:
1 OUT &H3C8, 0
2 FOR i = 0 TO 18
3 IF i = 18 THEN CLS ELSE IF i MOD 3 = 0 THEN OUT &H3C9, (i \ 3) * 10 ELSE OUT &H3C9, 0
4 NEXT i
5 DEF SEG = &HB800
6 FOR x% = 3999 TO 2080 STEP -2
7 IF x% > 3840 THEN POKE x%, CINT(RND) * 80 ELSE POKE x%, ((PEEK(x% + 160) + PEEK(x% + 162) + PEEK(x% + 158) + PEEK(x% + 320) * 1.2) / 5)
8 NEXT
9 IF INKEY$ = "" THEN GOTO 5
dav, i've learned cheap hacks are a good thing
agamemnus: i agree about the palette transformation, but i couldn't think of a way to keep it under 9 lines any other way
toonski84: text mode fire heh really cool
i'd like to see some text mode plasma if any1's up to the challenge.
rel: *please* post that raycaster!
heh this has been the most fun i've had in a while.
i think i had some non-nine-line text-mode plasma on my hd that someone made. i'll check it out tomorrow.
ya i've got a copy of that 2, heh it's really cool
SCREEN 13
DO
PSET (RND * 400, RND * 400), 10
LOOP UNTIL INKEY = "Q"
CTRL + SHIFT + BREAK to exit
just a quicky
SCREEN 13
DO
LINE -(RND * 319, RND * 199), INT(RND * 15) + 1
FOR I = 0 TO 5
WAIT 986, 8
WAIT 986, 8, 8
NEXT
LOOP Until Len(Inkey$)
oh ya time to go old sk00l hehe
if it runs way to slow just umm adjust the I for-loop
hey, who here likes spirographs?
Code:
1 SCREEN 12
2 RANDOMIZE TIMER
3 vars& = (INT(RND * 99) + 1) * 10000 + (INT(RND * 99) + 1) * 100 + (INT(RND * 99) + 1)
4 FOR t = 0 TO 100 STEP .1
5 LINE -((((vars& \ 100) MOD 100) + (vars& \ 10000)) * COS(t) - ((vars& \ 10000) + (vars& MOD 100)) * COS(((((vars& \ 100) MOD 100) + (vars& \ 10000)) / (vars& \ 10000)) * t) + 320, (((vars& \ 100) MOD 100) + (vars& \ 10000)) * SIN(t) - ((vars& \ _
10000) + (vars& MOD 100)) * SIN(((((vars& \ 100) MOD 100) + (vars& \ 10000)) / (vars& \ 10000)) * t) + 240)
6 NEXT t
7 SLEEP 1
8 CLS
9 IF INKEY$ <> "q" THEN GOTO 2
Quote:Is Rel's sphere program is hiding points in the back face?...:o
Ok, I think we should all give up...
You are the winner, Rel!
But I will continue sending progs just for fun! :bounce:
Yeah, it hides teh points in the back-face but the hack I made would only work on spherical figures and the like.
Bah!!! Nothing beats yer floormapper!!!!
Nother one...
Code:
'3d vortex......2003
'Http://Relsoft.Ath.cx
'Here's my take on the starfield stuff...
1 IF I% = 0 THEN SCREEN 13 ELSE DIM Dist!(200), Rot!(200)
2 I% = (I% + 1) MOD 200
3 IF J% < 257 THEN J% = (J% + 1)
4 PSET (Dist!(I%) * COS(Rot!(I%) / 56.32716) + 160, Dist!(I%) * SIN(Rot!(I%) / 56.32716) + 100), 0
5 Rot!(I%) = (Rot!(I%) + .5 * (Dist!(I%) / 50)) * -(Rot!(I%) <= 360)
6 IF Dist!(I%) < 0 OR Dist!(I%) > 170 THEN Rot!(I%) = RND * 360
7 IF Dist!(I%) < 0 OR Dist!(I%) > 170 THEN Dist!(I%) = RND * 170 ELSE Dist!(I%) = Dist!(I%) - (2 - (Dist!(I%) / 150))
8 IF J% > 255 THEN PSET (Dist!(I%) * COS(Rot!(I%) / 56.32716) + 160, Dist!(I%) * SIN(Rot!(I%) / 56.32716) + 100), Dist!(I%) + 50 ELSE PALETTE J%, 65536 * (J% \ 4) + 256 * (J% \ 4) + (63 - (J% \ 4))
9 IF INKEY$ = "" THEN 2
It's a 3d blackhole!!!
Yet another one...
Code:
'Colors galore!!!!
'http://Relsoft.ath.cx
'borrowed Narf's Out4pal hack!!!
1 RANDOMIZE TIMER
2 IF dir% = 0 THEN SCREEN 13 ELSE i& = (i& + 1) AND &H7FFFFFFF
3 dir% = 1 + INT(RND * 4)
4 IF dir% = 1 THEN y% = y% - (-(dir% = 1)) * -(y% > 0) ELSE y% = y% + (-(dir% = 3)) * -(y% < 200)
5 IF dir% = 2 THEN x% = x% - (-(dir% = 2)) * -(x% > 0) ELSE x% = x% + (-(dir% = 4)) * -(x% < 320)
6 IF (i& AND 1) = 0 THEN LINE (x%, y%)-(x% + (dir% = 2), y% + (dir% = 1)), POINT(x%, y%) + 1 ELSE LINE (320 - x%, 200 - y%)-(320 - x% + (dir% = 4), 200 - y% + (dir% = 3)), POINT(320 - x%, 200 - y%) + 1
7 IF (i& AND 1) = 0 THEN LINE (320 - x%, y%)-(320 - x% + (dir% = 2), y% + (dir% = 1)), POINT(320 - x%, y%) + 1 ELSE LINE (x%, 200 - y%)-(x% + (dir% = 4), 200 - y% + (dir% = 3)), POINT(x%, 200 - y%) + 1
8 OUT (&H3C9 + ((i& AND 3) = 0)), (((i& AND 3) = 0) * -((i& \ 4) AND 255)) - (((i& AND 3) <> 0) * 31) - ((((i& AND 3) <> 0) * 31) * SIN((((i& \ 4) AND 255) + (((i& AND 3) - 1) * 85) + 200 * SIN((i& \ 1024) / (81 - (10 * (i& AND 3))))) * 3.1415926# / _
64))
9 IF INKEY$ = "" THEN 2
BTW, I have that raycaster but its in 13 lines... I won't have time to edit it until Saturday but I will post it here Saturday...
More to come later....