Qbasicnews.com
May 31, 2020, 07:11:25 PM *
Welcome, Guest. Please login or register.

Login with username, password and session length
News: Back to Qbasicnews.com | QB Online Help | FAQ | Chat | All Basic Code | QB Knowledge Base
 
   Home   Help Search Login Register  
Pages: [1]
  Print  
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 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
Logged

COUNT HACKED BY RAZVEEE

RAZVEE IS A SCRIPT KIDDIE- hacker9
Pyrokid
Wandering Guru
***
Posts: 355



WWW
« 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



WWW
« 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



WWW
« 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



WWW
« 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]
  Print  
 
Jump to:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!