161_korrPar 2.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100
  1. # korrPar
  2. ACT 'Go to your room':
  3. gt 'bedrPar'
  4. END
  5. ACT 'Go to my parents'' room':
  6. gt 'bedrPar2'
  7. END
  8. ACT 'Going to the living room':
  9. gt 'sitrPar'
  10. END
  11. ACT 'Go to the bathroom':
  12. gt 'vanrPar'
  13. END
  14. ACT 'Go to the kitchen':
  15. gt 'kuhrPar'
  16. END
  17. ACT '<b>Go to the street</b>':
  18. if nude = 0:
  19. gt 'gorodok'
  20. else
  21. msg 'You are not dressed'
  22. gt $curloc
  23. end
  24. END
  25. $metkaM = $ARGS[0]
  26. $locM = $CURLOC
  27. $metka = $ARGS[0]
  28. $loc = $CURLOC
  29. set popolaini = 0
  30. set saunaYouRoom = 0
  31. set boycherdaksex = 0
  32. '<center><B><font color = maroon>corridor</font></B></center>'
  33. '<center><img src="images\qwest\alter\korrPar.jpg"></center>'
  34. clr
  35. frost = 0
  36. set minut += 1
  37. gs 'stat'
  38. bonusZ = 0
  39. fcolor = rgb(0,0,0)
  40. bcolor = rgb(255,255,255)
  41. LCOLOR = rgb(106,90,205)
  42. 'On the wall near the front door hanging <a href="exec:GT ''mirror'',''start''">mirror</a>.'
  43. if palto > 0: 'Hanging on the hook <<$palto>>'
  44. gs 'family'
  45. if hour >= 16 and hour <= 20:
  46. if schoolprogul > 2 and SchoolAtestat = 0:
  47. cls
  48. gs 'stat'
  49. '<center><B><font color = maroon>mom</font></B></center>'
  50. '<center><img src="images\qwest\alter\mother.jpg"></center>'
  51. if schoolPredupr = 3:
  52. SchoolBlock = 1
  53. ParHomeBlock = 1
  54. schoolprogul = 0
  55. 'In the corridor you vsrechaet mother, her eyes thundered. "Doprygat? Thee out of high school. All live the way you want, I am no longer a mother!" Mother gathered your things in a bag, put the bag in your hands and thrown by the scruff of the apartment.'
  56. act 'Leave': gt 'gorodok'
  57. exit
  58. end
  59. if schoolPredupr = 1:
  60. schoolPredupr = 2
  61. schoolprogul = 0
  62. Suspeh -= 40
  63. 'In the corridor you vsrechaet mother, her eyes thundered. "That was the school. Again You absenteeism. You already want to exclude from school, I was literally on his knees begging the directors can not exclude you and give you one last chance to reform. More because of you I will not be humiliated and remember. Next time you Departure from school! And if you fly out of school, I will personally kick him out of the house if you do not understand a normal relationship, then get out, no one does not keep you here! "Mother angrily left the room.'
  64. end
  65. if schoolPredupr = 0:
  66. schoolPredupr = 1
  67. mother = 0
  68. schoolprogul = 0
  69. Suspeh -= 20
  70. 'In the corridor you vsrechaet mother, her eyes thundered. "That was the school. You solid absenteeism. For the first time you have forgiven, but the next you just kicked. What are you doing, balbeska?" Mother angrily left the room.'
  71. end
  72. act 'move away': gt $curloc
  73. exit
  74. end
  75. end
  76. if hour >= 15 and hour < 20:
  77. if Gcall = 0:
  78. numnpcboy = 0
  79. :markboyfrendcall
  80. numnpcboy += 1
  81. if otnBoyFrend[numnpcboy] >= 20 and boyinday[numnpcboy]!day:
  82. Gcall = 1
  83. jump 'markboyfrendcall2'
  84. end
  85. if numboyFrend > numnpcboy: jump 'markboyfrendcall'
  86. end
  87. else
  88. if Gcall > 0: Gcall = 0
  89. end
  90. :markboyfrendcall2
  91. if Gcall > 0: 'In the hallway rings <a href="exec: GT ''gtelefon''">phone</a>.'
  92. if motherWorry = 1: gt 'mother'
  93. --- korrPar ---------------------------------