| | Оригинальный анекдот звучал так:
Сидят Суслик и Big Yuri вечером в D3 ну и естественно пьют (при всем богатстве выбора другой альтернативы нет ! ).
Big Yuri: Ну что, еще по одной?
Суслик: Мне не наливай, что-то пока не хочется
После 2-х секундной паузы...
Big Yuri: Ну, а СЕЙЧАС?
Основываясь на этом получился следующий код:
Sub NoAlternative()
Dim Syslik as Object
Dim Big_Yuri as Object
Dim 0.7 as Vaibor
Dim Shot as Riumka
Dim Pasashok as LastRiumka
Dim Security as Problem
Dim Utro as Time
Dim room,devochka as Object
on error goto podalshe
If Vecher.delat = nechego then
D3.108.vstrecha = True
Do Until 0.7.EOF
Shot = 0.03
If Syslik.Zelanie = Big_Yuri.Zelanie then
Shot = 0
Else
Timer = 2
Big_Yuri.Vopros = "Nu a Sejchas"
Suslik.Zhelanie = True
Shot = 0
End If
Shot = 0.03
If 0.7 < 0.07 Then Pasashok = True
Loop
Else
NoAlternative = False
End If
If Utro.Sostoianie.Golova = Bolit Then
Security.Vstrecha.Zelanie = False
D3.108.vsrecha.Opokhmel.Vecher = True
Else
NoAlternative = False
End If
exit sub
podalshe:
Loop room in A13
room.visit
if room.person = devochka then
if devochka.hochet=true then
Syslik.ostal
end if
until room=A13.last_room
if Syslik.nenoshel=true then goto 69
End Sub
|