Yoko
http://forum.yoko.com.ua/

Повтор Скрипта!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=15687		 Page 1 of 1
Author:  kostjan [ 2010-04-07 22:25:48 ]
Post subject:  Повтор Скрипта!
Как мне сделать чтобы это он повторял бесконечно? Но также чтобы "until TileType==0" также остался.

Code:
f.Open()
    repeat
      TileType=safe call f.ReadNumber() 
      XTile[k]=safe call f.ReadNumber() 
      YTile[k]=safe call f.ReadNumber() 
      ZTile[k]=safe call f.ReadNumber() 
      if TileType<>0 then 
        uo.Print(STR(XTile[k])+' '+STR(YTile[k])+' '+STR(ZTile[k])) 
      end if 
      k=k+1 
    until TileType==0
    uo.Print('There are '+STR(k-1)+' tiles in a file.') 
    f.Close() 
  end if 
Author:  kostjan [ 2010-04-08 01:45:31 ]
Post subject:  Re: Повтор Скрипта!
Разобрался! :wink:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/