Posts: 440
Threads: 65
Joined: Sep 2001
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
Posts: 2,020
Threads: 24
Joined: Jun 2002
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
i]"I know what you're thinking. Did he fire six shots or only five? Well, to tell you the truth, in all this excitement, I've kinda lost track myself. But being as this is a .44 Magnum ... you've got to ask yourself one question: 'Do I feel lucky?' Well, do ya punk?"[/i] - Dirty Harry
Posts: 115
Threads: 6
Joined: Feb 2003
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.
very F***ing song remains the same
To everyone who sucks-up for the fame
Out of strength you know we speak the truth
Every trend that dies is living proof
MasterMinds Software
Posts: 2,020
Threads: 24
Joined: Jun 2002
i think i had some non-nine-line text-mode plasma on my hd that someone made. i'll check it out tomorrow.
i]"I know what you're thinking. Did he fire six shots or only five? Well, to tell you the truth, in all this excitement, I've kinda lost track myself. But being as this is a .44 Magnum ... you've got to ask yourself one question: 'Do I feel lucky?' Well, do ya punk?"[/i] - Dirty Harry
Posts: 115
Threads: 6
Joined: Feb 2003
ya i've got a copy of that 2, heh it's really cool
very F***ing song remains the same
To everyone who sucks-up for the fame
Out of strength you know we speak the truth
Every trend that dies is living proof
MasterMinds Software
Posts: 46
Threads: 12
Joined: Dec 2002
SCREEN 13
DO
PSET (RND * 400, RND * 400), 10
LOOP UNTIL INKEY = "Q"
CTRL + SHIFT + BREAK to exit
just a quicky
img]http://forums.rleague.com/images/avatars/westsig.gif[/img]
go the mighty maggies.
(thanks yakstorm)
i regularly visit a rugby league version of these forums. i have amassed almost 2k worth of messages.
Posts: 115
Threads: 6
Joined: Feb 2003
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
very F***ing song remains the same
To everyone who sucks-up for the fame
Out of strength you know we speak the truth
Every trend that dies is living proof
MasterMinds Software
Posts: 2,020
Threads: 24
Joined: Jun 2002
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
i]"I know what you're thinking. Did he fire six shots or only five? Well, to tell you the truth, in all this excitement, I've kinda lost track myself. But being as this is a .44 Magnum ... you've got to ask yourself one question: 'Do I feel lucky?' Well, do ya punk?"[/i] - Dirty Harry
Posts: 3,288
Threads: 167
Joined: Nov 2001
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!!!
Posts: 3,288
Threads: 167
Joined: Nov 2001
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....
|