SolarStrike Software

Code: Select all

function Fusion_MakeMaxStones(_beltNameOrId, _beltTierLevel)
------------------------------------------------
-- Makes maximum mana stones taking into account
-- the number of charges and mana stones you
-- already have. Assumes you will have enough
-- belts/items and Random Fusion Stones.
-- Accepts arguments:
--    _beltNameOrId = name or id of the item to use
--                "all" uses all items, no whitelist
--                defaults to "Gold-wrapped Belt"
--    _beltTierLevel = the tier level stone the
--                     belt/item makes - defaults to 3
-------------------------------------------------

Code: Select all

	local charges = RoMScript("GetMagicBoxEnergy()");
	if charges >= 13 then
	local filename = getExecutionPath() .. "/logs/charges.log";
		local file, err = io.open(filename, "a+");
		if file then
			file:write(" Character name: " ..player.Name.. ". \tDate: " .. os.date() .. ". \tCharges gained: "..charges".\n")
			file:close();
		end
	end;

Code: Select all

Fusion_MakeMaxStones(227502, 4)

Code: Select all

RoMScript("Fusion_ClearBag(" .. player.Level .. ")")

Code: Select all

RoMScript("table.insert(Fusion.SaveItem,203038)")

Code: Select all

		SaveItem =	{
					203571,		-- Brown Horse (1 Day)
					201853,		-- Peers Paket
					227502,		-- Excellent Belt
					203038,		-- Phirius Coins
					},

Code: Select all

local tobuy = Fusion_NumberToBuy(20)
    local stonename = RoMScript("TEXT('Sys202999_name')")
    repeat
		local fscount = inventory:getItemCount(202999)
		if fscount >= tobuy then break end
        player:openStore("Odeley Prole");
        inventory:storeBuyItem(stonename, tobuy - fscount)
        yrest(10000)
    until false
	Fusion_MakeMaxStones()

Code: Select all

--    _beltTierLevel = the tier level stone the
--                     belt makes - defaults to 3

Code: Select all

player:openStore("npcname")
store:buyItem("Random Fusion Stone",20)

Code: Select all

repeat
    local puri = inventory:findItem("Purified Fusion Stone","itemshop")
    if puri then 
        puri:moveTo("bags")
    end
until puri == nil