Yoko

Code: Select all

UO.SetMulPath(Path) - Установить путь к папке с *.mul файлами (map*.mul, statics*.mul, staidx*.mul, tiledata.mul). Path - строка.
UO.SetShowZ(Mode) - Установить режим отображения Z координаты в информации. 0 - отключить, 1 - включить. Mode - число.
UO.GetLandscapeTile(X, Y, Map) - Получить ИД тайла земли в координатах X,Y на карте номер Map. X, Y, Map - числа. Возвращает строку.
UO.GetStaticTiles(X, Y, Map) - Получить ИД всех тайлов статики в координатах X,Y на карте номер Map. X, Y, Map - числа. Возсращает строку.
UO.GetTileFlags(TileGroup, TileID) - Получить флаги тайла соответствующей группы (TileGroup=0 - Landscape Tile, TileGroup=1 - Static Tile). TileGroup - число, TileID - строка. Возвращает строку.
Contains(Source, Flag) - Узнать, входит ли Flag в набор Source. Source, Flag - числа. Возвращает 1 если Source содержит Flag и 0 если нет.

Code: Select all

sub test_gettile()
   uo.setmulpath('E:\Ultima Online')
   uo.setshowz(1)
   uo.print('Landscape Tile ID(Z) = '+uo.getlandscapetile(4376,1119,0))
   uo.print('Array of Static Tile ID(Z) = '+uo.getstatictiles(4376,1119,0))
   uo.setshowz(0)
   uo.print('Decimal Landscape Tile ID = '+str(uo.hex2int(uo.getlandscapetile(4372,1119,0))))
   if (contains(0x12,0x10)) then
      uo.print('0x12 Have! 0x10')
   else
      uo.print('0x12 NOT have 0x10!')
   endif
   if (contains(0x9,0x10)) then
      uo.print('0x9 Have! 0x10')
   else
      uo.print('0x9 NOT have 0x10!')
   endif
end sub

Code: Select all

Landscape Tile ID(Z) = 0x00C4(0)
Array of Static Tile ID(Z) = 0x177C(0)
Decimal Landscape Tile ID = 218
0x12 Have! 0x10
0x9 NOT have 0x10!

Code: Select all

if Contains(uo.hex2int(UO.GetTileFlags(TileGroup,TileID)),0x40) then
   //Непроходимый тайл
endif

Code: Select all

 0x00000001 Background
 0x00000002 Weapon
 0x00000004 Transparent
 0x00000008 Translucent
 0x00000010 Wall
 0x00000020 Damaging
 0x00000040 Impassable
 0x00000080 Wet
 0x00000100 Unknown
 0x00000200 Surface
 0x00000400 Bridge
 0x00000800 Generic/Stackable
 0x00001000 Window
 0x00002000 No Shoot
 0x00004000 Prefix A
 0x00008000 Prefix An
 0x00010000 Internal (things like hair, beards, etc)
 0x00020000 Foliage
 0x00040000 Partial Hue
 0x00080000 Unknown 1
 0x00100000 Map
 0x00200000 Container
 0x00400000 Wearable
 0x00800000 LightSource
 0x01000000 Animated
 0x02000000 No Diagonal
 0x04000000 Unknown 2
 0x08000000 Armor
 0x10000000 Roof
 0x20000000 Door
 0x40000000 StairBack
 0x80000000 StairRight

Code: Select all

sub Test()
  var x = uo.getx(), y = uo.gety() + 1, tileid
  tileid = uo.getstatictiles(x, y, 0)
  if contains(val(UO.GetTileFlags(1, tileid)),0x40) then
  uo.print("Непроходимый тайл!")
  else
  uo.print("Проходимый тайл!")
  end if
end sub

Code: Select all

sub Test()
   uo.setmulpath('E:\Ultima Online')
   var tileid = uo.getstatictiles(uo.getx(), uo.gety() + 1, 0)
   uo.print('tileid='+tileid)
   if tileid=='' then
      uo.print('Тут нет статики.')
      return
   endif
   dim tiles[20] #20 хватит думаю
   var l=Str2Tiles(tiles,tileid)
   var i,f
   if l>0 then
      for i=0 to l-1
         f=UO.GetTileFlags(1,tiles[i])
         uo.print('tile='+tiles[i])
         uo.print('flags='+f)
         if contains(uo.hex2int(f),0x40) then
            uo.print("Непроходимый тайл!")
         else
            uo.print("Проходимый тайл!")
         end if
      next
   endif
end sub

Sub Str2Tiles(a,s)
   var i,l=len(s),b='',ptr=0
   if not l then
      return 0
   endif
   for i=0 to l-1
      if s[i]<>',' then
         b=b+s[i]
      else
         a[ptr]=b
         b=''
         ptr=ptr+1
      endif
   next
   a[ptr]=b
   ptr=ptr+1
   return ptr
end sub