-- Buy Belts script - V1.0 - written by Jandrana
-- A small script to buy "Excellent belts" in Limo Desert and send it to
-- a group member, that will make G7 mana stones from them.
-- The char will wait with buying until the the other char writes "ready"
-- in party chat. After sending the belts, the this char will write "sent"
-- in party chat to signal the other char, that he should check mail.
--
-- Setup: build a group with a second char, place the char for this script
-- near the merchant "Nebular Grey-Eye"
recipient = "charname"; -- the char that should receiver the belts.
itemName = "Excellent Belt";
eventparty("belts", "start");
function buyBelts()
player:openStore("Nebular Grey-Eye")
store:buyItem(itemName, 27);
end
function sendBelts()
local armor=MGbuildItemTableOfType("Armor");
armor=selectItemsByName(armor, itemName);
UMM_SendAdvanced(recipient,getIdsFrom(armor), nil, nil, nil, nil, nil, nil, nil, nil, nil);
eventparty("belts", "start");
end
numberOfG7 = 0;
numberSent = 0;
repeat
cprintf(cli.lightgreen,"\nHow many G7 stones do you want:\n")
numberOfG7 = io.stdin:read()
numberOfG7 = tonumber(numberOfG7)
until numberOfG7 and numberOfG7 > 0
__WPL:setWaypointIndex(1)
repeat
yrest(1000)
until checkeventparty("belts", "ready");
buyBelts();
sendBelts();
sendpartychat("sent");
numberSent = numberSent + 1;
if numberSent >= numberOfG7 then
error("Belt sending finished.", 0)
end