04-24-2006, 05:46 AM
Since nobody will do me, here is mine
Sample Output:
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!!
quote="Deleter"]judging gameplay, you can adaquately compare quake 4 with pong[/quote]