05-14-2003, 09:51 AM
i sent in a older version i forgot to save the newer 1
try this 1 instead
DECLARE FUNCTION Rand% (Min%, Max%)
SCREEN 11
DO
PSET (Rand(0, 640), Rand(0, 480)), 2
LOOP
DEFINT A-Z
FUNCTION Rand (Min, Max)
STATIC Cnt AS LONG, Cnt2 AS LONG, LastMin, LastMax
STATIC LastValue
Ran = Max - Min
Cnt = (Cnt + (LastMin + LastMax)) AND 32767
Cnt2 = (Cnt2 + ((Cnt MOD (Max + Min)))) AND 32767
D& = ((Cnt + Cnt2) XOR (Ran + Min))
D2 = (D& + LastValue) MOD (Ran + 1) + Min
Rand = D2
LastValue = D2
LastMin = Min
LastMax = Max
END FUNCTION
try this 1 instead
DECLARE FUNCTION Rand% (Min%, Max%)
SCREEN 11
DO
PSET (Rand(0, 640), Rand(0, 480)), 2
LOOP
DEFINT A-Z
FUNCTION Rand (Min, Max)
STATIC Cnt AS LONG, Cnt2 AS LONG, LastMin, LastMax
STATIC LastValue
Ran = Max - Min
Cnt = (Cnt + (LastMin + LastMax)) AND 32767
Cnt2 = (Cnt2 + ((Cnt MOD (Max + Min)))) AND 32767
D& = ((Cnt + Cnt2) XOR (Ran + Min))
D2 = (D& + LastValue) MOD (Ran + 1) + Min
Rand = D2
LastValue = D2
LastMin = Min
LastMax = Max
END FUNCTION
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
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