Copyright (c) 1999,2000 by Sergey V. Efimoff (root@STABILIS.NET) { Все, что вы увидите ниже, было написано холодным ветреным вечером в декабре 1999 года под впечатлением одной из многочисленных поездок домой в объекте класса общественного транспорта, называемого электричкой. Итак, понеслась...) { ... } Weather.Create; People.Bind(Platform); while not Train.Arrived do begin for Stations in [Царицыно..Подольск] do begin { People are going to enter the train... } Counter:=Platform.People.Push(@Self, Train,CNT_Till_глаза_на_лбу);
while not Train.Moves do begin Train.StartMove; try
Babka:=Train.People.ExecSQL('SELECT *FROM People'+
{ Every time you eat ... } Babka.Bag.Fish.StartSmell; while Train.Moves do begin
People1:=Train.People.ExecSQL('SELECT * FROM People
WHERE People.Out:=WILL'); { Action 1 } People1.Ask(Train.People[People2], 'Вы выходите?'); { Action 2 } People2.Kick(People1); { Action 3 } People3.Kick(People2); end; Train.People.Pop(@Self, Train, All); while not Bus.Arrived
do Bus:=Class(Train); { ... } |
|
||||||||||||||||||||||||||
| |||||||||||||||||||||||||||