+++++++++++++++++++++++++++++++++++++++
+ امر اقفال بانداتك محد يشيلهم غيرك +
+ +
+ Made By ManSiTK +
+++++++++++++++++++++++++++++++++++++++
********************************
*** الامر ينحط بالريموت ***
*** Put it In Remote ***
*** alt+R لفتح الريموت اضغط ***
********************************
on *:BAN:#: {
if ($nick == $me) && (%Myban = on) && ($banmask !isin %my.ban [ $+ [ # ] ]) {
set %my.ban [ $+ [ # ] ] %my.ban [ $+ [ # ] ] $banmask
}
}
on *:UNBAN:#: {
if ($istok(%my.ban [ $+ [ # ] ],$banmask,32)) && (%Myban = on) && ($nick != $me) && ($me isop #) {
set -u5 %Myz %Myz $banmask
if (!$timer(myz)) .timermyz 1 1 /Myz $nick #
}
if ($nick = $me) {
set %my.ban [ $+ [ # ] ] $remove(%my.ban [ $+ [ # ] ],$banmask)
}
}
alias myz {
mode $2 $str(b,$numtok(%myz,32)) %myz
.notice $1 dont unban my ban ( %myz )
}
on 1:disconnect:unset %my.ban*
menu channel {
My ban ( %Myban )
.on:set %Myban on
.off:set %Myban off
.-
.My ban List $+($chr(40),$gettok(%my.ban [ $+ [ # ] ],0,32),$chr(41))
..$submenu($Myban.menu($1))
}
alias Myban.menu {
if ($1 == begin) return - Click One to Remove -: {}
if ($1 == end) return - end ban list -:{}
if ($gettok(%my.ban [ $+ [ # ] ],$1,32) != $null) return $+($chr(40),&,$1,$chr(41)) $gettok(%my.ban [ $+ [ # ] ],$1,32) :set $eval(%my.ban [ $+ [ # ] ],0) $remove(%my.ban [ $+ [ # ] ],$gettok(%my.ban [ $+ [ # ] ],$1,32))
}
+ امر اقفال بانداتك محد يشيلهم غيرك +
+ +
+ Made By ManSiTK +
+++++++++++++++++++++++++++++++++++++++
********************************
*** الامر ينحط بالريموت ***
*** Put it In Remote ***
*** alt+R لفتح الريموت اضغط ***
********************************
on *:BAN:#: {
if ($nick == $me) && (%Myban = on) && ($banmask !isin %my.ban [ $+ [ # ] ]) {
set %my.ban [ $+ [ # ] ] %my.ban [ $+ [ # ] ] $banmask
}
}
on *:UNBAN:#: {
if ($istok(%my.ban [ $+ [ # ] ],$banmask,32)) && (%Myban = on) && ($nick != $me) && ($me isop #) {
set -u5 %Myz %Myz $banmask
if (!$timer(myz)) .timermyz 1 1 /Myz $nick #
}
if ($nick = $me) {
set %my.ban [ $+ [ # ] ] $remove(%my.ban [ $+ [ # ] ],$banmask)
}
}
alias myz {
mode $2 $str(b,$numtok(%myz,32)) %myz
.notice $1 dont unban my ban ( %myz )
}
on 1:disconnect:unset %my.ban*
menu channel {
My ban ( %Myban )
.on:set %Myban on
.off:set %Myban off
.-
.My ban List $+($chr(40),$gettok(%my.ban [ $+ [ # ] ],0,32),$chr(41))
..$submenu($Myban.menu($1))
}
alias Myban.menu {
if ($1 == begin) return - Click One to Remove -: {}
if ($1 == end) return - end ban list -:{}
if ($gettok(%my.ban [ $+ [ # ] ],$1,32) != $null) return $+($chr(40),&,$1,$chr(41)) $gettok(%my.ban [ $+ [ # ] ],$1,32) :set $eval(%my.ban [ $+ [ # ] ],0) $remove(%my.ban [ $+ [ # ] ],$gettok(%my.ban [ $+ [ # ] ],$1,32))
}
تعليق