Prostitute 7.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276
  1. # Prostitute
  2. if $ARGS[0] = 'start':
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. $metkaSex = $ARGS[0]
  6. $locSex = $CURLOC
  7. cla
  8. *clr
  9. set minut += 5
  10. '<center><b><font color="maroon">Hooker</font></b></center>'
  11. '<center><img src="images/etogame/park2.jpg"></center>'
  12. clr
  13. gs 'stat'
  14. gs 'time'
  15. if hour >= 16 and hour <= 23:
  16. if whoreQW = 2:'Prostitutes look at you with curiosity.'
  17. if whoreQW = 1:
  18. 'Prostitutes look at you with interest.'
  19. act 'Talk':
  20. cla
  21. set whoreQW = 2
  22. 'You went to a prostitute and asked her how things are done here at all. She began to explain. "We are free, do not work on anyone, but because of this many problems. Svimi Stella with her friends sometimes beat us and rob and sometimes come petty thugs and rob us of the money. If you want to work here, you have to pay and Stella and Bandyuk . course you cool, you can try to besiege Stella and her friends, but the bandits do not advise contact. And yet, you do not peck on customers, if you nebudesh dressed like a slut, you can buy some clothes in a sex shop. "'
  23. act 'Move away':gt 'prostitute', 'start'
  24. end
  25. end
  26. if whoreQW = 0:
  27. 'Hey, you´re not one of us, would valyl from our point, and that the teeth will not collect.'
  28. act 'Fuck you!':
  29. cla
  30. set minut += 15
  31. set $nameV = 'Stoned prostitute'
  32. !!stats
  33. set strenV = 20
  34. set speedV = 30
  35. set agilV = 30
  36. set reactV = 30
  37. set vitalV = 50
  38. set intelV = 10
  39. set willV = 10
  40. !!skills
  41. set magikV = 10
  42. set boxingV = 10
  43. set shootV = 10
  44. !!parameters
  45. set healthV = vitalV * 10 + strenV * 5
  46. set mannaV = intelV * 10 + magikV * 10
  47. set willpowerV = willV * 10
  48. set BonusAtakV = 0
  49. set BonusDefV = 0
  50. !!Programme of Action
  51. set program = 0
  52. set prostitutFight = 1
  53. if spellavtoklon = 1:set klon = 3
  54. if spellbefshild = 1:set defence = 500
  55. gt 'fight', 'start'
  56. end
  57. act 'And how to become one of your own?':
  58. cla
  59. 'And how to become one of your own? You asked. Brazen prostitute grinned spat. To do this, you have to pay Stella.'
  60. act 'Move away':gt 'prostitute', 'start'
  61. act 'I agree':
  62. cla
  63. whoreQW = 2
  64. 'You agreed. Prostitute told you that you need to buy the appropriate clothing in sex Shope. Then customers will immediately understand that you´re a prostitute.'
  65. act 'Move away':gt 'prostitute', 'start'
  66. end
  67. end
  68. end
  69. if whoreQW > 1 and hook = 1 and son > 0:
  70. act 'Stand on the panel (0:15)':
  71. cla
  72. set minut += 10
  73. set prosrand = rand(0, (vnesh + hour) * 2)
  74. if prosrand < 20:
  75. 'No you are not interested.'
  76. act 'Leave':gt 'prostitute', 'start'
  77. end
  78. if prosrand >= 20:
  79. 'To you a car drove up.'
  80. set proseventrand = rand(0, 100)
  81. if proseventrand <= 5:
  82. 'To you black jeep pulled up, opened the window and leaned out healthy brazen face. "Hey slut, it´s time to pay tribute. Shtukar Come here and get out on work."'
  83. if money >= 1000:
  84. act 'Giving money':
  85. cla
  86. set money -= 1000
  87. 'You gave the money big man in the jeep. He put them in his pocket and left.'
  88. act 'Move away':gt 'prostitute', 'start'
  89. end
  90. end
  91. if money < 1000:
  92. act 'I have not earned much':
  93. cla
  94. money = 0
  95. 'You big man began to explain that you have not earned it grabbed you by the arm and threw him into a jeep, there you have it brushed pocket and said that he will teach you how to work.'
  96. act 'Work':
  97. set $nameV = 'bandit'
  98. set $boy = 'Bandit'
  99. set dick = rand(18, 21)
  100. gt 'blowPR', 'start'
  101. end
  102. end
  103. end
  104. act 'Fuck you!':
  105. cla
  106. set minut += 15
  107. set $nameV = 'Bandit'
  108. !!stats
  109. set strenV = 200
  110. set speedV = 30
  111. set agilV = 20
  112. set reactV = 20
  113. set vitalV = 150
  114. set intelV = 10
  115. set willV = 10
  116. !!skills
  117. set magikV = 10
  118. set boxingV = 10
  119. set shootV = 10
  120. !!parameters
  121. set healthV = vitalV * 10 + strenV * 5
  122. set mannaV = intelV * 10 + magikV * 10
  123. set willpowerV = willV * 10
  124. set BonusAtakV = 0
  125. set BonusDefV = 0
  126. !!Programme of Action
  127. set program = 0
  128. set prostitutFight = 2
  129. if spellavtoklon = 1:set klon = 3
  130. if spellbefshild = 1:set defence = 500
  131. gt 'fight', 'start'
  132. end
  133. end
  134. if proseventrand > 5 and proseventrand <= 50:
  135. klient_needs = 0
  136. prosti = 0
  137. KlientMON = rand(1, 10)
  138. 'The client wants to blow and asks how much it will cost.'
  139. end
  140. if proseventrand > 50 and proseventrand <= 75:
  141. klient_needs = 1
  142. prosti = 0
  143. KlientMON = rand(3, 25)
  144. 'Client wants sex and asks how much it will cost.'
  145. end
  146. if proseventrand > 75 and proseventrand <= 95:
  147. klient_needs = 2
  148. prosti = 0
  149. KlientMON = rand(5, 40)
  150. 'Client wants anal and asks how much it will cost.'
  151. end
  152. if proseventrand > 5 and proseventrand <= 95:
  153. klienVNPR = rand(0, 30)
  154. act 'Leave':gt 'prostitute', 'start'
  155. if ProsMoney > 0:
  156. act '<<ProsMoney * 100>> rubles':
  157. cls
  158. dynamic $universalklient
  159. end
  160. end
  161. act 'Assign a price':
  162. cls
  163. gs 'stat'
  164. ProsMoney = input("Enter a number below, which will multiplied by 100")
  165. if ProsMoney < 1:
  166. 'The client looked at you in amazement and muttered "what that fucker." Then started the car and drove away.'
  167. act 'Leave':gt 'prostitute', 'start'
  168. else
  169. dynamic $universalklient
  170. end
  171. end
  172. end
  173. if proseventrand > 95:
  174. 'To you approached a prostitute. "I hear you, slut, if you do not want problems, you have to pay Stella. Pyatihatnik Come here and get out on work."'
  175. if money >= 500:
  176. act 'Giving money':
  177. cla
  178. set money -= 500
  179. 'You gave the money to the prostitute, she turned and walked away.'
  180. act 'Move away':gt 'prostitute', 'start'
  181. end
  182. end
  183. if money < 500:
  184. act 'I have not earned much':
  185. cla
  186. set money = 0
  187. 'You started zhalovatsya that do not earn much money. You searched prostitute taking everything of value and left.'
  188. act 'Move away':gt 'prostitute', 'start'
  189. end
  190. end
  191. act 'Fuck you!':
  192. cla
  193. set minut += 15
  194. set $nameV = 'Prostitute'
  195. !!stats
  196. set strenV = 50
  197. set speedV = 50
  198. set agilV = 40
  199. set reactV = 30
  200. set vitalV = 60
  201. set intelV = 10
  202. set willV = 10
  203. !!skills
  204. set magikV = 10
  205. set boxingV = 10
  206. set shootV = 10
  207. !!parameters
  208. set healthV = vitalV * 10 + strenV * 5
  209. set mannaV = intelV * 10 + magikV * 10
  210. set willpowerV = willV * 10
  211. set BonusAtakV = 0
  212. set BonusDefV = 0
  213. !!Programme of Action
  214. set program = 0
  215. set prostitutFight = 3
  216. if spellavtoklon = 1:set klon = 3
  217. if spellbefshild = 1:set defence = 500
  218. gt 'fight', 'start'
  219. end
  220. end
  221. end
  222. end
  223. end
  224. end
  225. act 'Leave':
  226. cla
  227. set minut += 5
  228. set prosta = 0
  229. gt 'park', 'start'
  230. end
  231. end
  232. --- Prostitute ---------------------------------