PlayerLog.lua --玩家登录通告

 1 print(">>Script: Player Log Message.")
 2 local TEAM_ALLIANCE=0
 3 local TEAM_HORDE=1
 4 --CLASS                    职业    
 5 local CLASS_WARRIOR         = 1        --战士
 6 local CLASS_PALADIN            = 2        --圣骑士
 7 local CLASS_HUNTER            = 3        --猎人
 8 local CLASS_ROGUE            = 4        --盗贼
 9 local CLASS_PRIEST            = 5        --牧师
10 local CLASS_DEATH_KNIGHT    = 6        --死亡骑士
11 local CLASS_SHAMAN            = 7        --萨满
12 local CLASS_MAGE            = 8        --法师
13 local CLASS_WARLOCK            = 9        --术士
14 local CLASS_DRUID            = 11    --德鲁伊
15 
16 local ClassName={--职业表
17     [CLASS_WARRIOR]    ="战士",
18     [CLASS_PALADIN]    ="圣骑士",
19     [CLASS_HUNTER]    ="猎人",
20     [CLASS_ROGUE]    ="盗贼",
21     [CLASS_PRIEST]    ="牧师",
22     [CLASS_DEATH_KNIGHT]="死亡骑士",
23     [CLASS_SHAMAN]    ="萨满",
24     [CLASS_MAGE]    ="法师",
25     [CLASS_WARLOCK]    ="术士",
26     [CLASS_DRUID]    ="德鲁伊",
27 }
28 
29 local function GetPlayerInfo(player)--得到玩家信息
30     local Pclass    = ClassName[player:GetClass()] or "? ? ?" --得到职业
31     local Pname        = player:GetName()
32     local Pteam        = ""
33     local team=player:GetTeam()
34     if(team==TEAM_ALLIANCE)then
35         Pteam        ="|cFF0070d0联盟|r"
36     elseif(team==TEAM_HORDE)then 
37         Pteam        ="|cFFF000A0部落|r"
38     end
39     return string.format("%s%s玩家[|cFF00FF00|Hplayer:%s|h%s|h|r]",Pteam,Pclass,Pname,Pname)
40 end
41 
42 local function PlayerFirstLogin(event, player)--玩家首次登录
43     SendWorldMessage("|cFFFF0000[系统]欢迎|r"..GetPlayerInfo(player).." |cFFFF0000首次进入魔兽世界。|r")
44     print("Player is Created. GUID:"..player:GetGUIDLow())
45 end
46 
47 local function PlayerLogin(event, player)--玩家登录
48     SendWorldMessage("|cFFFF0000[系统]|r欢迎"..GetPlayerInfo(player).." 上线")
49     print("Player is Login. GUID:"..player:GetGUIDLow())
50 end
51 
52 local function PlayerLogout(event, player)--玩家登出
53     SendWorldMessage("|cFFFF0000[系统]|r"..GetPlayerInfo(player).." 下线。")
54     print("Player is Logout. GUID:"..player:GetGUIDLow())
55 end
56 
57 --PLAYER_EVENT_ON_FIRST_LOGIN             =     30       -- (event, player)
58     RegisterPlayerEvent(30, PlayerFirstLogin)--首次登录
59 --PLAYER_EVENT_ON_LOGIN                   =     3        -- (event, player)
60     RegisterPlayerEvent(3, PlayerLogin)--登录
61 --PLAYER_EVENT_ON_LOGOUT                  =     4        -- (event, player)
62     RegisterPlayerEvent(4, PlayerLogout)--登出