Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Make a program that is a person if they were coded!
#51
Ahahahahahahaha



hahahaha


I am laughing so much right now xD


partly because that is so nonsensically funny

and partly because I would love to see the emote DrV uses when he sees it xD
Reply
#52
:o :rotfl: :lol: :rotfl: :o

Can't be put into words
Reply
#53
:rotfl: Haha...

Quote:Ahahahahahahaha



hahahaha


I am laughing so much right now xD


partly because that is so nonsensically funny

and partly because I would love to see the emote DrV uses when he sees it xD
I'm going to use this one :whitetiger: because nobody ever uses it, and it's nifty.
Reply
#54
:barf: :na_th_an:

lmao... :red_marvin:

You guys have smileys named after you...Oh dear.... :whitetiger:
will Live Forever, or Die Trying >_<;;
Reply
#55
That's because we made them :red_marvin:
/post]
Reply
#56
Oooh, somebody do me. I want to know what you think of me. :wink: .
quote="Deleter"]judging gameplay, you can adaquately compare quake 4 with pong[/quote]
Reply
#57
Quote:I'm going to use this one :whitetiger: because nobody ever uses it, and it's nifty.

You forgot the REAL reason!! Because whtiger made it!

Silly!
Reply
#58
Me! Me! Do me!
quote="Deleter"]judging gameplay, you can adaquately compare quake 4 with pong[/quote]
Reply
#59
Since nobody will do me, here is mine

Code:
'Happy Birthday Generator

Dim clr As Integer
Dim nm As ZString * 255
Dim clrList() As String

Screen 13
Randomize Timer

Print "Welcome to the HB BB-Code Generator"
Input "Please tell me the name of the person who is having a birthday today ", nm

Print "Generating..."

Sleep 3000

Redim clrList(Len(nm) + 3) As String

For i = 1 To Len(nm)
    clr = INT(RND(1) * 13 + 1)
    
    Select Case clr
    Case 1: clrList(i) = "darkblue"
    Case 2: clrList(i) = "green"
    Case 3: clr = 42 : clrList(i) = "orange"
    Case 4: clrList(i) = "darkred"
    Case 5: clrList(i) = "indigo"
    Case 6: clrList(i) = "brown"
    Case 7: clrList(i) = "yellow" : clr = 14
    Case 8: clrList(i) = "white" : clr = 15
    Case 9: clrList(i) = "blue"
    Case 10: clrList(i) = "olive" : clr = 115
    Case 11: clrList(i) = "cyan"
    Case 12: clrList(i) = "red"
    Case 13: clrList(i) = "violet"
    End Select
    
    Color clr
    Print MID(nm, i, 1);
Next i

  For c = 1 To 3
        clr = INT(RND(1) * 13 +1)
        
        Select Case clr
        Case 1: clrList(i) = "darkblue"
        Case 2: clrList(i) = "green"
        Case 3: clr = 42 : clrList(i) = "orange"
        Case 4: clrList(i) = "darkred"
        Case 5: clrList(i) = "indigo"
        Case 6: clrList(i) = "brown"
        Case 7: clrList(i) = "yellow" : clr = 14
        Case 8: clrList(i) = "white" : clr = 15
        Case 9: clrList(i) = "blue"
        Case 10: clrList(i) = "olive" : clr = 115
        Case 11: clrList(i) = "cyan"
        Case 12: clrList(i) = "red"
        Case 13: clrList(i) = "violet"
        End Select
        
        Color clr
        print "!";
    Next c

Open "bbcode.txt" For Output As #1
Print #1, "[size=24]"
Print #1, "HB ";

For i = 1 To Len(nm)
    Print #1, "[color=" + clrList(i) + "]" + MID(nm, i, 1) + "[/color]";
Next i

For i = Len(nm) To Len(nm) + 1
    Print #1, "[color=" + clrList(i) + "]![/color]";
Next i
Print #1, "[/size]"
Close #1
Sleep

Sample Output:

Quote:
HB Torahteen!!

Tongue
quote="Deleter"]judging gameplay, you can adaquately compare quake 4 with pong[/quote]
Reply
#60
Of course you could have just gone:

Code:
'Bday gen.. yeah yeah whatever

input "whos birthday is it then"; bday$

print "[size=24]HB [rainbow]" + bday$ + "[/rainbow][/size]"


:P



No need for writing to a file either, you could just copy from the console and paste into the browser.
Reply


Forum Jump:


Users browsing this thread: 2 Guest(s)