/ScriptServ

#pager off
ctcp 1:page {
  if ($chan) return
  else {
    write page.txt aline @pages Nick: $nick 
    write page.txt aline @pages From: $address on ( $+ $replace($adate,/,-) at $atime $+ ) 
    inc %pages 
    if ($2) write page.txt aline @pages Page: $2- 
    else write page.txt aline @pages Page: no message
    write page.txt aline @pages $str(70,-)
    if ($away) .raw -q notice $nick :Your page has been received $atime $+ ) 
    else .raw -q notice $nick :Your page has been recieved.
  }
}
#pager end
ctcp 1:sound {
  if (%sound == on)  { recho Recieved  sound ( $4  ) from $nick at [ [ $+ [ $address ] $+ ] ] }
  if (%sound == off) { HALT }  
  if (%ctcps == 3) { .ignore -tu60 $wildsite | unset %ctcps | .set %myflnick $me | .timer 1 20 /nick %myflnick  | /nick $me $+ - |  /recho ctcp flood detected from $nick  [ [ $+ [ $address ] $+ ] ]  | .alias  f11  .nick %myflnick | recho To change back to origional nick press f11  | halt }  
  inc %ctcps
  .timer5 1 20 /unset %ctcps
}    
ctcp 1:version {
  raw -q notice $nick :
VERSION %version By TheShad0w 
  recho CTCP $hc($1) $sc(request) by  $+ $hc($nick) $+ : $wildsite 
  if (%ctcps == 3) { .ignore -tu60 $wildsite | unset %ctcps | .set %myflnick $me | .timer 1 20 /nick %myflnick  | /nick $me $+ - |  /recho ctcp flood detected from $nick  [ [ $+ [ $address ] $+ ] ]  | .alias  f11  .nick %myflnick | recho To change back to origional nick press f11  | halt }  
  inc %ctcps
  .timer5 1 20 /unset %ctcps
}
ctcp 1:ping { 
  recho CTCP $hc($1) $sc(request) by  $+ $hc($nick) $+ : at $atime($2-) 
  if (%ctcps == 3) { .ignore -tu60 $wildsite | unset %ctcps | .set %myflnick $me | .timer 1 20 /nick %myflnick  | /nick $me $+ - |  /recho ctcp flood detected from $nick  [ [ $+ [ $address ] $+ ] ]  | .alias  f11  .nick %myflnick | recho To change back to origional nick press f11  | halt }  
  inc %ctcps
  .timer5 1 20 /unset %ctcps
}
ctcp 1:clientinfo {
  recho CTCP $hc($1) $sc(request) by  $+ $hc($nick) $+ : $wildsite 
  if (%ctcps == 3) { .ignore -tu60 $wildsite | unset %ctcps | .set %myflnick $me | .timer 1 20 /nick %myflnick  | /nick $me $+ - |  /recho ctcp flood detected from $nick  [ [ $+ [ $address ] $+ ] ]  | .alias  f11  .nick %myflnick | recho To change back to origional nick press f11  | halt }  
  inc %ctcps
  .timer5 1 20 /unset %ctcps
}
ctcp 1:finger {
  recho CTCP $hc($1) $sc(request) by  $+ $hc($nick) $+ : $wildsite 
  if (%ctcps == 3) { .ignore -tu60 $wildsite | unset %ctcps | .set %myflnick $me | .timer 1 20 /nick %myflnick  | /nick $me $+ - |  /recho ctcp flood detected from $nick  [ [ $+ [ $address ] $+ ] ]  | .alias  f11  .nick %myflnick | recho To change back to origional nick press f11  | halt }  
  inc %ctcps
  .timer5 1 20 /unset %ctcps
}
ctcp 1:userinfo {
  recho CTCP $hc($1) $sc(request) by  $+ $hc($nick) $+ : $wildsite
  if (%ctcps == 3) { .ignore -tu60 $wildsite | unset %ctcps | .set %myflnick $me | .timer 1 20 /nick %myflnick  | /nick $me $+ - |  /recho ctcp flood detected from $nick  [ [ $+ [ $address ] $+ ] ]  | .alias  f11  .nick %myflnick | recho To change back to origional nick press f11  | halt }  
  inc %ctcps
  .timer5 1 20 /unset %ctcps
}
ctcp 1:time { 
  recho CTCP $hc($1) $sc(request) by  $+ $hc($nick) $+ : $wildsite
  if (%ctcps == 3) { .ignore -tu60 $wildsite | unset %ctcps | .set %myflnick $me | .timer 1 20 /nick %myflnick  | /nick $me $+ - |  /recho ctcp flood detected from $nick  [ [ $+ [ $address ] $+ ] ]  | .alias  f11  .nick %myflnick | recho To change back to origional nick press f11  | halt }  
  inc %ctcps
  .timer5 1 20 /unset %ctcps
}
#ua on
ctcp 90:info {
  if ($2) recho CTCP $hc($1) $sc(request) by  $+ $hc($nick) $+ : $2-
  else recho CTCP $hc($1) $sc(request) by  $+ $hc($nick) $+  at $hc($atime) $+ .
  if ($2 == $null) .quote notice $nick :Syntax: /CTCP $me INFO <info-line> (sets your info line) or /CTCP $me INFO none (removes your info line)
  elseif ($2 == none) { 
    write -ds $+ $address($nick,3) info.txt 
    .raw notice $nick :Removed your info line. 
  }
  else {
    write -ds $+ $address($nick,3) info.txt 
    write info.txt   $address($nick,3) $2- 
    .raw  notice $nick :Now: $2-
  }
}
ctcp 80:help {
  if ($2) recho CTCP $hc($1) $sc(request) by  $+ $hc($nick) $+ : $2-
  else recho CTCP $hc($1) $sc(request) by  $+ $hc($nick) $+  at $hc($atime) $+ .
  .raw notice $nick :List of Commands for User Level VOICE.
  .raw notice $nick :All commands start with /CTCP $me 'COMMAND'
  .raw notice $nick :To regain voice if you loose it type /ctcp $me voice <password>
  .timer 1 3 .raw notice $nick :'INFO <info-line>' - Sets your info line.
}
ctcp 90:help {
  if ($2) recho CTCP $hc($1) $sc(request) by  $+ $hc($nick) $+ : $2-
  else recho CTCP $hc($1) $sc(request) by  $+ $hc($nick) $+  at $hc($atime) $+ .
  .raw notice $nick :List of Commands for User Level OP.
  .raw notice $nick :All commands start with /CTCP $me 'COMMAND'
  .timer 1 3 .raw notice $nick :'OP <channel> <password>' - Grants you ops in the requested channel. 
  .timer 1 7 .raw notice $nick :'VOICE <channel> [nick]' - Gives you or your friends voice in the requested channel.
  .timer 1 11 .raw notice $nick :'INFO <info-line>' - Sets your info line.
  .timer 1 11 .raw notice $nick :'PASS <password> [newpass]' - Sets or changes your password.
}
ctcp 70:voice {
  recho CTCP $hc($1) $sc(request) by  $+ $hc($nick) $+ : $2-
  if ($3 == $null) { mode $chan +v $nick }
  elseif ($me isop $2) { 
    if ($3) mode $2 +v $3
    else mode $2 +v $nick
  }
  else .raw notice $nick :I'm not opped on  $+ $2 $+ .
}
ctcp 90:op {
  if ($2) recho CTCP $hc($1) $sc(request) by  $+ $hc($nick) $+ : $2-
  else recho CTCP $hc($1) $sc(request) by  $+ $hc($nick) $+  at $hc($atime) $+ .
  if ($2 == $null) .raw notice $nick :Syntax: /CTCP $me OP <channel #> <password>
  elseif ($me !isop $2) .raw notice $nick :I'm not opped on  $+ $2 $+ .
  else { .raw notice $nick :You are already opped on  $+ $2 $+ .
  }
  else { .raw notice $nick :You cannot receive ops on  $+ $2 $+ .
  }
  else { .raw notice $nick :Invalid password.
  }
  else {
    %tmp = $readini  names.txt  $usr($nick) opchannel 
    if (($2 isin %tmp) || (%tmp == all)) mode $2 +o $nick
    else .raw notice $nick :You cannot receive ops on  $+ $2 $+ .
  }
}
ctcp 90:pass {
  if ($2) recho CTCP $hc($1) $sc(request) by  $+ $hc($nick) $+ : $2-
  else recho CTCP $hc($1) $sc(request) by  $+ $hc($nick) $+  at $hc($atime) $+ .
  if ($usr($nick) != $nick) raw  notice $nick :You're not $nick $+ , you're $usr($nick) $+ .
  elseif ($3) {
    if ($len($3) < 4) .raw  notice $nick :Please use at least 4 characters.
    elseif ($idpass($3)) .raw  notice $nick :Invalid password, please try again. 
    elseif ($idpass($2) == $nick) { 
      writeini  names.txt  ($rb($nick) password $3
      writeini  names.txt  passwords $3 $nick 
      remini  names.txt  passwords $2
      .raw  notice $nick :Changed password to ' $+ $3 $+ ' 
    } 
    else .raw  notice $nick :Password you supplied did not match.
  }
  elseif ($2) {
    if ($readini -n  names.txt  $rb($nick) password) raw  notice $nick :You already have a password set.
    elseif ($len($2) < 4) raw  notice $nick :Please use at least 4 characters.
    elseif ($idpass($2)) raw  notice $nick :Invalid password, please try again.
    else { 
      writeini  names.txt  $rb($nick) password $2
      writeini  names.txt  passwords $2  $nick 
      .raw  notice $nick :Password set to ' $+ $2 $+ '
    }
  }
  else .raw  notice $nick :Syntax: /CTCP $me PASS <password>
}
#ua end