Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ON *:START: {
- .server %ServerDNS
- }
- ON *:CONNECT: {
- .nick %User.Nick
- }
- ON *:NOTICE:*:*: {
- If ( $nick == NickServ ) {
- .var %ChangeNick This nickname is registered and protected.
- .var %Login Password accepted - you are now recognized.
- If ( %ChangeNick isin $1- ) {
- .nickserv identify %User.Pass
- .halt
- }
- If ( %Login isin $1- ) {
- .var %I 1
- .tokenize 32 [ %User.Channels ]
- While ( [ $ $+ [ %I ] ] != $NULL ) {
- .join [ $ $+ [ %I ] ]
- .inc %I
- }
- .halt
- }
- }
- }
- ON *:INPUT:*: {
- If ( $1 == .protect ) {
- .var %Nick $Me
- If ( $2 != $Null ) {
- .var %Nick $2
- }
- .mode $chan +eeII $Address( %Nick , 4 ) %Nick $Address( %Nick , 4 ) %Nick
- .halt
- }
- If ( $1 == .m ) {
- If ( $Chan == $Null ) {
- .mode $($$2-,2)
- }
- Else {
- .mode $Chan $($$2-,2)
- }
- halt
- }
- If ( $1 == .qop ) {
- .chanserv qop $chan $$2 $3
- .halt
- }
- If ( $1 == .sop ) {
- .chanserv sop $chan $$2 $3
- If ( $$2 == add ) {
- .chanserv protect $chan $$3
- .chanserv op $chan $$3
- }
- If ( $$2 == del ) {
- .chanserv deprotect $chan $$3
- .chanserv deop $chan $$3
- }
- .halt
- }
- If ( $1 == .aop ) {
- .chanserv aop $chan $$2 $3
- If ( $$2 == add ) {
- .chanserv op $chan $$3
- }
- If ( $$2 == del ) {
- .chanserv deop $chan $$3
- }
- .halt
- }
- If ( $1 == .hop ) {
- .chanserv hop $chan $$2 $3
- If ( $$2 == add ) {
- .chanserv halfop $chan $$3
- }
- If ( $$2 == del ) {
- .chanserv dehalfop $chan $$3
- }
- .halt
- }
- If ( $1 == .vop ) {
- .chanserv vop $chan $$2 $3
- If ( $$2 == add ) {
- .chanserv voice $chan $$3
- }
- If ( $$2 == del ) {
- .chanserv devoice $chan $$3
- }
- .halt
- }
- If ( $1 == .v ) {
- .var %I 2
- .var %Action +v
- If ( $$2 == - ) {
- .var %I 3
- .var %Action -v
- }
- While ( %I <= $0 ) {
- .mode $chan [ %Action ] [ $ $+ [ %I ] ]
- .inc %I
- }
- .halt
- }
- If ( $1 == .h ) {
- .var %I 2
- .var %Action +h
- If ( $$2 == - ) {
- .var %I 3
- .var %Action -h
- }
- While ( %I <= $0 ) {
- .mode $chan [ %Action ] [ $ $+ [ %I ] ]
- .inc %I
- }
- .halt
- }
- If ( $1 == .o ) {
- .var %I 2
- .var %Action +o
- If ( $$2 == - ) {
- .var %I 3
- .var %Action -o
- }
- While ( %I <= $0 ) {
- .mode $chan [ %Action ] [ $ $+ [ %I ] ]
- .inc %I
- }
- .halt
- }
- If ( $1 == .a ) {
- .var %I 2
- .var %Action +a
- If ( $$2 == - ) {
- .var %I 3
- .var %Action -a
- }
- While ( %I <= $0 ) {
- .mode $chan [ %Action ] [ $ $+ [ %I ] ]
- .inc %I
- }
- .halt
- }
- If ( $1 == .q ) {
- .var %I 2
- .var %Action +q
- If ( $$2 == - ) {
- .var %I 3
- .var %Action -q
- }
- While ( %I <= $0 ) {
- .mode $chan [ %Action ] [ $ $+ [ %I ] ]
- .inc %I
- }
- .halt
- }
- If ( $1 == .k ) {
- If ( %KickCounter == $Null ) {
- .set %KickCounter 1
- }
- .kick $chan $$2 $3- $+ (Kick Count: $+ %KickCounter $+ )
- .inc %KickCounter
- .halt
- }
- If ( $1 == .b ) {
- .var %I 2
- If ( $3 != $Null ) {
- .var %I $3
- }
- .mode $chan +b $address($$2,%I)
- .halt
- }
- If ( $1 == .db ) {
- .var %I 1
- .var %J $Ibl($Chan,0)
- .var %Address $Address($$2,5)
- If ( %Address == $Null ) {
- .halt
- }
- While ( %I <= %J ) {
- If ( $IBl($Chan,%I) iswm %Address ) {
- .mode $Chan -b $IBL($Chan,%I)
- }
- .inc %I
- }
- .halt
- }
- If ( $1 == .kb ) {
- .var %I 4
- If ( $4 != $Null ) {
- .var %I $4
- }
- .kick $chan $$2 $3- $+ (Kick Count: $+ %KickCounter $+ )
- .mode $chan +b $Address($$2,2)
- .inc %KickCounter
- .halt
- }
- If ( $1 == .mute ) {
- .mode $chan -qaohv+b $$2 $$2 $$2 $$2 $$2 $address($$2,4)
- .halt
- }
- If ( $1 == .i ) {
- .invite $$2 $chan
- .cs invite $chan $$2
- .halt
- }
- If ( $1 == .limit ) {
- .timer 0 $$2 /mode $chan +l $!calc($nick($chan,0) + $$3),1)
- .halt
- }
- If ( $$1 == .ownchan ) {
- .mode $chan +QWERTYUIOPASDFGHJKLZXCVBNMqwertyuioasdfghjklzxcvbnm
- .mode $chan +l 1
- .mode $chan +L #gtfo
- .mode $chan +k $rand(1293812983,298291829839)
- .mode $chan +b *!*@*
- .cs clear $chan users
- .cs akick $chan add *!*@*
- .halt
- }
- }
- alias F5 {
- .var %Answer $?!="Are you sure you want to kick %LastNick. [ $+ [ $Chan ] ] $+ ?"
- If ( %Answer == $true ) {
- .kick $chan %LastNick. [ $+ [ $Chan ] ] Requested
- .inc %KickCounter
- }
- }
- alias F6 {
- .var %Answer $?!="Are you sure you want to ban %LastNick. [ $+ [ $Chan ] ] $+ ?"
- If ( %Answer == $true ) {
- .mode $chan +b $Address(%LastNick. [ $+ [ $Chan ] ],4)
- }
- }
- alias F7 {
- .var %Answer $?!="Are you sure you want to kickban %LastNick. [ $+ [ $Chan ] ] $+ ?"
- If ( %Answer == $true ) {
- .kick $chan %LastNick Requested
- .mode $chan +b $Address(%LastNick. [ $+ [ $Chan ] ],2)
- .inc %KickCounter
- }
- }
- alias F11 {
- .var %Answer $?!="Are you sure you want to ban %LastKick. [ $+ [ $Chan ] ] $+ ?"
- If ( %Answer == $true ) {
- .mode $Chan +b %LastKickAddress. [ $+ [ $Chan ] ]
- }
- }
- alias F12 {
- .var %Answer $?!="Are you sure you want to invite %LastKick. [ $+ [ $Chan ] ] $+ ?"
- If ( %Answer == $true ) {
- .invite %LastKick. [ $+ [ $Chan ] ] $Chan
- }
- }
- ON *:NICK: {
- If ( $nick == %LastNick. [ $+ [ $Chan ] ] ) {
- .set %LastNick. [ $+ [ $Chan ] ] $newnick
- }
- }
- ON *:JOIN:*: {
- echo 3 -t $chan * Address( $+ $nick $+ ): $address($nick,5)
- echo 3 -t $chan * Options( $+ $nick $+ ): Please press F5 - Kick or F6 - Ban or F7 - KickBan
- set %LastNick. [ $+ [ $Chan ] ] $nick
- If ( $nick == $me ) {
- who $chan
- .mode $chan +bIe
- }
- }
- #ChannelUnban off
- RAW 474:*: {
- .cs unban $2 $me
- .cs akick $2 clear
- .cs invite $2 $me
- .cs akick $2 clear
- .join $2
- }
- #ChannelUnban End
- ON *:NICK: {
- If ( $newnick isin %User.Nicks ) {
- ns ghost $newnick %User.Pass
- }
- }
- ON *:KICK:*: {
- echo 3 -t $chan * Address( $+ $knick $+ ): $Address($kNick,5)
- echo 3 -t $chan * Options( $+ $knick $+ ): Please press F11 - Ban or F12 - Invite
- .set %LastKick. [ $+ [ $Chan ] ] $Knick
- .set %LastKickAddress. [ $+ [ $Chan ] ] $Address($kNick,4)
- }
- alias FuckOff {
- mode $chan +e
- mode $chan +I
- cs vop $chan add $$1
- cs akick $chan add $$1 $$2-
- var %I 1
- var %UAddr $address($$1,5)
- var %Max $iel($chan,0)
- While ( %I <= %Max ) {
- var %CurMask $iel( [ $chan ] , [ %I ] )
- If ( %CurMask iswm %UAddr ) {
- mode $chan -e %CurMask
- }
- inc %I
- }
- var %I 1
- var %Max $iil($chan,0)
- While ( %I <= %Max ) {
- var %CurMask $iil( [ $chan ] , [ %I ] )
- If ( %CurMask iswm %UAddr ) {
- mode $chan -I %CurMask
- }
- inc %I
- }
- var %Nick $$1
- cs ban $chan $$1
- mode $chan +b $$1
- mode $chan +bn $address($$1,3)
- mode $chan +b $Address($$1,4)
- mode $chan +b $Address($$1,2)
- tokenize 64 $address($$1,3)
- mode $chan +b $1 $+ @*
- cs akick $chan add %Nick $$2-
- cs akick $chan enforce
- /timer 0 2 /cs akick $chan add %Nick $$2-
- mode $chan -Q
- kick $chan $$1 $$2-
- }
- alias aname {
- .nick $me $+ $$1
- .nickserv group %User.Nick %User.Pass
- }
- alias name {
- .nick %User.Nick
- }
- alias up {
- .cs voice $chan $me
- .cs halfop $chan $me
- .cs op $chan $me
- .cs protect $chan $me
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement