socket bot ile kanalda user karsilama

alias bkontrol { $iif($sock(X),sockclose X,sockopen X sunucu-ismi port) }
on *:SOCKOPEN:X: {
  sockwrite -nt $sockname NICK Botnick
  sockwrite -nt $sockname USER Bot-ident "" " $+ $iif($host,$host,$ip) $+ " :Bot-fullname
}
on *:SOCKREAD:X: {
  var %s
  sockread %s
  tokenize 32 %s
  if $1 == PING {
    sockwrite -nt $sockname PONG $2
  }
  if $2 == 376 {
  ;   sockwrite -nt $sockname join 0,
     .timer 1 2 sockwrite -nt $sockname oper operpass.
  }
  if $2 = join && !$istok(muafnick muafnick muafnick Botnick,$gettok($remove($1,:),1,33),32) && $remove($3,:) = #kanal { 
  sockwrite -nt $sockname privmsg $remove($3,:) Sunucumuza hoş geldiniz $gettok($remove($1,:),1,33) }
  if $2 = privmsg && $3 = #kanal {
    if $regex($remove($4,:),/^selam$|s\.a|slm|selam[İıu]n/i) && !$istok([COLOR="red"]muafnick muafnick muafnick[/COLOR] Botnick,$gettok($remove($1,:),1,33),32) {  
    sockwrite -nt $sockname privmsg $3 A.selam $gettok($remove($1,:),1,33) $+ , hoş geldiniz. }
  }
}