Автор: BanQui: Дата: 06.18.2009
//-----------------------
// Script by Gr1nS1de ---
//-----------------------
// Version 1.0 ----------
//-----------------------
prontera,x,y,1 script Бан по IP 758,{
if(getgmlevel() >= 99) goto Administrator;
mes "[Администратор]";
mes "Ты не похож на Администрацию!";
close;
Administrator:
mes "[Администратор]";
mes "Выбирай, что ты хочешь!";
next;
menu "Забанить игрока",ban,"Разбанить игрока",unban;
ban:
mes "Какой IP Адрес ты хочешь забанить?";
input .@address$;
mes "На какой срок ты хочешь забанить этот адрес?";
switch(select("Годы:Месяцы:Недели:Дни:Часы:Минуты")){
case 1:
set .@time$, "год";
break;
case 2:
set .@time$, "месяц";
break;
case 3:
set .@time$, "неделя";
break;
case 4:
set .@time$, "день";
break;
case 5:
set .@time$, "час";
break;
case 6:
set .@time$, "минута";
break;
}
mes "На какое время "+.@time$+" ты хочешь забанить "+.@address$+" ?";
input .@time;
mes "Какова причина бана "+.@address$+" ?";
input .@reason$;
mes "Забанить "+.@address$+" на "+.@time+" "+.@time$+" ?";
mes "Причина: "+.@reason$;
menu "Да",-,"Нее",no;
query_sql "REPLACE INTO `ipbanlist` values ('"+escape_sql(.@address$)+"', NOW(), NOW() + INTERVAL "+.@time+" "+.@time$+", '"+escape_sql(.@reason$)+"')";
mes "Адрес "+.@address$+" забанен успешно!";
close;
unban:
mes "Какой IP Адрес ты хочешь разбанить?";
input .@address$;
mes "Разбанить "+.@address$+"?";
menu "Да",-,"Нее... Я передумал!",no;
query_sql "DELETE FROM `ipbanlist` WHERE `list` = '"+escape_sql(.@address$)+"'";
mes "Адрес "+.@address$+" удачно разбанен!";
close;
no:
mes "[Администратор]";
mes "Как хочешь...";
close;
}Автор: Мяфк: Дата: 07.09.2009
Если у тебя TXT, не парься работать не будет. Если SQL то проверь есть ли таблица ipbanlist
Автор: Fiesta: Дата: 07.09.2009
А на тхт как то мона забанить?
Автор: Мяфк: Дата: 07.09.2009
Черз НПЦ некак. Только через команду, вроде)
Автор: Fiesta: Дата: 07.09.2009
Всё пасиб через фаирвол норм пашет
Автор: MaHapX: Дата: 12.10.2009
Эх. на тхт не работает =( жалко
Автор: mark206798: Дата: 01.31.2010
Спасибо, все отлично работает. (SQL STABLE)
Автор: Wikler: Дата: 03.03.2011
Не работает скрипт.
Автор: Nester: Дата: 03.03.2011
Цитата Wikler;35240:
Не работает скрипт.