{Rabota}
:rabota
zarplata =30
day=1

do:
fuck.work
day=day+1
if day = zarplata then start {buhach} else goto do:


{buhach}
money = 9000
pivo = 30
buy.pivo = 0
pizdec=100
trezv = 100%

:buhach
buy.pivo = 5
if pizdec = 0% then goto pol.spat
if pizdec = 50% then goto pol.blevat
if pizdec > 0 then goto :buhach


{Fuck}
:work
daytime = 9,5
do:
daytime = daytime+0,00001
wait
if daytime <> 17,50 then goto do: else goto fuck.baba

:baba
if baba = false then goto pol.spat
if baba.cikl = menstr then goto pol.spat
stoit = false
vzmokla = false
baba = ok
kiss=0
maxkiss = 7
lick = 0
maxlick = 10
suck = 0
maxsuck = 5000
fuck.ability = false
fucktime = 0
fucktimemax=30
orgazm=false

do:
if baba.vzmokla = false and kiss -1 then kiss=kiss+1
if baba.vzmokla = false and lick -1 then lick=lick+1
if baba.vzmokla = false and lick = maxlick and kiss=maxkiss then hand.job:baba =suka: goto pol.spat

if baba.vzmokla = true then try baba.suck if baba suck: if baba.suck <> - 1 then suck=suck+1
if baba.vzmokla = true and suck = maxsuck then try stoit = true else baba=dura: goto pol.spat
if baba.vzmokla = true and stoit=true then fuck.ability=true

if fuck.ability = true then fuck:fucktime=fucktime+0,0000001
if fucktime = fucktimemax then try orgazm.done: if orgazm.done = -1 then baba=gavno: hand.job:goto pol.spat

else orgazm = true


if orgazm = false then goto do:
if baba <> ok then baba.kill
if orgazm = true then goto pol.spat

:anyone
orgazm = false
do:
fuck
loop until orgazm = true


{Pol}
:spat
otospalsya = false
maxson=20
son=0
do:
son=son+0.01
if son=maxson then otospalsya = true
if harap = enabled then hrap
if perd = enabled then perd
loop until otospalsya = true
if day <> subbot and day <> voskres goto {Rabota} else :buhach

:blevat
if jeludok = full then blev:
if jeludok = empty then face.becomegreen
return: