Qbasicnews.com
May 31, 2020, 07:11:25 PM
 Pages: [1]
 Author Topic: Insult generator!  (Read 17322 times)
Lithium
Forum Regular

Posts: 123

 « on: May 26, 2005, 10:27:07 AM »

Make your own program that generates random insults

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

do
if c1 = 0 then exit do

wcstart = wc
for i=0 to c1-1
wr(wc).w = wrd\$
wc = wc + 1
next i

for i = 0 to c2-1
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
 Logged

COUNT HACKED BY RAZVEEE

RAZVEE IS A SCRIPT KIDDIE- hacker9
Pyrokid
Wandering Guru

Posts: 355

 « Reply #1 on: May 26, 2005, 02:22:50 PM »

:rotfl:  :rotfl:  :rotfl:  :rotfl:  :rotfl:  hahahahaha nice
haha cant... stop... laughing
 Logged

his world has been connected...
Tied to the darkness.
Soon to be completely eclipsed.
There is so very much to learn...
You understand so little.
A meaningless  effort.
One who knows nothing can understand nothing.
-Ansem Bringer of darkness and creator of the heartless
DefHo
Member

Posts: 74

 « Reply #2 on: May 26, 2005, 04:08:20 PM »

Warning: the following is extremely offensive. (Don't say I didn't warn you  :rotfl: )

http://qh2.qbtk.com/798-d
 Logged

hat were we arguing about again?
Pyrokid
Wandering Guru

Posts: 355

 « Reply #3 on: May 26, 2005, 05:40:33 PM »

You guys are killing me
My favorite: "I Bet you lick homeless people, you retrarded tit-biting bush-supporter"
 Logged

his world has been connected...
Tied to the darkness.
Soon to be completely eclipsed.
There is so very much to learn...
You understand so little.
A meaningless  effort.
One who knows nothing can understand nothing.
-Ansem Bringer of darkness and creator of the heartless
SJ Zero
Been there, done that

Posts: 1211

 « Reply #4 on: May 26, 2005, 05:48:58 PM »

If licking homeless people and biting tits is wrong, I don't WANT to be right.
 Logged
Pyrokid
Wandering Guru

Posts: 355

 « Reply #5 on: May 26, 2005, 06:06:02 PM »

dont forget bush supporting
 Logged

his world has been connected...
Tied to the darkness.
Soon to be completely eclipsed.
There is so very much to learn...
You understand so little.
A meaningless  effort.
One who knows nothing can understand nothing.
-Ansem Bringer of darkness and creator of the heartless
 Pages: [1]