TEST TreesAroundPoint.fscript 646 B

1234567891011121314151617181920212223242526272829303132333435363738
  1. AllowAdd("Necessary");
  2. SetVariable("%X%", "%IsoSize%");
  3. SetVariable("%Y%", "%IsoSize%");
  4. Divide("%X%", "2");
  5. Divide("%Y%", "2");
  6. SetVariable("%XCounter%","-5");
  7. :XLoop:
  8. SetVariable("%YCounter%","-5");
  9. :YLoop:
  10. Add("%YCounter%", "1");
  11. Is("%YCounter%","<","5","YLoopAgain");
  12. GetRandom("%Val%");
  13. Add("%Val%","6000");
  14. Divide("%Val%","32767")
  15. SetVariable("%MX%","%X%");
  16. Add("%MX%","%XCounter%");
  17. SetVariable("%MY%","%Y%");
  18. Add("%MY%","%YCounter%");
  19. AddTerrain("TREE01", "%MX%","%MY%","%Val%");
  20. JumpTo("YLoop", "YLoopAgain");
  21. // :YLoop:
  22. Add("%XCounter%","1");
  23. Is("%XCounter%","<","5","XLoopAgain");
  24. JumpTo("XLoop","XLoopAgain");
  25. // :XLoop: