309_dachaogr 623 B

12345678910111213141516171819202122232425262728293031
  1. # dachaogr
  2. *clr
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. $metkaBed = $ARGS[0]
  6. $locBed = $CURLOC
  7. $metkaP = $ARGS[0]
  8. $locP = $CURLOC
  9. $metkaFight = $ARGS[0]
  10. $locFight = $CURLOC
  11. '<center><H4>Garden</H4></center>'
  12. if month > 4 and month < 10:
  13. '<center><img src="images\etogame\vspah.jpg"></center>'
  14. 'Well-kept garden.'
  15. end
  16. if month <= 4 or month >= 10:
  17. '<center><img src="images\etogame\vspah.jpg"></center>'
  18. 'Not for planting season'
  19. end
  20. gs 'stat'
  21. !fcolor = rgb(0,0,0)
  22. !bcolor = rgb(255,255,255)
  23. !LCOLOR = rgb(106,90,205)
  24. gs 'time'
  25. act 'Leave':
  26. minut = minut + 5
  27. gt 'dachamy'
  28. end
  29. --- dachaogr ---------------------------------