myDC.ru

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

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

> Как Сделать Такое Меню?, API2

Теги
Нет тегов для показа
Lpein
сообщение 9.1.2009, 0:43
Сообщение #1


Участник
**

Группа: Пользователи
Сообщений: 35
Регистрация: 2.12.2008
Пользователь №: 1 278
Спасибо сказали: 0 раз




Как зделать так, чтобы в меню хаба отображались данные пользователя? Например, пользователь кликает и выводится меню. Первая строка там такая:"Меню для (тут ник пользователя)". Когда он наводит на эту строку, появляется подменю где первая строка такова:"Ваш ip:(тут ip пользователя)".
Думаю такое меню должно придать хабу оригинальность.
Go to the top of the page
+Quote Post
Setuper
сообщение 9.1.2009, 1:49
Сообщение #2


RusHub team lead
**************

Группа: Модераторы
Сообщений: 4 030
Регистрация: 20.6.2008
Из: г. Королёв (Моск. обл.)
Пользователь №: 46
Спасибо сказали: 1708 раз




Код
function UserConnected(tUser)
  Core.SendToUser(tUser,"$UserCommand 1 2 Меню для "..tUser.sNick.."\\Ваш ip: "..tUser.sIP.."$<%[mynick]> /me Мой ip: "..tUser.sIP.."&#*124;")
end
RegConnected=UserConnected
OpConnected=UserConnected

* - удалить
Go to the top of the page
+Quote Post
Fislons
сообщение 9.1.2009, 11:27
Сообщение #3


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

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




Цитата(Setuper @ 9.1.2009, 2:49) *
Код
function UserConnected(tUser)
  Core.SendToUser(tUser,"$UserCommand 1 2 Меню для "..tUser.sNick.."\\Ваш ip: "..tUser.sIP.."$<%[mynick]> /me Мой ip: "..tUser.sIP.."&#*124;")
end
RegConnected=UserConnected
OpConnected=UserConnected

* - удалить

А как зделать что б итог "[10:25:47] * Fislons Мой ip: 127.0.0.7" показывался только мне??
Go to the top of the page
+Quote Post
Lpein
сообщение 9.1.2009, 12:15
Сообщение #4


Участник
**

Группа: Пользователи
Сообщений: 35
Регистрация: 2.12.2008
Пользователь №: 1 278
Спасибо сказали: 0 раз




Спасибо! А что надо вставить вместо ..tUser.sIP.. чтобы показывало шару? А вообще что можно туда внедрить заместо ..tUser.sIP..?
Go to the top of the page
+Quote Post
Setuper
сообщение 9.1.2009, 12:56
Сообщение #5


RusHub team lead
**************

Группа: Модераторы
Сообщений: 4 030
Регистрация: 20.6.2008
Из: г. Королёв (Моск. обл.)
Пользователь №: 46
Спасибо сказали: 1708 раз




Цитата(Fislons @ 9.1.2009, 11:27) *
А как зделать что б итог "[10:25:47] * Fislons Мой ip: 127.0.0.7" показывался только мне??

лучше над этим не заморачиваться, так как для этого надо будет много написать кода))))

Вместо ip чтобы шара была делается так:
Код
function UserConnected(tUser)
  Core.GetUserData(tUser,16)
  Core.SendToUser(tUser,"$UserCommand 1 2 Меню для "..tUser.sNick.."\\Ваша шара: "..tUser.iShareSize.." байт$<%[mynick]> /me Моя шара: "..tUser.iShareSize.."  байт&#*124;")
end
RegConnected=UserConnected
OpConnected=UserConnected


Цитата
User data IDs for Core.GetUserData call.
-------------------
0 - sMode
1 - sMyInfoString
2 - sDescription
3 - sTag
4 - sConnection
5 - sEmail
6 - sClient
7 - sClientVersion
8 - sVersion
9 - bConnected
10 - bActive
11 - bOperator
12 - bUserCommand
13 - bQuickList
14 - bSuspiciousTag
15 - iProfile
16 - iShareSize
17 - iHubs
18 - iNormalHubs
19 - iRegHubs
20 - iOpHubs
21 - iSlots
22 - iLlimit
23 - iDefloodWarns
24 - iMagicByte
25 - iLoginTime
26 - sCountryCode


Читаем файл scripting-interface.txt, и меньше вопросов будет


Спасибо сказали:
Go to the top of the page
+Quote Post
Lpein
сообщение 9.1.2009, 14:54
Сообщение #6


Участник
**

Группа: Пользователи
Сообщений: 35
Регистрация: 2.12.2008
Пользователь №: 1 278
Спасибо сказали: 0 раз




Всё понятно, большое спасибо.

Вот слепил скрипт. Думаю, кому нибуть пригодится. При нажатии на меню выдаёт комманды, их вы можете изменить.
Прикрепленные файлы
Прикрепленный файл  UserMenu.lua ( 1.64 килобайт ) Кол-во скачиваний: 53
 
Go to the top of the page
+Quote Post
Setuper
сообщение 9.1.2009, 15:36
Сообщение #7


RusHub team lead
**************

Группа: Модераторы
Сообщений: 4 030
Регистрация: 20.6.2008
Из: г. Королёв (Моск. обл.)
Пользователь №: 46
Спасибо сказали: 1708 раз




Если в скрипте используется много данных о пользователе (больше 2 полей таблицы пользователя), то можно вместо многократного использования функции Core.GetUserData(tUser,iNumber) написать 1 раз функцию Core.GetUserAllData(tUser)
Go to the top of the page
+Quote Post
Lpein
сообщение 9.1.2009, 15:59
Сообщение #8


Участник
**

Группа: Пользователи
Сообщений: 35
Регистрация: 2.12.2008
Пользователь №: 1 278
Спасибо сказали: 0 раз




Переделал. Тестим.
Прикрепленные файлы
Прикрепленный файл  UserMenu.lua ( 1.74 килобайт ) Кол-во скачиваний: 71
 
Go to the top of the page
+Quote Post
Fislons
сообщение 9.1.2009, 19:47
Сообщение #9


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

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




CODE
----------------- Script menu by Fislons (kharkov) -¦2007¦-
NewUserConnected = function(user,data)

byte = 1
Kbyte = byte*1024
Mbyte = Kbyte*Kbyte
Gbyte = Kbyte*Kbyte*Kbyte
Tbyte = Kbyte*Kbyte*Kbyte*Kbyte
share = user.iShareSize/Gbyte
email = user.sEmail
hubname = frmHub:GetHubName()
bot = frmHub:GetHubBotName()
hubtopic = frmHub:GetHubTopic()
hubonline = string.format("%.0f minute",frmHub:GetUpTime() / 60)
hubshare = string.format("%.3f Tb.",(frmHub:GetCurrentShareAmount()+user.iShareSize)/(1024 * 1024 * 1024 * 1024))
hubusersmax = frmHub:GetMaxUsers()
description = frmHub:GetHubDescr()
hubaddress = frmHub:GetHubAddress()
hubport = frmHub:GetHubPort()
hubudpport = frmHub:GetHubUdpPort()
RegisteredUsers = frmHub:GetUsersCount()
maxslots = frmHub:GetMaxSlots()




if (share == nil) then
share = "Нет шары" -- Если ничего не расшарено.
end
if (email == nil) then
email = "E-mail не указан" -- Если E-mail не указан.
end
if (hubtopic == nil) then
hubtopic = "Топик не задан" -- Если топик не задан.
end
if (user.iProfile == -1) then
profile = "Незарегестрированный юзер"
end
if (user.iProfile == 3) then
profile = "Зарегестрированный юзер"
end
if (user.iProfile == 2) then
profile = "VIP-юзер"
end
if (user.iProfile == 1) then
profile = "Оператор"
end
if (user.iProfile == 0) then
profile = "Мастер"
end
if (description == nil) then
description = "Описание не заданно" -- Если Описание не заданно.
end

if (user.iProfile == -1) or (user.iProfile == 0) or (user.iProfile == 1) or (user.iProfile == 2) or (user.iProfile == 3) then
user:SendData("$UserCommand 1 3 "..hubname.."\\»» Информация\\»» Ваша информация\\»» IP: "..user.sIP.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..hubname.."\\»» Информация\\»» Ваша информация\\»» Ник: "..user.sName.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..hubname.."\\»» Информация\\»» Ваша информация\\»» Шара: "..share.." GB$<%[mynick]> !шара|")
user:SendData("$UserCommand 1 3 "..hubname.."\\»» Информация\\»» Ваша информация\\»» E-mail: "..email.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..hubname.."\\»» Информация\\»» Ваша информация\\»» Профиль: "..profile.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..hubname.."\\»» Информация\\»» Ваша информация\\»» Описание: "..user.sDescription.."$<%[mynick]>|")
share= user.iShareSize
Antinul()
users_1= frmHub:GetUsersCount()
users= users_1+1
user:SendData("$UserCommand 1 3 "..hubname.."\\»» Информация\\»» Статистика хаба\\»» Шара: "..hubshare.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..hubname.."\\»» Информация\\»» Статистика хаба\\»» Топик: "..hubtopic.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..hubname.."\\»» Информация\\»» Статистика хаба\\»» Описание: "..description.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..hubname.."\\»» Информация\\»» Статистика хаба\\»» Названия: "..hubname.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..hubname.."\\»» Информация\\»» Статистика хаба\\»» Хаб онлаин: "..hubonline.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..hubname.."\\»» Информация\\»» Статистика хаба\\»» Адресс хаба: "..hubaddress..":"..hubport.."/"..hubudpport.."$<%[mynick]>|")
user:SendData("$UserCommand 1 3 "..hubname.."\\»» Информация\\»» Статистика хаба\\»» Юзеров Onlain: "..users.."/"..hubusersmax.."$<%[mynick]>|")

end
end

OpConnected = NewUserConnected

function Antinul()
if frmHub:GetCurrentShareAmount() == 0 then
parcial = 100
else parcial = share/(frmHub:GetCurrentShareAmount()+share)*100
end
end


Вот это моё меню под API переделай се под 2-й big_smile.gif
Go to the top of the page
+Quote Post
Gangster-Toni
сообщение 13.1.2009, 23:16
Сообщение #10


Участник
**

Группа: Пользователи
Сообщений: 48
Регистрация: 4.1.2009
Из: Чернобыль
Пользователь №: 1 669
Спасибо сказали: 1 раз




оооо ваще прикольный скрипт! г г г мне понравился автор лови репу+++ big_smile1.gif
Go to the top of the page
+Quote Post

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

Collapse

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

  Тема Ответов Автор Просмотров Последнее сообщение
No New Posts как сделать вот этот скрипт
12 мамин_парень 12 408 13.9.2017, 10:51 Посл. сообщение: dimetro
No New Posts Topic has attachmentsНужно сделать изменение в скрипте Антипорно
Переделать переменную в функцию
5 thehawk 9 665 21.10.2014, 21:23 Посл. сообщение: thehawk
No New Posts Меню на хабе Ptoka 0.5.0.0
Свое меню с вызовом функций
4 daslex 8 723 17.11.2013, 15:05 Посл. сообщение: daslex
No New Posts Как сделать, чтобы пароли кодировал?
7 RAZORkhv 11 124 9.10.2013, 15:42 Посл. сообщение: Alexey
Closed Topic has attachmentsАдмин меню
Админ меню под API2 для PtokaX 0.4.2.0
8 Strannik 12 579 24.3.2012, 14:36 Посл. сообщение: Strannik
No New Posts Что такое хороший хаб?
Немного рассуждений на тему критериев качества хаба
13 Enyby 11 847 21.1.2012, 21:15 Посл. сообщение: SKIFI
Closed помогите сделать скрипт
18 max666 18 849 2.12.2011, 19:38 Посл. сообщение: Nickolya
No New Posts Скрипт для открытия сайта через меню хаба.
6 digor22 10 964 31.8.2011, 11:55 Посл. сообщение: Setuper
No New Posts контекстное меню для АДМИНА
12 drkrol 14 007 11.8.2011, 21:29 Посл. сообщение: dimajak
Closed Topic has attachmentsВопрос по скрипту StatPX как сделать...
1 Blazer 7 691 19.2.2011, 19:55 Посл. сообщение: Accelerator
No New Posts От: Как сделать регистрацию на HexHub 5.05a?
От темы с ID: 3907
0 absent 4 868 9.1.2011, 1:42 Посл. сообщение: absent
No New Posts Как сделать регистрацию на HexHub 5.05a?
7 GaZz-BenziNa 12 161 8.1.2011, 16:16 Посл. сообщение: Maximum
No new Topic has attachmentsМеню По Текстовым Файлам (readercommands_1.0c Русская Версия)
API2 | Скрипт автоматического создания меню по текстовым файлам
17 dimetrius 25 144 2.1.2011, 18:49 Посл. сообщение: mariner
No new Помогите сделать скрипт!
18 Osimus 20 357 31.12.2010, 7:37 Посл. сообщение: Ferb
No New Posts Хуббабот и другие меню
Хуббабот и другие меню
1 Ameet 5 588 19.12.2010, 22:56 Посл. сообщение: ustas

 



RSS Сейчас: 15.11.2024, 2:10