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

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

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

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

СКРИПТЫ

Страница:   1 2 3
Ответить

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

1

  • Автор: dcbeelinekz
  • Администратор
  • dcbeelinekz
  • Откуда: APPLE ATA
  • Зарегистрирован: 19.03.16
  • Последний визит:
    Сегодня 21:09

СКРИПТЫ ДЛЯ PTOKAX
http://mydc.ru/style_images/mydc_mains/logo.png

Избранный сборник от DCBEELINEKZ

1. История чата с сохранением в файл
2. FAQ СКРИПТ ОТ ХАБА DCBEELINEKZ
3. БОТ ПОЧТАЛЬОН
4. ЛОГ ВХОДА ПОЛЬЗОВАТЕЛЕЙ
5. ЛОГ
6. Скрипт создаёт менюшки к встроенным командам PtokaX
7. Сообщения пользователю при входе на хаб
8. Как сделать контекстное меню для команды

21

  • Автор: dcbeelinekz
  • Администратор
  • dcbeelinekz
  • Откуда: APPLE ATA
  • Зарегистрирован: 19.03.16
  • Последний визит:
    Сегодня 21:09

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

Допустим, у вас есть команда !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

  • Автор: dcbeelinekz
  • Администратор
  • dcbeelinekz
  • Откуда: APPLE ATA
  • Зарегистрирован: 19.03.16
  • Последний визит:
    Сегодня 21:09

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

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

  • Автор: dcbeelinekz
  • Администратор
  • dcbeelinekz
  • Откуда: APPLE ATA
  • Зарегистрирован: 19.03.16
  • Последний визит:
    Сегодня 21:09

При конекте на хаб выдать юзеру случайную 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
Ответить
Страница:   1 2 3