# 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 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.' end if steroid_have > 0: 'Take steroids. Uses left: <>.' end if aphrodisiac_have > 0: 'Chew aphrodisiac gum. Uses left: <>.' end if lernHome > 0: act 'Do your homework': cla & *clr '
> src="images/locations/shared/apartment/homework.jpg">
' if lernHome <= 2: minut += 60*lernHome lernHome = 0 lern += 1 'It takes you one hour to complete your homework.' gs'stat' elseif lernHome > 2: minut += 60*2 lernHome = 0 'It takes you two hours to complete your homework.' gs'stat' end act 'Get up from the table':gt $loc, $metka 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 ---------------------------------