i have a problem with my function:
http://img249.imageshack.us/i/errorlbf.jpg/
function
Code: Select all
function send_to_character(character)
receiver = {LIST OF 64 characters "twinka", "twinkb", etc}
-- Open correct tab
RoMScript("UMMFrameTab1:Hide()") yrest(50)
RoMScript("UMMFrameTab2:Hide()") yrest(50)
RoMScript("UMMFrameTab3:Show();") yrest(50)
yrest(1000);
for count = 1, 30, 1 do -- for each inventory
local slotitem = inventory.BagSlot[count];
local slotNumber = slotitem.SlotNumber
-- Check all search terms
if (_quality == nil or slotitem.Quality <= _quality) and
(_reqlevel == nil or slotitem.RequiredLvl <= _reqlevel) then
-- mark to send
bagid = math.floor((slotNumber-1)/30+1)
slotid = slotNumber - (bagid * 30 - 30)
RoMScript("UMMMassSendItemsSlotTemplate_OnClick(_G['UMMFrameTab3BagsBag"..bagid.."Slot"..slotid.."'])")
yrest(250)
end
end
yrest(1000)
RoMScript("UMMFrameTab3RecipientRecipient:SetText('"..receiver[character].."');")
RoMScript("UMMFrameTab3Action:Send()")
-- Waiting until finished
repeat
yrest(2000)
until RoMScript("UMMFrameTab3Status:IsVisible()") == false
end
Code: Select all
MailTo = 1;
repeat
<!-- Buy Belts WORKS GOOD-->
player:target_NPC(116627);
yrest(500)
sendMacro("ChoiceOption(1);");
yrest(500);
for i = 1, 27, 1
do
sendMacro("StoreBuyItem(6)");
yrest(2000);
end;
sendMacro("CloseWindows();");
yrest(1500);
<!-- Send belts-->
for i = 1, 27, 1
do
sendMacro("OpenMail();");
send_to_character(MailTo);
yrest(1000);
sendMacro("CloseMail();");
yrest(500);
end;
MailTo == MailTo + 1;
until MailTo = 65