SolarStrike Software

Code: Select all

-- open gift bag (at the moment level 1-10)
-- Updated by Bill D Cat on Aug 15, 2013
-- Loop to allow all bags up to current level to be opened. Useful if XP orb used and more than one level gained, or if playing on Nexon private server.
-- Only use Fruit of Extra Experience at level 9, otherwise the second one is wasted at level 10 if the 1hr buff hasn't expired.
function openGiftbags1To10(_player_level)
	player:updateMounted()
	local wasMounted = player.Mounted
	if( not _player_level) then _player_level = player.Level; end
	if _player_level > 10 then return; end											-- Don't waste time checking for bags beyond level 10.
	for kk = 1, 10 do																-- Find first available bag. Reduce item not found messages.
		for i,v in pairs(database.giftbags)  do
			if( v.level == kk) then
			local gb_item = inventory:findItem( v.itemid, "bags" );				-- Find item in backpack
				if ( gb_item and v.type == "bag" ) then
					ll = kk
				end
			end
		end
	end
	for jj = ll, _player_level do
		for i,v in pairs(database.giftbags)  do
			if( v.level == jj) then
				local gb_item = inventory:findItem( v.itemid, "bags" );				-- Find item in backpack
				if ( not gb_item ) then
					cprintf(cli.yellow, language[174], GetIdName(v.itemid) );		-- item not found
				elseif (v.type == "bag") then 
					cprintf(cli.lightblue, language[170], jj );						-- Open and equip gift bag for level
					gb_item:use()
					yrest(6000);													-- wait for using that item
					inventory:update();												-- update slots
				elseif (v.type == "is") then
					cprintf(cli.lightblue, language[159], gb_item.Name );			-- Moving to Item Shop bag:
					gb_item:moveTo("itemshop")
				elseif (v.armor == armorMap[player.Class1] or v.type == "" ) then 	-- Only equip items that meet class requirements.
					cprintf(cli.lightblue, language[171], gb_item.Name );			-- Open/equip item:
					gb_item:use()
				elseif (v.type == "xp" and jj == _player_level) then				-- Only use Fruit of Extra Experience at level 9
					cprintf(cli.lightblue, language[171], gb_item.Name );			-- Open/equip item:
					gb_item:use()
					yrest(3000);													-- wait for using that item
				end
			end
		end
	end
	player:updateMounted()
	if wasMounted and not player.Mounted then
		player:mount()
	end
end

Code: Select all

	<giftbag itemid="202152" type="xp"	armor=""        level="9" name="Frucht der zus\132tzlichen Erfahrung" />

Code: Select all

repeat
    Search for a bag from the database
    if bag found and bag.level <= _player_level then
        open bag 
        use items of that level
    end
until not bag

Code: Select all

item = inventory:findItem(...)
item:moveTo("left earring") -- or "right earring"

Code: Select all

function CItem:moveTo(bag)

	if location == "equipment" then
		-- Check if is type equipment
		if self.ObjType ~= 0 and self.ObjType ~= 1 then
			return
		end

		if bag == "equipment" or bag == "amulets" then -- No particular slot. Just use item to equip.
			self:use()
		else
			self:pickup()
			equipment.BagSlot[first]:pickup()
		end

		return
	end

Code: Select all

	local first, last, location = getInventoryRange(bag)

Code: Select all

			self:pickup()
			equipment.BagSlot[first]:pickup()

Code: Select all

repeat yrest(1000) until ItemQueueCount() == 0

Code: Select all

-- Only use Fruit of Extra Experience at level 9, otherwise the second one is wasted at level 10 if the 1hr buff hasn't expired.

Code: Select all

-- open gift bag (at the moment level 1-19)