ФОРУМ АЛАТЫРЬ - ЛЮБИМЫЙ ГОРОД
http://alatyr.flyboard.ru/

Скрипты и игры для хаба
http://alatyr.flyboard.ru/topic107.html		 Страница 1 из 1
Автор:  alatyr [ 03-01, 15:32 ]
Заголовок сообщения:  Скрипты и игры для хаба
Давайте обмениваться скриптами для PtokaX и решать возникающие проблемы, учимся программировать!
Автор:  alatyr [ 03-01, 15:39 ]
Заголовок сообщения: 
Скрипты можно выкладывать полностью или прикреплять файлы к сообщению...для примера выложу один скрипт:
Для безопасности аккаунта ОПераторов и администраторов хаба от несанкционированного использования.


--[[

Скрипт: OpSecurity
Версия: 0.1
Автор: ']['yphoon™
Поддержка: Lua 5x

ОПИСАНИЕ: Маленький скрипт, целью которого является
обезопасить аккаунт ОПераторов и администраторов хаба
от несанкционированного использования.

]]--

tSetup={}
tSetup.Bot = "Пограничник" -- Имя бота
tSetup.Email = "admin@hub.ru" -- Email администратора хаба

-- Вписываем сюда ники и IP-адреса ОПераторов и мастеров хаба
tSetup.OpSecurity = {
["Админ"] = "89.ххх.ххх.ххх",
["Оператор"] = "89.ххх.ххх.хх",
}

function OpConnected(user)
if tSetup.OpSecurity[user.sName] then
local Name = user.sName
if ((tSetup.OpSecurity[Name] == user.sIP) or (tSetup.OpSecurity[Name] == "dynip")) then
user:SendPM(tSetup.Bot,"Проверка IP-адреса пройдена!")
else
local msg = ""
msg = msg.."\r\n\t\tВы были забанены за несанкционированное использование аккаунта админа хаба!"
msg = msg.."\r\n\t\tЕсли Вы действительно ОПератор хаба и просто сменили свой IP-адрес, то"
msg = msg.."\r\n\t\tСвяжитесь с администратором хаба: "..tSetup.Email
user:SendData(tSetup.Bot,msg)
user:Ban()
Unban(Name)
end
end
end
Автор:  BSL [ 06-01, 16:02 ]
Заголовок сообщения: 
давайте!
Автор:  alatyr [ 06-01, 20:42 ]
Заголовок сообщения: 
Скрипт для 0.3.6.0 Шобы не урезали скорость отдачи


-- Минимальное нижнее ограничение на отдачу в кб для каждого профиля:
tProfileLimits = {
[0] = 0, -- Администратор
[1] = 0, -- Оператор
[2] = 20, -- VIP
[3] = 50, -- Зарегистрированный пользователь
[-1] = 100, -- Незарегистрированный пользователь
}

sBot = frmHub:GetHubBotName()

function NewUserConnected(tCurUser)
CheckLimit(tCurUser)
end
OpConnected = NewUserConnected

function MyINFOArrival(tCurUser, sData)
if tCurUser.bConnected then
CheckLimit(tCurUser)
end
end

function CheckLimit(tCurUser)
local iLimit = tCurUser.iLlimit
local iCurProfileLimit = tProfileLimits[tCurUser.iProfile]
if iLimit < iCurProfileLimit and iLimit ~= 0 then
tCurUser:SendPM(sBot, "*** "..tCurUser.sName..", ваше ограничение скорости на отдачу имеет слишком маленький размер! Минимальная скорость отдачи для вашего профиля - "..iCurProfileLimit.." Кб/с, ваша - "..iLimit.." Кб/с. Увеличьте скорость отдачи в настройках/ограничение скорости")
tCurUser:Disconnect()
end
end
Автор:  alatyr [ 03-07, 15:38 ]
Заголовок сообщения: 
Типа баннера на хабе) для птоки 0.3.6.0

-- Banner 1.0b LUA 5
-- by Wampir 18/05/07
--
-- Send a banner ad to main chat
--
-- +Changes from 1.0 12/23/05
-- +Added centering function
-- +Added border 2
--
--
--«»«»[ User Settings ]«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
--Send command
BannerCmd = "+banner"
--Max length of allowed banner
MaxLength = 1000
--Border charachter for banner ad
BorderChar1 = "="
--Name for bot
--Bot = frmHub:GetHubBotName()
BannerBot = "Наташа"
--Menu name pulled from hub, uses hub name for menu
Menu = "Алатырский хаб"
--Custom submenu
--SubMenu ="General"
--Who may use this command/receive context menu
Profiles = {
[-1] = 0, --Unregistered User
[0] = 1, --Master
[1] = 1, --Operator
[2] = 1, --Vip
[3] = 1, --Registered User
[4] = 0, --Moderator
[5] = 0, --NetFounder
}
--«»«»[ End User Settings ]«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»

function Main()
if BannerBot ~= frmHub:GetHubBotName() then
frmHub:RegBot(BannerBot, 1, "Посылаю баннеры", "")
end
end

function NewUserConnected(user)
if Profiles[user.iProfile] == 1 then
user:SendData("$UserCommand 1 3 "..Menu.."\\Ресурсы хаба\\ => Баннер хаба$<mynick> "..BannerCmd.." %[line:тест банера]|")
end
end

OpConnected = NewUserConnected

function ChatArrival(user, data)
data=string.sub(data,1,-2)
local s,e,cmd = string.find(data, "%b<>%s+(%p%w+)")
local s,e,advert = string.find(data,"%b<>%s+%S+%s+(.+)")
if (cmd==BannerCmd) then
if not advert then
local reply1 = "нечего отослать , попробуй снова."
user:SendData(reply1)
return 1
elseif Profiles[user.iProfile] == 1 then
if cmd and advert then
if string.len(advert) > MaxLength then
local reply2 = "\tбаннер имеет слишком много символов ["..string.len(advert).."]. "..
"The maximum number characters allowed is "..MaxLength
user:SendData(reply2)
return 1
else
SendBanner(user,advert)
return 1
end
end
else
SendToNick(user.sName,"извините "..user.sName..", вы не можете использовать "..BannerCmd.." команды.")
return 1
end
end
end

function SendBanner(user,advert)
local border = "\r\n\r\n"
local border1 = border..string.rep("=",10).." баннер "..user.sName.." "..string.rep("=",75).."\r\n\r\n"
local border2 = border..string.rep("=",75).." баннер "..user.sName.." "..string.rep("=",10)..".\r\n."
if user and advert then
SendToAll(BannerBot,border1..Spacer(advert,string.len(border1))..advert..border2)
return 1
end
end

Spacer = function(str,len)
if str then
local tab = ""
if string.len(str) <len> 0 then
for x = 1,count do
tab = tab.."\t"
end
end
end
str = nil
return tab
end
end
Автор:  alatyr [ 23-08, 19:48 ]
Заголовок сообщения: 
Изображение
Страница 1 из 1 Часовой пояс: UTC + 4 часа
Powered by phpBB® Forum Software © phpBB Group
http://www.phpbb.com/