Форум: "Потрепаться";
Текущий архив: 2003.10.20;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c