myDC.ru

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

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

> Скрипт MOTD

ShadoWx
сообщение 23.9.2011, 8:44
Сообщение #1


Освоившийся участник
*****

Группа: Пользователи
Сообщений: 216
Регистрация: 23.10.2008
Из: Саратов
Пользователь №: 865
Спасибо сказали: 59 раз




Автор: Saymon
Установка: создать в корне (где лежит бинарник) папку texts внутри которой файлик - motd.txt

Сам скрипт:
Раскрывающийся текст
Код
_TRACEBACK=debug.traceback
tProfiles = {
    [0]="Администратор",
    [1]="Модератор",
    [2]="VIP",
    [3]="Юзер",
    [-1]="Гость"
}


function OnStartup()
    sHelloMsg = LoadText(Core.sMainDir.."texts/motd.txt")
end
function LoadText(sFileWay)
    local sMessage = ""
    local sFile = io.open(sFileWay, "r" )
    if sFile then
        sMessage = sFile:read("*all")
        sFile:close()
    end
    return sMessage
end
function DoShareUnits(iSize)
    local tShareUnits = {"Б", "КБ", "МБ", "ГБ", "ТБ", "ПБ"}
    local iTableSize = table.maxn(tShareUnits)
    local iSize = tonumber(iSize)
    local sUnits = ""
    for iTablePos = 1, iTableSize do
        if iSize < 1024 or iTablePos == iTableSize then
            sUnits = tShareUnits[iTablePos]
            break
        else
            iSize = iSize / 1024
        end
    end
    local sSize = string.format("%0.2f %s", iSize, sUnits)
    local sSize = string.gsub(sSize, "%.", ",")
    local _,_, s1stChar, s2ndChar = string.find(sSize, "%d+,(%d)(%d)")
    local s1stChar, s2ndChar = tonumber(s1stChar), tonumber(s2ndChar)
    if s2ndChar == 0 then
        sSize = string.gsub(sSize, ","..s1stChar..s2ndChar, ","..s1stChar)
        if s1stChar == 0 then
            sSize = string.gsub(sSize, ","..s1stChar, "")
        end
    end
    return sSize
end

function OnUserEnter(tUser)
local sHelloMsg = sHelloMsg:gsub("%[(%S+)%]", {
        onlineusers = Core.GetUsersCount(),
        hubshare = DoShareUnits(Core.GetTotalShare()),
        nick = tUser.sNick,
        ip = tUser.sIP,
        profile = tProfiles[tUser.iProfile],
        port = tUser.iPortConn,
        realport = tUser.iPort,
        mac = tUser.sMacAddress,
        --[[description = tUser.sDescription,
        tag = tUser.sTag,
        client = tUser.sClient,
        clientversion = tUser.sClientVersion,
        mode = tUser.sMode,
        normalhubs = tUser.iNormalHubs,
        reghubs = tUser.iRegHubs,
        ophubs = tUser.iOpHubs,
        hubs = tUser.iHubs,
        slots = tUser.iSlots,
        llimit = tUser.iLlimit,]]
    })
    Core.SendToUser(tUser,sHelloMsg,"Network")
end


Спасибо сказали:
Go to the top of the page
+Quote Post

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

Collapse

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

  Тема Ответов Автор Просмотров Последнее сообщение
No new Topic has attachmentsMagneto - Бесплатный Скрипт Портала Обмена Dc-ссылками Для Локальной Сети
26 UserSide 25 206 27.8.2019, 11:01 Посл. сообщение: CyberGhost404
No New Posts От: Новогодний Скрипт
От темы с ID: 871
0 Евгений 695 15.10.2018, 21:44 Посл. сообщение: Евгений
No New Posts А бывают такой скрипт бота?
Скрипт который создает виртуалных юзеров, но с реальными шарами
5 Astalavista 2 611 26.12.2017, 10:47 Посл. сообщение: мамин_парень
No New Posts Скрипт: Бот который отвечает в лс
4 мамин_парень 2 517 11.11.2017, 5:57 Посл. сообщение: мамин_парень
No New Posts как сделать вот этот скрипт
12 мамин_парень 4 261 13.9.2017, 10:51 Посл. сообщение: dimetro
No New Posts Topic has attachmentsИщу скрипт переадресации (redirect)
Переадресация интернет-юзеров
3 AS_Com 2 624 27.8.2017, 8:05 Посл. сообщение: Ksan
No New Posts Topic has attachmentsСкрипт Thunder.lua
7 Евген76 9 358 9.8.2017, 11:48 Посл. сообщение: Ksan
No New Posts Требуется скрипт
Нужен скрипт запрета на подключение
5 Nikolaevich 4 376 20.8.2016, 19:52 Посл. сообщение: Ksan
No new ВАЖНО: Topic has attachmentsСкрипт банов для RusHub
тестим и комменьтруем
79 Wariner 67 210 28.9.2015, 13:34 Посл. сообщение: NeirRon
No New Posts Скрипт загрузки файла
1 FreeNas 3 060 21.7.2015, 10:58 Посл. сообщение: HackFresse
No new Как вызвать bash скрипт из Lua
14 Iskandark 8 521 3.3.2015, 12:42 Посл. сообщение: Iskandark
No new Topic has attachmentsНовогодний Скрипт
API2
22 Tsd 23 820 12.12.2014, 16:28 Посл. сообщение: Tsd
No New Posts Скрипт запрета видеть чат
запрет видеть чат
2 dimetro 3 735 5.12.2014, 17:37 Посл. сообщение: dimetro
No New Posts Topic has attachmentsпеределать скрипт kinozal.tv
6 BOKOREZ 7 510 30.10.2014, 18:29 Посл. сообщение: Dani_Filth
No New Posts Нужен скрипт
mysql, ip filter
2 shadow3c 4 431 20.8.2014, 20:30 Посл. сообщение: shadow3c

 



RSS Сейчас: 19.1.2020, 10:54