Ошибка в проге

← →
delphist2 (2002-12-06 13:32) [0]

Пожалуйста, найдите ошибки в этой проге, то она не компилится почему то

program Елочка;
Begin
Лес.елочка.create();
While not Лес.елочка.dead do
Begin
лес.елочка.age := лес.елочка.age+1;
if зима or лето then
begin
лес.елочка.plain := true;
лес.елочка.color := cl_green;
end;

метель.filename:="D:\Music\NSYNC - Bye Bye Bye.mp3";
метель.open;
sleep(1000);
метель.play;

мороз.укутать(лес.елочка);
GetMessage(H, лес.елочка.handle, 0, 0);
if h.uint = wm_замерзла then
dead := true;
end;

лес.заяц.create;
лес.заяц.трусливый := true;
лес.заяц.color := cl_gray;
x := лес.елочка.left;
y := лес.елочка.top;
While x
Begin
лес.заяц.left := x;
inc(x);
лес.заяц.top := y + round( abs(sin(x*pi/180)*10) );
end;

Winexec("wolf3d.exe /evil",0);

лес.елочка.cuttoclipboard;
Праздник.pastefromclipboard;
Праздник.елочка.skin.loadfromfile("нарядная.jpg");
For i:=1 to SizeOf(Праздник.елочка.радость) do
Прадзник.Дети.Настроение + Праздник.елочка.радость;
End.

← →
LordOfSilence © (2002-12-06 13:41) [1]

Господи, да это старый, бородатый прикол.
Где ты его выкопал?

← →
zavdim (2002-12-06 13:42) [2]

сильно.
а че-нить еще?

← →
Bis © (2002-12-06 13:52) [3]

Бред, если не полный, то частичный!
Автор начал читать про ООП, но видимо не успел, наверное съел с утра что-то не то ...
Неужели будет Дельфи100 по русски ...?

← →
Сатир © (2002-12-06 13:54) [4]

да, ты хотел пошутить, но у тебя не получилось 8)

Зачем повторять, это уже на спам похоже, ветка по этой причина кандидат на удаление.

Ты, блин, все переменные спонты, как в бейсике берешь... в разделе var объявить надо -)

Ошибка в проге Найти похожие ветки