05-26-2005, 06:27 PM
Make your own program that generates random insults
here's mine
(freebasic only)
here's mine
(freebasic only)
Code:
defint a-z
type word
w as string
nxt(50) as string
ncnt as integer
end type
dim wr(50) as word
wc = 0
read startend
do
read c1
if c1 = 0 then exit do
wcstart = wc
for i=0 to c1-1
read wrd$
wr(wc).w = wrd$
wc = wc + 1
next i
read c2
for i = 0 to c2-1
read wrd$
for j = wcstart to wc-1
wr(j).nxt(i) = wrd$
next j
next i
for j = wcstart to wc-1
wr(j).ncnt = c2
next j
loop
randomize timer
print "Press enter, if you wanna get BURNED"
do
sleep
cls
ind = fix(rnd * startend)
print wr(ind).w;
do
do
r = fix(rnd * wr(ind).ncnt)
loop until wr(ind).nxt(r) <> wr(ind).w
if wr(ind).nxt(r) = "END" then
print "!"
exit do
else
print " ";
end if
for i = 0 to wc-1
if wr(i).w = wr(ind).nxt(r) then
print wr(i).w;
ind = i
exit for
end if
next i
if i = wc then
color 4
print wr(ind).nxt(r) + " has no forward links. ";
color 7
end if
loop
loop
'starts
data 2
data 1, "hello", 2, "you", "there"
data 1, "you", 5, "suck", "bite", "lick", "eat", "screw"
data 1, "there", 1, "you"
data 5, "suck", "bite", "lick", "eat", "screw", 7, "wood", "crack", "turds", "old", "rotten", "ugly", "retarted"
data 4, "rancid", "rotten", "infected", "old", 4, "old", "wood", "jocks", "milk"
data 7, "turds", "crack", "retards", "bags", "wood", "jocks", "milk", 3, "with", "and", "END"
data 2, "ugly", "retarted", 2, "bags", "retards"
data 1, "and", 1, "you"
data 1, "with", 7, "infected", "your", "old", "rotten", "ugly", "retarted", "rancid"
data 1, "your", 5, "old", "rotten", "ugly", "retarted", "rancid"
data 2, "rotten", "rancid", 1, "old"
data 0