1
0

gorodok 5.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132
  1. # gorodok
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. $metkaStreet = $ARGS[0]
  5. $locStreet = $CURLOC
  6. cla
  7. *clr
  8. litltown = 1
  9. alkoblock = 0
  10. boynumBlock = 0
  11. music_on = 0
  12. '<center><h4>The Village</h4></center>'
  13. '<center><img src="images/etogame/gorodok.jpg"></center>'
  14. '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.'
  15. if GorSlut = 6 and rand(1, 20) = 20:
  16. 'To you a guy came up and offered to move into the bushes to get laid for a hundred.'
  17. act 'Agree':gt 'gevent', '5'
  18. act 'Refuse':gt $curloc
  19. exit
  20. end
  21. if AlbFather >= 1:
  22. if AlbFaterBlackTime = 0:AlbFaterBlackTime = totminut + 2880
  23. 'You can see voting posters on the walls. They say, "Vote for Boris Barlovsky!".'
  24. end
  25. if AlbFaterBlackTime > 0 and AlbFaterBlackTime <= totminut and hour >= 16 and AlbFather = 1:gt 'AlbFatherQW'
  26. if hour >= 16 and hour <= 22 and AlbFather = 2 and AlbZaDay + 30 < daystart and year > 2010:
  27. gt 'AlbStarsEnd'
  28. end
  29. if StoryLine > 0 and hour < 5 and motherWorry = 0 and SchoolAtestat = 0 and age < 18:
  30. motherWorry = 1
  31. end
  32. if NosovRevenge = 2 and daynosovrevenge + 1 >= daystart:
  33. cls
  34. gs 'stat'
  35. '<center><b><font color="maroon"><<$npcName[1]>> <<$npcSurName[1]>></font></b></center>'
  36. '<center><img src="images/qwest/alter/npc/1.jpg" ></center>'
  37. 'Near the house "Well slut. If you do not want that to video became public, Now let''s go and talk to me."'
  38. act 'Go to Dimka':
  39. cls
  40. NosovRevenge = 3
  41. minut += 30
  42. gs 'stat'
  43. 'You went to the house of Dimka. 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 Dimka you have gone to his room and he closed the door with a key.'
  44. act 'Go into the room Dima':gt 'dimaHome'
  45. end
  46. exit
  47. end
  48. if rand(1, 5) >= 4:
  49. if GorSlut = 3:'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.'
  50. if GorSlut = 4:'People look at you with a grin, someone makes vulgar gestures towards you some hints on your adventures.'
  51. if GorSlut >= 5:'All around you will recognize whore. Some came by and slap you on the ass. Grandmother on the benches name-calling you whore.'
  52. end
  53. gs 'stat'
  54. gs 'time'
  55. if car > 0 and cardrive = 20:
  56. cardrive = 20
  57. 'In the parking stands <a href="exec:gs ''carF'', ''start''">your <<$car>></a>.'
  58. end
  59. 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.'
  60. 'The <a href="exec:minut += 15 & gt ''vokzalG''">Train Station</a>.'
  61. 'The <a href="exec:minut += 15 & gt ''gpoli''">Clinic</a>.'
  62. if hour >= 8 and hour <= 20:'The <a href="exec: minut += 15 & gt ''gaptek'', ''start''">Pharmacy</a>.'
  63. if hour >= 8 and hour <= 17:'<a href="exec: minut += 3 & gt ''barbershop'', ''start''">The local barbershop</a>.'
  64. if hour >= 8 and hour <= 22:'A kiosk selling <a href="exec:dynamic $kiosksig">cigarettes</a>.'
  65. '<a href="exec:gt ''zaprF'', ''start''">Gas Station</a>.'
  66. '<a href="exec:gt ''gdk''">House of Culture</a>.'
  67. if SchoolBlock = 0:'Local <a href="exec:gt ''gschool''">school</a>.'
  68. if hour >= 7 and hour <= 18:'The <a href="exec:gt ''etoexhib'', ''pos20''">Vocational School</a>.'
  69. if hour >= 8 and hour <= 20:'The only major store in town is the <a href="exec:gt ''shop'', ''start''">supermarket</a>.'
  70. 'Small city <a href="exec:gt ''gskver'', ''park''">park</a>, in which people are going.'
  71. 'Aside from residential buildings is <a href="exec:minut += 5 & gt ''garmassiv''">Garage array</a>.'
  72. if ArtemBeInHome > 0 and artemblok = 0:'Apartment <a href="exec:minut += 15 & gt ''artemhome''">Artem Chebotarev</a>.'
  73. if DimaBeHomeOnce = 1 and DimaRudeBlock = 0:'Private house in which he lives <a href="exec:minut += 15 & gt ''dimaGoHome2''">Dimka Nosov</a>.'
  74. if katjaFirstKiss >= 1:'Private house in which <a href="exec:minut += 15 & gt ''KatjaHome''">Katja Meynold</a> lives.'
  75. if BeInNatBelHome = 1 and hour >= 18 and hour <= 20 and week < 6 or hour >= 8 and hour <= 20 and week >= 6:'The house where the apartment <a href="exec:minut += 15 & gt ''NatBelHome''">Natasha Belova</a>.'
  76. if BeInJulMilHome = 1 and hour >= 18 and hour <= 20 and week < 6 or hour >= 8 and hour <= 20 and week >= 6:'The house where the apartment <a href="exec:minut += 15 & gt ''JuliaMilHome''">Julia Milova</a>.'
  77. if beinalbinahome > 0:'Luxurious mansion in which he lives <a href="exec:minut += 15 & gt ''albinaporog''">Albina Barlovskaya</a>.'
  78. 'Urban development enterprise <a href="exec:minut += 15 & gt ''Gshveyfab''">Garment factory named Paris Commune</a>.'
  79. if workPTU > 2:act '<b>Go to the hostel</b>':gt 'etoexhib', 'pos40'
  80. act 'Wait':
  81. cla
  82. waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
  83. if waiting <= 0 or waiting > 120:
  84. minut += 15
  85. elseif waiting > 0 and waiting <= 120:
  86. minut += waiting
  87. end
  88. act 'Take a look at the clock':gt $curloc
  89. end
  90. if StoryLine = 1 and hour >= 8 and hour < 23 and cumface > 0 and rand(0, 3) = 0 and sosedday ! day:
  91. cls
  92. sosedday = day
  93. gs 'stat'
  94. if sosedknow = 0:
  95. sosedknow = 1
  96. 'Suddenly someone call out to you "<<$name>>." 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.'
  97. else
  98. 'Once again you are confronted face to face with Uncle Misha, your neighbor, he chuckled looking at you "Well."'
  99. end
  100. act 'Further':gt $curloc
  101. exit
  102. end
  103. --- gorodok ---------------------------------