WebSVN – vanilla-wow-addons – Blame – Rev 1 – /p/Perl_Config_Options/Perl_Config

1

office

1

function Perl_Config_Player_Display()

2

Perl_Config_Hide_All();

3

if (Perl_Player_Frame) then

4

Perl_Config_Player_Frame:Show();

5

Perl_Config_Player_Set_Values();

6

else

7

Perl_Config_Player_Frame:Hide();

8

Perl_Config_NotInstalled_Frame:Show();

end

end

function Perl_Config_Player_Set_Values()

13

local vartable = Perl_Player_GetVars();

14

15

if (vartable["xpbarstate"] == 1) then

16

Perl_Config_Player_Frame_CheckButton1:SetChecked(1);

17

Perl_Config_Player_Frame_CheckButton2:SetChecked(nil);

18

Perl_Config_Player_Frame_CheckButton15:SetChecked(nil);

19

Perl_Config_Player_Frame_CheckButton3:SetChecked(nil);

20

elseif (vartable["xpbarstate"] == 2) then

21

Perl_Config_Player_Frame_CheckButton1:SetChecked(nil);

22

Perl_Config_Player_Frame_CheckButton2:SetChecked(1);

23

Perl_Config_Player_Frame_CheckButton15:SetChecked(nil);

24

Perl_Config_Player_Frame_CheckButton3:SetChecked(nil);

25

elseif (vartable["xpbarstate"] == 3) then

26

Perl_Config_Player_Frame_CheckButton1:SetChecked(nil);

27

Perl_Config_Player_Frame_CheckButton2:SetChecked(nil);

28

Perl_Config_Player_Frame_CheckButton15:SetChecked(nil);

29

Perl_Config_Player_Frame_CheckButton3:SetChecked(1);

30

elseif (vartable["xpbarstate"] == 4) then

31

Perl_Config_Player_Frame_CheckButton1:SetChecked(nil);

32

Perl_Config_Player_Frame_CheckButton2:SetChecked(nil);

33

Perl_Config_Player_Frame_CheckButton15:SetChecked(1);

34

Perl_Config_Player_Frame_CheckButton3:SetChecked(nil);

35

else

36

Perl_Config_Player_Frame_CheckButton1:SetChecked(nil);

37

Perl_Config_Player_Frame_CheckButton2:SetChecked(nil);

38

Perl_Config_Player_Frame_CheckButton15:SetChecked(nil);

39

Perl_Config_Player_Frame_CheckButton3:SetChecked(1);

40

end

41

42

if (vartable["compactmode"] == 1) then

43

Perl_Config_Player_Frame_CheckButton4:SetChecked(1);

44

else

45

Perl_Config_Player_Frame_CheckButton4:SetChecked(nil);

46

end

47

48

if (vartable["healermode"] == 1) then

49

Perl_Config_Player_Frame_CheckButton5:SetChecked(1);

50

else

51

Perl_Config_Player_Frame_CheckButton5:SetChecked(nil);

52

end

53

54

if (vartable["showraidgroup"] == 1) then

55

Perl_Config_Player_Frame_CheckButton6:SetChecked(1);

56

else

57

Perl_Config_Player_Frame_CheckButton6:SetChecked(nil);

58

end

59

60

if (vartable["locked"] == 1) then

61

Perl_Config_Player_Frame_CheckButton8:SetChecked(1);

62

else

63

Perl_Config_Player_Frame_CheckButton8:SetChecked(nil);

64

end

65

66

if (vartable["showportrait"] == 1) then

67

Perl_Config_Player_Frame_CheckButton10:SetChecked(1);

68

else

69

Perl_Config_Player_Frame_CheckButton10:SetChecked(nil);

70

end

71

72

if (vartable["compactpercent"] == 1) then

73

Perl_Config_Player_Frame_CheckButton11:SetChecked(1);

74

else

75

Perl_Config_Player_Frame_CheckButton11:SetChecked(nil);

76

end

77

78

if (vartable["threedportrait"] == 1) then

79

Perl_Config_Player_Frame_CheckButton12:SetChecked(1);

80

else

81

Perl_Config_Player_Frame_CheckButton12:SetChecked(nil);

82

end

83

84

if (vartable["portraitcombattext"] == 1) then

85

Perl_Config_Player_Frame_CheckButton13:SetChecked(1);

86

else

87

Perl_Config_Player_Frame_CheckButton13:SetChecked(nil);

88

end

89

90

if (vartable["showdruidbar"] == 1) then

91

Perl_Config_Player_Frame_CheckButton14:SetChecked(1);

92

else

93

Perl_Config_Player_Frame_CheckButton14:SetChecked(nil);

94

end

95

96

if (vartable["fivesecsupport"] == 1) then

97

Perl_Config_Player_Frame_CheckButton16:SetChecked(1);

98

else

99

Perl_Config_Player_Frame_CheckButton16:SetChecked(nil);

100

end

101

102

if (vartable["shortbars"] == 1) then

103

Perl_Config_Player_Frame_CheckButton17:SetChecked(1);

104

else

105

Perl_Config_Player_Frame_CheckButton17:SetChecked(nil);

106

end

107

108

if (vartable["classcolorednames"] == 1) then

109

Perl_Config_Player_Frame_CheckButton18:SetChecked(1);

110

else

111

Perl_Config_Player_Frame_CheckButton18:SetChecked(nil);

112

end

113

114

if (vartable["hideclasslevelframe"] == 1) then

115

Perl_Config_Player_Frame_CheckButton19:SetChecked(1);

116

else

117

Perl_Config_Player_Frame_CheckButton19:SetChecked(nil);

118

end

119

120

if (vartable["showpvprank"] == 1) then

121

Perl_Config_Player_Frame_CheckButton20:SetChecked(1);

122

else

123

Perl_Config_Player_Frame_CheckButton20:SetChecked(nil);

124

end

125

126

if (vartable["showmanadeficit"] == 1) then

127

Perl_Config_Player_Frame_CheckButton21:SetChecked(1);

128

else

129

Perl_Config_Player_Frame_CheckButton21:SetChecked(nil);

130

end

131

132

if (vartable["hiddeninraid"] == 1) then

133

Perl_Config_Player_Frame_CheckButton22:SetChecked(1);

134

else

135

Perl_Config_Player_Frame_CheckButton22:SetChecked(nil);

136

end

137

138

if (vartable["showpvpicon"] == 1) then

139

Perl_Config_Player_Frame_CheckButton23:SetChecked(1);

140

else

141

Perl_Config_Player_Frame_CheckButton23:SetChecked(nil);

142

end

143

144

if (vartable["showbarvalues"] == 1) then

145

Perl_Config_Player_Frame_CheckButton24:SetChecked(1);

146

else

147

Perl_Config_Player_Frame_CheckButton24:SetChecked(nil);

148

end

149

150

Perl_Config_Player_Frame_Slider1Low:SetText(PERL_LOCALIZED_CONFIG_SMALL);

151

Perl_Config_Player_Frame_Slider1High:SetText(PERL_LOCALIZED_CONFIG_BIG);

152

Perl_Config_Player_Frame_Slider1:SetValue(floor(vartable["scale"]*100+0.5));

153

154

if (floor(vartable["scale"]*100+0.5) == floor(UIParent:GetScale()*100+0.5)) then

155

Perl_Config_Player_Frame_CheckButton9:SetChecked(1);

156

else

157

Perl_Config_Player_Frame_CheckButton9:SetChecked(nil);

158

end

159

160

Perl_Config_Player_Frame_Slider2Low:SetText("0");

161

Perl_Config_Player_Frame_Slider2High:SetText("100");

162

Perl_Config_Player_Frame_Slider2:SetValue(vartable["transparency"]*100);

163

end

164

165

function Perl_Config_Player_XPMode_Update()

166

if (Perl_Config_Player_Frame_CheckButton1:GetChecked() == 1) then

167

Perl_Player_XPBar_Display(1);

168

elseif (Perl_Config_Player_Frame_CheckButton2:GetChecked() == 1) then

169

Perl_Player_XPBar_Display(2);

170

elseif (Perl_Config_Player_Frame_CheckButton3:GetChecked() == 1) then

171

Perl_Player_XPBar_Display(3);

172

elseif (Perl_Config_Player_Frame_CheckButton15:GetChecked() == 1) then

173

Perl_Player_XPBar_Display(4);

174

else

175

Perl_Config_Player_Frame_CheckButton3:SetChecked(1);

176

Perl_Player_XPBar_Display(3);

end

end

function Perl_Config_Player_Compact_Update()

181

if (Perl_Config_Player_Frame_CheckButton4:GetChecked() == 1) then

182

Perl_Player_Set_Compact(1);

183

else

184

Perl_Player_Set_Compact(0);

end

end

function Perl_Config_Player_Healer_Update()

189

if (Perl_Config_Player_Frame_CheckButton5:GetChecked() == 1) then

190

Perl_Player_Set_Healer(1);

191

else

192

Perl_Player_Set_Healer(0);

end

end

function Perl_Config_Player_Raid_Update()

197

if (Perl_Config_Player_Frame_CheckButton6:GetChecked() == 1) then

198

Perl_Player_Set_RaidGroupNumber(1);

199

else

200

Perl_Player_Set_RaidGroupNumber(0);

end

end

function Perl_Config_Player_Lock_Update()

205

if (Perl_Config_Player_Frame_CheckButton8:GetChecked() == 1) then

206

Perl_Player_Set_Lock(1);

207

else

208

Perl_Player_Set_Lock(0);

end

end

function Perl_Config_Player_Portrait_Update()

213

if (Perl_Config_Player_Frame_CheckButton10:GetChecked() == 1) then

214

Perl_Player_Set_Portrait(1);

215

else

216

Perl_Player_Set_Portrait(0);

end

end

function Perl_Config_Player_Compact_Percent_Update()

221

if (Perl_Config_Player_Frame_CheckButton11:GetChecked() == 1) then

222

Perl_Player_Set_Compact_Percent(1);

223

else

224

Perl_Player_Set_Compact_Percent(0);

end

end

function Perl_Config_Player_Short_Bars_Update()

229

if (Perl_Config_Player_Frame_CheckButton17:GetChecked() == 1) then

230

Perl_Player_Set_Short_Bars(1);

231

else

232

Perl_Player_Set_Short_Bars(0);

end

end

function Perl_Config_Player_3D_Portrait_Update()

237

if (Perl_Config_Player_Frame_CheckButton12:GetChecked() == 1) then

238

Perl_Player_Set_3D_Portrait(1);

239

else

240

Perl_Player_Set_3D_Portrait(0);

end

end

function Perl_Config_Player_Portrait_Combat_Text_Update()

245

if (Perl_Config_Player_Frame_CheckButton13:GetChecked() == 1) then

246

Perl_Player_Set_Portrait_Combat_Text(1);

247

else

248

Perl_Player_Set_Portrait_Combat_Text(0);

end

end

function Perl_Config_Player_DruidBar_Update()

253

if (Perl_Config_Player_Frame_CheckButton14:GetChecked() == 1) then

254

Perl_Player_Set_DruidBar(1);

255

else

256

Perl_Player_Set_DruidBar(0);

end

end

function Perl_Config_Player_FiveSec_Update()

261

if (Perl_Config_Player_Frame_CheckButton16:GetChecked() == 1) then

262

Perl_Player_Set_FiveSec(1);

263

else

264

Perl_Player_Set_FiveSec(0);

end

end

function Perl_Config_Player_Class_Colored_Names_Update()

269

if (Perl_Config_Player_Frame_CheckButton18:GetChecked() == 1) then

270

Perl_Player_Set_Class_Colored_Names(1);

271

else

272

Perl_Player_Set_Class_Colored_Names(0);

end

end

function Perl_Config_Player_Hide_Class_Level_Frame_Update()

277

if (Perl_Config_Player_Frame_CheckButton19:GetChecked() == 1) then

278

Perl_Player_Set_Hide_Class_Level_Frame(1);

279

else

280

Perl_Player_Set_Hide_Class_Level_Frame(0);

end

end

function Perl_Config_Player_PvP_Rank_Icon_Update()

285

if (Perl_Config_Player_Frame_CheckButton20:GetChecked() == 1) then

286

Perl_Player_Set_PvP_Rank_Icon(1);

287

else

288

Perl_Player_Set_PvP_Rank_Icon(0);

end

end

function Perl_Config_Player_Mana_Deficit_Update()

293

if (Perl_Config_Player_Frame_CheckButton21:GetChecked() == 1) then

294

Perl_Player_Set_Mana_Deficit(1);

295

else

296

Perl_Player_Set_Mana_Deficit(0);

end

end

function Perl_Config_Player_Hidden_In_Raids_Update()

301

if (Perl_Config_Player_Frame_CheckButton22:GetChecked() == 1) then

302

Perl_Player_Set_Hidden_In_Raids(1);

303

else

304

Perl_Player_Set_Hidden_In_Raids(0);

end

end

function Perl_Config_Player_PvP_Icon_Update()

309

if (Perl_Config_Player_Frame_CheckButton23:GetChecked() == 1) then

310

Perl_Player_Set_PvP_Icon(1);

311

else

312

Perl_Player_Set_PvP_Icon(0);

end

end

function Perl_Config_Player_Show_Bar_Values_Update()

317

if (Perl_Config_Player_Frame_CheckButton24:GetChecked() == 1) then

318

Perl_Player_Set_Show_Bar_Values(1);

319

else

320

Perl_Player_Set_Show_Bar_Values(0);

end

end

function Perl_Config_Player_Set_Scale(value)

325

if (Perl_Player_Frame) then -- this check is to prevent errors if you aren't using Player

326

if (value == nil) then

327

value = floor(UIParent:GetScale()*100+0.5);

328

Perl_Config_Player_Frame_Slider1Text:SetText(value);

329

Perl_Config_Player_Frame_Slider1:SetValue(value);

330

end

331

Perl_Player_Set_Scale(value);

332

333

vartable = Perl_Player_GetVars();

334

if (floor(vartable["scale"]*100+0.5) == floor(UIParent:GetScale()*100+0.5)) then

335

Perl_Config_Player_Frame_CheckButton9:SetChecked(1);

336

else

337

Perl_Config_Player_Frame_CheckButton9:SetChecked(nil);

end

end

end

function Perl_Config_Player_Set_Transparency(value)

343

if (Perl_Player_Frame) then -- this check is to prevent errors if you aren't using Player

344

Perl_Player_Set_Transparency(value);

345

end

346

end

vanilla-wow-addons – Blame information for rev 1