244_gdksport 52 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305
  1. # gdksport
  2. <<<<<<< 244_gdksport
  3. $din_go_to_home_dance = {
  4. act 'Drive back':
  5. cls
  6. minut += 15
  7. gs 'stat'
  8. 'You called a taxi and you brought back to town.'
  9. if cumface > 0: cumface = 0 & 'Along the way you wiped the sperm from the face wipes.'
  10. act 'Leave': gt 'gorodok'
  11. end
  12. =======
  13. $din_go_to_home_dance={
  14. act 'drive back':
  15. cls
  16. minut+=15
  17. gs'stat'
  18. 'You called a taxi and you have brought back to town.'
  19. if cumface>0:cumface=0&'Along the way you have erased from the face of sperm napkins.'
  20. act 'Get_Away':gt'gorodok'
  21. end
  22. >>>>>>> 244_gdksport
  23. }
  24. <<<<<<< 244_gdksport
  25. $din_beg_gor_sec = {
  26. cls
  27. gs 'stat'
  28. 'Aboniment section running costs 100 rubles for 30 days.'
  29. if money >= 100 and gsAboBeg <= 0:
  30. act 'Buy a subscription to the running section 100 rubles':
  31. cls
  32. money -= 100
  33. gsAboBeg += 30
  34. gs 'stat'
  35. 'You bought a ticket for 30 visits section running.'
  36. act 'Exit': gt 'gdksport'
  37. end
  38. end
  39. act 'Exit': gt 'gdksport'
  40. }
  41. $din_dance_gor_sec = {
  42. cls
  43. gs 'stat'
  44. 'Aboniment section running costs 100 rubles for 30 days.'
  45. if money >= 100 and gsAboDance <= 0:
  46. act 'Buy a ticket to the dance 100 rubles':
  47. cls
  48. money -= 100
  49. gsAboDance += 30
  50. gs 'stat'
  51. 'You bought a ticket for 30 visits dance section.'
  52. act 'Exit': gt 'gdksport'
  53. end
  54. end
  55. act 'Exit': gt 'gdksport'
  56. }
  57. $din_voll_gor_sec = {
  58. cls
  59. gs 'stat'
  60. 'Aboniment section volleyball costs 300 rubles for 30 days.'
  61. if money >= 300 and gsAboVolley <= 0:
  62. act 'Buy a subscription for 300 rubles volleyball':
  63. cls
  64. money -= 300
  65. gsAboVolley += 30
  66. gs 'stat'
  67. 'You bought a ticket for 30 visits section volleyball.'
  68. act 'Exit': gt 'gdksport'
  69. end
  70. end
  71. act 'Exit': gt 'gdksport'
  72. =======
  73. $din_beg_gor_sec={
  74. cls
  75. gs'stat'
  76. 'Subscriptions section running costs 100 rubles, to 30 days.'
  77. if money>=100 and gsAboBeg<=0:
  78. act'Buy a subscription to the section of the run 100 RUB':
  79. cls
  80. money-=100
  81. gsAboBeg+=30
  82. gs'stat'
  83. 'You bought a subscription for 30 Attendance section running.'
  84. act'Go_Out':gt'gdksport'
  85. end
  86. end
  87. act'Go_Out':gt'gdksport'
  88. }
  89. $din_dance_gor_sec={
  90. cls
  91. gs'stat'
  92. 'Subscriptions section running costs 100 rubles 10 days.'
  93. if money>=100 and gsAboDance<=0:
  94. act'Buy a subscription to the dance 100 RUB':
  95. cls
  96. money-=100
  97. gsAboDance+=10
  98. gs'stat'
  99. 'You bought a subscription for 10 Attendance section of dance.'
  100. act'Go_Out':gt'gdksport'
  101. end
  102. end
  103. act'Go_Out':gt'gdksport'
  104. }
  105. $din_voll_gor_sec={
  106. cls
  107. gs'stat'
  108. 'Subscriptions section volleyball worth 300 rubles 30 days.'
  109. if money>=300 and gsAboVolley<=0:
  110. act'Buy a subscription for volleyball 300 RUB':
  111. cls
  112. money-=300
  113. gsAboVolley+=30
  114. gs'stat'
  115. 'You bought a subscription for 30 Attendance section volleyball.'
  116. act'Go_Out':gt'gdksport'
  117. end
  118. end
  119. act'Go_Out':gt'gdksport'
  120. >>>>>>> 244_gdksport
  121. }
  122. $metkaM = $ARGS[0]
  123. $locM = $CURLOC
  124. $metka = $ARGS[0]
  125. $loc = $CURLOC
  126. <<<<<<< 244_gdksport
  127. gs 'stat'
  128. fcolor = rgb(0,0,0)
  129. bcolor = rgb(255,255,255)
  130. LCOLOR = rgb(106,90,205)
  131. '<center><B><font color = maroon>House of Culture</font></B></center>'
  132. '<center><img src="images\qwest\alter\gdksport.jpg"></center>'
  133. 'The house work culture section <a href="exec:dynamic $din_beg_gor_sec">Racing</a>, <a href="exec:dynamic $din_dance_gor_sec">Dance</a> and <a href="exec:dynamic $din_voll_gor_sec">Volleyball</a>. Subscribe to 30 visits costs 100 rubles.'
  134. if kotovLoveQW > 0 and hour = 16:
  135. 'Do you see how the club is included <a href="exec:minut += 3 & GT ''kotovEv''">Vitek Kotov</a> with a large sports bag'
  136. end
  137. if grupNPC[3] >= 80 and hour = 17 and ivansportday ! day:
  138. 'Do you see how the club included <a href="exec:minut += 3 & GT ''IvanEv''">Ivan Prokhorov</a> with a large sports bag'
  139. end
  140. if grupNPC[5] >= 80 and fedorKozlovQW = 0 and GorSlut = 0 and UNSTARTER = 1:
  141. !ивент не должен стартовать так как не закончен
  142. cls
  143. fedorKozlovQW = 1
  144. gs 'stat'
  145. numnpc = 5
  146. '<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
  147. '<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
  148. 'The club you unexpectedly met Fedor Kozlov in your class. He smiled affably you "Hello <<$name>>. Hmm ... Here is the deal ... I have an extra ticket to the movies. Let´s go together."'
  149. act 'Refuse':
  150. cls
  151. grupNPC[5] = 40
  152. gs 'stat'
  153. '<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
  154. '<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
  155. 'You refused to Fedor referring to employment. Fedor frowned. "Okay. Whereas some other time."'
  156. act 'Leave': gt 'gdksport'
  157. end
  158. act 'Agree':
  159. cls
  160. fedorKozlovQW = 10
  161. grupNPC[5] = 100
  162. minut += 15
  163. gs 'stat'
  164. '<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
  165. '<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
  166. 'You agreed and delighted Fedor took you to a movie theater located in the park.'
  167. act 'Watch a movie':
  168. cls
  169. minut += 100
  170. manna += 100
  171. gs 'stat'
  172. '<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
  173. '<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
  174. 'Fedor gave tickets at the entrance and you went into the hall. Soon the lights went out and started the movie. Fedor sat motionless and only occasionally glancing at you. Movie was quite interesting and you watched it with pleasure. When the movie ended, the hall lights were turned on and Fedor became accompany you. "<<$name>>. I like you. Maybe we could meet?"'
  175. act 'Refuse':
  176. cls
  177. grupNPC[5] = 40
  178. fedorKozlovQW = 2
  179. minut += 15
  180. gs 'stat'
  181. '<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
  182. '<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
  183. 'You refused to meet with him to Fedor and was invited to stay friends. Fedor visibly upset and silently carried you home.'
  184. act 'Leave': gt 'gorodok'
  185. end
  186. act 'Agree':
  187. cls
  188. minut += 15
  189. gs 'stat'
  190. '<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
  191. '<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
  192. 'You have agreed to meet with Fedor. Fedor was visibly delighted and escort you to the house on the way you viewed fun discussing movies.'
  193. act 'Leave': gt 'gorodok'
  194. end
  195. end
  196. end
  197. =======
  198. gs'stat'
  199. fcolor=rgb(0,0,0)
  200. bcolor=rgb(255,255,255)
  201. LCOLOR = rgb(106,90,205)
  202. '<center><B><font color=maroon>The House of Culture</font></B></center>'
  203. '<center><img src="qwest/alter/gdksport.jpg" ></center>'
  204. 'The house work culture section, <a href="exec:dynamic $din_beg_gor_sec">running</a>, <a href="exec:dynamic $din_dance_gor_sec">dance</a> and <a href="exec:dynamic $din_voll_gor_sec">volleyball</a>. Subscribe to 30 Attendance costs 100 rubles.'
  205. if kotovLoveQW>0 and hour=16:
  206. 'You can see both the club included <a href="exec:minut+=3&GT ''kotovEv''">Vitek Cats</a> with a duffel bag'
  207. end
  208. if grupNPC[3]>=80 and hour=17 and ivansportday!day:
  209. 'You can see both the club included <a href="exec:minut+=3&GT ''IvanEv''">Ivan Prokhorov</a> with a duffel bag'
  210. end
  211. if grupNPC[5]>=80 and fedorKozlovQW=0 and GorSlut=0 and UNSTARTER=1:
  212. !event does not have to start over because they do not
  213. cls
  214. fedorKozlovQW=1
  215. gs'stat'
  216. numnpc=5
  217. '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
  218. '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
  219. 'In the club you unexpectedly met Fedor Kozlov in your class. He smiled affably you "Hello World. Hmm... Here is the deal... I have an extra ticket to the cinema. Let`s come together."'
  220. act'Turn_Down':
  221. cls
  222. grupNPC[5]=40
  223. gs'stat'
  224. '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
  225. '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
  226. 'You refused to Fedor referring to employment. Fyodor frowned. "Well. Whereas some other time."'
  227. act 'Get_Away':gt'gdksport'
  228. end
  229. act'agree':
  230. cls
  231. fedorKozlovQW=10
  232. grupNPC[5]=100
  233. minut+=15
  234. gs'stat'
  235. '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
  236. '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
  237. 'You agree and delighted Fedor took you to a movie theater located in the park.'
  238. act'watch movies':
  239. cls
  240. minut+=100
  241. manna+=100
  242. gs'stat'
  243. '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
  244. '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
  245. 'Fyodor gave the tickets at the entrance . Soon the lights went out and started a movie. Theodore sat motionless and only occasionally glancing at you. Cinema was quite interesting and you enjoy it looked. When the movie was over, in the hall lights were turned on and Fedor became accompany you. "Sveta. I like you. Maybe we could meet?"'
  246. act'Turn_Down':
  247. cls
  248. grupNPC[5]=40
  249. fedorKozlovQW=2
  250. minut+=15
  251. gs'stat'
  252. '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
  253. '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
  254. 'You refused to meet with Fedor and offered him to stay friends. Fedor visibly upset and silently carried you home.'
  255. act 'Get_Away':gt'gorodok'
  256. end
  257. act'agree':
  258. cls
  259. minut+=15
  260. gs'stat'
  261. '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
  262. '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
  263. 'You agreed to meet with Fedor. Fedor was visibly delighted and escort you to the house on the way of fun discussing viewed your movie.'
  264. act 'Get_Away':gt'gorodok'
  265. end
  266. end
  267. end
  268. >>>>>>> 244_gdksport
  269. exit
  270. end
  271. <<<<<<< 244_gdksport
  272. act 'Exit': gt 'gdk'
  273. if albinaQWdance > 0 or gsAboDance > 0 or gsAboBeg > 0 or gsAboVolley > 0:
  274. act 'Change clothes in the locker room': gt 'loker','start'
  275. if sweat >= 0:
  276. act 'Wash in the shower':
  277. cls
  278. dynamic $showerdin
  279. minut += 15
  280. set horny += 1
  281. set hapri = 1
  282. set mop = 1
  283. if sweat > -3: set sweat = -3
  284. if frost > 0: frost = 0
  285. gs 'stat'
  286. '<center><img src="images\pics\dush.jpg"></center>'
  287. if kotovVSprohorov = 1:
  288. kotovVSprohorov = 2
  289. 'You entered the women´s shower and turning the water began to lather your body washcloth. Suddenly, the door creaked and you remember that you forgot to close it. You looked back and saw that standing in the doorway Ivan Prokhorov and treat you. "Hi Svetsik. Can I join? And then the men´s shower place." Ivan smiled after these words.'
  290. act 'expel Ivan':
  291. cls
  292. IvanShowerQW = 1
  293. gs 'stat'
  294. '<center><img src="images\pics\dush.jpg"></center>'
  295. 'You covered the chest hand and the other hand launched a washcloth in Ivan. He easily dodged the flying sponges and laughter came out of the shower. You locked the door and quickly domylis shower.'
  296. act 'Get out of the shower': gt $locM, $metkaM
  297. end
  298. act 'Uh, what?':
  299. cls
  300. gs 'stat'
  301. '<center><img src="images\pics\dush.jpg"></center>'
  302. 'Were you surprised like, and your insecurities Ivan regarded as consent. He went into the shower and closed the door behind him.'
  303. act 'Escape from the shower': IvanShowerQW = 1 & gt $locM, $metkaM
  304. act 'bathe together':
  305. cls
  306. minut += 5
  307. horny += 10
  308. gs 'stat'
  309. '<center><img src="images\pics\dush.jpg"></center>'
  310. 'Ivan took off his boxer shorts and went under a jet shower. His muscular body was very close to yours. You tried not to look at him but his eyes involuntarily dropped to his groin where hung thick cock. Ivan winked "Want to soap?"'
  311. act 'lather Ivan':
  312. cls
  313. minut += 5
  314. horny += 20
  315. gs 'stat'
  316. '<center><img src="images\qwest\alter\ev\shower.jpg"></center>'
  317. 'You took a washcloth and began to lather body of Ivan. His cock began to get up and touched your thigh. Ivan began to hug you and caress your body with your hands.'
  318. act 'give blowjob':
  319. cls
  320. minut += 5
  321. horny += 20
  322. bj += 1
  323. if npcSex[3] = 0: npcSex[3] = 1 & guy += 1
  324. gs 'stat'
  325. '<center><img src="images\qwest\alter\ev\shover.jpg"></center>'
  326. 'You slowly sank to his knees in front of Ivan and his cock was in front of your face. Ivan spent impatiently you head lips mouth open and you let his cock. Your lips tightly wraps solid rod Ivan and you sucked in the shower under the streams of water. Suddenly Ivan took a member of your mouth and taking you by the hand raised to his feet, he dug his lips to your breast and began to suck. You swept bliss. Ivan turned your back to him and pushed you back.'
  327. act 'stand cancer':
  328. cls
  329. IvanShowerQW = 10
  330. minut += 5
  331. horny += 20
  332. $boy = 'Ivan'
  333. dick = 17
  334. gs 'stat'
  335. '<center><img src="images\qwest\alter\ev\shover2.jpg"></center>'
  336. 'You bent over and felt the hand of Ivan stroking your ass and anus.'
  337. lubonus = 10
  338. dynamic $analsex
  339. 'Ivan pulls a member of your buttocks and you feel like you are on the back and buttocks land warm trickle of sperm.'
  340. act 'Get out of the shower': gt $locM, $metkaM
  341. end
  342. end
  343. end
  344. end
  345. end
  346. exit
  347. end
  348. 'You entered the women´s shower and began soaping his body washcloth. After washed soap and washed hair with shampoo. Rinse off the shampoo you become completely clean. After showering you comb your hair and dressed.'
  349. act 'Get out of the shower': gt $locM, $metkaM
  350. end
  351. end
  352. end
  353. if hour >= 16 and hour <= 20:
  354. if albinaQWdance > 0 and AlbinaBlokDance = 0 and ZvezdEnd = 0:
  355. if sport > 0:
  356. act 'Train with Zvezdushkami':
  357. cls
  358. set minut += 120
  359. set fat -= 5
  360. agil+= RAND(1,3)
  361. set manna -= 5
  362. set sweat += 3
  363. dancePRO += RAND(1,3)
  364. gs 'stat'
  365. '<center><img src="images\etogame\fit1.jpg"></center>'
  366. if dancePRO < 20:
  367. sub += 1
  368. 'You train together with sex of "Zvezdushek", you get bad and Albina constantly yelling at you and calling them bowlegged kolkhoz.'
  369. end
  370. if dancePRO >= 20 and dancePRO < 40:
  371. sub += 1
  372. 'You train together with sex of "Zvezdushek" you sometimes get something, but most movements by Albina constantly yelling at you and calling them bowlegged kolkhoz.'
  373. end
  374. if dancePRO >= 40 and dancePRO < 60:
  375. 'You train together with sex of "Zvezdushek" you dance with sex getting in the general rhythm, but not happy Albina "<<$name>>, very sluggish, more life."'
  376. end
  377. if dancePRO >= 60 and dancePRO < 80:
  378. 'You train together with sex of "Zvezdushek" you normally get all but Albina regularly you niggles "<<$name>>, you are not at the funeral, raise your head and smile!"'
  379. end
  380. if dancePRO >= 80:
  381. 'You dance beautifully and Albina you start to put an example to other girl.'
  382. stardance += 1
  383. if stardance < 10:
  384. if otkazDanceWhore > 0 and AlbinaLast > 0:
  385. AlbinaBlokDance = 1
  386. 'After training Albina withdraws you aside and starts berating. "You roundnose Kolhoz. Because of you I am losing customers. So fuck off, you are no longer uchavstvuesh in the team."'
  387. end
  388. if otkazDanceWhore > 0 and AlbinaLast = 0:
  389. AlbinaLast = 1
  390. otkazDanceWhore = 0
  391. if AlbFather = 0: AlbFather = 1
  392. 'After training Albina withdraws you aside and starts berating. "I know you´re young and stupid, but I explain to you in the first and last time. Again swept me with clients fly from Zvezdushek miserably. Entertain men is part of the business."'
  393. end
  394. if DanceWhoreT > 0:
  395. DanceWhoreT = 0
  396. if AlbFather = 0: AlbFather = 1
  397. 'Albina after training beckons you to her. "Good <<$name>>. Communicating with men of the business. Main keep his mouth shut. You´re doing fine, doing well. Stick with me and you will have all the money, cars and apartments."'
  398. end
  399. end
  400. if stardance >= 10:
  401. stardance = 0
  402. albpayrand = RAND(1,5)
  403. 'Albina gathered girls. Today small halturka planned. Each will receive <<albpayrand*1000>> per job. The matter for a couple of hours.'
  404. act 'Go part time':
  405. cls
  406. minut += 120
  407. money += albpayrand * 1000
  408. if sweat > -3: set sweat = -3
  409. profiDanceTime += 1
  410. gs 'stat'
  411. 'You agreed and Albina phoned by phone. Soon the car came up to you. You sank with sex in the car and went somewhere. Soon you come to what that home in a large hall where people were sitting and pointed. You are dressed in costumes who sewed commissioned Albina, and went on stage to dance to the fiery music. You danced very well and everything went smoothly. You left the stage and Albina distributed money. You take turns on bystrenkomu took a shower.'
  412. if vnesh >= 13:
  413. if vnesh < 16: wealthmanrand = RAND(0,15)
  414. if vnesh >= 16 and vnesh < 18: wealthmanrand = RAND(0,12)
  415. if vnesh >= 18: wealthmanrand = RAND(0,10)
  416. if wealthmanrand = 0:
  417. kolvomanparty = 1
  418. danceWhorePay = RAND(3,8)
  419. 'You see how a man came to Albina in a decent suit and began about something with her to talk quietly.'
  420. end
  421. if wealthmanrand = 1:
  422. kolvomanparty = 2
  423. danceWhorePay = RAND(5,10)
  424. 'You see how to Albina approached by two guys and started about something to talk to her.'
  425. end
  426. if wealthmanrand = 2:
  427. kolvomanparty = 1
  428. danceWhorePay = RAND(4,9)
  429. 'You see how to Albina came Caucasian and became what it is talking to her gesticulating.'
  430. end
  431. if wealthmanrand = 3:
  432. kolvomanparty = 2
  433. danceWhorePay = RAND(6,12)
  434. 'You see how to Albina came two Caucasians and become about something to talk to her.'
  435. end
  436. if wealthmanrand = 4:
  437. kolvomanparty = 3
  438. danceWhorePay = RAND(8,14)
  439. 'You see how to Albina came three Caucasians and became what it is talking to her.'
  440. end
  441. if wealthmanrand = 5:
  442. kolvomanparty = 1
  443. danceWhorePay = RAND(5,10)
  444. 'You see as a Negro came Albina and became about something to talk to her.'
  445. end
  446. if wealthmanrand = 6:
  447. kolvomanparty = 2
  448. danceWhorePay = RAND(7,15)
  449. 'You see how to Albina approached two blacks and became what it is talking to her.'
  450. end
  451. if wealthmanrand = 7:
  452. kolvomanparty = 3
  453. danceWhorePay = RAND(10,20)
  454. 'You see how to Albina approached three blacks and became what it is talking to her.'
  455. end
  456. if wealthmanrand <= 7:
  457. 'After talking Albina came to you. "<<$name>>, need to talk."'
  458. act 'About what?':
  459. cls
  460. minut += 15
  461. gs 'stat'
  462. 'You asked Albina what she wanted to talk.'
  463. if kolvomanparty = 1: 'Albina came closer to you and quietly began to speak, "You see this guy? If you stay with him for an hour and be affectionate, you will be able to earn not bad. Obtain <<danceWhorePay*1000>> rubles."'
  464. if kolvomanparty > 1: 'Albina came closer to you and quietly began to speak, "You see these guys? If you stay with them for a couple of hours and be affectionate, you will be able to earn not bad. Obtain <<danceWhorePay*1000>> rubles."'
  465. act 'Cancel and go back':
  466. cls
  467. minut += 15
  468. otkazDanceWhore += 1
  469. DanceWhoreT = 0
  470. gs 'stat'
  471. 'You got in the car and soon, along with sex you brought back to town.'
  472. act 'Leave': gt 'gorodok'
  473. end
  474. act 'Agree':
  475. cls
  476. money += danceWhorePay * 1000
  477. DanceWhore += 1
  478. DanceWhoreT += 1
  479. otkazDanceWhore = 0
  480. slutty += 1
  481. gs 'stat'
  482. 'You agreed and Albina you counted the money.'
  483. if wealthmanrand = 0: act 'Go with a man': gt 'DanceWhore1'
  484. if wealthmanrand = 1: act 'Go with men': gt 'DanceWhore2'
  485. if wealthmanrand = 2: act 'Go in Caucasians': gt 'DanceWhore3'
  486. if wealthmanrand = 3: act 'Go with Caucasians': gt 'DanceWhore4'
  487. if wealthmanrand = 4: act 'Go with Caucasians': gt 'DanceWhore5'
  488. if wealthmanrand = 5: act 'Start with a black man': gt 'DanceWhore6'
  489. if wealthmanrand = 6: act 'Go with blacks': gt 'DanceWhore7'
  490. if wealthmanrand = 7: act 'Go with blacks': gt 'DanceWhore8'
  491. end
  492. end
  493. exit
  494. end
  495. end
  496. if vnesh < 13:
  497. 'After dancing Albina talked with some sort of men and what is agreed.'
  498. end
  499. act 'Drive back':
  500. cls
  501. minut += 15
  502. gs 'stat'
  503. 'You got in the car and soon, along with sex you brought back to town.'
  504. act 'Leave': gt 'gorodok'
  505. end
  506. end
  507. end
  508. end
  509. act 'Leave': gt 'gdksport'
  510. end
  511. end
  512. end
  513. if gsAboDance > 0:
  514. if sport > 0:
  515. act 'Section dance ticket is valid for <<gsAboDance>> visits':
  516. cla
  517. *clr
  518. gsAboDance -= 1
  519. set minut += 120
  520. set fat -= 5
  521. agil+= RAND(1,3)
  522. set manna -= 5
  523. set sweat += 3
  524. dance += RAND(5,15)
  525. gs 'stat'
  526. '<center><img src="images\etogame\fit1.jpg"></center>'
  527. if dance < 100: 'You studied modern dance club, which is very popular in discos.'
  528. if dance >= 100:
  529. 'Podcherpnut you tried something new in modern club dancing, but you all already know it.'
  530. if albinaQWdance = 0 and StoryLine > 0:
  531. 'When the training is over you noticed how the room got a few girls and Albina Barlovskaya. Albina odnoklasnitsa you, but you almost nothing about her know.'
  532. act 'Say hello to Albina':
  533. cls
  534. gs 'stat'
  535. numnpc = 23
  536. '<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
  537. '<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
  538. 'You are greeted with Albina. She raised an eyebrow haughtily. "And it´s you.''s Your name there? Oh yeah <<$name>>. Did you? Zanimaeshsya Dancing?" You nodded confirming the obvious. Albina dismissive laugh. "Well, how´s it going?" You said coldly Albina "Not bad." Albina gave you look arrogant "Not bad? Well, maybe in comparison with other local bowlegged and not bad. But I doubt that you can dance on a more or less professional level."'
  539. act 'I do not care.':
  540. cls
  541. numnpc = 23
  542. dom += 1
  543. grupNPC[numnpc] -= 5
  544. gs 'stat'
  545. '<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
  546. '<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
  547. 'You said scornfully as possible that you do not care and turned away from Albina. She said with a giggle. "Girls. Let´s train."'
  548. act 'Leave': gt 'gdk'
  549. end
  550. act 'I know how to dance.':
  551. cls
  552. numnpc = 23
  553. !dom += 1
  554. !grupNPC[numnpc] -= 5
  555. gs 'stat'
  556. '<center><B><font color = maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
  557. '<center><img src="images\qwest\alter\npc<<numnpc>>.jpg"></center>'
  558. 'Albina you already began to annoy his arrogance. And you told her firmly that you know how to dance. Albina turned to the girls who came to her and said. "Girls. Let´s train." Then she turned to you and said with a slight grin. "You can sit and watch as the dance pros. Itself will understand everything"'
  559. act 'Leave': gt 'gdk'
  560. act 'Watch.':
  561. cls
  562. minut += 15
  563. gs 'stat'
  564. 'Girls included stereo and started dancing. You once it became clear that they dance very well and professionally. You can hardly so. Albina also dances much better than you. And indeed very concerted action girls and waste, apparently they do not work out this dance for the first time. When the music ended Albina said, "Girls. While a little break." She came to you and said a little breathlessly, "We are the pros. We spent a dance troupe Zvezdushki. Dancing on holidays. Even in a music video filming."'
  565. act 'Leave': gt 'gdk'
  566. act 'Ask for them in the community.':
  567. cls
  568. minut += 15
  569. gs 'stat'
  570. 'You are asked to dance group. Albina grinned "Can you? We then have all worked. Though vprchem. Show how you know how to dance." Albina included music and girls gathered to look at your dance.'
  571. act 'Dance.':
  572. cls
  573. minut += 5
  574. gs 'stat'
  575. 'You began to dance to the music, trying as much as possible. When the music stopped you came Albina. "Collective Farm Style course. But nothing, you have some potential."'
  576. act 'Well take me to your team?':
  577. cls
  578. albinaQWdance = 1
  579. minut += 5
  580. gs 'stat'
  581. 'You asked Albina, if she would take you to their team. Albina thought and answered you. "Okay, take it. Maybe from you and get anything worthwhile."'
  582. act 'Leave': gt 'gdk'
  583. end
  584. end
  585. end
  586. end
  587. end
  588. end
  589. end
  590. end
  591. act 'Leave': gt 'gdksport'
  592. end
  593. else
  594. 'You are not dressed in sportswear.'
  595. end
  596. end
  597. if gsAboBeg > 0:
  598. if sport > 0:
  599. act 'Section races, subscription is valid for <<gsAboBeg>> visits':
  600. cla
  601. *clr
  602. gsAboBeg -= 1
  603. set minut += 120
  604. set speed += RAND(1,3)
  605. set manna -= 5
  606. set fat -= 5
  607. set sweat += 3
  608. set beg += RAND(3,6)
  609. gs 'stat'
  610. '<center><img src="images\etogame\parkbeg.jpg"></center>'
  611. 'You do run for two hours.'
  612. act 'Leave': gt 'gdksport'
  613. end
  614. else
  615. 'You are not dressed in sportswear.'
  616. end
  617. end
  618. if gsAboVolley > 0 and volleysostav = 0:
  619. if sport > 0:
  620. if week ! 5:
  621. act 'Section volleyball ticket is valid for <<gsAboVolley>> visits':
  622. cla
  623. *clr
  624. gsAboVolley -= 1
  625. set minut += 120
  626. set speed += RAND(1,3)
  627. agil += RAND(1,3)
  628. stren += RAND(1,3)
  629. vital += RAND(1,3)
  630. set manna -= 5
  631. set fat -= 5
  632. set sweat += 3
  633. set beg += RAND(1,2)
  634. volleyboll += 1
  635. gs 'stat'
  636. '<center><img src="images\qwest\alter\gdksport.jpg"></center>'
  637. 'At the beginning of the workout you ran a few laps around the room. After you press the jog and do abdominal exercises. Then began to practice reception and feeding the ball.'
  638. act 'Leave': gt 'gdksport'
  639. act 'Go to coaching': gt 'Voltrener'
  640. end
  641. end
  642. if week = 5:
  643. act 'Section volleyball ticket is valid for <<gsAboVolley>> visits':
  644. cla
  645. *clr
  646. gsAboVolley -= 1
  647. set minut += 120
  648. set speed += RAND(1,3)
  649. agil += RAND(1,3)
  650. stren += RAND(1,3)
  651. vital += RAND(1,3)
  652. set manna -= 5
  653. set fat -= 5
  654. set sweat += 3
  655. set beg += RAND(1,2)
  656. volleyboll += 1
  657. dom += 1
  658. gs 'stat'
  659. '<center><img src="images\qwest\alter\gdksport.jpg"></center>'
  660. 'Fridays are usually held as the game in which to discover strengths and talented athletes.'
  661. if volleyboll < 25:
  662. 'You are absolutely lousy play and constantly mistaken. Finally nerves coach not stand up and it removes you from the field.'
  663. end
  664. if volleyboll >= 25 and volleyboll < 50:
  665. 'You do not play very much. Sometimes make blunders. Coach is angry, but tolerates your antics.'
  666. end
  667. if volleyboll >= 50 and volleyboll < 75:
  668. 'You play well on the field and rarely wrong. Coach looks pleased you.'
  669. end
  670. if volleyboll >= 75:
  671. 'You play great on the field, easily replaying their rivals. Coach looks pleased with your game.'
  672. end
  673. act 'Leave': gt 'gdksport'
  674. act 'Go to coaching': gt 'Voltrener'
  675. end
  676. end
  677. else
  678. 'You are not dressed in sportswear.'
  679. end
  680. end
  681. if volleysostav > 0:
  682. if sport > 0:
  683. if week ! 6:
  684. act 'To engage with the team':
  685. cla
  686. *clr
  687. set minut += 120
  688. set speed += RAND(1,3)
  689. agil += RAND(1,3)
  690. stren += RAND(1,3)
  691. vital += RAND(1,3)
  692. set manna -= 5
  693. set fat -= 5
  694. set sweat += 3
  695. set beg += RAND(1,2)
  696. volleyboll += 1
  697. trenerepa += 1
  698. gs 'stat'
  699. '<center><img src="images\qwest\alter\gdksport.jpg"></center>'
  700. 'At the beginning of the workout you ran a few laps around the room. After you press the jog and do abdominal exercises. Then began to practice reception and feeding the ball. At the end of the workout you had a game.'
  701. act 'Leave': gt 'gdksport'
  702. act 'Go to coaching': gt 'Voltrener'
  703. end
  704. end
  705. if week = 6:
  706. act 'Check out the competition with a team':
  707. cla
  708. *clr
  709. set minut += 180
  710. set speed += RAND(1,3)
  711. agil += RAND(1,3)
  712. stren += RAND(1,3)
  713. vital += RAND(1,3)
  714. set manna -= 5
  715. set fat -= 5
  716. set sweat += 3
  717. set beg += RAND(1,2)
  718. volleyboll += RAND(1,3)
  719. dom += 1
  720. trenerepa += 2
  721. gs 'stat'
  722. '<center><img src="images\qwest\alter\gdksport.jpg"></center>'
  723. 'On Saturday, as always, leaving the team to the competition.'
  724. if volleysostav = 1: 'You sit on the bench watching your team plays.'
  725. act 'Play': gt 'volley'
  726. end
  727. end
  728. else
  729. 'You are not dressed in sportswear.'
  730. end
  731. end
  732. else
  733. 'Sports clubs are closed.'
  734. end
  735. =======
  736. act'Go_Out':gt'gdk'
  737. if albinaQWdance>0 or gsAboDance>0 or gsAboBeg>0 or gsAboVolley>0:
  738. act'Change clothes in the locker room':gt 'loker','start'
  739. if sweat>=0:
  740. act'Wash in the shower':
  741. cls
  742. dynamic $showerdin
  743. minut+=15
  744. set horny = horny + 1
  745. set hapri = 1
  746. set mop = 1
  747. set sweat = -3
  748. if frost>0:frost=0
  749. gs'stat'
  750. '<center><img src="pics/dush.jpg" ></center>'
  751. if kotovVSprohorov=1:
  752. kotovVSprohorov=2
  753. 'You are logged into the women`s shower room and turned on the water began to lather your body washcloth. Suddenly the door creaked and you remembered, they forgot to close it. You looked around and saw, that stands on the threshold of Ivan Prokhorov and treats you. "Hello Svetsik. You can join? And all the men`s shower." Ivan smiled after these words.'
  754. act 'expel Ivan':
  755. cls
  756. IvanShowerQW=1
  757. gs'stat'
  758. '<center><img src="pics/dush.jpg" ></center>'
  759. 'You covered the chest and hand with the other hand washcloth launched in Ivan. He easily dodged the flying washcloths and laughter came out of the shower. You locked the door and quickly domylis shower.'
  760. act 'Get out of the shower':gt $locM, $metkaM
  761. end
  762. act 'uh, what?':
  763. cls
  764. gs'stat'
  765. '<center><img src="pics/dush.jpg" ></center>'
  766. 'Were you surprised like. He went into the shower and closed the door behind him.'
  767. act 'Escape from the shower':IvanShowerQW=1&gt $locM, $metkaM
  768. act 'bathe together':
  769. cls
  770. minut+=5
  771. horny+=10
  772. gs'stat'
  773. '<center><img src="pics/dush.jpg" ></center>'
  774. 'Ivan took off his boxer shorts and went under the shower stream. His muscular body was very close to your. You tried not to look at him but look involuntarily dropped to his groin, where hung thick dick. Ivan winked "want soap?"'
  775. act 'lather Ivan':
  776. cls
  777. minut+=5
  778. horny+=20
  779. gs'stat'
  780. '<center><img src="qwest/alter/ev/shower.jpg" ></center>'
  781. 'You took a washcloth and began soaping body Ivan. His cock began to get up and touched your thigh. Ivan hugged you and started to caress your body with your hands.'
  782. act 'do blowjob':
  783. cls
  784. minut+=5
  785. horny+=20
  786. bj+=1
  787. if npcSex[3]=0:npcSex[3]=1&guy+=1
  788. gs'stat'
  789. '<center><img src="qwest/alter/ev/shover.jpg" ></center>'
  790. 'You slowly sank to his knees in front of Ivan and his cock was in front of your face. Ivan impatiently head you spent on the lips and mouth open . Your lips tightly clasped solid rod Ivan and you suck in the shower under the streams of water. Ivan suddenly took out a member of your mouth and took you by the hand raised to his feet, He dug his lips to your breast and began to suck. You captured bliss. Ivan turned your back to him and pressed on your back.'
  791. act 'stand cancer':
  792. cls
  793. IvanShowerQW=10
  794. minut+=5
  795. horny+=20
  796. $boy='Ivan'
  797. dick=17
  798. gs'stat'
  799. '<center><img src="qwest/alter/ev/shover2.jpg" ></center>'
  800. 'You bent down and felt the hand of Ivan stroking your ass and anus.'
  801. lubonus=2
  802. dynamic $analsex
  803. 'Ivan pulls out a member of your priests .'
  804. act 'Get out of the shower':gt $locM, $metkaM
  805. end
  806. end
  807. end
  808. end
  809. end
  810. exit
  811. end
  812. 'You are logged into the women`s shower room and began to lather your body washcloth. After washed off the soap and washed her hair with shampoo. Rinse off the shampoo you become completely clean. After a shower.'
  813. act 'Get out of the shower':gt $locM, $metkaM
  814. end
  815. end
  816. end
  817. if hour>=16 and hour<=20:
  818. if albinaQWdance>0 and AlbinaBlokDance=0 and ZvezdEnd=0:
  819. if sport >0:
  820. act 'Train with Zvezdushkami':
  821. cls
  822. set minut = minut + 120
  823. set fat = fat - 5
  824. if agil<50:agil+= RAND (1,3)
  825. if agil>=50 and agil<80:agil+= RAND (0,2)
  826. if agil>=80:agil+= RAND (0,1)
  827. set manna = manna - 5
  828. set sweat = sweat + 3
  829. dancePRO+=RAND(1,3)
  830. gs'stat'
  831. '<center><img src="pic/fit1.jpg" ></center>'
  832. if dancePRO<20:
  833. sub+=1
  834. 'You train together with sex of "Zvezdushek", you get bad and Albina constantly screaming at you calling her bowlegged and Farmer.'
  835. end
  836. if dancePRO>=20 and dancePRO<40:
  837. sub+=1
  838. 'You train together with sex of "Zvezdushek", You sometimes it turns out that, but most of the movements by and Albina constantly screaming at you calling her bowlegged and Farmer.'
  839. end
  840. if dancePRO>=40 and dancePRO<60:
  841. 'You train together with sex of "Zvezdushek", you dance with sex getting in the general rhythm, Albina but not satisfied "Sveta, very sluggish, more life."'
  842. end
  843. if dancePRO>=60 and dancePRO<80:
  844. 'You train together with sex of "Zvezdushek", you normally get all but Albina regularly to you niggles "Sveta, you`re not at a funeral, raise your head and smile!"'
  845. end
  846. if dancePRO>=80:
  847. 'You dance beautifully and Albina start to put you into an example for other girls.'
  848. stardance+=1
  849. if stardance<10:
  850. if otkazDanceWhore>0 and AlbinaLast>0:
  851. AlbinaBlokDance=1
  852. 'After a workout. "You roundnose Collective Farm. I am because of you losing my customers. So I went out! You are no longer in the team uchavstvuesh."'
  853. end
  854. if otkazDanceWhore>0 and AlbinaLast=0:
  855. AlbinaLast=1
  856. otkazDanceWhore=0
  857. if AlbFather=0:AlbFather=1
  858. 'After a workout. "I understand, you`re young and stupid, But to explain to you in the first and last time. Once again I was swept with customers, Departure from Zvezdushek with a bang. Entertain men is part of the business."'
  859. end
  860. if DanceWhoreT>0:
  861. DanceWhoreT=0
  862. if AlbFather=0:AlbFather=1
  863. 'Albina after training beckons you to her. "Good for Light. Communication with men of the business. The main thing to keep his mouth shut. you`re doing fine, good job. Hold on to me and you will have all, money, machine, apartment."'
  864. end
  865. end
  866. if stardance>=10:
  867. stardance=0
  868. albpayrand=RAND(1,5)
  869. 'Albina gathered devchenok. Today. Each will receive <<albpayrand*1000>> rubles for a job. The matter for a couple of hours.'
  870. act 'Go part time':
  871. cls
  872. minut+=120
  873. money+=albpayrand*1000
  874. sweat=-3
  875. profiDanceTime+=1
  876. gs'stat'
  877. 'You agreed and phoned Albina by phone. Soon a car came up to you. You devchenki plunged into the car and went somewhere. Soon you come to what that home in the great hall where people sat and observed. You are dressed in costumes, who sewed commissioned Albina, and went on stage to dance to the fiery music. You danced very well and everything went smoothly. You left the stage and give the money to Albina. You take turns on bystrenkomu took a shower.'
  878. if vnesh>=13:
  879. if vnesh<16:wealthmanrand=RAND(0,15)
  880. if vnesh>=16 and vnesh<18:wealthmanrand=RAND(0,12)
  881. if vnesh>=18:wealthmanrand=RAND(0,10)
  882. if wealthmanrand=0:
  883. kolvomanparty=1
  884. danceWhorePay=RAND(3,8)
  885. 'You see how to Albina man came in a decent suit and began about something with it quietly talk.'
  886. end
  887. if wealthmanrand=1:
  888. kolvomanparty=2
  889. danceWhorePay=RAND(5,10)
  890. 'You see how to Albina was approached by two men and began about something to talk to her.'
  891. end
  892. if wealthmanrand=2:
  893. kolvomanparty=1
  894. danceWhorePay=RAND(4,9)
  895. 'You see how to Albina came Caucasian and became about something to talk to her gesticulating.'
  896. end
  897. if wealthmanrand=3:
  898. kolvomanparty=2
  899. danceWhorePay=RAND(6,12)
  900. 'You see how to Albina was approached by two Caucasians and became about something to talk to her.'
  901. end
  902. if wealthmanrand=4:
  903. kolvomanparty=3
  904. danceWhorePay=RAND(8,14)
  905. 'You see how to Albina came three Caucasians and became about something to talk to her.'
  906. end
  907. if wealthmanrand=5:
  908. kolvomanparty=1
  909. danceWhorePay=RAND(5,10)
  910. 'You see how to Albina went Negro and became about something to talk to her.'
  911. end
  912. if wealthmanrand=6:
  913. kolvomanparty=2
  914. danceWhorePay=RAND(7,15)
  915. 'You see how to Albina walked two blacks and became about something to talk to her.'
  916. end
  917. if wealthmanrand=7:
  918. kolvomanparty=3
  919. danceWhorePay=RAND(10,20)
  920. 'You see how to Albina walked three blacks and became about something to talk to her.'
  921. end
  922. if wealthmanrand<=7:
  923. 'After talking Albina came to you. "Sveta, need to talk."'
  924. act 'about what?':
  925. cls
  926. minut+=15
  927. gs'stat'
  928. 'You asked Albina, what she wanted to talk.'
  929. if kolvomanparty=1:'Albina came closer to you and quietly began to speak "You see this guy? If you stay with him for an hour and be affectionate, you can not make bad. receive <<danceWhorePay*1000>> rubles."'
  930. if kolvomanparty>1:'Albina came closer to you and quietly began to speak "You see these guys? If you stay with them for a couple of hours and be affectionate, you can not make bad. receive <<danceWhorePay*1000>> rubles."'
  931. act 'Cancel and go back':
  932. cls
  933. minut+=15
  934. otkazDanceWhore+=1
  935. DanceWhoreT=0
  936. gs'stat'
  937. 'You got in the car and soon.'
  938. act 'Get_Away':gt'gorodok'
  939. end
  940. act 'agree':
  941. cls
  942. money+=danceWhorePay*1000
  943. DanceWhore+=1
  944. DanceWhoreT+=1
  945. otkazDanceWhore=0
  946. slutty+=1
  947. gs'stat'
  948. 'You agree and Albina counted you money.'
  949. if wealthmanrand=0:act 'Go with a man':gt'DanceWhore1'
  950. if wealthmanrand=1:act 'Go with men':gt'DanceWhore2'
  951. if wealthmanrand=2:act 'Go with Caucasians':gt'DanceWhore3'
  952. if wealthmanrand=3:act 'Go with Caucasians':gt'DanceWhore4'
  953. if wealthmanrand=4:act 'Go with Caucasians':gt'DanceWhore5'
  954. if wealthmanrand=5:act 'Go with a black man':gt'DanceWhore6'
  955. if wealthmanrand=6:act 'Go with blacks':gt'DanceWhore7'
  956. if wealthmanrand=7:act 'Go with blacks':gt'DanceWhore8'
  957. end
  958. end
  959. exit
  960. end
  961. end
  962. if vnesh<13:
  963. 'After dancing Albina talked with some sort of men and what the Contracting.'
  964. end
  965. act 'drive back':
  966. cls
  967. minut+=15
  968. gs'stat'
  969. 'You got in the car and soon.'
  970. act 'Get_Away':gt'gorodok'
  971. end
  972. end
  973. end
  974. end
  975. act 'Get_Away':gt'gdksport'
  976. end
  977. end
  978. end
  979. if gsAboDance>0:
  980. if sport >0:
  981. act 'section dances, ticket is valid for <<gsAboDance>> Attendance':
  982. cla
  983. *clr
  984. gsAboDance-=1
  985. set minut = minut + 120
  986. set fat = fat - 5
  987. if agil<50:agil+= RAND (1,3)
  988. if agil>=50 and agil<80:agil+= RAND (0,2)
  989. if agil>=80:agil+= RAND (0,1)
  990. set manna = manna - 5
  991. set sweat = sweat + 3
  992. if dance<agil:dance+=RAND(5,15)
  993. gs'stat'
  994. '<center><img src="pic/fit1.jpg" ></center>'
  995. if dance<100:
  996. 'You were taught modern dance club, which are very popular in discos.'
  997. if dance<agil:
  998. 'You have to string up, but your agility and helps you hone some of what dance moves.'
  999. else
  1000. 'You do not have enough dexterity, that would successfully repeat all the movements.'
  1001. end
  1002. !place for use in events
  1003. dancegevrand=rand(0,1)
  1004. if dancegevrand=0:
  1005. 'It seems you see, that is <a href="exec:GT ''danceGev''">interesting</a>.'
  1006. end
  1007. end
  1008. if dance>=100:
  1009. 'You tried podcherpnut something new in modern club dances, but you already know very well.'
  1010. if albinaQWdance>0:
  1011. !place for use in events
  1012. dancegevrand=rand(0,1)
  1013. if dancegevrand=0:
  1014. 'It seems you see, that is <a href="exec:GT ''danceGev''">interesting</a>.'
  1015. end
  1016. end
  1017. if albinaQWdance=0 and StoryLine>0:
  1018. 'When the training is over you will notice how the room included a few girls and Albina Barlovskaya. You Albina odnoklasnitsy, but you almost nothing about it know.'
  1019. act 'Greet Albina':
  1020. cls
  1021. gs'stat'
  1022. numnpc=23
  1023. '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
  1024. '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
  1025. 'You are greeted with Albina. She raised an eyebrow haughtily. "And it`s you. What`s your name out there? Oh yeah Light. Are you? dancing zanimaeshsya?" You nodded confirming the obvious. Albina laughed scornfully. "Well?" You said coldly Albina "not bad." Albina gave you a contemptuous look "not bad? Well. but I doubt, that you can dance to a more or less professional level."'
  1026. act 'I do not care.':
  1027. cls
  1028. numnpc=23
  1029. dom+=1
  1030. grupNPC[numnpc]-=5
  1031. gs'stat'
  1032. '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
  1033. '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
  1034. 'You said contemptuously as possible, you do not care and have turned away from Albina. She said with a giggle. "girls. Let`s train."'
  1035. act 'Get_Away':gt'gdksport'
  1036. end
  1037. act 'I know how to dance.':
  1038. cls
  1039. numnpc=23
  1040. !dom+=1
  1041. !grupNPC[numnpc]-=5
  1042. gs'stat'
  1043. '<center><B><font color=maroon><<$npcName[numnpc]>> <<$npcSurName[numnpc]>></font></B></center>'
  1044. '<center><img src="qwest/alter/npc/<<numnpc>>.jpg" ></center>'
  1045. 'Albina you already beginning to irritate his arrogance. And you told her emphatically, that you know how to dance. Albina turned to the girls who came to her and said. "girls. Let`s train." Then she turned to you and said with a slight grin. "You can sit and watch as the dance pros. She `ll understand"'
  1046. act 'Get_Away':gt'gdksport'
  1047. act 'watch.':
  1048. cls
  1049. minut+=15
  1050. gs'stat'
  1051. 'Girls included stereo and started dancing. You once it became clear, they dance very clearly and professionally. You are unlikely to be able to so. Albina also dances much better than you. And indeed very concerted actions of girls and waste, apparently they work out this dance is not the first time. When the music ended Albina said "girls. While little break." She came up to you and said a little breathlessly "we pro. We spent a dance troupe Zvezdushki. Dance at festivals. Even in a music video filmed."'
  1052. act 'Get_Away':gt'gdksport'
  1053. act 'Ask them to team.':
  1054. cls
  1055. minut+=15
  1056. gs'stat'
  1057. 'You asked for a dance group. Albina laughed "And you can? We then have all load. although vprchem. Show me how you know how to dance." Albina including music and girls gathered to look at your dance.'
  1058. act 'dance.':
  1059. cls
  1060. minut+=5
  1061. gs'stat'
  1062. 'You began to dance to the music, trying as much as possible. When the music stopped you came Albina. "Kolkhoz Style course. but nothing, you have a certain potential."'
  1063. act 'Well take me in your team?':
  1064. cls
  1065. albinaQWdance=1
  1066. minut+=5
  1067. gs'stat'
  1068. 'You asked Albina, Does it take you to their team. Albina think and respond to you. "Fair_Enough, take. Can out of you and get that worthwhile."'
  1069. act 'Get_Away':gt'gdk'
  1070. end
  1071. end
  1072. end
  1073. end
  1074. end
  1075. end
  1076. end
  1077. end
  1078. act 'Get_Away':gt'gdksport'
  1079. end
  1080. else
  1081. 'You are not dressed in sports clothes.'
  1082. end
  1083. end
  1084. if gsAboBeg>0:
  1085. if sport >0:
  1086. act 'section jogging, ticket is valid for <<gsAboBeg>> Attendance':
  1087. cla
  1088. *clr
  1089. gsAboBeg-=1
  1090. set minut = minut + 120
  1091. set speed = speed + RAND (1,3)
  1092. set manna = manna - 5
  1093. set fat = fat - 5
  1094. set sweat = sweat + 3
  1095. set beg = beg + RAND(3,6)
  1096. gs'stat'
  1097. '<center><img src="pic/parkbeg.jpg" ></center>'
  1098. 'Are you a runner for two hours.'
  1099. act 'Get_Away':gt'gdksport'
  1100. end
  1101. else
  1102. 'You are not dressed in sports clothes.'
  1103. end
  1104. end
  1105. if gsAboVolley>0 and volleysostav=0:
  1106. if sport >0:
  1107. if week!5:
  1108. act 'section volleyball, ticket is valid for <<gsAboVolley>> Attendance':
  1109. cla
  1110. *clr
  1111. gsAboVolley-=1
  1112. set minut = minut + 120
  1113. if alko<=0:
  1114. set speed = speed + RAND (1,3)
  1115. if agil<50:agil+= RAND (1,3)
  1116. if agil>=50 and agil<80:agil+= RAND (0,2)
  1117. if agil>=80:agil+= RAND (0,1)
  1118. if stren<10:stren+=RAND(1,3)
  1119. if stren>=10 and stren<20:stren+=RAND(1,2)
  1120. if stren>=20 and stren<30:stren+=1
  1121. if stren>=30 and stren<40:stren+=RAND(0,1)
  1122. if vital<10:vital+=RAND(1,3)
  1123. if vital>=10 and vital<20:vital+=RAND(1,2)
  1124. if vital>=20 and vital<30:vital+=1
  1125. if vital>=30 and vital<40:vital+=RAND(0,1)
  1126. set beg = beg + RAND(1,2)
  1127. volleyboll+=1
  1128. end
  1129. set manna = manna - 5
  1130. set fat = fat - 5
  1131. set sweat = sweat + 3
  1132. gs'stat'
  1133. '<center><img src="qwest/alter/gdksport.jpg" ></center>'
  1134. if alko<=0:'At the beginning of workout you ran a few laps around the room. After you press the jog and do abdominal exercises. After this.'
  1135. if alko>0:'You are trying to train, but your intoxication does not give you focus and you will suffer from garbage, than treneruetes.'
  1136. act 'Get_Away':gt'gdksport'
  1137. act 'Go to coaching':gt'Voltrener'
  1138. end
  1139. end
  1140. if week=5:
  1141. act 'section volleyball, ticket is valid for <<gsAboVolley>> Attendance':
  1142. cla
  1143. *clr
  1144. gsAboVolley-=1
  1145. set minut = minut + 120
  1146. if alko<=0:
  1147. set speed = speed + RAND (1,2)
  1148. agil+=RAND(1,2)
  1149. if stren<40:stren+=RAND(1,2)
  1150. if vital<40:vital+=RAND(1,2)
  1151. set beg = beg + RAND(1,2)
  1152. volleyboll+=1
  1153. dom+=1
  1154. end
  1155. set manna = manna - 5
  1156. set fat = fat - 5
  1157. set sweat = sweat + 3
  1158. gs'stat'
  1159. '<center><img src="qwest/alter/gdksport.jpg" ></center>'
  1160. 'Fridays are usually held as the game in which the identified strengths and talented athletes.'
  1161. if alko<=0:
  1162. if volleyboll<25:
  1163. 'You are absolutely lousy play and constantly mistaken. Finally nerves coach can not stand and it removes you from the field.'
  1164. end
  1165. if volleyboll>=25 and volleyboll<50:
  1166. 'You are not playing very. Sometimes doing blunders. The coach is angry, but tolerates your antics.'
  1167. end
  1168. if volleyboll>=50 and volleyboll<75:
  1169. 'You played well on the field and rarely wrong. Coach looks pleased you.'
  1170. end
  1171. if volleyboll>=75:
  1172. 'You are a great game on the field, easy replaying his rivals. Coach looks pleased with your game.'
  1173. volevrand=rand(0,1)
  1174. if volevrand=0:
  1175. if andGevknow=0:$nameAndGev='some guy'
  1176. if andGevknow>0:$nameAndGev='Andrew'
  1177. 'During the game you pushed <a href="exec:GT ''volAndGev''"><<$nameAndGev>></a>.'
  1178. end
  1179. end
  1180. end
  1181. if alko>0:
  1182. 'You took to the field, but failed to recapture myach, intoxication does not focus. The coach sees your status and remove you from the game.'
  1183. end
  1184. act 'Get_Away':gt'gdksport'
  1185. act 'Go to coaching':gt'Voltrener'
  1186. end
  1187. end
  1188. else
  1189. 'You are not dressed in sports clothes.'
  1190. end
  1191. end
  1192. if volleysostav>0:
  1193. if sport >0:
  1194. if week!6 and volkomday!day:
  1195. act 'To engage with the team':
  1196. cla
  1197. *clr
  1198. volkomday=day
  1199. set minut = minut + 120
  1200. set speed = speed + RAND (1,3)
  1201. agil+=RAND(1,3)
  1202. if stren<50:stren+=RAND(1,3)
  1203. if vital<50:vital+=RAND(1,3)
  1204. set manna = manna - 5
  1205. set fat = fat - 5
  1206. set sweat = sweat + 3
  1207. set beg = beg + RAND(1,2)
  1208. volleyboll+=1
  1209. trenerepa+=1
  1210. dom+=1
  1211. gs'stat'
  1212. '<center><img src="qwest/alter/gdksport.jpg" ></center>'
  1213. 'Number of games <<volsesongame>>, Win - <<volsesonwin>>, lesions - <<volsesonloss>>, draws - <<volsesondraw>>.'
  1214. 'At the beginning of workout you ran a few laps around the room. After you press the jog and do abdominal exercises. After this. At the end of training you had the game.'
  1215. act 'Get_Away':gt'gdksport'
  1216. act 'Go to coaching':gt'Voltrener'
  1217. end
  1218. end
  1219. if week=6 and sorevday!day:
  1220. act 'Go to competitions with the team':
  1221. cla
  1222. *clr
  1223. if poverkomand=0:poverkomand=600
  1224. volltime=0
  1225. sorevday=day
  1226. set minut = minut + 180
  1227. set speed = speed + RAND (1,3)
  1228. agil+=RAND(1,3)
  1229. if strn<60:stren+=RAND(1,3)
  1230. if vital<60:vital+=RAND(1,3)
  1231. set manna = manna - 5
  1232. set fat = fat - 5
  1233. set sweat = sweat + 3
  1234. set beg = beg + RAND(1,2)
  1235. volleyboll+=RAND(1,3)
  1236. dom+=1
  1237. trenerepa+=2
  1238. gs'stat'
  1239. '<center><img src="qwest/alter/gdksport.jpg" ></center>'
  1240. 'You gathered their things together with other devchenki from the team and got on a bus that took you to a place where there will be a match.'
  1241. act 'play':gt'volley'
  1242. end
  1243. end
  1244. else
  1245. 'You are not dressed in sports clothes.'
  1246. end
  1247. end
  1248. else
  1249. 'Sports clubs are closed.'
  1250. end
  1251. >>>>>>> 244_gdksport
  1252. --- gdksport ---------------------------------