pavCommercial 4.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111
  1. # pavCommercial
  2. !{Change log
  3. 25 March 2016
  4. Fixed diplaced period after church link
  5. Fixed visting links to look the same
  6. Added start of Andrei kidnapping
  7. }
  8. $metka = $ARGS[0]
  9. $loc = $CURLOC
  10. $metkaStreet = $ARGS[0]
  11. $locStreet = $CURLOC
  12. CLOSE ALL
  13. if sound = 0:
  14. if month >=11 and month <= 12 or month >=1 and month <=3:
  15. if hour >= 8 and hour <= 23: PLAY 'sound/street2.mp3',30 & PLAY 'sound/zima.mp3',30
  16. if hour >= 0 and hour <= 7: PLAY 'sound/street_night.mp3',30 & PLAY 'sound/zima.mp3',30
  17. else
  18. if hour >= 8 and hour <= 23: PLAY 'sound/street2.mp3',30 & PLAY 'sound/street_leto.mp3',30
  19. if hour >= 0 and hour <= 7:PLAY 'sound/street_night.mp3',30
  20. end
  21. end
  22. cla
  23. *clr
  24. litltown = 1
  25. alkoblock = 0
  26. boynumBlock = 0
  27. !music_on = 0
  28. '<center><h4>Pavlovsk<a href="exec:dynamic $objnewmenu">.</a></h4></center>'
  29. '<center><img src="images/etogame/gorodok.jpg"></center>'
  30. '<center>The high street of a provincial town in a rural area of Russia. Population: about 10000 inhabitants.</center>'
  31. '<center>Apart from the old palace and fort, it looks much like all the other towns in the area. The tallest building in town is the <a href="exec:gt ''ParChurch'',''start''">church of St Nikolas.</a></center>'
  32. ''
  33. if belgangQW=1000 and hour>=16 and hour<21 and daybelisex!daystart:gt 'BelSex', 'outing'
  34. if belgangQW=100 and hour>=16 and hour<21 and daybelisex!daystart:gt 'BelSex', 'drive'
  35. if belgangQW=9000 and belgangday<daystart:gt 'BelSex', 'pay'
  36. if AlbFather >= 1:
  37. if AlbFaterBlackTime = 0:AlbFaterBlackTime = totminut + 2880
  38. 'You can see election posters on the walls all over town. They say: "Vote for Boris Barlovsky!" Wait a minute... isn''t that Albina''s father?'
  39. end
  40. if AlbFaterBlackTime > 0 and AlbFaterBlackTime <= totminut and hour >= 16 and AlbFather = 1:gt 'AlbFatherQW'
  41. if hour >= 16 and hour <= 22 and AlbFather = 2 and AlbZaDay + 30 < daystart and year > 2015:
  42. gt 'AlbStarsEnd'
  43. end
  44. if StoryLine > 0 and hour < 4 and motherWorry = 0 and SchoolAtestat = 0 and age < 18:
  45. motherWorry = 1
  46. end
  47. if rand(1, 5) >= 4:
  48. if GorSlut = 3:'You catch people staring at you intently, as if they''re supposed to know who you are but can''t quite remember why. You sincerely hope they don''t realize your promiscuous adventures are the reason why. The occasional person chuckling and pointing at you crushes those hopes, and you quickly keep walking before they get a chance to say anything.'
  49. if GorSlut = 4:'People look at you with lewd grins on their faces, some of them even making vulgar gestures. Looks like they know what you''ve been up to.'
  50. if GorSlut >= 5:'Everywhere you go, people recognize you as a whore. Some even come over and slap you on the ass, claiming they know you like it when they do, or claiming they want to sample your goods. An elderly woman sitting on a bench calls out to you, loudly calling you a slut and a whore. You hide your face and run away as fast as you can, before she can draw too much attention to you.'
  51. end
  52. gs 'stat'
  53. gs 'outdoors'
  54. if car > 0 and cardrive = 24:
  55. cardrive = 24
  56. 'Your <a href="exec:gs ''carF'', ''start''">car<<$car>></a> is parked in the street.'
  57. end
  58. if hour >= 8 and hour <= 20:
  59. $Pharmname = ', and the <a href="exec: minut += 15 & gt ''gaptek'', ''start''">pharmacy</a> is right across the street.'
  60. else
  61. $Pharmname = '.'
  62. end
  63. 'You are on the high street, at one end is the <a href="exec:minut += 15 & gt ''vokzalG''">train station</a> and access to the highway. Near the highway you can also find a <a href="exec:gt ''zaprF'', ''start''">gas station</a>.'
  64. 'The nearby residential area is next to the lake and the town surrounds the old palace grounds which are now a large <a href="exec:gt ''gskver'', ''park''">public park</a>.'
  65. 'There is a small <a href="exec:minut += 15 & gt ''gpoli''">clinic</a><<$Pharmname>>'
  66. if hour >= 8 and hour <= 17:'The local <a href="exec: minut += 3 & gt ''barbershop'', ''start''">barbershop</a> is within walking distance, merely a few minutes away.'
  67. if hour >= 7 and hour <= 18:'Pavlovsk has a <a href="exec:gt ''etoexhib'', ''pos20''">vocational school</a>, where young adults can learn a trade.'
  68. if hour >= 8 and hour <= 22:'Right outside your apartment, a <a href="exec:dynamic $kiosksig">kiosk</a> sells cigarettes and magazines.'
  69. if hour >= 8 and hour <= 20:'There is a big chain <a href="exec:gt ''shop'', ''start''">supermarket</a> nearby.'
  70. 'A <a href="exec:minut += 15 & gt ''Gshveyfab'', ''start''">garment factory</a> named Paris Commune is situated in the industrial area on the outskirts of town, close to the highway.'
  71. ''
  72. if workPTU > 2:act '<b>Go to the hostel</b>':gt 'etoexhib', 'pos40'
  73. act 'Go to the residential area':minut += 5 & gt 'pavResidential'
  74. act 'Wait':
  75. cla
  76. waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
  77. if waiting <= 0 or waiting > 120:
  78. minut += 15
  79. elseif waiting > 0 and waiting <= 120:
  80. minut += waiting
  81. end
  82. act 'Check the time':gt $curloc
  83. end
  84. if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  85. --- pavCommercial ---------------------------------