1
0

236_gargazel 2.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778
  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="pic/gargazel.jpg" ></center>'
  7. 'Large garage in which to store the gazelle stepfather.'
  8. else
  9. '<center><img src="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 'Get_Away':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. end
  42. if tovarL<30:
  43. perenGarTov=30-tovarL
  44. 'I could move out of the garage <<perenGarTov>> One unit of the goods in the room.'
  45. if GarTorgItem>0:
  46. if GarTorgItem>=perenGarTov:
  47. act 'move <<perenGarTov>> One unit of product':
  48. cls
  49. minut+=60
  50. tovarL+=perenGarTov
  51. GarTorgItem-=perenGarTov
  52. gs'stat'
  53. 'You hour dealt with the goods .'
  54. act 'further':gt $curloc
  55. end
  56. end
  57. if GarTorgItem<perenGarTov:
  58. act 'move <<GarTorgItem>> One unit of product':
  59. cls
  60. minut+=60
  61. tovarL+=GarTorgItem
  62. GarTorgItem=0
  63. gs'stat'
  64. 'You hour dealt with the goods .'
  65. act 'further':gt $curloc
  66. end
  67. end
  68. end
  69. end
  70. end
  71. --- gargazel ---------------------------------