Параметр Stime

sTime = {
m=1,
h=60,
d=1440,
w=10080,
}

    if cmd == "!bottempban" then
    if tProfile[tUser.iProfile] == 1 then
            local _,_,sNick = string.find(sData, "%b<>%s+%S+%s+(%S+)")
            local _,_,sTime = string.find(sData, "%b<>%s+%S+%s+%S+%s+(%S+)")
            local _,_,sReason = string.find(sData, "%b<>%s+%S+%s+%S+%s+%S+%s+(.*)")
            if not sNick then
                Core.SendToUser(tUser,"<"..sBot.."> Вы не ввели ник!")
                return true
            end
            if not sTime then
                Core.SendToUser(tUser,"<"..sBot.."> Вы не ввели время бана!")
                return true
            end
            sUser = Core.GetOnlineUsers()    
            for i,v in pairs(sUser) do
                if sNick == v.sNick then
                    sIP = v.sIP
                end
            end
            if not sIP then
                sIP = "не известен"
            end    
            if not sReason then
                sReason = "не указанна"
            end    
            Core.SendToNick(sNick,"<"..sBot.."> Вы были временно забанены на следующие "..sTime.." потому, что: "..sReason)
            Core.SendToAll("<"..sBot.."> забанил "..sNick.." (IP: "..sIP..") следующие "..sTime.." потому, что: "..sReason)
            BanMan.TempBanNick(sNick,tonumber(sTime) or 1,sReason,sBot)
    end    
return true
end

tTime = {
["m"]=1,
["h"]=60,
["d"]=1440,
["w"]=10080,
}

if not sTime then
     Core.SendToUser(tUser,"<"..sBot.."> Вы не ввели время бана!")
else
      local _,_,iTime, sArg = string.find(sTime, "(%d+)(%a)")
      if iTime and sArg then    -- Здесь можно прикрутить ещё несколько проверок на то есть ли аргумент в таблице tTime и т.д.
           sTime = tonumber(iTime)*tTime[sArg]
      else
            Core.SendToUser(tUser,"<"..sBot.."> Вы неправильно ввели время бана!")
      end
end
sUser = Core.GetOnlineUsers()

BanMan.TempBanNick
BanMan.BanNick

BanMan.TempBan
BanMan.Ban

function GetNormalTime(s)
    s=tonumber(s)*60 or 0
    local r=""
    if s>=31104000 then r=math.floor(s/31104000).." г. " s=math.fmod(s,31104000) end
    if s>=2592000 then r=r..math.floor(s/2592000).." мес. " s=math.fmod(s,2592000) end
    if s>=86400 then r=r..math.floor(s/86400).." д. " s=math.fmod(s,86400) end
    if s>=3600 then r=r..math.floor(s/3600).." ч. " s=math.fmod(s,3600) end
    if s>=60 then r=r..math.floor(s/60).." мин. " s=math.fmod(s,60) end
    return r
end

            Core.SendToNick(sNick,"<"..sBot.."> Вы были временно забанены на следующие "..GetNormalTime(sTime).." потому, что: "..sReason)
            Core.SendToAll("<"..sBot.."> забанил "..sNick.." (IP: "..sIP..") следующие "..GetNormalTime(sTime).." потому, что: "..sReason)

sTime = tonumber(iTime)*tTime[sArg]