Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 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.46 MB
Время: 0.007 c
3-65388
Alek_1
2003-09-25 21:23
2003.10.20
Снова про FireBird!


1-65431
romeo
2003-10-07 17:38
2003.10.20
Можно ли получить значение свойства по его имени?


9-65306
justYura
2003-04-01 12:22
2003.10.20
Animation


9-65308
lutik
2003-04-16 12:10
2003.10.20
Рисование на чужих окнах


14-65577
Help
2003-10-02 13:54
2003.10.20
Про dll





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский