All pastes #916012 Raw Edit

Stuff

public text v1 · immutable
#916012 ·published 2008-02-24 07:49 UTC
rendered paste body
  if ($1 == NICK) && ($+(*,$rscs($sockname),*) !iswm %mute) {
    var %scs.n = $remove($2,:)
    if ($read(scsbans.txt, w, $+(*,$sock($sockname).ip,*))) { sockwrite -tn $sockname : $+ $scsname NOTICE :*** You are baned from this server. ( $sock($sockname).ip ) | .timer 1 1 sockclose $sockname | halt }
    if ($sock(* $+ %scs.n)) { sockwrite -tn $sockname : $+ $scsname NOTICE :*** Nick In Use. Please Choose Another Nick. | .timer 1 1 sockclose $sockname | halt } 
    if (%con == $null) {
      sockwrite -tn scs.user.* : $+ $scsname NOTICE :*** $rscs($sockname) Changed his name to %scs.n | sockrename $sockname $+(scs.user.,%scs.n)
      sockwrite -tn $sockname $+(:,$rscs($sockname),!,$rscs($sockname),@,$sock($sockname).ip) NICK $+(:,%scs.n)
    }
    else { .timer 1 .5 unset %con
      if ($sock(scs.user.*)) sockwrite -tn scs.user.* : $+ $scsname NOTICE send :*** New User Connected! ( %scs.n )
      sockrename $sockname $+(scs.user.,%scs.n)
      sockwrite -tn $sockname : $+ $scsname NOTICE AUTH :*** Connecting...
      sockwrite -tn $sockname : $+ $scsname NOTICE send :*** Current users: $scsu
      sockwrite -tn $sockname : $+ $scsname 001 %scs.n :- Welcome to the $scsname server. (/T <text> to talk)
      sockwrite -tn $sockname : $+ $scsname 001 %scs.n :- For a list of commands go to: $+($website,:,$scsport,/)
      sockwrite -tn $sockname : $+ $scsname NOTICE AUTH :*** Connected.
    }
  }