1
0

gargazel 2.1 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586
  1. # gargazel
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. '<center><h4>garage</h4></center>'
  5. if father_go = 1 and hour >= 16 and hour < 21:
  6. '<center><img src="images/pic/gargazel.jpg"></center>'
  7. 'Large garage in which to store the gazelle stepfather.'
  8. else
  9. '<center><img src="images/pic/gargazel_empty.jpg"></center>'
  10. 'Large garage in which to store the gazelle stepfather. Now the garage is closed on the lock.'
  11. end
  12. clr
  13. gs 'stat'
  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:'Home and so all culled product, transfer nowhere.'
  40. if tovarL < 30:
  41. perenGarTov = 30-tovarL
  42. 'I could move out of the garage <<perenGarTov>> One unit of the goods in the room.'
  43. if GarTorgItem > 0:
  44. if GarTorgItem >= perenGarTov:
  45. act 'move <<perenGarTov>> One unit of product':
  46. cls
  47. minut += 60
  48. tovarL += perenGarTov
  49. GarTorgItem -= perenGarTov
  50. gs 'stat'
  51. 'You hour dealt with the goods .'
  52. act 'further':gt $curloc
  53. end
  54. end
  55. if GarTorgItem < perenGarTov:
  56. act 'move <<GarTorgItem>> One unit of product':
  57. cls
  58. minut += 60
  59. tovarL += GarTorgItem
  60. GarTorgItem = 0
  61. gs 'stat'
  62. 'You hour dealt with the goods .'
  63. act 'further':gt $curloc
  64. end
  65. end
  66. end
  67. end
  68. end
  69. --- gargazel ---------------------------------