1
0

gargazel 2.2 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485
  1. # gargazel
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. clr
  5. gs 'stat'
  6. '<center><h4>Garage</h4></center>'
  7. if father_go = 1 and hour >= 16 and hour < 21:
  8. '<center><img src="images/pic/gargazel.jpg"></center>'
  9. 'Large garage in which to store the gazelle stepfather.'
  10. else
  11. '<center><img src="images/pic/gargazel_empty.jpg"></center>'
  12. 'Large garage in which to store the gazelle stepfather. Now the garage is closed on the lock.'
  13. end
  14. act 'Leave':minut += 5 & gt 'garmassiv'
  15. if father_go = 1 and hour >= 16 and hour < 21:
  16. 'Now stepfather in the garage, car repairs.'
  17. act 'Help':
  18. cls
  19. minut += 15
  20. father += rand(1, 3)
  21. gs 'stat'
  22. 'You became stepfather to help repair the car, handing him the keys and bolts.'
  23. act 'further':gt $curloc
  24. if father >= 80 and hour = 20:
  25. 'Stepfather took from a drawer a bottle of vodka and a jar of pickles. "I probably drink after work."'
  26. act 'further':
  27. cls
  28. minut += 60
  29. father += rand(1, 3)
  30. gs 'stat'
  31. 'Stepfather poured himself a glass of vodka and drank. You began to talk with him about everything.'
  32. act 'further':gt $curloc
  33. end
  34. end
  35. end
  36. end
  37. if YouCanGar > 0:
  38. 'In the garage there is stored <<GarTorgItem>> One unit of product, with a total capacity 100 One_unit. To, that would be able to sell the product out of the garage, you have to transfer it to your room.'
  39. if tovarL >= 30:
  40. 'Home and so all culled product, transfer nowhere.'
  41. elseif tovarL < 30:
  42. perenGarTov = 30-tovarL
  43. 'I could move out of the garage <<perenGarTov>> One unit of the goods in the room.'
  44. if GarTorgItem > 0:
  45. if GarTorgItem >= perenGarTov:
  46. act 'move <<perenGarTov>> One unit of product':
  47. cls
  48. minut += 60
  49. tovarL += perenGarTov
  50. GarTorgItem -= perenGarTov
  51. gs 'stat'
  52. 'You hour dealt with the goods, and transferred it from the garage to the apartment.'
  53. act 'further':gt $curloc
  54. end
  55. end
  56. if GarTorgItem < perenGarTov:
  57. act 'move <<GarTorgItem>> One unit of product':
  58. cls
  59. minut += 60
  60. tovarL += GarTorgItem
  61. GarTorgItem = 0
  62. gs 'stat'
  63. 'You hour dealt with the goods, and transferred it from the garage to the apartment.'
  64. act 'further':gt $curloc
  65. end
  66. end
  67. end
  68. end
  69. end
  70. --- gargazel ---------------------------------