vanilla-wow-addons – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 WizOptions={
2 ["LLT"]=nil,
3 ["CLT"]=nil,
4 ["PD"]=nil,
5 ["TIS"]=nil,
6 ["TTP"]=nil,
7  
8 }
9 MyCall=nil
10 LastTime=0
11 oz=nil
12 TX=nil
13 CX=nil
14 PT=0
15 function LevelWiz_OnDragStart()
16 LevelWizFrame:StartMoving()
17 end
18  
19 function LevelWiz_OnDragStop()
20 LevelWizFrame:StopMovingOrSizing()
21 end
22  
23 function LevelWiz_OnLoad()
24 LevelWizFrame:RegisterForDrag("LeftButton");
25 LevelWizFrame:RegisterEvent("PLAYER_XP_UPDATE");
26 LevelWizFrame:RegisterEvent("PLAYER_ENTERING_WORLD");
27 LevelWizFrame:RegisterEvent("TIME_PLAYED_MSG");
28 LevelWizFrame:RegisterEvent("PLAYER_LEVEL_UP");
29 SlashCmdList["LevelWiz"]=LevelWiz;
30 SLASH_LevelWiz1="/LevelWiz"
31 tt = GetAddOnMetadata("LevelWiz", "Title")
32 vt = GetAddOnMetadata("LevelWiz", "Version")
33 DEFAULT_CHAT_FRAME:AddMessage( tt.." "..vt.." Loaded", .3, .5, 1.0,.3 );
34 end
35  
36 function CloseClick()
37 DEFAULT_CHAT_FRAME:AddMessage( "Hiding window, Use /LevelWiz to show window.", .5, 1.0, .3 );
38 LevelWizFrame:Hide()
39 end
40  
41 function LevelWiz_OnEvent()
42 if (event == "PLAYER_ENTERING_WORLD") then
43 Calc()
44 end
45  
46 if (event == "PLAYER_XP_UPDATE") then
47 Calc()
48 end
49  
50 if (event == "TIME_PLAYED_MSG") then
51 event=""
52 WizOptions.TTP = SecondsToTime(arg1)
53 WizOptions.CLT = SecondsToTime(arg2)
54 WizOptions.TIS = arg2
55 end
56  
57 if (event == "PLAYER_LEVEL_UP") then
58 WizOptions.LLT = WizOptions.CLT
59 SendChatMessage("After "..WizOptions.LLT..UnitName("PLAYER").." has reached Level "..arg1,"Guild")
60 end
61  
62 end
63  
64  
65 function LevelWiz()
66 LevelWizFrame:Show()
67 end
68  
69 function Calc()
70 TX=UnitXPMax("PLAYER")
71 CX=UnitXP("PLAYER")
72 WizOptions.PD=tonumber(format("%.2f", (CX / TX) * 100))
73 if WizOptions.PD==nil then WizOptions.PD=0;end
74 LevelWizText:SetText("|cff7fff4c"..WizOptions.PD.."% of level completed.|r")
75 end
76  
77 function LevelWiz_Info()
78 Calc()
79 GameTooltip:SetOwner(LevelWizFrame, "ANCHOR_BOTTOMRIGHT");
80 PL= 100 - WizOptions.PD
81 TX=UnitXPMax("PLAYER")
82 CX=UnitXP("PLAYER")
83 RX = GetXPExhaustion()
84 if WizOptions.LLT==nil then WizOptions.LLT="Unknown";end
85 if RX~=nil then RP = format("%.2f", (RX / (TX-CX)) * 100) ; else RP=0;end
86 if PL<1 then TPL = "<1";else TPL=PL;end
87 if tonumber(RP)<1 then TRP="<1";else TRP=RP;end
88 if tonumber(RP)==0 then TRP=0;end
89 GameTooltip:SetText("|cffffffff"..TPL.."% Remaining of which "..TRP.."% is rested")
90 if TP==nil then TP="Unknown";end
91 if WizOptions.TIS~=nil then ET = (WizOptions.TIS / WizOptions.PD) * PL; else ET="Calculating...";end
92 GameTooltip:AddLine("Time on current level: "..WizOptions.CLT)
93 GameTooltip:AddLine("Time on last level: "..WizOptions.LLT)
94 GameTooltip:AddLine("Estimated time to level up: "..SecondsToTime(ET))
95 GameTooltip:AddLine("|cff7fff4cTotal Time Played "..WizOptions.TTP.."|r")
96 GameTooltip:Show();
97 end
98  
99 function LevelWiz_OnUpdate()
100 if PT>100 then RequestTimePlayed();PT=0;end
101 PT = PT +1
102 end