290_Nord 4.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102
  1. # Nord
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. gs 'dinam'
  5. '<center><B>Northern region</B></center>'
  6. '<center><img src="images\etogame\nord.jpg"></center>'
  7. clr
  8. gs 'stat'
  9. gs 'time'
  10. !act 'Exit to the northern highway': minut += 15 & nroad = 0 & gt 'road'
  11. if BuyHous['Nord'] >= 1 and houserent['Nord'] ! 1:
  12. act '<b>GO HOME</b>':
  13. $HouseLocation = 'Nord'
  14. gorand = RAND(0,100)
  15. if loh > 0 and gopdolg > 0 and hour >= 20 and gorand >= 80:
  16. gt 'gopnew','start'
  17. exit
  18. end
  19. if opusk > 0 and hour >= 20 and gorand >= 80 and gopopusday ! day:
  20. gt 'gopnew','start'
  21. exit
  22. end
  23. gt 'korr'
  24. end
  25. end
  26. act 'Wait':
  27. cla
  28. waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
  29. if waiting <= 0 or waiting > 120:
  30. set minut += 15
  31. end
  32. if waiting > 0 and waiting <= 120:
  33. set minut += waiting
  34. end
  35. act 'Take a look at the clock': gt curloc
  36. end
  37. act 'Take a cab':
  38. cla
  39. *clr
  40. '<center><img src="images\etogame\taxi1.jpg"></center>'
  41. 'You caught a passing taxi.'
  42. '"The drive will cost you <b>250 rubles</b>", the driver says.'
  43. set minut += 5
  44. if $loc!'street':
  45. act 'Go to the Residential Area':
  46. set $loc = 'street'
  47. dynamic $taxi
  48. end
  49. end
  50. if $loc!'down':
  51. act 'Go to the City Center':
  52. set $loc = 'down'
  53. dynamic $taxi
  54. end
  55. end
  56. if $loc!'Nord':
  57. act 'Go to the Northern Area':
  58. set $loc = 'Nord'
  59. dynamic $taxi
  60. end
  61. end
  62. act 'Turn him down and leave': gt '<<$loc>>'
  63. end
  64. if car > 0:
  65. if cardrive = 3 or cardrive >= 6 and cardrive <= 9: 'In the parking stands your <a href="exec: GS ''carF'',''start''"><<$car>></a>.'
  66. end
  67. dynamic $vladimir_driver
  68. litltown = 0
  69. if hour >= 8 and hour <= 22: 'A kiosk is selling <a href="exec: dynamic $kiosksig">cigarettes</a>.'
  70. '<a href="exec:minut += 15 & GT ''vokzal''">Train Station</a> to get to the small Town.'
  71. if slavaQW >= 1: '<a href="exec: GT ''qwBarPolet''">Bar "Flight"</a>.'
  72. 'There is a <a href="exec:GT ''zaprF'',''start''">Gas</a> Station near the street'
  73. if hour >= 5 and hour <= 23: 'The <a href="exec: GT ''metro'',''start''">Metro</a> Station is within a 5 minute walk from here.'
  74. if hour >= 9 and hour <= 17 and week > 1: '<a href="exec: GT ''autosalonF'',''start''">Car Dealership</a>'
  75. if hour >= 9 and hour <= 20 and week < 7: '<a href="exec: GT ''autoservisF'',''start''">Repair Shop</a>'
  76. if hour >= 9 and hour <= 17 and week > 1: 'Used <a href="exec: GT ''autotraidF'',''start''">Car Dealership</a>'
  77. if hour >= 9 and hour <= 17 and week < 6: '<a href="exec: GT ''dk'',''start''">The House of Culture named after Lenin</a>'
  78. if bumtolik > 3 and hour >= 9 and hour <= 17 and week < 6: '<a href="exec: GT ''buklinik'',''start''">Mercy clinic</a>'
  79. if hour >= 8 and hour <= 20: 'The parking lot, which is engulfed in bright lights, belongs to a <a href="exec: GT ''shop'',''start''">Supermarket</a>'
  80. if hour >= 12 and hour < 20: 'Above the door to a basement room is a bright neon sign for a <a href="exec: GT ''pirsingsalon''">piercing parlor</a>'
  81. 'The <a href="exec: set minut += 59 & GT ''park'',''start''">central park</a> is quite far from here, but it''s not out of walking range. You can reach all the districts of the town while walking through it. Walking there should take you about less than an hour.'
  82. if tobiQW >= 1: 'The old mansion, home to <a href="exec: GT ''kakuzu'',''start''">Kakuzu</a>'
  83. 'There is a huge building, with bright lights, which houses a <a href="exec:GT ''casino''">Casino</a> and a hotel.'
  84. if hour >= 14 or hour < 4: 'Located far away from the buildings <a href="exec: GT ''lakecafe'',''main''">barbecue</a>.'
  85. if jouryResult = 10: 'In one of the building you can find <a href="exec: GT ''youry''">Georges</a> flat'
  86. if IvanKvartira > 0: 'In one of these building is <a href="exec: GT ''ivanRoom''">Manager Ivans</a> apartment'
  87. 'A long and high fence, which is build around the <a href="exec:GT ''Terminal''">storage terminal</a>'
  88. if hour = meethour and $meetloc = $CURLOC:
  89. if svidanieA = 1: '<B><a href="exec: GT ''meet'',''start''"><<$boyA>></a> waits next to the entrance to the house your apartment is in.</B>'
  90. if svidanieB = 1: '<B><a href="exec: GT ''meet'',''start''"><<$boyA>></a> waits next to the entrance to the house your apartment is in.</B>'
  91. if svidanieC = 1: '<B><a href="exec: GT ''meet'',''start''"><<$boyA>></a> waits next to the entrance to the house your apartment is in.</B>'
  92. end
  93. dynamic $din_street_cum
  94. dynamic $meet_boyfriend
  95. --- Nord ---------------------------------