# stolPar
if BakaGHomework = 0:
gs 'stat'
!'
'
'Old desk, your parents bought back in the distant 90´s. Two side drawer with locks: your and your sister.'
if Stolprezik > 0:
'In the drawer are <> condoms'
end
if Stoltabletki > 0:
'In the drawer are <> birth control pills.'
end
if Stollubri> 0:
'In the drawer is anal lubricant, enough for <> uses.'
end
if krem > 0:
'There are <> uses of suntan lotion.'
end
if abonement> 0:
'subscription is valid for <> Occupation'
end
if dildo > 0:
'Realistic dildo'
end
act 'Get up from the table':
gt $locM, $metkaM
end
if prezik > 0:
act 'Remove condoms from purse':
stolIN = input ("How many condoms to put in desk drawer? (Your purse contains <> condoms.)")
if stolIN <= 0 or stolIN > prezik:
else
set stolprezik += stolIN
set prezik -= stolIN
end
gt 'stolPar'
end
end
if Stolprezik > 0:
act 'Get condoms from desk':
stolOUT = input ("How many condoms to place in purse? (Desk has <> condoms.)")
if stolOUT <= 0 or stolOUT > stolprezik:
else
set stolprezik -= stolOUT
set prezik += stolOUT
end
gt 'stolPar'
end
end
if tabletki > 0:
act 'Remove pills from purse':
stolIN = input ("How many birth control pills to put in desk drawer? (Your purse contains <> pills.)")
if stolIN <= 0 or stolIN > tabletki:
else
set Stoltabletki += stolIN
set tabletki -= stolIN
end
gt 'stolPar'
end
end
if Stoltabletki > 0:
act 'Get pills from desk':
stolOUT = input ("How many birth control pills to place in purse? (Desk has <> pills.)")
if stolOUT <= 0 or stolOUT > Stoltabletki:
else
set Stoltabletki -= stolOUT
set tabletki += stolOUT
end
gt 'stolPar'
end
end
if lubri > 0:
act 'Remove lubricant from purse':
stolIN = input ("How many uses lubricant to put in desk drawer? (Your purse contains <> uses.)")
if stolIN <= 0 or stolIN > lubri/5:
else
set Stollubri += stolIN * 5
set lubri -= stolIN * 5
end
gt 'stolPar'
end
end
if Stollubri > 0:
act 'Get lubricant from desk':
stolOUT = input ("How many uses of lubricant to place in purse? (Desk contains <> uses.)")
if stolOUT <= 0 or stolOUT > Stollubri/5:
else
set Stollubri -= stolOUT * 5
set lubri += stolOUT * 5
end
gt 'stolPar'
end
end
if lernHome > 0:
act 'Learning lessons':
cls
if lernHome <= 2:
minut += 60 * lernHome
lernHome = 0
lern += 1
end
if lernHome > 2:
minut += 60 * 2
lernHome = 0
end
gs 'stat'
'Sitting for a long time you learned yet they were able to learn.'
act 'Get up from the table':
gt $locM, $metkaM
end
end
end
end
!' $homework = {
'You have <> sheets of homework left to complete.'
act 'Do homework':
cls
:loopHomework
set lernHome -= 1
set lern += rand(1, 3)
set lernSkill += rand(0, 1)
set lernTime = (20 + rand(10, 20)) - lernSpeed
set minut += lernTime
if lernHome > 0:
jump 'loopHomework'
else
gs 'stat'
'You have finished all your homework.'
act 'Stretch and relax':
gt 'stolPar'
end
end
end
}
$study = {
'You have no more homework left to complete. You can study in the meanwhile.'
act 'Study':
cls
set lern += rand(1,3)
set lernSkill += rand(1,2)
set lernTime = (20 + rand(10,20)) - lernSpeed
set minut += lernTime
gs 'stat'
'You spent some time studying.'
act 'Stretch and relax':
gt 'stolPar'
end
end
}
if BakaGHomework = 1:
cla
*clr
gs 'stat'
!'
'
'You are sitting down at the desk.'
set lernSpeed = (intel/5) * 1
act 'Get up':
gt $locM, $metkaM
end
if lernHome > 0:
dynamic $homework
end
if lernHome < 1:
dynamic $study
end
end '
--- stolPar ---------------------------------