-- VIP vote kick by plop
-- 

Bot = "fikkie"
cAmountKick = 1
tToBeKicked = {} -- counting the votes
tKickers = {} -- making sure they can't vote double

function Main() 
   frmHub:RegBot(Bot)
end

function DoKick(user, victum)
   if victum == "" then
      return "I need a name to know who to kick!!"
   else
      local victem = GetItemByName(victum)
      if victem ~= nil then
         if victem.iProfile == 3 or victem.iProfile == -1 then
            if tToBeKicked[victem.sName] then
               if tKickers[victem.sName][user.sName] then
                  return "You allready voted to kick "..victum.."!"
               else
                  tToBeKicked[victem.sName] = tToBeKicked[victem.sName] + 1
                  if tToBeKicked[victem.sName] >= cAmountKick then
                     tToBeKicked[victem.sName] = nil
                     tKickers[victem.sName] = nil
                     SendToAll(Bot, "Enough VIP's have voted to kick "..victem.sName.."!|")
                     victem:Kick("Enough VIP's have voted to get you kicked!")
                     return vic.." has been kicked"
                  else
                     tKickers[victem.sName][user.sName] = 1
                     return "Your vote to kick "..victum.." has been procest!"
                  end
               end
            else
               tToBeKicked[victem.sName] = 1
               if tKickers[victem.sName] == nil then
                  tKickers[victem.sName] = {}
               end
               tKickers[victem.sName][user.sName] = 1
               return "Your vote to kick "..victum.." has been procest!"
            end
         else
            return "We don't kick Operators or VIP's!!"
         end
      else
         return victum.." Isn't in the hub!!"
      end
   end
end


function DataArrival(user, data)
   if user.iProfile == 2 then
      if(strsub(data, 1, 4) == "$To:") then
         local s,e,whoTo = strfind(data,"$To:%s+(%S+)")
         if whoTo == Bot then 
            data=strsub(data,1,strlen(data)-1) 
            local s,e,cmd = strfind(data, "%$%b<>%s+(%S+)")
            if cmd == "!kick" then
               local s,e,victum = strfind(data, "%$%b<>%s+%S+%s*(%S*)")
               user:SendData(Bot, DoKick(user, victum).."|")
               return 1
            end
         end
      elseif( strsub(data, 1, 1) == "<" ) then
         data=strsub(data,1,strlen(data)-1) 
         local s,e,cmd = strfind(data,"%b<>%s+(%S+)") 
         if cmd == "!kick" then
            local s,e,victum = strfind(data, "%b<>%s+%S+%s*(%S*)")
            user:SendData(Bot, DoKick(user, victum).."|")
            return 1
         end
      end
   end
end