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

1

office

1

--[[

2

Define all Global Variables here

3

]]

4

5

-- Global Variables that are not supposed to be on-the-fly user configurable.

6

XPerlLocked = 1

7

8

function XPerl_ShowMessage(cMsg)

9

local str = "|c00FF7F00"..event.."|r"

10

str = str..", "..tostring(arg1)

11

if (arg1) then

12

		if (strfind(arg1, "^raid") or strfind(arg1, "^party") or strfind(arg1, "^player") or strfind(arg1, "^pet") or strfind(arg1, "^target")) then

13

str = str.."("..UnitName(arg1)..")"

end

end

str = str..", "..tostring(arg2)

18

str = str..", "..tostring(arg3)

19

str = str..", "..tostring(arg4)

20

str = str..", "..tostring(arg5)

21

str = str..", "..tostring(arg6)

22

str = str..", "..tostring(arg7)

23

str = str..", "..tostring(arg8)

24

str = str..", "..tostring(arg9)

25

26

if (cMsg) then

27

str = cMsg.." - "..str

28

end

29

30

ChatFrame7:AddMessage("|c00007F7F"..this:GetName().."|r - "..str)

31

end

32

33

function XPerl_Notice(str)

34

if (DEFAULT_CHAT_FRAME) then

35

DEFAULT_CHAT_FRAME:AddMessage(XPerl_ProductName.." - |c00B03030"..str)

end

end

function XPerl_SetMyGlobal()

40

if (XPerlConfigSavePerCharacter) then

41

if (not XPerlConfig_Global) then

42

XPerlConfig_Global = {}

43

end

44

45

if (not XPerlConfig_Global[GetRealmName()]) then

46

XPerlConfig_Global[GetRealmName()] = {}

47

end

48

49

XPerlConfig_Global[GetRealmName()][UnitName("player")] = XPerlConfig

50

else

51

if (XPerlConfig_Global[GetRealmName()][UnitName("player")]) then

52

XPerlConfig = XPerlConfig_Global[GetRealmName()][UnitName("player")]

end

end

end

local function DefaultVar(name, value)

58

if (XPerlConfig[name] == nil or (type(value) ~= type(XPerlConfig[name]))) then

59

XPerlConfig[name] = value

end

end

function XPerl_DefaultBarColours(reset)

64

if (reset) then

65

XPerlConfig.ClassicHealthBar = nil

66

XPerlConfig.ColourHealthEmpty = nil

67

XPerlConfig.ColourHealthFull = nil

68

XPerlConfig.ColourMana = nil

69

XPerlConfig.ColourEnergy = nil

70

XPerlConfig.ColourRage = nil

71

XPerlConfig.ColourFocus = nil

72

end

73

74

DefaultVar("ClassicHealthBar", 1)

75

DefaultVar("ColourHealthEmpty", {r = 1, g = 0, b = 0})

76

DefaultVar("ColourHealthFull", {r = 0, g = 1, b = 0})

77

DefaultVar("ColourMana", {r = 0, g = 0, b = 1})

78

DefaultVar("ColourEnergy", {r = 1, g = 1, b = 0})

79

DefaultVar("ColourRage", {r = 1, g = 0, b = 0})

80

DefaultVar("ColourFocus", {r = 1, g = 0.5, b = 0.25})

81

end

82

83

function XPerl_DefaultReactionColours(reset)

84

if (reset) then

85

XPerlConfig.ColourReactionEnemy = nil

86

XPerlConfig.ColourReactionNeutral = nil

87

XPerlConfig.ColourReactionUnfriendly = nil

88

XPerlConfig.ColourReactionFriend = nil

89

XPerlConfig.ColourReactionNone = nil

90

XPerlConfig.ColourTapped = nil

91

end

92

93

DefaultVar("ColourReactionEnemy", {r = 1, g = 0, b = 0})

94

DefaultVar("ColourReactionNeutral", {r = 1, g = 1, b = 0})

95

DefaultVar("ColourReactionUnfriendly", {r = 1, g = 0.5, b = 0})

96

DefaultVar("ColourReactionFriend", {r = 0, g = 1, b = 0})

97

DefaultVar("ColourReactionNone", {r = 0.5, g = 0.5, b = 1})

98

DefaultVar("ColourTapped", {r = 0.5, g = 0.5, b = 0.5})

99

end

100

101

function XPerl_Defaults()

102

103

DefaultVar("BarTextures", 1)

104

DefaultVar("BackgroundTextures", 0) -- 1.8.6

105

DefaultVar("Transparency", 0.8)

106

DefaultVar("TextTransparency", 1)

107

DefaultVar("BackColour", {r = 0, g = 0, b = 0, a = 1})

108

DefaultVar("BorderColour", {r = 0.5, g = 0.5, b = 0.5, a = 1})

109

if (not XPerlConfig.BackColour.a) then

110

XPerlConfig.BackColour.a = 1

111

end

112

if (not XPerlConfig.BorderColour.a) then

113

XPerlConfig.BorderColour.a = 1

114

end

115

116

DefaultVar("ArcaneBar", 1)

117

DefaultVar("OldCastBar", 1)

118

DefaultVar("CastTime", 1)

119

DefaultVar("ClassColouredNames", 1)

120

DefaultVar("HighlightSelection", 1)

121

DefaultVar("MinimapButtonPosition", 186)

122

DefaultVar("MinimapButtonShown", 1)

123

DefaultVar("PerlCombatFlash", 1)

124

DefaultVar("PerlFadeFrames", 1)

125

DefaultVar("CombatHitIndicator", 1)

126

DefaultVar("HighlightDebuffs", 1)

127

DefaultVar("HighlightDebuffsBorder", 1)

128

DefaultVar("BuffTooltipHelper", 1)

129

DefaultVar("FadingTooltip", 1) -- 1.8.3

130

DefaultVar("HealerMode", 0)

131

DefaultVar("HealerModeType", 1) -- 1.8.3

132

DefaultVar("FatHealthBars", 1)

133

DefaultVar("MaximumScale", 1.5)

134

DefaultVar("ClearBlizzardFrames", 0) -- 1.8.3

135

DefaultVar("OptionsColour", {r = 0.7, g = 0.2, b = 0.2}) -- 1.8.3

136

DefaultVar("InverseBars", 0) -- 1.8.6

137

DefaultVar("XPerlTooltipInfo", 0) -- 1.8.6

138

139

XPerl_DefaultBarColours()

140

XPerl_DefaultReactionColours()

141

142

-- Player options

143

DefaultVar("ShowPlayerPortrait", 1)

144

DefaultVar("ShowPlayerPortrait3D", 1)

145

DefaultVar("ShowPlayerLevel", 1)

146

DefaultVar("ShowPlayerClassIcon", 1)

147

DefaultVar("ShowPlayerXPBar", 0)

148

DefaultVar("ShowPlayerPVPRank", 1)

149

DefaultVar("ShowPlayerPVP", 1) -- 1.8.3

150

DefaultVar("ShowPlayerValues", 1)

151

DefaultVar("ShowPlayerPercent", 1)

152

DefaultVar("Scale_PlayerFrame", 0.8)

153

DefaultVar("ShowPartyNumber", 1)

154

DefaultVar("EnergyTicker", 1)

155

DefaultVar("FullScreenStatus", 0) -- 1.8.4

156

157

-- Player Pet

158

DefaultVar("ShowPlayerPetPortrait", 1)

159

DefaultVar("ShowPlayerPetPortrait3D", 1) -- 1.8.3

160

DefaultVar("PetHappiness", 1)

161

DefaultVar("PetHappinessSad", 1) -- Only show happiness when not happy

162

DefaultVar("PetFlashWhenSad", 1)

163

DefaultVar("ShowPetLevel", 1)

164

DefaultVar("Scale_PetFrame", 0.8)

165

DefaultVar("ShowPetXP", 1)

166

DefaultVar("ShowPlayerPetName", 1)

167

DefaultVar("PlayerPetBuffSize", 20)

168

DefaultVar("ShowPlayerPetValues", 1)

169

170

-- Target

171

DefaultVar("ShowTargetPortrait", 1)

172

DefaultVar("ShowTargetPortrait3D", 1) -- 1.8.3

173

DefaultVar("ShowTargetClassIcon", 1)

174

DefaultVar("ShowTargetMobType", 1)

175

DefaultVar("ShowTargetLevel", 1)

176

DefaultVar("ShowTargetElite", 1)

177

DefaultVar("ShowTargetMana", 1)

178

DefaultVar("ShowTargetPercent", 1)

179

DefaultVar("ShowTargetValues", 1)

180

DefaultVar("UseCPMeter", 1)

181

DefaultVar("BlizzardCPMeter", 0)

182

DefaultVar("BlizzardCPPosition", "top")

183

DefaultVar("ShowTargetPVPRank", 1)

184

DefaultVar("ShowTargetPVP", 1) -- 1.8.3

185

DefaultVar("Show30YardSymbol", 1)

186

DefaultVar("Scale_TargetFrame", 0.8)

187

DefaultVar("AlternateRaidIcon", 1)

188

DefaultVar("TargetBuffSize", 22)

189

DefaultVar("TargetBuffRows", 3)

190

DefaultVar("TargetBuffsAbove", 0)

191

DefaultVar("TargetReactionHighlight", 0) -- 1.8.6

192

193

-- Target's Target

194

DefaultVar("ShowTargetTarget", 1)

195

DefaultVar("TargetTargetHistory", 0)

196

DefaultVar("ShowTargetTargetTarget", 1)

197

DefaultVar("TargetTargetBuffs", 1)

198

DefaultVar("TargetCastableBuffs", 0)

199

DefaultVar("TargetCurableDebuffs", 0)

200

DefaultVar("TargetTargetTargetBuffs", 1)

201

DefaultVar("Scale_TargetTargetFrame", 0.8)

202

DefaultVar("ShowTargetTargetPercent", 1)

203

DefaultVar("ShowTargetTargetValues", 1)

204

DefaultVar("ShowTargetTargetLevel", 1)

205

DefaultVar("ShowTargetTargetMana", 1)

206

DefaultVar("TargetTargetBuffsAbove", 0)

207

208

-- Cast Party

209

DefaultVar("CastParty", 1)

210

DefaultVar("CastPartyRaidOnly", 0) -- Cast Party works on raid frame only?

211

212

-- Party

213

DefaultVar("ShowPartyPortrait", 1)

214

DefaultVar("ShowPartyPortrait3D", 1) -- 1.8.3

215

DefaultVar("ShowPartyTarget", 1)

216

DefaultVar("ShowPartyLevel", 1)

217

DefaultVar("ShowPartyNames", 1)

218

DefaultVar("ShowPartyValues", 1)

219

DefaultVar("ShowPartyPercent", 1)

220

DefaultVar("ShowPartyClassIcon", 1)

221

DefaultVar("ShowPartyPVP", 1) -- 1.8.3

222

DefaultVar("ShowPartyRaid", 1)

223

DefaultVar("PartyBuffs", 1)

224

DefaultVar("PartyDebuffs", 1)

225

DefaultVar("PartyCastableBuffs", 0)

226

DefaultVar("PartyCurableDebuffs", 0)

227

DefaultVar("Scale_PartyFrame", 0.8)

228

DefaultVar("PartyDebuffsBelow", 0)

229

DefaultVar("ShowPartyPets", 1)

230

DefaultVar("Scale_PartyPets", XPerlConfig.Scale_PartyFrame)

231

DefaultVar("ShowPartyPetName", 1)

232

DefaultVar("ShowPartyPetBuffs", 1) -- 1.8.3

233

DefaultVar("ShowParty30YardSymbol", 1)

234

DefaultVar("PartyBuffSize", 20)

235

236

-- Raid

237

DefaultVar("SortRaidByClass", 0)

238

DefaultVar("ShowRaid", 1)

239

DefaultVar("ShowGroup1", 1)

240

DefaultVar("ShowGroup2", 1)

241

DefaultVar("ShowGroup3", 1)

242

DefaultVar("ShowGroup4", 1)

243

DefaultVar("ShowGroup5", 1)

244

DefaultVar("ShowGroup6", 1)

245

DefaultVar("ShowGroup7", 1)

246

DefaultVar("ShowGroup8", 1)

247

DefaultVar("ShowGroup9", 0)

248

DefaultVar("ShowGroup1", 1)

249

DefaultVar("ShowRaidTitles", 1)

250

DefaultVar("ShowRaidPercents", 1)

251

DefaultVar("Scale_Raid", 0.8)

252

DefaultVar("RaidVerticalSpacing", 42)

253

DefaultVar("RaidPositions", {})

254

DefaultVar("RaidBuffs", 1)

255

DefaultVar("RaidDebuffs", 0)

256

DefaultVar("BuffsCastableCurable", 0)

257

DefaultVar("RaidBuffsRight", 1)

258

DefaultVar("RaidBuffsInside", 1)

259

DefaultVar("RaidMotion", 1)

260

DefaultVar("RaidMana", 1) -- 1.8.3

261

DefaultVar("RaidUpward", 0) -- 1.8.3

262

end

263

264

-- XPerl_ResetDefaults

265

function XPerl_ResetDefaults()

266

267

local rp = XPerlConfig.RaidPositions

XPerlConfig = {}

XPerl_Defaults()

if (XPerlConfigSavePerCharacter) then

273

XPerlConfig_Global[GetRealmName()][UnitName("player")] = XPerlConfig

274

end

275

276

XPerlConfig.RaidPositions = rp

277

278

XPerl_OptionActions()

279

280

if (XPerl_Options and XPerl_Options:IsShown()) then

281

XPerl_Options:Hide()

282

XPerl_Options:Show()

end

end

-- XPerl_Globals_OnEvent

287

function XPerl_Globals_OnEvent(event)

288

if (event == "VARIABLES_LOADED") then

289

-- Between sessions variable saving.

290

this:UnregisterEvent(event)

291

292

if (XPerlConfigSavePerCharacter) then

293

local realm = GetRealmName()

294

local name = UnitName("player")

295

296

if (not XPerlConfig_Global) then

297

XPerlConfig_Global = {}

298

end

299

300

if (not XPerlConfig_Global[realm]) then

301

XPerlConfig_Global[realm] = {}

302

end

303

304

if (not XPerlConfig_Global[realm][name]) then

305

XPerlConfig_Global[realm][name] = {}

306

307

if (XPerlConfig and XPerlConfig.BarTextures) then

308

XPerlConfig_Global[realm][name] = XPerlConfig

309

end

310

else

311

XPerlConfig = XPerlConfig_Global[realm][name]

312

end

313

314

if (not XPerlConfig) then

315

XPerlConfig = XPerlConfig_Global[realm][name]

316

end

317

else

318

if (not XPerlConfig) then

XPerlConfig = {}

end

end

-- Tell DHUD to hide Blizzard default Player and Target frames

324

if (DHUD_Config) then

325

local bChanged = false

326

if (XPerl_Player) then

327

DHUD_Config["bplayer"] = 0

328

bChanged = true

329

end

330

if (XPerl_Target) then

331

DHUD_Config["btarget"] = 0

bChanged = true

end

--if (DHUD_Config["bplayer"] == 1 or DHUD_Config["btarget"] == 1) then

336

-- XPerl_BlizzFramesDisable()

--end

end

XPerl_BlizzFramesDisable()

341

342

-- Variable checking only occurs for new install and version number change

343

if ((not XPerlConfig.ConfigVersion) or (XPerlConfig.ConfigVersion ~= XPerl_VersionNumber)) then

344

XPerlConfig.ConfigVersion = XPerl_VersionNumber; -- Set ConfigVersion to current

XPerl_Defaults()

end

XPerl_Init()

elseif (event == "PLAYER_ENTERING_WORLD") then

352

if (Perl_Globals_OnEvent or Perl_InitFadeFrame) then

353

DEFAULT_CHAT_FRAME:AddMessage("|c00FF0000".."ERROR! X-Perl not installed correctly!")

354

			DEFAULT_CHAT_FRAME:AddMessage("|c00FFFF00".."ERROR!   Previous version of X-Perl must be removed entirely. Please delete all Perl* folders in AddOns")

355

			DEFAULT_CHAT_FRAME:AddMessage("|c00FFFF00".."ERROR!   X-Perl folders, frames and globals were renamed for version 1.8.6 due to numerous conflicts with other versions of Perl and addons expecting Nymbia's Perl, so X-Perl now resides in newly named folders")

end

end

end

-- XPerl_InitFadeFrame

361

function XPerl_InitFadeFrame(argFrame)

362