Офигеть! А я тут свои костыли через апач леплю)) спасибо!
П.С. И спасибо Визу за Party chat, жду патча

Офигеть! А я тут свои костыли через апач леплю)) спасибо!


Code: Select all
Program New;
var
aa : TClilocRec;
bb : TClilocItemRec;
i,k : Integer;
begin
aa := GetToolTipRec($01FC613C);
AddToSystemJournal('Total lines in Toolptip: ' + IntToStr(aa.Count));
for i := 0 to aa.Count - 1 do
  begin
    AddToSystemJournal('Line ' + IntToStr(i) + ': ');
    bb := aa.Items[i];    
    AddToSystemJournal('Cliloc: $' + IntToHex(bb.ClilocID,8));
    AddToSystemJournal('Cliloc text: ' + GetClilocByID(bb.ClilocID));
    for k := 0 to Length(bb.Params) - 1 do
     AddToSystemJournal('Param' + IntToStr(k) + ': "' 
                        + bb.Params[k] + '"');
  end;  
end.Code: Select all
function GetToolTipRec(ObjID : Cardinal) : TClilocRec;
function Script_GetClilocByID(ClilocID : Cardinal) : String;
к ним описания записей:
 TClilocItemRec = packed record
   ClilocID : Cardinal;
   Params : array of String;
 end;
 TClilocRec = packed record
   Count : Cardinal;
   Items : array of TClilocItemRec;
 end;Code: Select all
    procedure InviteToParty(ID : Cardinal);
    procedure RemoveFromParty(ID : Cardinal);
    procedure PartyMessageTo(ID : Cardinal; Msg : String);
    procedure PartySay(Msg : String);
    procedure PartyCanLootMe(Value : Boolean);
    procedure PartyAcceptInvite;
    procedure PartyDeclineInvite;
    function PartyMembersList : TStringList;
    function InParty : Boolean;как-то исправил + косметика в тултипах.Vizit0r wrote:сегодня в апдейт не получится кинуть, завтра.
Про то, что если чар на стелсе в партии, то при запуске клиента из стелса он этого не видит - я в курсе, как-то исправлю.

 А то приходится через Паралели стелс запускать =/
 А то приходится через Паралели стелс запускать =/
Code: Select all
An exception raised at 05:31:19:840
Access violation at address 006E9626 in module 'Stealth.exe'. Read of address 000000B4
(002E8626){Stealth.exe } [006E9626]
Call stack:
  (002E8626){Stealth.exe } [006E9626]
  (002EC14F){Stealth.exe } [006ED14F]
  (002D1756){Stealth.exe } [006D2756]
  (00073FC8){Stealth.exe } [00474FC8]
  (00077ABB){Stealth.exe } [00478ABB]
  (00090630){Stealth.exe } [00491630]
  (00077C0B){Stealth.exe } [00478C0B]
  (00077ABB){Stealth.exe } [00478ABB]
  (000771E4){Stealth.exe } [004781E4]
  (00030370){Stealth.exe } [00431370]
  (00077BB7){Stealth.exe } [00478BB7]
  (00077ABB){Stealth.exe } [00478ABB]
  (00090630){Stealth.exe } [00491630]
  (00030370){Stealth.exe } [00431370]
Code: Select all
так же, как то получалось вызвать ошибку которая в последствии появлялась при любом наведении курсора на область редактора