autotraidF 4.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206
  1. # autotraidF
  2. if $ARGS[0] = 'start':
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. set minut += 5
  6. gs 'stat'
  7. cla
  8. *clr
  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 to cornerer':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. set minut += 5
  22. gs 'stat'
  23. cla
  24. *clr
  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. set minut += 60
  33. money = money + bupay
  34. car = 0
  35. 'You sold your car.'
  36. act 'Leave':gt 'Nord'
  37. end
  38. end
  39. if cardrive ! 9:
  40. 'Fence says that he needs to look at the car before you set a price, and if you want, it will call a tow truck for 2500 that would take your car to the market.'
  41. if money >= 2500:
  42. act 'Tow truck to market (2500 rubles) (1:00)':
  43. cla
  44. set minut += 60
  45. set cardrive = 9
  46. set money -= 2500
  47. '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.'
  48. act 'To cornerer':gt 'autotraidF', 'manager1'
  49. end
  50. end
  51. end
  52. act 'Leave':gt 'Nord'
  53. end
  54. if $ARGS[0] = 'car':
  55. $metka = $ARGS[0]
  56. $loc = $CURLOC
  57. set minut += 5
  58. gs 'stat'
  59. cla
  60. *clr
  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. set carT = 0
  65. if hour <= 17:
  66. act 'Inspect 2107 (on the go)':
  67. cla
  68. *clr
  69. '<center><b>2107 (on the move)</b></center>'
  70. '<center><img src="images/picar/car.jpg"></center>'
  71. set tehNT = 200
  72. set tehT = rand(10, tehNT)
  73. set carT = 1
  74. gs 'avt'
  75. '<<$tehT>> The dealer wants <<bupay>> rubles'
  76. act 'Leave':gt 'autotraidF', 'car'
  77. if car = 0 and prava = 1 and money >= bupay:
  78. act 'Buy (<<bupay>> rubles)':
  79. cla
  80. set money -= bupay
  81. set $car = '2107'
  82. set car = 1
  83. set benz = 3
  84. set cardrive = 9
  85. set teh = tehT
  86. set tehcar = 200
  87. set wrek = 0
  88. 'You pay <<bupay>> rubles and bought a car. Merchant put her near the market and warned that there is little gasoline.'
  89. act 'Leave':gt 'Nord'
  90. end
  91. end
  92. end
  93. act 'Inspect 2107 (not move)':
  94. cla
  95. *clr
  96. set tehNT = 200
  97. set tehT = rand(10, tehNT)
  98. set bupay = rand(10000, 50000)
  99. 'The machine is not on the move. Merchant wants to <<bupay>> rubles'
  100. act 'Leave':gt 'autotraidf', 'car'
  101. if car = 0 and prava = 1 and money >= bupay:
  102. act 'Buy <<bupay>>rubles':
  103. cla
  104. set money -= bupay
  105. set $car = '2107'
  106. set car = 1
  107. set benz = 3
  108. set cardrive = 9
  109. set teh = tehT
  110. set tehcar = 200
  111. set wrek = 1
  112. 'You pay <<bupay>> rubles and bought a car. Merchant put her near the market.'
  113. act 'Leave':gt 'Nord'
  114. end
  115. end
  116. end
  117. act 'Inspect GAZ 3102 (on the go)':
  118. cla
  119. *clr
  120. '<center><b>3102 GAS (on the move)</b></center>'
  121. '<center><img src="images/picar/car11.jpg"></center>'
  122. set tehNT = 1000
  123. set tehT = rand(10, tehNT)
  124. set carT = 2
  125. gs 'avt'
  126. '<<$tehT>> The dealer wants <<bupay>> rubles'
  127. act 'Leave':gt 'autotraidf', 'car'
  128. if car = 0 and prava = 1 and money >= bupay:
  129. act 'Buy <<bupay>>rubles':
  130. cla
  131. set money -= bupay
  132. set $car = 'GAZ 3102'
  133. set car = 11
  134. set benz = 5
  135. set cardrive = 9
  136. set teh = tehT
  137. set tehcar = 1000
  138. set wrek = 0
  139. 'You pay <<bupay>> rubles and bought a car. Merchant put her near the market and warned that there is little gasoline.'
  140. act 'Leave':gt 'Nord'
  141. end
  142. end
  143. end
  144. act 'Inspect 3110 (on the go)':
  145. cla
  146. *clr
  147. '<center><b>3110 (on the move)</b></center>'
  148. '<center><img src="images/picar/car12.jpg"></center>'
  149. set tehNT = 800
  150. set tehT = rand(10, tehNT)
  151. set carT = 2
  152. gs 'avt'
  153. '<<$tehT>> The dealer wants <<bupay>> rubles'
  154. act 'Leave':gt 'autotraidF', 'car'
  155. if car = 0 and prava = 1 and money >= bupay:
  156. act 'Buy (<<bupay>> rubles)':
  157. cla
  158. set money -= bupay
  159. set $car = '3110'
  160. set car = 12
  161. set benz = 5
  162. set cardrive = 9
  163. set teh = tehT
  164. set tehcar = 800
  165. set wrek = 0
  166. 'You pay <<bupay>> rubles and bought a car. Merchant put her near the market and warned that there is little gasoline.'
  167. act 'Leave':gt 'Nord'
  168. end
  169. end
  170. end
  171. end
  172. act 'Leave':gt 'Nord'
  173. end
  174. --- autotraidF ---------------------------------