Yoko

Code: Select all

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