Автор: SlavaX 7.3.2009, 18:24
Я покачто нуб в этих делах, и буду очень признателен и благодарен, если поможете разобраться с одной вещью
Код
hubscmd = "!hubs"
hubsfile = "texts/hubs.txt"
OpConnected = NewUserConnected
function ChatArrival(curUser,data)
local data = string.sub(data,1,-2)
local s,e,cmd =string.find(data, "%b<>%s+(%S+)")
if cmd == hubscmd then
dofile(hubsfile)
curUser:SendPMtonickloadtext(hubsfile)
end
curUser:SendData("$UserCommand 1 2 Ваше меню\\Внутрисетевые хабы$<%[mynick]> "..hubscmd.." %[nick]|")
end
Это я написал сам, тока вот где тут ошибка, не пойму.
Мне надо, что бы при команде !hubs вылазил текст, лежащий в директории ptokaXLoation scripts/text/
Помогите плиз ;-)
Автор: Setuper 7.3.2009, 18:34
Код
hubscmd = "!hubs"
hubsfile = "texts/hubs.txt"
function ChatArrival(curUser,data)
local data = string.sub(data,1,-2)
local s,e,cmd =string.find(data, "%b<>%s+(%S+)")
if cmd == hubscmd then
local h = io.open(frmHub:GetPtokaXLocation()..hubsfile)
if h then
curUser:SendPM("Bot", h:read"*a")
h:flush()
h:close()
end
end
end
function NewUserConnected(curUser)
curUser:SendData("$UserCommand 1 2 Ваше меню\\Внутрисетевые хабы$<%[mynick]> "..hubscmd.." %[nick]&#*124;")
end
OpConnected = NewUserConnected
Автор: SlavaX 7.3.2009, 19:30
Ура... Скрипт заработал. В конечном итоге получилось вот что... Если кому-то надо, пользуйтесь)
Код
sBot = "Глывый бот хаба"
hubscmd = "!hubs"
hubsfile = "scripts/texts/hubs.txt"
sitecmd = "!sites"
sitesfile = "scripts/texts/sites.txt"
function ChatArrival(User,data)
local data = string.sub(data,1,-2)
local s,e,cmd =string.find(data, "%b<>%s+(%S+)")
if cmd == hubscmd then
local h = io.open(frmHub:GetPtokaXLocation()..hubsfile)
if h then
User:SendPM(""..sBot.."", h:read"*a")
h:flush()
h:close()
end
return 1
end
if cmd == sitecmd then
local h = io.open(frmHub:GetPtokaXLocation()..sitesfile)
if h then
User:SendPM(""..sBot.."", h:read"*a")
h:flush()
h:close()
end
return 1
end
end
function NewUserConnected(User)
User:SendData("$UserCommand 1 2 Ваше меню\\Внутрисетевые хабы$<%[mynick]> "..hubscmd.." %[nick]|")
User:SendData("$UserCommand 1 2 Ваше меню\\Внутрисетевые сайты$<%[mynick]> "..sitecmd.." %[nick]|")
end
OpConnected = NewUserConnected
Делал сам, помог Setuper =) Ыыыы
Автор: Wariner 7.3.2009, 20:48
Не вижу смысла этого скрипта!!! Зачем он если есть в птоке есть функция вывода текстовых файлов?
Автор: Wariner 11.3.2009, 20:31
http://mydc.ru/topic1164s0.html?p=8573&#entry8573