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

		DEFAULT_CHAT_FRAME:AddMessage(LIGHTYELLOW_FONT_COLOR_CODE.."PriceEach warning threshold is now set to: "..FONT_COLOR_CODE_CLOSE..HIGHLIGHT_FONT_COLOR_CODE..msg[2]..FONT_COLOR_CODE_CLOSE);

46

47

elseif msg[1] == "warn" then

48

49

50

SetDick(); --in case they /pe warn before they've loaded the AH

51

52

		DEFAULT_CHAT_FRAME:AddMessage(LIGHTYELLOW_FONT_COLOR_CODE.."PriceEach warning threshold is currently set to: "..FONT_COLOR_CODE_CLOSE..HIGHLIGHT_FONT_COLOR_CODE..DickThreshold..FONT_COLOR_CODE_CLOSE);

else

		DEFAULT_CHAT_FRAME:AddMessage(LIGHTYELLOW_FONT_COLOR_CODE.."PriceEach: Invalid option.  Please use: /pe warn [#], where # is the amount of gold you want to be warned if price each is greater than.  Omit the # for current threshold."..FONT_COLOR_CODE_CLOSE);

end

end

function PriceEach_OnEvent(event, arg1, arg2, arg3)

63

64

if (event == "VARIABLES_LOADED") then

65

66

SetDick(); --make sure a good value coming from variables

end

end

function SetDick()

--i'm sorry, but anyone who's selling a citrine for 90g IS a dick :p

74

75

if (DickThreshold == nil) then

76

77

DickThreshold = 5;

78

		DEFAULT_CHAT_FRAME:AddMessage(LIGHTYELLOW_FONT_COLOR_CODE.."PriceEach warning threshold set to the default: "..FONT_COLOR_CODE_CLOSE..HIGHLIGHT_FONT_COLOR_CODE..DickThreshold..FONT_COLOR_CODE_CLOSE);

end

end

function PriceEach_AuctionFrameBrowse_Update()

85

86

SetDick(); --set in case they haven't /pe warned yet or opened ah

87

88

local offset = FauxScrollFrame_GetOffset(BrowseScrollFrame);

89

local index;

90

local button, buttonName;

91

92

orig_AuctionFrameBrowse_Update();

93

94

for i=1, NUM_BROWSE_TO_DISPLAY do

95

96

index = offset + i + (NUM_AUCTION_ITEMS_PER_PAGE * AuctionFrameBrowse.page);

97

98

button = getglobal("BrowseButton"..i);

99

100

buttonName = "BrowseButton"..i;

101

102

		local name, texture, count, quality, canUse, level, minBid, minIncrement, buyoutPrice, bidAmount, highBidder, owner =  GetAuctionItemInfo("list", offset + i);

103

104

if (name ~= nil) then

105

106

local aiLink = GetAuctionItemLink("list", offset + i); --get clicky-link

107

local aiItemID, aiRandomProp, aiEnchant, aiUniqID = breakLink(aiLink); --extract itemID from clicky-link

108

109

local sName, sLink, iQuality, iLevel, sType, sSubType, iCount, iEquipLoc = GetItemInfo(aiItemID); --

110

111

if (buyoutPrice > 0 ) and (iCount > 1) then --~= nil) then

112

113

itemName = getglobal(buttonName.."Name");

114

115

local oldtext = itemName:GetText();

116

117

local pereach = floor(buyoutPrice / count);

118

local g,s,c = ConvertMoney(pereach);

local gt,st,ct;

local peText;

peText = " ("

if (g > 0) then

if (g >= DickThreshold) then --5

127

128

peText = peText..RED_FONT_COLOR_CODE..g.."g"..FONT_COLOR_CODE_CLOSE;

else

peText = peText..NORMAL_FONT_COLOR_CODE..g.."g"..FONT_COLOR_CODE_CLOSE;

end

end

if (s > 0) then

if (g > 0) then

peText = peText.." ";

end

if (g >= DickThreshold) then --5

147

148

peText = peText..GetHex(0.8,0.8,0.8)..s.."s"..FONT_COLOR_CODE_CLOSE;

else

peText = peText..GetHex(0.8,0.8,0.8)..s.."s"..FONT_COLOR_CODE_CLOSE;

end

end

if (c > 0) then

if (g > 0) or (s > 0) then

161

162

peText = peText.." ";

end

if (g >= DickThreshold) then --5

167

168

peText = peText..GetHex(0.8,0.5,0.4)..c.."c"..FONT_COLOR_CODE_CLOSE;

else

peText = peText..GetHex(0.8,0.5,0.4)..c.."c"..FONT_COLOR_CODE_CLOSE;

end

end

peText = peText..")"

179

180

itemName:SetText(oldtext..peText);

181

182

end --if (buyoutPrice > 0 ) and (iCount ~= nil) then

183

184

end --if (name ~= nil) then

end --for

end --function

--courtesy EnhTooltip:

191

function ConvertMoney(copper)

192

193

if (copper == nil) then copper = 0; end

194

195

local g = math.floor(copper / 10000);

196

local s = math.floor((copper - (g*10000)) / 100);

197

local c = math.floor(copper - (g*10000) - (s*100));

return g,s,c;

end

--courtesy EnhTooltip:

204

function breakLink(link)

205

206

if (type(link) ~= 'string') then return end

207

208

	local i,j, itemID, enchant, randomProp, uniqID, name = string.find(link, "|Hitem:(%d+):(%d+):(%d+):(%d+)|h[[]([^]]+)[]]|h")

209

210

return tonumber(itemID or 0), tonumber(randomProp or 0), tonumber(enchant or 0), tonumber(uniqID or 0), name

end

--courtesy watchdog:

215

function GetHex(r,g,b)

local TehHaxx0r;

if g then

return string.format("|cFF%02X%02X%02X", (255*r), (255*g), (255*b))

elseif r then

return string.format("|cFF%02X%02X%02X", (255*r.r), (255*r.g), (255*r.b))

else

return ""

end

end

--Text Parsing. Yay!

236

function TextParse(InputString)

237

--[[ By FERNANDO!

238

This function should take a string and return a table with each word from the string in

239

each entry. IE, "Linoleum is teh awesome" returns {"Linoleum", "is", "teh", "awesome"}

240

Some good should come of this, I've been avoiding writing a text parser for a while, and

241

I need one I understand completely. ^_^

242

243

If you want to gank this function and use it for whatever, feel free. Just give me props

244

somewhere. This function, as far as I can tell, is fairly foolproof. It's hard to get it

245

to screw up. It's also completely self-contained. Just cut and paste.]]

246

local Text = InputString;

247

local TextLength = 1;

248

local OutputTable = {};

local OTIndex = 1;

local StartAt = 1;

local StopAt = 1;

local TextStart = 1;

253

local TextStop = 1;

254

local TextRemaining = 1;

255

local NextSpace = 1;

256

local Chunk = "";

257

local Iterations = 1;

258

local EarlyError = false;

259

260

if ((Text ~= nil) and (Text ~= "")) then

261

-- ... Yeah. I'm not even going to begin without checking to make sure Im not getting

262

-- invalid data. The big ol crashes I got with my color functions taught me that. ^_^

263

264

-- First, it's time to strip out any extra spaces, ie any more than ONE space at a time.

265

while (string.find(Text, " ") ~= nil) do

266

Text = string.gsub(Text, " ", " ");

267

end

268

269

-- Now, what if text consisted of only spaces, for some ungodly reason? Well...

270

if (string.len(Text) <= 1) then

EarlyError = true;

end

-- Now, if there is a leading or trailing space, we nix them.

275

if EarlyError ~= true then

276

TextStart = 1;

277

TextStop = string.len(Text);

278

279

if (string.sub(Text, TextStart, TextStart) == " ") then

280

TextStart = TextStart+1;

281

end

282

283

if (string.sub(Text, TextStop, TextStop) == " ") then

284

TextStop = TextStop-1;

285

end

286

287

Text = string.sub(Text, TextStart, TextStop);

288

end

289

290

-- Finally, on to breaking up the goddamn string.

291

292

OTIndex = 1;

293

TextRemaining = string.len(Text);

294

295

while (StartAt <= TextRemaining) and (EarlyError ~= true) do

296

297

-- NextSpace is the index of the next space in the string...

298

NextSpace = string.find(Text, " ",StartAt);

299

-- if there isn't another space, then StopAt is the length of the rest of the

300

-- string, otherwise it's just before the next space...

301

if (NextSpace ~= nil) then

302

StopAt = (NextSpace - 1);

303

else

304

StopAt = string.len(Text);

LetsEnd = true;

end

Chunk = string.sub(Text, StartAt, StopAt);

309

OutputTable[OTIndex] = Chunk;

310

OTIndex = OTIndex + 1;

311

312

StartAt = StopAt + 2;

end

else

OutputTable[1] = "Error: Bad value passed to TextParse!";

317

end

318

319

if (EarlyError ~= true) then

320

return OutputTable;

321

else

322

return {"Error: Bad value passed to TextParse!"};

323

end

324

325

end

vanilla-wow-addons – Blame information for rev 1