autoservisF 2.4 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182
  1. # autoservisF
  2. if $ARGS[0] = 'start':
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. $location_type = 'event'
  6. cla
  7. *clr
  8. minut += 5
  9. gs 'stat'
  10. gs 'avtonorm'
  11. '<center><b>Service and repair</b></center>'
  12. '<center><img src="images/etogame/autoservis1.jpg"></center>'
  13. if cardrive = 7:
  14. if wrek = 0:
  15. if teh >= tehcar * 75 / 100:'Master your car inspected and said that she does not need any repairs or maintenance in those.'
  16. if teh < tehcar * 75 / 100:
  17. 'Master looked at your car and said that the cost of work <<normrem>>.'
  18. if money >= normrem:
  19. act 'Pay and repair':
  20. cla
  21. *clr
  22. money -= normrem
  23. minut += 60
  24. teh = tehcar
  25. wrek = 0
  26. '<center><img src="images/etogame/autoservis2.jpg"></center>'
  27. '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>> <b>₽</b>'
  28. act 'Leave':gt 'Nord'
  29. end
  30. end
  31. end
  32. elseif wrek = 1:
  33. 'Master prisvisnul looking at your unit and said that the cost of work <<normrem>>.'
  34. if money >= normrem:
  35. act 'Pay and repair':
  36. cla
  37. *clr
  38. money -= normrem
  39. minut += 60
  40. tehcar = tehcar / 2
  41. teh = tehcar
  42. wrek = 0
  43. '<center><img src="images/etogame/autoservis2.jpg"></center>'
  44. '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>> <b>₽</b>'
  45. 'Master before giving clues told you that you would not have tried to bring the car to this state.'
  46. act 'Leave':gt 'Nord'
  47. end
  48. end
  49. end
  50. end
  51. 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."'
  52. if wrek = 1 and cardrive ! 7 and car > 0:
  53. 'At the service station operates a service evacuation of damaged cars to service centers, the cost in 2500'
  54. if money >= 2500:
  55. act 'Pay for towing service (2,500 <b>₽</b>) (1:00)':
  56. cla
  57. *clr
  58. money -= 2500
  59. cardrive = 7
  60. minut += 60
  61. '<center><img src="images/etogame/autoservis2.jpg"></center>'
  62. '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.'
  63. act 'Back to the car service station':gt 'autoservisF', 'start'
  64. end
  65. end
  66. end
  67. act 'Leave':gt 'Nord'
  68. end
  69. --- autoservisF ---------------------------------