Advertisement
Rochet2

Untitled

Mar 27th, 2012
251
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 2.49 KB | None | 0 0
  1. -------------------- LOCALS --------------------
  2.  
  3. local logondb = "account"
  4. local membertype_tablename = "member_type"
  5.  
  6. -------------------- EN OF LOCALS --------------
  7. --************* DO NOT EDIT BELLOW ***********--
  8.  
  9. local Time = {}
  10.  
  11. function EnterCombatTime(event, pPlayer, pTarget) -- this is when the player enters in combat
  12.     local Pstr, Tstr = tostring(pPlayer), tostring(pTarget)
  13.     if(not Time[Pstr]) then
  14.         Time[Pstr] = {}
  15.     end
  16.     if(not Time[Pstr][Tstr]) then
  17.         Time[Pstr][Tstr] = GetGameTime()
  18.     end
  19. end
  20. RegisterServerHook(9, EnterCombatTime)
  21.  
  22. function Pve_Boss(event, pPlayer, pUnit)
  23.     if pUnit:IsPlayer() then
  24.         return
  25.     end
  26.    
  27.     local CheckingRank = WorldDBQuery("SELECT `boss` FROM `creature_proto` WHERE `entry` = '"..pUnit:GetEntry().."';")
  28.     if(not CheckingRank) then
  29.         return
  30.     end
  31.     local BossRank = CheckingRank:GetColumn(0):GetLong()
  32.  
  33.     if (pPlayer:IsInGroup()) then
  34.         local grptype = pPlayer:GetGroupType()
  35.         if (grptype == 2) then
  36.             method = "Raid"
  37.         else
  38.             method = "Party"
  39.         end
  40.     end
  41.  
  42.     if (pPlayer:IsGm() == true) then
  43.         gmicon = " |Tinterface\\ChatFrame\\UI-ChatIcon-Blizz.blp:12:24:1:-1|t"
  44.     else
  45.         gmicon = ""
  46.     end
  47.    
  48.     local group = "Method: Alone!"
  49.     if (pPlayer:IsInGroup() == true) then
  50.         local grpnr = pPlayer:GetGroupPlayers()
  51.         for k, v in pairs(grpnr) do
  52.             group = ""..method.." method, "..k.." players assisted"
  53.         end
  54.     end
  55.  
  56.     local MemberType = WorldDBQuery("SELECT `"..membertype_tablename.."` FROM "..logondb..".accounts WHERE `login`='"..pPlayer:GetAccountName().."';");
  57.     if(not MemberType) then
  58.         return
  59.     end
  60.     local Member = MemberType:GetColumn(0):GetLong()
  61.    
  62.     local vip = "Player"
  63.     if (Member == 1) then
  64.         vip = "Vip 1"
  65.     elseif (Member == 2) then
  66.         vip = "Vip 2"
  67.     elseif (Member == 3) then
  68.         vip = "Vip 3"
  69.     elseif (Member == 4) then
  70.         vip = "Vip 4"
  71.     elseif (Member == 5) then
  72.         vip = "Vip 5"
  73.     elseif (Member == 6) then
  74.         vip = "Vip 6"
  75.     end
  76.     local Pstr, Tstr = tostring(pPlayer), tostring(pUnit)
  77.     if(Time[str]) then
  78.         local Time2nd = GetGameTime()-Time[str]
  79.         if (BossRank == 0) or pUnit:IsPlayer() then
  80.             -- nothing to show in world
  81.         else
  82.             SendWorldMessage("[PVE]"..gmicon.." "..vip.." |cffFFFFFF|Hplayer:"..pPlayer:GetName().."|h["..pPlayer:GetName().."]|h|r killed ["..pUnit:GetName().."] "..group.." "..Time2nd.."", 2)
  83.                     Time[Pstr][Tstr] = nil
  84.         end
  85.     end
  86. end
  87. RegisterServerHook(28, "Pve_Boss")
  88.  
  89. function EraseVariables(event, pPlayer)
  90.     Time[tostring(pPlayer)] = nil
  91. end
  92. RegisterServerHook(4, EraseVariables) -- change map
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement