WT-Fakawi
2007-12-16 04:13:40
Happy anniversary son!
2007-12-16 04:13:40
2007-12-16 04:14:37
2007-12-16 04:15:21
2007-12-16 04:21:38
2007-12-16 04:23:12
2007-12-16 04:23:37
2007-12-16 04:24:02


2007-12-16 04:26:28
2007-12-16 04:32:26
2007-12-16 04:39:35
2007-12-16 04:42:11
2007-12-16 04:43:14
2007-12-16 04:46:12
2007-12-16 04:58:19
2007-12-16 05:14:40
2007-12-16 05:33:57
2007-12-16 05:36:39
2007-12-16 05:39:57
2007-12-16 05:42:40
2007-12-16 05:47:41
2007-12-16 05:48:04
From: Wizzup?
Thanks all…
I'll try to act like SinterKlaas and and out some presents later… I still have to make them, though. ;)
2007-12-16 05:57:48
2007-12-16 06:03:48
2007-12-16 06:07:35
2007-12-16 06:23:25
Program Happy_Birthday_Wizzup;
var I: Integer;
Procedure HappyBirthday;
begin
Writeln('Hap')
Wait(400)
ClearDebug;
Writeln('Happy')
Wait(200)
ClearDebug;
Writeln('Happy birth')
Wait(350)
ClearDebug;
Writeln('Happy birthday')
end;
begin
ClearDebug;
for I:= 1 to 2 do
begin
HappyBirthday;
Wait(400)
ClearDebug;
Writeln('Happy birthday to')
Wait(400)
ClearDebug;
Writeln('Happy birthday to you')
Wait(400)
ClearDebug;
Wait(400)
end;
HappyBirthday;
Wait(400)
ClearDebug;
Writeln('Happy birthday dear')
Wait(400)
ClearDebug;
Writeln('Happy birthday dear Wiz')
Wait(300)
ClearDebug;
Writeln('Happy birthday dear Wizzup?')
Wait(300)
ClearDebug;
Wait(300)
HappyBirthday;
Wait(400)
ClearDebug;
Writeln('Happy birthday to')
Wait(400)
ClearDebug;
Writeln('Happy birthday to you')
Wait(400)
ClearDebug;
Wait(400)
end.
The timing in the song fits with the real one! Try for yourself :D!2007-12-16 06:42:14
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.
2007-12-16 06:45:14
2007-12-16 07:09:19
Thanks all…
I'll try to act like SinterKlaas and and out some presents later… I still have to make them, though.
2007-12-16 08:11:35
From: n3ss3s
I am sensing ColorToleranceSpeed(2) :rolleyes:
2007-12-16 09:11:09
2007-12-16 09:11:31
begin
WriteLn('Happy Birthday Wizzup?!');
WriteLn('I though aniversity meant years after marrage :)');
end.
2007-12-16 09:15:42
2007-12-16 09:17:49
-Hy71194 says:
No
-Hy71194 says:
I dont save men to my HDD :$
-Hy71194 says:
He just looks like a pot-head, his hair is all…. psycho :)
-Hy71194 says:
But hey, he is still l33t, and cool looking (h)
2007-12-16 09:25:41
2007-12-16 09:35:47
2007-12-16 09:37:50
2007-12-16 09:55:58
From: King of Knives
HARRY!! You had the Tree-picture from "Cowz". Do you by any chance also have the pictures from Fakawi's Trillenium thread?
Me wants to see :(
-Knives
2007-12-16 09:58:54
2007-12-16 10:01:22
2007-12-16 10:15:58
2007-12-16 12:47:02
2007-12-16 12:52:15
2007-12-16 12:52:40
2007-12-16 12:57:28
2007-12-16 13:28:47
2007-12-16 13:45:33
2007-12-16 13:52:20
2007-12-16 14:01:37
2007-12-16 14:18:30
2007-12-16 14:24:11
2007-12-16 14:28:51
2007-12-16 14:42:21
From: n3ss3s
Just a side note: here the postcount doesn't reflect the size of… You understand what I mean…
2007-12-16 16:09:32
2007-12-16 16:14:47
2007-12-16 17:12:34
2007-12-16 17:49:18
From: Narcle
LOL!
Is your birthday seriously today? (16th of December)
Mine is today too!
But I'm 21! :p
2007-12-16 19:21:03
From: mastaraymond
Congratz!
Happy birthday to j00! _o_
2007-12-18 19:02:22