About myself, feel like i'm signing up for a edating site heh. I'm 36 live in Louisiana where I work as a E&I desginer / PLC Programmer in the Petrochem Industry. I've been hacking away at code since my parents bought me a Tandy Color Computer II back in the mid 80's. I've been into UO since beta, I still have the print from the charter edition hanging on my computer room wall. I was in Krieger on Great Lakes way back in the day if anyone remembers Krieger Valley between Yew and Minoc. I took off the week charter edition came out and was one of the first if not the first GM Smith's in the game at just over 26 play hours. Our guild moved over from Dialbo enmasse so I sat in the minoc smithy and the guild would run ore from minoc mtn to me till they had a full suit of armor and weapon of their choice then they stood guard over the others that were still mining. We got way ahead of everyone else in the game doing that. Back then dragons and demons and the like would follow you through gates if you cast them between you and them. We used to fill Krieger Castle to overflowing with the baddies then go in as a guild to clear them out. Was alot of fun.
UO Scripting wise I haven't done much. I'm starting in LUA and have allready written a simple script to toss blackrock pieces into the trash. Its the beginning of a mining script I hope to write.
Below is my script as it stands right now. It has to be fired off manually but it works without any problems that I've found so far. But in practice I find the person writing the code a poor checker so if anyone finds anything that needs fixing please speak up. I borrowed some of the code from the easyUO tutorials but have a firm grasp of what they are doing.
-----------------------------
-- Defined Functions (subs)
-----------------------------
function TargetContainer(sMessage)
UO.LTargetKind = 1 -- object
UO.ExMsg(UO.CharID , sMessage) -- Message above character
UO.TargCurs = true -- make a target cursor
while UO.TargCurs == true do wait(10) end -- wait until something is clicked (ie notarget cursor)
--;UO.LObjectID = UO.LTargetID -- set last object to the object clicked
--;UO.Macro(17,0) -- openbag ( invoke macro use last object which hopefully is a bag inwhich case opens bag )
return UO.LTargetID -- set the return value .. the bagid clicked
end
function TargetItem(sMessage)
UO.LTargetKind = 1
UO.ExMsg(UO.CharID , sMessage)
UO.TargCurs = true
while UO.TargCurs == true do wait(10) end
return UO.LTargetID
end
function FindItem(sName)
local cnt = UO.ScanItems(false) --;Calls the ScanItems command and sets the return value to the local variable cnt
i=0
while i ~= cnt do --; While i does not equal the cnt returned, loop.
local ID,Type,Kind,ContID,X,Y,Stack,Rep,Col = UO.GetItem(i) --;Set all these vars to the scanned item under i, starting at 1 and ending at cnt
local Name,Info = UO.Property(ID) --; Same thing as the last line, setting 2 variables with the return values of property, using ID defined in the line above.
if Name == sName then
print(Name)
return ID
end
i = i+1 --; Increment var to look at the next item, return to top until expression evaluates to false.
end --; Always end (case sensitive) your while/for/if's!! Will cause headaches if you do not remember!
end
function TrashItem(sName)
local cnt = UO.ScanItems(false)
i=0
while i~=cnt do
local ID = UO.GetItem(i)
local Name = UO.Property(ID)
if Name == sName then
UO.Drag(ID)
wait(nWait)
UO.DropC(nTrash)
wait(nWait/2)
end
i = i+1
end
end
-----------------------------
-- Script Starts Below
-----------------------------
nTrash = TargetContainer('Please Target Your Trashcan')
nWait = 600
TrashItem('A Small Piece Of Blackrock')
print('Done!')
UO.ExMsg(UO.CharID , 'Done !')
