Страница 1 из 1

Скрипт банит за join\part

СообщениеДобавлено: 23 июн 2011 12:02
team
ребят помогите написать простенький скрипт,что бы в течении например минут 3 кто вышел,зашел и опять вышел,бот банил его минут на 40,искал,нашел скрипты но там одни защиты,а мне бы простенький,именно бан за Join part

Re: Скрипт банит за join\part

СообщениеДобавлено: 23 июн 2011 12:23
wr`
а вот этот не подходит partban1.0.tcl

Re: Скрипт банит за join\part

СообщениеДобавлено: 23 июн 2011 12:30
DmitRex
wr`, этот скрипт банит при первом же покидние пользователя на определённый промежуток времени.
team, Попробуйте использовать allprotection4.7 или от тудова выташить код.

Re: Скрипт банит за join\part

СообщениеДобавлено: 23 июн 2011 13:43
Spoofing
mIRC
Код: Выделить всё
on !*:JOIN:$(#): {
  inc -u8 $+(%,*,$address,/,$cid)
  if ($(,$+(%,*,$address,/,$cid)) > 2) ban -u1337k # $nick 1 Banned: Join/Part/Quit flood
}

Re: Скрипт банит за join\part

СообщениеДобавлено: 23 июн 2011 13:46
Vertigo
Стандартные возможности бота уже не устраивают?!
.chanset #chan flood-join 4:300 - если будет больше 4 (пере)заходов в канал за 5 минут, забанит на время по умолчанию (.chanset #chan bantime - можно поменять (в минутах))

Re: Скрипт банит за join\part

СообщениеДобавлено: 23 июн 2011 13:55
DmitRex
Кому прегодится на mrc.
banjoinpart.mrc v. 1.0
MIRC: [ Скачать ] [ Скрыть ]
on *:Load:{
  set %BanJoinpartBantime 60
  set %BanJoinpartMax 2
  set %BanJoinpart off
}

on *:part:#: {
  if (%BanJoinpart == off) { return }
  if ($me !isop #) { return }
  inc %jp. [ $+ [ $address($nick,4) ] $+ ] . [ $+ [ $chan ] ]
  if ( %jp. [ $+ [ $address($nick,4) ] $+ ] . [ $+ [ $chan ] ] != $null) .timerjp $+ nick $+ chan 1 30  unset %jp. [ $+ [ $address($nick,4) ] $+ ] . [ $+ [ $chan ] ]
  if ( %jp. [ $+ [ $address($nick,4) ] $+ ] . [ $+ [ $chan ] ] >= $iif(%BanJoinpartMax isnum,%BanJoinpartMax,2)) {
    ban -u $+ $iif(%BanJoinpartBantime isnum,%BanJoinpartBantime,60) $chan $nick 4
    unset %jp. [ $+ [ $address($nick,4) ] $+ ] . [ $+ [ $chan ] ]
  }
}

menu channel {
  Join/Part Ban
  .Вкл\Выкл - $(%BanJoinpart):set %BanJoinpart $iif(%BanJoinpart == on,off,on)
  .Ban Time $(%BanJoinpartBantime):set %BanJoinpartBantime $$?="Время бана ( second )"
  .Время бана ( second ) - $(%BanJoinpartMax):set %BanJoinpartMax $$?="Join/Part max"
}