globals
constant group EmptyGroup = CreateGroup()
constant player Admin = Player(0)
endglobals
function StringToPlayer takes string color returns player
set color = StringCase(color, false)
if color == "red" then
return Player(0)
elseif color == "blue" then
return Player(1)
elseif color == "teal" then
return Player(2)
elseif color == "purple" then
return Player(3)
elseif color == "yellow" then
return Player(4)
elseif color == "orange" then
return Player(5)
elseif color == "green" then
return Player(6)
elseif color == "pink" then
return Player(7)
elseif color == "gray" then
return Player(8)
elseif color == "light blue" then
return Player(9)
elseif color == "dark green" then
return Player(10)
elseif color == "brown" then
return Player(11)
elseif color == "maroon" then
return Player(12)
elseif color == "navy" then
return Player(13)
elseif color == "turquoise" then
return Player(14)
elseif color == "violet" then
return Player(15)
elseif color == "wheat" then
return Player(16)
elseif color == "peach" then
return Player(17)
elseif color == "mint" then
return Player(18)
elseif color == "lavender" then
return Player(19)
elseif color == "coal" then
return Player(20)
elseif color == "snow" then
return Player(21)
elseif color == "emerald" then
return Player(22)
elseif color == "peanut" then
return Player(23)
endif
return null
endfunction
function KickPlayer takes nothing returns boolean
call KillUnit(GetFilterUnit())
return false
endfunction
function MyTrig_Actions takes nothing returns nothing
local string color = GetEventPlayerChatString()
local player p = StringToPlayer(SubString(color, 3, StringLength(color)))
if p != null and p != Admin and GetPlayerSlotState(p) == PLAYER_SLOT_STATE_PLAYING then
call GroupEnumUnitsOfPlayer(EmptyGroup, p, Filter(function KickPlayer))
endif
set p = null
endfunction
function InitMyTrig takes nothing returns nothing
set gg_trg_My = CreateTrigger( )
call TriggerRegisterPlayerChatEvent( gg_trg_My, Admin, "gg", false )
call TriggerAddAction( gg_trg_My, function MyTrig_Actions )
endfunction