1
0

473_Prostitute 26 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863
  1. # Prostitute
  2. <<<<<<< 473_Prostitute
  3. if $ARGS[0] = 'start':
  4. =======
  5. if $ARGS[0]='start':
  6. >>>>>>> 473_Prostitute
  7. $metka = $ARGS[0]
  8. $loc = $CURLOC
  9. $metkaSex = $ARGS[0]
  10. $locSex = $CURLOC
  11. cla
  12. *clr
  13. <<<<<<< 473_Prostitute
  14. set minut += 5
  15. '<center><B><font color = maroon>Hooker</font></B></center>'
  16. '<center><img src="images\etogame\park2.jpg"></center>'
  17. clr
  18. gs 'stat'
  19. gs 'time'
  20. if hour >= 16 and hour <= 23:
  21. if whoreQW = 2:
  22. 'Prostitutes look at you with curiosity.'
  23. end
  24. if whoreQW = 1:
  25. 'Prostitutes look at you with interest.'
  26. act 'Talk':
  27. cla
  28. set whoreQW = 2
  29. '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. "'
  30. act 'Move away': gt 'prostitute','start'
  31. end
  32. end
  33. if whoreQW = 0:
  34. 'Hey, you´re not one of us, would valyl from our point, and that the teeth will not collect.'
  35. act 'Fuck you!':
  36. cla
  37. set minut += 15
  38. set $nameV = 'Stoned prostitute'
  39. !Статы
  40. set strenV = 20
  41. set speedV = 30
  42. set agilV = 30
  43. set reactV = 30
  44. set vitalV = 50
  45. set intelV = 10
  46. set willV = 10
  47. !Навыки
  48. set magikV = 10
  49. set boxingV = 10
  50. set shootV = 10
  51. !Параметры
  52. set healthV = vitalV * 10 + strenV * 5
  53. set mannaV = intelV * 10 + magikV * 10
  54. set willpowerV = willV * 10
  55. set BonusAtakV = 0
  56. set BonusDefV = 0
  57. !программа действий
  58. set program = 0
  59. set prostitutFight = 1
  60. if spellavtoklon = 1: set klon = 3
  61. if spellbefshild = 1: set defence = 500
  62. gt 'fight','start'
  63. end
  64. act 'And how to become one of your own?':
  65. cla
  66. 'And how to become one of your own? You asked. Brazen prostitute grinned spat. To do this, you have to pay Stella.'
  67. act 'Move away': gt 'prostitute','start'
  68. act 'I agree':
  69. cla
  70. whoreQW = 2
  71. '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.'
  72. act 'Move away': gt 'prostitute','start'
  73. end
  74. end
  75. end
  76. if whoreQW > 1 and hook = 1 and son > 0:
  77. act 'Stand on the panel (0:15)':
  78. cla
  79. set minut += 10
  80. set prosrand = RAND(0,(vnesh + hour)*2)
  81. if prosrand < 20:
  82. 'No you are not interested.'
  83. act 'Leave': gt 'prostitute','start'
  84. end
  85. if prosrand >= 20:
  86. 'To you a car drove up.'
  87. set proseventrand = RAND(0,100)
  88. if proseventrand <= 5:
  89. '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."'
  90. if money >= 1000:
  91. act 'Giving money':
  92. cla
  93. set money -= 1000
  94. 'You gave the money big man in the jeep. He put them in his pocket and left.'
  95. act 'Move away': gt 'prostitute','start'
  96. end
  97. end
  98. if money < 1000:
  99. act 'I have not earned much':
  100. cla
  101. money = 0
  102. '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.'
  103. act 'Work':
  104. set $nameV = 'bandit'
  105. set $boy = 'Bandit'
  106. set dick = RAND(18,21)
  107. gt 'blowPR','start'
  108. end
  109. end
  110. end
  111. act 'Fuck you!':
  112. cla
  113. set minut += 15
  114. set $nameV = 'Bandit'
  115. !Статы
  116. set strenV = 200
  117. set speedV = 30
  118. set agilV = 20
  119. set reactV = 20
  120. set vitalV = 150
  121. set intelV = 10
  122. set willV = 10
  123. !Навыки
  124. set magikV = 10
  125. set boxingV = 10
  126. set shootV = 10
  127. !Параметры
  128. set healthV = vitalV * 10 + strenV * 5
  129. set mannaV = intelV * 10 + magikV * 10
  130. set willpowerV = willV * 10
  131. set BonusAtakV = 0
  132. set BonusDefV = 0
  133. !программа действий
  134. set program = 0
  135. set prostitutFight = 2
  136. if spellavtoklon = 1: set klon = 3
  137. if spellbefshild = 1: set defence = 500
  138. gt 'fight','start'
  139. end
  140. end
  141. if proseventrand > 5 and proseventrand <= 50:
  142. klient_needs = 0
  143. prosti = 0
  144. KlientMON = RAND(1,10)
  145. 'The client wants to blow and asks how much it will cost.'
  146. end
  147. if proseventrand > 50 and proseventrand <= 75:
  148. klient_needs = 1
  149. prosti = 0
  150. KlientMON = RAND(3,25)
  151. 'Client wants sex and asks how much it will cost.'
  152. end
  153. if proseventrand > 75 and proseventrand <= 95:
  154. klient_needs = 2
  155. prosti = 0
  156. KlientMON = RAND(5,40)
  157. 'Client wants anal and asks how much it will cost.'
  158. end
  159. if proseventrand > 5 and proseventrand <= 95:
  160. klienVNPR = RAND(0,30)
  161. act 'Leave': gt 'prostitute','start'
  162. if ProsMoney > 0:
  163. act '<<ProsMoney * 100>> rubles':
  164. cls
  165. dynamic $universalklient
  166. end
  167. end
  168. act 'Assign a price':
  169. cls
  170. gs 'stat'
  171. ProsMoney = input("Enter a number below, which will multiplied by 100")
  172. if ProsMoney < 1:
  173. 'The client looked at you in amazement and muttered "what that fucker." Then started the car and drove away.'
  174. act 'Leave': gt 'prostitute','start'
  175. else
  176. dynamic $universalklient
  177. end
  178. end
  179. end
  180. if proseventrand > 95:
  181. '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."'
  182. if money >= 500:
  183. act 'Giving money':
  184. cla
  185. set money -= 500
  186. 'You gave the money to the prostitute, she turned and walked away.'
  187. act 'Move away': gt 'prostitute','start'
  188. end
  189. end
  190. if money < 500:
  191. act 'I have not earned much':
  192. cla
  193. set money = 0
  194. 'You started zhalovatsya that do not earn much money. You searched prostitute taking everything of value and left.'
  195. act 'Move away': gt 'prostitute','start'
  196. end
  197. end
  198. act 'Fuck you!':
  199. cla
  200. set minut += 15
  201. set $nameV = 'Prostitute'
  202. !Статы
  203. set strenV = 50
  204. set speedV = 50
  205. set agilV = 40
  206. set reactV = 30
  207. set vitalV = 60
  208. set intelV = 10
  209. set willV = 10
  210. !Навыки
  211. set magikV = 10
  212. set boxingV = 10
  213. set shootV = 10
  214. !Параметры
  215. set healthV = vitalV * 10 + strenV * 5
  216. set mannaV = intelV * 10 + magikV * 10
  217. set willpowerV = willV * 10
  218. set BonusAtakV = 0
  219. set BonusDefV = 0
  220. !программа действий
  221. set program = 0
  222. set prostitutFight = 3
  223. if spellavtoklon = 1: set klon = 3
  224. if spellbefshild = 1: set defence = 500
  225. gt 'fight','start'
  226. end
  227. end
  228. end
  229. end
  230. end
  231. end
  232. act 'Leave':
  233. cla
  234. set minut += 5
  235. set prosta = 0
  236. gt 'park','start'
  237. end
  238. =======
  239. set minut = minut + 5
  240. '<center><B><font color=maroon>prostitute</font></B></center>'
  241. '<center><img src="pic/park2.jpg" ></center>'
  242. clr
  243. gs'stat'
  244. gs'time'
  245. if hour >= 16 and hour <= 23:
  246. if whoreQW = 2:
  247. 'Prostitutes look at you with curiosity.'
  248. end
  249. if whoreQW = 1:
  250. 'Prostitutes look at you with interest.'
  251. act 'talk':
  252. cla
  253. set whoreQW = 2
  254. 'You went to a prostitute and asked her how things are done here at all. She began to explain. "We are all free, do not work on anyone, but because of the many problems. Stella with her ​​friends is svimi beat us and rob, sometimes come petty criminals and rob us of money. If you want to work here, you have to pay and Stella and bandyukov. You certainly cool, you can try to lay siege to Stella and her bridesmaids, but the bandits do not advise to contact. And more, you do not bite on customers, if you nebudesh dressed like a whore, you can buy some clothes in a sex shop."'
  255. act 'move_away':gt'prostitute','start'
  256. end
  257. end
  258. if whoreQW = 0:
  259. 'hey, you are not one of our, brought down to our terms, and that the teeth do not gather.'
  260. act 'Fuck you!':
  261. cla
  262. set minut = minut + 15
  263. set $nameV = 'stoned prostitute'
  264. !stats
  265. set strenV = 20
  266. set speedV = 30
  267. set agilV = 30
  268. set reactV = 30
  269. set vitalV = 50
  270. set intelV = 10
  271. set willV = 10
  272. !skills
  273. set magikV = 10
  274. set boxingV = 10
  275. set shootV = 10
  276. !parameters
  277. set healthV = vitalV*10 + strenV*5
  278. set mannaV = intelV*10 + magikV*10
  279. set willpowerV = willV*10
  280. set BonusAtakV = 0
  281. set BonusDefV = 0
  282. !Programme of Action
  283. set program = 0
  284. set prostitutFight = 1
  285. if spellavtoklon = 1:set klon = 3
  286. if spellbefshild = 1:set defence = 500
  287. gt'fight','start'
  288. end
  289. act 'How to become one of your?':
  290. cla
  291. 'How to become one of your? asked you. Prostitute grinned impudently, spat. To do this.'
  292. act 'move_away':gt'prostitute','start'
  293. act 'I agree':
  294. cla
  295. whoreQW = 2
  296. 'you agreed. The prostitute told you, you need to buy some clothes in the sex shop. Then customers will immediately realize that you are a prostitute.'
  297. act 'move_away':gt'prostitute','start'
  298. end
  299. end
  300. end
  301. if whoreQW > 1 and hook = 1 and son > 0:
  302. act 'Stand on the panel 15 min':
  303. cla
  304. set minut = minut + 10
  305. set prosrand = RAND (0,(vnesh+hour)*2)
  306. if prosrand < 20:
  307. 'No you are not interested in.'
  308. act 'Get_Away':gt'prostitute','start'
  309. end
  310. if prosrand >= 20:
  311. 'To you drove the car.'
  312. set proseventrand = RAND (0,100)
  313. if proseventrand <= 5:
  314. 'To you drove a black jeep, opened the window and leaned out healthy impudent face. "Hey whore, it`s time to pay tribute. Come here Shtukar and Wali further work."'
  315. if money >= 1000:
  316. act 'give money':
  317. cla
  318. set money = money - 1000
  319. 'You gave money big man in the jeep. He put them in his pocket and left.'
  320. act 'move_away':gt'prostitute','start'
  321. end
  322. end
  323. if money<1000:
  324. act 'I still do not earn as much':
  325. cla
  326. money = 0
  327. 'You begin to explain big man, that you have not earned it grabbed you by the arm and threw him into a jeep, there you have it brushed his pocket, how to work.'
  328. act 'work':
  329. set $nameV = 'bandit'
  330. set $boy = 'bandit'
  331. set dick = RAND (18,21)
  332. gt'blowPR','start'
  333. end
  334. end
  335. end
  336. act 'Fuck you!':
  337. cla
  338. set minut = minut + 15
  339. set $nameV = 'bandit'
  340. !stats
  341. set strenV = 200
  342. set speedV = 30
  343. set agilV = 20
  344. set reactV = 20
  345. set vitalV = 150
  346. set intelV = 10
  347. set willV = 10
  348. !skills
  349. set magikV = 10
  350. set boxingV = 10
  351. set shootV = 10
  352. !parameters
  353. set healthV = vitalV*10 + strenV*5
  354. set mannaV = intelV*10 + magikV*10
  355. set willpowerV = willV*10
  356. set BonusAtakV = 0
  357. set BonusDefV = 0
  358. !Programme of Action
  359. set program = 0
  360. set prostitutFight = 2
  361. if spellavtoklon = 1:set klon = 3
  362. if spellbefshild = 1:set defence = 500
  363. gt'fight','start'
  364. end
  365. end
  366. if proseventrand > 5 and proseventrand <= 50:
  367. klient_needs=0
  368. prosti = 0
  369. KlientMON=RAND(1,10)
  370. 'The client wants a blowjob and asks how much it will cost.'
  371. end
  372. if proseventrand > 50 and proseventrand <= 75:
  373. klient_needs=1
  374. prosti = 0
  375. KlientMON=RAND(3,25)
  376. 'The client wants sex and asks how much it will cost.'
  377. end
  378. if proseventrand > 75 and proseventrand <= 95:
  379. klient_needs=2
  380. prosti = 0
  381. KlientMON=RAND(5,40)
  382. 'Client wants anal and asks how much it will cost.'
  383. end
  384. if proseventrand > 5 and proseventrand <= 95:
  385. klienVNPR=RAND(0,30)
  386. act 'Get_Away':gt'prostitute','start'
  387. if ProsMoney>0:
  388. act '<<ProsMoney*100>> rubles':
  389. cls
  390. dynamic $universalklient
  391. end
  392. end
  393. act 'put a price':
  394. cls
  395. gs'stat'
  396. ProsMoney=input("Assign cost hundreds")
  397. if ProsMoney<1:
  398. 'The client looked at you in surprise and muttered "Some sort of fucked." Then started the car and drove off.'
  399. act 'Get_Away':gt'prostitute','start'
  400. else
  401. dynamic $universalklient
  402. end
  403. end
  404. end
  405. if proseventrand > 95:
  406. 'To you came prostitute. "Slysh, slut, If you do not want problems, you have to pay Stella. Come here pyatihatnik and Wali further work."'
  407. if money >= 500:
  408. act 'give money':
  409. cla
  410. set money = money - 500
  411. 'You gave money to a prostitute, She turned and walked away.'
  412. act 'move_away':gt'prostitute','start'
  413. end
  414. end
  415. if money<500:
  416. act 'I still do not earn as much':
  417. cla
  418. set money = 0
  419. 'You started zhalovatsya that have not yet earned so much money. Prostitute search you took everything of value and left.'
  420. act 'move_away':gt'prostitute','start'
  421. end
  422. end
  423. act 'Fuck you!':
  424. cla
  425. set minut = minut + 15
  426. set $nameV = 'prostitute'
  427. !stats
  428. set strenV = 50
  429. set speedV = 50
  430. set agilV = 40
  431. set reactV = 30
  432. set vitalV = 60
  433. set intelV = 10
  434. set willV = 10
  435. !skills
  436. set magikV = 10
  437. set boxingV = 10
  438. set shootV = 10
  439. !parameters
  440. set healthV = vitalV*10 + strenV*5
  441. set mannaV = intelV*10 + magikV*10
  442. set willpowerV = willV*10
  443. set BonusAtakV = 0
  444. set BonusDefV = 0
  445. !Programme of Action
  446. set program = 0
  447. set prostitutFight = 3
  448. if spellavtoklon = 1:set klon = 3
  449. if spellbefshild = 1:set defence = 500
  450. gt'fight','start'
  451. end
  452. end
  453. end
  454. end
  455. end
  456. end
  457. act 'GET_AWAY':
  458. cla
  459. set minut = minut + 5
  460. set prosta = 0
  461. gt'park','start'
  462. end
  463. >>>>>>> 473_Prostitute
  464. end
  465. --- Prostitute ---------------------------------
  466. # Menu.Info
  467. <<<<<<< 473_Prostitute
  468. *NL 'Module to work with the menu'
  469. *NL 'Version: 1.0'
  470. *NL 'Author: Olegus t.Gl. (C) 2011'
  471. *NL 'Website: http://olegus.ifiction.ru'
  472. *NL 'e-mail: olegus.tgl @ gmail.com'
  473. *NL 'icq: 145540276'
  474. *NL 'Forum topic: http://forum.ifiction.ru/viewtopic.php?id = 1527'
  475. =======
  476. *NL 'Module for menu'
  477. *NL 'version: 1.0'
  478. *NL 'author: Olegus t.Gl. (c) 2011'
  479. *NL 'website: http://olegus.ifiction.ru'
  480. *NL 'e-mail: [email protected]'
  481. *NL 'icq: 145 540 276'
  482. *NL 'Forum topic: http://forum.ifiction.ru/viewtopic.php?id=1527'
  483. >>>>>>> 473_Prostitute
  484. --- Menu.Info ---------------------------------
  485. # Menu.Create
  486. <<<<<<< 473_Prostitute
  487. if $ARGS[0] = '': EXIT
  488. !----------
  489. $ARGS[0] = 'otg_Menyu_'+$ARGS[0]
  490. =======
  491. if $ARGS[0]='': EXIT
  492. !----------
  493. $ARGS[0]='otg_Menyu_'+$ARGS[0]
  494. >>>>>>> 473_Prostitute
  495. !----------
  496. killvar '<<$ARGS[0]>>'
  497. <<<<<<< 473_Prostitute
  498. killvar '<<$ARGS[0]>>_Parametry'
  499. killvar '<<$ARGS[0]>>_Vybrali'
  500. killvar '<<$ARGS[0]>>_VybrannyyPunkt'
  501. killvar '<<$ARGS[0]>>_Vremya'
  502. =======
  503. killvar '<<$ARGS[0]>>_parameters'
  504. killvar '<<$ARGS[0]>>_selected'
  505. killvar '<<$ARGS[0]>>_VybrannyyPunkt'
  506. killvar '<<$ARGS[0]>>_time'
  507. >>>>>>> 473_Prostitute
  508. killvar '<<$ARGS[0]>>_ModuliSobyty'
  509. --- Menu.Create ---------------------------------
  510. # Menu.Add
  511. <<<<<<< 473_Prostitute
  512. if $ARGS[0] = '' or $ARGS[1] = '': EXIT
  513. !----------
  514. if $ARGS[1] = '---' or lcase($ARGS[1])='separator':
  515. dynamic "$otg_Меню_<<$ARGS[0]>>[] = '-: -'"
  516. =======
  517. if $ARGS[0]='' or $ARGS[1]='': EXIT
  518. !----------
  519. if $ARGS[1]='---' or lcase($ARGS[1])='separator':
  520. dynamic "$otg_Menyu_<<$ARGS[0]>>[]='-:-'"
  521. >>>>>>> 473_Prostitute
  522. EXIT
  523. end
  524. !----------
  525. <<<<<<< 473_Prostitute
  526. ARGS[10] = arrsize('ARGS')
  527. if ARGS[10]<3: $ARGS[2] = ''
  528. if ARGS[10]<4: $ARGS[3] = ''
  529. !----------
  530. $ARGS[0] = 'otg_Menyu_<<$ARGS[0]>>'
  531. $ARGS[1] = replace($ARGS[1],'''','''''')
  532. if $ARGS[2]<>'': $ARGS[2] = ':'+replace($ARGS[2],'''','''''')
  533. if $ARGS[3]<>'': $ARGS[3] = replace($ARGS[3],'''','''''')
  534. =======
  535. ARGS[10]=arrsize('ARGS')
  536. if ARGS[10]<3: $ARGS[2]=''
  537. if ARGS[10]<4: $ARGS[3]=''
  538. !----------
  539. $ARGS[0]='otg_Menyu_<<$ARGS[0]>>'
  540. $ARGS[1]=replace($ARGS[1],'''','''''')
  541. if $ARGS[2]<>'': $ARGS[2]=':'+replace($ARGS[2],'''','''''')
  542. if $ARGS[3]<>'': $ARGS[3]=replace($ARGS[3],'''','''''')
  543. >>>>>>> 473_Prostitute
  544. !----------
  545. dynamic "
  546. <<<<<<< 473_Prostitute
  547. $<<$ARGS[0]>>[] = '<<$ARGS[1]>>Menu.{Processing}<<$ARGS[2]>>'
  548. $<<$ARGS[0]>>_Параметры[str(arrsize('<<$ARGS[0]>>'))+'_Z'] = '<<$ARGS[1]>>'
  549. $<<$ARGS[0]>>_Параметры[str(arrsize('<<$ARGS[0]>>'))+'_F'] = '<<$ARGS[3]>>'
  550. =======
  551. $<<$ARGS[0]>>[]='<<$ARGS[1]>>:menu.{treatment}<<$ARGS[2]>>'
  552. $<<$ARGS[0]>>_parameters[str(arrsize('<<$ARGS[0]>>'))+'_W']='<<$ARGS[1]>>'
  553. $<<$ARGS[0]>>_parameters[str(arrsize('<<$ARGS[0]>>'))+'_F']='<<$ARGS[3]>>'
  554. >>>>>>> 473_Prostitute
  555. "
  556. !----------
  557. <<<<<<< 473_Prostitute
  558. $ARGS[3] = ''
  559. if ARGS[10]>4:
  560. ARGS[11] = 4
  561. =======
  562. $ARGS[3]=''
  563. if ARGS[10]>4:
  564. ARGS[11]=4
  565. >>>>>>> 473_Prostitute
  566. :otg_menyu_metka_1
  567. if ARGS[11]<ARGS[10]:
  568. if $ARGS[ARGS[11]]<>'':
  569. <<<<<<< 473_Prostitute
  570. $ARGS[3] += ''''+replace($ARGS[ARGS[11]],'''','''''')+''''
  571. =======
  572. $ARGS[3]+=','''+replace($ARGS[ARGS[11]],'''','''''')+''''
  573. >>>>>>> 473_Prostitute
  574. else
  575. if ARGS[ARGS[11]]<>0:
  576. <<<<<<< 473_Prostitute
  577. $ARGS[3] += ','+str(ARGS[ARGS[11]])
  578. else
  579. $ARGS[3] += ''' '''
  580. =======
  581. $ARGS[3]+=','+str(ARGS[ARGS[11]])
  582. else
  583. $ARGS[3]+=','''''
  584. >>>>>>> 473_Prostitute
  585. end
  586. end
  587. <<<<<<< 473_Prostitute
  588. ARGS[11] += 1
  589. =======
  590. ARGS[11]+=1
  591. >>>>>>> 473_Prostitute
  592. jump 'otg_menyu_metka_1'
  593. end
  594. end
  595. !----------
  596. dynamic "
  597. <<<<<<< 473_Prostitute
  598. $<<$ARGS[0]>>_Параметры[str(arrsize('<<$ARGS[0]>>'))+'_P'] = '<<replace($ARGS[3],'''','''''')>>'
  599. =======
  600. $<<$ARGS[0]>>_parameters[str(arrsize('<<$ARGS[0]>>'))+'_P']='<<replace($ARGS[3],'''','''''')>>'
  601. >>>>>>> 473_Prostitute
  602. "
  603. --- Menu.Add ---------------------------------
  604. # Menu.AddCondition
  605. <<<<<<< 473_Prostitute
  606. if $ARGS[0] = '' or $ARGS[1] = '': EXIT
  607. !----------
  608. ARGS[10] = dyneval("Result = arrsize('otg_Menyu_<<$ARGS[0]>>')")
  609. if dyneval("$Result = $otg_Меню_<<$ARGS[0]>>[<<ARGS[10]>>-1]")='-: -': EXIT
  610. =======
  611. if $ARGS[0]='' or $ARGS[1]='': EXIT
  612. !----------
  613. ARGS[10]=dyneval("Result=arrsize('otg_Menyu_<<$ARGS[0]>>')")
  614. if dyneval("$Result=$otg_Menyu_<<$ARGS[0]>>[<<ARGS[10]>>-1]")='-:-': EXIT
  615. >>>>>>> 473_Prostitute
  616. !----------
  617. dynamic "
  618. <<<<<<< 473_Prostitute
  619. $otg_Меню_<<$ARGS[0]>>_Параметры['<<ARGS[10]>>y'] = '<<replace($ARGS[1],'''','''''')>>'
  620. =======
  621. $otg_Menyu_<<$ARGS[0]>>_parameters['<<ARGS[10]>>_Do']='<<replace($ARGS[1],'''','''''')>>'
  622. >>>>>>> 473_Prostitute
  623. "
  624. --- Menu.AddCondition ---------------------------------
  625. # Menu.AddModule
  626. <<<<<<< 473_Prostitute
  627. if $ARGS[0] = '' or $ARGS[1] = '': EXIT
  628. !----------
  629. ARGS[10] = dyneval("Result = arrsize('otg_Menyu_<<$ARGS[0]>>')")
  630. if dyneval("$Result = $otg_Меню_<<$ARGS[0]>>[<<ARGS[10]>>-1]")='-: -': EXIT
  631. =======
  632. if $ARGS[0]='' or $ARGS[1]='': EXIT
  633. !----------
  634. ARGS[10]=dyneval("Result=arrsize('otg_Menyu_<<$ARGS[0]>>')")
  635. if dyneval("$Result=$otg_Menyu_<<$ARGS[0]>>[<<ARGS[10]>>-1]")='-:-': EXIT
  636. >>>>>>> 473_Prostitute
  637. !----------
  638. dynamic "
  639. <<<<<<< 473_Prostitute
  640. $otg_Меню_<<$ARGS[0]>>_Параметры['<<ARGS[10]>>_M'] = '<<replace($ARGS[1],'''','''''')>>'
  641. "
  642. =======
  643. $otg_Menyu_<<$ARGS[0]>>_parameters['<<ARGS[10]>>_M']='<<replace($ARGS[1],'''','''''')>>'
  644. "
  645. >>>>>>> 473_Prostitute
  646. --- Menu.AddModule ---------------------------------
  647. # Menu.AddEvent
  648. <<<<<<< 473_Prostitute
  649. if $ARGS[0] = '' or $ARGS[1] = '': EXIT
  650. !----------
  651. $ARGS[1] = lcase(trim($ARGS[1]))
  652. !----------
  653. if $ARGS[1] = 'when you select':
  654. dynamic "$otg_Меню_<<$ARGS[0]>>_МодулиСобытий['<<$ARGS[1]>>'] = '<<replace($ARGS[2],'''','''''')>>'"
  655. elseif $ARGS[1] = 'selecting processing after':
  656. dynamic "$otg_Меню_<<$ARGS[0]>>_МодулиСобытий['<<$ARGS[1]>>'] = '<<replace($ARGS[2],'''','''''')>>'"
  657. elseif $ARGS[1] = 'failure of the choice':
  658. dynamic "$otg_Меню_<<$ARGS[0]>>_МодулиСобытий['<<$ARGS[1]>>'] = '<<replace($ARGS[2],'''','''''')>>'"
  659. end
  660. =======
  661. if $ARGS[0]='' or $ARGS[1]='': EXIT
  662. !----------
  663. $ARGS[1]=lcase(trim($ARGS[1]))
  664. !----------
  665. if $ARGS[1]='when you select':
  666. dynamic "$otg_Menyu_<<$ARGS[0]>>_ModuliSobyty['<<$ARGS[1]>>']='<<replace($ARGS[2],'''','''''')>>'"
  667. elseif $ARGS[1]='after selection processing':
  668. dynamic "$otg_Menyu_<<$ARGS[0]>>_ModuliSobyty['<<$ARGS[1]>>']='<<replace($ARGS[2],'''','''''')>>'"
  669. elseif $ARGS[1]='failure of the choice':
  670. dynamic "$otg_Menyu_<<$ARGS[0]>>_ModuliSobyty['<<$ARGS[1]>>']='<<replace($ARGS[2],'''','''''')>>'"
  671. end
  672. >>>>>>> 473_Prostitute
  673. --- Menu.AddEvent ---------------------------------
  674. # Menu.Call
  675. <<<<<<< 473_Prostitute
  676. if $ARGS[0] = '': EXIT
  677. !----------
  678. ARGS[10] = arrsize('otg_Menyu_<<$ARGS[0]>>')
  679. if ARGS[10] = 0: EXIT
  680. !----------
  681. $otg_Menu_Current = 'otg_Menyu_<<$ARGS[0]>>'
  682. =======
  683. if $ARGS[0]='': EXIT
  684. !----------
  685. ARGS[10]=arrsize('otg_Menyu_<<$ARGS[0]>>')
  686. if ARGS[10]=0: EXIT
  687. !----------
  688. $otg_Menu_Current='otg_Menyu_<<$ARGS[0]>>'
  689. >>>>>>> 473_Prostitute
  690. killvar 'otg_Menyu_Vyzyvaemoe'
  691. killvar 'otg_Menu_Compliance'
  692. !----------
  693. <<<<<<< 473_Prostitute
  694. ARGS[11] = 0
  695. =======
  696. ARGS[11]=0
  697. >>>>>>> 473_Prostitute
  698. :otg_menyu_metka_2
  699. if ARGS[11]<ARGS[10]:
  700. dynamic "
  701. <<<<<<< 473_Prostitute
  702. $ARGS[0] = $<<$otg_Menu_Current>>_Параметры['<<ARGS[11]+1>>y']
  703. if $ARGS[0] = '':
  704. $otg_Меню_Вызываемое[] = $<<$otg_Menu_Current>>[<<ARGS[11]>>]
  705. =======
  706. $ARGS[0]=$<<$otg_Menu_Current>>_parameters['<<ARGS[11]+1>>_Do']
  707. if $ARGS[0]='':
  708. $otg_Menyu_Vyzyvaemoe[]=$<<$otg_Menu_Current>>[<<ARGS[11]>>]
  709. >>>>>>> 473_Prostitute
  710. otg_Menu_Compliance[]=<<ARGS[11]+1>>
  711. else
  712. if dyneval($ARGS[0])<>0:
  713. <<<<<<< 473_Prostitute
  714. $otg_Меню_Вызываемое[] = $<<$otg_Menu_Current>>[<<ARGS[11]>>]
  715. =======
  716. $otg_Menyu_Vyzyvaemoe[]=$<<$otg_Menu_Current>>[<<ARGS[11]>>]
  717. >>>>>>> 473_Prostitute
  718. otg_Menu_Compliance[]=<<ARGS[11]+1>>
  719. end
  720. end
  721. "
  722. <<<<<<< 473_Prostitute
  723. ARGS[11] += 1
  724. =======
  725. ARGS[11]+=1
  726. >>>>>>> 473_Prostitute
  727. !----------
  728. jump 'otg_menyu_metka_2'
  729. end
  730. !----------
  731. <<<<<<< 473_Prostitute
  732. otg_Menu_Time = 0
  733. dynamic "
  734. <<$otg_Menu_Current>>_Выбрали = 0
  735. <<$otg_Menu_Current>>_ВыбранныйПункт = 0
  736. <<$otg_Menu_Current>>_Время = MSECSCOUNT
  737. =======
  738. otg_Menu_Time=0
  739. dynamic "
  740. <<$otg_Menu_Current>>_selected=0
  741. <<$otg_Menu_Current>>_VybrannyyPunkt=0
  742. <<$otg_Menu_Current>>_time=MSECSCOUNT
  743. >>>>>>> 473_Prostitute
  744. "
  745. !----------
  746. menu 'otg_Menyu_Vyzyvaemoe'
  747. !----------
  748. dynamic "
  749. <<<<<<< 473_Prostitute
  750. if <<$otg_Menu_Current>>_Выбрали = 0:
  751. <<$otg_Menu_Current>>_Время = MSECSCOUNT-<<$otg_Menu_Current>>_Время
  752. $ARGS[0] = $<<$otg_Menu_Current>>_МодулиСобытий['failure of the choice']
  753. =======
  754. if <<$otg_Menu_Current>>_selected=0:
  755. <<$otg_Menu_Current>>_time=MSECSCOUNT-<<$otg_Menu_Current>>_time
  756. $ARGS[0]=$<<$otg_Menu_Current>>_ModuliSobyty['failure of the choice']
  757. >>>>>>> 473_Prostitute
  758. if $ARGS[0]<>'': dynamic $ARGS[0]
  759. else
  760. <<<<<<< 473_Prostitute
  761. $ARGS[0] = $<<$otg_Menu_Current>>_МодулиСобытий['selecting processing after']
  762. if $ARGS[0]<>'': dynamic $ARGS[0],$<<$otg_Menu_Current>>_Параметры[str(<<$otg_Menu_Current>>_ВыбранныйПункт)+'_Z']"+dyneval("$Result = $<<$otg_Menu_Current>>_Параметры[str(<<$otg_Menu_Current>>_ВыбранныйПункт)+'_P']")+"
  763. =======
  764. $ARGS[0]=$<<$otg_Menu_Current>>_ModuliSobyty['after selection processing']
  765. if $ARGS[0]<>'': dynamic $ARGS[0],$<<$otg_Menu_Current>>_parameters[str(<<$otg_Menu_Current>>_VybrannyyPunkt)+'_W']"+dyneval("$Result=$<<$otg_Menu_Current>>_parameters[str(<<$otg_Menu_Current>>_VybrannyyPunkt)+'_P']")+"
  766. >>>>>>> 473_Prostitute
  767. end
  768. "
  769. !----------
  770. killvar 'otg_Menyu_Tekuschee'
  771. killvar 'otg_Menyu_Vyzyvaemoe'
  772. killvar 'otg_Menu_Compliance'
  773. !----------
  774. <<<<<<< 473_Prostitute
  775. Result = dyneval("Result = otg_Меню_<<$ARGS[0]>>_Выбрали")
  776. =======
  777. Result=dyneval("Result=otg_Menyu_<<$ARGS[0]>>_selected")
  778. >>>>>>> 473_Prostitute
  779. --- Menu.Call ---------------------------------
  780. # Menu.Chosen
  781. <<<<<<< 473_Prostitute
  782. if $ARGS[0] = '': EXIT
  783. Result = dyneval("Result = otg_Меню_<<$ARGS[0]>>_Выбрали")
  784. =======
  785. if $ARGS[0]='': EXIT
  786. Result=dyneval("Result=otg_Menyu_<<$ARGS[0]>>_selected")
  787. >>>>>>> 473_Prostitute
  788. --- Menu.Chosen ---------------------------------
  789. # Menu.Time
  790. <<<<<<< 473_Prostitute
  791. if $ARGS[0] = '':
  792. Result = otg_Menu_Time
  793. else
  794. Result = dyneval("Result = otg_Меню_<<$ARGS[0]>>_Время")
  795. =======
  796. if $ARGS[0]='':
  797. Result=otg_Menu_Time
  798. else
  799. Result=dyneval("Result=otg_Menyu_<<$ARGS[0]>>_time")
  800. >>>>>>> 473_Prostitute
  801. end
  802. --- Menu.Time ---------------------------------
  803. # Menu.Destroy
  804. <<<<<<< 473_Prostitute
  805. if $ARGS[0] = '': EXIT
  806. =======
  807. if $ARGS[0]='': EXIT
  808. >>>>>>> 473_Prostitute
  809. GS 'Menu.Create',$ARGS[0]
  810. --- Menu.Destroy ---------------------------------
  811. # Menu.{Processing}
  812. ARGS[0] = otg_Menu_Compliance[ARGS[0]-1]
  813. !----------
  814. if ARGS[0] = 0: EXIT
  815. !----------
  816. $ARGS[0] = dyneval("$Result = $<<$otg_Menu_Current>>_Параметры['<<ARGS[0]>>_F']")
  817. $ARGS[1] = dyneval("$Result = $<<$otg_Menu_Current>>_Параметры['<<ARGS[0]>>_M']")
  818. !----------
  819. dynamic "
  820. if $ARGS[1]<>'' or ($ARGS[0]<>'' and LOC $ARGS[0]):
  821. <<$otg_Menu_Current>>_Время = MSECSCOUNT-<<$otg_Menu_Current>>_Время
  822. otg_Menu_Time=<<$otg_Menu_Current>>_Время
  823. <<$otg_Menu_Current>>_Выбрали = -1
  824. <<$otg_Menu_Current>>_ВыбранныйПункт=<<ARGS[0]>>
  825. !----------
  826. $ARGS[3] = $<<$otg_Menu_Current>>_МодулиСобытий['when you select']
  827. if $ARGS[3]<>'': dynamic $ARGS[3],$<<$otg_Menu_Current>>_Параметры['<<ARGS[0]>>_Z']"+dyneval("$Result = $<<$otg_Menu_Current>>_Параметры['<<ARGS[0]>>_P']")+"
  828. !----------
  829. if $ARGS[1]<>'':
  830. dynamic $ARGS[1]"+dyneval("$Result = $<<$otg_Menu_Current>>_Параметры['<<ARGS[0]>>_P']")+"
  831. else
  832. GS $ARGS[0]"+dyneval("$Result = $<<$otg_Menu_Current>>_Параметры['<<ARGS[0]>>_P']")+"
  833. end
  834. else
  835. MSG 'Location ''<<$ARGS[0]>>'' not found!'
  836. end
  837. ",$ARGS[0],$ARGS[1]
  838. --- Menu.{Processing} ---------------------------------