on @*:join:#: {
var %x = $var(rkick. $+ # $+ .*)
while (%x) {
var %knick = $gettok($var(rkick. $+ # $+ .*,%x),3,46)
var %z = $var(rkick. $+ # $+ .*,%x).value
if (%knick ison #) {
kick # %knick revenge kick thx $calc(%z - 1) more
if (%z <= 1) { unset [ $var(rkick. $+ # $+ .*,%x) ] }
else { dec $var(rkick. $+ # $+ .*,%x) }
}
dec %x
}
}