1
0

koncepod1 3.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148
  1. # koncepod1
  2. if $ARGS[0]='start':
  3. end
  4. if $ARGS[0]='prs':
  5. cls
  6. '<center><img src="images/pic/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. set minut = minut + 1
  14. gs'stat'
  15. '<center><B><font color=maroon>Stairs</font></B></center>'
  16. '<center><img src="images/pic/koncepod3.jpg" ></center>'
  17. if psiho = 0:
  18. 'You stopped at the door and immediately opened it. Your hand has a eerie feeling of the presence of the old mans hands on it. Causing a chill to run down your spine.'
  19. 'You looked at your hand and try to focus on it, to get rid of delusions.'
  20. 'Heart pounding, like the beating wings of a bird in a snare, gradually you started to calm down. Looking at the usual architecture, the flight of stairs and the general atmosphere of the old building, began 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. set minut = minut + 1
  29. pavserpsiday = day
  30. '<center><B><font color=maroon>Corridor</font></B></center>'
  31. '<center><img src="images/lmps/ur1031.jpg" ></center>'
  32. if psiho = 0 and psi1day = 0:dynamic $pavser2
  33. if psiho = 3 and psi1day = 0:dynamic $pavser7
  34. if psi1day = 1:'Continue'
  35. act 'Go to the Hall':gt'koncepod1','str2x'
  36. act 'Go to the kitchen':gt'koncepod1','khr2x'
  37. act 'Go to the bathroom':gt'koncepod1','vnr2x'
  38. if psiho > 0:
  39. act '<b><font color = maroon>OUTSIDE</font></b>':
  40. cls
  41. if $clothingworntype ! 'nude':
  42. xgt'dvor'
  43. elseif $clothingworntype = 'nude':
  44. '<b><font color = red>You need to get dressed.</font></b>'
  45. xgt $curloc
  46. end
  47. end
  48. end
  49. end
  50. if $ARGS[0]='str2x':
  51. cla
  52. *clr
  53. set minut = minut + 5
  54. gs'stat'
  55. '<center><B><font color=maroon>Hall</font></B></center>'
  56. '<center><img src="images/lmps/ur1036.jpg" ></center>'
  57. if psiho = 0 and psi1day = 0:dynamic $pavser
  58. if psiho >= 1:
  59. act 'Go to the kitchen':gt'koncepod1','khr2x'
  60. act 'Go to the bedroom':gt'koncepod1','bdr2x'
  61. act 'Corridor':gt'koncepod1','krr2x'
  62. end
  63. end
  64. if $ARGS[0]='khr2x':
  65. cla
  66. *clr
  67. set minut = minut + 5
  68. gs'stat'
  69. '<center><B><font color=maroon>Kitchen</font></B></center>'
  70. '<center><img src="images/lmps/ur1033.jpg" ></center>'
  71. if psiho = 2 and psihb = 0 and psihc = 0 and psi1day = 0:dynamic $pavser5
  72. if psiho = 2 and psihb = 1 and psihc = 1 and psi1day = 0:dynamic $pavser6
  73. act 'Go to the Hall':gt'koncepod1','str2x'
  74. act 'Corridor':gt'koncepod1','krr2x'
  75. end
  76. if $ARGS[0] = 'vnr2x':
  77. $metkaM = 'vnr2x'
  78. $locM = 'koncepod1'
  79. $metka = 'vnr2x'
  80. $loc = 'koncepod1'
  81. cls
  82. set minut += 5
  83. gs'stat'
  84. '<center><B><font color=maroon>Bathroom</font></B></center>'
  85. '<center><img src="images/lmps/ur1032.jpg" ></center>'
  86. 'Above the washbasin hangs an <a href="exec:GT ''mirror'',''start''">oval mirror</a>.'
  87. if psiho = 2 and psihb = 1 and psihc = 0 and psi1day = 0:dynamic $pavser4
  88. if spdirtyc > 0:
  89. act 'Wipe the cum off your clothes (0:10)':
  90. cla
  91. *clr
  92. cumspclnt = 6
  93. gs 'cum_cleanup'
  94. minut += 10
  95. 'You wipe the cum off your clothes and thoroughly rinse out the stains with water.'
  96. act 'Finish':gt 'vokzaltoilet'
  97. end
  98. end
  99. dynamic $tampon
  100. dynamic $quickwash
  101. dynamic $basin
  102. act 'Corridor':gt'koncepod1','krr2x'
  103. end
  104. if $ARGS[0]='bdr2x':
  105. cla
  106. *clr
  107. set minut = minut + 5
  108. gs'stat'
  109. '<center><B><font color=maroon>Bedroom</font></B></center>'
  110. '<center><img src="images/lmps/ur1034.jpg" ></center>'
  111. if psiho = 1 and psi1day = 0:dynamic $pavser3
  112. act 'Corridor':gt'koncepod1','krr2x'
  113. end
  114. --- koncepod1 ---------------------------------