Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Insult generator!
#1
Make your own program that generates random insults

here's mine Tongue

(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
COUNT HACKED BY RAZVEEE

RAZVEE IS A SCRIPT KIDDIE- hacker9
Reply
#2
:rotfl: :rotfl: :rotfl: :rotfl: :rotfl: hahahahaha nice
haha cant... stop... laughing
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
Reply
#3
Warning: the following is extremely offensive. (Don't say I didn't warn you :rotfl: )

http://qh2.qbtk.com/798-d
hat were we arguing about again?
Reply
#4
You guys are killing me
My favorite: "I Bet you lick homeless people, you retrarded tit-biting bush-supporter"
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
Reply
#5
If licking homeless people and biting tits is wrong, I don't WANT to be right.
Reply
#6
dont forget bush supporting
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
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)