WebSVN – vanilla-wow-addons – Blame – Rev 1

1

office

1

----------------------------------------------------------------

2

-- AutoProfit v2.55 (January 2006)

3

-- Check out www.gameguidesonline.com for the latest version.

4

--	To learn how I used the 3D model read this: (http://www.gameguidesonline.com/guides/articles/ggoarticleoctober05_02.asp)

5

-- Written by Jason Allen.

6

----------------------------------------------------------------

7

8

autoProfitExceptions = { };

totalProfit = 0;

rotation = 0;

rotrate = 0;

AUTOPROFIT_VERSION = "v2.55 January 6th, 2006";

13

14

function SellJunk()

15

16

local numOfSales = 0;

for bag = 0, 4 do

if GetContainerNumSlots(bag) > 0 then

22

23

for slot = 0, GetContainerNumSlots(bag) do

24

25

local texture, itemCount, locked, quality = GetContainerItemInfo(bag, slot);

26

27

if (quality == 0) then

28

local result = AutoSeller_ProcessLink(GetContainerItemLink(bag, slot));

29

if (result > 0) then

30

DEFAULT_CHAT_FRAME:AddMessage("|c00bfffffAutoProfit|r: Sold " .. GetContainerItemLink(bag, slot), 0.0, .8, 1);

31

PickupContainerItem(bag, slot);

32

MerchantItemButton_OnClick("LeftButton");

end

end

if (quality == -1) then

37

local linkcolor = AutoSeller_ProcessLink(GetContainerItemLink(bag, slot));

38

if (linkcolor == 1) then

39

DEFAULT_CHAT_FRAME:AddMessage("|c00bfffffAutoProfit|r: Sold " .. GetContainerItemLink(bag, slot), 0.0, .8, 1);

40

PickupContainerItem(bag, slot);

41

MerchantItemButton_OnClick("LeftButton");

end

end

end

end

end

end

function AutoProfit_OnLoad()

55

SLASH_AUTOPROFIT1 = "/autoprofit";

56

SLASH_AUTOPROFIT2 = "/ap";

57

SlashCmdList["AUTOPROFIT"] = AutoProfit_SlashCmd;

58

end

59

60

function AutoProfit_Calculate()

for bag = 0, 4 do

if GetContainerNumSlots(bag) > 0 then

65

66

for slot = 0, GetContainerNumSlots(bag) do

67

68

local texture, itemCount, locked, quality = GetContainerItemInfo(bag, slot);

69

70

if (quality == 0) then

71

local result = AutoSeller_ProcessLink(GetContainerItemLink(bag, slot));

72

if (result > 0) then

73

AutoProfit_Tooltip:SetBagItem(bag, slot);

end

end

if (quality == -1) then

78

local linkcolor = AutoSeller_ProcessLink(GetContainerItemLink(bag, slot));

79

if (linkcolor == 1) then

80

AutoProfit_Tooltip:SetBagItem(bag, slot);

end

end

end

end

end

end

function AutoProfit_AddCoin()

94

95

if (arg1) then

96

totalProfit = totalProfit + arg1;

end

end

function AutoProfit_RotateModel(elapsed)

101

102

if (rotrate > 0) then rotation = rotation + (elapsed * rotrate); end

103

104

TreasureModel:SetRotation(rotation);

end;

function AutoProfit_SlashCmd(msg)

110

111

--No switch statement in Lua? Lots of ugly if's to follow.

112

113

if (msg == "") then

114

DEFAULT_CHAT_FRAME:AddMessage("|c00bfffffAutoProfit|r " .. AUTOPROFIT_VERSION .. " by Jason Allen.", 0.0, .80, 1);

115

DEFAULT_CHAT_FRAME:AddMessage("|c00bfffff/autoprofit [item link]|r: Add an item to the exception list.", 0.0, .80, 1);

116

		DEFAULT_CHAT_FRAME:AddMessage("|c00bfffff/autoprofit [item link]|r: Removes that item from the exception list.", 0.0, .80, 1);

117

DEFAULT_CHAT_FRAME:AddMessage("|c00bfffff/autoprofit list|r: List all items on your exception list.", 0.0, .80, 1);

118

		DEFAULT_CHAT_FRAME:AddMessage("|c00bfffff/autoprofit [number]|r: Remove item at that location in your exception list.", 0.0, .80, 1);

119

		DEFAULT_CHAT_FRAME:AddMessage("|c00bfffff/autoprofit purge|r: Remove all items from your exception list.", 0.0, .80, 1);

120

		DEFAULT_CHAT_FRAME:AddMessage("For the latest version and advanced usage visit |c00bfffffwww.gameguidesonline.com|r (Under the World of Warcraft mods menu.)", 0.0, .80, 1);

return;

end

if (msg == "purge") then

125

autoProfitExceptions = { };

126

DEFAULT_CHAT_FRAME:AddMessage("|c00bfffffAutoProfit|r: Deleted all exceptions.", 0.0, .80, 1);

return;

end

if (msg == "list") then

131

if (table.getn(autoProfitExceptions) > 0) then

132

DEFAULT_CHAT_FRAME:AddMessage("AutoProfit Exceptions: ", 0.0, .80, 1);

133

for i=1,table.getn(autoProfitExceptions) do

134

DEFAULT_CHAT_FRAME:AddMessage("[|c00bfffff" .. i .. "|r] " .. autoProfitExceptions[i], 0.0, .80, 1);

135

end

136

else

137

DEFAULT_CHAT_FRAME:AddMessage("|c00bfffffAutoProfit|r: Your exceptions list is empty.", 0.0, .80, 1);

end

return;

end

if (string.len(msg) < 5) then

143

144

if (tonumber(msg) == nil) then return; end

145

146

if (tonumber(msg) > table.getn(autoProfitExceptions)) then

147

return;

148

else

149

			DEFAULT_CHAT_FRAME:AddMessage("|c00bfffffAutoProfit|r: Removed " .. autoProfitExceptions[tonumber(msg)] .. " from exceptions list.", 0.0, .8, 1);

150

table.remove(autoProfitExceptions, tonumber(msg));

return;

end

end

if (string.find(msg, "Hitem:") == nil) then return; end

local removed = 0;

if (table.getn(autoProfitExceptions) > 0) then

160

161

for i=1,table.getn(autoProfitExceptions) do

162

163

if (msg == autoProfitExceptions[i]) then

164

					DEFAULT_CHAT_FRAME:AddMessage("|c00bfffffAutoProfit|r: Removed " .. autoProfitExceptions[i] .. " from exceptions list.", 0.0, .8, 1);

165

table.remove(autoProfitExceptions, i);

removed = 1;

end

end

end

if (removed == 0) then

172

table.insert(autoProfitExceptions, msg);

173

DEFAULT_CHAT_FRAME:AddMessage("|c00bfffffAutoProfit|r: Added " .. msg .. " to exceptions list.", 0.0, .8, 1);

end

end

function AutoSeller_ProcessLink(link)

local color;

local item;

local name;

for color, item, name in string.gfind(link, "|c(%x+)|Hitem:(%d+:%d+:%d+:%d+)|h%[(.-)%]|h|r") do

188

189

--This prevents Dark Moon Faire items from being sold to the vendor.

190

		if ((name == "Small Furry Paw") or (name == "Torn Bear Pelt") or (name == "Soft Bushy Tail") or (name == "Vibrant Plume") or (name == "Evil Bat Eye")

191

or (name == "Glowing Scorpid Blood")) then

return 0;

end

if (color == "ff9d9d9d") then

196

for i=1,table.getn(autoProfitExceptions) do

197