• Close door, party system, skill lock

Posted: **Wed Apr 19, 2006 6:00 am**

If I coded the hook to handle the close door macro, a package to handle party systems and a package to handle the skill locks, could I then send you the code OR are you already working on these and they're laying around half finished not in the distro yet?

These are just some things I saw unfinished and I think I could do. I'll be sure to code them with propper documentatioin, spacing and naming and all that.

Madman isn't answering his e-mail so I've got to bother you MuadDib.

ops:

Posted: **Wed Apr 19, 2006 7:49 am**

Sorry to interfere.

I have some fully implemented party system script lying around here... would need to be adjusted to the packet hooks though.
(if anyone knows how to use the packethook this is won't take long I guess).

It's about 3 years old, since then i haven't scripted much for POL.

I could paste it here, if anyone's interested.

Posted: **Wed Apr 19, 2006 8:39 am**

Was it written by Kinetix? I found some of his old code on Folko's forums about a party system. If it works well post it and I'll try to get it working. If you don't know who wrote it or someone removed the Authors name, I'll compare the two and we'll find out.

Does anyone know anything about the Chat system?

Posted: **Wed Apr 19, 2006 8:58 am**

No it's completely written by me... but I remember someone doing it again...and I think folko wrote one at the same time I did.

(Max at Folkos forum = me.. you'll find a thread somewhere there.)

Chat system... yup, i also have a script for that (but it's limited to one global chatroom)

EDIT:

Ahh i found kinetix's script on folko's forum. Never tried it though.
Well I didn't know this was around... makes my offer kindof obsolete:-)
I suppose it works or he wouldn't have released it.

Posted: **Wed Apr 19, 2006 9:04 am**

Oooh, ok. I just read that thread, in fact. Cool!

So the party system would have to be rewritten for packet hooks? From what I can tell that wouldn't be that hard to do. If you want and you're feeling generous, post your code or e-mail it to me and I'll go over it and try to get it working and posted back up here. If you don't feel like it then don't worry I'll mess around with this other code and packet list, but I may bother you from time to time now that I know you already know how it's done.

How difficult would it be to expand the chat system to be OSI-like? I don't even know how OSI handles their chat system. I've barely messed with it.

Posted: **Wed Apr 19, 2006 9:08 am**

Well I can send you all the party system stuff I have and together with kinetix's you should have enough infosrmation if you encounter any problems.

I was quite bitchy back then about giving away my private shard code...
but by now I don't really care as I'm not active anymore.

Converting to the hooks is not really hard I think... I don't really know how they work so it stays an asumption;-)

OSI-Chatsystem: No idea how that works but I think there's more than one room/channel to talk in.

Actually I guess I was just too lazy to extend it t... but I might have missed packetinfos as well, I really don't remember.

EDIT: I need your email address;-)

Posted: **Wed Apr 19, 2006 9:50 am**

This is PartySystem.src

Code: Select all

use uo;

include "include/PartySystem";

program PartySystem(ch, data)
  var dataarray := SplitWords(data);
  if (dataarray[1] = "ClientPacketbfSubcommand6")
    if (dataarray[2] = "Subsubcommand1")
      var pmserial := CInt(dataarray[3]);
      AddPartyMember(ch, pmserial);

    elseif (dataarray[2] = "Subsubcommand2")
      var pmserial := CInt(dataarray[3]);
      RemovePartyMember(ch, pmserial);

    elseif (dataarray[2] = "Subsubcommand3")
      var pmserial := CInt(dataarray[3]);
      var startind := len(dataarray[1]) + len(dataarray[2]) + len(dataarray[3]) + 4;
      SendMessageToPartyMember(ch, pmserial, data[startind, len(data)]);

    elseif (dataarray[2] = "Subsubcommand4")
      var startind := len(dataarray[1]) + len(dataarray[2]) + 3;
      SendMessageToParty(ch, data[startind, len(data)]);

    elseif (dataarray[2] = "Subsubcommand6")
      var pcanloot := CInt(dataarray[3]);
      if (GetObjProperty(ch, "parray"))
        SetObjProperty(ch, "pcanloot", pcanloot);
        if (pcanloot = 0)
          SendSysMessage(ch, "Your party cannot loot your corpse.");

        elseif (pcanloot = 1)
          SendSysMessage(ch, "Your party can loot your corpse.");
        endif
      endif

    elseif (dataarray[2] = "Subsubcommand8")
      var plserial := CInt(dataarray[3]);
      SetObjProperty(ch, "pinvitation", {plserial, "accepted"});

    elseif (dataarray[2] = "Subsubcommand9")
      var plserial := CInt(dataarray[3]);
      SetObjProperty(ch, "pinvitation", {plserial, "declined"});
    endif
  endif
endprogram

That's the whole interface to the party system. It's a textcmd.. I guess you know how that stuff was supposed to work;-)

PartySystem.inc:

Code: Select all

use os;
use uo;

include "include/SendPacket";

function AddPartyMember(ch, pmserial)
  var pm := CheckPartyMember(ch, pmserial, 0);
  if (pm != 0)
    var pinvitation := InvitePartyMember(ch, pm);
    if (pinvitation = "declined")
      SendSysMessage(ch, pm.name +" has declined your offer.");
      SendSysMessage(pm, "You have declined "+ ch.name +"'s offer.");

    elseif (pinvitation = "accepted")
      SendSysMessage(ch, pm.name +" has accepted your offer.");
      SendSysMessage(pm, "You have accepted "+ ch.name +"'s offer.");
      var parray := GetObjProperty(ch, "parray");
      var parray2 := parray[2];
      if (!parray)
        SetObjProperty(ch, "parray", {ch.serial, {pm.serial}});
        SetObjProperty(ch, "pcanloot", 1);
        SendSysMessage(ch, "Your party can loot your corpse.");
        SetObjProperty(pm, "pcanloot", 1);
        SendSysMessage(pm, "Your party can loot your corpse.");
        UpdateParty(ch, pm, 0);
        SendSysMessage(pm, "You have joined the party.");

      elseif (parray)
        parray2.append(pm.serial);
        parray := {parray[1], parray2};
        SetObjProperty(ch, "parray", parray);
        SetObjProperty(pm, "pcanloot", 1);
        SendSysMessage(pm, "Your party can loot your corpse.");
        UpdateParty(ch, pm, 0);
        SendSysMessage(pm, "You have joined the party.");
      endif
    endif
  endif
endfunction

function RemovePartyMember(ch, pmserial)
  var pm := CheckPartyMember(ch, pmserial, 1);
  if (pm != 0)
    if (pm.serial != ch.serial)
      var pmparray := GetObjProperty(pm, "parray");
      var parray := ErasePartyMemberFromPartyArray(pm);
      SetObjProperty(ch, "parray", parray);
      UpdateParty(ch, pm, 1);
      SendSysMessage(pm, "You have been removed from the party.");
      parray := GetObjProperty(ch, "parray");
      if (parray[2] = {})
        DisbandParty(ch, pmparray);
      endif

    elseif (pm.serial = ch.serial)
      var parray := GetObjProperty(ch, "parray");
      if (parray[1] != ch.serial)
        var pmparray := GetObjProperty(ch, "parray");
        LeaveParty(ch);
        parray := GetObjProperty(pmparray[1], "parray");
        if (parray[2] = {})
          DisbandParty(SystemFindObjectBySerial(parray[1], SYSFIND_SEARCH_OFFLINE_MOBILES), pmparray);
        endif

      elseif (parray[1] = ch.serial)
        DisbandParty(ch, parray);
      endif
    endif
  endif
endfunction

function LeaveParty(ch)
  var parray := ErasePartyMemberFromPartyArray(ch);
  SetObjProperty(parray[1], "parray", parray);
  UpdateParty(SystemFindObjectBySerial(parray[1], SYSFIND_SEARCH_OFFLINE_MOBILES), ch, 1);
  SendSysMessage(ch, "You have left the party.");
endfunction

function DisbandParty(ch, parray)
  var parray2 := parray[2];
  var PacketHexStringPart1 := "BF"+ ConvertIntToHex(15 + len(parray[2]) * 4, 2);
  PacketHexStringPart1 := PacketHexStringPart1 + ConvertIntToHex(6, 2);
  PacketHexStringPart1 := PacketHexStringPart1 + ConvertIntToHex(2, 1);
  PacketHexStringPart1 := PacketHexStringPart1 + ConvertIntToHex(len(parray[2]) + 1, 1);
  var PacketHexStringPart2 := ConvertIntToHex(ch.serial, 4);
  foreach pmserial in parray2
    PacketHexStringPart2 := PacketHexStringPart2 + ConvertIntToHex(pmserial, 4);
  endforeach
  var FullPacketHexString := PacketHexStringPart1 + ConvertIntToHex(ch.serial, 4) + PacketHexStringPart2;
  EraseObjProperty(ch, "parray");
  EraseObjProperty(ch, "pcanloot");
  SendPacket(ch, FullPacketHexString);
  SendSysMessage(ch, "Your party has disbanded.");
  var pm;
  foreach pmserial in parray2
    pm := SystemFindObjectBySerial(pmserial, SYSFIND_SEARCH_OFFLINE_MOBILES);
    FullPacketHexString := PacketHexStringPart1 + ConvertIntToHex(pmserial, 4) + PacketHexStringPart2;
    EraseObjProperty(pm, "parray");
    EraseObjProperty(pm, "pcanloot");
    SendPacket(pm, FullPacketHexString);
    SendSysMessage(pm, "Your party has disbanded.");
  endforeach
endfunction

function ErasePartyMemberFromPartyArray(pm)
  var parray := GetObjProperty(pm, "parray");
  var parray2 := parray[2];
  var parray2pmindex := 1;
  while (parray2[parray2pmindex] != pm.serial)
    parray2pmindex := parray2pmindex + 1;
  endwhile
  parray2.erase(parray2pmindex);
  parray := {parray[1], parray2};
  return parray;
endfunction

function UpdateParty(ch, pm, type)
  var parray := GetObjProperty(ch, "parray");
  var parray2 := parray[2];
  if (type = 0)
    var PacketHexString := "BF"+ ConvertIntToHex(11 + len(parray[2]) * 4, 2);
    PacketHexString := PacketHexString + ConvertIntToHex(6, 2);
    PacketHexString := PacketHexString + ConvertIntToHex(1, 1);
    PacketHexString := PacketHexString + ConvertIntToHex(len(parray[2]) + 1, 1);
    PacketHexString := PacketHexString + ConvertIntToHex(ch.serial, 4);
    foreach pmserial in parray2
      PacketHexString := PacketHexString + ConvertIntToHex(pmserial, 4);
    endforeach
    SendPacket(ch, PacketHexString);
    SendSysMessage(ch, pm.name +" has joined the party.");
    var pmname := pm.name;
    var pmexcludeserial := pm.serial;
    foreach pmserial in parray2
      pm := SystemFindObjectBySerial(pmserial, SYSFIND_SEARCH_OFFLINE_MOBILES);
      SetObjProperty(pm, "parray", parray);
      SendPacket(pm, PacketHexString);
      if (pmserial != pmexcludeserial)
        SendSysMessage(pm, pmname +" has joined the party.");
      endif
    endforeach

  elseif (type = 1)
    var PacketHexString := "BF"+ ConvertIntToHex(15 + len(parray[2]) * 4, 2);
    PacketHexString := PacketHexString + ConvertIntToHex(6, 2);
    PacketHexString := PacketHexString + ConvertIntToHex(2, 1);
    PacketHexString := PacketHexString + ConvertIntToHex(len(parray[2]) + 1, 1);
    PacketHexString := PacketHexString + ConvertIntToHex(pm.serial, 4);
    PacketHexString := PacketHexString + ConvertIntToHex(ch.serial, 4);
    foreach pmserial in parray2
      PacketHexString := PacketHexString + ConvertIntToHex(pmserial, 4);
    endforeach
    SendPacket(ch, PacketHexString);
    SendSysMessage(ch, pm.name +" has left the party.");
    var pmname := pm.name;
    foreach pmserial in parray2
      pm := SystemFindObjectBySerial(pmserial, SYSFIND_SEARCH_OFFLINE_MOBILES);
      SetObjProperty(pm, "parray", parray);
      SendPacket(pm, PacketHexString);
      SendSysMessage(pm, pmname +" has left the party.");
    endforeach
    parray := GetObjProperty(pm, "parray");
    parray2 := parray[2];
    PacketHexString := "BF"+ ConvertIntToHex(15 + len(parray[2]) * 4, 2);
    PacketHexString := PacketHexString + ConvertIntToHex(6, 2);
    PacketHexString := PacketHexString + ConvertIntToHex(2, 1);
    PacketHexString := PacketHexString + ConvertIntToHex(len(parray[2]) + 1, 1);
    PacketHexString := PacketHexString + ConvertIntToHex(pm.serial, 4);
    PacketHexString := PacketHexString + ConvertIntToHex(ch.serial, 4);
    foreach pmserial in parray2
      PacketHexString := PacketHexString + ConvertIntToHex(pmserial, 4);
    endforeach
    EraseObjProperty(pm, "parray");
    EraseObjProperty(pm, "pcanloot");
    SendPacket(pm, PacketHexString);
  endif
endfunction

function InvitePartyMember(ch, pm)
  SendSysMessage(ch, "You have invited "+ pm.name +" to join your party.");
  SendSysMessage(pm, "You have been invited to join "+ ch.name +"'s party. Type \"/accept\" to join or \"/decline\" to decline the offer.");
  var PacketHexString := "BF"+ ConvertIntToHex(14, 2);
  PacketHexString := PacketHexString + ConvertIntToHex(6, 2);
  PacketHexString := PacketHexString + ConvertIntToHex(7, 1);
  PacketHexString := PacketHexString + ConvertIntToHex(ch.serial, 4);
  PacketHexString := PacketHexString +"00000000";
  EraseObjProperty(pm, "pinvitation");
  SendPacket(pm, PacketHexString);
  var pinvitationcounter := 0;
  while ((!GetObjProperty(pm, "pinvitation")) and (pinvitationcounter < 10))
    sleep(1);
    pinvitationcounter := pinvitationcounter + 1;
  endwhile
  var pinvitation := GetObjProperty(pm, "pinvitation");
  EraseObjProperty(pm, "pinvitation");
  if (!pinvitation)
    return "declined";

  elseif (pinvitation)
    if (pinvitation[1] = ch.serial)
      return pinvitation[2];

    else
      return "declined";
    endif
  endif
endfunction

function CheckPartyMember(ch, pmserial, type)
  if (type = 0)
    if (pmserial != 0)
      var parray := GetObjProperty(ch, "parray");
      if (!parray)
        var pm := SystemFindObjectBySerial(pmserial, SYSFIND_SEARCH_OFFLINE_MOBILES);
        var pmparray := GetObjProperty(pm, "parray");
        if (pm.serial != ch.serial)
          if (!pmparray)
            if ((!pm.npctemplate) and (pm.ip))
              return pm;

            elseif ((pm.npctemplate) or (!pm.ip))
              SendSysMessage(ch, "You can only add online players to your party.");
              return 0;
            endif

          elseif (pmparray)
            SendSysMessage(ch, "This player has already joined a party.");
            return 0;
          endif

        elseif (pm.serial = ch.serial)
          SendSysMessage(ch, "Please choose another player.");
          return 0;
        endif

      elseif (parray)
        if (parray[1] != ch.serial)
          SendSysMessage(ch, "Only the party leader can do this.");
          return 0;

        elseif (parray[1] = ch.serial)
          if (len(parray[2]) < 9)
            var pm := SystemFindObjectBySerial(pmserial, SYSFIND_SEARCH_OFFLINE_MOBILES);
            var pmparray := GetObjProperty(pm, "parray");
            if (pm.serial != ch.serial)
              if (!pmparray)
                if ((!pm.npctemplate) and (pm.ip))
                  return pm;

                elseif ((pm.npctemplate) or (!pm.ip))
                  SendSysMessage(ch, "You can only add online players to your party.");
                  return 0;
                endif

              elseif (pmparray)
                SendSysMessage(ch, "This player has already joined a party.");
                return 0;
              endif

            elseif (pm.serial = ch.serial)
              SendSysMessage(ch, "Please choose another player.");
              return 0;
            endif

          elseif (len(parray[2]) = 9)
            SendSysMessage(ch, "You can't add any more members to your party.");
            return 0;
          endif
        endif
      endif

    elseif (pmserial = 0)
      var parray := GetObjProperty(ch, "parray");
      if (!parray)
        SendSysMessage(ch, "Who would you like to add to your party?");
        var pm := Target(ch);
        if (!pm)
          SendSysMessage(ch, "Targetting cancelled.");
          return 0;
        endif
        var pmparray := GetObjProperty(pm, "parray");
        if (pm.serial != ch.serial)
          if (!pmparray)
            if ((!pm.npctemplate) and (pm.ip))
              return pm;

            elseif ((pm.npctemplate) or (!pm.ip))
              SendSysMessage(ch, "You can only add online players to your party.");
              return 0;
            endif

          elseif (pmparray)
            SendSysMessage(ch, "This player has already joined a party.");
            return 0;
          endif

        elseif (pm.serial = ch.serial)
          SendSysMessage(ch, "Please choose another player.");
          return 0;
        endif

      elseif (parray)
        if (parray[1] != ch.serial)
          SendSysMessage(ch, "Only the party leader can do this.");
          return 0;

        elseif (parray[1] = ch.serial)
          if (len(parray[2]) < 9)
            SendSysMessage(ch, "Who would you like to add to your party?");
            var pm := Target(ch);
            if (!pm)
              SendSysMessage(ch, "Targetting cancelled.");
              return 0;
            endif
            var pmparray := GetObjProperty(pm, "parray");
            if (pm.serial != ch.serial)
              if (!pmparray)
                if ((!pm.npctemplate) and (pm.ip))
                  return pm;

                elseif ((pm.npctemplate) or (!pm.ip))
                  SendSysMessage(ch, "You can only add online players to your party.");
                  return 0;
                endif

              elseif (pmparray)
                SendSysMessage(ch, "This player has already joined a party.");
                return 0;
              endif

            elseif (pm.serial = ch.serial)
              SendSysMessage(ch, "Please choose another player.");
              return 0;
            endif

          elseif (len(parray[2]) = 9)
            SendSysMessage(ch, "You can't add any more members to your party.");
            return 0;
          endif
        endif
      endif
    endif

  elseif (type = 1)
    if (pmserial != 0)
      var parray := GetObjProperty(ch, "parray");
      if (!parray)
        SendSysMessage(ch, "You are not a member of a party.");
        return 0;

      elseif (parray)
        if (parray[1] != ch.serial)
          if (pmserial != ch.serial)
            SendSysMessage(ch, "Only the party leader can do this.");
            return 0;

          elseif (pmserial = ch.serial)
            var pm := SystemFindObjectBySerial(pmserial, SYSFIND_SEARCH_OFFLINE_MOBILES);
            return pm;
          endif

        elseif (parray[1] = ch.serial)
          var pm := SystemFindObjectBySerial(pmserial, SYSFIND_SEARCH_OFFLINE_MOBILES);
          var pmparray := GetObjProperty(pm, "parray");
          if (!pmparray)
            SendSysMessage(ch, "This player is not a member of a party.");
            return 0;

          elseif (pmparray)
            if (pmparray[1] != parray[1])
              SendSysMessage(ch, "This player is not a member of your party.");
              return 0;

            elseif (pmparray[1] = parray[1])
              return pm;
            endif
          endif
        endif
      endif

    elseif(pmserial = 0)
      var parray := GetObjProperty(ch, "parray");
      if (!parray)
        SendSysMessage(ch, "You are not a member of a party.");
        return 0;

      elseif (parray)
        if (parray[1] != ch.serial)
          SendSysMessage(ch, "Who would you like to remove from your party?");
          var pm := Target(ch);
          if (!pm)
            SendSysMessage(ch, "Targetting cancelled.");
            return 0;
          endif
          var pmparray := GetObjProperty(pm, "parray");
          if (!pmparray)
            SendSysMessage(ch, "This player is not a member of a party.");
            return 0;

          elseif (pmparray)
            if (pm.serial != ch.serial)
              SendSysMessage(ch, "Only the party leader can do this.");
              return 0;

            elseif (pm.serial = ch.serial)
              return ch;
            endif
          endif

        elseif (parray[1] = ch.serial)
          SendSysMessage(ch, "Who would you like to remove from your party?");
          var pm := Target(ch);
          if (!pm)
            SendSysMessage(ch, "Targetting cancelled.");
            return 0;
          endif
          var pmparray := GetObjProperty(pm, "parray");
          if (!pmparray)
            SendSysMessage(ch, "This player is not a member of a party.");
            return 0;

          elseif (pmparray)
            if (pmparray[1] != parray[1])
              SendSysMessage(ch, "This player is not a member of your party.");
              return 0;

            elseif (pmparray[1] = parray[1])
              return pm;
            endif
          endif
        endif
      endif
    endif
  endif
endfunction

function SendMessageToPartyMember(ch, pmserial, pmmessage)
  var PacketHexString := "BF"+ ConvertIntToHex(10 + len(ConvertStrToHex(pmmessage, 1)) / 2, 2);
  PacketHexString := PacketHexString + ConvertIntToHex(6, 2);
  PacketHexString := PacketHexString + ConvertIntToHex(3, 1);
  PacketHexString := PacketHexString + ConvertIntToHex(ch.serial, 4);
  PacketHexString := PacketHexString + ConvertStrToHex(pmmessage, 1);
  var pm := SystemFindObjectBySerial(pmserial, SYSFIND_SEARCH_OFFLINE_MOBILES);
  SendPacket(pm, PacketHexString);
endfunction

function SendMessageToParty(ch, pmmessage)
  var parray := GetObjProperty(ch, "parray");
  if (parray)
    var parray2 := parray[2];
    var PacketHexString := "BF"+ ConvertIntToHex(10 + len(ConvertStrToHex(pmmessage, 1)) / 2, 2);
    PacketHexString := PacketHexString + ConvertIntToHex(6, 2);
    PacketHexString := PacketHexString + ConvertIntToHex(4, 1);
    PacketHexString := PacketHexString + ConvertIntToHex(ch.serial, 4);
    PacketHexString := PacketHexString + ConvertStrToHex(pmmessage, 1);
    if (parray[1] != ch.serial)
      var pl := SystemFindObjectBySerial(parray[1], SYSFIND_SEARCH_OFFLINE_MOBILES);
      SendPacket(pl, PacketHexString);
      var pm;
      foreach pmserial in parray2
        pm := SystemFindObjectBySerial(pmserial, SYSFIND_SEARCH_OFFLINE_MOBILES);
        SendPacket(pm, PacketHexString);
      endforeach

    elseif (parray[1] = ch.serial)
      SendPacket(ch, PacketHexString);
      var pm;
      foreach pmserial in parray2
        pm := SystemFindObjectBySerial(pmserial, SYSFIND_SEARCH_OFFLINE_MOBILES);
        SendPacket(pm, PacketHexString);
      endforeach
    endif
  endif
endfunction

That's the main include.

SendPacket.inc

Code: Select all

use uo;
use util;

function ConvertIntToHex(astring, alength)
  astring := Hex(astring);
  astring := CStr(astring);
  if (astring["0x"])
    astring := astring[3, len(astring)];
  endif
  if (len(astring) > alength * 2)
    return;
  endif
  while (len(astring) < alength * 2)
    astring := "0"+ astring;
  endwhile    
  return astring;
endfunction

function ConvertLetterToHex(bletter)
  bletter := CStr(bletter);
  case (bletter)
    "A": return "41";
    "Ã„": return "C4";
    "B": return "42";
    "C": return "43";
    "D": return "44";
    "E": return "45";
    "F": return "46";
    "G": return "47";
    "H": return "48";
    "I": return "49";
    "J": return "4A";
    "K": return "4B";
    "L": return "4C";
    "M": return "4D";
    "N": return "4E";
    "O": return "4F";
    "Ã–": return "D6";
    "P": return "50";
    "Q": return "51";
    "R": return "52";
    "S": return "53";
    "T": return "54";
    "U": return "55";
    "Ãœ": return "DC";
    "V": return "56";
    "W": return "57";
    "X": return "58";
    "Y": return "59";
    "Z": return "5A";
    "a": return "61";
    "Ã¤": return "E4";
    "b": return "62";
    "c": return "63";
    "d": return "64";
    "e": return "65";
    "f": return "66";
    "g": return "67";
    "h": return "68";
    "i": return "69";
    "j": return "6A";
    "k": return "6B";
    "l": return "6C";
    "m": return "6D";
    "n": return "6E";
    "o": return "6F";
    "Ã¶": return "F6";
    "p": return "70";
    "q": return "71";
    "r": return "72";
    "s": return "73";
    "t": return "74";
    "u": return "75";
    "Ã¼": return "FC";
    "v": return "76";
    "w": return "77";
    "x": return "78";
    "y": return "79";
    "z": return "7A";
    "!": return "21";
    "/": return "2F";
    "[": return "5B";
    "]": return "5D";
    "@": return "40";
    "=": return "3D";
    "#": return "23";
    "'": return "27";
    "Â´": return "B4";
    "`": return "60";
    "{": return "7B";
    "}": return "7D";
    "_": return "5F";
    ",": return "2C";
    ".": return "2E";
    "<": return "3C";
    ">": return "3E";
    "|": return "7C";
    "^": return "5E";
    "ÃŸ": return "DF";
    "?": return "3F";
    ":": return "3A";
    ";": return "3B";
    "-": return "2D";
    "+": return "2B";
    "*": return "2A";
    "(": return "28";
    ")": return "29";
    "1": return "31";
    "2": return "32";
    "3": return "33";
    "4": return "34";
    "5": return "35";
    "6": return "36";
    "7": return "37";
    "8": return "38";
    "9": return "39";
    "0": return "30";
    " ": return "20";
    default: return "20";
  endcase
endfunction

function ConvertStrToHex(cstring, ctype := 0, clength := 0)
  if (ctype = 0)
    cstring := CStr(cstring);
    var convertedstring := "";
    var letter := 1;
    repeat
      convertedstring := convertedstring + ConvertLetterToHex(cstring[letter, 1]);
      letter := letter + 1;
    until (len(cstring) = len(convertedstring) / 2);
    return convertedstring;

  elseif (ctype = 1)
    cstring := CStr(cstring);
    var convertedstring := "";
    var letter := 1;
    repeat
      convertedstring := convertedstring + ConvertLetterToHex(cstring[letter, 1]) +"00";
      letter := letter + 1;
    until (len(cstring) = len(convertedstring) / 4);
    convertedstring := "00"+ convertedstring +"00";
    return convertedstring;

  elseif (ctype = 2)
    cstring := CStr(cstring);
    var convertedstring := "";
    var letter := 1;
    repeat
      convertedstring := convertedstring + ConvertLetterToHex(cstring[letter, 1]);
      letter := letter + 1;
    until (len(cstring) = len(convertedstring) / 2);
    if (len(convertedstring) > clength * 2)
      return;
    endif
    while (len(convertedstring) < clength * 2)
      convertedstring := convertedstring +"00";
    endwhile
    return convertedstring;
  endif
endfunction

function SetPlayerWarMode(who, dvalue)
  var PacketHexString;
  PacketHexString := "72"+ ConvertIntToHex(dvalue, 1);
  PacketHexString := PacketHexString +"003200";
  SendPacket(who, PacketHexString);
endfunction

function EnableChatButton(who)
  var PacketHexString;
  PacketHexString := "B90001";
  SendPacket(who, PacketHexString);
endfunction

function SendIdleWarning(who)
  var PacketHexString;
  PacketHexString := "5307";
  SendPacket(who, PacketHexString);
endfunction

function UpdatePlayer(etowhom, who, egraphic, ex, ey, ez, efacing)
  var PacketHexString;
  PacketHexString := "77"+ ConvertIntToHex(who.serial, 4);
  PacketHexString := PacketHexString + ConvertIntToHex(egraphic, 2);
  PacketHexString := PacketHexString + ConvertIntToHex(ex, 2);
  PacketHexString := PacketHexString + ConvertIntToHex(ey, 2);
  PacketHexString := PacketHexString + ConvertIntToHex(ez, 1);
  PacketHexString := PacketHexString + ConvertIntToHex(efacing, 1);
  PacketHexString := PacketHexString +"00000000";
  SendPacket(etowhom, PacketHexString);
endfunction

function PlayCharacterAnimation(ftowhom, who, fanimation, ffacing, frepeat, fdirection, frepeatflag, fframedelay)
  var PacketHexString;
  PacketHexString := "6E"+ ConvertIntToHex(who.serial, 4);
  PacketHexString := PacketHexString + ConvertIntToHex(fanimation, 2);
  PacketHexString := PacketHexString +"00";
  PacketHexString := PacketHexString + ConvertIntToHex(ffacing, 1);
  PacketHexString := PacketHexString + ConvertIntToHex(frepeat, 2);
  PacketHexString := PacketHexString + ConvertIntToHex(fdirection, 1);
  PacketHexString := PacketHexString + ConvertIntToHex(frepeatflag, 1);
  PacketHexString := PacketHexString + ConvertIntToHex(fframedelay, 1);
  SendPacket(ftowhom, PacketHexString);
endfunction

function SetQuestArrow(who, gvalue, gx, gy)
  var PacketHexString;
  PacketHexString := "BA"+ ConvertIntToHex(gvalue, 1);
  PacketHexString := PacketHexString + ConvertIntToHex(gx, 2);
  PacketHexString := PacketHexString + ConvertIntToHex(gy, 2);
  SendPacket(who, PacketHexString);
endfunction

function SetCursorHue(who, hvalue)
  var PacketHexString;
  PacketHexString := "BF"+ ConvertIntToHex(6, 2);
  PacketHexString := PacketHexString + ConvertIntToHex(8, 2);
  PacketHexString := PacketHexString + ConvertIntToHex(hvalue, 1);
  SendPacket(who, PacketHexString);
endfunction

function OpenWebBrowser(who, iaddress)
  var PacketHexStringPart1 := "A5";
  var PacketHexStringPart2 := ConvertStrToHex(iaddress);
  var FullPacketHexStringLength := (len(PacketHexStringPart1) + len(PacketHexStringPart2)) / 2 + 2;
  var FullPacketHexString := PacketHexStringPart1 + ConvertIntToHex(FullPacketHexStringLength, 2) + PacketHexStringPart2;
  SendPacket(who, FullPacketHexString);
endfunction

function Play3DLightningBoltEffect(who)
  var PacketHexString := "C703"+ ConvertIntToHex(who.serial, 4);
  PacketHexString := PacketHexString +"0000000000000E260A15000E260A1500000000000000000000000000000013A700000000";
  PacketHexString := PacketHexString + ConvertIntToHex(who.serial, 4);
  PacketHexString := PacketHexString +"030000";
  foreach mobile in ListMobilesNearLocationEx(who.x, who.y, who.z, 20, LISTEX_FLAG_NORMAL + LISTEX_FLAG_HIDDEN + LISTEX_FLAG_GHOST)
    if ((mobile.ip) and (GetObjProperty(mobile, "3dclientversion")))
      SendPacket(mobile, PacketHexString);
    endif
  endforeach
endfunction

function DrawGamePlayer(who, jgraphic, jcolor)
  var PacketHexString := "20"+ ConvertIntToHex(who.serial, 4);
  PacketHexString := PacketHexString + ConvertIntToHex(jgraphic, 2);
  PacketHexString := PacketHexString +"00";
  PacketHexString := PacketHexString + ConvertIntToHex(jcolor, 2);
  PacketHexString := PacketHexString +"00";
  PacketHexString := PacketHexString + ConvertIntToHex(who.x, 2);
  PacketHexString := PacketHexString + ConvertIntToHex(who.y, 2);
  PacketHexString := PacketHexString +"0000";
  PacketHexString := PacketHexString + ConvertIntToHex(who.facing, 1);
  PacketHexString := PacketHexString + ConvertIntToHex(who.z, 1);
  SendPacket(who, PacketHexString);
endfunction

function DrawObject(ktowhom, kobj, kgraphic, kcolor, keqitrandcolor := 0)
  var PacketHexStringPart1 := "78";
  var PacketHexStringPart2 := ConvertIntToHex(kobj.serial, 4) + ConvertIntToHex(kgraphic, 2);
  PacketHexStringPart2 := PacketHexStringPart2 + ConvertIntToHex(kobj.x, 2);
  PacketHexStringPart2 := PacketHexStringPart2 + ConvertIntToHex(kobj.y, 2);
  PacketHexStringPart2 := PacketHexStringPart2 + ConvertIntToHex(kobj.z, 1);
  PacketHexStringPart2 := PacketHexStringPart2 + ConvertIntToHex(kobj.facing, 1);
  PacketHexStringPart2 := PacketHexStringPart2 + ConvertIntToHex(kcolor, 2);
  PacketHexStringPart2 := PacketHexStringPart2 +"0000";
  if ((kobj.isa(POLCLASS_MOBILE)) and ((kobj.graphic = 400) or (kobj.graphic = 401)))
    var color;
    var graphic;
    foreach item in ListEquippedItems(kobj)
      PacketHexStringPart2 := PacketHexStringPart2 + ConvertIntToHex(item.serial, 4);
      if (keqitrandcolor = 1)
        color := RandomInt(99) + 2;

      else
        color := item.color;
      endif
      if (color = 0)
        graphic := item.graphic;

      else
        graphic := item.graphic + 32768;
      endif
      PacketHexStringPart2 := PacketHexStringPart2 + ConvertIntToHex(graphic, 2);
      PacketHexStringPart2 := PacketHexStringPart2 + ConvertIntToHex(item.layer, 1);
      if (color != 0)
        PacketHexStringPart2 := PacketHexStringPart2 + ConvertIntToHex(color, 2);
      endif
    endforeach
  endif
  PacketHexStringPart2 := PacketHexStringPart2 +"00000000";
  var FullPacketHexStringLength := (len(PacketHexStringPart1) + len(PacketHexStringPart2)) / 2 + 2;
  var FullPacketHexString := PacketHexStringPart1 + ConvertIntToHex(FullPacketHexStringLength, 2) + PacketHexStringPart2;
  SendPacket(ktowhom, FullPacketHexString);
endfunction

function DeleteObject(who, lobj)
  var PacketHexString := "1D"+ ConvertIntToHex(lobj.serial, 4);
  SendPacket(who, PacketHexString);
endfunction

function RequestClientVersionInformation(who)
  var PacketHexString := "BD0003";
  SendPacket(who, PacketHexString);
endfunction

...needed by PartySystem.inc

logoff.src

Code: Select all

use uo;

include "include/PartySystem";

program logoff( character )
    EraseObjProperty(character, "#Online");  


//party system begin
    EraseObjProperty(character, "pinvitation");
    var parray := GetObjProperty(character, "parray");
    if (parray)
      RemovePartyMember(SystemFindObjectBySerial(parray[1], SYSFIND_SEARCH_OFFLINE_MOBILES), character.serial);
    endif

//party system end;



    // print( "logoff: " + character.name );
    // SendSysMessage( character, "You just logged off!" );
    
    // online time counter
    var sessiontime := ReadGameClock() - GetObjProperty(character,"logontime");
    var timer := GetObjProperty(character,"onlinetimer");
    if(!timer)
    	timer := 0;
    endif
    SetObjProperty(character,"onlinetimer",timer+sessiontime);
    // end online time counter

    if (!GetObjProperty(character, "private"))
      Broadcast(character.name +" has just logged off!");
    endif
    
endprogram

In the logoff script only the party system lines are important.

I think that's all.

Posted: **Wed Apr 19, 2006 9:57 am**

Now let's move on to Chat:

Chat.src:

Code: Select all

include "include/Chat";

program Chat(ch, data)
  var dataarray := SplitWords(data);
  if (dataarray[1] = "ClientPacketb5")
    DisplayChatDialog(ch);
    CreateChannel(ch, "Chat");
    JoinChannel(ch, "Chat");

  elseif (dataarray[1] = "ClientPacketb3")
    var dataarray2 := dataarray[2];
    if (dataarray2[15, 2] = "61")
      var chatmessage := dataarray2[19, len(dataarray2) - 18];
      if (len(chatmessage) % 2 != 0)
        chatmessage := dataarray2[19, len(dataarray2) - 19];
      endif
      SendChatMessage(ch, ConvertHexToStr(dataarray2[5, 8]), ConvertHexToStr(chatmessage));

    elseif (dataarray2[15, 2] = "58")
      LeaveChannel(ch);
    endif
  endif
endprogram

Chat.inc

Code: Select all

use uo;

include "include/SendPacket";
include "include/ReceivePacket";

function DisplayChatDialog(ch)
  var PacketHexStringPart1 := "B2";
  var PacketHexStringPart2 := "03ED00000000";
  PacketHexStringPart2 := PacketHexStringPart2 + ConvertStrToHex(ch.name, 1);
  PacketHexStringPart2 := PacketHexStringPart2 +"00000000";
  var FullPacketHexStringLength := (len(PacketHexStringPart1) + len(PacketHexStringPart2)) / 2 + 2;
  var FullPacketHexString := PacketHexStringPart1 + ConvertIntToHex(FullPacketHexStringLength, 2) + PacketHexStringPart2;
  SendPacket(ch, FullPacketHexString);
endfunction

function CreateChannel(ch, channelname)
  var PacketHexStringPart1 := "B2";
  var PacketHexStringPart2 := "03E800000000"+ ConvertStrToHex(channelname, 1);
  PacketHexStringPart2 := PacketHexStringPart2 +"000000300000";
  var FullPacketHexStringLength := (len(PacketHexStringPart1) + len(PacketHexStringPart2)) / 2 + 2;
  var FullPacketHexString := PacketHexStringPart1 + ConvertIntToHex(FullPacketHexStringLength, 2) + PacketHexStringPart2;
  SendPacket(ch, FullPacketHexString);
endfunction

function JoinChannel(ch, channelname)
  var PacketHexStringPart1 := "B2";
  var PacketHexStringPart2 := "03F100000000"+ ConvertStrToHex(channelname, 1);
  PacketHexStringPart2 := PacketHexStringPart2 +"0000";
  var FullPacketHexStringLength := (len(PacketHexStringPart1) + len(PacketHexStringPart2)) / 2 + 2;
  var FullPacketHexString := PacketHexStringPart1 + ConvertIntToHex(FullPacketHexStringLength, 2) + PacketHexStringPart2;
  SendPacket(ch, FullPacketHexString);
  PacketHexStringPart2 := "03EE00000000"+ ConvertStrToHex("0"+ ch.name, 1);
  PacketHexStringPart2 := PacketHexStringPart2 +"0000";
  FullPacketHexStringLength := (len(PacketHexStringPart1) + len(PacketHexStringPart2)) / 2 + 2;
  FullPacketHexString := PacketHexStringPart1 + ConvertIntToHex(FullPacketHexStringLength, 2) + PacketHexStringPart2;
  SetObjProperty(ch, "channelname", channelname);
  foreach chatter in EnumerateOnlineCharacters()
    if (GetObjProperty(chatter, "channelname") = channelname)
      SendPacket(chatter, FullPacketHexString);
    endif
  endforeach
  foreach chatter in EnumerateOnlineCharacters()
    if ((chatter.serial != ch.serial) and (GetObjProperty(chatter, "channelname") = channelname))
      PacketHexStringPart2 := "03EE00000000"+ ConvertStrToHex("0"+ chatter.name, 1);
      PacketHexStringPart2 := PacketHexStringPart2 +"0000";
      FullPacketHexStringLength := (len(PacketHexStringPart1) + len(PacketHexStringPart2)) / 2 + 2;
      FullPacketHexString := PacketHexStringPart1 + ConvertIntToHex(FullPacketHexStringLength, 2) + PacketHexStringPart2;
      SendPacket(ch, FullPacketHexString);
    endif
  endforeach
endfunction

function SendChatMessage(ch, language, chatmessage)
  var PacketHexStringPart1 := "B2";
  var nullbytes := 4 - len(language);
  language := ConvertStrToHex(language);
  while (nullbytes != 0)
    language := language +"00";
    nullbytes := nullbytes - 1;
  endwhile
  var PacketHexStringPart2 := "0025"+ language;
  PacketHexStringPart2 := PacketHexStringPart2 + ConvertStrToHex("0"+ ch.name, 1);
  PacketHexStringPart2 := PacketHexStringPart2 + ConvertStrToHex(chatmessage, 1);
  var FullPacketHexStringLength := (len(PacketHexStringPart1) + len(PacketHexStringPart2)) / 2 + 2;
  var FullPacketHexString := PacketHexStringPart1 + ConvertIntToHex(FullPacketHexStringLength, 2) + PacketHexStringPart2;
  foreach chatter in EnumerateOnlineCharacters()
    if (GetObjProperty(chatter, "channelname") = GetObjProperty(ch, "channelname"))
      SendPacket(chatter, FullPacketHexString);
    endif
  endforeach
endfunction

function LeaveChannel(ch)
  var PacketHexStringPart1 := "B2";
  var PacketHexStringPart2 := "03EF00000000"+ ConvertStrToHex(ch.name, 1);
  PacketHexStringPart2 := PacketHexStringPart2 +"0000";
  var FullPacketHexStringLength := (len(PacketHexStringPart1) + len(PacketHexStringPart2)) / 2 + 2;
  var FullPacketHexString := PacketHexStringPart1 + ConvertIntToHex(FullPacketHexStringLength, 2) + PacketHexStringPart2;
  var channelname := GetObjProperty(ch, "channelname");
  EraseObjProperty(ch, "channelname");
  foreach chatter in EnumerateOnlineCharacters()
    if (GetObjProperty(chatter, "channelname") = channelname)
      SendPacket(chatter, FullPacketHexString);
    endif
  endforeach
  PacketHexStringPart2 := "03E900000000"+ ConvertStrToHex(channelname, 1);
  PacketHexStringPart2 := PacketHexStringPart2 +"0000";
  FullPacketHexStringLength := (len(PacketHexStringPart1) + len(PacketHexStringPart2)) / 2 + 2;
  FullPacketHexString := PacketHexStringPart1 + ConvertIntToHex(FullPacketHexStringLength, 2) + PacketHexStringPart2;
  SendPacket(ch, FullPacketHexString);
endfunction

ReceivePacket.inc

Code: Select all

function ConvertHexToInt(astring)
  astring := CStr(astring);
  while ((astring[1, 1] = "0") and (len(astring) > 1))
    astring := astring[2, len(astring)];
  endwhile
  astring := "0x"+ astring;
  astring := Hex(astring);
  astring := CInt(astring);
  return astring;
endfunction

function ConvertHexToLetter(bletter)
  bletter := lower(CStr(bletter));
  print(bletter);
  case (bletter)
    "41": return "A";
    "c4": return "Ã„";
    "42": return "B";
    "43": return "C";
    "44": return "D";
    "45": return "E";
    "46": return "F";
    "47": return "G";
    "48": return "H";
    "49": return "I";
    "4a": return "J";
    "4b": return "K";
    "4c": return "L";
    "4d": return "M";
    "4e": return "N";
    "4f": return "O";
    "d6": return "Ã–";
    "50": return "P";
    "51": return "Q";
    "52": return "R";
    "53": return "S";
    "54": return "T";
    "55": return "U";
    "dc": return "Ãœ";
    "56": return "V";
    "57": return "W";
    "58": return "X";
    "59": return "Y";
    "5a": return "Z";
    "61": return "a";
    "e4": return "Ã¤";
    "62": return "b";
    "63": return "c";
    "64": return "d";
    "65": return "e";
    "66": return "f";
    "67": return "g";
    "68": return "h";
    "69": return "i";
    "6a": return "j";
    "6b": return "k";
    "6c": return "l";
    "6d": return "m";
    "6e": return "n";
    "6f": return "o";
    "f6": return "Ã¶";
    "70": return "p";
    "71": return "q";
    "72": return "r";
    "73": return "s";
    "74": return "t";
    "75": return "u";
    "fc": return "Ã¼";
    "76": return "v";
    "77": return "w";
    "78": return "x";
    "79": return "y";
    "7a": return "z";
    "21": return "!";
    "2f": return "/";
    "5b": return "[";
    "5d": return "]";
    "40": return "@";
    "3d": return "=";
    "23": return "#";
    "27": return "'";
    "b4": return "Â´";
    "60": return "`";
    "7b": return "{";
    "7d": return "}";
    "5f": return "_";
    "2c": return ",";
    "2e": return ".";
    "3c": return "<";
    "3e": return ">";
    "7c": return "|";
    "5e": return "^";
    "df": return "ÃŸ";
    "3f": return "?";
    "3a": return ":";
    "3b": return ";";
    "2d": return "-";
    "2b": return "+";
    "2a": return "*";
    "28": return "(";
    "29": return ")";
    "31": return "1";
    "32": return "2";
    "33": return "3";
    "34": return "4";
    "35": return "5";
    "36": return "6";
    "37": return "7";
    "38": return "8";
    "39": return "9";
    "30": return "0";
    "20": return " ";
    "00": return "";
    default: return " ";
  endcase
endfunction

function ConvertHexToStr(cstring)
  cstring := CStr(cstring);
  var convertedstring := "";
  var letter := 1;
  repeat
    convertedstring := convertedstring + ConvertHexToLetter(cstring[letter, 2]);
    letter := letter + 2;
  until (len(cstring) = letter - 1);
  return convertedstring;
endfunction

Both Chat and PartySystem are my creation... so if it's of any help a little bit of credit would be appreciated. But it's not necessary.

Posted: **Wed Apr 19, 2006 10:20 am**

I'm no heathen! I'll make sure you're noted.

It will take me a while to pour over this code. Thank you very much for your help. If muad doesn't want this, at least I do.

Oh, do you know why no one ever uses the in-game gumps for the party system?

Posted: **Wed Apr 19, 2006 10:29 am**

What exactly do you mean with in-game gumps?

Those packets handled by my (and i also think kinetix's) script are also sent from those party system gumps (opened by this scroll in the pd next to the charprofile)

The client sends the same if you are using the partysystem gump or commands like /add /remove and so on.

But you might have meant something else...

If you need any additional packet infos I can check the source of my client-proxy app I used for capturing the client info... I was too lazy to learn c back then so I couldn't use folko's hook ...

EDIT:

Oh well I just copy & pasted the packet editing functions:

Code: Select all

function manipulpacketBF(packetstr: String): String;
var
  subcommand: Word;
  subsubcommand: Byte;

begin
  Move(packetstr[4], subcommand, SizeOf(Word));
  subcommand := SwapWord(subcommand);
  if subcommand = 6 then
    begin
      Move(packetstr[6], subsubcommand, SizeOf(Word));
      case subsubcommand of
        1: Result := manipulpacketBFsc6ssc1(packetstr);
        8: Result := manipulpacketBFsc6ssc8(packetstr);
        9: Result := manipulpacketBFsc6ssc9(packetstr);
        3: Result := manipulpacketBFsc6ssc3(packetstr);
        4: Result := manipulpacketBFsc6ssc4(packetstr);
        6: Result := manipulpacketBFsc6ssc6(packetstr);
        2: Result := manipulpacketBFsc6ssc2(packetstr);

      end;

    end

  else if subcommand = $15 then
    Result := manipulpacketBFsc15(packetstr)

  else if subcommand = $13 then
    Result := manipulpacketBFsc13(packetstr)

  else
    Result := packetstr;

end;

function manipulpacketBFsc6ssc1(packetstr: String): String;
var
  memserial: DWord;
  newpacketstr: String;

begin
  Move(packetstr[7], memserial, SizeOf(DWord));
  memserial := SwapDWord(memserial);
  newpacketstr := createspeechpacketstr('.PartySystem ClientPacketbfSubcommand6 Subsubcommand1 '+
                                        IntToStr(memserial));
  Form1.ListBox1.Items.Add('Manipulated packet $BF!');
  Result := newpacketstr;

end;

function manipulpacketBFsc6ssc8(packetstr: String): String;
var
  memserial: DWord;
  newpacketstr: String;

begin
  Move(packetstr[7], memserial, SizeOf(DWord));
  memserial := SwapDWord(memserial);
  newpacketstr := createspeechpacketstr('.PartySystem ClientPacketbfSubcommand6 Subsubcommand8 '+
                                        IntToStr(memserial));
  Form1.ListBox1.Items.Add('Manipulated packet $BF!');
  Result := newpacketstr;

end;

function manipulpacketBFsc6ssc9(packetstr: String): String;
var
  memserial: DWord;
  newpacketstr: String;

begin
  Move(packetstr[7], memserial, SizeOf(DWord));
  memserial := SwapDWord(memserial);
  newpacketstr := createspeechpacketstr('.PartySystem ClientPacketbfSubcommand6 Subsubcommand9 '+
                                        IntToStr(memserial));
  Form1.ListBox1.Items.Add('Manipulated packet $BF!');
  Result := newpacketstr;

end;

function manipulpacketBFsc6ssc3(packetstr: String): String;
var
  memserial: DWord;
  messagestr, newpacketstr: String;

begin
  Move(packetstr[7], memserial, SizeOf(DWord));
  memserial := SwapDWord(memserial);
  messagestr := ConvertBinToStr(packetstr, 11, (Length(packetstr) - 10) *
                                SizeOf(Char));
  newpacketstr := createspeechpacketstr('.PartySystem ClientPacketbfSubcommand6 Subsubcommand3 '+
                                        IntToStr(memserial) +' '+ messagestr);
  Form1.ListBox1.Items.Add('Manipulated packet $BF!');
  Result := newpacketstr;

end;

function manipulpacketBFsc6ssc4(packetstr: String): String;
var
  messagestr, newpacketstr: String;

begin
  messagestr := ConvertBinToStr(packetstr, 7, (Length(packetstr) - 6) *
                                SizeOf(Char));
  newpacketstr := createspeechpacketstr('.PartySystem ClientPacketbfSubcommand6 Subsubcommand4 '+ messagestr);
  Form1.ListBox1.Items.Add('Manipulated packet $BF!');
  Result := newpacketstr;

end;

function manipulpacketBFsc6ssc6(packetstr: String): String;
var
  canloot: Byte;
  newpacketstr: String;

begin
  Move(packetstr[7], canloot, SizeOf(Byte));
  newpacketstr := createspeechpacketstr('.PartySystem ClientPacketbfSubcommand6 Subsubcommand6 '+
                                        IntToStr(canloot));
  Form1.ListBox1.Items.Add('Manipulated packet $BF!');
  Result := newpacketstr;

end;

function manipulpacketBFsc6ssc2(packetstr: String): String;
var
  memserial: DWord;
  newpacketstr: String;

begin
  Move(packetstr[7], memserial, SizeOf(DWord));
  memserial := SwapDWord(memserial);
  newpacketstr := createspeechpacketstr('.PartySystem ClientPacketbfSubcommand6 Subsubcommand2 '+
                                        IntToStr(memserial));
  Form1.ListBox1.Items.Add('Manipulated packet $BF!');
  Result := newpacketstr;

end;

And for the chat:

Code: Select all

function manipulpacketB5(packetstr: String): String;
var
  hexstr, newpacketstr: String;

begin
  hexstr := GenHexStr(Addr(packetstr[2]), Length(packetstr) - 1);
  newpacketstr := createspeechpacketstr('.Chat ClientPacketb5 '+ hexstr);
  Form1.ListBox1.Items.Add('Manipulated packet $B5!');
  Result := newpacketstr;

end;

function manipulpacketB3(packetstr: String): String;
var
  hexstr, newpacketstr: String;

begin
  hexstr := GenHexStr(Addr(packetstr[2]), Length(packetstr) - 1);
  newpacketstr := createspeechpacketstr('.Chat ClientPacketb3 '+ hexstr);
  Form1.ListBox1.Items.Add('Manipulated packet $B3!');
  Result := newpacketstr;

end;

Posted: **Wed Apr 19, 2006 8:29 pm**

Thanks for posting this stuff. I worked on the party system all day and I got add, remove, accept and decline working. Most of the files are organized and I think I have 95% of the kinks worked out (on the code that works). I'm limited on how the party system is SUPOSED to work, so I'll need someone to correct any of my mistakes.

I should have the party system done in a few days. I use definitions present in the BFCommand package in the 096 distro, though. Hopefully this will make Muad's job of adding my scripts in easier...

Posted: **Wed Apr 19, 2006 10:36 pm**

...will ja nix sagen, aber noch umstÃ¤ndlicher kann man die Packet-Zusammenbastelei net machen (vor allem, die Geschichte Buchstabe -> Hex)?

(bitte net zu negativ auffassen ;o)

Shinigami

Posted: **Thu Apr 20, 2006 1:07 am**

Nichts fuer ungut, aber negatives kann man ja nur negativ auffassen

Is nicht so tragisch;-)

Kritik ist ja immer gut, wobei sie hier halt fuer die lernenden Besucher des Forums wichtiger waere als fuer mich.

Das Zeug ist naemlich von 2002 oder so und da hatte ich wirklich kaum Ahnung von irgendwas :?

Es soll ja nicht als Top-Referenz dienen, sondern helfen falls es irgendwo Unklarheiten gibt, wann was zu senden ist etc.

Wegen den Umwandlungen... in sogut wie jeder Sprache gibts ja ne Umwandlung von Buchstabe zu Zahl... aber die hab ich damals wohl nicht gefunden in escript

oder andere Theorie: "ich war zu faul" oder ich wusste das damals noch gar nicht... naja lange her, alles vergessen. Erstaunlich dass ich die Scripts ueberhaupt noch hab.

EDIT:

Gefunden

LOL

CAsc( str );
CChr( number );

Naja, wenn auch der Code etwas schlampig ist, immerhin hab ich die ganzen Sachen mit pol92 zum laufen gebracht. Das ist dann aber auch das einzige worauf ich stolz bin

To everyone who doesn't speak german: There's absolutely nothing important in this post

Posted: **Thu Apr 20, 2006 11:10 am**

I should have paid more attention in german class.

Shini, ich liebe dich. Max Scherr, du auch.

(Is that correct? I would visit the pol forums more often if I got free german lessons...)

Posted: **Thu Apr 20, 2006 11:48 am**

"du auch" should be "dich auch" but besides that it's correct, although you might confuse people a bit with that

We were just talking about how stupidly I did all the packet "packing" especially the Hex <-> Character conversion. :?

Posted: **Thu Apr 20, 2006 1:12 pm**

Thank you. I didn't pay very good attention when the teacher went over that part.

Yes that code was a little scary. It has helped point me in the right direction though but I'm not using any of it. I might use some of the chat code or use it for more inspiration. I really appreciate it.

Since this is my first time coding packet hooks I had to learn a few things but I've been coding almost non-stop on this since I've started, so I'm no slacker.

Add, remove, accept and decline work, but I need to clean it up a bit and add in more comments. I was using strings to set the packet information, which I think is a little ugly and Racalc's guide uses Set functions, which I think look better and make more sense.

I also got party stats to update correctly so you can view the health, mana and stamina of your party. That was a little tricky for me... Chat and Message functions are almost done and I should have those finished by the end of the day.

What is the standard color for OSI party messages? I keep getting the feeling it was a nice green, or perhaps no color at all. I'll go with green if no one knows.

Posted: **Thu Apr 20, 2006 1:32 pm**

Yup...I remember green but me playing on OSI ... that was 2000 I think (age 15)...

Posted: **Thu Apr 20, 2006 6:11 pm**

Ok I finished, for the most part. Now it's time to hammer out any possible kinks I may have overlooked and optimize the source as best I can.

I have most settings stored in an include file where someone could set the constants however they wanted. The default font color is green

It brings back memories.

Should I make liberal use of set_critical() with the packet handling logic? It works if I don't and I haven't had any problems without it.

Posted: **Fri Apr 21, 2006 3:31 pm**

I've been playing with the party system all day now and it's working fairly well. There may be bugs in it, but I've tried to eliminate all of them. Here's the forum topic:
http://forums.polserver.com/viewtopic.php?t=289

I found out while playing with this that the client sends packets when you manually type in party commands in addition to when you use the party scroll. That's neat, I thought I was going to have to do that.

Posted: **Sat Apr 22, 2006 2:09 am**

Max Scherr wrote: The client sends the same if you are using the partysystem gump or commands like /add /remove and so on.

Posted: **Sat Apr 22, 2006 2:20 am**

tekproxy, party system is cool! But what about Skill Lock???

Posted: **Sat Apr 22, 2006 3:20 am**

scripts/textcmd/player/skillock.src

Code: Select all

use uo;
use os;

include "include/gumps";

program skilllock(who)
var teksts:=array(
        "Alchemy",
        "Anatomy",
        "Animal Lore",
        "Item Ident.",
        "Arms Lore",
        "Parrying",
        "Begging",
        "Blacksmithy",
        "Bowcraft",
        "Peacemaking",
        "Camping",
        "Carpentry",
        "Cartography",
        "Cooking",
        "Detecting Hid.",
        "Enticement",
        "Evaluating Int.",
        "Healing",
        "Fishing",
        "Forensic Eval.",
        "Herding",
        "Hiding",
        "Provocation",
        "Inscription",
        "Lockpicking",
        "Magery",
        "Magic Res.",
        "Tactic",
        "Snooping",
        "Musicianship",
        "Poisoning",
        "Archery",
        "Farming",
        "Stealing",
        "Tailoring",
        "Animal Taming",
        "Taste Ident.",
        "Tinkering",
        "Tracking",
        "Veterinary",
        "Swordsmanship",
        "Macefighting",
        "Fencing",
        "Wrestling",
        "Lumberjacking",
        "Mining",
        "Meditation",
        "Stealth",
        "Remove Trap"
        );
	GFInitGump(10,40);
	GFResizePic( 0, 0,9559, 350, 520);
        var i,skillid;
        var skillocks:= GetObjProperty (who,"skillocks");
        if (!skillocks)
                skillocks:=array{};
                for (skillid:=0;skillid<49;skillid:=skillid+1)
                        skillocks[skillid+1]:=0;
                endfor
                setobjproperty(who,"skillocks",skillocks);
        endif
      	for (i:=1;i<=25;i:=i+1)
                GFTextLine (30,10+(i-1)*20,StdColor,teksts[i]);
                GFCheckBox( 10, 15+(i-1)*20, 2361, 2360, skillocks[i], 100+i);
        endfor
        for (i:=26;i<=49;i:=i+1)
		GFTextLine (200,10+(i-26)*20,StdColor,teksts[i]);
                GFCheckBox( 180, 15+(i-26)*20, 2361, 2360, skillocks[i], 100+i);
        endfor
        var res := GFSendGump(who);
        for (i:=1;i<=49;i:=i+1)
                if (res[i+100])
                        skillocks[i]:=1;
                else
                        skillocks[i]:=0;
                endif
        endfor
        setobjproperty(who,"skillocks",skillocks);
endprogram

in scripts/include/attributes.inc
after function AwardPoints(who, skillid, skillpoints, gainrate) add

Code: Select all

        if (getobjproperty(who,"skillocks"))
                var skillocks:=getobjproperty(who,"skillocks");
                if (skillocks[skillid+1]) //SKILLOCKED - wont grow
                        skillpoints:=0;
                        gainrate:=0;
               endif
        endif

check your skills names because I've few different names (example: Farming)

Posted: **Sat Apr 22, 2006 4:39 am**

I'm working on a skill lock system that uses packet hooks. The hook part is finished (and was easy). The hard part will be editing attributes.inc. The logic for skill/locks goes something like this:

Code: Select all

if at skill cap
  if skill not set locked
    foreach other_skill for player
      if other_skill set to lower
        allow skill to advance
        lower other_skill by same amount
      endif
    endforeach
  endif
else
  // not at skill cap
  if skill set to locked or set to lower
    no gain
  endif
endif

Or maybe my logic is flawed. Luckily, UO.com says this about skill/locks:

Raise - When a skill is set to Raise (up arrow), this skill will increase as it is used..
Lower - When a skill is set to Lower (down arror), this skill will decrease if you're at the skill cap and gain in other skills. Skills set to Lower will not allow you to gain stats from use of that skill.
Lock - When a skill is set to Lock (padlock), this skill's value will not change. Skills set to Lock will not allow you to gain stats from use of that skill.

I'm just trying to come up with an elegant way to add this to attributes.inc. I think I'm going to go with the one for the 096 distro since that's the one I use. If you're not using the 096 distro you'll just have to add in the checks yourself.

Posted: **Sat Apr 22, 2006 7:11 am**

I added my skill lock checks directly in awardpoints function, I think that's the easiest way to get it working well.

Posted: **Sat Apr 22, 2006 10:52 am**

I realized making a version that can easily work with both the 095 and 096 distro would be too difficult, so I made this for 096. Hopefully the devs like it enough to use it. I've tested this on my server and everything worked fine. Here's the link to my post:
http://forums.polserver.com/viewtopic.php?t=292