Биоритм, API1

function ChatArrival(user,data)
    local msg
    local _,_,command,args=string.find(data,"%b<>%s+(%S+)%s+(.+)")
    if command =="!bio" then
        if args then
            local _,_,Y,M,D=string.find(args,"(%d%d%d%d)%D(%d%d)%D(%d%d)")
            if Y and M and D then
                user:SendData(D.."-"..M.."-"..Y)
                msg="\r\nбиоритм-калькулятор включен. Hold on!он показывает какая ваша активность в этот день по дню вашего рождения!! :)\r\n==================================\r\n"
                local Day,Month,Year=tonumber(D),tonumber(M),tonumber(Y)
                local Phys,Intell,Emot=GetBioRhythm( Day, Month, Year ) -- not Intel but Intell! :P (AMD)
                msg=msg.."\r\nфизический индекс: "..Phys.."\r\nинтелектуальный индекс: "..Intell.."\r\nэмонациональный индекс: "..Emot.."\r\n\r\n=================================="
            else
                msg="Correct usage: !bio год-месяц-день"
            end
        else
            msg="Correct usage: !bio год-месяц-день"
        end

        user:SendData(Bot,msg)
        return 1
    end
end