Printable View
Today is a very special sunday for us all. The scar noob infromally known as 'Tsn' has reached the age of 17 , In his exam period. Lets all wish him a happy birthday and good luck in his exams!!!!
http://i140.photobucket.com/albums/r...Happydbady.png
all hail tsn
woah! thanks for making the thread nauman!!
You too Paul, thanks!
It sucks that my b-day is 2nd of december, because, the exams start next week wednesday, so I can't really celebrate that much:(
But.. I can celebrate after the exams;) What about:
1. Go with my friends to a bar, drink ab bit, play some biljart,
2. Go to the cinema to watch a nice movie
;)
Plz post some thinks what I could do, I would appreciate it a lot:)
Thanks again again,
-TSN.
w00000t gratz TSN!!!
You could go pk'ing on runescape? :rolleyes:
Congratz! Have phun
http://www.funboards.nl/Jarig%20bord...28Small%29.jpg
Sorry nauman, I have to disapoint [< I know it's spelled wrong -_-] you:pQuote:
Originally Posted by naumanakhlaq
I don't play RS anymore, I only go onling for 2 things:
- For autoing
- For testing/making a script
and that's it, my main isn't even a member anymore:)
Still thanks for the suggestion:spot:
Woah, what a nice picture;)Quote:
Originally Posted by mastaraymond
Thanks ray ray <3
-TSN.
Just do what you like to do. I would probably spend a night together with my friends at some party or so but...Anyway, Happy birthday! :D
I hope you get to have a real good b-day, though you have exams next week. I know how it is, since I had my b-day 3 days ago and I have a h*ll lot of exams and work to do next week...
Congratulations and have a jolly good time :D
Congrats TSN :D Have a nice birthday!
-Knives
lol, glad to know that someone else know how it is;)Quote:
Originally Posted by vilon
also, the party with my friends aint a that bad idea though;)
Thanks!!
Hey! Glad to hear something of you Sub Zero (oh noes! sorry, it's Sumilion:p[OFFTOPIC]< You see I'm not the only one with a stupid name, he had the chance to change it:p[OFFTOPIC/]).Quote:
Originally Posted by Sumilion
Thanks buddy! I'm glad you didn't forget me and my b-day since we have less contact:)
Thanks! <3
Thanks Knives!Quote:
Originally Posted by King of Knives
Omg, thanks all of you, you all are making my day:) I don't want to study atm :D
-Tsn.
Sssssstt! Thats the past :p.... btw if i'm not mistaking there is a name change thread ;) you got the same chance as I did ...Quote:
Originally Posted by the scar noob
ps. ofcourse i didn't forget about you !
Then don't :DQuote:
Originally Posted by the scar noob
SCAR Code:program New;
var
SantyForm : TForm;
TitleLabel : TLabel;
BirthdayLabel : TLabel;
HoorayLabelOne : TLabel;
HoorayLabelTwo : TLabel;
BirthdayEdit : TEdit;
SingButton : TButton;
CancelButton : TButton;
Background : TImage;
Sing : Boolean;
BirthdayName : string;
procedure ContinueScript;
begin
if (BirthdayEdit.Text = ' Birthday Person''s Name') then
begin
ShowMessage('Fill In Birthday Person''s Name!');
Exit;
end;
BirthdayName := BirthdayEdit.Text;
SantyForm.ModalResult := mrOk;
Sing := True;
end;
procedure GenerateOnClicks(Senders : TObject);
begin
case Senders of
SingButton : ContinueScript;
CancelButton : SantyForm.ModalResult := mrCancel;
end;
end;
procedure BirthdayFormShow;
var
WhiteBitmap, BlackBitmap : Integer;
begin
SantyForm := CreateForm;
with SantyForm do
begin
Position := poScreenCenter;
BorderStyle := bsNone;
ClientWidth := 421;
ClientHeight := 275;
Font.Name := 'MS Sans Serif';
end;
Background := TImage.Create(SantyForm);
with Background do
begin
Parent := SantyForm;
SetBounds(0, 0, 421, 275);
end;
TitleLabel := TLabel.Create(SantyForm);
with TitleLabel do
begin
Parent := SantyForm;
SetBounds(24, 24, 361, 33);
Caption := 'Santy'#39's HBS - Happy Birthday Singer';
Font.Color := clYellow;
Font.Height := -27;
Font.Name := 'Monotype Corsiva';
end;
BirthdayLabel := TLabel.Create(SantyForm);
with BirthdayLabel do
begin
Parent := SantyForm;
SetBounds(156, 232, 116, 20);
Caption := 'Happy Birthday!!';
Font.Color := clYellow;
Font.Height := -16;
Font.Name := 'MS Sans Serif';
end;
HoorayLabelOne := TLabel.Create(SantyForm);
with HoorayLabelOne do
begin
Parent := SantyForm;
SetBounds(16, 136, 59, 20);
Caption := 'Hooray!!';
Font.Color := clYellow;
Font.Height := -16;
Font.Name := 'MS Sans Serif';
end;
HoorayLabelTwo := TLabel.Create(SantyForm);
with HoorayLabelTwo do
begin
Parent := SantyForm;
SetBounds(344, 136, 59, 20);
Caption := 'Hooray!!';
Font.Color := clYellow;
Font.Height := -16;
Font.Name := 'MS Sans Serif';
end;
BirthdayEdit := TEdit.Create(SantyForm);
with BirthdayEdit do
begin
Parent := SantyForm;
SetBounds(137, 120, 145, 21);
Hint := 'Santy Loves TSN!';
Font.Color := clRed;
Font.Name := 'MS Sans Serif';
ShowHint := True;
Text := ' Birthday Person'#39's Name';
end;
SingButton := TButton.Create(SantyForm);
with SingButton do
begin
Parent := SantyForm;
SetBounds(128, 176, 75, 25);
Caption := 'Sing!';
OnClick := @GenerateOnClicks;
end;
CancelButton := TButton.Create(SantyForm);
with CancelButton do
begin
Parent := SantyForm;
SetBounds(216, 176, 75, 25);
Caption := 'Cancel';
TabOrder := 10;
OnClick := @GenerateOnClicks;
end;
WhiteBitmap := BitmapFromString(1, 1, 'FFFFFF');
BlackBitmap := BitmapFromString(421, 275, '000000');
SafeCopyCanvas(GetBitmapCanvas(BlackBitmap), Background.Canvas, 0, 0, 421, 275, 2, 2, 421, 275);
SafeCopyCanvas(GetBitmapCanvas(WhiteBitmap), Background.Canvas, 0, 0, 1, 1, 0, 0, 2, 421);
SafeCopyCanvas(GetBitmapCanvas(WhiteBitmap), Background.Canvas, 0, 0, 1, 1, 419, 0, 421, 275);
SafeCopyCanvas(GetBitmapCanvas(WhiteBitmap), Background.Canvas, 0, 0, 1, 1, 0, 0, 421, 2);
SafeCopyCanvas(GetBitmapCanvas(WhiteBitmap), Background.Canvas, 0, 0, 1, 1, 0, 273, 421, 275);
end;
procedure SafeBirthdayFormShow;
var
V : TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('BirthdayFormShow', V);
end;
procedure ShowBirthdayFormShowModal;
begin
SantyForm.ShowModal;
end;
procedure SafeShowBirthdayFormShowModal;
var
V : TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('ShowBirthdayFormShowModal', V);
end;
procedure MainBirthdayFormShow;
begin
try
SafeBirthdayFormShow;
SafeShowBirthdayFormShowModal;
finally
FreeForm(SantyForm);
except
WriteLn('An error seems to have occurred in: BirthdayFormShow');
end;
end;
procedure SingHappyBirthday(BirthdayPerson : string);
var
HappyBirthdayWords : TStringArray;
TheText : string;
I, J : Integer;
begin
HappyBirthdayWords := ['Happy ', 'Birthday ', 'To ', 'You '];
for J := 0 to 1 do
begin
for I := 0 to 3 do
TheText := TheText + HappyBirthdayWords[I];
WriteLn(TheText);
TheText := '';
end;
for I := 0 to 2 do
TheText := TheText + HappyBirthdayWords[I];
TheText := TheText + BirthdayPerson;
WriteLn(TheText);
TheText := '';
for I := 0 to 3 do
TheText := TheText + HappyBirthdayWords[I];
WriteLn(TheText);
WriteLn('Santy Loves ' + BirthdayPerson + '!');
end;
begin
ClearDebug;
GetSelf.WindowState := wsMinimized;
MainBirthdayFormShow;
GetSelf.WindowState := wsNormal;
if Sing then
SingHappyBirthday(BirthdayName);
end.
Have fun TSN!
Nice...
gratz m8! GL with exams!
Happy Birthday Stijn!
That you may live for many years in the future :)
Everybody thanks!! Thank you soooo much!
Yea santa, I luv you too:D
Thanks ever yone, greatly appreciated!
Oh yea, I have something to add.
Everybody knows that I hate my forum name, that's why I always type "-Tsn." at the end of my reply.
It's great to see that everybody calls me "Tsn" instead of "the scar noob".
For the ones who question themselves why I don't change my name is.. because I suck at changing names and I don't really know something else:o
Again, everybody, thank you very much!!
-Tsn.
Why don't you just change your name to Tsn :)
the scar master:)
hmm, hey!! I'll think about it Mark;)Quote:
Originally Posted by Markus
Hmm, nah, I'm not a master:)Quote:
Originally Posted by Killerdou
Btw, I know it's possible with a cellphone, but is it also possible over here?
You can "adjust" your settinhs so, when you send a message with your cellphone that at the bottom of your message, that's their a last note, for example your name.
Should this be possible for SRL Forums?
A somekinda automatic thing that adds "-Tsn." at the bottom of my message.
It would be a great help for me and Ram:p
-Tsn.
I swear thats what the "sig" was for...Quote:
Originally Posted by the scar noob
But yeah happy birthday man.
happy bday tsn :)
spaz
Thanks man!Quote:
Originally Posted by spaztaz666
You to Narcle;)
-Tsn.
Gratulations!!
I wish I was 17.
I turn 15 on Christmas Eve. Joy.
Happy birthday, and good luck on the exams!