UO Unchained: RE Skinning

Creator: daklueLink: re-skinning-cm6miiw8
Created: about 1 month ago on 03/20/2025, 12:15:01 AM
Note from JaseOwns:
Scripts will be leveraged on both UORazorscipts.com and this site. At the time of the launch (Feb 1st 2025), this isn't working right - but it will! Thanks for checking it out
FileType: Razor Enhanced (PHP)
Size: 4036
Category: Skinning
Skills: Forensic Eval
Hotkey: No hotkey provided
Tags: Skinning

Description: RE Skinning script

import sys from System.Collections.Generic import List self_pack = Player.Backpack.Serial ##Types corpse = 0x2006 uncutleather = 0x1079 scalesType = 0x26B4 scissorsType = 0x0F9F ##lists bladeList = [0xf52, 0xec4, 0x13f6, 0xec3] leathersList = List[int]((0x1081)) ignore = [] def scan(): skin = Items.Filter() skin.Enabled = True skin.RangeMin = 0 skin.RangeMax = 2 skin.IsCorpse = True skins = Items.ApplyFilter(skin) for toskin in skins: if toskin: if not toskin.Serial in ignore: Misc.SendMessage( 'Corpse found', 20 ) skinLoot(toskin) ignore.append(toskin.Serial) Misc.Pause(1100) else : Misc.SendMessage( 'No corpse', 20 ) # Helper Functions ################################### def getByItemID(itemid, source): #find an item id in container serial for item in Items.FindBySerial(source).Contains: if item.ItemID == itemid: return item else: Misc.NoOperation() ################################### def getBlade(): for item in bladeList: blade = getByItemID(item, self_pack) if blade is not None: return blade def getLeatherFromGround(): leatherFilter = Items.Filter() leatherFilter.Enabled = True leatherFilter.OnGround = False leatherFilter.Movable = True leatherFilter.Graphics = leathersList leatherFilter.RangeMax = 2 leathers = Items.ApplyFilter(leatherFilter) Misc.SendMessage for leather in leathers: Items.Move(leather.Serial, self_pack, 100) Misc.Pause(700) def skinLoot(x): corpse = x if corpse: Items.UseItem(corpse) Misc.Pause(550) for item in bladeList: blade = getBlade() if blade is not None: Items.UseItem(blade) Target.WaitForTarget(3000, True) Target.TargetExecute(corpse) Misc.Pause(1000) else: Misc.SendMessage('No Blades Found') #sys.exit() else: Misc.SendMessage('cantfind corpse') #sys.exit() leather = getByItemID(uncutleather, corpse.Serial) scales = getByItemID(scalesType, corpse.Serial) #if scales is not None: # Items.Move(scales, self_pack, 0) # Misc.Pause(550) if leather is not None: # Misc.Pause(150) # Items.MoveOnGround(leather, 0, Player.Position.X + 1, Player.Position.Y + 1, Player.Position.Z) # Misc.Pause(550) scissors = getByItemID(scissorsType, self_pack) if scissors is not None: Items.UseItem(scissors) Target.WaitForTarget(3000, True) Target.TargetExecute(leather) Misc.Pause(700) else: Misc.SendMessage('No Scissors Found') #sys.exit() #getLeatherFromGround() while True: scan() Misc.Pause(2000)
View list of scripts
Disclaimer: This is a fan made site and is not directly associated with Ultima Online or UO staff.