/* СТИЛИ СТИЛИ СТИЛИ СТИЛИ СТИЛИ СТИЛИ СТИЛИ СТИЛИ СТИЛИ ССТИЛИ */

[#DCBEELINEKZ] БИЛАЙН ХАБЫ КАЗАХСТАН

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.



СКРИПТЫ

Сообщений 21 страница 24 из 24

1

21

Как сделать контекстное меню для команды

Допустим, у вас есть команда !rules, по которой показываются правила хаба, команда !hubs, по которой показываются хабы сети и команда !radio, по которой показываются транслируемые через сеть радиостанции. Вы хотите, чтобы эти команды можно было вызывать из контекстного меню хаба.

Код:
function UserConnected(tUser)
  Core.SendToUser(tUser,"$UserCommand 1 3 Меню хаба\\Правила хаба$<%[mynick]> !rules||"..
  "$UserCommand 1 3 Меню хаба\\Хабы-друзья$<%[mynick]> !hubs||"..
  "$UserCommand 1 3 Меню хаба\\Сетевое радио$<%[mynick]> !radio||")
end
RegConnected,OpConnected=UserConnected,UserConnected

22

Как запретить скачивать и искать на хабе незарегистрированным

Код:
local sMsg="Вы не зарегистрированы. Пользоваться поиском и скачивать запрещено!"
function ConnectToMeArrival(tUser)
  if tUser.iProfile==-1 then
    if Core then
      Core.SendToUser(tUser,sMsg)
    else
      tUser:SendData(sMsg)
    end
    return true
  end
end
RevConnectToMeArrival,SearchArrival=ConnectToMeArrival,ConnectToMeArrival

23

При конекте на хаб выдать юзеру случайную ASCII картинку в чат

Код:
--Конфигурация-----------------------------------------------------------------
sBotName = SetMan.GetString(21)	-- Имя бота

--Профилям = 0 картинка выдаваться не будет
tProfiles = {
[-1] = 1,	-- Unregs
[0] = 1,	-- Masters
[1] = 1,	-- Operators
[2] = 1,	-- Vips
[3] = 1,	-- Regs
[4] = 1,	-- CustomProf1
[5] = 1    -- CustomProf2
}

-------------------------------------------------------------------------------

function OnStartup()
sASCII = {
[1] = loadData(Core.GetPtokaXPath().."scripts/text/ASCII01.txt"),    --Грузим файлы с ASCII при старте скрипта
[2] = loadData(Core.GetPtokaXPath().."scripts/text/ASCII02.txt"),
[3] = loadData(Core.GetPtokaXPath().."scripts/text/ASCII03.txt"),
[4] = loadData(Core.GetPtokaXPath().."scripts/text/ASCII04.txt"),
[5] = loadData(Core.GetPtokaXPath().."scripts/text/ASCII05.txt"),
[6] = loadData(Core.GetPtokaXPath().."scripts/text/ASCII06.txt"),
[7] = loadData(Core.GetPtokaXPath().."scripts/text/ASCII07.txt"),
[8] = loadData(Core.GetPtokaXPath().."scripts/text/ASCII08.txt"),
[9] = loadData(Core.GetPtokaXPath().."scripts/text/ASCII09.txt"),
[10] = loadData(Core.GetPtokaXPath().."scripts/text/ASCII10.txt"),
[11] = loadData(Core.GetPtokaXPath().."scripts/text/ASCII11.txt"),
[12] = loadData(Core.GetPtokaXPath().."scripts/text/ASCII12.txt")
}
end

function UserConnected(sUser)
	if tProfiles[sUser.iProfile] ~= 0 then 
    Core.SendToUser(sUser, "<"..sBotName.."> \r\n" ..sASCII[math.random(12)].."\r\n")
	end
end

OpConnected, RegConnected = UserConnected, UserConnected

function loadData(file)
	local tmp = ""
	local f,e = io.open(file, "r")
	if f then 
    tmp = f:read("*a")
    f:close(f)
    return tmp
            else return "No such file or directory"
	end
end

24

БОТ ЛС МЕНЮ

Код:

bot = "ТЕХ.ПОДДЕРЖКА"
botDesc = " [МЕНЮ]"	--Описание бота
botTag = "RAFA"    	--Тэг бота
botEmail = "DCBEELINEKZ@mail.ru"    --еМайл бота

OnStartup = function()
	Core.RegBot(bot, botDesc.."<"..botTag..">", botEmail, true)
end

ToArrival = function(user, data)
	data = data:sub(1,-2)
	local sBot, nick, msg = data:match"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(.*)"
	if sBot == bot then
    Core.SendPmToUser(user, bot, "\n\t\t МЕНЮ ТЕХ.ПОДДЕРЖКИ [DCBEELINEKZ] \r\n\t\t RAFA")
    return true
	end
end