Insult generator! - Printable Version

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