|
|
| Номер сообщения: 1
|
merz 
Группа:
Старик, писатель
Сообщений: 938
Дата регистрации:
августа 2002
|
 |
Отправлено: декабря 20 2002,17:35 |
|
   |
program Елочка;
Begin
Лес.елочка.create();
While not Лес.елочка.dead do
Begin
лес.елочка.age := лес.елочка.age+1;
if зима or лето then
begin
лес.елочка.plain := true;
лес.елочка.color := cl_green;
end;
метель.filename:='D:MusicNSYNC - 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.
--------------
smokers are butt suckers
|
|
|
|
|
| Номер сообщения: 2
|
Casper
Группа:
Members
Сообщений: 56
Дата регистрации:
декабря 2002
|
|
Отправлено: декабря 20 2002,17:43 |
|
 |
во первых в програме 6 ошибок!!! во втарых это ты модно придумал!!! :-)))))) я в панике!!!
--------------
Пиво с воткой да девки на выезд!!!
|
|
|
|
|
| Номер сообщения: 3
|
|
|
| Номер сообщения: 4
|
Deep(RUS52)
Группа:
Просто старик
Сообщений: 641
Дата регистрации:
августа 2002
|
|
Отправлено: декабря 21 2002,08:51 |
|
|
жалко дедушку... "NO MORE"© 
--------------
"... и давишь мух тяжелым сапогом - не дай господь мне стать твоим врагом..."©
|
|
|
|
|
| Номер сообщения: 5
|
Lisss
Группа:
Members
Сообщений: 1218
Дата регистрации:
ноября 2002
|
|
Отправлено: декабря 21 2002,14:53 |
|
|
Так ему и надо...
Я его на прошлый Новый год просил машинку (хоть "шестёрку" с рук!) так ведь нет! Теперь пусть висит
|
|
|
|
|
| Номер сообщения: 6
|
[net]Spider
Группа:
Members
Сообщений: 93
Дата регистрации:
декабря 2002
|
|
Отправлено: декабря 21 2002,20:15 |
|
|
Круто!
--------------
---------------------------------
[net] клан круче всех остальных.
|
|
|
|
|
| Номер сообщения: 7
|
Casper
Группа:
Members
Сообщений: 56
Дата регистрации:
декабря 2002
|
|
Отправлено: декабря 25 2002,21:13 |
|
|
народ вы про что7
--------------
Пиво с воткой да девки на выезд!!!
|
|
|
|
|
| Номер сообщения: 8
|
Lisss
Группа:
Members
Сообщений: 1218
Дата регистрации:
ноября 2002
|
|
Отправлено: декабря 25 2002,21:38 |
|
|
На, затянись... 
зы Ссылку посмотри
|
|
|
|
|
| Номер сообщения: 9
|
Casper
Группа:
Members
Сообщений: 56
Дата регистрации:
декабря 2002
|
|
Отправлено: декабря 26 2002,14:02 |
|
|
Хорошо пошла родная!!!!
а в сылке что интерестного?
--------------
Пиво с воткой да девки на выезд!!!
|
|
|
|
|
| Номер сообщения: 10
|
soler
Группа:
Старик, со-админ игрового сервер
Сообщений: 47
Дата регистрации:
августа 2002
|
|
Отправлено: декабря 26 2002,15:56 |
|
|
Касперу больше ничего не давать!
(разве что немного цианида или цианата)
|
|
|
|
|
|
|
