myDC.ru

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

 
3 страниц V   1 2 3 >

(Steep)_(Boss)
Отправлено: 3.12.2010, 12:45


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


спасибо добрым админам которые удалили мое сообщени, дай бох вам здоровье дело ваше!!! Удачи!!!
  Форум: Kорзина · Просмотр сообщения: #35322 · Ответов: 318 · Просмотров: 38 115

(Steep)_(Boss)
Отправлено: 3.12.2010, 2:26


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


Глубоко уважаемый Phazeus, ну хватит же злица сам не злись и других не зли) если кто то совершил что то плохой это же не говорит о том что все должно слиться на MyDC
будь добр да людям любящим твой продукт попользоваться
Лично я буду очень благодарен, после сноса компа не чего не осталось пытаюсь скачать а там картину вижу что фиг скачаеш
  Форум: Kорзина · Просмотр сообщения: #35307 · Ответов: 318 · Просмотров: 38 115

(Steep)_(Boss)
Отправлено: 28.9.2010, 1:56


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


неа) ет же не Птока)))) янхабу важнее стабильность и быстрота))0 янхаб рвется к власти)
регистрация такая возможна только через бота) ботов ищи на офф сайте, но проблема в том что переводить ботов надо ручками)) ето уже тебе не скрипты)
  Форум: YnHub · Просмотр сообщения: #33942 · Ответов: 2 · Просмотров: 4 157

(Steep)_(Boss)
Отправлено: 26.5.2010, 22:30


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


Привет, А вот скажи тебе не трудно рассказать чем отличия от MySQL от етой,,
+ какие Плюсы и пинусы у етой SQL????
  Форум: Дополнительные библиотеки для PtokaX · Просмотр сообщения: #30746 · Ответов: 3 · Просмотров: 5 458

(Steep)_(Boss)
Отправлено: 23.5.2010, 21:03


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


Цитата(Naum_Off @ 23.5.2010, 20:22) *
1. Пункты (по минимуму)
-Имя
-Фамилия
-Пол
-Адрес
-Возраст
-Учеба/работа
-Привычки
-Интересы
2. Возможность оставлять/просматривать комментарии к анкетам другим юзеров.
3. Напоминание юзерам при заходе на хаб заполнить анкету, или же отказаться от ее заполнения.
4. Вывод списка всех юзеров, создавших анкеты.
5. Рейтинг по заполненности анкеты (не обязательно).
6. Рейтинг по профилю (респекты, тоже не обязательно).
Думаю этого более чем достаточно)
Вот пример сообщения от бота:

---------------------------------------------------------------------------------------
припишу к етому если можно добавить город
что+ что бы показывало когда последний раз редоктировалась ета анкета,,
++ если можно зделать добавить
следущее:


хотелось бы что бы следущеи пунткты можно было зделать что бы просматревать их могли только по нику
приведу пример,, я сижу на хабе вот в друг создал свою анкету,, и решил вбить в свою анкету мыло асю сотовый и т.д,, но хотелось бы видеть такое что бы в етом же пункте(меню) была такая шляпа что какие то именно разделы(мыло ася и т.д) были видны опреденлёным юзерам,,,,
--------------------
домашний телефон
сотовый телефон
мыло
ася
жабер
мсн
+что бы почты ети и сото
  Форум: Kорзина · Просмотр сообщения: #30690 · Ответов: 318 · Просмотров: 38 115

(Steep)_(Boss)
Отправлено: 23.5.2010, 20:55


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


офигеть просто
у мя слов нету


Прости за мат но ето ПросТо СУПЕР!!!!!!!!!!!
Начну на днях тестить!!!!!!!!!!!!!!!!!!!
  Форум: Kорзина · Просмотр сообщения: #30689 · Ответов: 0 · Просмотров: 1 249

(Steep)_(Boss)
Отправлено: 18.5.2010, 12:15


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


обьястни пожалуйста так как тот парень с сети а качать у него пробуют с ВНЕШКИ?
  Форум: Технические вопросы по PtokaX · Просмотр сообщения: #30534 · Ответов: 10 · Просмотров: 4 912

(Steep)_(Boss)
Отправлено: 18.5.2010, 10:35


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


Цитата(Andrey_SHANDERA @ 20.2.2010, 14:44) *
А скрипт не может напутать, что зашли именно с прокси? То есть забанит не виновного?

в рятли, я зделал по своему, Тоесть Удалил Все прокси адреса и заливал свои которые искал в инете и которые находились слегка!!!
  Форум: Безопасность [PtokaX] · Просмотр сообщения: #30531 · Ответов: 33 · Просмотров: 28 642

(Steep)_(Boss)
Отправлено: 18.5.2010, 10:13


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


Цитата(Phazeus @ 18.5.2010, 4:38) *
А что это такое? Как Вы это представляете и для чего? Просто база, где можно найти интересующих людей по нику/имени или другим данным и всё такое?

именно ты понял его верно, я бы показал скрипт но пол часа искал не нашол(анкеты),,,
просто было бы хорошо если бы добавить такой плагин что бы Юзеры создавали свои анкеты, Обьястню как ето выглядит,,
Например
мне приходит сообщение : не желаете Создать анкету?
ну и пошло поехало, в анкете запалняеш имя,аську мыло, пару почт, телефон,интересы,День рождение(и что бы при ДЕНЮХЕ Хобяб поздравления вылетали,,в многих скриптах етого нету),,,
если хочеш увидить пример работы скрипта то если найду скину!!!



-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
все таки нашол!!!
Раскрывающийся текст
-- - Теперь можно оставлять комментарии к анкетам
-- - При входе пользователь получает уведомление о новой анкете
-- - Можно выбрать, куда будут приходить сообщения от бота: в чат или приват
--
-- [1.1]:
-- Данный скрипт позволит вашим пользователям создавать и управлять своими анкетами на основании вашего шаблона.
--
-- Пункты анкеты:
-- - имя_в_реале
-- - дата_рождения
-- - знак_зодиака
-- - пол
-- - тело
-- - icq
-- - где_живешь
-- - учеба_работа
-- - о_себе
-- - семья
-- - о_других
-- - интересы
-- - музыка
-- - фильмы
-- - привычки
--
--
-- Также есть администраторская команда для редактирования чужих анкет.
-- Управление доступом к командам.
--
-- F.A.Q.
--
-- В. Как добавить или удалить пункт анкеты?
--
-- О. Во-первых, вам нужно внести новый пункт анкеты или отредактировать старый в таблице
-- tUserProfiles[sUser], которая вынесена в конфигуратор.
-- Во-вторых, необходимо отредактировать вывод анкет в чат. Данный пункт находится в
-- функции showProfile(sUser,type) - там увидете.
-- В-третьих, не забудьте поменять команды меню, которые также вынесены в конфигуратор - MenuProfile(user)
--
-- /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////\
--|• Настройки •||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| |
-- \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
tVar = {
sPrefix = "!", -- Префикс команд
------------------------------------------
sBot = "Profiles", -- Имя бота
sBotD = "Анкеты пользователей", -- Описание бота
sBotE = "profiles@px.net", -- Email бота
sIsOP = 1, -- Бот ОП? <1=да,0=нет>
------------------------------------------
sFolder = "AHKETbI", -- Папка скрипта
sFile = "uprofiles.dat", -- Название БД
------------------------------------------
sRCEnable = "on", -- Посылать менюшку? <on=да, off=нет>
sRCName = "Анкеты", -- Название менюшки
------------------------------------------
sEdited = "on", -- Прятать анкеты, которые еще не редактировались? <on=да, off=нет>
sSpam = "on", -- Если у юзера еще нет анкеты, то предлагать ему создать ее при входе? ;)
sMsg = "pm", -- Куда отсылать сообщения? <main=чат,pm=личка>
------------------------------------------
sMsgtoUsers = "Теперь можно создать свою анкету! Напиши !анкета создать",
};

-- /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////\
--|• Команды •||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| |
-- \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/
tCmd = {
-- Команды пользователей
sHelp = "анхелп", -- Показать помощь
sProfile = "анкета", -- Редактировать свою анкету
sViewPro = "анкеты", -- Посмотреть список анкет юзеров
sComment = "анкоммент", -- Сделать комментарий к анкете

-- Команды админа
sDelPro = "delpro", -- Удалить анкету юзера или какое-то значение в анкете
};

-- Пункты анкеты
-- ** Советую вам сразу определиться с графами анкеты! **
-- ** Если в будущем Вы захотите изменить что-то здесь, то **
-- ** Вам придется удалить всю старую базу! **
tFields = {
["имя_в_реале"] = "",
["дата_рождения"] = "",
["знак_зодиака"] = "",
["пол"] = "",
["тело"] = "",
["icq"] = "",
["где_живешь"] = "",
["учеба_работа"] = "",
["о_себе"] = "",
["семья"] = "",
["о_других"] = "",
["интересы"] = "",
["музыка"] = "",
["фильмы"] = "",
["привычки"] = "",
};

-- Уровень доступа к командам:
--
-- Доступ = 1
-- Запрет = 0
--
-- Профили 4,5 и 6 созданы для поддержки скриптами Robocop и Leviathan
--
-- Админ доступ
pAdmin = {
[-1] = 0, -- Un-Reg
[0] = 1, -- Master
[1] = 0, -- OP
[2] = 0, -- ViP
[3] = 0, -- Reg
--[4] = 1, -- Moderator
--[5] = 1, -- Netfounder
--[6] = 1, -- Owner
};
-- Пользовательский доступ
pUser = {
[-1] = 1, -- Un-Reg
[0] = 1, -- Master
[1] = 1, -- OP
[2] = 1, -- ViP
[3] = 1, -- Reg
--[4] = 1, -- Moderator
--[5] = 1, -- Netfounder
--[6] = 1, -- Owner
};

-- Меню для редактирования пунктов своей анкеты. Специально вынес отдельно (NRJ)

function MenuProfile(user)
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Посмотреть$<%[mynick]> !"..tCmd.sProfile.."|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Редактировать\\Настоящее имя$<%[mynick]> !"..tCmd.sProfile.." добавить имя_в_реале %[line:Твое настоящее имя?]|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Редактировать\\Дата рождения$<%[mynick]> !"..tCmd.sProfile.." добавить дата_рождения %[line:Дата рождения?]|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Редактировать\\Знак Зодиака$<%[mynick]> !"..tCmd.sProfile.." добавить знак_зодиака %[line:Знак Зодиака?]|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Редактировать\\Пол$<%[mynick]> !"..tCmd.sProfile.." добавить пол %[line:ж) или м)?]|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Редактировать\\Телосложение$<%[mynick]> !"..tCmd.sProfile.." добавить тело %[line:Рост, вес, общее впечатление?]|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Редактировать\\ICQ$<%[mynick]> !"..tCmd.sProfile.." добавить icq %[line:Твоя аська?]|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Редактировать\\Где живешь$<%[mynick]> !"..tCmd.sProfile.." добавить где_живешь %[line:Где ты живешь?]|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Редактировать\\Учеба и работа$<%[mynick]> !"..tCmd.sProfile.." добавить учеба_работа %[line:Где учишься и/или работаешь?]|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Редактировать\\О себе$<%[mynick]> !"..tCmd.sProfile.." добавить о_себе %[line:Немного о себе..]|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Редактировать\\О семье$<%[mynick]> !"..tCmd.sProfile.." добавить семья %[line:Парень, девушка, муж, жена, дети?]|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Редактировать\\Цели знакомства$<%[mynick]> !"..tCmd.sProfile.." добавить о_других %[line:С кем бы хотелось познакомиться?..]|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Редактировать\\Интересы$<%[mynick]> !"..tCmd.sProfile.." добавить интересы %[line:Твои интересы?]|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Редактировать\\Музыка$<%[mynick]> !"..tCmd.sProfile.." добавить музыка %[line:Любимая музыка?]|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Редактировать\\Фильмы$<%[mynick]> !"..tCmd.sProfile.." добавить фильмы %[line:Любимые фильмы?]|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Редактировать\\Вредные привычки$<%[mynick]> !"..tCmd.sProfile.." добавить привычки %[line:Курение, водка, КС?big_smile.gif]|")

end

-- /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////\
--|• Основной код •|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| |
-- \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/

if (_VERSION == "Lua 5.1") then
TableMaxSize = table.maxn; StringMatch = string.gmatch;
CollectTrash = function() collectgarbage("collect"); end
elseif (_VERSION == "Lua 5.0.3") or (_VERSION == "Lua 5.0.2") then
TableMaxSize = table.getn; StringMatch = string.gfind;
CollectTrash = function() collectgarbage(collect); end
else
Core.SendToAll("<"..tVar.sBot.."> *** Этот скрипт работает только при поддержке Lua 5.1 или Lua 5.0.X У вас же: ".._VERSION);
end

function OnStartup()
Core.RegBot(tVar.sBot,"","",true);
ProTask.LoadProfile();
end

function ChatArrival(user,data)
Core.GetUserAllData(user)
local data = string.sub(data,1,-2)
local _,_,sTrig,sCmd = string.find(data,"%b<>%s*(%S)(%S+)")
if sTrig == tVar.sPrefix then
if tScriptCmds[sCmd] then
return tScriptCmds[sCmd](user,data);
end
end
end

function ToArrival(user,data)
Core.GetUserAllData(user)
if string.sub(data,6,5+(string.len(tVar.sBot))) == tVar.sBot then
data = string.sub(data,(18+string.len(tVar.sBot)+2*string.len(user.sNick)),(string.len(data)-1));
local _,_,sTrig,sCmd = string.find(data,"(%S)(%S+)");
if sTrig and sTrig == tVar.sPrefix and sCmd and tScriptCmds[sCmd] then
return tScriptCmds[sCmd](user,"<"..user.sNick.."> "..data);
end
end
end

function UserConnected(user)
Core.GetUserAllData(user)
ProTask.RC(user,"con");
if string.lower(tVar.sSpam) == "on" then
if not tUserProfiles[user.sNick] then
Core.SendToNick(user.sNick,"<"..tVar.sBot.."> *** "..tVar.sMsgtoUsers)
else
if TableMaxSize(tUserProfiles[user.sNick]["comments"]) > tUserProfiles[user.sNick]["new"] then
Core.SendToNick(user.sNick,"<"..tVar.sBot.."> *** У твоей анкеты появились новые комментарии!")
tUserProfiles[user.sNick]["new"] = TableMaxSize(tUserProfiles[user.sNick]["comments"]);
ProTask.SaveProfile();
end
end
end
end

function OnExit()
ProTask.SaveProfile();
end

tScriptCmds = {
[tCmd.sHelp] = function(user,data)
local s = ""
if pUser[user.iProfile] == 1 then
s = s..tab.."\n\n"..tab.."::: ::: ::: Команды управления анкетой ::: ::: :::\n"
..tab.."\n\tПомощь по командам:\t\t- "..tVar.sPrefix..tCmd.sHelp
..tab.."\n\tМоя анкета:\t\t- "..tVar.sPrefix..tCmd.sProfile
..tab.."\n\tВсе анкеты:\t\t- "..tVar.sPrefix..tCmd.sViewPro
..tab.."\n\tОставить комментарий:\t\t- "..tVar.sPrefix..tCmd.sComment
end
if pAdmin[user.iProfile] == 1 then
s = s.."\n\n"..tab.."::: ::: ::: Администраторские команды ::: ::: :::"
..tab.."\n\n\tУдалить анкету/значение в анкете\t- "..tVar.sPrefix..tCmd.sDelPro.."\n"
end
ProTask.ToUser(user,s);
return true;
end,

[tCmd.sProfile] = function(user,data)
if pUser[user.iProfile] ~= 1 then return true; end
local sUser = user.sNick;
local _,_,Cmd1 = string.find(data,"%b<>%s+%S+%s+(%S+)");
if Cmd1 then
local _,_,Cmd2 = string.find(data,"%b<>%s+%S+%s+%S+%s+(%S+)");
if string.lower(Cmd1) == "создать" and not tUserProfiles[sUser] then
ProTask.NewProfile(sUser);
ProTask.RC(user,"update");
ProTask.ToUser(user,"*** Создана новая анкета! Чтобы отредактировать ее, воспользуйтесь меню или напиши в чате: "..tVar.sPrefix..tCmd.sProfile);
elseif string.lower(Cmd1) == "добавить" and tUserProfiles[sUser] then
if Cmd2 then
if tUserProfiles[sUser][string.lower(Cmd2)] then
local _,_,Cmd3 = string.find(data,"%b<>%s+%S+%s+%S+%s+%S+%s+(.*)");
if Cmd3 == "*" then
ProTask.EditProfile(sUser,string.lower(Cmd2),"No declaration");
ProTask.ToUser(user,"*** Твоя анкета изменена: "..Cmd2.." - No declaration");
elseif Cmd3 then
ProTask.EditProfile(sUser,string.lower(Cmd2),Cmd3);
ProTask.ToUser(user,"*** Твоя анкета изменена: "..Cmd2.." - "..Cmd3);
else
ProTask.ToUser(user,"*** Ошибка! Ты забыл указать значение: "..tVar.sPrefix..tCmd.sProfile.." добавить "..Cmd2.." <текст>");
end
else
ProTask.ToUser(user,ProTask.ShowProfile(sUser,"profilecmds").."\r\n"..tab.."*** Ошибка! Чтобы отредактировать пункт анкеты воспользуйтесь командой "..tVar.sPrefix..tCmd.sProfile.." добавить <пункт> <текст>, * = пустое значение.");
end
else
ProTask.ToUser(user,ProTask.ShowProfile(sUser,"user")..tab.."Выбери пункт анкеты, который хочешь\r\n"..tab.."отредактировать и укажи его значение:\r\n"..tab.." "..tVar.sPrefix..tCmd.sProfile.." добавить <пункт> <текст>\r\n"..tab.."* = пустое значение.");
end
elseif string.lower(Cmd1) == "удалить" then
if Cmd2 then
if string.lower(Cmd2) == "полностью" then
ProTask.DelProfile(sUser);
ProTask.ToUser(user,"*** Твоя анкета была удалена!");
else
ProTask.ToUser(user,"*** ВНИМАНИЕ!! Это команда полностью удалит твою анкету! Для подтверждения введи: "..tVar.sPrefix..tCmd.sProfile.." удалить полностью");
end
else
ProTask.ToUser(user,"*** ВНИМАНИЕ!! Это команда полностью удалит твою анкету! Для подтверждения введи: "..tVar.sPrefix..tCmd.sProfile.." удалить полностью");
end
else
ProTask.ToUser(user,"*** Ошибка! Для редактирования или удаления свой анкеты введи: "..tVar.sPrefix..tCmd.sProfile.." <добавить/удалить>");
end
else
if not tUserProfiles[sUser] then
ProTask.ToUser(user,"*** У тебя еще нет анкеты! Чтобы создать анкету напиши: "..tVar.sPrefix..tCmd.sProfile.." создать"); return true;
else
ProTask.ToUser(user,ProTask.ShowProfile(sUser,"user").."\r\n"..tab.."Для редактирования или удаления\r\n"..tab.."свой анкеты введи: "..tVar.sPrefix..tCmd.sProfile.." <добавить/удалить>");
end
end
return true;
end,

[tCmd.sViewPro] = function(user,data)
if pUser[user.iProfile] ~= 1 then return true; end
local _,_,sUser = string.find(data,"%b<>%s+%S+%s+(%S+)");
if tUserProfiles[sUser] then
ProTask.ToUser(user,ProTask.ShowProfile(sUser,"user"));
else
ProTask.ToUser(user,ProTask.ShowProfile(user,"allusers").."\r\n"..tab.."*** "..tVar.sPrefix..tCmd.sViewPro.." <ник> для просмотра анкеты. ***");
end
return true;
end,

[tCmd.sComment] = function(user,data)
if pUser[user.iProfile] ~= 1 then return true; end
local _,_,sUser,sComment = string.find(data,"%b<>%s+%S+%s+(%S+)%s+(.*)");
if sUser and tUserProfiles[sUser] and sComment then
table.insert(tUserProfiles[sUser]["comments"], {["user"] = user.sNick,["msg"] = sComment});
ProTask.ToUser(user,"*** Твой комментарий добавлен!");
ProTask.SaveProfile();
else
ProTask.ToUser(user,ProTask.ShowProfile(user,"allusers").."\r\n"..tab.."*** Ошибка! Чтобы добавить комментарий к анкете введите: "..tVar.sPrefix..tCmd.sComment.." <ник> <коммент> ***");
end
return true;
end,

[tCmd.sDelPro] = function(user,data)
if pAdmin[user.iProfile] ~= 1 then return true; end
local _,_,Cmd1 = string.find(data,"%b<>%s+%S+%s+(%S+)");
if Cmd1 and Core.GetUser(Cmd1,true) then
local _,_,Cmd2 = string.find(data,"%b<>%s+%S+%s+%S+%s+(%S+)");
if Cmd2 then
if string.lower(Cmd2) == "удалить" then
ProTask.DelProfile(Cmd1);
ProTask.ToUser(user,"*** Анкета юзера "..Cmd1.." была удалена.");
elseif tUserProfiles[Cmd1][string.lower(Cmd2)] then
ProTask.EditProfile(Cmd1,string.lower(Cmd2),"No declaration");
ProTask.ToUser(user,"*** Пункт анкеты "..Cmd2.." юзера "..Cmd1.." был очищен.");
else
ProTask.ToUser(user,"*** Ошибка! Ты забыл указать, что мы будем делать - удалять или редактировать анкету: "..tVar.sPrefix..tCmd.sDelPro.." "..Cmd1.." <пункт/удалить>");
end
else
ProTask.ToUser(user,ProTask.ShowProfile(Cmd1,"user").."\r\n"..tab.."*** Укажите пункт для удаления или воспользуйтесь\r\n"..tab.."командой 'удалить', чтобы стереть всю анкету:\r\n"..tab..tVar.sPrefix..tCmd.sDelPro.." <ник> <пункт/удалить>");
end
else
ProTask.ToUser(user,"*** Чтобы удалить анкету юзера или пукнт чьей-либо анкеты воспользуйтесь командой: "..tVar.sPrefix..tCmd.sDelPro.." <ник>");
end
return true;
end,
}

ProTask = {
["RC"] = function(user,type)
if type == "con" then
if user.bUserCommand then
if pUser[user.iProfile] == 1 and string.lower(tVar.sRCEnable) == "on" then
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Помощь$<%[mynick]> !"..tCmd.sHelp.."|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Оставить коммент$<%[mynick]> !"..tCmd.sComment.." %[line:Ник?] %[line:Коммент?]|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Просмотр\\Все анкеты$<%[mynick]> !"..tCmd.sViewPro.."|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Просмотр\\Анкета этого юзера$<%[mynick]> !"..tCmd.sViewPro.." %[nick]|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Просмотр\\Анкета юзера..$<%[mynick]> !"..tCmd.sViewPro.." %[line:Введите ник]|")
if tUserProfiles[user.sNick] then
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Посмотреть$<%[mynick]> !"..tCmd.sProfile.."|")
MenuProfile(user)
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Удалить\\Свою анкету$<%[mynick]> !"..tCmd.sProfile.." удалить|")
else
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Создать анкету$<%[mynick]> !"..tCmd.sProfile.." создать|")
end
end
if pAdmin[user.iProfile] == 1 and string.lower(tVar.sRCEnable) == "on" then
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Админ\\Удалить анкету юзера$<%[mynick]> !"..tCmd.sDelPro.." %[line:Ник юзера?] удалить|")
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Админ\\Удалить пункт анкеты юзера$<%[mynick]> !"..tCmd.sDelPro.." %[line:Ник юзера?] %[line:Пункт анкеты?]|")
end
end
elseif type == "update" then
MenuProfile(user)
Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tVar.sRCName.."\\Мой профиль\\Удалить\\Свою анкету$<%[mynick]> !"..tCmd.sProfile.." удалить|")
end
end,

["ToUser"] = function(user,s)
if tVar.sMsg == "pm" then
Core.SendPmToNick(user.sNick,tVar.sBot,s);
else
ProTask.ToUser(user,s);
end
end,

["NewProfile"] = function(sUser)
tUserProfiles[sUser] = tFields
tUserProfiles[sUser]["edited"] = "0";
tUserProfiles[sUser]["comments"] = {};
tUserProfiles[sUser]["new"] = 0;
ProTask.SaveProfile();
end,

["SaveProfile"] = function()
local f = assert(io.open(tVar.sFolder.."/"..tVar.sFile,"w+"),"Cannot locate folder: scripts\\"..tVar.sFolder);
ProTask.Serialize(tUserProfiles,"tUserProfiles",f);
f:close();
end,

["Serialize"] = function(tTable,sTableName,hFile,sTab)
sTab = sTab or "";
hFile:write(sTab..sTableName.." = {\n");
for key,value in pairs(tTable) do
if (type(value) ~= "function") then
local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);
if(type(value) == "table") then
ProTask.Serialize(value,sKey,hFile,sTab.."\t");
else
local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value);
hFile:write(sTab.."\t"..sKey.." = "..sValue);
end
hFile:write(",\n");
end
end
hFile:write(sTab.."}");
end,

["LoadProfile"] = function()
if loadfile(tVar.sFolder.."/"..tVar.sFile) then
dofile(tVar.sFolder.."/"..tVar.sFile);
else
local f = assert(io.open(tVar.sFolder.."/"..tVar.sFile,"w+"),"Cannot locate folder: scripts\\"..tVar.sFolder);
f:write("ProfileData = {\r\n}");
f:close();
io.flush();
tUserProfiles = {};
end
end,

["EditProfile"] = function(sUser,sItem,sValue)
if tUserProfiles[sUser] then
tUserProfiles[sUser][sItem] = sValue;
if tUserProfiles[sUser]["edited"] == "0" then tUserProfiles[sUser]["edited"] = "1"; end
ProTask.SaveProfile();
else
ProTask.NewProfile(sUser); ProTask.SaveProfile(); ProTask.EditProfile(sUser,sItem,sValue)
end
end,

["DelProfile"] = function(sUser)
tUserProfiles[sUser] = nil;
ProTask.SaveProfile();
end,

["ShowProfile"] = function(sUser,type)
local sMsg = "\r\n\r\n"..tab;
if type == "user" then sMsg = sMsg.."-= Анкета "..sUser.." =-\r\n\r\n";
elseif type == "profilecmds" then sMsg = sMsg.."-= Анкета "..sUser.." - Показ команд =-\r\n\r\n";
elseif type == "all" or type == "allusers" then sMsg = sMsg.."-= Анкеты всех юзеров =-\r\n\r\n"; end
local Lines = function(s,n,u)
local tab = string.rep("\t",n);
local msg = "\n"..tab..u..": "
if string.find(s,"^(.-)\n") then
s = s.."\n"
local p = "\n"
for line in StringMatch(t,".-\n") do
if string.len(string.gsub(line,"%s+","")) ~= 0 then
p = p..tab.." - "..line;
end
end
return msg..p;
else
return msg..s;
end
end
if type == "user" then
if tUserProfiles[sUser] then
sMsg = sMsg..tab..string.rep("«»",19).."\r\n"
sMsg = sMsg..tab.."имя_в_реале\t - "..tUserProfiles[sUser]["имя_в_реале"].."\r\n";
sMsg = sMsg..tab.."дата_рождения\t - "..tUserProfiles[sUser]["дата_рождения"].."\r\n";
sMsg = sMsg..tab.."пол\t\t - "..tUserProfiles[sUser]["пол"].."\r\n";
sMsg = sMsg..tab.."тело\t\t - "..tUserProfiles[sUser]["тело"].."\r\n";
sMsg = sMsg..tab.."icq\t\t - "..tUserProfiles[sUser]["icq"].."\r\n";
sMsg = sMsg..tab.."где_живешь\t - "..tUserProfiles[sUser]["где_живешь"].."\r\n";
sMsg = sMsg..tab.."учеба_работа\t - "..tUserProfiles[sUser]["учеба_работа"].."\r\n";
sMsg = sMsg..tab.."о_себе\t\t - "..tUserProfiles[sUser]["о_себе"].."\r\n";
sMsg = sMsg..tab.."семья\t\t - "..tUserProfiles[sUser]["семья"].."\r\n";
sMsg = sMsg..tab.."о_других\t - "..tUserProfiles[sUser]["о_других"].."\r\n";
sMsg = sMsg..tab.."интересы\t - "..tUserProfiles[sUser]["интересы"].."\r\n";
sMsg = sMsg..tab.."музыка\t - "..tUserProfiles[sUser]["музыка"].."\r\n";
sMsg = sMsg..tab.."фильмы\t - "..tUserProfiles[sUser]["фильмы"].."\r\n";
sMsg = sMsg..tab.."привычки\t - "..tUserProfiles[sUser]["привычки"].."\r\n";
sMsg = sMsg..tab..string.rep("«»",19).."\n\n\t Комментарии:\n"
for i = 1, TableMaxSize(tUserProfiles[sUser]["comments"]) do
sMsg = sMsg..Lines(tUserProfiles[sUser]["comments"][i]["msg"],2,tUserProfiles[sUser]["comments"][i]["user"]);
end
end
elseif type == "profilecmds" then
if tUserProfiles[sUser] then
sMsg = sMsg..tab..string.rep("«»",19).."\n"
for sItem in pairs(tUserProfiles[sUser]) do
if sItem ~= "edited" then
sMsg = sMsg.."\t "..tVar.sPrefix..tCmd.sProfile.." add "..sItem.." \t- "..tUserProfiles[sUser][sItem].."\n";
end
end
sMsg = sMsg.."\t "..tVar.sPrefix..tCmd.sProfile.." добавить коммент\n"
..tab..string.rep("«»",19).."\n\n"
end
elseif type == "allusers" then
if tUserProfiles ~= nil then
sMsg = sMsg..tab..string.rep("«»",19).."\n\n"
for User in pairs(tUserProfiles) do
if string.lower(tVar.sEdited) == "on" then
for sItem in pairs(tUserProfiles[User]) do
if sItem == "edited" and tUserProfiles[User][sItem] ~= "0" then
sMsg = sMsg.."\t •"..User.."\n";
end
end
else
sMsg = sMsg.."\t •"..User.."\n";
end
end
sMsg = sMsg.."\n"..tab..string.rep("«»",19).."\n\n"
end
end
return sMsg;
end,
};

tab = " "..string.rep(" ",string.len(tVar.sBot));
OpConnected = UserConnected
RegConnected = UserConnected


Автор Скрипта хер знает кто!! скрипт как я помню на ап1 был взятый от сюда и ДСЗона Переминовала автора(типо они создали скрипт)
Посматри пример может надумаеш что!!!
  Форум: Kорзина · Просмотр сообщения: #30530 · Ответов: 318 · Просмотров: 38 115

(Steep)_(Boss)
Отправлено: 15.5.2010, 11:13


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


ты пишиш, а вот на форуме не искал, Сматри внимательно на форуме!!! найдётся все!!!
  Форум: Помощь по скриптам для PtokaX · Просмотр сообщения: #30452 · Ответов: 10 · Просмотров: 4 102

(Steep)_(Boss)
Отправлено: 30.3.2010, 23:44


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


Цитата((Steep)_(Boss) @ 31.3.2010, 2:41) *
кидай в мыло срипты я те соберу а ты глянеш пример ок?

steep_boss@mail.ru
  Форум: Kорзина · Просмотр сообщения: #29099 · Ответов: 8 · Просмотров: 5 518

(Steep)_(Boss)
Отправлено: 30.3.2010, 23:41


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


Цитата(((((F@UST)))) @ 31.3.2010, 2:40) *
(Steep)_(Boss) Да я вобще не могу понять как можно в одно меню засунуть хотябы админестраторские меню??? И как отдельно создать общее меню только для игр,развлечений,разное и т.д???

ПОМОГИ ПЛИЗЗЗ!!!!! unhappy.gif

кидай в мыло срипты я те соберу а ты глянеш пример ок?
  Форум: Kорзина · Просмотр сообщения: #29097 · Ответов: 8 · Просмотров: 5 518

(Steep)_(Boss)
Отправлено: 30.3.2010, 23:17


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


Цитата(ZZZRF413 @ 30.3.2010, 23:26) *
Доброго всем времени суток!

Помогите пожалуйста решить следующую проблему:
Есть маленькая домашняя локальная сеть. В сети установлен сервер (с операционной системой WinXP) подключенный к двум провайдерам (назовем их провайдер А и провайдер Б). Провайдер Б являеться поставщиком интернета для сети (подключение расшарено на сервере). Провайдер А является поставщиком услуг StrongDC и IP-TV, которые и необходимо расшарить на сеть т.е. чтоб на каждом компьютере работал и StrongDC и IP-TV. Как это можно сделать?


Схема


хахахаххахахахахЕто не Схема а тилипузики какието
Приежай ТрафКи покУрим хахамахмахмхаыпх
Что б я здох)
ой)
  Форум: Kорзина · Просмотр сообщения: #29095 · Ответов: 0 · Просмотров: 2 454

(Steep)_(Boss)
Отправлено: 30.3.2010, 22:33


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


Цитата(Killer47 @ 31.3.2010, 1:16) *
Наверно автор хочет заходить с аськи на джаве , каким то образом через эту аську и зайти на хаб extreme_sexy_girl.gif

кажись ето же глупо темболее на жаве
  Форум: Запросы скриптов для PtokaX · Просмотр сообщения: #29091 · Ответов: 15 · Просмотров: 9 465

(Steep)_(Boss)
Отправлено: 30.3.2010, 22:31


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


вот такой вопрос пришол в голову, почему такие сайты как dczone меняют в многих скриптах святые с етого форума,, авториские права и т.д,,,+ еси почитать их старый форум там ваще обхахочишся кто скажет Скрипты берутся у вас к ним,,, или от них к вам?
  Форум: Kорзина · Просмотр сообщения: #29090 · Ответов: 0 · Просмотров: 1 618

(Steep)_(Boss)
Отправлено: 30.3.2010, 21:01


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


Цитата(Maximum @ 30.3.2010, 14:18) *
Я думаю он хочет чтобы всё было в одной менюшке.
В общей, т.е. всё в куче.
Ещё версии ? big_smile.gif

ты имееш введу в один скрипт?

Цитата(((((F@UST)))) @ 28.3.2010, 4:36) *
Одно меню,значит что бы На пример:Меню админа,управление скриптами и т.д.кинуть эти менюшки в одно меню.Это возможно???

И еще одно,Научи как их туда кидать???(я имею ввиду как кидать своё меню,в одну меню)

ЗАРАНЕЕ БЛАГОДАРЮ!!! still_dreaming.gif



насёт Меню если ты не понял как создавать все одно, то напишись обьясню!или погуляй по форуму) тут мнго найдёш)
  Форум: Kорзина · Просмотр сообщения: #29010 · Ответов: 8 · Просмотров: 5 518

(Steep)_(Boss)
Отправлено: 30.3.2010, 20:58


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


X-Sky
Ты Меня расмешил на гОДиК в пЕрёД хаха
ты глянь на цитату которую ты ответил,, ККОЙ Год стоит)
  Форум: Kорзина · Просмотр сообщения: #29071 · Ответов: 4 · Просмотров: 2 190

(Steep)_(Boss)
Отправлено: 30.3.2010, 20:55


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


Вмысле что ето значит, ты если не понял таки скажи а не надо тут влеплять руский не руский,, я Имею введу у тех людей при регистрации и при Проверки Письма у нихбудет такая же Шляпа как у мя на той картинке?,,Просто вот попробовал Через Гуглхром,, через него Квабры кодабры,, через Оперу и Екслоер все Нормальн,+ спасибо что зделал, с программами проблем нету, отображает на ура!! still_dreaming.gif
  Форум: Сетевые скрипты [PtokaX] · Просмотр сообщения: #29070 · Ответов: 117 · Просмотров: 45 172

(Steep)_(Boss)
Отправлено: 30.3.2010, 17:42


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


а те кто будет проверять почту,, после етого заменения кодировки,, у них что то меняется или остаётся все как было?
  Форум: Сетевые скрипты [PtokaX] · Просмотр сообщения: #29058 · Ответов: 117 · Просмотров: 45 172

(Steep)_(Boss)
Отправлено: 30.3.2010, 16:23


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


Цитата(Saymon @ 30.3.2010, 19:21) *
получить права модератора big_smile.gif big_smile1.gif

Мде ПЗд ПолНыЙ)) extreme_sexy_girl.gif beat_plaster.gif
  Форум: Kорзина · Просмотр сообщения: #29057 · Ответов: 4 · Просмотров: 3 422

(Steep)_(Boss)
Отправлено: 30.3.2010, 16:18


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


Цитата(Saymon @ 30.3.2010, 19:16) *
А искал? Ключевая фраза 'переводчик' и сразу наткнёшся big_smile.gif

Спасиб Я поиск не юзал я так по готовым и по запросам смотрел,,,
Сейравно СпС.,, Как тему удалить?
  Форум: Kорзина · Просмотр сообщения: #29055 · Ответов: 4 · Просмотров: 3 422

(Steep)_(Boss)
Отправлено: 30.3.2010, 16:09


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


Увж. Форум4ани,Может ли кто нибуть Зделать Подоное Чадо?
Если Имеется скирпт На ФОрумЕ ЗнАчит я ишак пропустил 1%)
Поделитесь
  Форум: Kорзина · Просмотр сообщения: #29053 · Ответов: 4 · Просмотров: 3 422

(Steep)_(Boss)
Отправлено: 30.3.2010, 15:55


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


Это Дабовление Кодировки или полное Изменение?
  Форум: Сетевые скрипты [PtokaX] · Просмотр сообщения: #29051 · Ответов: 117 · Просмотров: 45 172

(Steep)_(Boss)
Отправлено: 30.3.2010, 14:11


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


Цитата(MemberV @ 30.3.2010, 17:10) *
А забанить по маку может админ сегмента сети, например, на роутере поставить правило типа "не пускать пакеты с исходящим маком=* по tcp на 411 порт"
узнать конечные маки по ип может админ сети, у которого есть доступ к оборудованию в 2-х сегментах сети.


>>А забанить по маку может админ сегмента сети,

Я что-то не думаю что два человека "контачат" и один говорит другому: Этот пользователь из твоего сегмента, поставь ему бан.

>>узнать конечные маки по ип может админ сети, у которого есть доступ к оборудованию в 2-х сегментах сети.

Здесь вы немного не правы, узнать конечные маки можно и двум пользователям находящимся в разных сегментах сети и не имея доступа к оборудованию.

я от тебя узнаю новое и новое)) ща погоди Ручку и Листо4иГ ВозЬМу) xD
  Форум: Kорзина · Просмотр сообщения: #29039 · Ответов: 4 · Просмотров: 2 112

(Steep)_(Boss)
Отправлено: 30.3.2010, 14:09


МеСтНый ФлУдЕР xD
***

Группа: Пользователи
Сообщений: 59
Регистрация: 2.3.2010
Из: Г.Муравленко ЯНАО
Пользователь №: 6 241


cry.gif не-ет... только не это...

Дело Твоё!
а так как Зделал ты или кто то другой МЕнЯ Настройки Чужого Профиля а именно Подписи,, не зя делать мне пофф
  Форум: Kорзина · Просмотр сообщения: #29037 · Ответов: 4 · Просмотров: 3 311

3 страниц V   1 2 3 >

New Posts  Открытая тема (есть новые ответы)
No New Posts  Открытая тема (нет новых ответов)
Hot topic  Горячая тема (есть новые ответы)
No new  Горячая тема (нет новых ответов)
Poll  Опрос (есть новые голоса)
No new votes  Опрос (нет новых голосов)
Closed  Закрытая тема
Moved  Тема перемещена
 

RSS Сейчас: 14.12.2017, 21:48