Stealth Client Forum

hi, i crash with evClilocSpeech when catch the event 'invited to join the party'
this event Should catch by evPartyInvite.
i need to register both. help me thanks


procedure ClilocSpeech(SenderID : String; SenderName : String; ClilocID : Cardinal; Text : String);
begin
AddToSystemJournal('Event! evClilocSpeech SenderID = '+ SenderID + 'SenderName = ' + SenderName + ' ClilocID = ' + IntToStr(ClilocID) + ' Text = ' + Text);
end;

SetEventProc(evClilocSpeech,'ClilocSpeech');
while true do begin
wait(100);
end;





EurekaLog 7.5.1.0

Application:
-------------------------------------------------------
1.3 Version Number : 8.6.0.0
1.4 Parameters :
1.5 Compilation Date: Fri, 17 Nov 2017 17:57:26 +0800
1.6 Up Time : 14 minute(s), 33 second(s)

Exception:
---------------------------------------------------------------------------------------
2.1 Date : Sun, 3 Dec 2017 23:50:50 +0800
2.2 Address : 00470407
2.3 Module Name: Stealth.exe - (Client for Ultima Online)
2.5 Type : EVariantTypeCastError
2.6 Message : Could not convert variant of type (UnicodeString) into type (Int64).
2.7 ID : 87380000
2.11 Sent : 0

that is wrong. it must be unsigned integer

nah nah wrote:

Code: Select all

SenderID : String

that is wrong. it must be unsigned integer

i change SenderID : Cardinal and crash again

only crash with catch the event '' invited to party''
other is ok

how did you register evPartyInvite?

nah nah wrote:how did you register evPartyInvite?

i try to find the crash reason. so even if i don`t register the evPartyInvite , it still crash
so i think the point is evClilocSpeech. when evClilocSpeech catch the '' invited to party'' message

procedure PartyInvite(Inviter_ID : Cardinal);
begin
//AddToSystemJournal('Event! evPartyInvite Inviter_ID = '+ IntToStr(Inviter_ID ));
if isAutoAcceptParty then PartyAcceptInvite;
end;

SetEventProc(evPartyInvite,'PartyInvite');

will check it tomorrow

write me in skype, nick = Vizit0r (Stealth dev)

i need two chars on your shard for check.