Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
MyDC.ru _ Kорзина _ нужна помощь
Автор: EW ХАБЫЧ 30.10.2009, 20:47
помогите переделать скрипт. хочу зделать чтобы выбираеш пункт меню, нажимаеш и в гл чат выходит сообщение: Иформация отправлена в ЛС и сообщение с инфой отсылалось в лс
Раскрывающийся текст
sBot = SetMan.GetString(21) -- имя бота
tProfile = {
[-1] = 1, [0] = 1, [1] = 1, [2] = 1, [3] = 1, [4] = 1,
} -- кому доступно меню
function UserConnected(user)
Core.GetUserAllData(user)
if tProfile[user.iProfile] == 1 then
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\игровые сервера\\Warcraft III, DotA, Starcraft $<%[mynick]> !wds||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\игровые сервера\\Team Fortress 2 Сервер (ew+ic+il) $<%[mynick]> !tf||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\игровые сервера\\San Andreas - Multiplayer, Круглосуточно (Test)$<%[mynick]> !sanandr|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\игровые сервера\\Etherway NFS: Pro Street Server$<%[mynick]> !nfspro|") -- пункты меню
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\игровые сервера\\Call of Duty 2$<%[mynick]> !cod2||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\игровые сервера\\WoW Reincarnation $<%[mynick]> !wow||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\игровые сервера\\Prey $<%[mynick]> !prey||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\игровые сервера\\Ranger Battlefield 2 Server $<%[mynick]> !bf|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\Ресурсы сети$<%[mynick]> !klan||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\Избранные хабы$<%[mynick]> !fhubs||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\Сайты$<%[mynick]> !sites||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\Радио$<%[mynick]> !radio||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Поисковики$<%[mynick]> !screan||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы в инете$<%[mynick]> !resursin||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Благодарности юзерам$<%[mynick]> !doc||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Информация о нашем хабе$<%[mynick]> !hubinfa||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Правила хаба$<%[mynick]> !pravila||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Вэб статистика хаба$<%[mynick]> !webstat||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Вэб лог чата$<%[mynick]> !weblog||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Список наших серверов$<%[mynick]> !nasservera||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Спонсоры$<%[mynick]> !спонсоры||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Реквизиты$<%[mynick]> !реквизиты||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Наши админы$<%[mynick]> !admins||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Информация о настройках\\ICQ$<%[mynick]> !icq||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Информация о настройках\\Настройка DC++$<%[mynick]> !dc||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Информация о настройках\\Необходимый минимум настроек uTorrent$<%[mynick]> !uTorrent|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Информация о настройках\\Распространенные ошибки VPN, причины и способы устранения$<%[mynick]> !vpn|") -- пункты меню
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Правовая оговорка$<%[mynick]> !pog||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Сообщение от хаба$<%[mynick]> !meshub||")
end
end
OpConnected = UserConnected
RegConnected = UserConnected
tProfile = {
[-1] = 1, [0] = 1, [1] = 1, [2] = 1, [3] = 1, [4] = 1,
} -- кому доступно меню
function UserConnected(user)
Core.GetUserAllData(user)
if tProfile[user.iProfile] == 1 then
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\игровые сервера\\Warcraft III, DotA, Starcraft $<%[mynick]> !wds||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\игровые сервера\\Team Fortress 2 Сервер (ew+ic+il) $<%[mynick]> !tf||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\игровые сервера\\San Andreas - Multiplayer, Круглосуточно (Test)$<%[mynick]> !sanandr|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\игровые сервера\\Etherway NFS: Pro Street Server$<%[mynick]> !nfspro|") -- пункты меню
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\игровые сервера\\Call of Duty 2$<%[mynick]> !cod2||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\игровые сервера\\WoW Reincarnation $<%[mynick]> !wow||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\игровые сервера\\Prey $<%[mynick]> !prey||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\игровые сервера\\Ranger Battlefield 2 Server $<%[mynick]> !bf|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\Ресурсы сети$<%[mynick]> !klan||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\Избранные хабы$<%[mynick]> !fhubs||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\Сайты$<%[mynick]> !sites||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы Etherway\\Радио$<%[mynick]> !radio||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Поисковики$<%[mynick]> !screan||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Ресурсы в инете$<%[mynick]> !resursin||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Благодарности юзерам$<%[mynick]> !doc||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Информация о нашем хабе$<%[mynick]> !hubinfa||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Правила хаба$<%[mynick]> !pravila||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Вэб статистика хаба$<%[mynick]> !webstat||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Вэб лог чата$<%[mynick]> !weblog||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Список наших серверов$<%[mynick]> !nasservera||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Спонсоры$<%[mynick]> !спонсоры||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Реквизиты$<%[mynick]> !реквизиты||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Наши админы$<%[mynick]> !admins||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Информация о настройках\\ICQ$<%[mynick]> !icq||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Информация о настройках\\Настройка DC++$<%[mynick]> !dc||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Информация о настройках\\Необходимый минимум настроек uTorrent$<%[mynick]> !uTorrent|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Информация о настройках\\Распространенные ошибки VPN, причины и способы устранения$<%[mynick]> !vpn|") -- пункты меню
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Правовая оговорка$<%[mynick]> !pog||")
Core.SendToNick(user.sNick,"$UserCommand 1 3 Меню хаба\\Информация для "..user.sNick.."\\Сообщение от хаба$<%[mynick]> !meshub||")
end
end
OpConnected = UserConnected
RegConnected = UserConnected
Автор: Wariner 31.10.2009, 9:42
А с какой целью? человек может не увидеть открывшуюся личку?!
Автор: EW ХАБЫЧ 31.10.2009, 10:13
Цитата(Wariner @ 31.10.2009, 11:42) 
А с какой целью? человек может не увидеть открывшуюся личку?!
не повериш!, но да. был юзер у которова личка в фоновом режиме открывалась, так тот в моё недолгое отсутствие завалил притензиями мою личку, а потом начал писать на форум.
Автор: X-Sky 8.11.2009, 22:44
И тишина..))
Автор: Nickolya 9.11.2009, 9:42
По-моему тут надо искать проблему не в скриптах, а в головах людей... Но если так интересно, можно вписать фразу в http://mydc.ru/topic1231.html, если сами не сделаете - пишите в ту тему, скажу куда и что. Или же есть вариант с простым скриптом, который, к примеру, отлавливает команду и отсылает сообщение:
Код
-- таблица с командами:
tCmds = {
["wds"] = true,
["nfspro"] = true,
["someanothercmd"] = true,
}
-- фраза для отправки:
sSendPhrase = "вам отправлено личное приватное сообщение, прочтите его!"
function OnStartup()
sBot = SetMan.GetString(21)
end
function ChatArrival(tUser, sData)
local sCmd = sData:match("^%b<>%s+%p(%S+).*|$")
if sCmd then
sCmd = sCmd:lower()
if tCmds[sCmd] then
Core.SendToUser(tUser, "<"..sBot.."> *** "..tUser.sNick..", "..sSendPhrase)
end
end
end
tCmds = {
["wds"] = true,
["nfspro"] = true,
["someanothercmd"] = true,
}
-- фраза для отправки:
sSendPhrase = "вам отправлено личное приватное сообщение, прочтите его!"
function OnStartup()
sBot = SetMan.GetString(21)
end
function ChatArrival(tUser, sData)
local sCmd = sData:match("^%b<>%s+%p(%S+).*|$")
if sCmd then
sCmd = sCmd:lower()
if tCmds[sCmd] then
Core.SendToUser(tUser, "<"..sBot.."> *** "..tUser.sNick..", "..sSendPhrase)
end
end
end