380_carF1 6.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408
  1. # carF1
  2. if $ARGS[0] = 'car':
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. cla
  6. *clr
  7. gs 'stat'
  8. set minut += 5
  9. clr
  10. '<center><B>2107</B></center>'
  11. '<center><img src="images\picar\car.jpg"></center>'
  12. act 'Sit in the lounge':
  13. cla
  14. *clr
  15. '<center><img src="images\picar\salon.jpg"></center>'
  16. act 'Leave': gt 'carF1','car'
  17. end
  18. act 'Leave':
  19. cla
  20. if cartraid = 1: gt 'autosalonF','start'
  21. if cartraid = 2: gt 'autotraidF','manager'
  22. end
  23. end
  24. if $ARGS[0] = 'car2':
  25. cla
  26. *clr
  27. gs 'stat'
  28. set minut += 5
  29. clr
  30. $metka = $ARGS[0]
  31. $loc = $CURLOC
  32. '<center><B>2115</B></center>'
  33. '<center><img src="images\picar\car2.jpg"></center>'
  34. act 'Sit in the lounge':
  35. cla
  36. *clr
  37. '<center><img src="images\picar\salon2.jpg"></center>'
  38. act 'Leave': gt 'carF1','car2'
  39. end
  40. act 'Leave':
  41. cla
  42. if cartraid = 1: gt 'autosalonF','start'
  43. if cartraid = 2: gt 'autotraidF','manager'
  44. end
  45. end
  46. if $ARGS[0] = 'car3':
  47. cla
  48. *clr
  49. gs 'stat'
  50. set minut += 5
  51. clr
  52. $metka = $ARGS[0]
  53. $loc = $CURLOC
  54. '<center><B>2113</B></center>'
  55. '<center><img src="images\picar\car3.jpg"></center>'
  56. act 'Sit in the lounge':
  57. cla
  58. *clr
  59. '<center><img src="images\picar\salon3.jpg"></center>'
  60. act 'Leave': gt 'carF1','car3'
  61. end
  62. act 'Leave':
  63. cla
  64. if cartraid = 1: gt 'autosalonF','start'
  65. if cartraid = 2: gt 'autotraidF','manager'
  66. end
  67. end
  68. if $ARGS[0] = 'car4':
  69. cla
  70. *clr
  71. gs 'stat'
  72. set minut += 5
  73. clr
  74. $metka = $ARGS[0]
  75. $loc = $CURLOC
  76. '<center><B>2114</B></center>'
  77. '<center><img src="images\picar\car4.jpg"></center>'
  78. act 'Sit in the lounge':
  79. cla
  80. *clr
  81. '<center><img src="images\picar\salon4.jpg"></center>'
  82. act 'Leave': gt 'carF1','car4'
  83. end
  84. act 'Leave':
  85. cla
  86. if cartraid = 1: gt 'autosalonF','start'
  87. if cartraid = 2: gt 'autotraidF','manager'
  88. end
  89. end
  90. if $ARGS[0] = 'car5':
  91. cla
  92. *clr
  93. gs 'stat'
  94. set minut += 5
  95. clr
  96. $metka = $ARGS[0]
  97. $loc = $CURLOC
  98. '<center><B>VAZ 2119</B></center>'
  99. '<center><img src="images\picar\car5.jpg"></center>'
  100. act 'Sit in the lounge':
  101. cla
  102. *clr
  103. '<center><img src="images\picar\salon5.jpg"></center>'
  104. act 'Leave': gt 'carF1','car5'
  105. end
  106. act 'Leave':
  107. cla
  108. if cartraid = 1: gt 'autosalonF','start'
  109. if cartraid = 2: gt 'autotraidF','manager'
  110. end
  111. end
  112. if $ARGS[0] = 'car6':
  113. cla
  114. *clr
  115. gs 'stat'
  116. set minut += 5
  117. clr
  118. $metka = $ARGS[0]
  119. $loc = $CURLOC
  120. '<center><B>VAZ Kalina</B></center>'
  121. '<center><img src="images\picar\car6.jpg"></center>'
  122. act 'Sit in the lounge':
  123. cla
  124. *clr
  125. '<center><img src="images\picar\salon6.jpg"></center>'
  126. act 'Leave': gt 'carF1','car6'
  127. end
  128. act 'Leave':
  129. cla
  130. if cartraid = 1: gt 'autosalonF','start'
  131. if cartraid = 2: gt 'autotraidF','manager'
  132. end
  133. end
  134. if $ARGS[0] = 'car7':
  135. cla
  136. *clr
  137. gs 'stat'
  138. set minut += 5
  139. clr
  140. $metka = $ARGS[0]
  141. $loc = $CURLOC
  142. '<center><B>VAZ Pryor</B></center>'
  143. '<center><img src="images\picar\car7.jpg"></center>'
  144. act 'Sit in the lounge':
  145. cla
  146. *clr
  147. '<center><img src="images\picar\salon7.jpg"></center>'
  148. act 'Leave': gt 'carF1','car7'
  149. end
  150. act 'Leave':
  151. cla
  152. if cartraid = 1: gt 'autosalonF','start'
  153. if cartraid = 2: gt 'autotraidF','manager'
  154. end
  155. end
  156. if $ARGS[0] = 'car8':
  157. cla
  158. *clr
  159. gs 'stat'
  160. set minut += 5
  161. clr
  162. $metka = $ARGS[0]
  163. $loc = $CURLOC
  164. '<center><B>Chevrolet Niva</B></center>'
  165. '<center><img src="images\picar\car8.jpg"></center>'
  166. act 'Sit in the lounge':
  167. cla
  168. *clr
  169. '<center><img src="images\picar\salon8.jpg"></center>'
  170. act 'Leave': gt 'carF1','car8'
  171. end
  172. act 'Leave':
  173. cla
  174. if cartraid = 1: gt 'autosalonF','start'
  175. if cartraid = 2: gt 'autotraidF','manager'
  176. end
  177. end
  178. if $ARGS[0] = 'car9':
  179. cla
  180. *clr
  181. gs 'stat'
  182. set minut += 5
  183. clr
  184. $metka = $ARGS[0]
  185. $loc = $CURLOC
  186. '<center><B>UAZ HUNTER</B></center>'
  187. '<center><img src="images\picar\car9.jpg"></center>'
  188. act 'Sit in the lounge':
  189. cla
  190. *clr
  191. '<center><img src="images\picar\salon9.jpg"></center>'
  192. act 'Leave': gt 'carF1','car9'
  193. end
  194. act 'Leave':
  195. cla
  196. if cartraid = 1: gt 'autosalonF','start'
  197. if cartraid = 2: gt 'autotraidF','manager'
  198. end
  199. end
  200. if $ARGS[0] = 'car10':
  201. cla
  202. *clr
  203. gs 'stat'
  204. set minut += 5
  205. clr
  206. $metka = $ARGS[0]
  207. $loc = $CURLOC
  208. '<center><B>UAZ Patriot</B></center>'
  209. '<center><img src="images\picar\car10.jpg"></center>'
  210. act 'Sit in the lounge':
  211. cla
  212. *clr
  213. '<center><img src="images\picar\salon10.jpg"></center>'
  214. act 'Leave': gt 'carF1','car10'
  215. end
  216. act 'Leave':
  217. cla
  218. if cartraid = 1: gt 'autosalonF','start'
  219. if cartraid = 2: gt 'autotraidF','manager'
  220. end
  221. end
  222. if $ARGS[0] = 'car95':
  223. $metka = $ARGS[0]
  224. $loc = $CURLOC
  225. cla
  226. *clr
  227. gs 'stat'
  228. set minut += 5
  229. clr
  230. '<center><B>Mitsubishi l200</B></center>'
  231. '<center><img src="images\picar\car95.jpg"></center>'
  232. act 'Sit in the lounge':
  233. cla
  234. *clr
  235. '<center><img src="images\picar\salon95.jpg"></center>'
  236. act 'Leave': gt 'carF1','car95'
  237. end
  238. act 'Leave':
  239. cla
  240. if cartraid = 1: gt 'autosalonF','start'
  241. if cartraid = 2: gt 'autotraidF','manager'
  242. end
  243. end
  244. if $ARGS[0] = 'car96':
  245. $metka = $ARGS[0]
  246. $loc = $CURLOC
  247. cla
  248. *clr
  249. gs 'stat'
  250. set minut += 5
  251. clr
  252. '<center><B>Audi Q7</B></center>'
  253. '<center><img src="images\picar\car96.jpg"></center>'
  254. act 'Sit in the lounge':
  255. cla
  256. *clr
  257. '<center><img src="images\picar\salon96.jpg"></center>'
  258. act 'Leave': gt 'carF1','car96'
  259. end
  260. act 'Leave':
  261. cla
  262. if cartraid = 1: gt 'autosalonF','start'
  263. if cartraid = 2: gt 'autotraidF','manager'
  264. end
  265. end
  266. if $ARGS[0] = 'car97':
  267. $metka = $ARGS[0]
  268. $loc = $CURLOC
  269. cla
  270. *clr
  271. gs 'stat'
  272. set minut += 5
  273. clr
  274. '<center><B>Cadillac Escalade</B></center>'
  275. '<center><img src="images\picar\car97.jpg"></center>'
  276. act 'Sit in the lounge':
  277. cla
  278. *clr
  279. '<center><img src="images\picar\salon97.jpg"></center>'
  280. act 'Leave': gt 'carF1','car97'
  281. end
  282. act 'Leave':
  283. cla
  284. if cartraid = 1: gt 'autosalonF','start'
  285. if cartraid = 2: gt 'autotraidF','manager'
  286. end
  287. end
  288. if $ARGS[0] = 'car98':
  289. $metka = $ARGS[0]
  290. $loc = $CURLOC
  291. cla
  292. *clr
  293. gs 'stat'
  294. set minut += 5
  295. clr
  296. '<center><B>Porsche Cayenne</B></center>'
  297. '<center><img src="images\picar\car98.jpg"></center>'
  298. act 'Sit in the lounge':
  299. cla
  300. *clr
  301. '<center><img src="images\picar\salon98.jpg"></center>'
  302. act 'Leave': gt 'carF1','car98'
  303. end
  304. act 'Leave':
  305. cla
  306. if cartraid = 1: gt 'autosalonF','start'
  307. if cartraid = 2: gt 'autotraidF','manager'
  308. end
  309. end
  310. if $ARGS[0] = 'car99':
  311. $metka = $ARGS[0]
  312. $loc = $CURLOC
  313. cla
  314. *clr
  315. gs 'stat'
  316. set minut += 5
  317. clr
  318. '<center><B>BMW X6</B></center>'
  319. '<center><img src="images\picar\car99.jpg"></center>'
  320. act 'Sit in the lounge':
  321. cla
  322. *clr
  323. '<center><img src="images\picar\salon99.jpg"></center>'
  324. act 'Leave': gt 'carF1','car99'
  325. end
  326. act 'Leave':
  327. cla
  328. if cartraid = 1: gt 'autosalonF','start'
  329. if cartraid = 2: gt 'autotraidF','manager'
  330. end
  331. end
  332. if $ARGS[0] = 'car100':
  333. $metka = $ARGS[0]
  334. $loc = $CURLOC
  335. cla
  336. *clr
  337. gs 'stat'
  338. set minut += 5
  339. clr
  340. '<center><B>Mercedes-Benz S 600</B></center>'
  341. '<center><img src="images\picar\car100.jpg"></center>'
  342. act 'Sit in the lounge':
  343. cla
  344. *clr
  345. '<center><img src="images\picar\salon100.jpg"></center>'
  346. act 'Leave': gt 'carF1','car100'
  347. end
  348. act 'Leave':
  349. cla
  350. if cartraid = 1: gt 'autosalonF','start'
  351. if cartraid = 2: gt 'autotraidF','manager'
  352. end
  353. end
  354. --- carF1 ---------------------------------