Programm Yelochka

Y

y.victor

Member
Joined
Jul 19, 2004
Messages
57
Reaction score
14
Елы-палы... Дело к новому году идет, у Делфистов своей новогодней песни нет...

Предлагаю восполнить этот пробел..

Вот для затравки...

Programm Yelochka;
Begin
///В лесу родилась елочка
Yelochka.CreateClass(Rasteniye);
Yelochka.Born;
/// В лесу она росла.
Yelochka.Top := Les.Top + Border;
Yelochka.Left := Les.Left + Border;

///Зимой и летом стройная
While Date Between Winter And Summer do Begin
Yelochka.Width := caThick;
///Зеленая была
Yelochka.Color := clGreen;
End;
на сие произведение действует КопиЛефт...
Можете дополнять, сокращать и изменять исходные коды по своему усмотрению.. Единственное условие - принимая на себя эти обязательства, Вы должны выкладывать свои тексты здесь ...

End.
 
Ognev

Ognev

ex-Team DUMPz
Joined
Aug 20, 2018
Messages
2,103
Reaction score
902
Age
25
Только что-то елочка не только росла, но еще и налево ходила.
 
K

Kotofff

Member
Joined
Sep 28, 2008
Messages
25
Reaction score
38
Location
Россия. Кубань.
Website
kotoff.info
PHP: 
Programm Yelochka;
Begin
///В лесу родилась елочка
  Yelochka.CreateClass(Rasteniye);
  Yelochka.Born;
/// В лесу она росла.
  Yelochka.Top := Les.Top + Border;
  Yelochka.Left := Les.Left + Border;
///Зимой и летом стройная
  While Date Between Winter And Summer do Begin
    Yelochka.Width := caThick;
///Зеленая была
  Yelochka.Color := clGreen;
///Метель ей пела песенку "Спи, елочка, бай-бай!"
  Metel.CreateClass(Wind);
  Metel.Song.LoadFromFile('Спи елочка бай-бай.mp3');
  While Yelochka.Slip do Metel.Song.Play;
///Мороз снежком укутывал: "Смотри, не замерзай!"
  Yelochka.Skin.Name := 'Снежок';
///Трусишка зайка серенький. Под елочкой скакал.
  Zaika.CreateClass(Mlekopitauschie);
  Zaika.Skin.Name := 'Gray';
  Zaika.Kind := zkTrusliv;
  Zaika.Moving.Style := msJump;
  Zaika.Moving.Active := true;
///Везет лошадка дровеньки, А в дровнях мужичок
  Loshadka.CreateClass(Mlekopitauschie);
  Loshadka.Moving := true;
  Loshadka.Addons := [Povozka, Men, Drova];
///Срубил он нашу елочку под самый корешок.  
  Men.CreateClass(Homo);
  Men.Action.LoadFromFile('Срубить елочку под корень.xml');
  Men.Action.Execute;
///И вот она, нарядная, На праздник к нам пришла, И много, много радости детишкам принесла.
  Prasdnik.CreateClass(Life);
  Prasdnik.Activ := true;
  Detishki.CreateClass(Homo);
  Detishki.Activ := true;
  Detishki.Radost := true;
  Yelochka.Skin.Name := 'Нарядная';
  While (Now.Time.Hour < '23:59') and (Now.Date < '01.01.2009') do;
End;
 
Last edited by a moderator:
Y

y.victor

Member
Joined
Jul 19, 2004
Messages
57
Reaction score
14
Решпект, Котофф, восхищен...
 
asm64d

asm64d

Member
Joined
Jun 14, 2008
Messages
943
Reaction score
9,629
sty051.gif
Kotofff - суперски!!! Чувствуется код профессионала!!!
 
F

Figaro2000

Member
Joined
May 24, 2008
Messages
13
Reaction score
4
Изумительно, но под конец автора явно покинуло вдохновение -
While (Now.Time.Hour < '23:59') and (Now.Date < '01.01.2009') do;

1. Hour сравнивается с '23:59'
2. While do; - в такой конструкции праздник загрузит всех на 100-процентов без каких либо действий...

а в целом респект)))))))))))))
 
Y

y.victor

Member
Joined
Jul 19, 2004
Messages
57
Reaction score
14
Ну...елы-палы... что такое... Только один Котофф - мир его дому - довел песню до конца... И то... даже с багами...а где привязка к версиям? И будет ли работать на D2009... И как привязаться к Дэффкам? Какие компоненты в графике использовать?

Похоже, гаишники Делфистов на полном газу обогнали...
http://foto.rambler.ru/users/advictoris/6/9b_full/webbig.html

Добавлено через 12 минут
Figaro2000 said:
...
2. While do; - в такой конструкции праздник загрузит всех на 100-процентов без каких либо действий...

а в целом респект)))))))))))))
Click to expand...

В защиту Котоффа.. Фигаро.. Эта твоя поправка не принимается... Котофф прав.. Новый Год , действительно. должен загрузить всех на 100%

А вторая ошибка - по несоответствию типов данных Hour и "23:59" - Incompatible Types: 'Word' and 'String'.
 
Last edited by a moderator:
Abraxas

Abraxas

ex-Team DUMPz
Premium Member
Platinum
GOLD
Joined
Sep 16, 2022
Messages
1,246
Reaction score
1,561
Куда замылили кусок кода?

Трусишка зайка серенький
Под елочкой скакал.
Порою волк, сердитый волк,
Рысцою пробегал.

Чу! Снег по лесу частому
Под полозом скрипит.
Лошадка мохноногая
Торопится, бежит.
 
K

Kotofff

Member
Joined
Sep 28, 2008
Messages
25
Reaction score
38
Location
Россия. Кубань.
Website
kotoff.info
Figaro2000 said:
Изумительно, но под конец автора явно покинуло вдохновение -
While (Now.Time.Hour < '23:59') and (Now.Date < '01.01.2009') do;

1. Hour сравнивается с '23:59' ....
Click to expand...

Да Бог с ним - с несоответствием ...
Друзья, коллеги - это ж просто флейм ...
 
Y

y.victor

Member
Joined
Jul 19, 2004
Messages
57
Reaction score
14
Abraxas said:
Куда замылили кусок кода?

Трусишка зайка серенький
Под елочкой скакал.
Порою волк, сердитый волк,
Рысцою пробегал.

Чу! Снег по лесу частому
Под полозом скрипит.
Лошадка мохноногая
Торопится, бежит.
Click to expand...

Ко-тоффф... Мухлюешь... Поч-чему уменьшил функционал приложения????????

Добавлено через 2 минуты
Kotofff said:
Да Бог с ним - с несоответствием ...
Друзья, коллеги - это ж просто флейм ...
Click to expand...


Агааааа!!!!! теперь флеймом прикрываешься.... :)))

Добавлено через 7 минут
Figaro2000 said:
конечно.. оть и я пофлеймил ))
Click to expand...

Какой флейм, какой флейм...
Никакого флейму.. Я, с учетом твоих замечаний, скомпилировал Yolochka на Borland Alcohol 120%..
Икк... вполне рабочее приложение... :))
 
Last edited by a moderator:
S

Sergeantus

Member
Joined
Feb 3, 2006
Messages
9
Reaction score
2
Location
Россия
Да не сочтите меня некропостером :eek: Но ведь опять скоро новый год :beer:
Вот еще один вариант "Елочки" :)
PHP: 
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.
 
Y

y.victor

Member
Joined
Jul 19, 2004
Messages
57
Reaction score
14
Sergeantus said:
Да не сочтите меня некропостером :eek: Но ведь опять скоро новый год :beer:
Click to expand...
Лан... Не горевай.. .не сочтем..
Альтернативный вариант- оннако- по функционалу близок к оригинальной версии..

Sergeantus said:
Вот еще один вариант "Елочки" :)
PHP: 
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.
Click to expand...

Нарушаешь правила... Пытался скомпилировать на Borland Alcohol 2009 -выдает ошибку "Incorportible version.Please use the next version"..
Поковырял твои сорцы - и заработало- и ишшо как... после 6-ой рюмки..:beer:
 
Y

y.victor

Member
Joined
Jul 19, 2004
Messages
57
Reaction score
14
Kotofff said:
На носу следующий Новый Год !
Будут какие-нибудь "разработки" ???
Я кое-что готовлю .... ;)
Click to expand...

Ну и хде? Или уже есть, но только в hidden?

Тут мои нонешние коллеги пытались написать Yolochka на XML-XSL.. Но получилось нечто монструозное..
Все токи лучше Borland Alcohol 120 компилятора для этой цели нету...
 
Last edited by a moderator:
You must log in or register to reply here.
Top