myDC.ru

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

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

> Добавте

Теги
Нет тегов для показа
Fislons
сообщение 19.11.2008, 1:57
Сообщение #1


Активный участник
***

Группа: Пользователи
Сообщений: 55
Регистрация: 20.9.2008
Из: г. Харьков
Пользователь №: 565
Спасибо сказали: 1 раз




CODE
function NewUserConnected(user)
GetCommands(user)
end

function GetCommands(user)
if (user.iProfile == -1) then
UserCommands(user)
end
if (user.iProfile == 3) then
UserCommands(user)
end
if (user.iProfile == 3) then
UserCommands(user)
end
if (user.iProfile == 1) then
UserCommands(user)
end
if (user.iProfile == 0) then
UserCommands(user)
end
end
-------------------------------------
menu = frmHub:GetHubName()
-------------------------------------
HubAdmin = "Fislons" -- Главный Администратор.
hubname = frmHub:GetHubName()
bot = frmHub:GetHubBotName()
hubtopic = frmHub:GetHubTopic()
hubonline = string.format("%.0f minute",frmHub:GetUpTime() / 60)
description = frmHub:GetHubDescr()
hubaddress = frmHub:GetHubAddress()
hubport = frmHub:GetHubPort()
hubudpport = frmHub:GetHubUdpPort()
hubusersmax = frmHub:GetMaxUsers()
users_1= frmHub:GetUsersCount()
users= users_1+1
RegisteredUsers = frmHub:GetUsersCount()
-------------------------------------


NewUserConnected = function(user)
user:SendData("$UserCommand 1 3 "..menu.."\\® Правила хаба\\® Показать правила$<%[mynick]>|")
user:SendData("$UserCommand 0 3")
user:SendData("$UserCommand 1 3 "..menu.."\\® Правила хаба\\»» Пункт 1$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\® Правила хаба\\»» Пункт 2$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\® Правила хаба\\»» Пункт 3$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\® Правила хаба\\»» Пункт 4$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\® Правила хаба\\»» Пункт 5$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Ваша информация\\»» Ip: "..user.sIP.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Ваша информация\\»» Nick: "..user.sName.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Ваша информация\\»» Email: "..user.sEmail.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Ваша информация\\»» Описание: "..user.sDescription.."$<%[mynick]>|")
function GetTime()
return os.date("%H.%M.%S")
end
function GetDate()
return os.date("%d.%m.%y")
end
time = GetTime()
date = GetDate()
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Ваша информация\\»» Вы вошли на хаб: "..date.." в "..time.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Статистика хаба\\»» Бот: "..bot.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Статистика хаба\\»» Топик: "..hubtopic.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Статистика хаба\\»» Адресс: "..hubaddress.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Статистика хаба\\»» TCP порт: "..hubport.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Статистика хаба\\»» UDP порт: "..hubudpport.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Статистика хаба\\»» Владелец: "..HubAdmin.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Статистика хаба\\»» Название: "..hubname.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Статистика хаба\\»» Описание: "..description.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Статистика хаба\\»» Хаб онлаин: "..hubonline.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Статистика хаба\\»» Зарег.юзеров: "..RegisteredUsers.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Статистика хаба\\»» Оналин юзеров: "..users.." users$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Статистика хаба\\»» Вместительность: "..hubusersmax.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Часто задоваемые вопросы (FAQ)$<%[mynick]> !faq|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Сайты г.Харьков$<%[mynick]> !sites|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Партнёры хаба$<%[mynick]> !partners|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Телефоны, адресса\\»» Экстранные телефоны$<%[mynick]> !urgent|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Телефоны, адресса\\»» Полезные телефоны$<%[mynick]> !poleznt|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Телефоны, адресса\\»» Кинотеатры$<%[mynick]> !kinot|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Информация\\»» Обратная связь$<%[mynick]> !obrat|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Наши ресурсы\\»» Сайт$<%[mynick]> !ressite|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Наши ресурсы\\»» Форум$<%[mynick]> !resforum|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Услуги хаба\\»» Создания хаба$<%[mynick]> !uslhub|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Услуги хаба\\»» Создания портала$<%[mynick]> !uslportal|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Услуги хаба\\»» Создания форума$<%[mynick]> !uslforum|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Услуги хаба\\»» Регистрация домена$<%[mynick]> !usldomen|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Реклама\\»» Как добавить свою рекламу?$<%[mynick]> !reklama|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Реклама\\»» Текущая реклама\\»» В данный момент нет опубликаций$<%[mynick]> !usldomen|")
user:SendData("$UserCommand 1 3 "..menu.."\\»» Разбан на хабе$<%[mynick]> !razban|")

end
OpConnected = NewUserConnected

Помогите доделать его:
Вот я Видел хаб, в меню было: Информация про Ботав (статус: онл.оффл.) и что то ещё не припомню, помогите сюда добавить в информацию всё что хто значет командами ПЛЗ! - Какой командой пишеться Клиент,Слоты,3х1 (Включённых хабов у вас,Из них вы зарегиины, из них вы оп),

И ещё, не по в тему, но сюда.. Прикрепленный файл  screen.JPG ( 143.99 килобайт ) Кол-во скачиваний: 57
Есть такие топы для Птоки?
--
Все знают скрипт "Юзер инфо" по команде "!ii 192.168.126.155" оно выдаёт:
CODE
---------------------------------------------------------------------------------------------------------
¦ Информация о: 192.168.126.155 (последние 20 записей)
---------------------------------------------------------------------------------------------------------
¦ Fislons (использовался 17 раз, последний раз 11/19/08 00:27:36)
---------------------------------------------------------------------------------------------------------

Вот оно работает только с Ip-adressom, вот а надо что б с диапозоном "!ii 192.168.126." и оно мне:
CODE
---------------------------------------------------------------------------------------------------------
¦ Показано 1 результатов, с началом в: 0, всего результатов: 1
¦ Запрос: 192.168.126.*
---------------------------------------------------------------------------------------------------------
¦ Сейчас используется:
¦ Fislons 192.168.126.155
¦ RaSSeLL 192.168.126.153
---------------------------------------------------------------------------------------------------------

Пожайлусто кто умеент - зделайте.....
Go to the top of the page
+Quote Post

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

 



RSS Сейчас: 7.5.2024, 20:12