myDC.ru

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

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

> Скрипт MOTD

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


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

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




Автор: 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 attachmentsНерабочий скрипт ВИПа по шаре
16 Damaks 19 932 23.2.2023, 7:16 Посл. сообщение: mod
No new Topic has attachmentsMagneto - Бесплатный Скрипт Портала Обмена Dc-ссылками Для Локальной Сети
26 UserSide 41 122 27.8.2019, 11:01 Посл. сообщение: CyberGhost404
No New Posts От: Новогодний Скрипт
От темы с ID: 871
0 Евгений 3 167 15.10.2018, 21:44 Посл. сообщение: Евгений
No New Posts А бывают такой скрипт бота?
Скрипт который создает виртуалных юзеров, но с реальными шарами
5 MarkDark 8 091 26.12.2017, 10:47 Посл. сообщение: мамин_парень
No New Posts Скрипт: Бот который отвечает в лс
4 мамин_парень 7 768 11.11.2017, 5:57 Посл. сообщение: мамин_парень
No New Posts как сделать вот этот скрипт
12 мамин_парень 12 452 13.9.2017, 10:51 Посл. сообщение: dimetro
No New Posts Topic has attachmentsИщу скрипт переадресации (redirect)
Переадресация интернет-юзеров
3 AS_Com 7 178 27.8.2017, 8:05 Посл. сообщение: Ksan
No New Posts Topic has attachmentsСкрипт Thunder.lua
7 Евген76 15 267 9.8.2017, 11:48 Посл. сообщение: Ksan
No New Posts Требуется скрипт
Нужен скрипт запрета на подключение
5 Nikolaevich 9 451 20.8.2016, 19:52 Посл. сообщение: Ksan
No new ВАЖНО: Topic has attachmentsСкрипт банов для RusHub
тестим и комменьтруем
79 Wariner 104 251 28.9.2015, 13:34 Посл. сообщение: NeirRon
No New Posts Скрипт загрузки файла
1 FreeNas 6 407 21.7.2015, 10:58 Посл. сообщение: HackFresse
No new Как вызвать bash скрипт из Lua
14 Iskandark 17 205 3.3.2015, 12:42 Посл. сообщение: Iskandark
No new Topic has attachmentsНовогодний Скрипт
API2
22 Tsd 35 538 12.12.2014, 16:28 Посл. сообщение: Tsd
No New Posts Скрипт запрета видеть чат
запрет видеть чат
2 dimetro 7 270 5.12.2014, 17:37 Посл. сообщение: dimetro
No New Posts Topic has attachmentsпеределать скрипт kinozal.tv
6 BOKOREZ 12 963 30.10.2014, 18:29 Посл. сообщение: Dani_Filth

 



RSS Сейчас: 23.11.2024, 5:06