Формула брака...

[Beaucarnea]

...выведенная путем флирта в аське

Настолько понравилось, что решила выложить сюда

Читать тем, кто не боится цинизма

Он (22:05:38 18/05/2007)

if муж=0 then

do.all else

....

end if

Катрин (22:06:42 18/05/2007)

ну как же...

if муж=0 then

do.all

else

КАНДАЛЫ

end if

Он(22:13:24 18/05/2007)

Sub КАНДАЛЫ()

for wifeage = Now to love.end

конфеты

цветы

кофе_в_постель

next wifeage

End Sub

Он(22:14:02 18/05/2007)

а это не такой уж и маленький цикл...

Катрин (22:15:45 18/05/2007)

дополню первый цикл

if муж=0 then

do.all

else

if not муж.любимый then

КАНДАЛЫ

else

for wifeage = Now to love.end

конфеты

цветы

кофе_в_постель

next wifeage

end if

Он(22:18:57 18/05/2007)



Катрин (22:19:09 18/05/2007)

есть что добавить?

Он(22:19:51 18/05/2007)

осталось только ввести переменную

Dim муж.любимый as object

Катрин (22:20:05 18/05/2007)

не.... переменная муж, а любимый - это его свойство ))

Катрин (22:20:21 18/05/2007)

Comments

[Unsa1nt]

угу



if муж=0 then

do.all

else

if not муж.любимый then

КАНДАЛЫ2

else

for wifeage = Now to love.end

do.love

end if



Sub do.all()

for partner=0 to random(улица)

if partner>0 then

if partner>=муж.любимый.прошлый then

do.love until love.end

else partner -1 or КАНДАЛЫ until муж.хороший

end if



Sub do.love

конфеты

цветы

кофе_в_постель

next wifeage

end Sub



Sub КАНДАЛЫ()

for wifeage = Now to love.end

конфеты

цветы

кофе_в_постель

next wifeage

End Sub



Sub КАНДАЛЫ2()

for муж=0 to муж.хороший

конфеты

цветы

кофе_в_постель

windows

пол

посуда

бельё

etc

End Sub

[Beaucarnea]

Супер!