# 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' killvar '$stol_loc_temp' if strapon = 1: if dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo > 0: act 'Check out your strapon harness': $stol_loc_temp = 'start' & gt 'stol', 'strapon' else act 'Check out your strapon harness': '
You don''t have any dildos to attach to your strapon harness' 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', '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(grupTipe = 4 and traits['nerd_status'] = 0, 'hard', iif(traits['nerd_status'] > 0, 'easy', 'medium')) if traits['nerd_status'] = 2: will_cost = will_cost / 2 if lernHome > 0 and (will_cost <= pcs_willpwr or traits['nerd_status'] = 3): '
You have to your homework. Finishing everything will take <> hours.' act 'Do your homework (1:00'+iif(traits['nerd_status'] = 3, '', ' and <> Willpower')+')': cla & *clr '
> src="images/locations/shared/apartment/homework.jpg">
' minut += 60 pcs_mood += 5 * traits['nerd_status'] lernHome -= 1 lern += 1 gs 'willpower', 'misc', 'self', iif(grupTipe = 4, 'hard', iif(traits['nerd_status'] > 0, 'easy', 'medium')) if traits['nerd_status'] = 2: will_cost = will_cost / 2 if traits['nerd_status'] < 3: 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 or traits['nerd_status'] = 3): act 'Finish all of your homework (<>:00'+iif(traits['nerd_status'] = 3, '', ' and <> Willpower')+')': cla & *clr '
> src="images/locations/shared/apartment/homework.jpg">
' 'It took you <> hours to complete your homework.' minut += 60 * lernHome pcs_mood += 5 * traits['nerd_status'] *lernHome lern += 1 + lernHome/2 lernHome = 0 if traits['nerd_status'] < 3: gs 'willpower', 'pay', 'self' 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 killvar '$stol_loc_temp' if strapon = 1: if dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo > 0: act 'Check out your strapon harness': $stol_loc_temp = 'stolPar' & gt 'stol', 'strapon' else act 'Check out your strapon harness': '
You don''t have any dildos to attach to your strapon harness' 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] = 'strapon': !! use gs 'boyStat', 'D<>' to recall which dildo is attached *clr '

Desk

' '
> src="images/shared/home/bedroom/stol.jpg">
' *nl if strapnumber = 0: 'Your strapon harness doesn''t have a dildo attached to it.' *nl if dildo = 1: iif(strapnumber = 1, 'Your 10cm dildo is attached to your strapon harness.', 'Attach your 10cm long dildo.') if middildo = 1: iif(strapnumber = 2, 'Your 15cm dildo is attached to your strapon harness.','Attach your 15cm long dildo.') if largedildo = 1: iif(strapnumber = 3, 'Your 20cm dildo is attached to your strapon harness.','Attach your 20cm long dildo.') if bigdildo = 1: iif(strapnumber = 4, 'Your 25cm dildo is attached to your strapon harness.','Attach your 25cm long dildo.') if extradildo = 1: iif(strapnumber = 5, 'Your 30cm dildo is attached to your strapon harness.','Attach your 30cm long dildo.') if superdildo = 1: iif(strapnumber = 6, 'Your 35cm dildo is attached to your strapon harness.','Attach your 35cm long dildo.') if maddildo = 1: iif(strapnumber = 7, 'Your 40cm dildo is attached to your strapon harness.','Attach your 40cm long dildo.') act 'Back': gt 'stol', $stol_loc_temp 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 if morning_after_pill > 0: if morning_after_pill = 1: 'You have one morning after pill.' else 'You have <> morning after pills.' end else 'You have no morning after pills.' end act 'Close the drawer':gt $loc, $metka end --- stol ---------------------------------