script_name('SmsClist')
script_version_number(3)
script_version('1.2')
script_author('Bobcar')
script_description('Send SMS to players, who have active clist')

local colors = {
    [1] = 2852758528,
    [2] = 4283957071,
    [3] = 2857434774,
    [4] = 2855182459,
    [5] = 2863589376,
    [6] = 2854722334,
    [7] = 2858002005,
    [8] = 2868839942,
    [9] = 2868810859,
    [10] = 4294201344,
    [11] = 2864613889,
    [12] = 2863857664,
    [13] = 2862896983,
    [14] = 2868880928,
    [15] = 2868784214,
    [16] = 2868878774,
    [17] = 2853375487,
    [18] = 2853039615,
    [19] = 2853411820,
    [20] = 2855313575,
    [21] = 2853260657,
    [22] = 2861962751,
    [23] = 2865042943,
    [24] = 2860620717,
    [25] = 2868895268,
    [26] = 2868899466,
    [27] = 2868167680,
    [28] = 2868164608,
    [29] = 2864298240,
    [30] = 2863640495,
    [31] = 2864232118,
    [32] = 2855811128,
    [33] = 2866272215
}

local color_Off = 16777215

local param_ColorNum = nil

local RADIUS = 20

function main()
    repeat wait(100) until isSampAvailable()
    --sampAddChatMessage('SmsClist is loaded',0xFF15DE87)
    
    sampRegisterChatCommand('smsclist', smsclistCallBack)    
    
    wait(-1)
end

local t = lua_thread.create_suspended(function()
    local res, my_id = sampGetPlayerIdByCharHandle(PLAYER_PED)
    if res then
  my_color = sampGetPlayerColor(my_id)
  if my_color == colors[param_ColorNum] or (param_ColorNum == 0 and not (my_color == color_Off)) then
   sampAddChatMessage('[SmsClist] Отключение цвета у себя',0xFF15DE87)
   sampSendChat('/clist 0')
   wait(1250)
  end
    end
    
    local done = {}
    local theEnd = false
    local ok = false
    
    for i = 1, 150 do
  local posX, posY, posZ = getCharCoordinates(PLAYER_PED)
  local result, ped = findAllRandomCharsInSphere(posX, posY, posZ, RADIUS, true, true)
  if result then
   local result2, id = sampGetPlayerIdByCharHandle(ped)
   if result2 then
    for i = 1, #done do
     if done[i] == id then
      theEnd = true
      --sampAddChatMessage(string.format('[SmsClist] Конец, ID: %d',id),0xFF15DE87)
      break
     end
    end
    
    if (theEnd == true) then
     if ok == false then
      if param_ColorNum == 0 then
       sampAddChatMessage(string.format('[SmsClist] У всех цвета отключены'),0xFF15DE87)
      else
       sampAddChatMessage(string.format('[SmsClist] Цвет номер %d у всех выключен',param_ColorNum),0xFF15DE87)
      end
     end
     return
    end
   
    if (theEnd == false) then
     done[#done+1] = id
     
     local color = sampGetPlayerColor(id)
     if color == colors[param_ColorNum] or (param_ColorNum == 0 and not (color == color_Off)) then
      ok = true
      sampAddChatMessage(string.format('#%d ID: %d Color: %d',i,id,color), color)
      sampSendChat(string.format('/sms %d /clist 0',id))
      wait(1150)
     end
    end
   end
  end
    end
    if ok == false then sampAddChatMessage('[SmsClist] Никто не найден в радиусе ' .. tostring(RADIUS) .. ' метров',0xFF15DE87) end
end)

function smsclistCallBack(params)
    param_ColorNum = tonumber(params)
    if params == '' then sampAddChatMessage('[SmsClist] /smsclist [номер цвета] (0 - все цвета)',0xFF15DE87) else
  if t:status() == 'suspended' or t:status() == 'dead' then
   t:run()
  else sampAddChatMessage('[SmsClist] Команда ещё выполняется',0xFF15DE87) end
    end
end