bedrPar 2.1 KB

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