Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

MyDC.ru _ Помощь по скриптам для PtokaX _ Скрипт при входе

Автор: ke(x)one 6.2.2012, 13:37

sBot = "Рабочее_Око"

function UserConnected(tUser)
local Profile = (ProfMan.GetProfile(tUser.iProfile) and ProfMan.GetProfile(tUser.iProfile).sProfileName) or "Unreg"
Core.SendToUser(tUser,"<"..sBot.."> Добро пожаловать на Russia Hub . \r\n"..

end
RegConnected = UserConnected
OpConnected = UserConnected

что тут не правильно? ошибка вот [14:37] Синтаксис E:\Documents and Settings\Admin\Рабочий стол\0.4.1.2\scripts\motd0.lua:7: unexpected symbol near 'end' помогите пожалуйста

Автор: Артём 6.2.2012, 13:47

Код
function UserConnected(tUser)
local Profile = (ProfMan.GetProfile(tUser.iProfile) and ProfMan.GetProfile(tUser.iProfile).sProfileName) or "Unreg"
Core.SendToUser(tUser,"<"..sBot.."> Добро пожаловать на Russia Hub . \r\n")
end
end

end - забыли. big_smile.gif

Автор: ke(x)one 6.2.2012, 13:50

[14:49] Синтаксис E:\Documents and Settings\Admin\Рабочий стол\0.4.1.2\scripts\motd0.lua:6: unexpected symbol near 'end'

Автор: Артём 6.2.2012, 14:00

Код
sBot = "Рабочее_Око"

UserConnected = function(tUser)
    local Profile = (ProfMan.GetProfile(tUser.iProfile) and ProfMan.GetProfile(tUser.iProfile).sProfileName) or "Unreg"
    Core.SendToUser(tUser, "<"..sBot.."> "..tUser.sNick..", Добро пожаловать на Russia Hub. \n\tВаш профиль:\t"..Profile.."\n\tСейчас на хабе:\t"..Core.GetUsersCount().." юзеров ")
    end
RegConnected = UserConnected
OpConnected = UserConnected

Автор: ke(x)one 6.2.2012, 14:02

Огромное спасибо

Автор: Артём 6.2.2012, 14:16

тЫц
Код
sBot = "Рабочее_Око"

UserConnected = function(tUser)
local ut = Convert(os.time() - Core.GetUpTime())
    local Profile = (ProfMan.GetProfile(tUser.iProfile) and ProfMan.GetProfile(tUser.iProfile).sProfileName) or "Unreg"
    Core.SendToUser(tUser, "<"..sBot.."> "..tUser.sNick..", Добро пожаловать на Russia Hub."..
    "\n\tВаш профиль:\t"..Profile.."\n\tСейчас на хабе:\t"..Core.GetUsersCount().." юзеров "..
    "\n\tНепрерывное время работы хаба:\t"..ut.."")
    end

RegConnected = UserConnected
OpConnected = UserConnected

Convert = function(time)
    if time then
        local s,x,n = "",0,os.time()
        local tab = {{31556926, " лет", " год"},{2592000, " мес."},{604800, " нед."},
        {86400, "дн."},{3600, " ч."},{60, " мин."},{1, " сек."}}
        if time > 0 then
            if time < 2145876659 then
                if n > time then
                    time = n - time
                elseif n < time then
                    time = time - n
                end
                for i,v in ipairs(tab) do
                    if time > v[1] then
                        x = math.floor(time/v[1])
                        if x > 1 then v[2] = v[2].."" end
                        if x > 0 then
                            s = s..x.." "..v[2]..", "
                            time = time-x*v[1]
                        end
                    end
                end
                collectgarbage("collect")
                return s:sub(1,-3)
            else
                return "Invalid date or time supplied. [must be pre 12/31/2037]"
            end
        else
            return "Invalid date or time supplied. [must be post 01/01/1970]"
        end
    else
        return "Invalid date or time supplied."
    end
end

По просьбе ТС через ЛС на хабе mydc
не открывать
Ник бота страшный, почему-то читается как Рабочее_Очко beated.gif

Автор: Tsd 6.2.2012, 14:43

Ошибка была в строке
Core.SendToUser(tUser,"<"..sBot.."> Добро пожаловать на Russia Hub . \r\n"..
Надо было так:
Core.SendToUser(tUser,"<"..sBot.."> Добро пожаловать на Russia Hub . \n")

Автор: ke(x)one 6.2.2012, 19:38

Раскрывающийся текст
sBot = "VerliHub"

UserConnected = function(tUser)
local ut = Convert(os.time() - Core.GetUpTime())
local Profile = (ProfMan.GetProfile(tUser.iProfile) and ProfMan.GetProfile(tUser.iProfile).sProfileName) or "Unreg"
Core.SendToUser(tUser, "<"..sBot.."> This hub is running version 1.1.0b (Friday Januar 30 2012) of VerliHub (RunTime .".. "\n\tRunTime:\t"..ut..")"
"\n\tCurrent user count:\t"..Core.GetUsersCount().." "..

end

RegConnected = UserConnected
OpConnected = UserConnected

Convert = function(time)
if time then
local s,x,n = "",0,os.time()
local tab = {{31556926, " лет", " год"},{2592000, " months."},{604800, " weeks."},
{86400, "дн."},{3600, " hours."},{60, " minutes."},{1, " with."}}
if time > 0 then
if time < 2145876659 then
if n > time then
time = n - time
elseif n < time then
time = time - n
end
for i,v in ipairs(tab) do
if time > v[1] then
x = math.floor(time/v[1])
if x > 1 then v[2] = v[2].."" end
if x > 0 then
s = s..x.." "..v[2]..", "
time = time-x*v[1]
end
end
end
collectgarbage("collect")
return s:sub(1,-3)
else
return "Invalid date or time supplied. [must be pre 12/31/2037]"
end
else
return "Invalid date or time supplied. [must be post 01/01/1970]"
end
else
return "Invalid date or time supplied."
end
end



я вот что хотел сделать и ошибка [20:35] Синтаксис E:\Documents and Settings\Admin\Рабочий стол\0.4.1.2\scripts\1005001.lua:7: ')' expected (to close '(' at line 6) near '"
Current user count: "'

Автор: Tsd 6.2.2012, 19:51

Изменить блок
Core.SendToUser(tUser, "<"..sBot.."> This hub is running version 1.1.0b (Friday Januar 30 2012) of VerliHub (RunTime .".. "\n\tRunTime:\t"..ut..")"
"\n\tCurrent user count:\t"..Core.GetUsersCount().." "..

end

на
Core.SendToUser(tUser, "<"..sBot.."> This hub is running version 1.1.0b (Friday Januar 30 2012) of VerliHub."..
"\n\tRunTime: "..ut..
"\n\tCurrent user count: "..Core.GetUsersCount()
end

Автор: ke(x)one 6.2.2012, 19:56

20:53] Синтаксис E:\Documents and Settings\Admin\Рабочий стол\0.4.1.2\scripts\1005001.lua:8: unfinished string near '"'

неа

[20:56] Синтаксис E:\Documents and Settings\Admin\Рабочий стол\0.4.1.2\scripts\1005001.lua:9: ')' expected (to close '(' at line 6) near 'end'

Автор: Tsd 6.2.2012, 19:58

Ты уверен что это на верли будет работать?

Автор: ke(x)one 6.2.2012, 20:00

это птотакс

Автор: Tsd 6.2.2012, 20:01

Попробуй изменить строку
"\n\tCurrent user count: "..Core.GetUsersCount()
на
"\n\tCurrent user count: "..Core.GetUsersCount())

Пишу как говорится "с листа".

Автор: ke(x)one 6.2.2012, 20:03

неа

[21:03] Синтаксис E:\Documents and Settings\Admin\Рабочий стол\0.4.1.2\scripts\1005001.lua:7: unexpected symbol near '..'

Автор: Tsd 6.2.2012, 20:11

Core.SendToUser(tUser, "<"..sBot.."> This hub is running version 1.1.0b (Friday Januar 30 2012) of VerliHub (RunTime: "..ut.."). (Current user count: "..Core.GetUsersCount()..")")

Автор: ke(x)one 6.2.2012, 20:15

sBot = "VerliHub"

UserConnected = function(tUser)
local ut = Convert(os.time() - Core.GetUpTime())
local Profile = (ProfMan.GetProfile(tUser.iProfile) and ProfMan.GetProfile(tUser.iProfile).sProfileName) or "Unreg"
Core.SendToUser(tUser, "<"..sBot.."> This hub is running version 1.1.0b (Friday Januar 30 2012) of VerliHub (RunTime: "..ut.."). (Current user count: "..Core.GetUsersCount()..")")
"\n\tRunTime:\t"..ut..")")
end

RegConnected = UserConnected
OpConnected = UserConnected

Convert = function(time)
if time then
local s,x,n = "",0,os.time()
local tab = {{31556926, " лет", " год"},{2592000, " months."},{604800, " weeks."},
{86400, "дн."},{3600, " hours."},{60, " minutes."},{1, " with."}}
if time > 0 then
if time < 2145876659 then
if n > time then
time = n - time
elseif n < time then
time = time - n
end
for i,v in ipairs(tab) do
if time > v[1] then
x = math.floor(time/v[1])
if x > 1 then v[2] = v[2].."" end
if x > 0 then
s = s..x.." "..v[2]..", "
time = time-x*v[1]
end
end
end
collectgarbage("collect")
return s:sub(1,-3)
else
return "Invalid date or time supplied. [must be pre 12/31/2037]"
end
else
return "Invalid date or time supplied. [must be post 01/01/1970]"
end
else
return "Invalid date or time supplied."
end
end



вот что получилось и снова ошибка

Автор: Tsd 6.2.2012, 20:19

Убери строку
"\n\tRunTime:\t"..ut..")")

Автор: ke(x)one 6.2.2012, 20:21

работает, спасибо

Автор: Ksan 6.2.2012, 21:41

Вы тут что, совсем разучились пользоваться тэгами формы отправки сообщений или просто не умееете?