# Komp
if $ARGS[0] = 'start':
cla
clr
elektro += 5
gs 'stat'
'
'
'With the computer happily welcomes you start window.'
act 'Play Patience (0:15)':gt 'Komp', 'pasians'
if GameCD > 0:act 'Play Disopl':gt 'KGDstart'
if GameCD2 > 0:act 'Play SunDead':gt 'KGZstart'
if GameCD3 > 0:act 'Play Albido':gt 'FSstart'
!!act 'SunReview of the Dead':gt 'KGZstart'
if internet > 0:
internet = internetM / 60
'You''ve got <> hours of Internet'
act 'Browser':gt 'Komp', 'brows'
end
if karta >= 10:
'You can pay online through your bank account. 1 hour internet costs 10 rubles. On account of <>rubles.'
act 'Pay online bank account':
cla
intinp = input ("How much money to put on the internet? (h = 10 rubles)")
if intinp <= 0 or intinp * 10 > karta:
'Invalid amount.'
elseif intinp * 10 <= karta:
inttime = intinp * 10
karta -= inttime
internetM += intinp * 60
internet = internetM / 60
'You paid <> hours of Internet, you now have <> hours of the Internet. Your account was removed <> rubles.'
end
act 'Get out of the payment system':gt 'Komp', 'start'
end
end
act 'Shut down the computer':
cla
gt 'Komp', 'fin'
end
end
if $ARGS[0] = 'brows':
cla
clr
*clr
gs 'stat'
'
'
'You entered into a search engine.'
act 'Apartment repair site (0:15)':gt 'Komp', 'remont'
if housr = 1 and husband = 0:act 'Rent your apartment':gt 'Komp', 'sale'
act 'Porno (0:15)':gt 'Komp', 'porno'
act 'Singles (0:15)':gt 'Komp', 'znak'
if hour < 20 and hour > 7:act 'Jobs.su':gt 'Komp', 'rabota'
act 'Cable TV services (0:15)':gt 'Komp', 'kabtv'
act 'Online game':gt 'KGstart'
if shantfoto > 0:act 'Search photos heroine in "In the ass."':gt 'Komp', 'foto'
act 'Exit the browser':gt 'Komp', 'start'
end
if $ARGS[0] = 'sale':
cla
clr
*clr
minut += 2
gs 'stat'
'
'
'You are logged in to the site for free ads.'
if obkvsdam = 0 and housrA = 1:
act 'Rent out your apartment':obkvsdam = 1 & gt 'Komp', 'sale'
elseif obkvsdam > 0:
act 'Check responses to your ad':
cla
if obkvsdam = 1:
'No one has responded to your apartment ad'
elseif obkvsdam > 1:
if obkvsdam = 2:predsumm = 7000
if obkvsdam = 2:predsumm = 8000
if obkvsdam = 2:predsumm = 9000
if obkvsdam = 2:predsumm = 10000
'Want to stay in your apartment for a month (<> rubles).'
act 'Rent':
sdaday = day
sdamonth = month + 1
housr = 0
money += predsumm
gt 'Komp', 'start'
end
end
act 'Leave':gt 'Komp', 'start'
end
end
act 'Leave':gt 'Komp', 'start'
end
if $ARGS[0] = 'remont':
cla
clr
*clr
minut += 15
internetM -= 60
elektro += 3
gs 'stat'
'
'
'You are logged in apartment repairs.'
if housr = 1:
if rembedr = 0:
act 'Refurbished bedrooms (50,000 rubles)':
if money >= 50000:
cla
rembedr = 1
money -= 50000
'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
else
cla
'Unfortunately, you will not have enough money.'
end
act 'Leave':gt 'Komp', 'remont'
end
end
if remsitr = 0:
act 'Renovate hall (50,000 rubles)':
if money >= 50000:
cla
remsitr = 1
money -= 50000
'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
else
cla
'Unfortunately, you will not have enough money.'
end
act 'Leave':gt 'Komp', 'remont'
end
end
if remkorr = 0:
act 'Repair corridor (50,000 rubles)':
if money >= 50000:
cla
remkorr = 1
money -= 50000
'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
else
cla
'Unfortunately, you will not have enough money.'
end
act 'Leave':gt 'Komp', 'remont'
end
end
if remvanr = 0:
act 'Renovate the bathroom (50,000 rubles)':
if money >= 50000:
cla
remvanr = 1
money -= 50000
'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
else
cla
'Unfortunately, you will not have enough money.'
end
act 'Leave':gt 'Komp', 'remont'
end
end
if remkuhr = 0:
act 'Renovate a kitchen (50,000 rubles)':
if money >= 50000:
cla
remkuhr = 1
money -= 50000
'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
else
cla
'Unfortunately, you will not have enough money.'
end
act 'Leave':gt 'Komp', 'remont'
end
end
end
act 'Leave':gt 'Komp', 'start'
end
if $ARGS[0] = 'porno':
cla
clr
*clr
minut += 15
internetM -= 60
manna += 5
elektro += 3
willpower += rand(5, 10)
manna += rand(10, 50)
horny += 5
gs 'stat'
'
'
'You went to a porn site.'
$pornomastr = {
cls
minut += 15
sweat += 1
horny += rand(10, 25)
if divanmastr = 0:divanmastr = 1 & mastr += 1
gs 'stat'
'
'
'You get comfortable in front of the computer with one hand and began to fondle her breasts, a finger of the other hand you started rubbing and stroking a small bump between his legs that responded to the touch of pleasant languor covering your entire body.'
if horny >= 100:
orgasm += 1
horny = 0
'Suddenly a nice cramp brought your body and you covered powerful orgasm from which you groan.'
end
act 'Finish':divanmastr = 0 & gt 'Komp', 'porno'
if horny >= 50:act 'Proceed':dynamic $pornomastr
}
act 'Watch porn':
cla
'
'
gt 'Komp', 'porno'
end
if horny >= 50:act 'Masturbate (0:15)':dynamic $pornomastr
act 'Leave':gt 'Komp', 'start'
end
if $ARGS[0] = 'pasians':
cla
clr
*clr
minut += 15
manna += 5
elektro += 3
willpower += rand(5, 10)
manna += rand(10, 50)
gs 'stat'
'
'
'You entertained for an hour unfolding of solitaire on the computer.'
act 'Lay another 15 minutes':gt 'Komp', 'pasians'
act 'Close Solitaire':gt 'Komp', 'start'
end
if $ARGS[0] = 'znak':
cla
clr
*clr
minut += 15
internetM -= 60
manna += 5
elektro += 3
gs 'stat'
'
'
'You are logged on to a dating site.'
'Selection of boys is only possible if there is no boyfriend.'
if bfA <= 0:
act 'To pick up a guy with a gentle disposition':
cla
gs 'boy'
gs 'boyfrend', 'start'
stopboy = 0
harakBoyA = 0
'You wrote a guy named <<$boyA>>and talked with him and left him number hoping that he will call you.'
act 'Leave':gt 'Komp', 'start'
end
act 'To pick up a guy with a common character':
cla
gs 'boy'
gs 'boyfrend', 'start'
stopboy = 0
harakBoyA = 1
'You wrote a guy named <<$boyA>>and talked with him and left him number hoping that he will call you.'
act 'Leave':gt 'Komp', 'start'
end
act 'To pick up a guy with a strong character':
cla
gs 'boy'
gs 'boyfrend', 'start'
stopboy = 0
harakBoyA = 2
'You wrote a guy named <<$boyA>>and talked with him and left him number hoping that he will call you.'
act 'Leave':gt 'Komp', 'start'
end
end
if gor_dorm = 8:
act 'Pick of suitors for Eugenia':
cla
gor_dorm = 9
'You shoveled dozens of profiles, Before choosing a suitable in all respects candidates and sent them a letter with a proposal to meet.'
'Now we have to wait her turn, what_is-anything with them or not.'
act 'Leave':gt 'Komp', 'start'
end
end
act 'Leave':gt 'Komp', 'start'
end
if $ARGS[0] = 'kabtv':
cla
clr
*clr
minut += 15
internetM -= 60
elektro += 3
gs 'stat'
'
'
'You are logged in to the website provider of cable TV.'
if kabel = 1:
'Do you have a cable TV (subscription fee of 300 rubles per month lifted the 25th day of)'
act 'Abandon cable TV':
cla
kabel = 1
money -= 300
'You have disconnected cable channels, paying the current month'
gt 'Komp', 'kabtv'
end
elseif kabel = 0 and TV = 1:
'You do not have a cable TV'
act 'Connect cable TV':
cla
'Unfortunately for viewing cable television requires a more modern TV'
gt 'Komp', 'kabtv'
end
elseif kabel = 0 and TV >= 2:
'You do not have a cable TV'
act 'Connect Cable TV (300 rubles per month)':
cla
kabel = 1
'You hooked up cable TV services'
gt 'Komp', 'kabtv'
end
end
act 'Leave':gt 'Komp', 'start'
end
if $ARGS[0] = 'foto':
cla
*clr
internetM -= 60
elektro += 3
gs 'stat'
'
'
'You are logged in to the social network "in the ass."'
if shantfoto > 0:
act 'Search':
cla
minut += 60
fotsearchrand = rand(0, 10)
if fotsearchrand <= 7:
'You did not find anyone, maybe better luck later.'
act 'Finish':gt 'Komp', 'foto'
end
if fotsearchrand > 7:
shantfoto -= 1
'You found the heroine a photo shoot'
gerofotorand = rand(0, 100)
if gerofotorand > 30:
'Judging by the photos on her page this poor girl and take her with nothing.'
act 'Finish':gt 'Komp', 'foto'
end
if gerofotorand >= 5 and gerofotorand <= 30:
shantsr += 1
'Judging by the photos on her page is non-existent girl from the middle classes. You send her photo and asked to be transferred to your account 5000.'
act 'Finish':gt 'Komp', 'foto'
end
if gerofotorand < 5:
shantbog += 1
'Judging by the photos on her page is very secured lady. You send her photo and asked to be transferred to your account 30000.'
act 'Finish':gt 'Komp', 'foto'
end
end
end
end
act 'Browser':gt 'Komp', 'brows'
end
if $ARGS[0] = 'rabota':
cla
*clr
minut += 60
internetM -= 60
komprabota = rand(0, 10)
gs 'stat'
'
'
if komprabota = 0:
'You found an ad:"Wanted girl model looks for advertising underwear, cash on filming zavershinii 2000 rubles."'
if vnesh < 30:
'But you are under this description does not fit'
elseif vnesh >= 30:
act 'Go at':gt 'qjob', 'var1'
end
if hour < 20 and hour > 7:act 'Search more':gt 'Komp', 'rabota'
act 'Finish':gt 'Komp', 'brows'
elseif komprabota = 1:
'You found an ad:"Wanted girl model looks for advertising underwear, cash on filming zavershinii 2000 rubles."'
if vnesh < 30:'But you are under this description does not fit'
if vnesh >= 30:
act 'Go at':gt 'qjob', 'var2'
end
if hour < 20 and hour > 7:act 'Search more':gt 'Komp', 'rabota'
act 'Finish':gt 'Komp', 'brows'
elseif komprabota > 1 and komprabota < 5:
'You found an ad:"The artist is required naturschitsa, simpotichnoy appearance, cash 1, 000 rubles."'
if vnesh < 15:
'But you are under this description does not fit'
elseif vnesh >= 15:
act 'Go at':gt 'qjob', 'var3'
end
if hour < 20 and hour > 7:act 'Search more':gt 'Komp', 'rabota'
act 'Finish':gt 'Komp', 'brows'
elseif komprabota > 4:
'You did not find anything suitable.'
if hour < 20 and hour > 7:act 'Search more':gt 'Komp', 'rabota'
act 'Finish':gt 'Komp', 'brows'
end
end
if $ARGS[0] = 'fin':gt $locM, $metkaM
--- Komp ---------------------------------