Loot Scroll (Fan Update Project)

[Silromen]

Dunno if there were any fans of the old Loot Scroll (http://wowui.worldofwar.net/?p=mod&m=1874) AddOn, but its author has abandoned it for more than a year now... This AddOn was a major favorite of mine, adding a very simple functionality to the Loot window, which by its own blinding simplicity has caused me to question why it wasn't already integrated into WoW's system... As of recent it has been acting extremely oddly, somehow hindering the game's functionality... Problems with the ESC Key, reports of random issues with other key bindings... I really want to get this AddOn working again. Anyone able to help fix it?

LUA File
LOOT_ROW_HEIGHT = 38;
NO_LOOT = "No Loot";
LOOTED = "Looted ";

function LootScrollFrame_OnLoad()
ScrollFrame_OnLoad();
LootFrameUpButton:Hide();
LootFramePrev:Hide();
LootFrameDownButton:Hide();
LootFrameNext:Hide();
this:RegisterEvent("LOOT_SLOT_CLEARED");
this:RegisterEvent("LOOT_OPENED");
this:RegisterEvent("LOOT_CLOSED");
for i=1, LOOTFRAME_NUMBUTTONS do
local button=getglobal("LootButton"..i);
button:SetScript("OnEnter", LootScrollFrame_OnEnter);
end
end

function LootScrollFrame_OnEvent()
if ( event=="LOOT_CLOSED" ) then
if ( GetAutoLootDefault() and not LootScrollFrame.loot ) then
UIErrorsFrame:AddMessage(NO_LOOT, 1.0, 1.0, 0.0, 1.0);
end
LootScrollFrame.loot = nil;
end
if ( event=="LOOT_OPENED" ) then
local message;
local numloot = GetNumLootItems();
if ( GetAutoLootDefault() ) then
this:UnregisterEvent("LOOT_SLOT_CLEARED");
message = LOOTED..numloot;
UIErrorsFrame:AddMessage(message, 1.0, 1.0, 0.0, 1.0);
LootScrollFrame.loot = true;
for i=1, numloot do
LootSlot(i);
end
CloseLoot();
this:RegisterEvent("LOOT_SLOT_CLEARED");
end
end
if ( event=="LOOT_SLOT_CLEARED" ) then
LootFrame_Update();
end
end

function LootFrame_Update()
local lootTable=SortLoot();
local numLootItems=getn(lootTable);
if ( numLootItems == 0 ) then
LootFrame:Hide();
end
if ( numLootItems <= LOOTFRAME_NUMBUTTONS ) then
LootScrollFrame:Hide();
else
LootScrollFrame:Show();
end

local offset = FauxScrollFrame_GetOffset(LootScrollFrame);
local texture, item, quantity, quality;
local button, countString, color;
for index = 1, LOOTFRAME_NUMBUTTONS do
button = getglobal("LootButton"..index);
local id = offset + index;
if ( id <= numLootItems ) then
local slot=lootTable[id];
texture, item, quantity, quality = GetLootSlotInfo(slot);
color = ITEM_QUALITY_COLORS[quality];
getglobal("LootButton"..index.."IconTexture"):SetTexture(texture);
getglobal("LootButton"..index.."Text"):SetText(item);
getglobal("LootButton"..index.."Text"):SetVertexColor(color.r, color.g, color.b);
countString = getglobal("LootButton"..index.."Count");
if ( quantity > 1 ) then
countString:SetText(quantity);
countString:Show();
else
countString:SetText('');
countString:Hide();
end
--button:SetSlot(slot);
button.slot = slot;
button.quality = quality;
button:Show();
else
button:Hide();
end
end

-- Scroll frame stuff
FauxScrollFrame_Update( LootScrollFrame, numLootItems, LOOTFRAME_NUMBUTTONS, LOOT_ROW_HEIGHT );
end

function SortLoot()
local lootTable={};
for slot=1, GetNumLootItems() do
if ( LootSlotIsItem(slot) or LootSlotIsCoin(slot)) then
tinsert(lootTable, slot);
end
end
return lootTable;
end

function LootScrollFrame_OnEnter()
GameTooltip:SetOwner(this, "ANCHOR_RIGHT");
GameTooltip:SetLootItem(this.slot);
CursorUpdate();
end

XML File
<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ C:ProjectsWoWBinInterfaceFrameXMLUI.xsd">
<ScrollFrame name="LootScrollFrame" parent="LootFrame" inherits="FauxScrollFrameTemplate" hidden="true">
<Size>
<AbsDimension x="160" y="170"/>
</Size>
<Anchors>
<Anchor point="TOPLEFT">
<Offset>
<AbsDimension x="10" y="-75"/>
</Offset>
</Anchor>
</Anchors>
<Scripts>
<OnLoad>
LootScrollFrame_OnLoad();
</OnLoad>
<OnEvent>
LootScrollFrame_OnEvent();
</OnEvent>
<OnVerticalScroll>
FauxScrollFrame_OnVerticalScroll(LOOT_ROW_HEIGHT, LootFrame_Update);
</OnVerticalScroll>
<OnMouseWheel>
ScrollFrameTemplate_OnMouseWheel(arg1);
</OnMouseWheel>
</Scripts>
</ScrollFrame>
</Ui>

[Lothaer]

can you please provide a download link as this mod nolonger exists on this wowui.

[Silromen]

can you please provide a download link as this mod nolonger exists on this wowui.Hope this is OK, I uploaded it here (http://wowui.worldofwar.net/?p=mod&m=6398) for a reliable source.

[Tunga]

Does this just make the loot window scrollable?

XLoot (http://files.wowace.com/XLoot/XLoot.zip) just expands the window to fit all the contents, and a bunch of other design/usabilty options.

[Silromen]

Hm... Aside from adding the scrollability, it also shifts loot window contents upward... It's preferable, at least for me, to maintain the inobtrusive size of the original loot frame... Additionally, I find XLoot to be less than aesthetically pleasing.

[Silromen]

*nudges*

Anyone able to help?

[Tunga]

Well XLoot can do everything you're asking for and as far as I'm aware is fully skinnable.