157_bedrPar 2.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113
  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. if tanga = 0:
  16. tanga = 1
  17. end
  18. if AutoEnema = 1 and AEnema = 1:
  19. set minut += 5
  20. set klismaday = day
  21. set klismaday1= 1
  22. set AEnema = 0
  23. 'You put yourself an enema and clean intestines, now your ass ready for anal sex.'
  24. end
  25. gs 'family'
  26. act 'Leave the room':
  27. gt 'korrPar'
  28. end
  29. if student > 0 and kursovik < 100:
  30. act 'Write coursework (1:00)':
  31. cla
  32. *clr
  33. set minut += 60
  34. set kursovik += RAND(intel / 20, intel / 10)
  35. if kursovik > 100:
  36. set kursovik = 100
  37. end
  38. set manna -= 10
  39. '<center><img src="images/etogame/study.jpg"></center>'
  40. 'You sat on the course work and prepared her for <<kursovik>> percent.'
  41. act 'Exit':
  42. gt $curloc
  43. end
  44. end
  45. end
  46. if horny >= 50 and sisterHere = 0:
  47. act 'Masturbate':
  48. gt 'selfplay'
  49. end
  50. end
  51. if pornMagazine > 0:
  52. 'Under the mattress you have hidden pornozhurnal.'
  53. end
  54. if sisterHere = 0 and pornMagazine > 0:
  55. dynamic $d_read_porn
  56. end
  57. dynamic $d_read_book
  58. if tovarL > 0:
  59. 'You have kept <<tovarL>> One unit of small goods. The maximum you can keep in your room 30 One unit of product.'
  60. end
  61. if card > 0:
  62. act 'Take a deck of cards':
  63. gt'card'
  64. end
  65. end
  66. if dur > 0:
  67. 'You have hidden <<dur>> doses pale lady'
  68. end
  69. if dur > 0 and narkday ! day:
  70. act 'Nyuhnut pale lady 5 min':
  71. cla
  72. *clr
  73. set minut += 5
  74. set narkday = day
  75. set health = vital * 10 + stren * 5
  76. set willpower = intel * 5 + will * 5
  77. set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
  78. set horny = 100
  79. set nark += 10
  80. set dur -= 1
  81. '<center><img src="images/pic/dur.jpg" ></center>'
  82. 'You otsypali dose of powder and its nyuhnuli, then you feel just fine.'
  83. act 'Go_Out':
  84. gt $curloc
  85. end
  86. end
  87. end
  88. --- bedrPar ---------------------------------