On *:TEXT:*:#Name: {
If ($1 == Hello) { msg # Hello $Nick $+ ! }
If ($Ial($Nick,1).host == $Ial($Me,1).host) {
If ($1 == !Akick) {
If (!$2) { .notice $Nick Insufficient Paramters. }
Else {
set %AKick [ $+ [ $2 ] ] $iif($3,$3-,AKicked.)
.notice $Nick $2 has been added to the akick list for the reason: $iif($3,$3-,AKicked.)
var %a = $Ialchan($2,#,0)
While (%a) {
If ($Ialchan($2,#,%a).host != $Ial($Me,1).host) {
mode # +b $2
kick # $Ialchan($2,#,%a).nick $3-
}
dec %a
}
}
}
On *:JOIN:#Name: {
var %a = $Var(%AKick*,0)
While (%a) {
If ($Ialchan($Right($Var(%AKick*,%a),-6),#,1).nick) == $Nick) {
mode # +b $Var(%AKick*,%a)
kick # $Nick $Var(%AKick*,%a).value
}
dec %a
}
}