1
0

gargazel 2.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869
  1. # gargazel
  2. CLOSE ALL
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. fatherdrunk=0
  6. clr
  7. gs 'stat'
  8. '<center><h4>Garage</h4></center>'
  9. if father_go = 1 and hour >= 16 and hour < 21:
  10. '<center><img src="images/pic/gargazel.jpg"></center>'
  11. 'A large garage that belongs to your stepfather. He spends time in there working on his beloved Gazelle pickup truck whenever he can in the late afternoons and evenings. You can tell the door is not locked, he''s probably in there now.'
  12. else
  13. '<center><img src="images/pic/gargazel_empty.jpg"></center>'
  14. 'A large garage that belongs to your stepfather. He spends time in there working on his beloved Gazelle pickup truck whenever he can in the late afternoons and evenings. Right now the garage is closed, and the door is locked with a large padlock.'
  15. end
  16. act 'Leave the garage':minut += 5 & gt 'garmassiv'
  17. if father_go = 1 and hour >= 16 and hour < 20:
  18. 'Your <a href="exec:GT ''garfather''">stepfather</a> is in the garage, working on his Gazelle pickup truck.'
  19. end
  20. if father_go=1 and hour>=20 and hour<21:
  21. 'Your <a href="exec:GT ''garfather''">stepfather and uncle Misha</a> are in the garage, drinking vodka.'
  22. set fatherdrunk=1
  23. end
  24. if YouCanGar > 0:
  25. 'You have stored <<GarTorgItem>> trinkets in the garage currently. Your stepfather allowed you to store some things in his garage but doesn''t want you taking up all his space, he has allowed you to store up to 100 trinkets here. The garage is not very easily accessible; if you want to sell the trinkets at the station, you will have to bring them back home first.'
  26. if tovarL >= 30:
  27. 'You already have too much stored at home and do not have any more space.'
  28. elseif tovarL < 30:
  29. perenGarTov = 30-tovarL
  30. 'You can bring <<perenGarTov>> trinkets home and store them somewhere, until you have time to collect and sell them at the train station.'
  31. if GarTorgItem > 0:
  32. if GarTorgItem >= perenGarTov:
  33. act 'Move <<perenGarTov>> trinkets to your home':
  34. cls
  35. minut += 60
  36. tovarL += perenGarTov
  37. GarTorgItem -= perenGarTov
  38. gs 'stat'
  39. 'You spend an hour gathering your trinkets from various places, bringing them home and hiding them there.'
  40. act 'Continue':gt $curloc
  41. end
  42. end
  43. if GarTorgItem < perenGarTov:
  44. act 'Collect <<GarTorgItem>> trinkets to take with you':
  45. cls
  46. minut += 30
  47. tovarL += GarTorgItem
  48. GarTorgItem = 0
  49. gs 'stat'
  50. 'You spend half an hour gathering your trinkets from various places in the garage, putting them in a bag so you can go sell them at the station.'
  51. act 'Continue':gt $curloc
  52. end
  53. end
  54. end
  55. end
  56. end
  57. --- gargazel ---------------------------------