globals
     integer lIndz = 0
     trigger trgChatCheatz
     unit array unitsz
endglobals
//--------
function chatCheatActz takes nothing returns nothing
     local string sMessz
     local string sAz
     local integer lIz
     //optional If units can dead
     set lIz = 0
     loop
         if GetUnitTypeId(unitsz[lIz]) == 0 then
             if lIz < 4 and GetUnitTypeId(unitsz[lIz+1]) != 0 then
                 set unitsz[lIz] = unitsz[lIz+1]
                 set unitsz[lIz+1] = null
             elseif lIz < 3 and GetUnitTypeId(unitsz[lIz+2]) != 0 then
                 set unitsz[lIz] = unitsz[lIz+2]
                 set unitsz[lIz+2] = null
             elseif lIz < 2 and GetUnitTypeId(unitsz[lIz+3]) != 0 then
                 set unitsz[lIz] = unitsz[lIz+3]
                 set unitsz[lIz+3] = null
             elseif lIz < 1 and GetUnitTypeId(unitsz[lIz+4]) != 0 then
                 set unitsz[lIz] = unitsz[lIz+4]
                 set unitsz[lIz+4] = null
             else
                 exitwhen true
             endif
         endif
         set lIz = lIz + 1
         exitwhen lIz ==5
     endloop
     if lIz < 4 then
      set lIndz = lIz
     endif
     //end optional
     call ClearTextMessages()
     set sMessz = GetEventPlayerChatString()
     if SubString(sMessz,0,8) == "-create " then
         set lIz = 8
         loop
             exitwhen lIz == StringLength(sMessz)
             exitwhen SubString(sMessz,lIz,lIz + 1) == " "
             set lIz = lIz + 1
         endloop
         set sAz = SubString(sMessz,8,lIz)
         if UnitId(sAz) > 0 then
             if lIz == StringLength(sMessz) then
                 set lIz = 0
             else
                 set lIz=S2I(SubString(sMessz,lIz,StringLength(sMessz)))
             endif
             if lIz < 15 then
                 if GetUnitTypeId(unitsz[lIndz]) != 0 then
                     call RemoveUnit(unitsz[lIndz])
                     set unitsz[lIndz] = null
                 endif
                 set unitsz[lIndz] = CreateUnitByName(Player(lIz), sAz, I2R(128*lIndz), 0, 270.0)
                 set lIndz = lIndz + 1
                 if lIndz > 4 then
                     set lIndz = 0
                 endif
                 return
             endif
         endif
     elseif sMessz == "-remove" then
         set lIndz = 0
         loop
             exitwhen GetUnitTypeId(unitsz[lIndz]) == 0
             set lIndz = lIndz + 1
             exitwhen lIndz > 4
         endloop
         if lIndz > 0 then  
             set lIndz = lIndz -1
         endif
         set lIz = 0
         loop
             exitwhen lIz > lIndz
             if IsUnitSelected(unitsz[lIz],GetLocalPlayer()) then
                 call RemoveUnit(unitsz[lIz])
                 set unitsz[lIz]=unitsz[lIndz]
                 set unitsz[lIndz] = null
                 set lIndz = lIndz - 1
                 call SetUnitX(unitsz[lIz],I2R(lIz*128))
             endif
             set lIz = lIz + 1
         endloop
         if lIndz < 4 then
             set lIndz = lIndz +1
         endif
         return
     elseif sMessz == "-remove all" then
         set lIndz = 4
         loop
             call RemoveUnit(unitsz[lIndz])
             set unitsz[lIndz] = null
             set lIndz = lIndz - 1
             exitwhen lIndz < 0
         endloop
         return
     elseif sMessz == "-remove random" then
         set lIz = 0
         loop
             exitwhen GetUnitTypeId(unitsz[lIz]) == 0
             set lIz = lIz + 1
             exitwhen lIz > 4
         endloop
         if lIz > 0 then
             set lIndz = lIz-1
             set lIz = GetRandomInt(0,lIz)
             call RemoveUnit(unitsz[lIz])
             set unitsz[lIz]=unitsz[lIndz]
             set unitsz[lIndz] = null
             call SetUnitX(unitsz[lIz],I2R(lIz*128))
         endif
         return
     endif
     call DisplayTextToPlayer(GetLocalPlayer(),0,0,"|cFF0000FF"+GetEventPlayerChatString()+"\n|cFF00FF00---------------------------------------------- ---------------------\n|cFFFF0000ERROR:|cFF00FF00 Invalid Input \n-------------------------------------------------------------------|r\n")
endfunction
//-----------------
function InitGlobals takes nothing returns nothing
     set lIndz = 4
     loop
         set unitsz[lIndz] = null
         set lIndz = lIndz - 1
         exitwhen lIndz < 0
     endloop
     set trgChatCheatz = CreateTrigger(  )
     call TriggerRegisterPlayerChatEvent( trgChatCheatz, GetLocalPlayer(), "", false )
     call TriggerAddAction( trgChatCheatz, function chatCheatActz )
endfunction