Офигеть! А я тут свои костыли через апач леплю)) спасибо!
П.С. И спасибо Визу за 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
так же, как то получалось вызвать ошибку которая в последствии появлялась при любом наведении курсора на область редактора