autoservisF.qsrc 4.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899
  1. # autoservisF
  2. if $ARGS[0] = 'start':
  3. $loc_arg = $ARGS[0]
  4. $loc = 'autoservisF'
  5. $location_type = 'event'
  6. $menu_arg = 'start'
  7. $menu_loc = 'autoservisF'
  8. menu_off = 0
  9. cla
  10. *clr
  11. gs 'stat'
  12. gs 'avtonorm'
  13. '<center><b>Car Service Center</b></center>'
  14. '<center><img <<$set_imgh>> src="images/locations/city/industrial/carservicesta/autoservis1.jpg"></center>'
  15. if car > 0 and cardrive = 7:'Your <a href="exec:gs ''carF'', ''start''"><<$car>></a> is parked just inside.'
  16. if cardrive = 7:
  17. menu_off = 1
  18. if wrek = 0:
  19. if teh >= tehcar * 75 / 100:
  20. 'The foreman inspects your car quickly but thoroughly.'
  21. 'After only a few minutes, he returns to you and announces that your car doesn''t need any repairs or maintenance.'
  22. end
  23. if teh < tehcar * 75 / 100:
  24. 'The foreman inspects your car quickly but thoroughly.'
  25. 'Here and there, he seems to be murmuring to himself, maybe assessing a defect. After only a few minutes, he returns to you and points out what needs to be fixed.'
  26. 'It would cost you <<normrem>> <b>₽</b>.'
  27. if money >= normrem:
  28. act 'Pay and wait while they repair the car':
  29. cla
  30. *clr
  31. money -= normrem
  32. minut += 60
  33. teh = tehcar
  34. wrek = 0
  35. '<center><img <<$set_imgh>> src="images/locations/city/industrial/carservicesta/autoservis2.jpg"></center>'
  36. 'Since he tells you that it''s not gonna take long, you go into a waiting room with couches and a TV. After about an hour of flipping through channels, the car is ready, and you pay <<normrem>> <b>₽</b>.'
  37. act 'Leave': minut += 5 & gt 'city_industrial'
  38. end
  39. end
  40. end
  41. elseif wrek = 1:
  42. 'The foreman looks at your car, if this wreckage even qualifies as one, with a professional boredom that tells you he''s seen vehicles in similar or worse states a million times over.'
  43. 'He quickly but thoroughly inspects it, murmuring all the while to take mental notes on what needs to be done, and, when he returns to you, simply states that it would cost <<normrem>> <b>₽</b> to repair the damage.'
  44. if money >= normrem:
  45. act 'Pay and wait while they repair the car':
  46. cla
  47. *clr
  48. money -= normrem
  49. minut += 60
  50. tehcar = tehcar / 2
  51. teh = tehcar
  52. wrek = 0
  53. '<center><img <<$set_imgh>> src="images/locations/city/industrial/carservicesta/autoservis2.jpg"></center>'
  54. 'Since he tells you that it''s not gonna take long - at first you think he is being sarcastic but then realize that his no-nonsense attitude doesn''t leave much room for humour - you go into a waiting room with couches and a TV. After about an hour of flipping through channels, you are called back to the garage and can hardly believe your eyes.'
  55. 'The car looks brand new! Not a single dent, not one scratch, and when you start the engine to make sure it''s working, it sounds better than ever before. You ask the foreman how he and his crew managed to repair the car, and that quickly, but his only response is a shrug.'
  56. 'Before he sends you back into the office to pay the <<normrem>> <b>₽</b>, he asks you to not bring them cars in this pitiable state anymore - you''re not sure whether he is joking or not.'
  57. act 'Leave': minut += 5 & gt 'city_industrial'
  58. end
  59. end
  60. end
  61. end
  62. if cardrive ! 7:'The foreman sighs. "Where is your car, girl? I need to look at your car to see if and what is wrong with it. Bring your car, and I''ll examine it."'
  63. if wrek = 1 and cardrive ! 7 and car > 0:
  64. 'The garage offers a towing service for damaged cars to bring them to this service center. The price: 2500 <b>₽</b>'
  65. if money >= 2500:
  66. act 'Pay for the towing service (2,500 <b>₽</b>) (1:00)':
  67. cla
  68. *clr
  69. menu_off = 1
  70. money -= 2500
  71. cardrive = 7
  72. minut += 60
  73. '<center><img <<$set_imgh>> src="images/locations/city/industrial/carservicesta/autoservis2.jpg"></center>'
  74. 'You sit down and wait at the service station. It takes about an hour until your car arrives, but when it does, it is almost immediately moved into the garage, and it looks like the foreman is about ready to inspect it.'
  75. act 'See what the foreman has to say':gt 'autoservisF', 'start'
  76. end
  77. end
  78. end
  79. act 'Leave': minut += 5 & gt 'city_industrial'
  80. end
  81. if $ARGS[0] = 'is_open':
  82. RESULT = hour >= 9 and hour <= 20 and week < 7
  83. end
  84. --- autoservisF ---------------------------------