A script to do a mass copy of items from brit to alt brit

Post your Custom Scripts or Packages.

Moderator: POL Developer

Post Reply
Yukiko
Distro Developer
Posts: 2362
Joined: Thu Feb 02, 2006 1:41 pm
Location: San Antonio, Texas
Contact:

A script to do a mass copy of items from brit to alt brit

Post by Yukiko » Thu Aug 02, 2007 1:14 pm

Our shard is still being decorated and we have yet to start on the alternate britannia realm. It is bare! We do however have the britannia realm fairly well finished, atleast as far as the essentials, doors, lamp posts, street signs etc. I was going to assign the task of decorating alt brit to one of my staff and then it struck me that alot of what she would be doing is a duplicate of what was already done in britannia so I decided to script a command to do a mass copy of certain items that would be the same in both realms. I try to make life as easy as possible for my staff. For the most part there'll be doors and lamp posts in both realms and maybe a few other things depending on the theme for alt brit. Our alt will be a twisted reality kind of theme but as I said there will be common items. Our dungeons are going to remain mapped the same way as well.

So here is that program. It is written to run under a converted POL 0.95 Distro scriptset but most objtype numbers will probably be the same for other versions od scriptsets as the graphic is the objtype number for most items. Pay particular attention to objtype 0x6203 as that is the teleporter item created with the .maketele command. That might be different in other scripsets but I don't know.

I hope this is helpful to someone.

Code: Select all

use uo;
use os;

program copytodespair(who)
    var things, copieditem;
    SendSysMessage(who, "Duplicating items to Despair.", color := 88);
    things := ListObjectsInBox(0, 0, -10, 6143, 4095, 70, "britannia");
    foreach item in things
	sleepms(5);
	SendSysMessage(who, "Examining objtype number " + item.objtype + " at " + item.x + ", " + item.y + ", " + item.z + ".", color := 88);
	if(item.IsA(POLCLASS_DOOR))
	    copieditem := CreateItemCopyAtLocation(item.x, item.y, item.z, item, "britannia_alt");
	endif
	// You can add or remove items in the case list to fit your needs
	case(item.objtype)
	    0xb20:		// lamp post lit
	    0xb21:		// lamp post unlit
	    0xb22:		// lamp post lit
	    0xb23:		// lamp post unlit
	    0xb24:		// lamp post lit
	    0xb25:		// lamp post unlit
	    0x1296:		// street sign post
	    0x1297:		// the various street signs
	    0x1298:		// the various street signs
	    0x1299:		// the various street signs
	    0x129a:		// the various street signs
	    0x129b:		// the various street signs
	    0x129c:		// the various street signs
	    0x129d:		// the various street signs
	    // The next item is the maketele teleporter
	    0x6203: copieditem := CreateItemCopyAtLocation(item.x, item.y, item.z, item, "britannia_alt");
	endcase
	// Change the realm destination to alt brit on the teleporters
	if(item.objtype == 0x6203)
	    SetObjProperty(copieditem, "DestRealm", "britannia_alt");
	endif
    endforeach
    SendSysMessage(who, "Done duplicating items to Despair.", color := 66);

endprogram
Save it in your test level text command folder as masscopy.src or whatever you like and compile.

I know it isn't much but it's one of those nice timesavers that make things easier. The real muscle work is done by the CreateItemCopyAtLocation function which I didn't realize even existed. It must have been added after POL 0.92 because I have an old dupe item script that I used to use that performed the same function but addressed each item member one at a time. Yeah I know I look stupid for not knowing of this function. Oh well, I also don't know every entry in Roget's Thesaurus either.

Anyway, use it if you need it.

One note about the script I should mention, it is a use once script as it stands because it doesn't check if the item exists at the destination location. So if you run it more than once you will get duplicate items stacked on top of one another.
Sincerely,
Yukiko

I would tell you a UDP joke but you might not get it.

Titus 2:13

Harley
Forum Regular
Posts: 308
Joined: Sat Mar 18, 2006 1:41 am
Location: Germany

Re: A script to do a mass copy of items from brit to alt bri

Post by Harley » Wed Jun 18, 2014 2:28 pm

Wow, it's great script, thank u!!!

Post Reply