123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113 |
- # bedrPar
- $metkaM = $ARGS[0]
- $locM = $CURLOC
- $metka = $ARGS[0]
- $loc = $CURLOC
- '<center><B><font color = maroon>Your bedroom</font></B></center>'
- '<center><img src="images/qwest/alter/<<$loc>>.jpg "></center>'
- clr
- set minut += 1
- gs 'stat'
- fcolor = rgb(0,0,0)
- bcolor = rgb(255,255,255)
- LCOLOR = rgb(106,90,205)
- 'Small room in which hardly squeezed <a href="exec:GT ''loker'',''start''">cabinet</a>, your <a href="exec:GT ''bedPar''">bed</a>, <a href="exec:GT ''stolPar''">desk</a> bed and sisters.'
- if tanga = 0:
- tanga = 1
- end
- if AutoEnema = 1 and AEnema = 1:
- set minut += 5
- set klismaday = day
- set klismaday1= 1
- set AEnema = 0
- 'You put yourself an enema and clean intestines, now your ass ready for anal sex.'
- end
- gs 'family'
- act 'Leave the room':
- gt 'korrPar'
- end
- if student > 0 and kursovik < 100:
- act 'Write coursework (1:00)':
- cla
- *clr
- set minut += 60
- set kursovik += RAND(intel / 20, intel / 10)
- if kursovik > 100:
- set kursovik = 100
- end
- set manna -= 10
- '<center><img src="images/etogame/study.jpg"></center>'
- 'You sat on the course work and prepared her for <<kursovik>> percent.'
- act 'Exit':
- gt $curloc
- end
- end
- end
- if horny >= 50 and sisterHere = 0:
- act 'Masturbate':
- gt 'selfplay'
- end
- end
- if pornMagazine > 0:
- 'Under the mattress you have hidden pornozhurnal.'
- end
- if sisterHere = 0 and pornMagazine > 0:
- dynamic $d_read_porn
- end
- 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.'
- end
- if card > 0:
- act 'Take a deck of cards':
- gt'card'
- end
- end
- if dur > 0:
- 'You have hidden <<dur>> doses pale lady'
- end
- if dur > 0 and narkday ! day:
- act 'Nyuhnut pale lady 5 min':
- cla
- *clr
- set minut += 5
- set narkday = day
- set health = vital * 10 + stren * 5
- set willpower = intel * 5 + will * 5
- set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
- set horny = 100
- set nark += 10
- set dur -= 1
- '<center><img src="images/pic/dur.jpg" ></center>'
- 'You otsypali dose of powder and its nyuhnuli, then you feel just fine.'
- act 'Go_Out':
- gt $curloc
- end
- end
- end
- --- bedrPar ---------------------------------
|