# 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' gs 'stol', 'strapon' 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: <>.' gs 'willpower', 'misc', 'self', iif((pcs_grades < 50 or grupTipe = 3) and grupTipe ! 4, 'easy', iif(pcs_grades < 90 and grupTipe ! 4, 'medium', 'hard')) if lernHome > 0 and will_cost <= pcs_willpwr: '
You have to your homework. Finishing everything will take <> hours.' act 'Do your homework (1:00 and <> Willpower)': cla & *clr '
> src="images/locations/shared/apartment/homework.jpg">
' minut += 60 lernHome -= 1 lern += 1 gs 'willpower', 'misc', 'self', iif((pcs_grades < 50 or grupTipe = 3) and grupTipe ! 4, 'easy', iif(pcs_grades < 90 and grupTipe ! 4, 'medium', 'hard')) gs 'willpower', 'pay', 'self' gs'stat' 'It took you one hour to '+iif(lernHome = 0, 'complete', 'do a part of')+' your homework.' act 'Continue':gt 'stol', 'stolPar' end elseif lernHome > 0 and will_cost > pcs_willpwr: act 'Do your homework (<> Willpower)': '
You don''t have enough willpower to use this action.' end will_cost = will_cost * lernHome if lernHome > 1 and will_cost <= pcs_willpwr: act 'Finish all of your homework (<>:00 and <> Willpower)': cla & *clr '
> src="images/locations/shared/apartment/homework.jpg">
' 'It took you <> hours to complete your homework.' minut += 60 * lernHome lern += 1 + lernHome/2 lernHome = 0 gs 'willpower', 'misc', 'self', iif((pcs_grades < 50 or grupTipe = 3) and grupTipe ! 4, 'easy', iif(pcs_grades < 90 and grupTipe ! 4, 'medium', 'hard')) will_cost = will_cost * lernHome gs'stat' act 'Continue':gt 'stol', 'stolPar' end elseif lernHome > 1 and will_cost > pcs_willpwr: act 'Finish all of your homework (<> Willpower)': '
You don''t have enough willpower to use this action.' end gs 'stol', 'strapon' 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] = 'strapon': !! use gs 'boyStat', 'D<>' to recall which dildo is attached? if strapon = 1: if dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo > 0: 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' 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 ---------------------------------