Spec Kicker due to recent MSN changes.

It appears MSN decided to make a change so specs could join all rooms without being kicked. I am aware Dave has one that works for GuarDDog, but I made this one so that it will work for all scripts. It appears to work just fine and kicks as quick as a sockwrite if you ask me. Let me know if there are any bugs to be worked out.

;;;;;;Spec Kicker by Mail;;;;;; 
menu channel { 
 Spec Kicker ( $+ $group(#spec) $+ ) 
 .$iif($group(#spec) == on,$style(2),$style(0)) On: .enable #time | echo -a 0,12No Spec kick $+ 0,94 On 
 .$iif($group(#spec) == off,$style(2),$style(0)) Off: .disable #time | echo -a 0,12No Spec kick $+ 0,4 Off 
} 
#spec on 
on @*:JOIN:#: { 
 if ($nick == $me) || ($nick isop $chan) { halt } 
 hadd -m Spec Nick $nick 
 hadd -m Spec Address $address 
 hadd -m Spec Chan $chan 
 ctcp $hget(Spec,Nick) TIME  
 if ($hget(Spec)) { timer.undo 1 15 hfree Spec } 
} 
on @*:KICK:#: { 
 if ($hget(Spec)) { 
   access # add deny $hget(Spec,Address) 60 
 } 
} 
raw 908:*:{  
 kick $hget(Spec,Chan) $hget(Spec,Nick) -=[Subscribers Only]=- 
}  
#spec end 

not sure what you mean.. mine still works

The one I was using used to check the following line to see if a spec or not, and kicked quickly upon joining using a sockwrite. MSN seems to have changed the format to take out the O on the end of a spectators information upon joining a room.

H,U,RXO

Now this is what you get returned if a spectator joins using the old method.

H,U,RX

Without the last character there is nothing for that older code to do but just sit there. At least with the one I just posted, It will kick the spectators almost as quick as the old sockwrite method I was using.

hmm weird...

msn.server.1: :٭«Кѕшту»٭!A579B0F32ED0928D@GateKeeperPassport JOIN H,U,RXO :%#ChatTampaBay

msn.server.1: :tk2chatchata03 913 Zantetsuken %#ChatTampaBay :No access

lil bit ago ^^

Isnt what I am getting. I used to get that return. Now I dont. No idea what MSN has done now lol, but the one I posted is effective as well.

spec kick..

 if ($2 = JOIN) {
   if ($regex($3,/O$/g)) { sockwrite -n $sockname kick $mid($4,2) $right($gettok($1,1,33),-1) Spec?? }
 }

no useless/annoying ping required..

that is provided the connection is properly written to support that.

Well Entox|cated i dono why you pasted an sockread with out an proper connection support ?

Add it to the rooms socket an edited it if needed lol

simple cryton, i posted it so people could use it, doesn't take too much to figure out where it goes seeming as though i put

"if ($2 = JOIN) {"

what connection support is there needed ? it's obvious it goes in the channel socket.

What they mean, the connection needs to support IRCSERV8 to see the extra 0 or B beside someone name.

yeah, but most connections are using ircvers8 or 9 now and it aint hard to change them over ..

I like the eventshandling in ircvers7.