myDC.ru

Здравствуйте, гость ( Вход | Регистрация )

 
 
Ответить в данную темуНачать новую тему

> Комманды И Текст, Помогите пожалуйста ;-)

Теги
Нет тегов для показа
SlavaX
сообщение 7.3.2009, 18:24
Сообщение #1


Начинающий
*

Группа: Пользователи
Сообщений: 11
Регистрация: 12.10.2008
Пользователь №: 785
Спасибо сказали: 0 раз




Я покачто нуб в этих делах, и буду очень признателен и благодарен, если поможете разобраться с одной вещью
Код
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/

Помогите плиз ;-)
Go to the top of the page
+Quote Post
Setuper
сообщение 7.3.2009, 18:34
Сообщение #2


RusHub team lead
**************

Группа: Модераторы
Сообщений: 4 030
Регистрация: 20.6.2008
Из: г. Королёв (Моск. обл.)
Пользователь №: 46
Спасибо сказали: 1708 раз




Код
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


Спасибо сказали:
Go to the top of the page
+Quote Post
SlavaX
сообщение 7.3.2009, 19:30
Сообщение #3


Начинающий
*

Группа: Пользователи
Сообщений: 11
Регистрация: 12.10.2008
Пользователь №: 785
Спасибо сказали: 0 раз




Ура... Скрипт заработал. В конечном итоге получилось вот что... Если кому-то надо, пользуйтесь)
Код
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 =) Ыыыы
Go to the top of the page
+Quote Post
Accelerator
сообщение 7.3.2009, 19:42
Сообщение #4


Developer
******

Группа: Модераторы
Сообщений: 541
Регистрация: 11.11.2008
Пользователь №: 1 075
Спасибо сказали: 244 раза




А можно API2


Спасибо сказали:
Go to the top of the page
+Quote Post
Wariner
сообщение 7.3.2009, 20:48
Сообщение #5


Самый главный активист :-D
***********

Группа: Модераторы
Сообщений: 2 790
Регистрация: 29.6.2008
Из: г. Тула
Пользователь №: 97
Спасибо сказали: 440 раз




Не вижу смысла этого скрипта!!! Зачем он если есть в птоке есть функция вывода текстовых файлов?
Go to the top of the page
+Quote Post
SlavaX
сообщение 11.3.2009, 20:09
Сообщение #6


Начинающий
*

Группа: Пользователи
Сообщений: 11
Регистрация: 12.10.2008
Пользователь №: 785
Спасибо сказали: 0 раз




А где эта функция?
Go to the top of the page
+Quote Post
Wariner
сообщение 11.3.2009, 20:31
Сообщение #7


Самый главный активист :-D
***********

Группа: Модераторы
Сообщений: 2 790
Регистрация: 29.6.2008
Из: г. Тула
Пользователь №: 97
Спасибо сказали: 440 раз




http://mydc.ru/topic1164s0.html?p=8573&#entry8573
Go to the top of the page
+Quote Post

Ответить в данную темуНачать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

Collapse

> Похожие темы

  Тема Ответов Автор Просмотров Последнее сообщение
Closed Подскажите как убрать текст
6 saber 9 843 26.8.2010, 22:24 Посл. сообщение: Saymon21
No New Posts Topic has attachmentsтекст в скрипте
13 random name 15 458 14.4.2010, 15:59 Посл. сообщение: jumshut
No New Posts Текст в приват
1 denis 5 308 1.2.2010, 22:55 Посл. сообщение: Saymon21
Closed Комманды
Плиз, вопрос такой вот есть)
4 SlavaX 7 113 22.2.2009, 12:12 Посл. сообщение: Setuper
Closed Текст В Лс
11 Владимир 14 226 6.2.2009, 1:51 Посл. сообщение: Владимир
No New Posts От: Текст В Лс
От темы с ID: 1283
0 FallenAngel 4 435 5.2.2009, 14:03 Посл. сообщение: FallenAngel

 



RSS Сейчас: 23.12.2024, 17:38