Total players online: 15



Take the Tour | Site Map

It is currently Fri Oct 19, 2018 8:11 am

All times are UTC - 8 hours




Post new topic Reply to topic  [ 13 posts ] 
Author Message
PostPosted: Fri Apr 06, 2018 1:40 pm 
Offline
Developer
Developer
User avatar

Joined: 06/29/2003 11:05
Posts: 2456

Here are the differences you need to apply in order to get sysmsg and journal running again:

uoclidata:
  1. // change varlists for clients 7.0.62.2 and above:
  2. (Expr: F_FLAGS; Val: $00000003), // 3 instead of 1


uovariables:
  1. //in function TUOVar.SysMsg change line
  2. //from:
  3. RWV(Read,Buf+Cst.BSYSMSGSTR,@Buf,4);
  4. //to:
  5. if (Cst.FFLAGS and 2)>0 then Buf:=Buf+$800
  6. else RWV(Read,Buf+Cst.BSYSMSGSTR,@Buf,4);


uocommands:
Code:
  1. function TUOCmd.ScanJournal(OldRef : Cardinal) : Boolean;
  2. type
  3.   TItem  = packed record
  4.     Pos  : Cardinal;
  5.     Col  : Cardinal;
  6.     Kind : Cardinal;
  7.     C2   : Cardinal;
  8.     C3   : Cardinal;
  9.     C4   : Cardinal;
  10.     Prev : Cardinal;
  11.     Next : Cardinal;
  12.   end;
  13. var
  14.   i,j   : Integer;
  15.   Item  : TItem;
  16.   Size  : Cardinal;
  17.   Buf   : array[0..$7FF] of Byte;
  18. begin
  19.   Result:=False;
  20.   OldRef:=OldRef xor $D1EBEEF;
  21.   RWV(Read,Cst.JOURNALPTR,@Item.Next,4);
  22.   JournalRef:=Item.Next xor $D1EBEEF;
  23.  
  24.   i:=0;
  25.   JournalList.Clear;
  26.   while Item.Next<>0 do
  27.   begin
  28.     if Item.Next=OldRef then
  29.     begin
  30.       JournalCnt:=i;
  31.       Result:=True;
  32.     end;
  33.  
  34.     if (Cst.FFLAGS and 2)>0 then
  35.     begin
  36.       Size:=$800;
  37.       RWV(Read,Item.Next,@Buf,Size);
  38.       RWV(Read,Item.Next+$800,@Item.Col,SizeOf(Item)-4);
  39.     end
  40.     else begin
  41.       Size:=$100;
  42.       RWV(Read,Item.Next,@Item,SizeOf(Item));
  43.       RWV(Read,Item.Pos,@Buf,Size);
  44.     end;
  45.     Buf[Size-2]:=0;
  46.     if Item.Kind=$12 then
  47.       for j:=0 to (Size div 2)-1 do
  48.         Buf[j]:=Buf[j*2];
  49.  
  50.     JournalList.AddObject(PChar(@Buf),Pointer(Item.Col));
  51.     Inc(i);
  52.   end;
  53.  
  54.   if not Result then JournalCnt:=JournalList.Count;
  55. end;


There is no scanstring for sysmsg yet, but you can insert the correct value $98427C manually.


Top
  ProfileShow poster's scripts in the public script library 
PostPosted: Fri Apr 06, 2018 2:27 pm 
Offline
Legendary Scripter
Legendary Scripter
User avatar

Joined: 07/10/2004 17:11
Posts: 2259

Thanks. ;)

_________________
Image


Top
  ProfileShow poster's scripts in the public script library 
PostPosted: Fri Apr 06, 2018 3:45 pm 
Offline
Novice Scripter
Novice Scripter

Joined: 10/08/2007 12:50
Posts: 47

Groups:
Ouch !


Top
  Profile 
PostPosted: Fri Apr 06, 2018 7:22 pm 
Offline
Legendary Scripter
Legendary Scripter

Joined: 01/07/2008 12:51
Posts: 1695
Location: Kelowna, BC

Much appreciated, thank you!

_________________
Sig.


Top
  ProfileShow poster's scripts in the public script library 
PostPosted: Sat Apr 07, 2018 1:17 pm 
Offline
Novice Scripter
Novice Scripter

Joined: 07/20/2010 13:08
Posts: 51
Thank you sir you a God amongst men


Top
  Profile 
PostPosted: Fri Jun 15, 2018 11:01 am 
Offline
Novice Scripter
Novice Scripter

Joined: 07/07/2004 23:13
Posts: 35
Location: Couch!

Groups:
Hello :)

possible scanstring for sysmsg available?

possible a new open scource with the lastest changes?


Top
  ProfileShow poster's scripts in the public script library 
PostPosted: Sat Jun 16, 2018 5:14 pm 
Offline
Legendary Scripter
Legendary Scripter

Joined: 01/07/2008 12:51
Posts: 1695
Location: Kelowna, BC

As usual I'm still trying to figure this stuff out. I've got a new version of EUO compiled, but no #sysmsg scan string still. I can't for the life of me figure out how to find the hex value without it either.

Has anyone come across a new scanstring for #sysmsg yet?

_________________
Sig.


Top
  ProfileShow poster's scripts in the public script library 
PostPosted: Thu Jun 21, 2018 7:21 am 
Offline
Novice Scripter
Novice Scripter

Joined: 07/20/2010 13:08
Posts: 51
I was wondering if at all possible to get and updated scan string. Only reason i am asking is because i only ever use yours or update my own when i can. I feel more safe being able to do mine or wait for urs.


Top
  Profile 
PostPosted: Thu Jun 21, 2018 9:14 am 
Offline
Developer
Developer
User avatar

Joined: 06/29/2003 11:05
Posts: 2456

You can use this if you want:
3BC657C74424100000 ; 11; -09; C ; +04; {SYSMSG}


Top
  ProfileShow poster's scripts in the public script library 
PostPosted: Fri Jun 22, 2018 3:16 pm 
Offline
Novice Scripter
Novice Scripter

Joined: 07/20/2010 13:08
Posts: 51
Thank you Cheffe for the update to it. And please let me tell you with out you Ultima Online would be nothing. I think they should just give you a job there. I am sorry i couldnt donate more than i did at this time but i do want to say thank you.


Top
  Profile 
PostPosted: Sun Aug 05, 2018 4:24 pm 
Offline
Script Scribe
Script Scribe

Joined: 04/14/2007 16:18
Posts: 96

Groups:
Do we have the menu code that was revised circa May 2017?

I am debating between reverting some of my script menu code to use the old way of doing things vs. keeping the work that I had revised after the menu code was changed.

It seems that in order to self compile EUO, the new menu items and behavior are missing. Is that correct? Or I may have overlooked it all...
Would it be possible to point me in the right direction on how to proceed?

Thanks
Gaderian


Top
  ProfileShow poster's scripts in the public script library 
PostPosted: Tue Aug 07, 2018 4:36 am 
Offline
Developer
Developer
User avatar

Joined: 06/29/2003 11:05
Posts: 2456

I will publish the changes eventually, maybe even upload the full source + future changes to a public repository. The idea was to convert the code, so there were no plans to keep the old codebase updated. Now, I don't know. The are no pressing reasons to keep the changes private, so you should assume you can get them. I'll look into it when I can make some time...


Top
  ProfileShow poster's scripts in the public script library 
PostPosted: Tue Aug 07, 2018 6:25 pm 
Offline
Script Scribe
Script Scribe

Joined: 04/14/2007 16:18
Posts: 96

Groups:
Thank you, Cheffe!


Top
  ProfileShow poster's scripts in the public script library 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 13 posts ] 

All times are UTC - 8 hours


Who is online

Users browsing this forum: No registered users and 0 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group
Hosted by CalWeb Internet Services, Inc.