1
0

koncepod1 4.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198
  1. # koncepod1
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. if $ARGS[0]='start':
  7. end
  8. if $ARGS[0]='prs':
  9. cls
  10. '<center><img src="images/pic/koncepod.jpg" ></center>'
  11. 'Go away pliz, not to annoy '
  12. act 'Logout':gt'dvor'
  13. end
  14. if $ARGS[0]='krr2x1':
  15. cla
  16. *clr
  17. set minut = minut + 1
  18. gs'stat'
  19. '<center><B><font color=maroon>Stairs</font></B></center>'
  20. '<center><img src="images/pic/koncepod3.jpg" ></center>'
  21. if psiho = 0:
  22. 'You stopped at the door of the apartment and opened the door srazuzhe.On hand was still mezkoe, disgusting and horrible feeling of being old man`s hands'
  23. 'You look at his hand, more room for complacency, and attempts to get rid of navozhdeniya...'
  24. 'Heart, zagnonoy beating bird Silke, gradually began uspokaivatsya, Architecture is not an ordinary flight of stairs and the atmosphere of the old building began to calm.'
  25. act 'Faster Account':gt'koncepod1','krr2x'
  26. end
  27. act 'Outside':pavserhom = 3 & psiha = 1 & gt'dvor'
  28. end
  29. if $ARGS[0]='krr2x':
  30. cla
  31. *clr
  32. set minut = minut + 1
  33. pavserpsiday = day
  34. '<center><B><font color=maroon>Corridor</font></B></center>'
  35. '<center><img src="images/lmps/ur1031.jpg" ></center>'
  36. if psiho = 0 and psi1day = 0:dynamic $pavser2
  37. if psiho = 3 and psi1day = 0:dynamic $pavser7
  38. if psi1day = 1:'To be continued'
  39. act 'The Hall':gt'koncepod1','str2x'
  40. act 'In the kitchen':gt'koncepod1','khr2x'
  41. act 'In the bathroom':gt'koncepod1','vnr2x'
  42. if psiho > 0:
  43. act '<b><font color = maroon>OUTSIDE</font></b>':
  44. cls
  45. if $clothingworntype ! 'nude':
  46. xgt'dvor'
  47. elseif $clothingworntype = 'nude':
  48. '<b><font color = red>You need to get dressed.</font></b>'
  49. xgt $curloc
  50. end
  51. end
  52. end
  53. end
  54. if $ARGS[0]='str2x':
  55. cla
  56. *clr
  57. set minut = minut + 5
  58. gs'stat'
  59. '<center><B><font color=maroon>Hall</font></B></center>'
  60. '<center><img src="images/lmps/ur1036.jpg" ></center>'
  61. if psiho = 0 and psi1day = 0:dynamic $pavser
  62. if psiho >= 1:
  63. act 'In the kitchen':gt'koncepod1','khr2x'
  64. act 'In the bedroom':gt'koncepod1','bdr2x'
  65. act 'Corridor':gt'koncepod1','krr2x'
  66. end
  67. end
  68. if $ARGS[0]='khr2x':
  69. cla
  70. *clr
  71. set minut = minut + 5
  72. gs'stat'
  73. '<center><B><font color=maroon>Kitchen</font></B></center>'
  74. '<center><img src="images/lmps/ur1033.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 'The Hall':gt'koncepod1','str2x'
  78. act 'Corridor':gt'koncepod1','krr2x'
  79. end
  80. if $ARGS[0]='vnr2x':
  81. cla
  82. *clr
  83. set minut = minut + 5
  84. gs'stat'
  85. '<center><B><font color=maroon>Bathroom</font></B></center>'
  86. '<center><img src="images/lmps/ur1032.jpg" ></center>'
  87. 'Above hung washbasin <a href="exec:GT ''mirror'',''start''">oval mirror</a>.'
  88. if psiho = 2 and psihb = 1 and psihc = 0 and psi1day = 0:dynamic $pavser4
  89. if tanga = 1:
  90. act 'Remove underwear':
  91. tanga = 0
  92. horny += 30
  93. end
  94. end
  95. if spdirtyi = 0 or spdirtyn = 0:
  96. act 'Substitution 15 min':
  97. cla
  98. *clr
  99. cumspclnt = 3
  100. gs 'cum_cleanup'
  101. cumspclnt = 4
  102. gs 'cum_cleanup'
  103. sweat = sweat - 1
  104. minut = minut + 15
  105. '<center><img src="images/pics/wash5.jpg"></center>'
  106. 'You carefully washed sperm from itself.'
  107. act 'Logout':gt'koncepod1','vnr2x'
  108. end
  109. end
  110. if spdirtyv > 0:
  111. act 'Wash off with facial cum 15 min':
  112. cla
  113. *clr
  114. mop = 1
  115. cumspclnt = 12
  116. gs 'cum_cleanup'
  117. cumspclnt = 9
  118. gs 'cum_cleanup'
  119. sweat = sweat - 1
  120. minut = minut + 15
  121. '<center><img src="images/etogame/facesp.jpg"></center>'
  122. 'You carefully washed sperm from the face.'
  123. act 'Logout':gt'koncepod1','vnr2x'
  124. end
  125. end
  126. if tampon > 0 and mesec > 0 and isprok = 0:
  127. act 'Change swab':
  128. cla
  129. *clr
  130. tampon = tampon - 1
  131. isprok = 1
  132. minut = minut + 5
  133. manna = manna - 5
  134. '<center><img src="images/pics/wash3.jpg"></center>'
  135. 'You have changed the swab.'
  136. act 'Finish':gt'koncepod1','vnr2x'
  137. end
  138. end
  139. act 'Corridor':gt'koncepod1','krr2x'
  140. end
  141. if $ARGS[0]='bdr2x':
  142. cla
  143. *clr
  144. set minut = minut + 5
  145. gs'stat'
  146. '<center><B><font color=maroon>Bedroom</font></B></center>'
  147. '<center><img src="images/lmps/ur1034.jpg" ></center>'
  148. if psiho = 1 and psi1day = 0:dynamic $pavser3
  149. act 'Corridor':gt'koncepod1','krr2x'
  150. end
  151. --- koncepod1 ---------------------------------