368_Nord 7.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189
  1. # Nord
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. <<<<<<< 368_Nord
  5. gs 'dinam'
  6. '<center><B>Northern region</B></center>'
  7. '<center><img src="images\etogame\nord.jpg"></center>'
  8. clr
  9. gs 'stat'
  10. gs 'time'
  11. !act 'Exit to the northern highway': minut += 15 & nroad = 0 & gt 'road'
  12. if BuyHous['Nord'] >= 1 and houserent['Nord'] ! 1:
  13. act '<b>GO HOME</b>':
  14. $HouseLocation = 'Nord'
  15. gorand = RAND(0,100)
  16. if loh > 0 and gopdolg > 0 and hour >= 20 and gorand >= 80:
  17. gt 'gopnew','start'
  18. exit
  19. end
  20. if opusk > 0 and hour >= 20 and gorand >= 80 and gopopusday ! day:
  21. gt 'gopnew','start'
  22. exit
  23. end
  24. gt 'korr'
  25. end
  26. end
  27. act 'Wait':
  28. cla
  29. waiting = input ("How long would you like to wait? (Not more than 120 minutes)")
  30. if waiting <= 0 or waiting > 120:
  31. set minut += 15
  32. end
  33. if waiting > 0 and waiting <= 120:
  34. set minut += waiting
  35. end
  36. act 'Take a look at the clock': gt curloc
  37. end
  38. act 'Take a cab':
  39. cla
  40. *clr
  41. '<center><img src="images\etogame\taxi1.jpg"></center>'
  42. 'You caught a passing taxi.'
  43. '"The drive will cost you <b>250 rubles</b>", the driver says.'
  44. set minut += 5
  45. if $loc!'street':
  46. act 'Go to the Residential Area':
  47. set $loc = 'street'
  48. dynamic $taxi
  49. end
  50. end
  51. if $loc!'down':
  52. act 'Go to the City Center':
  53. set $loc = 'down'
  54. dynamic $taxi
  55. end
  56. end
  57. if $loc!'Nord':
  58. act 'Go to the Northern Area':
  59. set $loc = 'Nord'
  60. dynamic $taxi
  61. end
  62. end
  63. act 'Turn him down and leave': gt '<<$loc>>'
  64. end
  65. =======
  66. $metkaStreet = $ARGS[0]
  67. $locStreet = $CURLOC
  68. gs'dinam'
  69. '<center><B>Northern region</B></center>'
  70. '<center><img src="pic/nord.jpg" ></center>'
  71. clr
  72. gs'stat'
  73. gs'time'
  74. !act 'Exit at North Highway':minut+=15&nroad=0&gt'road'
  75. act 'wait':
  76. cla
  77. waiting = input ("How many minutes to wait? (not any more 120 minutes)")
  78. if waiting <= 0 or waiting > 120:
  79. set minut = minut + 15
  80. end
  81. if waiting > 0 and waiting <= 120:
  82. set minut = minut + waiting
  83. end
  84. act 'Look at the clock':gt curloc
  85. end
  86. act 'Taxi':
  87. cla
  88. *clr
  89. '<center><img src="pic/taxi1.jpg" ></center>'
  90. 'You caught a passing taksishku.
  91. fare 250 RUB.'
  92. set minut+=5
  93. if $loc!'street':
  94. act 'Go to the sleeping area':
  95. set $loc='street'
  96. dynamic $taxi
  97. end
  98. end
  99. if $loc!'down':
  100. act 'Go to the center':
  101. set $loc='down'
  102. dynamic $taxi
  103. end
  104. end
  105. if $loc!'Nord':
  106. act 'Go to the northern region':
  107. set $loc='Nord'
  108. dynamic $taxi
  109. end
  110. end
  111. act 'Opt_Out':gt'<<$loc>>'
  112. end
  113. >>>>>>> 368_Nord
  114. if car > 0:
  115. <<<<<<< 368_Nord
  116. if cardrive = 3 or cardrive >= 6 and cardrive <= 9: 'In the parking stands your <a href="exec: GS ''carF'',''start''"><<$car>></a>.'
  117. end
  118. dynamic $vladimir_driver
  119. litltown = 0
  120. if hour >= 8 and hour <= 22: 'A kiosk is selling <a href="exec: dynamic $kiosksig">cigarettes</a>.'
  121. '<a href="exec:minut += 15 & GT ''vokzal''">Train Station</a> to get to the small Town.'
  122. if slavaQW >= 1: '<a href="exec: GT ''qwBarPolet''">Bar "Flight"</a>.'
  123. 'There is a <a href="exec:GT ''zaprF'',''start''">Gas</a> Station near the street'
  124. if hour >= 5 and hour <= 23: 'The <a href="exec: GT ''metro'',''start''">Metro</a> Station is within a 5 minute walk from here.'
  125. if hour >= 9 and hour <= 17 and week > 1: '<a href="exec: GT ''autosalonF'',''start''">Car Dealership</a>'
  126. if hour >= 9 and hour <= 20 and week < 7: '<a href="exec: GT ''autoservisF'',''start''">Repair Shop</a>'
  127. if hour >= 9 and hour <= 17 and week > 1: 'Used <a href="exec: GT ''autotraidF'',''start''">Car Dealership</a>'
  128. if hour >= 9 and hour <= 17 and week < 6: '<a href="exec: GT ''dk'',''start''">The House of Culture named after Lenin</a>'
  129. if bumtolik > 3 and hour >= 9 and hour <= 17 and week < 6: '<a href="exec: GT ''buklinik'',''start''">Mercy clinic</a>'
  130. 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>'
  131. 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>'
  132. '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.'
  133. if tobiQW >= 1: 'The old mansion, home to <a href="exec: GT ''kakuzu'',''start''">Kakuzu</a>'
  134. 'There is a huge building, with bright lights, which houses a <a href="exec:GT ''casino''">Casino</a> and a hotel.'
  135. if hour >= 14 or hour < 4: 'Located far away from the buildings <a href="exec: GT ''lakecafe'',''main''">barbecue</a>.'
  136. if jouryResult = 10: 'In one of the building you can find <a href="exec: GT ''youry''">Georges</a> flat'
  137. if IvanKvartira > 0: 'In one of these building is <a href="exec: GT ''ivanRoom''">Manager Ivans</a> apartment'
  138. 'A long and high fence, which is build around the <a href="exec:GT ''Terminal''">storage terminal</a>'
  139. if hour = meethour and $meetloc = $CURLOC:
  140. 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>'
  141. 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>'
  142. 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>'
  143. end
  144. =======
  145. if cardrive = 3 or cardrive >= 6 and cardrive <= 9:'In the parking lot is worth <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
  146. end
  147. if hour>=8 and hour<=22:'The kiosk selling <a href="exec:dynamic $kiosksig">cigarettes</a>'
  148. '<a href="exec:minut+=15&GT ''vokzal''">railway_station</a>.'
  149. if slavaQW>=1:'<a href="exec:GT ''qwBarPolet''">bar "flight"</a>.'
  150. litltown=0
  151. 'Automotive <a href="exec:GT ''zaprF'',''start''">filling</a>'
  152. if hour >= 5 and hour <= 23:'station <a href="exec:GT ''metro'',''start''">subway</a> situated in 5 walking distance.'
  153. if hour >= 9 and hour <= 17 and week > 1:'<a href="exec:GT ''autosalonF'',''start''">Motor Show</a>'
  154. if hour >= 9 and hour <= 20 and week < 7:'<a href="exec:GT ''autoservisF'',''start''">Service_and_repair</a>'
  155. if hour >= 9 and hour <= 17 and week > 1:'<a href="exec:GT ''autotraidF'',''start''">Car_market</a>'
  156. if hour >= 9 and hour <= 17 and week < 6:'<a href="exec:GT ''dk'',''start''">The House of Culture named after Lenin</a>'
  157. if hour >= 8 and hour <= 20:'A bright spot in a vacant lot worth <a href="exec:GT ''shop'',''start''">supermarket</a>'
  158. if hour>=12 and hour<20:'Above the door to the basement emblazoned inscription <a href="exec:GT ''pirsingsalon''">piercing parlor</a>'
  159. if tobiQW >= 1:'The old mansion home <a href="exec:GT ''kakuzu'',''start''">Kakuzu</a>'
  160. 'The huge building which houses <a href="exec:GT ''casino''">casino</a> hotel sparkles and lights.'
  161. if hour >= 14 or hour < 4:'Not far from the buildings located <a href="exec:GT ''lakecafe'',''main''">Barbecue</a>.'
  162. if jouryResult=10:'In one of the newly located <a href="exec:GT ''youry''">apartment Yuri</a>'
  163. if IvanKvartira>0:'In one of the houses is <a href="exec:GT ''ivanRoom''">Apartment manager Ivan</a>'
  164. 'For a long concrete fence is <a href="exec:GT ''Terminal''">storage terminal</a>'
  165. >>>>>>> 368_Nord
  166. dynamic $din_street_cum
  167. <<<<<<< 368_Nord
  168. dynamic $meet_boyfriend
  169. =======
  170. >>>>>>> 368_Nord
  171. --- Nord ---------------------------------