154_bedrPar 1.9 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374
  1. # bedrPar
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. '<center><b><font color="maroon">Your bedroom</font></b></center>'
  7. '<center><img src="images/qwest/alter/<<$loc>>.jpg"></center>'
  8. clr
  9. set minut += 1
  10. gs 'stat'
  11. fcolor="rgb"(0, 0, 0)
  12. bcolor="rgb"(255, 255, 255)
  13. lcolor="rgb"(106, 90, 205)
  14. '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.'
  15. gs 'family'
  16. act 'Leave the room':gt 'korrPar'
  17. if student > 0 and kursovik < 100:
  18. act 'Write coursework (1:00)':
  19. cla
  20. *clr
  21. set minut += 60
  22. set kursovik += rand(intel/20, intel/10)
  23. if kursovik > 100:set kursovik = 100
  24. set manna -= 10
  25. '<center><img src="images/etogame/study.jpg"></center>'
  26. 'You sat on the course work and prepared her for <<kursovik>> percent.'
  27. act 'Exit':gt $curloc
  28. end
  29. end
  30. if horny >= 50 and sisterHere = 0:
  31. act 'Masturbate':gt 'selfplay'
  32. end
  33. if pornMagazine > 0:'Under the mattress you have hidden pornozhurnal.'
  34. if sisterHere = 0 and pornMagazine > 0:dynamic $d_read_porn
  35. dynamic $d_read_book
  36. 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.'
  37. if card > 0:
  38. act 'Take a deck of cards':gt 'card'
  39. end
  40. if dur > 0:
  41. 'You have hidden <<dur>> doses pale lady'
  42. end
  43. if dur > 0 and narkday ! day:
  44. act 'Nyuhnut pale lady 5 min':
  45. cla
  46. *clr
  47. set minut += 5
  48. set narkday = day
  49. set health = vital * 10 + stren * 5
  50. set willpower = intel * 5 + will * 5
  51. set manna = intel * magik + magik * 100 + vital * 10 + rikudo
  52. set horny = 100
  53. set nark += 10
  54. set dur -= 1
  55. '<center><img src="images/pic/dur.jpg"></center>'
  56. 'You otsypali dose of powder and its nyuhnuli, then you feel just fine.'
  57. act 'Leave':gt $curloc
  58. end
  59. end
  60. --- bedrPar ---------------------------------