koncepod1.qsrc 4.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138
  1. # koncepod1
  2. if $ARGS[0]='start':
  3. menu_off = 1
  4. end
  5. if $ARGS[0]='prs':
  6. cls
  7. '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/koncepod.jpg" ></center>'
  8. '"Go away please and don''t annoy me."'
  9. act 'Leave':gt'dvor'
  10. end
  11. if $ARGS[0]='krr2x1':
  12. cla
  13. *clr
  14. minut += 5
  15. gs'stat'
  16. '<center><B><font color=maroon>Stairs</font></B></center>'
  17. '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/koncepod3.jpg" ></center>'
  18. if psiho = 0:
  19. 'You stopped at the door and immediately opened it. You have the eerie feeling of the presence of the old man, causing a chill to run down your spine.'
  20. 'You look at your hand and try to focus on it, and get rid of delusions.'
  21. 'Heart pounding, like the beating wings of a bird in a snare, gradually you start to calm down, looking at the usual architecture, the flight of stairs and the general atmosphere of the old building helps, and you begin to calm you down.'
  22. act 'Quickly go inside':gt'koncepod1','krr2x'
  23. end
  24. act 'Outside':pavserhom = 3 & psiha = 1 & gt'dvor'
  25. end
  26. if $ARGS[0]='krr2x':
  27. cla
  28. *clr
  29. killvar '$locclass'
  30. minut += 5
  31. pavserpsiday = daystart
  32. gs 'stat'
  33. '<center><B><font color=maroon>Corridor</font></B></center>'
  34. '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/corridor.jpg" ></center>'
  35. if psiho = 0 and psi1day = 0:dynamic $pavser2
  36. if psiho = 3 and psi1day = 0:dynamic $pavser7
  37. if psi1day = 1:'Continue'
  38. act 'Go to the living room':gt'koncepod1','str2x'
  39. act 'Go to the kitchen':gt'koncepod1','khr2x'
  40. act 'Go to the bathroom':gt'koncepod1','vnr2x'
  41. if psiho > 0:
  42. act '<b><font color = maroon>OUTSIDE</font></b>':
  43. cls
  44. if $clothingworntype ! 'nude':
  45. xgt'dvor'
  46. elseif $clothingworntype = 'nude':
  47. '<b><font color = red>You need to get dressed.</font></b>'
  48. xgt $curloc
  49. end
  50. end
  51. end
  52. end
  53. if $ARGS[0]='str2x':
  54. cla
  55. *clr
  56. minut += 5
  57. $locclass = 'livingr'
  58. gs'stat'
  59. '<center><B><font color=maroon>Living Room</font></B></center>'
  60. '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/hall.jpg" ></center>'
  61. if psiho = 0 and psi1day = 0:dynamic $pavser
  62. if psiho >= 1:
  63. act 'Go to the kitchen':gt'koncepod1','khr2x'
  64. act 'Go to the bedroom':gt'koncepod1','bdr2x'
  65. act 'Go to the hall':gt'koncepod1','krr2x'
  66. end
  67. end
  68. if $ARGS[0]='khr2x':
  69. cla
  70. *clr
  71. minut += 5
  72. $locclass = 'kitr'
  73. gs'stat'
  74. '<center><B><font color=maroon>Kitchen</font></B></center>'
  75. '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/kitchen.jpg" ></center>'
  76. if psiho = 2 and psihb = 0 and psihc = 0 and psi1day = 0:dynamic $pavser5
  77. if psiho = 2 and psihb = 1 and psihc = 1 and psi1day = 0:dynamic $pavser6
  78. act 'Go to the living room':gt'koncepod1','str2x'
  79. act 'Go to the hall':gt'koncepod1','krr2x'
  80. end
  81. if $ARGS[0] = 'vnr2x':
  82. $metkaM = 'vnr2x'
  83. $locM = 'koncepod1'
  84. $metka = 'vnr2x'
  85. $loc = 'koncepod1'
  86. cls
  87. minut += 5
  88. gs'stat'
  89. '<center><B><font color=maroon>Bathroom</font></B></center>'
  90. '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/bathroom.jpg" ></center>'
  91. 'Above the washbasin hangs an <a href="exec:GT ''mirror'',''start''">oval mirror</a>.'
  92. if psiho = 2 and psihb = 1 and psihc = 0 and psi1day = 0:dynamic $pavser4
  93. act 'Go to the hall':gt'koncepod1','krr2x'
  94. dynamic $tampon
  95. dynamic $quickwash
  96. dynamic $basin
  97. dynamic $removepan
  98. end
  99. if $ARGS[0]='bdr2x':
  100. cla
  101. *clr
  102. minut += 5
  103. $location_type = 'private'
  104. $locclass = 'bedr'
  105. gs'stat'
  106. '<center><B><font color=maroon>Bedroom</font></B></center>'
  107. '<center><img <<$set_imgh>> src="images/locations/oldtown/vacanthouse/bedroom.jpg" ></center>'
  108. if psiho = 1 and psi1day = 0:dynamic $pavser3
  109. act 'Go to the hall':gt'koncepod1','krr2x'
  110. end
  111. --- koncepod1 ---------------------------------