1
0

koncepod1.qsrc 3.9 KB

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