vanilla-wow-addons – Blame information for rev 1
?pathlinks?
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1 | office | 1 | function Perl_Config_Target_Target_Display() |
| 2 | Perl_Config_Hide_All(); |
||
| 3 | if (Perl_Target_Target_Script_Frame) then |
||
| 4 | Perl_Config_Target_Target_Frame:Show(); |
||
| 5 | Perl_Config_Target_Target_Set_Values(); |
||
| 6 | else |
||
| 7 | Perl_Config_Target_Target_Frame:Hide(); |
||
| 8 | Perl_Config_NotInstalled_Frame:Show(); |
||
| 9 | end |
||
| 10 | end |
||
| 11 | |||
| 12 | function Perl_Config_Target_Target_Set_Values() |
||
| 13 | local vartable = Perl_Target_Target_GetVars(); |
||
| 14 | |||
| 15 | if (vartable["totsupport"] == 1) then |
||
| 16 | Perl_Config_Target_Target_Frame_CheckButton1:SetChecked(1); |
||
| 17 | else |
||
| 18 | Perl_Config_Target_Target_Frame_CheckButton1:SetChecked(nil); |
||
| 19 | end |
||
| 20 | |||
| 21 | if (vartable["tototsupport"] == 1) then |
||
| 22 | Perl_Config_Target_Target_Frame_CheckButton2:SetChecked(1); |
||
| 23 | else |
||
| 24 | Perl_Config_Target_Target_Frame_CheckButton2:SetChecked(nil); |
||
| 25 | end |
||
| 26 | |||
| 27 | if (vartable["alertmode"] == 1) then |
||
| 28 | Perl_Config_Target_Target_Frame_CheckButton8:SetChecked(1); |
||
| 29 | Perl_Config_Target_Target_Frame_CheckButton9:SetChecked(nil); |
||
| 30 | Perl_Config_Target_Target_Frame_CheckButton10:SetChecked(nil); |
||
| 31 | elseif (vartable["alertmode"] == 2) then |
||
| 32 | Perl_Config_Target_Target_Frame_CheckButton8:SetChecked(nil); |
||
| 33 | Perl_Config_Target_Target_Frame_CheckButton9:SetChecked(1); |
||
| 34 | Perl_Config_Target_Target_Frame_CheckButton10:SetChecked(nil); |
||
| 35 | elseif (vartable["alertmode"] == 3) then |
||
| 36 | Perl_Config_Target_Target_Frame_CheckButton8:SetChecked(nil); |
||
| 37 | Perl_Config_Target_Target_Frame_CheckButton9:SetChecked(nil); |
||
| 38 | Perl_Config_Target_Target_Frame_CheckButton10:SetChecked(1); |
||
| 39 | else |
||
| 40 | Perl_Config_Target_Target_Frame_CheckButton8:SetChecked(nil); |
||
| 41 | Perl_Config_Target_Target_Frame_CheckButton9:SetChecked(nil); |
||
| 42 | Perl_Config_Target_Target_Frame_CheckButton10:SetChecked(nil); |
||
| 43 | end |
||
| 44 | |||
| 45 | if (vartable["alertsound"] == 1) then |
||
| 46 | Perl_Config_Target_Target_Frame_CheckButton7:SetChecked(1); |
||
| 47 | else |
||
| 48 | Perl_Config_Target_Target_Frame_CheckButton7:SetChecked(nil); |
||
| 49 | end |
||
| 50 | |||
| 51 | if (vartable["alertsize"] == 0) then |
||
| 52 | Perl_Config_Target_Target_Frame_CheckButton11:SetChecked(1); |
||
| 53 | Perl_Config_Target_Target_Frame_CheckButton12:SetChecked(nil); |
||
| 54 | Perl_Config_Target_Target_Frame_CheckButton13:SetChecked(nil); |
||
| 55 | elseif (vartable["alertsize"] == 1) then |
||
| 56 | Perl_Config_Target_Target_Frame_CheckButton11:SetChecked(nil); |
||
| 57 | Perl_Config_Target_Target_Frame_CheckButton12:SetChecked(1); |
||
| 58 | Perl_Config_Target_Target_Frame_CheckButton13:SetChecked(nil); |
||
| 59 | elseif (vartable["alertsize"] == 2) then |
||
| 60 | Perl_Config_Target_Target_Frame_CheckButton11:SetChecked(nil); |
||
| 61 | Perl_Config_Target_Target_Frame_CheckButton12:SetChecked(nil); |
||
| 62 | Perl_Config_Target_Target_Frame_CheckButton13:SetChecked(1); |
||
| 63 | else |
||
| 64 | Perl_Config_Target_Target_Frame_CheckButton11:SetChecked(nil); |
||
| 65 | Perl_Config_Target_Target_Frame_CheckButton12:SetChecked(nil); |
||
| 66 | Perl_Config_Target_Target_Frame_CheckButton13:SetChecked(1); |
||
| 67 | end |
||
| 68 | |||
| 69 | if (vartable["mobhealthsupport"] == 1) then |
||
| 70 | Perl_Config_Target_Target_Frame_CheckButton3:SetChecked(1); |
||
| 71 | else |
||
| 72 | Perl_Config_Target_Target_Frame_CheckButton3:SetChecked(nil); |
||
| 73 | end |
||
| 74 | |||
| 75 | if (vartable["locked"] == 1) then |
||
| 76 | Perl_Config_Target_Target_Frame_CheckButton5:SetChecked(1); |
||
| 77 | else |
||
| 78 | Perl_Config_Target_Target_Frame_CheckButton5:SetChecked(nil); |
||
| 79 | end |
||
| 80 | |||
| 81 | if (vartable["showtotbuffs"] == 1) then |
||
| 82 | Perl_Config_Target_Target_Frame_CheckButton14:SetChecked(1); |
||
| 83 | else |
||
| 84 | Perl_Config_Target_Target_Frame_CheckButton14:SetChecked(nil); |
||
| 85 | end |
||
| 86 | |||
| 87 | if (vartable["showtototbuffs"] == 1) then |
||
| 88 | Perl_Config_Target_Target_Frame_CheckButton15:SetChecked(1); |
||
| 89 | else |
||
| 90 | Perl_Config_Target_Target_Frame_CheckButton15:SetChecked(nil); |
||
| 91 | end |
||
| 92 | |||
| 93 | if (vartable["hidepowerbars"] == 1) then |
||
| 94 | Perl_Config_Target_Target_Frame_CheckButton16:SetChecked(1); |
||
| 95 | else |
||
| 96 | Perl_Config_Target_Target_Frame_CheckButton16:SetChecked(nil); |
||
| 97 | end |
||
| 98 | |||
| 99 | if (vartable["showtotdebuffs"] == 1) then |
||
| 100 | Perl_Config_Target_Target_Frame_CheckButton17:SetChecked(1); |
||
| 101 | else |
||
| 102 | Perl_Config_Target_Target_Frame_CheckButton17:SetChecked(nil); |
||
| 103 | end |
||
| 104 | |||
| 105 | if (vartable["showtototdebuffs"] == 1) then |
||
| 106 | Perl_Config_Target_Target_Frame_CheckButton18:SetChecked(1); |
||
| 107 | else |
||
| 108 | Perl_Config_Target_Target_Frame_CheckButton18:SetChecked(nil); |
||
| 109 | end |
||
| 110 | |||
| 111 | if (vartable["displaycastablebuffs"] == 1) then |
||
| 112 | Perl_Config_Target_Target_Frame_CheckButton19:SetChecked(1); |
||
| 113 | else |
||
| 114 | Perl_Config_Target_Target_Frame_CheckButton19:SetChecked(nil); |
||
| 115 | end |
||
| 116 | |||
| 117 | if (vartable["classcolorednames"] == 1) then |
||
| 118 | Perl_Config_Target_Target_Frame_CheckButton20:SetChecked(1); |
||
| 119 | else |
||
| 120 | Perl_Config_Target_Target_Frame_CheckButton20:SetChecked(nil); |
||
| 121 | end |
||
| 122 | |||
| 123 | if (vartable["showfriendlyhealth"] == 1) then |
||
| 124 | Perl_Config_Target_Target_Frame_CheckButton21:SetChecked(1); |
||
| 125 | else |
||
| 126 | Perl_Config_Target_Target_Frame_CheckButton21:SetChecked(nil); |
||
| 127 | end |
||
| 128 | |||
| 129 | Perl_Config_Target_Target_Frame_Slider1Low:SetText(PERL_LOCALIZED_CONFIG_SMALL); |
||
| 130 | Perl_Config_Target_Target_Frame_Slider1High:SetText(PERL_LOCALIZED_CONFIG_BIG); |
||
| 131 | Perl_Config_Target_Target_Frame_Slider1:SetValue(floor(vartable["scale"]*100+0.5)); |
||
| 132 | |||
| 133 | if (floor(vartable["scale"]*100+0.5) == floor(UIParent:GetScale()*100+0.5)) then |
||
| 134 | Perl_Config_Target_Target_Frame_CheckButton6:SetChecked(1); |
||
| 135 | else |
||
| 136 | Perl_Config_Target_Target_Frame_CheckButton6:SetChecked(nil); |
||
| 137 | end |
||
| 138 | |||
| 139 | Perl_Config_Target_Target_Frame_Slider2Low:SetText("0"); |
||
| 140 | Perl_Config_Target_Target_Frame_Slider2High:SetText("100"); |
||
| 141 | Perl_Config_Target_Target_Frame_Slider2:SetValue(vartable["transparency"]*100); |
||
| 142 | end |
||
| 143 | |||
| 144 | function Perl_Config_Target_Target_ToT_Update() |
||
| 145 | if (Perl_Config_Target_Target_Frame_CheckButton1:GetChecked() == 1) then |
||
| 146 | Perl_Target_Target_Set_ToT(1); |
||
| 147 | else |
||
| 148 | Perl_Target_Target_Set_ToT(0); |
||
| 149 | end |
||
| 150 | end |
||
| 151 | |||
| 152 | function Perl_Config_Target_Target_ToToT_Update() |
||
| 153 | if (Perl_Config_Target_Target_Frame_CheckButton2:GetChecked() == 1) then |
||
| 154 | Perl_Target_Target_Set_ToToT(1); |
||
| 155 | else |
||
| 156 | Perl_Target_Target_Set_ToToT(0); |
||
| 157 | end |
||
| 158 | end |
||
| 159 | |||
| 160 | function Perl_Config_Target_Target_Mode_Update() |
||
| 161 | if (Perl_Config_Target_Target_Frame_CheckButton8:GetChecked() == 1) then |
||
| 162 | Perl_Target_Target_Set_Mode(1); |
||
| 163 | elseif (Perl_Config_Target_Target_Frame_CheckButton9:GetChecked() == 1) then |
||
| 164 | Perl_Target_Target_Set_Mode(2); |
||
| 165 | elseif (Perl_Config_Target_Target_Frame_CheckButton10:GetChecked() == 1) then |
||
| 166 | Perl_Target_Target_Set_Mode(3); |
||
| 167 | else |
||
| 168 | Perl_Target_Target_Set_Mode(0); |
||
| 169 | end |
||
| 170 | end |
||
| 171 | |||
| 172 | function Perl_Config_Target_Target_Sound_Update() |
||
| 173 | if (Perl_Config_Target_Target_Frame_CheckButton7:GetChecked() == 1) then |
||
| 174 | Perl_Target_Target_Set_Sound_Alert(1); |
||
| 175 | else |
||
| 176 | Perl_Target_Target_Set_Sound_Alert(0); |
||
| 177 | end |
||
| 178 | end |
||
| 179 | |||
| 180 | function Perl_Config_Target_Target_Buff_Update() |
||
| 181 | if (Perl_Config_Target_Target_Frame_CheckButton14:GetChecked() == 1) then |
||
| 182 | Perl_Target_Target_Set_Buffs(1); |
||
| 183 | else |
||
| 184 | Perl_Target_Target_Set_Buffs(0); |
||
| 185 | end |
||
| 186 | end |
||
| 187 | |||
| 188 | function Perl_Config_Target_Target_Target_Buff_Update() |
||
| 189 | if (Perl_Config_Target_Target_Frame_CheckButton15:GetChecked() == 1) then |
||
| 190 | Perl_Target_Target_Target_Set_Buffs(1); |
||
| 191 | else |
||
| 192 | Perl_Target_Target_Target_Set_Buffs(0); |
||
| 193 | end |
||
| 194 | end |
||
| 195 | |||
| 196 | function Perl_Config_Target_Target_Debuff_Update() |
||
| 197 | if (Perl_Config_Target_Target_Frame_CheckButton17:GetChecked() == 1) then |
||
| 198 | Perl_Target_Target_Set_Debuffs(1); |
||
| 199 | else |
||
| 200 | Perl_Target_Target_Set_Debuffs(0); |
||
| 201 | end |
||
| 202 | end |
||
| 203 | |||
| 204 | function Perl_Config_Target_Target_Target_Debuff_Update() |
||
| 205 | if (Perl_Config_Target_Target_Frame_CheckButton18:GetChecked() == 1) then |
||
| 206 | Perl_Target_Target_Target_Set_Debuffs(1); |
||
| 207 | else |
||
| 208 | Perl_Target_Target_Target_Set_Debuffs(0); |
||
| 209 | end |
||
| 210 | end |
||
| 211 | |||
| 212 | function Perl_Config_Target_Target_Hide_Power_Bars_Update() |
||
| 213 | if (Perl_Config_Target_Target_Frame_CheckButton16:GetChecked() == 1) then |
||
| 214 | Perl_Target_Target_Set_Hide_Power_Bars(1); |
||
| 215 | else |
||
| 216 | Perl_Target_Target_Set_Hide_Power_Bars(0); |
||
| 217 | end |
||
| 218 | end |
||
| 219 | |||
| 220 | function Perl_Config_Target_Target_Class_Buffs_Update() |
||
| 221 | if (Perl_Config_Target_Target_Frame_CheckButton19:GetChecked() == 1) then |
||
| 222 | Perl_Target_Target_Set_Class_Buffs(1); |
||
| 223 | else |
||
| 224 | Perl_Target_Target_Set_Class_Buffs(0); |
||
| 225 | end |
||
| 226 | end |
||
| 227 | |||
| 228 | function Perl_Config_Target_Target_Class_Colored_Names_Update() |
||
| 229 | if (Perl_Config_Target_Target_Frame_CheckButton20:GetChecked() == 1) then |
||
| 230 | Perl_Target_Target_Set_Class_Colored_Names(1); |
||
| 231 | else |
||
| 232 | Perl_Target_Target_Set_Class_Colored_Names(0); |
||
| 233 | end |
||
| 234 | end |
||
| 235 | |||
| 236 | function Perl_Config_Target_Target_Show_Friendly_Health_Update() |
||
| 237 | if (Perl_Config_Target_Target_Frame_CheckButton21:GetChecked() == 1) then |
||
| 238 | Perl_Target_Target_Set_Show_Friendly_Health(1); |
||
| 239 | else |
||
| 240 | Perl_Target_Target_Set_Show_Friendly_Health(0); |
||
| 241 | end |
||
| 242 | end |
||
| 243 | |||
| 244 | function Perl_Config_Target_Target_Alert_Size_Update() |
||
| 245 | if (Perl_Config_Target_Target_Frame_CheckButton11:GetChecked() == 1) then |
||
| 246 | Perl_Target_Target_Set_Alert_Size(0); |
||
| 247 | elseif (Perl_Config_Target_Target_Frame_CheckButton12:GetChecked() == 1) then |
||
| 248 | Perl_Target_Target_Set_Alert_Size(1); |
||
| 249 | elseif (Perl_Config_Target_Target_Frame_CheckButton13:GetChecked() == 1) then |
||
| 250 | Perl_Target_Target_Set_Alert_Size(2); |
||
| 251 | else |
||
| 252 | Perl_Config_Target_Target_Frame_CheckButton13:SetChecked(1); |
||
| 253 | Perl_Target_Target_Set_Alert_Size(2); |
||
| 254 | end |
||
| 255 | end |
||
| 256 | |||
| 257 | function Perl_Config_Target_Target_MobHealth_Update() |
||
| 258 | if (Perl_Config_Target_Target_Frame_CheckButton3:GetChecked() == 1) then |
||
| 259 | Perl_Target_Target_Set_MobHealth(1); |
||
| 260 | else |
||
| 261 | Perl_Target_Target_Set_MobHealth(0); |
||
| 262 | end |
||
| 263 | end |
||
| 264 | |||
| 265 | function Perl_Config_Target_Target_Lock_Update() |
||
| 266 | if (Perl_Config_Target_Target_Frame_CheckButton5:GetChecked() == 1) then |
||
| 267 | Perl_Target_Target_Set_Lock(1); |
||
| 268 | else |
||
| 269 | Perl_Target_Target_Set_Lock(0); |
||
| 270 | end |
||
| 271 | end |
||
| 272 | |||
| 273 | function Perl_Config_Target_Target_Set_Scale(value) |
||
| 274 | if (Perl_Target_Target_Script_Frame) then -- this check is to prevent errors if you aren't using Target_Target |
||
| 275 | if (value == nil) then |
||
| 276 | value = floor(UIParent:GetScale()*100+0.5); |
||
| 277 | Perl_Config_Target_Target_Frame_Slider1Text:SetText(value); |
||
| 278 | Perl_Config_Target_Target_Frame_Slider1:SetValue(value); |
||
| 279 | end |
||
| 280 | Perl_Target_Target_Set_Scale(value); |
||
| 281 | |||
| 282 | vartable = Perl_Target_Target_GetVars(); |
||
| 283 | if (floor(vartable["scale"]*100+0.5) == floor(UIParent:GetScale()*100+0.5)) then |
||
| 284 | Perl_Config_Target_Target_Frame_CheckButton6:SetChecked(1); |
||
| 285 | else |
||
| 286 | Perl_Config_Target_Target_Frame_CheckButton6:SetChecked(nil); |
||
| 287 | end |
||
| 288 | end |
||
| 289 | end |
||
| 290 | |||
| 291 | function Perl_Config_Target_Target_Set_Transparency(value) |
||
| 292 | if (Perl_Target_Target_Script_Frame) then -- this check is to prevent errors if you aren't using Target_Target |
||
| 293 | Perl_Target_Target_Set_Transparency(value); |
||
| 294 | end |
||
| 295 | end |