WebSVN – vanilla-wow-addons – Blame – Rev 1 – /k/KLHThreatMeter/Code/KTM

1

office

1

2

local mod = klhtm

local me = { }

mod.netin = me

me.myevents = { "CHAT_MSG_CHANNEL", "CHAT_MSG_SYSTEM", "CHAT_MSG_ADDON" }

7

8

-- Special onevent function from Core.lua

9

me.onevent = function()

10

11

if event == "CHAT_MSG_ADDON" then

12

13

-- check the message is KLHTM, and comes from the party or raid

14

if (arg1 ~= "KLHTM") or ((arg3 ~= "PARTY") and (arg3 ~= "RAID")) then

15

me.logmessage("nonklhtm", string.len(arg1))

return

end

-- ok

me.messagein(arg4, arg2, 1)

21

22

elseif event == "CHAT_MSG_CHANNEL" then

23

24

-- ignore messages outside our channel

25

if arg8 ~= mod.net.channelnumber then

return

end

-- ignore non-KLHTM messages

30

if string.sub(arg1, 1, 6) ~= "KLHTM " then

31

me.logmessage("nonklhtm", string.len(arg1))

return

end

-- ignore messages from people outside the raid group

36

if mod.unit.isplayeringroup(arg2) == nil then

37

me.logmessage("nonklhtm", string.len(arg1))

return

end

-- remove " ...hic!" suffix, and localisations

42

local start

43

local finish

44

start, finish, body = string.find(arg1, "(.-) ?%.%.%..+")

45

46

if finish == string.len(arg1) then

47

if mod.out.checktrace("info", me, "drunk") then

48

mod.out.printtrace(string.format("Trimming <drunk> from this message: %s", arg1))

end

arg1 = body

end

-- to get here, it's fine

54

me.messagein(arg2, arg1, 7)

55

56

elseif event == "CHAT_MSG_SYSTEM" then

57

58

-- in 0.12 and higher, the mod is sending ADDON_MESSAGEs, so we don't care about afk

59

if mod.isnewwowversion == nil then

60

if string.find(arg1, string.format(MARKED_AFK_MESSAGE, "")) then

61

mod.my.setstate("afk", true)

62

63

elseif string.find(arg1, CLEARED_AFK) then

64

mod.my.setstate("afk", false)

end

end

else

return

end

end

--[[

me.messagein(author, message, startindex)

76

Processes a message from the chat channel.

77

<author> is the name of the player who sent the message.

78

<message> is the original string sent.

79

<startindex> is the 1-based string index where the message starts.

80

]]

81

me.messagein = function(author, message, startindex)

82

83

-- get first bit and rest

local command

local data

_, _, command, data = string.find(message, "(%a+)(.*)", startindex)

88

89

if (command == nil) or (me.commands[command] == nil) then

90

91

-- log as invalid

92

me.logmessage("invalid", string.len(message))

93

94

if mod.out.checktrace("warning", me, "badmessage") then

95

mod.out.printtrace(string.format("Received the invalid message '|cffffff00%s|r' from %s.", message, author))

end

else

if me.commands[command](author, message, startindex + string.len(command)) then

100

-- log as good

101

me.logmessage("good", string.len(message))

102

else

103

-- log as invalid

104

me.logmessage("invalid", string.len(message))

105

106

if mod.out.checktrace("warning", me, "badmessage") then

107

mod.out.printtrace(string.format("Received the invalid message '|cffffff00%s|r' from %s.", message, author))

end

end

end

end

--[[

me.officercheck(author, message)

116

Checks if the author of an officer-only command is an officer. Otherwise, prints an error to trace.

117

<author> is the name of the player who sent the message.

118

<message> is the complete text of the message.

119

Returns: non-nil iff <author> is an officer.

120

]]

121

me.officercheck = function(author, message)

122

123

if mod.unit.isplayerofficer(author) then

return true

else

if mod.out.checktrace("warning", me, "badmessage") then

128

			mod.out.printtrace(string.format("|cffffff00%s|r is not an officer, but sent the message |cffffff00%s|r.", author, message))

end

return nil

end

end

--[[

each function is called with 1) author, 2) message, 3) index of first character after the command (probably a space)

138

they should return non-nil if the message was good, nil otherwise

]]

me.commands =

{

-- clearing the raid threat

143

["clear"] = function(author, message)

144

145

-- author must be officer

146

if me.officercheck(author, message) then

147

148

mod.out.print(string.format(mod.string.get("print", "network", "threatreset"), author))

149

150

mod.table.resetraidthreat()

151

mod.table.clearraidtable()

return true

end

end,

-- updating your threat value

159

["threat"] = function(author, message, start)

160

161

local value = tonumber(string.sub(message, start + 1))

162

163

-- check for validity

164

if value == nil then

return

end

mod.table.updateplayerthreat(author, value)

169

KLHTM_RequestRedraw("raid")

return true

end,

-- 1.12: "t" is a synonym for "threat"

176

["t"] = function(author, message, start)

177

178

local value = tonumber(string.sub(message, start + 1))

179

180

-- check for validity

181

if value == nil then

return

end

mod.table.updateplayerthreat(author, value)

186

KLHTM_RequestRedraw("raid")

return true

end,

-- setting the master target

193

["target"] = function(author, message, start)

194

195

-- check player is an officer

196

if me.officercheck(author, message) then

197

198

local newmt = string.sub(message, start + 1)

199

-- check newmt makes sense

200

201

if newmt ~= nil and string.len(newmt) > 0 then

202

mod.boss.newmastertarget(author, newmt)

203

KLHTM_RequestRedraw("raid")

204

205

-- update poll values

206

mod.net.lastmtstring = newmt

207

mod.net.lastmtsender = author

208

mod.net.lastmttime = GetTime()

return true

end

end

end,

-- polling the master target

216

["mtpoll"] = function(author, message, start)

217

218

-- check player is an officer

219

if me.officercheck(author, message) then

220

221

local newmt = string.sub(message, start + 1)

222

-- check newmt makes sense

223

224

if newmt ~= nil and string.len(newmt) > 0 then

225

226

-- check if this is different

227

if newmt ~= mod.net.lastmtstring then

228

229

-- set the string as MT, but with a caution

230

mod.boss.mastertarget = newmt

231

mod.out.print(string.format(mod.string.get("print", "network", "mtpollwarning"), newmt, author))

232

KLHTM_RequestRedraw("raid")

233

234

-- update poll values

235

mod.net.lastmtstring = newmt

236

mod.net.lastmtsender = author

237

mod.net.lastmttime = GetTime()

end

-- message was valid so return true

return true

end

end

end,

-- clearing the master target

250

["cleartarget"] = function(author, message)

251

252

-- check player is an officer

253

if me.officercheck(author, message) then

254

255

-- ignore polls / repeated clears

256

if mod.net.lastmtstring == "clear" then

-- do nothing

else

mod.boss.clearmastertarget()

261

mod.out.print(string.format(mod.string.get("print", "network", "mtclear"), author))

262

KLHTM_RequestRedraw("raid")

263

264

-- update poll values

265

mod.net.lastmtstring = "clear"

266

mod.net.lastmtsender = author

267

mod.net.lastmttime = GetTime()

end

-- message was valid so return true

return true

end

end,

-- starting knockback discovery

277

["spellstart"] = function(author, message)

278

279

-- check author is an officer

280

if me.officercheck(author, message) == nil then

return

end

mod.boss.isspellreportingactive = true

285

286

if author == UnitName("player") then

287

mod.boss.istrackingspells = true

288

end

289

290

-- only print out if you are a tracker

291

if mod.boss.istrackingspells == true then

292

mod.out.print(string.format(mod.string.get("print", "network", "knockbackstart"), author))

end

return true

end,

-- stopping knockback discovery

300

["spellstop"] = function(author, message)

301

302

-- check author is an officer

303

if me.officercheck(author, message) == nil then

return

end

mod.boss.isspellreportingactive = false

308

309

if mod.boss.istrackingspells == true then

310

mod.out.print(string.format(mod.string.get("print", "network", "knockbackstop"), author))

end

return true

end,

-- When boss spell reporting is enabled and someone suffers a boss spell

318

["spelleffect"] = function(author, message, start)

319

320

-- if we aren't monitoring reports, ignore

321

if mod.boss.istrackingspells == false then

322

return true -- we don't actually check correctness.

323

end

324

325

local _, _, spell, mob, result, data = string.find(message, "\"(.+)\" \"(.*)\" (%l+) ?(.*)", start + 1)

326

327

if spell == nil then

return

end

if result == "miss" then

332

mod.out.print(string.format(mod.string.get("print", "boss", "reportmiss"), author, mob, spell))

333

334

else

335

local value1, value2

336

337

_, _, value1, value2 = string.find(tostring(data), "(-?%d+) (-?%d+)")

338

339

if (tostring(number) == nil) or (tostring(number) == nil) then

return

end

if result == "proc" then

344

mod.out.print(string.format(mod.string.get("print", "boss", "reportproc"), author, mob, spell, value1, value2))

345

346

elseif result == "tick" then

347

mod.out.print(string.format(mod.string.get("print", "boss", "reporttick"), author, mob, spell, value1, value2))

else

return

end

end

return true

end,

-- when someone changes a parameter of a boss spell

358

["spellvalue"] = function(author, message, start)

359

360

-- check author is an officer

361

if me.officercheck(author, message) == nil then

return

end

-- argh!! Memory creation! 64 bytes for this method! ...

local arglist = {}

local x

for x in string.gfind(message, "[^ ]+") do

370

table.insert(arglist, x)

371

end

372

373

table.remove(arglist, 1)

374

375

-- parse

376

local value, errormsg = mod.net.checkspellvaluesyntax(arglist)

-- did it work?

if value then

if arglist[2] == "default" then

381

382

--[[

383

suppose we receive the message "spellvalue timelapse default ticks 6". Then this would print out

384

"Kenco sets the ticks parameter of the Time Lapse ability to 6."

385

]]

386

				mod.out.print(string.format(mod.string.get("print", "boss", "spellsetall"), author, "|cffffff00" .. arglist[3] .. "|r", mod.string.get("boss", "spell", arglist[1]), value, mod.boss.bossattacks[arglist[1]][arglist[2]][arglist[3]]))

387

388

else

389

				mod.out.print(string.format(mod.string.get("print", "boss", "spellsetmob"), author, "|cffffff00" .. arglist[3] .. "|r", mod.string.get("boss", "spell", arglist[2]), mod.string.get("boss", "spell", arglist[1]), value, mod.boss.bossattacks[arglist[1]][arglist[2]][arglist[3]]))

390

end

391

392

mod.boss.bossattacks[arglist[1]][arglist[2]][arglist[3]] = value

return true

else

if mod.out.checktrace("warning", me, "spellvalue") then

398

mod.out.printtrace(string.format("The error message was '%s'.", errormsg))

end

return

end

end,

-- telling people to upgrade to a new version

406

["version"] = function(author, message, start)

407

408

-- check author is an officer

409

if me.officercheck(author, message) == nil then

return

end

-- next argument should be the version number

414

local release, revision

415

_, _, release, revision = string.find(message, "(%d+)%.?(%d*)", start + 1)

416

417

release = tonumber(release)

418

revision = tonumber(revision)

419

420

if release == nil then

return

end

-- previously, only the release was sent as the version code. Therefore if someone sends in this format,

425

-- their version must be old.

426

if revision == nil then

427

428

			mod.out.print(string.format(mod.string.get("print", "network", "remoteoldversion"), author, release .. ".x", mod.release .. "." .. mod.revision))

else

-- newer versions send their release and revision numbers, in a dot delimited string.

433

if (release < mod.release) or (release == mod.release and revision < mod.revision) then

434

-- other guy has an old version

435

				mod.out.print(string.format(mod.string.get("print", "network", "remoteoldversion"), author, release .. "." .. revision, mod.release .. "." .. mod.revision))

436

437

elseif (release == mod.release) and (revision == mod.revision) then

438

-- we have the same version; do nothing

439

440

else

441

-- we have an older version - upgrade!

442

				mod.out.print(string.format(mod.string.get("print", "network", "upgraderequest"), author, release .. "." .. revision, mod.release .. "." .. mod.revision))

end

end

return true

end,