Главная страница
    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.45 MB
Время: 0.007 c
3-65340
Serhij H.
2003-09-29 17:22
2003.10.20
Вставка специальных символов


14-65584
Думкин
2003-10-02 06:36
2003.10.20
С днем рождения! 2 октября.


1-65463
Максим
2003-10-08 10:26
2003.10.20
MDI приложение !!!


14-65582
Zhouck
2003-10-02 13:37
2003.10.20
Кто знает free hosting+PHP+MySQL+FTP


1-65482
webpauk
2003-10-08 17:41
2003.10.20
component property





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский