# stol
if $ARGS[0] = 'start':
*clr & cla
menu_off = 1
'
Desk
'
'
> src="images/shared/home/bedroom/stol.jpg">'
*nl
gs 'stat'
'Bric-a-brac drawer.'
if lubri > 0:'Lubricant, enough for <> time(s).'
if krem > 0:'Sunblock, enough for <> more application(s).'
if abonement > 0:'Fitness center subscription, valid for <> more visit(s)'
if dildo > 0:'Realistic Dildo.'
if mentats_have > 0:
'Take neurobooster pill. Uses left: <>. Warning on the box says not to take more than one per day.'
end
if steroid_have > 0:
'Take steroids. Uses left: <>.'
end
if aphrodisiac_have > 0:
'Chew aphrodisiac gum. Uses left: <>.'
end
act 'Close the drawer': gt $loc, $metka
act 'Check birth control': gt 'stol', 'bc'
if siga > 0:
act 'Hide some cigarettes in your drawer':
cla
cigIN = input ("How many cigarettes do you want to hide in your drawer? (Your purse contains <> cigarettes.)")
if cigIN <= 0 or cigIN > siga:
'You can''t put this amount into the drawer.'
else
stolcigarettes += cigIN
siga -= cigIN
end
gt 'stol', 'start'
end
end
if stolcigarettes > 0:
act 'Take some cigarettes from your drawer':
cla
cigOUT = input ("How many cigarettes do you want to put in your purse? (There are <> cigarettes here.)")
if cigOUT <= 0 or cigOUT > stolcigarettes:
'You can''t take this amount from your drawer.'
else
stolcigarettes -= cigOUT
siga += cigOUT
end
gt 'stol', 'start'
end
end
if money > 0:
act 'Put some money in the drawer':
cla
stolIN = input ("How much money you want to put in the desk drawer? (Your purse contains <> ₽.)")
if stolIN <= 0 or stolIN > money:
!!'Not correct operation.'
else
stolmoney += stolIN
money -= stolIN
end
gt 'stol', 'start'
end
end
if stolmoney > 0:
act 'Take some money from the desk.':
cla
stolOUT = input ("How much money do you want to put in your purse? (There is <> ₽ here.)")
if stolOUT <= 0 or stolOUT > stolmoney:
!!'Not correct operation.'
else
stolmoney -= stolOUT
money += stolOUT
!!'You debited <> ₽, now on your account <> ₽.'
end
gt 'stol', 'start'
end
end
end
if $ARGS[0] = 'stolPar':
*clr & cla
menu_off = 1
gs'stat'
'Desk
'
'
> src="images/shared/home/bedroom/stol.jpg">'
*nl
'You sit down at your desk.'
act 'Get up':gt $loc, $metka
act 'Check your birth control': gt 'stol', 'bc'
if mentats_have > 0: 'Take neurobooster pill. Uses left: <>. Warning on the box says not to take more than one per day.'
if steroid_have > 0: 'Take steroids. Uses left: <>.'
if aphrodisiac_have > 0: 'Chew aphrodisiac gum. Uses left: <>.'
if lernHome > 0:
'
You have to do homework for school. Finishing everything will take <> hours.'
act 'Do your homework (1 hour)':
cla & *clr
'
> src="images/locations/shared/apartment/homework.jpg">'
minut += 60
lernHome -= 1
lern += 1
'It took you one hour to '+iif(lernHome = 0, 'complete', 'do a part of')+' your homework.'
gs'stat'
act 'Continue':gt 'stol', 'stolPar'
end
end
if lernHome > 1:
act 'Finish all of your homework (<> hours)':
cla & *clr
'
> src="images/locations/shared/apartment/homework.jpg">'
minut += 60 * lernHome
lern += 1 + lernHome/2
'It took you <> hours to complete your homework.'
lernHome = 0
gs'stat'
act 'Continue':gt 'stol', 'stolPar'
end
end
!{
!! use gs 'boyStat', 'D<>' to recall which dildo is attached?
if strapon = 1:
if dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo > 1:
act 'Check out your strapon harness':
*clr
'Desk
'
'
> src="images/shared/home/bedroom/stol.jpg">'
*nl
if strapnumber = 0:
'Your strapon harness doesn''t have a dildo attached to it.'
elseif strapnumber = 1:
'Your 10cm dildo is attached to your strapon harness.'
elseif strapnumber = 2:
'Your 15cm dildo is attached to your strapon harness.'
elseif strapnumber = 3:
'Your 20cm dildo is attached to your strapon harness.'
elseif strapnumber = 4:
'Your 25cm dildo is attached to your strapon harness.'
elseif strapnumber = 5:
'Your 30cm dildo is attached to your strapon harness.'
elseif strapnumber = 6:
'Your 35cm dildo is attached to your strapon harness.'
elseif strapnumber = 7:
'Your 40cm dildo is attached to your strapon harness.'
end
*nl
if dildo = 1: 'Attach your 10cm long dildo.'
if middildo = 1: 'Attach your 15cm long dildo.'
if largedildo = 1: 'Attach your 20cm long dildo.'
if bigdildo = 1: 'Attach your 25cm long dildo.'
if extradildo = 1: 'Attach your 30cm long dildo.'
if superdildo = 1: 'Attach your 35cm long dildo.'
if maddildo = 1: 'Attach your 40cm long dildo.'
end
else
act 'Check out your strapon harness':
'You don''t have any dildos to attach to your strapon harness'
act 'Put the harness back': gt 'stol', 'stolPar'
end
end
end
}
if siga > 0:
act 'Hide some cigarettes in your drawer':
cla
cigIN = input ("How many cigarettes do you want to hide in your drawer? (Your purse contains <> cigarettes.)")
if cigIN <= 0 or cigIN > siga:
'You can''t put this amount into the drawer.'
else
stolcigarettes += cigIN
siga -= cigIN
end
gt 'stol', 'stolPar'
end
end
if stolcigarettes > 0:
act 'Take some cigarettes from your drawer':
cla
cigOUT = input ("How many cigarettes do you want to put in your purse? (There are <> cigarettes here.)")
if cigOUT <= 0 or cigOUT > stolcigarettes:
'You can''t take this amount from your drawer.'
else
stolcigarettes -= cigOUT
siga += cigOUT
end
gt 'stol', 'stolPar'
end
end
if money > 0:
act 'Hide some money in your drawer':
cla
stolIN = input ("How much money you want to hide in your drawer? (Your purse contains <> ₽.)")
if stolIN <= 0 or stolIN > money:
'You can''t put this amount into the drawer.'
else
stolmoney += stolIN
money -= stolIN
end
gt 'stol', 'stolPar'
end
end
if stolmoney > 0:
act 'Take some money from your drawer':
cla
stolOUT = input ("How much money do you want to put in your purse? (There is <> ₽ here.)")
if stolOUT <= 0 or stolOUT > stolmoney:
'You can''t take this amount from your drawer.'
else
stolmoney -= stolOUT
money += stolOUT
if stolmoney > 0: 'You have <> ₽ hiden in your drawer.'
end
gt 'stol', 'stolPar'
end
end
end
if $ARGS[0] = 'bc':
*clr & cla
'Desk
'
'
> src="images/shared/home/bedroom/stol.jpg">'
*nl
gs 'stat'
gs 'din_bad'
'In the drawer of your desk, you store your birth control.'
if prezik + prezikcount + preziksabo > 0:
if preziktype = 2 or preziksabo > 0:
'You have <> normal, and <> sabotaged condoms.'
elseif preziktype < 2 and preziksabo = 0:
'You have <> condoms.'
end
*nl
else
'You are out of condoms.'
end
if tabletki > 0 and pillsleft[ptype] > 0:
'You have <> unopened packages of birth control pills and <> pills left in your opened package.'
elseif tabletki = 0 and pillsleft[ptype] > 0:
'You have <> birth control pills left.'
elseif tabletki > 0 and pillsleft[ptype] = 0:
'You have <> unopened packages of birth control pills.'
else
'You are out of birth control pills.'
end
act 'Close the drawer':gt $loc, $metka
end
--- stol ---------------------------------