ЖУРНАЛ 'ВАХТОВАЯ ЖИЗНЬ'


Фраза момента:
----------




Шире Круга Нет! 
Шире Круга Нет!
Заведи себе Блог на WWW.SHIREKRUGA.NET
и найди своих друзей!
 

Оригинальный анекдот звучал так:

Сидят Суслик и 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

sefi, YuS © 2000-2011
Че надо?

Rambler's Top100 Resurs.kz: сайты Казахстана и раскрутка сайта