gargazel 2.0 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667
  1. # gargazel
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. fatherdrunk=0
  5. clr
  6. gs 'stat'
  7. '<center><h4>Garage</h4></center>'
  8. if father_go = 1 and hour >= 16 and hour < 21:
  9. '<center><img src="images/pic/gargazel.jpg"></center>'
  10. 'Large garage in which your stepfather keeps his beloved car, a Gazelle.'
  11. else
  12. '<center><img src="images/pic/gargazel_empty.jpg"></center>'
  13. 'Large garage in which your stepfather keeps his beloved car, a Gazelle. Right now the garage is closed and locked with a huge padlock.'
  14. end
  15. act 'Leave':minut += 5 & gt 'garmassiv'
  16. if father_go = 1 and hour >= 16 and hour < 20:
  17. 'Right now your <a href="exec:GT ''garfather''">stepfather</a> is in the garage, doing car repairs.'
  18. end
  19. if father_go=1 and hour>=20 and hour<21:
  20. 'Right now your <a href="exec:GT ''garfather''">stepfather and Uncle Misha</a> is in the garage, drinking vodka.'
  21. set fatherdrunk=1
  22. end
  23. if YouCanGar > 0:
  24. '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.'
  25. if tovarL >= 30:
  26. 'Home and so all culled product, transfer nowhere.'
  27. elseif tovarL < 30:
  28. perenGarTov = 30-tovarL
  29. 'I could move out of the garage <<perenGarTov>> One unit of the goods in the room.'
  30. if GarTorgItem > 0:
  31. if GarTorgItem >= perenGarTov:
  32. act 'move <<perenGarTov>> One unit of product':
  33. cls
  34. minut += 60
  35. tovarL += perenGarTov
  36. GarTorgItem -= perenGarTov
  37. gs 'stat'
  38. 'You hour dealt with the goods, and transferred it from the garage to the apartment.'
  39. act 'further':gt $curloc
  40. end
  41. end
  42. if GarTorgItem < perenGarTov:
  43. act 'move <<GarTorgItem>> One unit of product':
  44. cls
  45. minut += 60
  46. tovarL += GarTorgItem
  47. GarTorgItem = 0
  48. gs 'stat'
  49. 'You hour dealt with the goods, and transferred it from the garage to the apartment.'
  50. act 'further':gt $curloc
  51. end
  52. end
  53. end
  54. end
  55. end
  56. --- gargazel ---------------------------------