WebSVN – vanilla-wow-addons – Blame – Rev 1 – /p/Perl_Config/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

Perl_Config_Player_Frame_Slider1Low:SetText("Small");

97

Perl_Config_Player_Frame_Slider1High:SetText("Big");

98

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

99

100

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

101

Perl_Config_Player_Frame_CheckButton9:SetChecked(1);

102

else

103

Perl_Config_Player_Frame_CheckButton9:SetChecked(nil);

104

end

105

106

Perl_Config_Player_Frame_Slider2Low:SetText("0");

107

Perl_Config_Player_Frame_Slider2High:SetText("100");

108

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

109

end

110

111

function Perl_Config_Player_XPMode_Update()

112

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

113

Perl_Player_XPBar_Display(1);

114

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

115

Perl_Player_XPBar_Display(2);

116

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

117

Perl_Player_XPBar_Display(3);

118

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

119

Perl_Player_XPBar_Display(4);

120

else

121

Perl_Config_Player_Frame_CheckButton3:SetChecked(1);

122

Perl_Player_XPBar_Display(3);

end

end

function Perl_Config_Player_Compact_Update()

127

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

128

Perl_Player_Set_Compact(1);

129

else

130

Perl_Player_Set_Compact(0);

end

end

function Perl_Config_Player_Healer_Update()

135

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

136

Perl_Player_Set_Healer(1);

137

else

138

Perl_Player_Set_Healer(0);

end

end

function Perl_Config_Player_Raid_Update()

143

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

144

Perl_Player_Set_RaidGroupNumber(1);

145

else

146

Perl_Player_Set_RaidGroupNumber(0);

end

end

function Perl_Config_Player_Lock_Update()

151

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

152

Perl_Player_Set_Lock(1);

153

else

154

Perl_Player_Set_Lock(0);

end

end

function Perl_Config_Player_Portrait_Update()

159

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

160

Perl_Player_Set_Portrait(1);

161

else

162

Perl_Player_Set_Portrait(0);

end

end

function Perl_Config_Player_Compact_Percent_Update()

167

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

168

Perl_Player_Set_Compact_Percent(1);

169

else

170

Perl_Player_Set_Compact_Percent(0);

end

end

function Perl_Config_Player_3D_Portrait_Update()

175

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

176

Perl_Player_Set_3D_Portrait(1);

177

else

178

Perl_Player_Set_3D_Portrait(0);

end

end

function Perl_Config_Player_Portrait_Combat_Text_Update()

183

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

184

Perl_Player_Set_Portrait_Combat_Text(1);

185

else

186

Perl_Player_Set_Portrait_Combat_Text(0);

end

end

function Perl_Config_Player_DruidBar_Update()

191

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

192

Perl_Player_Set_DruidBar(1);

193

else

194

Perl_Player_Set_DruidBar(0);

end

end

function Perl_Config_Player_Set_Scale(value)

199

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

200

if (value == nil) then

201

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

202

Perl_Config_Player_Frame_Slider1Text:SetText(value);

203

Perl_Config_Player_Frame_Slider1:SetValue(value);

204

end

205

Perl_Player_Set_Scale(value);

206

207

vartable = Perl_Player_GetVars();

208

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

209

Perl_Config_Player_Frame_CheckButton9:SetChecked(1);

210

else

211

Perl_Config_Player_Frame_CheckButton9:SetChecked(nil);

end

end

end

function Perl_Config_Player_Set_Transparency(value)

217

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

218

Perl_Player_Set_Transparency(value);

219

end

220

end

vanilla-wow-addons – Blame information for rev 1