1
0

road.qsrc 21 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422
  1. # road
  2. $location_type = 'public_outdoors'
  3. if $ARGS[0] = '':
  4. CLOSE ALL
  5. if sound = 0:PLAY 'sound/highway.mp3',50
  6. $metka = ''
  7. $loc = 'road'
  8. cla & *clr
  9. $menu_loc = 'road'
  10. $menu_arg = ''
  11. menu_off = 0
  12. gs 'stat'
  13. '<center><h2>Main road between St. Petersburg and Pavlovsk</h2></center>'
  14. if month >= 11 or month <= 3:
  15. '<center><img <<$set_imgh>> src="images/locations/highway/roadwinter.jpg"></center>'
  16. else
  17. '<center><img <<$set_imgh>> src="images/locations/highway/road.jpg"></center>'
  18. end
  19. '<center><<nroad>> km</center>'
  20. 'Calling it a highway would be too much credit, but this road is the main way to get from St. Petersburg to the town of Pavlovsk, 20km away.'
  21. 'Smaller villages named Gadukino and Pushkin can be found along the way. Cars are driving by you at a high speed.'
  22. if car > 0 and cardrive = 22 and ncarroad = nroad:'You parked <a href="exec:gs ''carF'', ''start''">your <<$car>></a> next to the road.'
  23. if nroad = 0:act 'Walk to the City Industrial Region (0:15)':minut += 15 & gt 'nord'
  24. if nroad = 16:act 'Check out the construction site (1:00)':minut += 60 & gt 'obekt'
  25. if nroad = 20:
  26. act 'Walk to Pavlovsk train station (0:15)': minut += 15 & gt 'pavtrain'
  27. act 'Walk to Pavlovsk commercial area (0:15)': minut += 15 & gt 'pavCommercial'
  28. end
  29. if nroad < 20:act 'Walk towards Pavlovsk (0:20)':minut += 20 & nroad += 1 & gt $curloc
  30. if nroad > 0:act 'Walk towards St. Petersburg (0:20)':minut += 20 & nroad -= 1 & gt $curloc
  31. if nroad>0 and nroad<20:
  32. act'Try hitchhiking towards Pavlovsk':
  33. cls
  34. minut+=15
  35. gs'stat'
  36. gorand=rand(1,100)
  37. picrand = RAND(1,3)
  38. if gorand<=60:
  39. '<center><B>Main road between St. Petersburg and Pavlovsk</B></center>'
  40. '<center><img <<$set_imgh>> src="images/locations/highway/autostop (<<picrand>>).jpg" ></center>'
  41. 'You try to catch the attention of people driving towards Pavlovsk but everyone just rushes by, ignoring you completely.'
  42. act 'Continue':gt $curloc
  43. elseif gorand>60:
  44. gs 'road', 'autostop_d'
  45. if nroad < 10:
  46. act 'Ask the driver to take you to Gadukino':
  47. $road_textrand0 = 'Gadukino'
  48. gt 'road', 'autostpo_money'
  49. end
  50. end
  51. act 'Ask the driver to take you to Pavlovsk':
  52. $road_textrand0 = 'Pavlovsk'
  53. gt 'road', 'autostpo_money'
  54. end
  55. end
  56. end
  57. act'Try hitchhiking towards St. Petersburg':
  58. cls
  59. minut+=15
  60. gs'stat'
  61. gorand=rand(1,100)
  62. picrand = RAND(1,3)
  63. if gorand<=60:
  64. '<center><B>Main road between St. Petersburg and Pavlovsk</B></center>'
  65. '<center><img <<$set_imgh>> src="images/locations/highway/autostop (<<picrand>>).jpg" ></center>'
  66. 'You try to catch the attention of people driving towards St. Petersburg but everyone just rushes by, ignoring you completely.'
  67. act 'Continue':gt $curloc
  68. elseif gorand>60:
  69. gs 'road', 'autostop_d'
  70. if nroad > 10:
  71. act 'Ask the driver to take you to Gadukino':
  72. $road_textrand0 = 'Gadukino'
  73. gt 'road', 'autostpo_money'
  74. end
  75. end
  76. act 'Ask the driver to take you to St. Petersburg':
  77. $road_textrand0 = 'St. Petersburg'
  78. gt 'road', 'autostpo_money'
  79. end
  80. end
  81. end
  82. end
  83. if nroad = 0:
  84. 'You''re on the outskirts of St. Petersburg. You see a number of crudely made huts near the trees, a bunch of homeless people must have sought shelter here.'
  85. 'A <a href="exec:minut += 5 & gt ''furi''">lorry</a> is parked next to the road. The driver is currently taking a break, and is having a cigarette. He could probably bring you to Pavlovsk, for a price...'
  86. elseif nroad = 1:
  87. 'You''re not very far from St. Petersburg. You see a bunch of <a href="exec:minut += 15 & gt ''psiklin'',''start''">luxury houses</a> not far from the road. That settlement looks like it''s very expensive to live in.'
  88. elseif nroad = 2:
  89. ''
  90. elseif nroad = 3:
  91. 'You see a sign pointing towards a <a href="exec:minut += 15 & gt ''graveyard''">cemetery</a>, hidden between lots of trees. You think it''ll be a 15 minute walk, from here.'
  92. elseif nroad = 4:
  93. ''
  94. elseif nroad = 5:
  95. 'You see a <a href="exec:gt ''train'', ''communal''">railway platform</a> not far from the road. A bit further away, someone built <a href="exec:minut += 15 & gt ''dachi''">a bunch of cottages</a>. Some of them are for sale. This must be a nice place to stay at, in the summer!'
  96. elseif nroad = 6:
  97. ''
  98. elseif nroad = 7:
  99. ''
  100. elseif nroad = 8:
  101. ''
  102. elseif nroad = 9:
  103. ''
  104. elseif nroad = 10:
  105. 'You see a <a href="exec:gt ''train'', ''village''">railway platform</a> not far from the road. In the same direction, a dirt road leads to the village of <a href="exec:minut += 30 & gt ''gadukino''">Gadukino</a>.'
  106. elseif nroad = 11:
  107. ''
  108. elseif nroad = 12:
  109. 'You see a <a href="exec:minut += 15 & gt ''motel''">trucker motel</a> near the road. You have no business there, you''re no trucker!'
  110. elseif nroad = 13:
  111. ''
  112. elseif nroad = 14:
  113. ''
  114. elseif nroad = 15:
  115. 'You see a <a href="exec:gt ''train'', ''oldtown''">railway platform</a> not far from the road. You are on the outskirts of the old town of <a href="exec:minut += 15 & gt ''liam''">Pushkin</a> about a five minutes down a cobblestone road is the old town center. It''s a fairly popular town for tourists to explore, much of its old architecture is still intact.'
  116. elseif nroad = 16:
  117. 'All you see is an abandoned building, not too far from the road. From the look of it, the heavy fences around the building will make it difficult for you to get anywhere near it.'
  118. elseif nroad = 17:
  119. ''
  120. elseif nroad = 18:
  121. ''
  122. elseif nroad = 19:
  123. ''
  124. elseif nroad = 20:
  125. 'The main road ends at the old provincial town of Pavlovsk. You can see the castle from a distance.'
  126. 'A <a href="exec:minut += 5 & gt ''furi''">lorry</a> is parked next to the road. The driver is currently taking a break, and is having a cigarette. He could probably bring you to St. Petersburg, for a price...'
  127. 'A small road leads to an almost hidden old <a href="exec:gt ''brothel'', ''lobby''">hotel</a>. Usually tourists use it when passing by or when visiting the old town of Pavlovsk.'
  128. end
  129. end
  130. if $ARGS[0] = 'drive_sex1':
  131. $location_type = 'event_outdoors'
  132. cla & *clr
  133. menu_off = 1
  134. gs 'npcgeneratec', 0, 'truck driver', rand(14,22)
  135. gs 'boyStat', $npclastgenerated
  136. gs 'stat'
  137. autostop_price = 0
  138. swallow += 1
  139. spafinloc = 12
  140. gs 'cum_manage'
  141. if $road_textrand0 = 'Gadukino':
  142. minut+=15
  143. nroad=15
  144. elseif $road_textrand0 = 'Pavlovsk':
  145. minut+=15
  146. nroad=20
  147. elseif $road_textrand0 = 'St. Petersburg':
  148. minut+=15
  149. nroad=0
  150. end
  151. '<center><B>Main road between St. Petersburg and Pavlovsk</B></center>'
  152. '<center><video autoplay loop src="images/locations/highway/sex/bj (1).mp4" width="1000" height="562"></video></center>'
  153. 'When you get in the car, you immediately reach for his pants and take out his semi-erect cock. That''s what you promised him, after all. You feel it slowly hardening between your fingers as the man drives off.'
  154. if pcs_throat < dick: pcs_throat += 1
  155. if dick >= 14 and dick < 16: $raod_text_sex = 'a normal size'
  156. if dick >= 16 and dick < 18: $raod_text_sex = 'a bit larger than average'
  157. if dick >= 18 and dick < 20: $raod_text_sex = 'quite large'
  158. if dick >= 20: $raod_text_sex = 'huge'
  159. 'You gentle massage his cock between your fingers while the man gets comfortable. It''s <<$raod_text_sex>>, roughly <<dick>> centimetres long and quite girthy. You manage to massage him to a full erection in no time at all, and lower your head to take it between your lips.'
  160. 'As you lick the tip of his cock with your tongue and begin to suck him off, you have to admit: this is kinda hot! The man is well groomed, and has a pleasant masculine smell to him.'
  161. 'You eagerly bob your head up and down while he drives, totally forgetting about your earlier doubts and do your best to get him off.'
  162. 'With success: in no time at all, the man groans and his cock erupts inside your mouth, shooting gobs of his hot sperm onto your tongue while you keep your lips closed around his cock to not make a mess.'
  163. 'Realizing you can''t spit it out anywhere, you have no option but to swallow his load while he keeps driving.'
  164. gs 'arousal', 'hj', 15, 'prostitution'
  165. gs 'arousal', 'bj', 15, 'prostitution'
  166. minut -= 15
  167. gs 'arousal', 'end'
  168. gs 'stat'
  169. act'To go further': gt 'road', 'autospot_drive'
  170. end
  171. if $ARGS[0] = 'drive_sex2':
  172. $location_type = 'event_outdoors'
  173. cla & *clr
  174. menu_off = 1
  175. gs 'npcgeneratec', 0, 'truck driver', rand(14,22)
  176. gs 'boyStat', $npclastgenerated
  177. gs 'stat'
  178. autostop_price = 0
  179. spafinloc = 7
  180. gs 'cum_manage'
  181. if $road_textrand0 = 'Gadukino':
  182. minut+=15
  183. nroad=10
  184. elseif $road_textrand0 = 'Pavlovsk':
  185. nroad=20
  186. minut+=15
  187. elseif $road_textrand0 = 'St. Petersburg':
  188. minut+=15
  189. nroad=0
  190. end
  191. '<center><B>Main road between St. Petersburg and Pavlovsk</B></center>'
  192. '<center><video autoplay loop src="images/locations/highway/sex/hj (1).mp4" width="800" height="448"></video></center>'
  193. 'When you get in the car, you immediately reach for his pants and take out his semi-erect cock. That''s what you promised him, after all. You feel it slowly hardening between your fingers as the man drives off.'
  194. if dick >= 14 and dick < 16: $raod_text_sex = 'a normal size'
  195. if dick >= 16 and dick < 18: $raod_text_sex = 'a bit larger than average'
  196. if dick >= 18 and dick < 20: $raod_text_sex = 'quite large'
  197. if dick >= 20: $raod_text_sex = 'huge'
  198. 'You gentle massage his cock between your fingers while the man gets comfortable. It''s <<$raod_text_sex>>, roughly <<dick>> centimetres long and quite girthy. You manage to massage him to a full erection in no time at all, and begin to jerk him off while he drives, rubbing your fingertips over his glans.'
  199. 'Even though you feel a bit awkward for having to service this man to get where you need to be, you''re serious about what you promised him and jerk him off diligently. In no time at all, your soft touch brings him to an orgasm. Unfortunately his cock was pointing straight at you when it happened, and most of his sperm ends up on your clothes.'
  200. gs 'arousal', 'hj', 15, 'prostitution'
  201. gs 'arousal', 'end'
  202. gs 'stat'
  203. act'Continue': gt 'road', 'autospot_drive'
  204. end
  205. if $ARGS[0] = 'autospot_drive':
  206. $location_type = 'event_outdoors'
  207. cla & *clr
  208. menu_off = 1
  209. gs 'stat'
  210. money -= autostop_price * 100
  211. if $road_textrand0 = 'Gadukino':
  212. minut += 15
  213. nroad = 10
  214. elseif $road_textrand0 = 'Pavlovsk':
  215. minut += 15
  216. nroad = 20
  217. elseif $road_textrand0 = 'St. Petersburg':
  218. minut += 15
  219. nroad = 0
  220. end
  221. picrand = RAND(1,2)
  222. if truck_drive = 1:
  223. '<center><B>Main road between St. Petersburg and Pavlovsk</B></center>'
  224. '<center><img <<$set_imgh>> src="images/locations/highway/truck_drive (<<picrand>>).jpg" ></center>'
  225. 'You try to start a conversation once or twice, but the man doesn''t really seem to be interested in chatting while he drives. You give up and just look out the window, while he drives you to your destination.'
  226. 'Fifteen minutes later you arrive, and the man pulls over. "Alright, we''re here. Take care, girl!"'
  227. elseif bandit_drive = 1:
  228. '<center><B>Main road between St. Petersburg and Pavlovsk</B></center>'
  229. '<center><img <<$set_imgh>> src="images/locations/highway/drive (<<picrand>>).jpg" ></center>'
  230. 'You try to start a conversation once or twice, but the man doesn''t really seem to be interested in chatting while he drives. You give up and just look out the window, while he drives you to your destination.'
  231. 'Fifteen minutes later you arrive, and the man pulls over. "Alright, we''re here. Take care, girl!"'
  232. else
  233. '<center><B>Main road between St. Petersburg and Pavlovsk</B></center>'
  234. '<center><img <<$set_imgh>> src="images/locations/highway/drive (<<picrand>>).jpg" ></center>'
  235. 'You try to start a conversation once or twice, but the man doesn''t really seem to be interested in chatting while he drives. You give up and just look out the window, while he drives you to your destination.'
  236. 'Fifteen minutes later you arrive, and the man pulls over. "Alright, we''re here. Take care, girl!"'
  237. end
  238. act'Get out of the car':gt $curloc
  239. end
  240. if $ARGS[0] = 'autostpo_money':
  241. $location_type = 'event_outdoors'
  242. cla & *clr
  243. menu_off = 1
  244. gs 'stat'
  245. autostop_price = RAND(3,6)
  246. textrand = RAND(1,3)
  247. if textrand = 1:$road_textrand4 = 'I''ll take you there for <<autostop_price*100>> <b>₽</b>.'
  248. if textrand = 2:$road_textrand4 = '<<autostop_price*100>> <b>₽</b>. Take it or leave it.'
  249. if textrand = 3:$road_textrand4 = '<<autostop_price*100>> <b>₽</b>.'
  250. if truck_drive = 1:
  251. '<center><B>Main road between St. Petersburg and Pavlovsk</B></center>'
  252. '<center><img <<$set_imgh>> src="images/locations/highway/truck_guy (<<picrand>>).jpg" ></center>'
  253. elseif bandit_drive = 1:
  254. '<center><B>Main road between St. Petersburg and Pavlovsk</B></center>'
  255. '<center><img <<$set_imgh>> src="images/locations/highway/guy (1).jpg" ></center>'
  256. else
  257. '<center><B>Main road between St. Petersburg and Pavlovsk</B></center>'
  258. '<center><img <<$set_imgh>> src="images/locations/highway/guy (<<picrand>>).jpg" ></center>'
  259. end
  260. 'You approach the driver and say: "Hello, sir! I need a ride to <<$road_textrand0>>, can you help me?"'
  261. 'The driver gives you another appraising look.'
  262. vnerand = RAND(0,1200)
  263. if vnerand <= pcs_apprnc:
  264. cla
  265. '"I can take you there for free, but only if you do something for me in return", the guy smiles.'
  266. '"Uhh... like what?" you ask him, even though you''re pretty sure you know where this is going.'
  267. 'The man laughs and shifts a bit in his seat. He says: "You''re a grown-up girl with a nice body! Surely you can think of something?"'
  268. act'Offer a blowjob':
  269. cla
  270. drive_sex[1] = 1
  271. 'You bite your lip for a second, quickly going through your options. Then you say: "I really do need this ride, sir! Would a blowjob be okay?"'
  272. 'The guy grins greedily and says: "Excellent, I knew we would find a way to help each other out! Get in."'
  273. act'Get in the car':gt 'road', 'drive_sex1'
  274. end
  275. act'Offer a handjob':
  276. cla
  277. drive_sex[2] = 1
  278. 'You bite your lip for a second, quickly going through your options. Then you say: "I really do need this ride, sir! Would a handjob be okay?"'
  279. 'The guy gives you a slightly disappointed look and frowns: "What? Only a handjob?"'
  280. 'You really don''t want to go further than that! Your cheeks turn a deep red and you begin to stumble: "I''m sorry. I don''t normally do this..."'
  281. 'After some hesitation, he responds: "Oh, alright then. Getting a handjob from a cute girl such as yourself sounds like a fair deal. Get in."'
  282. act'Get in the car':gt 'road', 'drive_sex2'
  283. end
  284. exit
  285. else
  286. 'He ponders for a second, and then says: "<<$road_textrand4>>"'
  287. end
  288. if money > autostop_price*100:
  289. act'Agree to pay him': gt 'road', 'autospot_drive'
  290. end
  291. act'Decline his offer':
  292. cla
  293. '"I''m sorry, sir. I can''t afford that", you apologize, and step away from the car. The man shrugs and drives off.'
  294. act 'Continue':gt $curloc
  295. end
  296. act'Ask for a lower price':
  297. cla
  298. textrand = RAND(1,3)
  299. if textrand = 1:$road_textrand5 = 'Please, sir! I''m nearly broke... would you please do a girl a favour? I''d be so grateful!'
  300. if textrand = 2:$road_textrand5 = 'Maybe we can work something out?'
  301. if textrand = 3:$road_textrand5 = 'Oh no, I don''t have that much! Could you lower your price? Maybe a bit, just for me?'
  302. 'You twirl your hair between your fingers and give the man a cute look, hoping he will have pity on you and lower the price. "<<$road_textrand5>>" you ask him sweetly.'
  303. 'The man seems a bit reluctant, and looks at you once more.'
  304. vnerand = RAND(0,400)
  305. if vnerand <= pcs_apprnc:
  306. cla
  307. '"I can take you there for free, but only if you do something for me in return", the guy smiles.'
  308. '"Uhh... like what?" you ask him, even though you''re pretty sure you know where this is going.'
  309. 'The man laughs and shifts a bit in his seat. He says: "You''re a grown-up girl with a nice body! Surely you can think of something?"'
  310. act'Offer a blowjob':
  311. cla
  312. drive_sex[1] = 1
  313. 'You bite your lip for a second, quickly going through your options. Then you say: "I really do need this ride, sir! Would a blowjob be okay?"'
  314. 'The guy grins greedily and says: "Excellent, I knew we would find a way to help each other out! Get in."'
  315. act'Get in the car':gt 'road', 'drive_sex1'
  316. end
  317. act'Offer a handjob':
  318. cla
  319. drive_sex[2] = 1
  320. 'You bite your lip for a second, quickly going through your options. Then you say: "I really do need this ride, sir! Would a handjob be okay?"'
  321. 'The guy gives you a slightly disappointed look and says: "What? Only a handjob?"'
  322. 'You really don''t want to go further than that! Your cheeks turn a deep red and you begin to stumble: "I''m sorry. I don''t normally do this..."'
  323. 'After some hesitation, he responds: "Oh, alright then. Getting a handjob from a cute girl such as yourself sounds like a fair deal. Get in."'
  324. act'Get in the car':gt 'road', 'drive_sex2'
  325. end
  326. else
  327. ivrand = RAND(1,2)
  328. autostop_price -= ivrand
  329. 'The man sighs exasperatedly, but yields: "Okay, fine. I''ll make it <<ivrand*100>> <b>₽</b> less, because you seem like a nice girl and I want to help you out. I''ll take you there for <<autostop_price*100>> <b>₽</b>, but I can''t go any lower than that!"'
  330. if money > autostop_price*100:
  331. act'Agree to pay him':
  332. !trip
  333. gt 'road', 'autospot_drive'
  334. end
  335. end
  336. act'Decline his offer':
  337. cla
  338. '"I''m sorry, sir. I still can''t afford that", you apologize, and step away from the car. The man shrugs and drives off.'
  339. act 'Continue':gt $curloc
  340. end
  341. act'Offer him a blowjob instead':
  342. cla
  343. drive_sex[1] = 1
  344. 'You bite your lip, as if you are ashamed for what you''re about to say next. In a weak voice, you offer: "I can''t pay you money, sir. But... I could give you a blowjob? Would that be okay?"'
  345. 'You lick your lips seductively and offer him a weak smile, hoping that maybe he''ll feel bad for you and just take you with him for free.'
  346. 'The man grins from ear to ear, and says: "You know what, girl? I was kinda hoping you''d say that. Get in."'
  347. act'Get in the car':gt 'road', 'drive_sex1'
  348. end
  349. end
  350. end
  351. end
  352. if $ARGS[0] = 'autostop_d':
  353. cla & *clr
  354. menu_off = 1
  355. gs'stat'
  356. truck_drive = 0
  357. bandit_drive = 0
  358. drive_sex[1] = 0
  359. drive_sex[2] = 0
  360. textrand = RAND(1,5)
  361. if textrand = 1:$road_textrand1 = 'Hey there, darling! Where are you going?'
  362. if textrand = 2:$road_textrand1 = 'What''s a gorgeous girl like you doing all alone on a road like this?'
  363. if textrand = 3:$road_textrand1 = 'Hey girl, need a ride?'
  364. if textrand = 4:$road_textrand1 = 'Hey beauty, going somewhere?'
  365. if textrand = 5:$road_textrand1 = 'Darling, you shouldn''t be out here all alone! Do you need a ride?'
  366. textrand = RAND(1,5)
  367. if textrand = 1:$road_textrand2 = 'perfectly clean and shiny'
  368. if textrand = 2:$road_textrand2 = 'dirty'
  369. if textrand = 3:$road_textrand2 = 'dusty'
  370. if textrand = 4:$road_textrand2 = 'slightly dusty'
  371. if textrand = 5:$road_textrand2 = 'very dirty'
  372. textrand = RAND(1,5)
  373. if textrand = 1:$road_textrand3 = 'black'
  374. if textrand = 2:$road_textrand3 = 'white'
  375. if textrand = 3:$road_textrand3 = 'red'
  376. if textrand = 4:$road_textrand3 = 'blue'
  377. if textrand = 5:$road_textrand3 = 'grey'
  378. !wagon and sedan
  379. ivrand = RAND(1,2)
  380. if ivrand = 1:
  381. !gangsters or not
  382. ivrand = RAND(1,4)
  383. if ivrand > 1:
  384. picrand = RAND(2,4)
  385. bandit_drive = 1
  386. '<center><B>Main road between St. Petersburg and Pavlovsk</B></center>'
  387. '<center><img <<$set_imgh>> src="images/locations/highway/guy (<<picrand>>).jpg" ></center>'
  388. 'After a few minutes of you trying to get someone to pull over, a <<$road_textrand3>>, <<$road_textrand2>> car stops near you. The driver rolls down his window and looks at you for a second, probably making sure you wouldn''t ruin his seats with dirty clothes or something.'
  389. if pcs_apprnc < 60:'Then he shrugs and says: "Where do you need to go, lady?"'
  390. if pcs_apprnc >= 60:'Then he gives you a friendly smile and says: "<<$road_textrand1>>"'
  391. elseif ivrand = 1:
  392. '<center><B>Main road between St. Petersburg and Pavlovsk</B></center>'
  393. '<center><img <<$set_imgh>> src="images/locations/highway/guy (1).jpg" ></center>'
  394. 'After a few minutes of you trying to get someone to pull over, a black car with tinted windows stops near you. Two guys wearing leather jackets are clearly appraising your body.'
  395. 'One says to the other: "Nice, we clearly drove to the right place!"'
  396. end
  397. elseif ivrand = 2:
  398. picrand = RAND(1,3)
  399. truck_drive = 1
  400. '<center><B>Main road between St. Petersburg and Pavlovsk</B></center>'
  401. '<center><img <<$set_imgh>> src="images/locations/highway/truck_guy (<<picrand>>).jpg" ></center>'
  402. 'After a few minutes of you trying to get someone to pull over, a huge <<$road_textrand3>>, <<$road_textrand2>> truck stops near you. The truck driver looks at you intently for a second, probably making sure you wouldn''t ruin his seats with dirty clothes or something.'
  403. if pcs_apprnc < 60:'Then he shrugs and says: "Where do you need to go, lady?"'
  404. if pcs_apprnc >= 60:'Then he gives you a friendly smile and says: "<<$road_textrand1>>"'
  405. end
  406. end
  407. --- road ---------------------------------