Shitlist 2.8
Platform: mIRC
Published Dec 20, 2008
Updated May 12, 2009
The newest version, right click in a channel to turn the shoot on/off, and to list people on the shoot. right click a name in a room to add/remove that person from the shoot. Have fun.
additional commands:
/shoot name
/shoot name
KICK REASON BUG FIXED A SECOND TIME
menu channel {
.. shoot
.on: .enable #shoot | echo -a shoot Activated.
.off: .disable #shoot | echo -a shoot Deactivated.
.people on the list: window -e @list | echo @list Type "/shoot NAMEHERE" to shoot a person | var %nicks 1 | while (%nicks <= $ini(shoot,nicks,0)) { echo @list $ini(shoot,nicks,%nicks) on the ip $readini(shoot,nicks,$ini(shoot,nicks,%nicks)) | inc %nicks 1 }
}
menu nicklist {
..shoot
.ADD: { set %global 1 | writeini shoot $address($1,2) $address($1,2) $1 | writeini shoot nicks $1 $address($1,2) | writeini shoot $address($1,2) reason $?="why shoot this guy/girl? (this is mandatory)" | while (%global <= $chan(0)) { if ($1 ison $chan(%global)) { mode $chan(%global) +b-e $address($1,2) $address($1,2) | kick $chan(%global) $1 [shoot Active: $readini(shoot,$address($1,2),reason) ] } | inc %global 1 } | echo -a shoot Entry Added. | .enable #shoot }
.DEL: { set %global2 1 | remini shoot $address($1,2) $address($1,2) $1 | remini shoot nicks $1 | remini shoot $address($1,2) reason | echo -a shoot Entry Removed On $+($1,.) | while (%global2 <= $chan(0)) { mode $chan(%global2) -b $address($1,2) | inc %global2 1 } }
}
;shoot by Acclamator
alias shoot { set %global 1 | writeini shoot $address($1,2) $nick | writeini shoot nicks $nick $address($1,2) | writeini shoot $address($2\1,2) reason $?="why shoot this guy/girl? (this is mandatory)" | while (%global <= $chan(0)) { if ($1 ison $chan(%global)) { mode $chan(%global) +b-e $address($1,2) $address($1,2) | kick $chan(%global) $1 [shoot Active: $readini(shoot,reason,$address($1,2)) ] } | inc %global 1 } | echo -a shoot Entry Added. | .enable #shoot }
alias shoot { set %global 1 | if ($readini(shoot,nicks,$1)) { remini shoot $readini(shoot,nicks,$1) | remini shoot nicks $1 } | echo -a $1 removed from shoot }
#shoot on
on *:join:#: if ($ini(shoot,$address($nick,2),0) >= 1) || ($readini(shoot,nicks,$nick)) { kick $chan $nick [shoot Active] $+([,$readini(shoot,$address($nick,2),reason),]) | mode $chan +b-e $address($nick,2) $address($nick,2) }
on *:ban:#: { if ($banmask == $address($me,2)) && ($nick != $me) || ($bnick == $me) { mode $chan -bb $address($me,2) $me | kick $chan $nick [Ban Protection Active] } }
on *:RAWMODE:*: if ($regex($1,/\+[aqoh]/g) >= 1) && ($me == $2) { var %shoot 1 | while (%shoot <= $nick($chan,0)) { if ($ini(shoot,$address($nick($chan,%shoot),2),0) > 0) || ($readini(shoot,nicks,$nick)) { mode $chan +b-e $address($nick($chan,%shoot),2) $address($nick($chan,%shoot),2) | kick $chan $nick($chan,%shoot) [shoot entry on this nick/mask exists] } | inc %shoot 1 } } | elseif ($nick != $me) { if ($1 == -e) || ($1 == -ee) { if ($address($2,2) == $address($me,2)) || ($2 == $me) { mode $chan +e $address($me,2) | kick $chan $nick [Except Protection Active] } } }
on *:KICK:*: if ($knick == $me) && ($nick != $me) { cs invite $chan | join $chan | mode $chan +b-e+e $address($nick,2) $address($nick,2) $address($me,2) | kick $chan $nick [Kick Revenge Active] }
on *:nick: if ($ini(shoot,$address($nick,2),0) > 0) || ($readini(shoot,nicks,$nick)) { set %global2 1 | while (%global2 <= $chan(0)) { if ($newnick ison $chan(%global2)) { mode $chan(%global2) +b-e $address($newnick,2) $address($newnick,2) | kick $chan(%global2) $newnick [shoot Active on this nick] } | inc %global2 1 } }
#shoot end
