453_autoservisF 4.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138
  1. # autoservisF
  2. <<<<<<< 453_autoservisF
  3. if $ARGS[0] = 'start':
  4. =======
  5. if $ARGS[0]='start':
  6. >>>>>>> 453_autoservisF
  7. $metka = $ARGS[0]
  8. $loc = $CURLOC
  9. cla
  10. *clr
  11. <<<<<<< 453_autoservisF
  12. gs 'stat'
  13. set minut += 5
  14. gs 'avtonorm'
  15. '<center><B>Driving</B></center>'
  16. '<center><img src="images\etogame\autoservis1.jpg"></center>'
  17. if cardrive = 7:
  18. if wrek = 0:
  19. if teh >= tehcar * 75/100: 'Master your car inspected and said that she does not need any repairs or maintenance in those.'
  20. if teh < tehcar*75/100:
  21. 'Master looked at your car and said that the cost of work <<normrem>>.'
  22. if money >= normrem:
  23. act 'Pay and repair':
  24. cla
  25. *clr
  26. set money -= normrem
  27. set minut += 60
  28. set teh = tehcar
  29. wrek = 0
  30. '<center><img src="images\etogame\autoservis2.jpg"></center>'
  31. 'You sat for an hour in the recreation room pretending that watching TV is finally repaired the car and you have paid in cash <<normrem>> rubles'
  32. act 'Leave': gt 'Nord'
  33. end
  34. end
  35. end
  36. end
  37. if wrek = 1:
  38. 'Master prisvisnul looking at your unit and said that the cost of work <<normrem>>.'
  39. if money >= normrem:
  40. act 'Pay and repair':
  41. cla
  42. *clr
  43. set money -= normrem
  44. set minut += 60
  45. set tehcar = tehcar / 2
  46. set teh = tehcar
  47. wrek = 0
  48. '<center><img src="images\etogame\autoservis2.jpg"></center>'
  49. 'You sat for an hour in the recreation room pretending that watching TV is finally repaired the car and you have paid in cash <<normrem>> rubles'
  50. 'Master before giving clues told you that you would not have tried to bring the car to this state.'
  51. act 'Leave': gt 'Nord'
  52. end
  53. end
  54. end
  55. end
  56. if cardrive ! 7: 'Master smiled and said, "Girl, I need a car to see what though, that what you say. Fetches it to the car service, we´ll see."'
  57. if wrek = 1 and cardrive ! 7 and car > 0:
  58. 'At the service station operates a service evacuation of damaged cars to service centers, the cost in 2500'
  59. if money >= 2500:
  60. act 'Pay shipping cars 2500rub (1:00)':
  61. cla
  62. *clr
  63. set money -= 2500
  64. set cardrive = 7
  65. set minut += 60
  66. '<center><img src="images\etogame\autoservis2.jpg"></center>'
  67. 'You sat for an hour in the service station, waiting when will bring your car. Finally the time has passed and your car was delivered to the gate Car.'
  68. act 'To master': gt 'autoservisF','start'
  69. end
  70. end
  71. end
  72. act 'Leave': gt 'Nord'
  73. =======
  74. gs'stat'
  75. set minut = minut + 5
  76. gs'avtonorm'
  77. '<center><B>Service_and_repair</B></center>'
  78. '<center><img src="pic/autoservis1.jpg" ></center>'
  79. if cardrive = 7:
  80. if wrek = 0:
  81. if teh >= tehcar*75/100:'Master looked at your car and said, that it does not need to be repaired, any of those service.'
  82. if teh < tehcar*75/100:
  83. 'Master looked at your car and said, that the cost of the work <<normrem>>.'
  84. if money >= normrem:
  85. act 'Pay and repair':
  86. cla
  87. *clr
  88. set money = money - normrem
  89. set minut = minut + 60
  90. set teh = tehcar
  91. wrek=0
  92. '<center><img src="pic/autoservis2.jpg" ></center>'
  93. 'You sat for an hour in the lounge pretending that watching TV, Finally the car repaired and you paid in cash <<normrem>> rubles'
  94. act 'Get_Away':gt'Nord'
  95. end
  96. end
  97. end
  98. end
  99. if wrek = 1:
  100. 'Master prisvisnul looking at your unit and said, that the cost of the work <<normrem>>.'
  101. if money >= normrem:
  102. act 'Pay and repair':
  103. cla
  104. *clr
  105. set money = money - normrem
  106. set minut = minut + 60
  107. set tehcar = tehcar/2
  108. set teh = tehcar
  109. wrek=0
  110. '<center><img src="pic/autoservis2.jpg" ></center>'
  111. 'You sat for an hour in the lounge pretending that watching TV, Finally the car repaired and you paid in cash <<normrem>> rubles'
  112. 'Master before you hand over the keys you said, what would you have tried not to bring the car to a state.'
  113. act 'Get_Away':gt'Nord'
  114. end
  115. end
  116. end
  117. end
  118. if cardrive ! 7:'Master smiled and said "girl, I need a car to see, that would at least, what you say. -Fit it to the car service, we`ll_see."'
  119. if wrek = 1 and cardrive ! 7 and car > 0:
  120. 'In the service station operates service to evacuate damaged cars Car, cost 2500'
  121. if money >= 2500:
  122. act 'Pay shipping cars 2500RUB (1 h)':
  123. cla
  124. *clr
  125. set money = money - 2500
  126. set cardrive = 7
  127. set minut = minut + 60
  128. '<center><img src="pic/autoservis2.jpg" ></center>'
  129. 'You sat for an hour in the service station, waiting when will bring your car. Finally the time has passed and your car was taken to the gate Car.'
  130. act 'To master':gt'autoservisF','start'
  131. end
  132. end
  133. end
  134. act 'Get_Away':gt'Nord'
  135. >>>>>>> 453_autoservisF
  136. end
  137. --- autoservisF ---------------------------------