SRL Archive - News and General

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!!!!

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

From: naumanakhlaq
You could go pk'ing on runescape? :rolleyes:

Sorry nauman, I have to disapoint [< I know it's spelled wrong -_-] you:p
I don't play RS anymore, I only go onling for 2 things:

1. For autoing
2. For testing/making a script

and that's it, my main isn't even a member anymore:)

Still thanks for the suggestion:spot:

From: mastaraymond
Congratz! Have phun

Woah, what a nice picture;)
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

From: vilon
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…

lol, glad to know that someone else know how it is;)
also, the party with my friends aint a that bad idea though;)
Thanks!!

From: Sumilion
Congratulations and have a jolly good time :D

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/]).
Thanks buddy! I'm glad you didn't forget me and my b-day since we have less contact:)

Thanks! <3

From: King of Knives
Congrats TSN :D Have a nice birthday!

-Knives

Thanks Knives!

Omg, thanks all of you, you all are making my day:) I don't want to study atm :D

-Tsn.

From: the scar noob
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/]).
Thanks buddy! I'm glad you didn't forget me and my b-day since we have less contact:)

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 …

ps. ofcourse i didn't forget about you !

From: the scar noob
Omg, thanks all of you, you all are making my day:) I don't want to study atm :D

Then don't :D

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:)

From: Markus
Why don't you just change your name to Tsn :)

hmm, hey!! I'll think about it Mark;)

From: Killerdou
the scar master:)

Hmm, nah, I'm not a master:)

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.

From: the scar noob
hmm, hey!! I'll think about it Mark;)



Hmm, nah, I'm not a master:)

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…

But yeah happy birthday man.

happy bday tsn :)

spaz

From: spaztaz666
happy bday tsn :)

spaz

Thanks man!
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!

From: EvilChicken
Gratulations!!

I wish I was 17.

I turn 15 on Christmas Eve. Joy.

Thank you! Btw, isn't it great to celebrate b-day & christmas at the same time?

From: daforeigner
Happy birthday, and good luck on the exams!

Thanks!!

-Tsn.

happy b-day

Ok thank-you all for wishing him a very happy birthday!

Happy birthday and gl, study hard