Как говорится, без комментариев

← →
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 :)

If Self.Penis.Downed then
try Apply(VacuumPump)

зашифрофанная пошлятина

> lokka © (30.09.03 16:49) [6]

А если уж и это не поможет, то

If Self.Penis.Downed then Self.Penis.Apply("Эпоксидная смола");

Как говорится, без комментариев Найти похожие ветки