Stealth Client Forum

Code: Select all

function GetTileFlags(Tile : Word) : LongWord;
begin
  Result := GetStaticTileData(Tile).Flags;
end;

Code: Select all

function GetArtFlags(Item: Cardinal) : LongWord;
begin
  Result := GetStaticTileData(GetType(Item)).Flags;
end;

Code: Select all

function IsObjectExists(ObjectId: Cardinal): Boolean;
begin
  Result := (GetType(ObjectId) > 0);
end;

Code: Select all

const tfBackground  = $00000001;  // Фон  
const tfWeapon      = $00000002;  // Оружие
const tfTransparent = $00000004;  // Прозрачный
const tfTranslucent = $00000008;  // Полупразрачный
const tfWall        = $00000010;  // Стена
const tfDamaging    = $00000020;  // Может нанести урон
const tfImpassable  = $00000040;  // Непроходимый  
const tfWet         = $00000080;  // Мокрый (обычно вода либо ее источник)
const tfUnknown1    = $00000100;  
const tfSurface     = $00000200;  // Поверхность
const tfBridge      = $00000400;  // Мост
const tfGeneric     = $00000800;
const tfWindow      = $00001000;  // Окно в стене
const tfNoShoot     = $00002000;  // Не простреливается
const tfArticleA    = $00004000;  // Существительное с артиклем A
const tfArticleAn   = $00008000;  // Существительное с артиклем An
const tfInternal    = $00010000;  
const tfFoiliage    = $00020000;  // Листва деревьев
const tfPartialHue  = $00040000;  // Частично окрашен
const tfUnknown2    = $00080000;  
const tfMap         = $00100000;  
const tfContainer   = $00200000;  // Контейнер
const tfWearable    = $00400000;  // Можно одеть - т.е. одежда, броня, оружие и т.п.
const tfLightSource = $00800000;  // Источник света
const tfAnimation   = $01000000;  // Анимированный
const tfNoDiagonal  = $02000000;  // Нельзя пройти по диагонали
const tfMirrored    = $04000000;  // Зеркальный
const tfArmor       = $08000000;  // Броня
const tfRoof        = $10000000;  // Крыша здания
const tfDoor        = $20000000;  // Дверь
const tfStairBack   = $40000000;  // Лестница вниз  
const tfStairRight  = $80000000;  // Лестница наверх

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Возвращает истину, если набор флагов Flag содержится в наборе Flags
function InFlags(const Flag, Flags: LongWord): Boolean;
begin
  Result := (Flag = (Flag and Flags));
end;

Code: Select all

//////////////////////////////////////////////////////////////////////
// получить набор флагов объекта
function GetArtFlags(Item: Cardinal) : LongWord;
begin
  Result := GetStaticTileData(GetType(Item)).Flags;
end;

//////////////////////////////////////////////////////////////////////
// Проверить, является ли объект "дверью"
function IsDoor(ObjectId: Cardinal): Boolean;
begin
  Result := InFlags(tfDoor+tfImpassable, GetArtFlags(ObjectId));
end;

Code: Select all

//////////////////////////////////////////////////////////////////////
// Строковая расшифровка набора флагов Flags.
function FlagsToStr(Flags: LongWord): String;
begin
  if Flags = -1 then Result := '[All flags]'
  else begin
    Result := '[';
    if InFlags(tfBackground, Flags) then Result := Result+'Background,';
    if InFlags(tfWeapon, Flags) then Result := Result+'Weapon,';
    if InFlags(tfTransparent, Flags) then Result := Result+'Transparent,';
    if InFlags(tfTranslucent, Flags) then Result := Result+'Translucent,';
    if InFlags(tfWall, Flags) then Result := Result+'Wall,';
    if InFlags(tfDamaging, Flags) then Result := Result+'Damaging,';
    if InFlags(tfImpassable, Flags) then Result := Result+'Impassable,';
    if InFlags(tfWet, Flags) then Result := Result+'Wet,';
    if InFlags(tfUnknown1, Flags) then Result := Result+'Unknown1,';
    if InFlags(tfSurface, Flags) then Result := Result+'Surface,';
    if InFlags(tfBridge, Flags) then Result := Result+'Bridge,';
    if InFlags(tfGeneric, Flags) then Result := Result+'Generic,';
    if InFlags(tfWindow, Flags) then Result := Result+'Window,';
    if InFlags(tfNoShoot, Flags) then Result := Result+'NoShoot,';
    if InFlags(tfArticleA, Flags) then Result := Result+'ArticleA,';
    if InFlags(tfArticleAn, Flags) then Result := Result+'ArticleAn,';
    if InFlags(tfInternal, Flags) then Result := Result+'Internal,';
    if InFlags(tfFoiliage, Flags) then Result := Result+'Foiliage,';
    if InFlags(tfPartialHue, Flags) then Result := Result+'PartialHue,';
    if InFlags(tfUnknown2, Flags) then Result := Result+'Unknown2,';
    if InFlags(tfMap, Flags) then Result := Result+'Map,';
    if InFlags(tfContainer, Flags) then Result := Result+'Container,';
    if InFlags(tfWearable, Flags) then Result := Result+'Wearable,';
    if InFlags(tfLightSource, Flags) then Result := Result+'LightSource,';
    if InFlags(tfAnimation, Flags) then Result := Result+'Animation,';
    if InFlags(tfNoDiagonal, Flags) then Result := Result+'NoDiagonal,';
    if InFlags(tfMirrored, Flags) then Result := Result+'Mirrored,';
    if InFlags(tfArmor, Flags) then Result := Result+'Armor,';
    if InFlags(tfRoof, Flags) then Result := Result+'Roof,';
    if InFlags(tfDoor, Flags) then Result := Result+'Door,';
    if InFlags(tfStairBack, Flags) then Result := Result+'StairBack,';
    if InFlags(tfStairRight, Flags) then Result := Result+'StairRight,';
    if Result[Length(Result)]=',' then Result[Length(Result)] := ']' else Result := Result+']';
  end;
end;

Code: Select all

TTileDataFlags = (tsfBackground, tsfWeapon, tsfTransparent, tsfTranslucent, tsfWall, tsfDamaging, tsfImpassable, tsfWet, tsfUnknown, tsfSurface, tsfBridge, tsfGeneric, tsfWindow, tsfNoShoot, tsfPrefixA, tsfPrefixAn, tsfInternal, tsfFoliage, tsfPartialHue, tsfUnknown1, tsfMap, tsfContainer, tsfWearable, tsfLightSource, tsfAnimated, tsfNoDiagonal, tsfUnknown2, tsfArmor, tsfRoof, tsfDoor, tsfStairBack, tsfStairRight, 
// флаги ниже по сути совпадают с флагами выше
tlfTranslucent, tlfWall, tlfDamaging, tlfImpassable, tlfWet, tlfSurface, tlfBridge, tlfPrefixA, tlfPrefixAn, tlfInternal, tlfMap, tlfUnknown3); 
TTileDataFlagSet = set of TTileDataFlags;

Code: Select all

Program setsample;

type Day = (Mon, Tue, Wed, Thu, Fri, Sat, Sun);

type Days = Set of Day;

//////////////////////////////////////////////////////////////////////
//  Операция "проверка вхождения"
function InDays(const d1,d2: Days): Boolean;
begin
  Result := (d2 = (d1+d2));
end;

//////////////////////////////////////////////////////////////////////
//  Операция "объединение"

function UntDays(const d1,d2: Days): Days;
begin
  Result := d1+d2;
end;

//////////////////////////////////////////////////////////////////////
//  Операция "пересечение"
function IscDays(const d1,d2: Days): Days;
begin
  Result := d1*d2;
end;

//////////////////////////////////////////////////////////////////////
//  Операция "левое дополнение"
function LExclDays(const d1,d2: Days): Days;
begin
  Result := (d1-d2);
end; 

//////////////////////////////////////////////////////////////////////
//  Операция "полное дополнение"
function ExclDays(const d1,d2: Days): Days;
begin
  Result := (d1-d2)+(d2-d1);
end; 
   
begin 
  if InDays([Wed], IscDays(UntDays([Mon,Wed],[Thu]),[Tue,Wed]))  then AddToSystemJournal('ok');
end;

Code: Select all

procedure InfoXY(X,Y: Word);
var
  MapCell: TMapCell;
  LandTileData: TLandTileData;
  StaticCell: TStaticCell;
  StaticItem: TStaticItem;
  StaticTileData: TStaticTileData;
  i: Integer;
  FL: TStringList;
  Id: Cardinal;
  Z: ShortInt;
begin
  FillNewWindow('********************* Info X='+IntToStr(X)+', Y='+IntToStr(Y)+' *********************');
  MapCell := GetMapCell(X,Y,WorldNum);
  LandTileData := GetLandTileData(MapCell.Tile);

  FillNewWindow('*  Land: Name="'+ConvertCharArray2String(LandTileData.Name)+'", Tile=$'+IntToHex(MapCell.Tile,4)+', Flags='+FlagsToStr(LandTileData.Flags)+', Z='+IntToStr(MapCell.Z));
  FillNewWindow('*  Statics:');
  StaticCell := ReadStaticsXY(X,Y,WorldNum);
  if StaticCell.StaticCount > 0 then begin
    for i := 0 to StaticCell.StaticCount-1 do begin
      StaticItem := StaticCell.Statics[i];
      StaticTileData := GetStaticTileData(StaticItem.Tile);
      FillNewWindow('*       Name="'+ConvertCharArray2String(StaticTileData.Name)+'", Tile=$'+IntToHex(StaticItem.Tile,4)+', Flags='+FlagsToStr(StaticTileData.Flags)+', Z='+IntToStr(StaticItem.Z));
    end;
  end; 
  FillNewWindow('*  Objects:');
  if FindAtCoord(X,Y) > 0 then begin
    FL := TStringList.Create;
    GetFindedList(FL);
    for i := 0 to FL.Count-1 do begin
      Id := StrToInt('$'+FL.Strings[i]);
      FillNewWindow('*       Name="'+GetArtName(Id)+'", Id=$'+IntToHex(Id,8)+', Type=$'+IntToHex(GetType(Id),4)+', Color=$'+IntToHex(GetColor(Id),4)+', Flags='+FlagsToStr(GetArtFlags(Id))+', Z='+IntToStr(GetZ(Id)));
    end;
    FL.Free;
  end;
  if IsWorldCellPassable(GetX(Self), GetY(Self), GetZ(Self), X,Y,Z, WorldNum) then  FillNewWindow('*  Passable point') else FillNewWindow('*  Impassable point') ;
  FillNewWindow('*');  
end;

Code: Select all

procedure info;
var t: TTargetInfo;
begin
  ClientRequestTileTarget;
  WaitForClientTargetResponse(15000);
  t := ClientTargetResponse;
  InfoXY(t.X, t.Y);  
end;

Code: Select all

      StaticData := DataGetStaticTile(StaticCell.Statics[I].Tile);
      FlagSet := DataConvertIntegerToFlags(tfStatic, StaticData.Flags);
      if not ((tsfImpassable in FlagSet) or (tsfSurface in FlagSet)
        or (tsfBridge in FlagSet) or (tsfNoDiagonal in FlagSet)) then
....

Code: Select all

set - это условно говоря "длинное целое", обычно 32 или 64 бита, в котором каждый бит, аналогично означает наличие или отсутствие элемента в множестве. Вот причина того, что в Паскале нельзя в множестве хранить больше определенного числа элементов. Операции над множеством перегружены Паскалем, это арифметические действия имеющие смысл: объединение, пересечение, дополнение и др. - суть есть побитовые операции.