Текущий архив: 2003.10.20;
Скачать: CL | DM;
Вниз
Как говорится, без комментариев Найти похожие ветки
← →
lokka © (2003-09-30 16:09) [0]
// (C) 2003 lokka
procedure TMySelf.NewObjectCallback(AObject: THuman)
begin
if AObject is TMistress then try
BuyCondoms;
repeat
Friction(TMistress(AObject));
until not Self.Orgasm;
Smoke;
Sleep;
except
Say("Bitch");
FreeAndNil(AObject);
end;
if AObject in FriendList then
with AObject as TBuddy do begin
Say("Hi");
repeat
BuyABeer;
Drink;
until not MoneyEnough;
Self.Pee;
end;
end;
← →
NailMan © (2003-09-30 16:32) [1]Изменение:
repeat
If Self.Penis.Downed then
begin
Say("Fuck");
FreeAndNil(AObject);
exit;
end;
Friction(TMistress(AObject));
until not Self.Orgasm;
← →
han_malign © (2003-09-30 16:38) [2]>if AObject in FriendList then
1.if FriendList.IndexOf(AObject)>0 then
2. Это что получается - AObject будет Drink(хорошо хоть на свои), а ты Pee??? (см. with и self)
А если предположить, что у TBuddy нет одного из методов - BuyABeer,Drink,MoneyEnough - то все равно несправедливо...
Опять таки получается, что один TBuddy блокирует другого. Явно не хватает многопоточности и broadcast messages.
← →
han_malign © (2003-09-30 16:39) [3]упс 1. ... >=0
← →
clickmaker © (2003-09-30 16:43) [4]А если
If Self.Penis.Downed then
Self.Drink("Viagra");
?
← →
lokka © (2003-09-30 16:46) [5]2. Это что получается - AObject будет Drink(хорошо хоть на свои), а ты Pee??? (см. with и self)
У TBudy есть BuyABeer, но нет Drink, зато есть Pee :)
← →
lokka © (2003-09-30 16:49) [6]If Self.Penis.Downed then
try Apply(VacuumPump)
← →
k-man © (2003-09-30 17:53) [7]зашифрофанная пошлятина
← →
clickmaker © (2003-09-30 18:00) [8]> lokka © (30.09.03 16:49) [6]
А если уж и это не поможет, то
If Self.Penis.Downed then
Self.Penis.Apply("Эпоксидная смола");
Страницы: 1 вся ветка
Текущий архив: 2003.10.20;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.018 c
