1
0

362_stwork 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575
  1. # stwork
  2. if $ARGS[0] = 'start':
  3. $sexloc = $CURLOC
  4. $metkaM = $ARGS[0]
  5. $locM = $CURLOC
  6. <<<<<<< 362_stwork
  7. set minut += 5
  8. stripMir = 1
  9. '<center><B><font color = maroon>Dressing for strippers</font></B></center>'
  10. '<center><img src="images\etogame\striprazd.jpg"></center>'
  11. 'On the wall of the set <a href="exec:GT ''mirror'',''start''">mirrors</a> to whom <a href="exec:dynamic $stripgirl">girls</a> lead myself up before performances.'
  12. '<a href="exec:stripMir = 0 & GT ''stripclub'',''start''">Do not noticeable, steel door</a> in the hallway overlooks the back yard and all the staff goes through the door to work, and not through the front door. About this entry is always worth <a href="exec:dynamic $stripohr">guard</a>.'
  13. 'Behind wooden door located <a href="exec:dynamic $striptoilet">toilet for staff</a>'
  14. clr
  15. gs 'stat'
  16. fcolor = rgb(0,0,0)
  17. bcolor = rgb(255,255,255)
  18. LCOLOR = rgb(106,90,205)
  19. if tatplech > 0: stripKoef = RAND(1,3)
  20. if tatback > 0: stripKoef2 = RAND(1,3)
  21. if tatback > 0: stripKoef3 = RAND(1,3)
  22. if tatupb > 0: stripKoef4 = RAND(3,6)
  23. if tatleg > 0: stripKoef5 = RAND(1,3)
  24. publichot = vnesh - 10 + stripKoef + stripKoef2 + stripKoef3 + stripKoef4 + stripKoef5
  25. publichotstart = publichot
  26. if hour >= 15 or hour <= 2:
  27. if mop >= 4:
  28. if hapri = 1:
  29. if sweat <= 0:
  30. if leghair <= 0 and lobok <= 0:
  31. if fingal <= 0:
  32. act 'Go on stage': stpredmet = 3 & gt 'stwork2'
  33. else
  34. 'With such a black eye as you have nothing to do on stage.'
  35. end
  36. else
  37. 'There is nothing more terrible than a stripper with hairy legs or pubis, in this form can not work.'
  38. end
  39. else
  40. 'Lord, from you the same stinks like a horse, one must first wash.'
  41. end
  42. else
  43. 'Not with this disheveled hair pokazyvatsya in public.'
  44. end
  45. else
  46. 'Need to work very defiant makeup.'
  47. end
  48. else
  49. 'Working time is over. Time to go home.'
  50. =======
  51. set minut = minut + 5
  52. stripMir = 1
  53. '<center><B><font color=maroon>Locker room for strippers</font></B></center>'
  54. '<center><img src="pic/striprazd.jpg" ></center>'
  55. 'On the wall a lot of <a href="exec:GT ''mirror'',''start''">mirrors</a> to whom <a href="exec:dynamic $stripgirl">girls</a> brush up before performances.'
  56. '<a href="exec:stripMir = 0&GT ''stripclub'',''start''">no perceptible, steel door</a> in the hallway out to the back yard and all the staff walks through the door to work, and not through the front entrance. About this input is always <a href="exec:dynamic $stripohr">security_guard</a>.'
  57. 'For wooden door located <a href="exec:dynamic $striptoilet">toilet for staff</a>'
  58. clr
  59. gs'stat'
  60. fcolor=rgb(0,0,0)
  61. bcolor=rgb(255,255,255)
  62. LCOLOR = rgb(106,90,205)
  63. if tatplech>0:stripKoef=RAND(1,3)
  64. if tatback>0:stripKoef2=RAND(1,3)
  65. if tatback>0:stripKoef3=RAND(1,3)
  66. if tatupb>0:stripKoef4=RAND(3,6)
  67. if tatleg>0:stripKoef5=RAND(1,3)
  68. publichot=vnesh-10+stripKoef+stripKoef2+stripKoef3+stripKoef4+stripKoef5
  69. publichotstart=publichot
  70. if hour >= 15 or hour<=2:
  71. if mop>=4:
  72. if hapri = 1:
  73. if sweat<=0:
  74. if leghair <= 0 and lobok<=0:
  75. if fingal<=0:
  76. act 'Go on stage':stpredmet=3&gt'stwork2'
  77. else
  78. 'With such a black eye as you, on stage doing nothing.'
  79. end
  80. else
  81. 'There is nothing more terrible than a stripper with hairy legs or pubis, in this form can not work.'
  82. end
  83. else
  84. 'Jesus, yes you also stinks like a horse, must first wash.'
  85. end
  86. else
  87. 'Can not be such a disheveled hair pokazyvatsya in public.'
  88. end
  89. else
  90. 'Need to work very caller makeup.'
  91. end
  92. else
  93. 'Working time is over. It`s time to go home.'
  94. >>>>>>> 362_stwork
  95. end
  96. <<<<<<< 362_stwork
  97. $stripgirl = {
  98. cls
  99. gs 'stat'
  100. striptalkrand = RAND(0,10)
  101. if striptalkrand = 0:$striptalk = 'Have you heard? Then came one somehow the girl, all so beautiful, but the stage was full of zero can not do anything, so it only booed.'
  102. if striptalkrand = 1:$striptalk = 'I´m telling you, men give birth to girls with tattoos.'
  103. if striptalkrand = 2:$striptalk = 'On a pole over much more profitable than just dance striptease, easier to excite the customer, but this pole is difficult.'
  104. if striptalkrand = 3:$striptalk = 'Phew, it does not go out on stage, going back all sweaty, disheveled hair and makeup certainly splyvet. Here one can go bankrupt cosmetics.'
  105. if striptalkrand = 4:$striptalk = 'Generally these private dances, though guaranteed money but it is not on the scene can make more money.'
  106. if striptalkrand = 5:$striptalk = 'Then the girl was ugly one, came on the scene, immediately let her boo, but she started spinning around a pole, customers jaw dropped, it is not bad earned.'
  107. if striptalkrand = 6:$striptalk = 'And why the manager never says male or female day? I recently rushed to work, even nail broke, I take refuge, and here these bears jump on stage. Turned around and went back.'
  108. if striptalkrand = 7:$striptalk = 'Some dechonki told that they had problems arise on the job. For many stritizersha power whore.'
  109. if striptalkrand = 8:$striptalk = 'Here one fat woman trying to dance on the pole, so muzzle flopped on the floor and put a strong bruise.'
  110. if striptalkrand = 9:$striptalk = 'Recently one zhirnuhu raised a laugh in the hall. Like and simpotnaya and dances well, but to no avail.'
  111. if striptalkrand = 10:$striptalk = 'I heard a decent clubs abroad strippers themselves pay for the right to work in the club.'
  112. 'Girls are engaged with their appearance in the mirror fun chatting about all sorts of trivia.'
  113. '<<$striptalk>>'
  114. act 'Move away': gt $curloc,'start'
  115. =======
  116. $stripgirl={
  117. cls
  118. gs'stat'
  119. striptalkrand=RAND(0,10)
  120. if striptalkrand=0:$striptalk='heard? Then somehow came one Devchenka, all so beautiful, but came to the stage, complete zero, did not know how, so it only booed.'
  121. if striptalkrand=1:$striptalk='I `m telling you, men give birth to girls with tattoos.'
  122. if striptalkrand=2:$striptalk='On a pole over much more profitable than just dancing striptease, easier to excite the customer, but this is quite difficult to pole.'
  123. if striptalkrand=3:$striptalk='Fuh, they do not go out on stage, back all sweaty, disheveled hair and makeup certainly splyvet. Here one can be ruined cosmetics.'
  124. if striptalkrand=4:$striptalk='In general, on the stage .'
  125. if striptalkrand=5:$striptalk='There was one ugly Devchenka, came on the scene, Let`s just her boo, but as the beginning revolves around a pole, customers jaw fell off, well it `s not bad earned.'
  126. if striptalkrand=6:$striptalk='And why the manager never says, male or female day? I recently rushed to work, even broke a nail, seek_refuge, and here these bears are jumping on stage. Turned around and went back.'
  127. if striptalkrand=7:$striptalk='Some dechonki told that they had problems arise because of the work. For many stritizersha still a whore.'
  128. if striptalkrand=8:$striptalk='There is one fat woman trying on a pole dance, so flopped muzzle on the floor and put a strong bruise.'
  129. if striptalkrand=9:$striptalk='Recently one zhirnuhu raised a laugh in the hall. Like and simpotnaya and dances well, but did not help.'
  130. if striptalkrand=10:$striptalk='I heard a decent clubs abroad strippers themselves pay for the right to work in a club.'
  131. 'Girls are engaged in their appearance before the mirror fun talking about all sorts of trivia.'
  132. '<<$striptalk>>'
  133. act 'move_away':gt $curloc,'start'
  134. >>>>>>> 362_stwork
  135. }
  136. <<<<<<< 362_stwork
  137. $stripohr = {
  138. cls
  139. gs 'stat'
  140. 'Hefty bored guard at the door. Seeing you it lazily throws "Hello <<$name>>."'
  141. act 'Move away': gt $curloc,'start'
  142. =======
  143. $stripohr={
  144. cls
  145. gs'stat'
  146. 'Burly security guard at the door misses. Seeing you "Hello World."'
  147. act 'move_away':gt $curloc,'start'
  148. >>>>>>> 362_stwork
  149. }
  150. <<<<<<< 362_stwork
  151. $striptoilet2 = {
  152. cls
  153. gs 'stat'
  154. 'You rinsed the razor blade which will be enough for <<stanok>> time.'
  155. if leghair > 0 and stanok > 0:
  156. act 'Shave your legs (0:15)':
  157. cla
  158. *clr
  159. set minut += 15
  160. set leghair = -5
  161. set horny += 5
  162. set stanok -= 1
  163. '<center><img src="images\pics\shave.jpg"></center>'
  164. 'You lathered up and shaved hair with them.'
  165. act 'Postpone machine': dynamic $striptoilet2
  166. end
  167. end
  168. if lobok > 0 and stanok > 0:
  169. act 'Shave pubis (0:15)':
  170. cla
  171. *clr
  172. set minut += 15
  173. set lobok = -5
  174. set horny += 5
  175. set stanok -= 1
  176. '<center><img src="images\pics\shave3.jpg"></center>'
  177. 'You lathered pubis, then shaved all the hair from it.'
  178. act 'Postpone machine': dynamic $striptoilet2
  179. end
  180. end
  181. act 'Out of the shower and get dressed': dynamic $striptoilet
  182. =======
  183. $striptoilet2={
  184. cls
  185. gs'stat'
  186. 'You rinsed the razor, blade which will suffice for <<stanok>> time.'
  187. if leghair > 0 and stanok > 0:
  188. act 'shave your legs 15 min':
  189. cla
  190. *clr
  191. set minut = minut + 15
  192. set leghair = -5
  193. set horny = horny + 5
  194. set stanok = stanok - 1
  195. '<center><img src="pics/shave.jpg" ></center>'
  196. 'You lathered up and shaved off the hair with them.'
  197. act 'postpone the machine':dynamic $striptoilet2
  198. end
  199. end
  200. if lobok > 0 and stanok > 0:
  201. act 'Shaved 15 min':
  202. cla
  203. *clr
  204. set minut = minut + 15
  205. set lobok = -5
  206. set horny = horny + 5
  207. set stanok = stanok - 1
  208. '<center><img src="pics/shave3.jpg" ></center>'
  209. 'You lathered pubis, then shaved off his hair all.'
  210. act 'postpone the machine':dynamic $striptoilet2
  211. end
  212. end
  213. act 'Get out of the shower and get dressed':dynamic $striptoilet
  214. >>>>>>> 362_stwork
  215. }
  216. <<<<<<< 362_stwork
  217. $striptoilet = {
  218. cls
  219. '<center><img src="images\LakeCafe\Toilet.jpg"></center>'
  220. 'Dirty and smelly toilet that seems to have never been cleaned'
  221. gs 'stat'
  222. if tanga = 1:
  223. act 'Remove Underwear':
  224. cla
  225. set tanga = 0
  226. dynamic $striptoilet
  227. end
  228. end
  229. act 'Look in the mirror':
  230. cla
  231. gs 'portmirror'
  232. set $goto1 = 'stwork'
  233. set $goto2 = ''
  234. dynamic $portmirror
  235. act 'Move away from the mirror':
  236. cla
  237. dynamic $striptoilet
  238. end
  239. end
  240. if mop ! 1:
  241. act 'Wash off makeup':
  242. cla
  243. *clr
  244. minut += 5
  245. mop = 1
  246. '<center><img src="images\etogame\mop.jpg"></center>'
  247. 'You flushed makeup.'
  248. act 'Exit': dynamic $striptoilet
  249. end
  250. end
  251. act 'Take a shower (0:15)':
  252. cla
  253. *clr
  254. set minut += 15
  255. if sweat > -3: set sweat = -3
  256. set horny += 1
  257. set hapri = 0
  258. set mop = 1
  259. set cumpussy = 0
  260. set cumbelly = 0
  261. set cumass = 0
  262. set cumanus = 0
  263. set cumlip = 0
  264. set cumface = 0
  265. set cumanus =0
  266. '<center><img src="images\pics\dush.jpg"></center>'
  267. 'You got into the bathroom and turned on the shower. Lathered body and washed off in the shower.'
  268. if leghair > 0 and stanok > 0 or lobok > 0 and stanok > 0:
  269. act 'Get razor': dynamic $striptoilet2
  270. end
  271. if horny >= 90:
  272. act 'Send shower pussy':
  273. cla
  274. *clr
  275. set horny = 0
  276. set minut += 30
  277. set mastr += 1
  278. set orgasm += 1
  279. set manna += 15
  280. set willpower += 15
  281. '<center><img src="images\pics\wash2.jpg"></center>'
  282. 'You sent a shower pussy and tight jet of warm water began to caress you. Soon you will feel like a warm wave covers your entire body and you began to shudder in orgasm.'
  283. act 'Get out and get dressed': dynamic $striptoilet
  284. end
  285. end
  286. if horny >= 40 and hormy < 90:
  287. act 'Send shower pussy':
  288. cla
  289. *clr
  290. set horny += 5
  291. set minut += 30
  292. set manna += 10
  293. set willpower += 10
  294. '<center><img src="images\pics\wash2.jpg"></center>'
  295. 'You sent a shower pussy and tight jet of warm water began to caress you. First you were very nice, but after a while, even as it was painful. Excitation of sleep and you stop masturbating.'
  296. act 'Get out and get dressed': dynamic $striptoilet
  297. end
  298. end
  299. act 'Out of the shower and get dressed': dynamic $striptoilet
  300. end
  301. =======
  302. $striptoilet={
  303. cls
  304. '<center><img src="LakeCafe/Toilet.jpg" ></center>'
  305. 'Dirty and smelly toilet, wherein, seems, never cleaned'
  306. gs'stat'
  307. if tanga=1:
  308. act 'Remove underwear':
  309. cla
  310. set tanga = 0
  311. dynamic $striptoilet
  312. end
  313. end
  314. if hapri = 0:
  315. act 'coiffured':
  316. cla
  317. set minut = minut + 3
  318. set hapri = 1
  319. act 'View results':dynamic $striptoilet
  320. end
  321. end
  322. if mop!1:
  323. act 'wash off makeup':
  324. cla
  325. *clr
  326. minut+=5
  327. mop=1
  328. '<center><img src="pic/mop.jpg" ></center>'
  329. 'You washed the makeup.'
  330. act 'Go_Out':dynamic $striptoilet
  331. end
  332. end
  333. if mop = 1 and kosmetica > 0:
  334. act 'apply Makeup':
  335. cla
  336. *clr
  337. '<center><img src="pic/mop.jpg" ></center>'
  338. act 'light makeup':
  339. cla
  340. set minut = minut + 3
  341. set kosmetica = kosmetica - 1
  342. set mop = 2
  343. 'You lightly summed eyes and a little lipstick.'
  344. act 'Go_Out':dynamic $striptoilet
  345. end
  346. if kosmetica >= 2:
  347. act 'normal makeup':
  348. cla
  349. set minut = minut + 5
  350. set kosmetica = kosmetica - 2
  351. set mop = 3
  352. 'You lipstick, summed up the eyes and eyelids.'
  353. act 'Go_Out':dynamic $striptoilet
  354. end
  355. end
  356. if kosmetica >= 3:
  357. act 'The caller makeup':
  358. cla
  359. set minut = minut + 10
  360. set kosmetica = kosmetica - 3
  361. set vidageday = vidageday - 1
  362. set mop = 4
  363. 'You densely nakrasili eyes, imposed shadows and mascara , nakrasili lip contour pencil and lipstick.'
  364. act 'Go_Out':dynamic $striptoilet
  365. end
  366. end
  367. end
  368. end
  369. act 'take a shower 15 min':
  370. cla
  371. *clr
  372. set minut = minut + 15
  373. set sweat = -3
  374. set horny = horny + 1
  375. set hapri = 0
  376. set mop = 1
  377. set cumpussy = 0
  378. set cumbelly = 0
  379. set cumass = 0
  380. set cumanus = 0
  381. set cumlip = 0
  382. set cumface = 0
  383. set cumanus =0
  384. '<center><img src="pics/dush.jpg" ></center>'
  385. 'You got into the bathroom and turned on the shower. Soaped and washed the body in the shower.'
  386. if leghair > 0 and stanok > 0 or lobok > 0 and stanok > 0:
  387. act 'get razor':dynamic $striptoilet2
  388. end
  389. if horny >= 90:
  390. act 'Send a shower pussy':
  391. cla
  392. *clr
  393. set horny = 0
  394. set minut = minut + 30
  395. set mastr = mastr + 1
  396. set orgasm = orgasm + 1
  397. set manna = manna + 15
  398. set willpower = willpower + 15
  399. '<center><img src="pics/wash2.jpg" ></center>'
  400. 'You sent a shower pussy and tight jet of warm water began to caress you. Soon you will feel like a warm wave covers your whole body and you start to shudder in orgasm.'
  401. act 'Out of the bathroom and get dressed':dynamic $striptoilet
  402. end
  403. end
  404. if horny >= 40 and hormy < 90:
  405. act 'Send a shower pussy':
  406. cla
  407. *clr
  408. set horny = horny + 5
  409. set minut = minut + 30
  410. set manna = manna + 10
  411. set willpower = willpower + 10
  412. '<center><img src="pics/wash2.jpg" ></center>'
  413. 'You sent a shower pussy and tight jet of warm water began to caress you. First, but after a while it became even as it hurts. Excitation asleep and you stop masturbating.'
  414. act 'Out of the bathroom and get dressed':dynamic $striptoilet
  415. end
  416. end
  417. act 'Get out of the shower and get dressed':dynamic $striptoilet
  418. end
  419. >>>>>>> 362_stwork
  420. <<<<<<< 362_stwork
  421. if cumpussy > 0 or cumbelly > 0 or cumass > 0 or cumanus > 0:
  422. act 'Wash up (0:15)':
  423. cla
  424. *clr
  425. set cumpussy = 0
  426. set cumbelly = 0
  427. set cumass = 0
  428. set cumanus =0
  429. set cumlip = 0
  430. set cumface = 0
  431. set sweat -= 1
  432. set minut += 15
  433. '<center><img src="images\pics\wash5.jpg"></center>'
  434. 'You carefully washed sperm with yourself.'
  435. act 'Exit': dynamic $striptoilet
  436. end
  437. =======
  438. if cumpussy > 0 or cumbelly > 0 or cumass > 0 or cumanus >0:
  439. act 'substitution 15 min':
  440. cla
  441. *clr
  442. set cumpussy = 0
  443. set cumbelly = 0
  444. set cumass = 0
  445. set cumanus =0
  446. set cumlip = 0
  447. set cumface = 0
  448. set sweat = sweat - 1
  449. set minut = minut + 15
  450. '<center><img src="pics/wash5.jpg" ></center>'
  451. 'You carefully washed sperm with yourself.'
  452. act 'Go_Out':dynamic $striptoilet
  453. end
  454. >>>>>>> 362_stwork
  455. end
  456. if cumlip > 0 or cumface > 0:
  457. <<<<<<< 362_stwork
  458. act 'Wash cum off face (0:15)':
  459. cla
  460. *clr
  461. set cumlip = 0
  462. set cumface = 0
  463. set sweat -= 1
  464. set minut += 15
  465. '<center><img src="images\etogame\facesp.jpg"></center>'
  466. 'You carefully washed sperm from her face.'
  467. act 'Exit': dynamic $striptoilet
  468. end
  469. =======
  470. act 'Wash off with facial cum 15 min':
  471. cla
  472. *clr
  473. set cumlip = 0
  474. set cumface = 0
  475. set sweat = sweat - 1
  476. set minut = minut + 15
  477. '<center><img src="pic/facesp.jpg" ></center>'
  478. 'You carefully washed sperm from the face.'
  479. act 'Go_Out':dynamic $striptoilet
  480. end
  481. >>>>>>> 362_stwork
  482. end
  483. if cumfrot > 0:
  484. <<<<<<< 362_stwork
  485. act 'Wipe the cum from clothing (0:15)':
  486. cla
  487. *clr
  488. set cumfrot = 0
  489. set sweat -= 1
  490. set minut += 15
  491. !'<center><img src="images\etogame\facesp.jpg"></center>'
  492. 'You erase traces of semen from the clothes.'
  493. act 'Exit': dynamic $striptoilet
  494. end
  495. =======
  496. act 'Wipe the cum from clothes 15 min':
  497. cla
  498. *clr
  499. set cumfrot = 0
  500. set sweat = sweat - 1
  501. set minut = minut + 15
  502. !'<center><img src="pic/facesp.jpg" ></center>'
  503. 'You have erased the traces of semen from clothing.'
  504. act 'Go_Out':dynamic $striptoilet
  505. end
  506. >>>>>>> 362_stwork
  507. end
  508. <<<<<<< 362_stwork
  509. act 'Off the toilet': gt $curloc,'start'
  510. =======
  511. act 'Exit out of the closet':gt $curloc,'start'
  512. >>>>>>> 362_stwork
  513. }
  514. end
  515. --- stwork ---------------------------------