Programm Yelochka

y.victor · 6 Дек 2008

Елы-палы... Дело к новому году идет, у Делфистов своей новогодней песни нет...

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

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

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 · 6 Дек 2008

Только что-то елочка не только росла, но еще и налево ходила.

Kotofff · 6 Дек 2008

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;

y.victor · 6 Дек 2008

Решпект, Котофф, восхищен...

asm64d · 6 Дек 2008

Kotofff - суперски!!! Чувствуется код профессионала!!!

Figaro2000 · 7 Дек 2008

Изумительно, но под конец автора явно покинуло вдохновение -
While (Now.Time.Hour < '23:59') and (Now.Date < '01.01.2009') do;

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

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

y.victor · 7 Дек 2008

Ну...елы-палы... что такое... Только один Котофф - мир его дому - довел песню до конца... И то... даже с багами...а где привязка к версиям? И будет ли работать на D2009... И как привязаться к Дэффкам? Какие компоненты в графике использовать?

Похоже, гаишники Делфистов на полном газу обогнали...
Как увидеть ссылки? | How to see hidden links?

Добавлено через 12 минут

Как увидеть ссылки? | How to see hidden links?
...
2. While do; - в такой конструкции праздник загрузит всех на 100-процентов без каких либо действий...

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

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

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

Abraxas · 7 Дек 2008

Куда замылили кусок кода?

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

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

Kotofff · 7 Дек 2008

Как увидеть ссылки? | How to see hidden links?
Изумительно, но под конец автора явно покинуло вдохновение -
While (Now.Time.Hour < '23:59') and (Now.Date < '01.01.2009') do;

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

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

Figaro2000 · 7 Дек 2008

Как увидеть ссылки? | How to see hidden links?
Да Бог с ним - с несоответствием ...
Друзья, коллеги - это ж просто флейм ...

конечно.. оть и я пофлеймил ))

y.victor · 7 Дек 2008

Как увидеть ссылки? | How to see hidden links?
Куда замылили кусок кода?

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

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

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

Добавлено через 2 минуты

Как увидеть ссылки? | How to see hidden links?
Да Бог с ним - с несоответствием ...
Друзья, коллеги - это ж просто флейм ...

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

))

Добавлено через 7 минут

Как увидеть ссылки? | How to see hidden links?
конечно.. оть и я пофлеймил ))

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

)

Sergeantus · 8 Ноя 2009

Да не сочтите меня некропостером

Но ведь опять скоро новый год :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.victor · 9 Ноя 2009

Как увидеть ссылки? | How to see hidden links?
Да не сочтите меня некропостером Но ведь опять скоро новый год :beer:

Лан... Не горевай.. .не сочтем..
Альтернативный вариант- оннако- по функционалу близок к оригинальной версии..

Как увидеть ссылки? | How to see hidden links?

Вот еще один вариант "Елочки"

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.

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

Kotofff · 28 Дек 2009

С Наступающим !!!

На носу следующий Новый Год !
Будут какие-нибудь "разработки" ???
Я кое-что готовлю ....

y.victor · 6 Янв 2010

Как увидеть ссылки? | How to see hidden links?
На носу следующий Новый Год !
Будут какие-нибудь "разработки" ???
Я кое-что готовлю ....

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

Тут мои нонешние коллеги пытались написать Yolochka на XML-XSL.. Но получилось нечто монструозное..
Все токи лучше Borland Alcohol 120 компилятора для этой цели нету...

Programm Yelochka

y.victor

Гость

Ognev

ex-Team ITcluB

Kotofff

Турист

y.victor

Гость

asm64d

Турист

Figaro2000

Турист

y.victor

Гость

Abraxas

ex-Team ITcluB

Kotofff

Турист

Figaro2000

Турист

y.victor

Гость

Sergeantus

Турист

y.victor

Гость

Kotofff

Турист

y.victor

Гость