autotraidF 4.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203
  1. # autotraidF
  2. if $ARGS[0] = 'start':
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. cla
  6. *clr
  7. minut += 5
  8. gs 'stat'
  9. '<center><b>Car</b></center>'
  10. '<center><img src="images/etogame/autotraid.jpg"></center>'
  11. 'Machine can only be bought if you have permission. And you can not have two cars.'
  12. if hour <= 17:
  13. if car > 0:act 'Approach the car salesman':gt 'autotraidF', 'manager1'
  14. act 'View cars put up for sale':gt 'autotraidF', 'car'
  15. end
  16. act 'Leave':gt 'Nord'
  17. end
  18. if $ARGS[0] = 'manager1':
  19. $metka = $ARGS[0]
  20. $loc = $CURLOC
  21. cla
  22. *clr
  23. minut += 5
  24. gs 'stat'
  25. '<center><b>Car</b></center>'
  26. '<center><img src="images/etogame/autotraid.jpg"></center>'
  27. gs 'avb'
  28. if cardrive = 9 and car > 0:
  29. 'Fence walked around the car and offered you for it <<bupay>> rubles'
  30. act 'Sell ​​for (<<bupay>> rubles) (1:00)':
  31. cla
  32. minut += 60
  33. money = money + bupay
  34. car = 0
  35. 'You sold your car.'
  36. act 'Leave':gt 'Nord'
  37. end
  38. elseif cardrive ! 9:
  39. 'Fence says that he needs to look at the car before you a price, and if you want, it will call a tow truck for 2500 that would take your car to the market.'
  40. if money >= 2500:
  41. act 'Pay for towing service to the car market (2,500 rubles) (1:00)':
  42. cla
  43. minut += 60
  44. cardrive = 9
  45. money -= 2500
  46. 'You gave the money and waited for an hour and when you bring a car, you will finally see her tow truck unloaded near the market.'
  47. act 'Go to car salesman':gt 'autotraidF', 'manager1'
  48. end
  49. end
  50. end
  51. act 'Leave':gt 'Nord'
  52. end
  53. if $ARGS[0] = 'car':
  54. $metka = $ARGS[0]
  55. $loc = $CURLOC
  56. cla
  57. *clr
  58. minut += 5
  59. carT = 0
  60. gs 'stat'
  61. '<center><b>Car</b></center>'
  62. '<center><img src="images/etogame/autotraid.jpg"></center>'
  63. 'So many cars in the parking lot that you can spend a lifetime and never osmotrish all machines, even if the machines on the go, you can understand their technical condition, the machine moves is not a cat in a bag can be a bargain, and can be a waste money, and do not forget, you still deliver it to the service will need.'
  64. if hour <= 17:
  65. act 'Inspect 2107 (on the go)':
  66. cla
  67. *clr
  68. '<center><b>2107 (on the move)</b></center>'
  69. '<center><img src="images/picar/car.jpg"></center>'
  70. tehNT = 200
  71. tehT = rand(10, tehNT)
  72. carT = 1
  73. gs 'avt'
  74. '<<$tehT>> The dealer wants <<bupay>> rubles'
  75. act 'Leave':gt 'autotraidF', 'car'
  76. if car = 0 and prava = 1 and money >= bupay:
  77. act 'Buy (<<bupay>> rubles)':
  78. cla
  79. money -= bupay
  80. $car = '2107'
  81. car = 1
  82. benz = 3
  83. cardrive = 9
  84. teh = tehT
  85. tehcar = 200
  86. wrek = 0
  87. 'You pay <<bupay>> rubles and bought a car. Merchant put her near the market and warned that there is little gasoline.'
  88. act 'Leave':gt 'Nord'
  89. end
  90. end
  91. end
  92. act 'Inspect 2107 (doesn''t move)':
  93. cla
  94. *clr
  95. tehNT = 200
  96. tehT = rand(10, tehNT)
  97. bupay = rand(10000, 50000)
  98. 'The machine is not on the move. Merchant wants to <<bupay>> rubles'
  99. act 'Leave':gt 'autotraidf', 'car'
  100. if car = 0 and prava = 1 and money >= bupay:
  101. act 'Buy <<bupay>>rubles':
  102. cla
  103. money -= bupay
  104. $car = '2107'
  105. car = 1
  106. benz = 3
  107. cardrive = 9
  108. teh = tehT
  109. tehcar = 200
  110. wrek = 1
  111. 'You pay <<bupay>> rubles and bought a car. Merchant put her near the market.'
  112. act 'Leave':gt 'Nord'
  113. end
  114. end
  115. end
  116. act 'Inspect GAZ 3102 (on the go)':
  117. cla
  118. *clr
  119. '<center><b>3102 GAS (on the move)</b></center>'
  120. '<center><img src="images/picar/car11.jpg"></center>'
  121. tehNT = 1000
  122. tehT = rand(10, tehNT)
  123. carT = 2
  124. gs 'avt'
  125. '<<$tehT>> The dealer wants <<bupay>> rubles'
  126. act 'Leave':gt 'autotraidf', 'car'
  127. if car = 0 and prava = 1 and money >= bupay:
  128. act 'Buy <<bupay>>rubles':
  129. cla
  130. money -= bupay
  131. $car = 'GAZ 3102'
  132. car = 11
  133. benz = 5
  134. cardrive = 9
  135. teh = tehT
  136. tehcar = 1000
  137. wrek = 0
  138. 'You pay <<bupay>> rubles and bought a car. Merchant put her near the market and warned that there is little gasoline.'
  139. act 'Leave':gt 'Nord'
  140. end
  141. end
  142. end
  143. act 'Inspect 3110 (on the go)':
  144. cla
  145. *clr
  146. '<center><b>3110 (on the move)</b></center>'
  147. '<center><img src="images/picar/car12.jpg"></center>'
  148. tehNT = 800
  149. tehT = rand(10, tehNT)
  150. carT = 2
  151. gs 'avt'
  152. '<<$tehT>> The dealer wants <<bupay>> rubles'
  153. act 'Leave':gt 'autotraidF', 'car'
  154. if car = 0 and prava = 1 and money >= bupay:
  155. act 'Buy (<<bupay>> rubles)':
  156. cla
  157. money -= bupay
  158. $car = '3110'
  159. car = 12
  160. benz = 5
  161. cardrive = 9
  162. teh = tehT
  163. tehcar = 800
  164. wrek = 0
  165. 'You pay <<bupay>> rubles and bought a car. Merchant put her near the market and warned that there is little gasoline.'
  166. act 'Leave':gt 'Nord'
  167. end
  168. end
  169. end
  170. end
  171. act 'Leave':gt 'Nord'
  172. end
  173. --- autotraidF ---------------------------------