Главная Форум Чат Галерея Благотворительность  
   
 
FAQ   |  Поиск  |  Регистрация   |  Вход
Текущее время: Вт ноя 13, 2018 20:12
  В лесу родилась ёлочка.



Начать новую тему
Ответить на тему
Список форумов » Шахтинцы общаются » Я плакалЪ

Страница 1 из 1 [ Сообщений: 6 ] 

Пред. тема
След. тема

Версия для печати

Модератор: Begemot




  Автор
 

Администратор
Администратор

Аватара пользователя
Не в сети


Сообщение
Добавлено: Вс апр 18, 2004 8:32     Заголовок сообщения:  Сообщение В лесу родилась ёлочка.
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.

_________________
Подпись. ;-)



 

Возраст: 34
Зарегистрирован: Вт мар 09, 2004 18:20
Сообщения: 3224
Откуда: Со всей страны =)
 
  Профиль ICQ  
 
  Автор
 

Администратор
Администратор

Аватара пользователя
Не в сети


Сообщение
Добавлено: Вс апр 18, 2004 11:18     Заголовок сообщения:  Сообщение
Класс!

_________________
Активисты все еще ищутся здесь!



 

Возраст: 33
Зарегистрирован: Пт авг 08, 2003 13:49
Сообщения: 6596
Откуда: Ростов-на-Дону
 
  Профиль ICQ WWW  
 
  Автор
 

Почётный форумщик
Почётный форумщик

Аватара пользователя
Не в сети


Сообщение
Добавлено: Вс апр 18, 2004 12:39     Заголовок сообщения:  Сообщение
Опять програминг и юмор в ту степь, переведите на русский...


 

Возраст: 32
Зарегистрирован: Вт сен 23, 2003 15:46
Сообщения: 8847
 
  Профиль ICQ  
 
  Автор
 

Администратор
Администратор

Аватара пользователя
Не в сети


Сообщение
Добавлено: Вс апр 18, 2004 18:02     Заголовок сообщения:  Сообщение
Если англицкий знаешь, то всё и так понятно будет.
А если не знаешь... На русском это сабж.

_________________
Подпись. ;-)



 

Возраст: 34
Зарегистрирован: Вт мар 09, 2004 18:20
Сообщения: 3224
Откуда: Со всей страны =)
 
  Профиль ICQ  
 
  Автор
 

Администратор
Администратор


Не в сети


Сообщение
Добавлено: Вт апр 20, 2004 9:35     Заголовок сообщения:  Сообщение
))

_________________
..



 

Возраст: 37
Зарегистрирован: Пт авг 08, 2003 17:15
Сообщения: 887
Откуда: Шахты
 
  Профиль  
 
  Автор
 

Случайно забежавший
Случайно забежавший


Не в сети


Сообщение
Добавлено: Пн апр 06, 2015 8:42     Заголовок сообщения:  Сообщение Re: В лесу родилась ёлочка.
#include "win31.h"
#include "win95.h"
#include "win98.h"
#include "workst~1.h"
#include "evenmore.h"
#include "oldstuff.h"
#include "billrulz.h"
#include "monopoly.h"
#include "backdoor.h"
#define INSTALL = HARD

_________________
http://www.solitairewithbuddies.com/



 
Зарегистрирован: Пн апр 06, 2015 8:32
Сообщения: 1
 
  Профиль  
 
Показать сообщения за:  Поле сортировки  



Начать новую тему
Ответить на тему
Список форумов » Шахтинцы общаются » Я плакалЪ

Страница 1 из 1 [ Сообщений: 6 ] 

Пред. тема
След. тема

Версия для печати



Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  

cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group


Design by Brovkin, Русская поддержка phpBB
Шахты online © 2003-2010, по вопросам копирования информации обращаться - Антон Борисов

[ Time : 0.051s | 11 Queries | GZIP : Off ]