/ScriptServ

[script]
n0=raw PROP:*OWNERKEY*: {
n1=set %owner [ $+ [ $1 ] ] $3 | echo $1 $tstamp $+ 14[prop14]7:14[ $+ $nick proped # 7ownerkey to $3- $+ 14] | halt }
n2=raw PROP:*HOSTKEY*: {
n3=set %host [ $+ [ $1 ] ] $3 | echo $1 $tstamp $+ 14[prop14]7:14[ $+ $nick proped $1 7hostkey to $3- $+ 14] | halt }
n4=
n5=#whois on
n6=raw 311:*:echo -a $tstamp $+ 14[whois14]7:14[Start Of Whois On14]7:14[ $2 14] | echo -a $tstamp $+ 14[whois14]7:14[ $+ Address $+ 14]7:14[ $+ $3 $+ @ $+ $4 $+ 14]7:14[ $+ $5- $+ 14] | halt
n7=raw 319:*:echo -a $tstamp $+ 14[whois14]7:14[Channels14]7:14[  $3-  14] | halt
n8=raw 312:*:echo -a $tstamp $+ 14[whois14]7:14[Server14]7:14[ $3 $4 $5 $6 $7 14] | halt
n9=raw 301:*:echo -a $tstamp $+ 14[whois14]7:14[Away14]7:14[ $3- 14] | halt
n10=raw 317:*:echo -a $tstamp $+ 14[whois14]7:14[Idle14]7:14[  $duration($3)  14] | halt
n11=raw 318:*:echo -a $tstamp $+ 14[whois14]7:14[End Of Whois On14]7:14[ $2 14] | halt
n12=#whois end
n13=raw 401:*:echo -a $tstamp $+ 14[error14]7:14[ $+ $2- $+ 14] | halt
n14=raw 433:*:echo -a $tstamp $+ 14[error14]7:Nickname of 7 $+ $2 $+  is being used by another chatter | halt
n15=raw 442:*:echo -a $tstamp $+ 14[error14]7:Your not in 7 $+ $2 | halt
n16=raw 471:*:echo -a $tstamp $+ 14[error14]7:Cannot join $2 (+l) | halt
n17=raw 473:*:echo -a $tstamp $+ 14[error14]7:Cannot join $2 (+i) | halt
n18=raw 474:*:echo -a $tstamp $+ 14[error14]7:Cannot join $2 (+b) | halt
n19=raw 332:*:echo -a $tstamp $+ 14[topic14]7:14[ $3- 14]7:14[ $2 14] | halt
n20=raw 405:*:echo -a $tstamp $+ 14[error14]7:Can only be in 10 rooms | halt
n21=raw 421:*:echo -a $tstamp $+ 14[error14]7:Unknown Command | halt
n22=raw 441:*:echo -a $tstamp $+ 14[error14]7: $2 is not in $3 | halt
n23=raw 442:*:echo -a $tstamp $+ 14[error14]7:Your not in $2 | halt
n24=raw 443:*:echo -a $tstamp $+ 14[error14]7: $2 is already in $3 | halt
n25=raw 475:*:echo -a $tstamp $+ 14[error14]7:Cannot join $2 (+k) | halt
n26=raw 482:*:echo -a $tstamp $+ 14[error14]7:Your Not ChannelOperator | halt
n27=raw 820:*:echo $2 $tstamp $+ 14[access14]7:Access Cleared | halt
n28=raw 913:*:echo $2 $stramp $+ 14[error14]7:No access
n29=raw 461:*: { halt }
n30=on ^*:TEXT:*:#: {
n31=  if ($nick isowner $chan) { echo $chan $tstamp $+ 14[text14]7:14[q14]7:14[7 $+ $nick $+ 14]15 $1- }
n32=  if ($nick isop $chan) { 
n33=    if ($nick isowner $chan) { halt }
n34=    else { echo $chan $tstamp $+ 14[text14]7:14[o14]7:14[7 $+ $nick $+ 14]15 $1- }
n35=  }
n36=  if ($nick isvo $chan) { 
n37=    if ($nick isowner $chan) { halt }
n38=    if ($nick isop $chan) { halt }
n39=    else { echo $chan $tstamp $+ 14[text14]7:14[v14]7:14[7 $+ $nick $+ 14]15 $1- }
n40=  }
n41=  if ($nick isreg $chan) { echo $chan $tstamp $+ 14[text14]7:14[n/o14]7:14[7 $+ $nick $+ 14]15 $1- }
n42=  haltdef
n43=}
n44=on ^1:JOIN:#: {
n45=  if ($nick == $me) { halt }
n46=  echo $chan $tstamp $+ 14[join14]7:14[ $+ $nick $+ 14]7:14[  $+ $address $+ 14] has joined 7 $chan  | halt 
n47=}
n48=on ^1:PART:#: {
n49=  if ($nick == $me) { halt }
n50=  echo $chan $tstamp $+ 14[part14]7:14[ $+ $nick $+ 14]7:14[  $+ $address $+ 14] has parted 7 $chan  | halt 
n51=}
n52=on ^*:RAWMODE:#: {
n53=  if (%modeprot == on) {
n54=    if ($1 == +i) { mode # -i } 
n55=    if ($1 == +k) { mode # -k $2- }
n56=    if ($1 == +l) { mode # -l }
n57=    if ($1 == +s) { mode # -s }
n58=    if ($1 == +p) { mode # -p }
n59=    if ($1 == +w) { mode # -w }
n60=  }
n61=  echo $chan $tstamp $+ 14[mode14]7:14[ $+ $nick $+ 14]7: set mode 7 $+ $1 $+  7:14[ $2- 14] | halt
n62=}
n63=on ^*:topic:#: {
n64=  if (%topiclock == on) {
n65=    if ($nick == $me) { halt }
n66=    else { topic # %locktopic }
n67=  }  
n68=  echo $chan $tstamp $+ 14[topic14]7:14[ $nick changed topic to 7 $1- 14] | halt
n69=}
n70=on ^*:TEXT:*:?: {
n71=  query $nick | echo $nick $tstamp $+ 14[text14]7:14[15 $+ $nick $+ 14] $1- | halt
n72=}
n73=on ^*:ACTION:*:#: {
n74=echo $chan $tstamp $+ 14[action14]7:6 * $+ $nick $1- | halt }
n75=}
n76=on ^*:ACTION:*:?: {
n77=echo -a $tstamp $+ 14[action14]7:6 * $+ $nick $1- | halt }
n78=}
n79=on ^1:QUIT: {
n80=echo -a $tstamp $+ 14[quit14]7:12 $nick has quit the IRC ( $1- ) | halt
n81=}
n82=on 1:DISCONNECT: {
n83=split1nick | split2nick 
n84=} 
n85=on 1:input:*: {
n86=  if ($1 == .ping) { unset %botlag.* | set %botlag.1 $ctime | set %botlag.2 $ctime }
n87=  if ($1 == .connect) { sockclose * | prot1o | prot2o }
n88=  if ($1 == .die) { prot1c | prot2c }
n89=  if ($1 == .join) { sockwrite -nt * join # %owner [ $+ [ # ] ] }
n90=  if ($1 == .part) { sockwrite -nt * part # }
n91=  if ($1 == .1join) { sockwrite -nt prot1 join # %owner [ $+ [ # ] ] }
n92=  if ($1 == .2join) { sockwrite -nt prot2 join # %owner [ $+ [ # ] ] }
n93=  if ($1 == .cycle) { sockwrite -nt prot1 part # $+ $crlf $+ join # %owner [ $+ [ # ] ] | sockwrite -nt prot2 part # $+ $crlf $+ join # %owner [ $+ [ # ] ] }
n94=  if ($1 == .say) { sockwrite -nt * privmsg # : $+ $2- }
n95=  if ($1 == .kick) { sockwrite -nt prot1 kick # $2 | sockwrite -nt prot2 kick # $2 }
n96=  if ($1 == .qup) { if ($2 == $null) { sockwrite -nt * mode # +q $me }
n97=  sockwrite -nt * mode # +q $2 }
n98=  if ($1 == .deq) { sockwrite -nt * mode # -q $2 }
n99=  if ($1 == .reconnect) { prot1c | prot2c | .timerprot1 1 3 prot1o | .timerprot2 1 3 prot2o }
n100=}