1
0

234_gorodok 8.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208
  1. # gorodok
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. <<<<<<< 234_gorodok
  5. litltown = 1
  6. =======
  7. $metkaStreet = $ARGS[0]
  8. $locStreet = $CURLOC
  9. litltown=1
  10. music_on=0
  11. >>>>>>> 234_gorodok
  12. cla
  13. *clr
  14. <<<<<<< 234_gorodok
  15. '<center><H4>The Village</H4></center>'
  16. '<center><img src="images\etogame\gorodok.jpg"></center>'
  17. 'A quiet province village, if you had no idea of you where abouts, you couldn''t differ this village from others. It''s tallest building is the chuches tower.'
  18. if AlbFather >= 1:
  19. if AlbFaterBlackTime = 0: AlbFaterBlackTime = totminut + 2880
  20. 'You can see voting posters on the walls. They say, "Vote for Boris Barlovsky!".'
  21. =======
  22. '<center><H4>town</H4></center>'
  23. '<center><img src="pic/gorodok.jpg" ></center>'
  24. 'Quiet provincial town indistinguishable from thousands of others like him towns. The restored church domes rise above the dilapidated shacks that were built more German prisoners.'
  25. if AlbFather>=1:
  26. if AlbFaterBlackTime=0:AlbFaterBlackTime=totminut+2880
  27. 'On the houses are seen pasted posters. "Boris Barlovsky, Our candidate!"'
  28. >>>>>>> 234_gorodok
  29. end
  30. <<<<<<< 234_gorodok
  31. if AlbFaterBlackTime > 0 and AlbFaterBlackTime <= totminut and rand(1,100) > 90 and hour >= 16 and AlbFather = 1:
  32. gt 'AlbFatherQW'
  33. =======
  34. if AlbFaterBlackTime>0 and AlbFaterBlackTime<=totminut and hour>=16 and AlbFather=1:
  35. gt'AlbFatherQW'
  36. >>>>>>> 234_gorodok
  37. end
  38. <<<<<<< 234_gorodok
  39. if StoryLine > 0 and hour < 5 and motherWorry = 0:
  40. motherWorry = 1
  41. end
  42. set gorodokwhorerand = RAND(1,5)
  43. if gorodokwhore >= 2 and gorodokwhore < 6 and gorodokwhorerand >= 4: 'You catch yourself on people´s views, some are trying to find you in someone, and maybe learn. Occasionally you hear people chuckle. Looks like someone found out about your adventures.'
  44. if gorodokwhore >= 6 and gorodokwhore < 10 and gorodokwhorerand >= 4: 'People look at you with a grin, someone makes vulgar gestures towards you some hints on your adventures.'
  45. if gorodokwhore >= 10 and gorodokwhorerand >= 4: 'All around you will recognize whore. Some came by and slap you on the ass. Grandmother on the benches name-calling you whore.'
  46. set gorodokstreetsexrand = RAND(1,20)
  47. if gorodokwhore > 5 and gorodokstreetsexrand = 20:
  48. 'To you a guy came up and offered to move into the bushes to get laid for a hundred'
  49. act 'Agree': gt 'gevent','5'
  50. =======
  51. if hour>=16 and hour<=22 and AlbFather=2 and AlbZaDay+30<daystart and year>2010:
  52. gt'AlbStarsEnd'
  53. end
  54. if StoryLine>0 and hour<5 and motherWorry=0:
  55. motherWorry=1
  56. end
  57. if NosovRevenge=2 and daynosovrevenge+1>=daystart:
  58. cls
  59. gs'stat'
  60. '<center><B><font color=maroon><<$npcName[1]>> <<$npcSurName[1]>></font></B></center>'
  61. '<center><img src="qwest/alter/npc/1.jpg" ></center>'
  62. 'Near the house "Well slut. If you do not want that to video became public, Now let`s go and talk to me."'
  63. act 'Go to the Dime':
  64. cls
  65. NosovRevenge=3
  66. minut+=30
  67. gs'stat'
  68. 'You went to the house of Dima. The house where he lives belongs to his parents, this is a big two-storey, detached house with a manicured lawn and a large garden. With Dima you have gone to his room and he closed the door with a key.'
  69. act 'Go into the room Dima':gt 'dimaHome'
  70. end
  71. exit
  72. end
  73. set gorodokwhorerand = rand (1,5)
  74. if gorodokwhore >=2 and gorodokwhore <6 and gorodokwhorerand =>4:'You catch yourself on people`s views, some are trying to find out who is in you- then, maybe, and learn. Occasionally you hear the laughter of people. It_seems, who- I learned about your adventures.'
  75. if gorodokwhore >=6 and gorodokwhore <10 and gorodokwhorerand =>4:'People look at you with a smile, who- doing something vulgar gestures toward you, some hints on your adventures.'
  76. if gorodokwhore >=10 and gorodokwhorerand =>4:'Everyone around you will recognize whore. some, passing, slap you on the ass. Grandmother on the benches name-calling you whore.'
  77. set gorodokstreetsexrand = rand (1,20)
  78. if gorodokwhore > 5 and gorodokstreetsexrand = 20:
  79. 'To the guy you came and offered to move into the bushes for a hundred fuck'
  80. act 'agree':gt 'gevent','5'
  81. >>>>>>> 234_gorodok
  82. end
  83. <<<<<<< 234_gorodok
  84. gs 'stat'
  85. gs 'time'
  86. =======
  87. gs'stat'
  88. gs'time'
  89. >>>>>>> 234_gorodok
  90. if car > 0 and cardrive = 20:
  91. set cardrive = 20
  92. <<<<<<< 234_gorodok
  93. 'In the parking stands <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
  94. =======
  95. 'In the parking lot is worth <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
  96. >>>>>>> 234_gorodok
  97. end
  98. <<<<<<< 234_gorodok
  99. if StoryLine = 1 and ParHomeBlock = 0: 'Your home is in one of the houses, it''s an <a href="exec: minut += 15 & GT ''korrPar''">apartment</a> your parents own.'
  100. 'The <a href="exec:minut += 15 & GT ''vokzalG''">Train Station</a>.'
  101. 'The <a href="exec:minut += 15 & GT ''gpoli''">Clinic</a>.'
  102. if hour >= 8 and hour <= 20: 'The <a href="exec: minut += 15 & GT ''gaptek'',''start''">Drugstore</a>.'
  103. if hour >= 8 and hour <= 17: '<a href="exec: minut += 3 & GT''barbershop'',''start''">The local barbershop</a>'
  104. if hour >= 8 and hour <= 22: 'A kiosk selling <a href="exec: dynamic $kiosksig">cigarettes.</a>'
  105. '<a href="exec:GT ''zaprF'',''start''">Gas Station</a>'
  106. 'This disticts <a href="exec:GT ''gdk''">House of Culture.</a>'
  107. if SchoolBlock = 0: 'Local <a href="exec: GT ''gschool''">school</a>'
  108. if hour >= 7 and hour <= 18: 'The <a href="exec: GT ''etoexhib'',''pos20''">Vocational School</a>'
  109. if hour >= 8 and hour <= 20: 'The only major store in town is the <a href="exec: GT ''shop'',''start''">supermarket</a>.'
  110. 'Small city <a href="exec:GT ''gskver'',''park''">park</a>, in which people are going'
  111. if workPTU > 2: act '<b>Go to the hostel</b>': gt 'etoexhib','pos40'
  112. act 'Wait':
  113. cla
  114. waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
  115. if waiting <= 0 or waiting > 120:
  116. set minut += 15
  117. end
  118. if waiting > 0 and waiting <= 120:
  119. set minut += waiting
  120. end
  121. act 'Take a look at the clock': gt curloc
  122. end
  123. =======
  124. if StoryLine=1 and ParHomeBlock=0:'In one of the houses is <a href="exec:minut+=15&GT ''korrPar''">apartment</a> your parents.'
  125. '<a href="exec:minut+=15&GT ''vokzalG''">railway_station</a>.'
  126. '<a href="exec:minut+=15&GT ''gpoli''">clinic</a>.'
  127. if hour>=8 and hour<=22:'The kiosk selling <a href="exec:dynamic $kiosksig">cigarettes.</a>'
  128. 'Automotive <a href="exec:GT ''zaprF'',''start''">filling.</a>'
  129. 'district <a href="exec:GT ''gdk''">house of Culture.</a>'
  130. if SchoolBlock=0:'local <a href="exec:GT ''gschool''">school</a>'
  131. if hour>=7 and hour<=18:'<a href="exec:GT ''etoexhib'',''pos20''">Vocational School.</a>'
  132. if hour >= 8 and hour <= 20:'The only major store in town <a href="exec:GT ''shop'',''start''">supermarket</a>'
  133. 'small city <a href="exec:GT ''gskver'',''park''">square</a>, in which people relax'
  134. 'Aside from residential buildings is <a href="exec:minut+=5&GT ''garmassiv''">garage array</a>'
  135. if ArtomBeInHome>0 and artemblok=0:'apartment <a href="exec:minut+=15&GT ''artemhome''">Artem Chebotarev</a>'
  136. if DimaBeHomeOnce=1 and DimaRudeBlock=0:'Private house in which he lives <a href="exec:minut+=15&GT ''dimaGoHome2''">Dima Nosov</a>'
  137. if katjaFirstKiss>=1:'Private house in which he lives <a href="exec:minut+=15&GT ''KatjaHome''">Katya Meynold</a>'
  138. if BeInNatBelHome=1:
  139. if hour>=18 and hour<=20 and week<6 or hour>=8 and hour<=20 and week>=6:
  140. 'The house where the apartment <a href="exec:minut+=15&GT ''NatBelHome''">Natasha Belova</a>'
  141. end
  142. end
  143. if BeInJulMilHome=1:
  144. if hour>=18 and hour<=20 and week<6 or hour>=8 and hour<=20 and week>=6:
  145. 'The house where the apartment <a href="exec:minut+=15&GT ''JuliaMilHome''">Julia Milova</a>'
  146. end
  147. end
  148. if beinalbinahome>0:'Luxurious mansion in which he lives <a href="exec:minut+=15&GT ''albinaporog''">Albina Barlovskaya</a>'
  149. 'urban development enterprise <a href="exec:minut+=15&GT ''Gshveyfab''">Garment factory named Paris Commune</a>'
  150. act 'wait':
  151. cla
  152. waiting = input ("How many minutes to wait? (not any more 120 minutes)")
  153. if waiting <= 0 or waiting > 120:
  154. set minut = minut + 15
  155. end
  156. if waiting > 0 and waiting <= 120:
  157. set minut = minut + waiting
  158. end
  159. act 'Look at the clock':gt curloc
  160. end
  161. if StoryLine=1 and hour>=8 and hour<23:
  162. if cumface>0:
  163. sosedrand=rand(0,3)
  164. if sosedrand=0 and sosedday!day:
  165. cls
  166. if sosedknow=0:
  167. sosedknow=1
  168. sosedday=day
  169. gs'stat'
  170. 'Suddenly "Sveta." You turn around and see a neighbor Uncle Misha, he looks at your face with surprise "It`s that on your face?" You blush and hesitate, Stra hand to wipe off the face of sperm. he grins "Well, all clear." and goes on about his business.'
  171. act 'further':gt curloc
  172. exit
  173. end
  174. if sosedknow>0:
  175. sosedday=day
  176. 'Once again you are confronted face to face with Uncle Misha, your neighbor, he chuckled looking at you "Well."'
  177. act 'further':gt curloc
  178. end
  179. end
  180. end
  181. end
  182. !act 'rating':gt'ratinglist'
  183. >>>>>>> 234_gorodok
  184. --- gorodok ---------------------------------