function Trig_camera_Actions takes nothing returns nothing
        local integer c=S2I(SubStringBJ(GetEventPlayerChatString(), 5, StringLength(GetEventPlayerChatString())))
        call SetCameraFieldForPlayer( Player(0), CAMERA_FIELD_TARGET_DISTANCE, c, 0 )
endfunction

//===========================================================================
function InitTrig_camera takes nothing returns nothing
        set gg_trg_camera = CreateTrigger(  )
        call TriggerRegisterPlayerChatEvent( gg_trg_camera, Player(0), "-cam ", false )
        call TriggerAddAction( gg_trg_camera, function Trig_camera_Actions )
endfunction

function TriggerRegisterAnyPlayerChatEvent takes trigger whichTrigger, string chatMessageToDetect, boolean exactMatchOnly returns nothing  
      local integer i = 0  
      loop  
          exitwhen i > 11  
          call TriggerRegisterPlayerChatEvent(whichTrigger,Player(i),chatMessageToDetect,exactMatchOnly)  
          set i = i + 1  
      endloop  
endfunction

function Trig_camera_Actions takes nothing returns nothing  
      local integer c=S2I(SubStringBJ(GetEventPlayerChatString(), 5, StringLength(GetEventPlayerChatString())))  
      local player  p=GetTriggerPlayer( )  
      call SetCameraFieldForPlayer( p , CAMERA_FIELD_TARGET_DISTANCE, c, 0 )  
endfunction  

//===========================================================================  
function InitTrig_camera takes nothing returns nothing  
      set gg_trg_camera = CreateTrigger(  )  
      call TriggerRegisterAnyPlayerChatEvent(gg_trg_camera,"-cam",false)  
      call TriggerAddAction( gg_trg_camera, function Trig_camera_Actions )  
endfunction

function TriggerRegisterAnyPlayerChatEvent takes trigger whichTrigger, string chatMessageToDetect, boolean exactMatchOnly returns nothing
     local integer i = 0
     loop
         exitwhen i > 11
         call TriggerRegisterPlayerChatEvent(whichTrigger,Player(i),chatMessageToDetect,exactMatchOnly)
         set i = i + 1
     endloop
endfunction

function CompareChars takes string s, boolean nums, boolean chars, boolean spaces returns boolean
     local string n = "0123456789"
     local string lc = "abcdefghijklmnopqrtsuvwxyzабвгдеёжзийклмнопрстуфхцчшщэюяъыь"
     local string uc = StringCase(lc,true)
     local string res
     local integer i = 0
     local integer i2 = 0
     local integer l
     local boolean b = false
     local string array ch
      
     if nums then
         set res = res + n
     endif
     if chars then
         set res = res + lc + uc
     endif
     if spaces then
         set res = res + " "
     endif
      
     set l = StringLength(res)
      
     loop
         exitwhen i > l
         set ch[i] = SubString(res,i,i + 1)
         set i = i + 1
     endloop
      
     set i = 0
     loop
         exitwhen i > StringLength(s)
         set b = false
         set i2 = 0
         loop
             exitwhen i2 > l
             if SubString(s,i,i + 1) == ch[i2] then
                 set b = true
                 set i2 = l
             endif
             set i2 = i2 + 1
         endloop
         if b == false then
             return b
         endif
         set i = i + 1
     endloop
     return true
endfunction

function Trig_camera_Conditions takes nothing returns boolean
     return SubString(GetEventPlayerChatString(),0,5) == "-cam "
endfunction

function Trig_camera_Actions takes nothing returns nothing  
     local string s = GetEventPlayerChatString()  
     local string c = SubString(s,4,StringLength(s))  
      
     if CompareChars(c,true,false,false) then
         if GetLocalPlayer() == GetTriggerPlayer() then
             call SetCameraField(CAMERA_FIELD_TARGET_DISTANCE,c,0)
         endif
     else
         if GetLocalPlayer() == GetTriggerPlayer() then
             call ClearTextMessages()
             call DisplayTimedTextToPlayer(GetLocalPlayer(),.52,-1.,2.,"|cffffcc00ОШИБКА|r. Формат ввода: |cFFA8F272-cam число|r без пробелов после числа.")
         endif     
     endif
endfunction  
   
//===========================================================================  
function InitTrig_camera takes nothing returns nothing  
     set gg_trg_camera = CreateTrigger()  
     call TriggerRegisterAnyPlayerChatEvent(gg_trg_camera,"-cam",false)  
     call TriggerAddCondition(gg_trg_camera,Condition(function Trig_camera_Conditions))
     call TriggerAddAction(gg_trg_camera,function Trig_camera_Actions)  
endfunction   

function TriggerRegisterAnyPlayerChatEvent takes trigger whichTrigger, string chatMessageToDetect, boolean exactMatchOnly returns nothing
      local integer i = 0
      loop
          exitwhen i > 11
          call TriggerRegisterPlayerChatEvent(whichTrigger,Player(i),chatMessageToDetect,exactMatchOnly)
          set i = i + 1
      endloop
endfunction

function CompareChars takes string s, boolean nums, boolean chars, boolean spaces returns boolean
      local string n = "0123456789"
      local string lc = "abcdefghijklmnopqrtsuvwxyzабвгдеёжзийклмнопрстуфхцчшщэюяъыь"
      local string uc = StringCase(lc,true)
      local string res
      local integer i = 0
      local integer i2 = 0
      local integer l
      local boolean b = false
      local string array ch
        
      if nums then
          set res = res + n
      endif
      if chars then
          set res = res + lc + uc
      endif
      if spaces then
          set res = res + " "
      endif
        
      set l = StringLength(res)
        
      loop
          exitwhen i > l
          set ch[i] = SubString(res,i,i + 1)
          set i = i + 1
      endloop
        
      set i = 0
      loop
          exitwhen i > StringLength(s)
          set b = false
          set i2 = 0
          loop
              exitwhen i2 > l
              if SubString(s,i,i + 1) == ch[i2] then
                  set b = true
                  set i2 = l
              endif
              set i2 = i2 + 1
          endloop
          if b == false then
              return b
          endif
          set i = i + 1
      endloop
      return true
endfunction

function Trig_camera_Conditions takes nothing returns boolean
      return SubString(GetEventPlayerChatString(),0,5) == "-cam "
endfunction

function Trig_camera_Actions takes nothing returns nothing   
      local string s = GetEventPlayerChatString()   
      local string c = SubString(s,4,StringLength(s))   
        
      if CompareChars(c,true,false,false) then
          if GetLocalPlayer() == GetTriggerPlayer() then
              call SetCameraField(CAMERA_FIELD_TARGET_DISTANCE,c,0)
          endif
      else
          if GetLocalPlayer() == GetTriggerPlayer() then
              call ClearTextMessages()
              call DisplayTimedTextToPlayer(GetLocalPlayer(),.52,-1.,2.,"|cffffcc00ОШИБКА|r. Формат ввода: |cFFA8F272-cam число|r без пробелов после числа.")
          endif      
      endif
endfunction   
     
//===========================================================================   
function InitTrig_camera takes nothing returns nothing   
      set gg_trg_camera = CreateTrigger()   
      call TriggerRegisterAnyPlayerChatEvent(gg_trg_camera,"-cam",false)   
      call TriggerAddCondition(gg_trg_camera,Condition(function Trig_camera_Conditions))
      call TriggerAddAction(gg_trg_camera,function Trig_camera_Actions)   
endfunction