Текущий архив: 2002.09.23;
Скачать: CL | DM;

Вниз

Отличное наглядное пособие для новичков в Delpi Object Pascal )   Найти похожие ветки 

← →
Digitman ©   (2002-08-29 12:30) [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.


(C) Dmitry Kuchin
см. http://header.km.ru/source/source10

---

← →
Игорь Шевченко ©   (2002-08-29 13:29) [1]

Класс!
И про Подольскую электричку тоже хорошо :-)

---

← →
Виктор Щербаков ©   (2002-08-29 13:34) [2]

А мне про волка понравилось :)

---

← →
asafr ©   (2002-08-29 13:56) [3]

!!!

---

← →
.nuke ©   (2002-08-29 14:17) [4]

скоро такое же допишу

---

← →
Игорь Шевченко ©   (2002-08-29 16:34) [5]

Подольская электричка:

{ Едем в Подольск, Version 1.02 }
{ Copyright (c) 1999,2000 by Sergey V. Efimoff <root@stabilis.net> }

{ Все, что вы увидите ниже, было написано холодным ветреным вечером }
{ в декабре 1999 года под впечатлением одной из многочисленных }
{ поездок домой в объекте класса общественного транспорта, }
{ называемого электричкой. Итак, понеслась... }

{ ... }

Weather.Create;
Weather.Snow.Initialize;
Weather.Wind.Initialize;
Weather.Conditions(Degrees.Zero, Wetness.95%);

People.Bind(Platform);
Timer:=Platform.People.Clock.Minutes;
MaxWait:=32;

while not Train.Arrived do begin
if Platform.People.Clock.Minutes-Timer>MaxWait then begin
Platform.People.ТвоюМать("Да где же эта чертова электричка?!")
Timer:=Platform.People.Clock.Minutes;
if MaxWait>1 then MaxWait:=MaxWait div 2 else begin
Platform.People.ТвоюМать(ОЧЕHЬ_СИЛЬHО);
MaxWait:=32;
end;
end else
Platform.People.Walk(Platform)
end;

for Stations in [Царицыно..Подольск] do begin
Train.Show;
Train.Stop;
Platform.People.ТвоюМать("Как всегда, набитая! ;-(");
Train.Doors.Open;
Train.People.FallOut(Platform);

{ People are going to enter the train... }

Counter:=Platform.People.Push(@Self, Train, CNT_Till_глаза_на_лбу);
Platform.People.Push(@Self,Train,Counter*2);

while not Train.Moves do begin
Platform.People.ТвоюМать("Еще одного!!! Hу в сеpедине же пусто совсем!!!");
Train.People.ТвоюМать("Ну куда вы лезете - не видите, места нет!");
Train.Driver.ТвоюМать("Идите все к черту, а я закрываю двери! ;-E");
Platform.People.Push(@Self.Train,1);
Train.People.DeepВыдох;
end;

Train.StartMove;

try
Train.Doors.Close;
except
Train.Doors.Open;
Train.People.FallOut(Railway);
Train.Doors.Close;
finally
Train.Doors.Lock;
end;

Babka:=Train.People.ExecSQL("SELECT * FROM People "+
"WHERE People.Age>60 AND People.Sex=UNDEFINED AND
People.Flags=(самое_толстое AND самое_вредное)");

{ Every time you eat ... }

Babka.Bag.Fish.StartSmell;

while Train.Moves do begin
Babka.TurnAround;
Train.People.ТвоюМать("Долго ты еще будешь вертеться?!");
Babka.ТвоюМать("А что, нельзя? На себя посмотри, алкаш!");
Train.People.ТвоюМать(WM_SEND_FAR);
Babka.Idle(Time.Seconds.10);
end;

People1:=Train.People.ExecSQL("SELECT * FROM People WHERE People.Out:=WILL");
People2:=Train.People.ExecSQL("SELECT * FROM People WHERE People.Out:=WONT");
People3:=Train.People.ExecSQL("SELECT * FROM People WHERE People.Out:=CANT");

{ Action 1 }

People1.Ask(Train.People[People2], "Вы выходите?");
People2.Message("ет");

{ Action 2 }

People2.Kick(People1);
People2.ТвоюМать("Куда прешься???");
People1.ТвоюМать(WM_SEND_FAR);

{ Action 3 }

People3.Kick(People2);
People3.ТвоюМать("Ну пройди в середину, че встал как пенек у входа?!");
People2.ТвоюМать(WM_SEND_FAR);

end;

Train.People.Pop(@Self, Train, All);
People.Bind(BusStation);
BusStation.People.DeepВдох;

while not Bus.Arrived do
BusStation.People.Idle(тупо_уставившись_на_расписание);

Bus:=Class(Train);

{ ... }



---

← →
Agent Smith ©   (2002-08-29 16:38) [6]

For i:=1 to SizeOf(Праздник.елочка.радость) do
Прадзник.Дети.Настроение + Праздник.елочка.радость;
тут ошибка

---

← →
LStranger ©   (2002-08-29 19:29) [7]

:-)))))) !!!!!!!!

---

← →
MsGuns ©   (2002-08-29 19:39) [8]

Блин ! Стул сломался от ржачки !!!!!

---

← →
Мужик с платформы   (2002-08-29 20:02) [9]

>Игорь Шевченко © (29.08.02 16:34)
А чо эта прога (про электричку э меня не компилится)

---

← →
RV ©   (2002-08-29 20:09) [10]

Мужик с платформы
ну дык надо DelFi новую скачать...

---

Страницы: 1 вся ветка

Текущий архив: 2002.09.23;
Скачать: CL | DM;

Наверх

Память: 0.5 MB
Время: 0.013 c