1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798 |
- # bedrPar
- $metkaM = $ARGS[0]
- $locM = $CURLOC
- $metka = $ARGS[0]
- $loc = $CURLOC
- clr
- minut += 1
- gs 'stat'
- fcolor = rgb(0, 0, 0)
- bcolor = rgb(255, 255, 255)
- lcolor = rgb(106, 90, 205)
- '<center><b><font color="maroon">Your bedroom</font></b></center>'
- ! WD: Correct Image path ~ "images/qwest/alter/<<$loc>>.jpg"
- '<center><img src="images/qwest/alter/bedrPar.jpg"></center>'
- 'Small room in which hardly squeezed <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">cabinet</a>, your <a href="exec:gt ''bedPar''">bed</a>, <a href="exec:gt ''stolPar''">desk</a> bed and sisters.'
- if komp = 1:'On the table is your <a href="exec:gorodokKomp = 1 & GT ''Komp'',''start''">laptop</a>.'
- gorodokKomp = 0
- if sisboyQW > 10:sisboyQW = 10
- gs 'family'
- ! if tanga = 0:tanga = 1
- act 'Leave the room':gt 'korrPar'
- if rexCarCount >= 9 and sisterHere = 1 and hour < 3 and rexSmsDay ! daystart and smsForRex < 13:
- act 'Take your sisters phone':gt'reks','sms'
- end
- ! WD: add Underwear change
- if tanga = 0:
- act 'Wear Underwear':
- cla
- tanga = 1
- gt $curloc
- end
- elseif tanga = 1:
- act 'Remove Underwear':
- cla
- tanga = 0
- gt $curloc
- end
- end
- if student > 0 and kursovik < 100:
- act 'Write coursework (1:00)':
- cla
- *clr
- minut += 60
- kursovik += rand(intel / 20, intel / 10)
- if kursovik > 100:kursovik = 100
- manna -= 10
- '<center><img src="images/etogame/study.jpg"></center>'
- 'You sat on the course work and prepared her for <<kursovik>> percent.'
- act 'Leave':gt $curloc
- end
- end
- if horny >= 50 and sisterHere = 0:
- act 'Masturbate':gt 'selfplay'
- end
- if pornMagazine > 0:'Under the mattress you have hidden pornozhurnal.'
- if sisterHere = 0 and pornMagazine > 0:dynamic $d_read_porn
- dynamic $d_read_book
- if tovarL > 0:'You have kept <<tovarL>> One unit of small goods. The maximum you can keep in your room 30 One unit of product.'
- if card > 0:
- act 'Take a deck of cards':gt 'card'
- end
- if dur > 0:'You have hidden <<dur>> doses pale lady'
- if dur > 0 and narkday ! day:
- act 'Nyuhnut pale lady 5 min':
- cla
- *clr
- minut += 5
- narkday = day
- health = vital * 10 + stren * 5
- willpower = intel * 5 + will * 5
- manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
- horny = 100
- nark += 10
- dur -= 1
- '<center><img src="images/pic/dur.jpg"></center>'
- 'You otsypali dose of powder and its nyuhnuli, then you feel just fine.'
- act 'Leave':gt $curloc
- end
- end
- --- bedrPar ---------------------------------
|