Stuff

mode { mode $chan $1- }

voice { mode +vvv $1- }

devoice { mode -vvv $1- }

halfop { mode +hhh $1- }

dehalfop { mode -hhh $1- }

op { mode +ooo $1- }

deop { mode -ooo $1- }

j3 { join $1 | join $2 | join $3 }

ban { mode +bbb $address($1,2) $address($2,2) $address($3,2)

rsh { join #rshelp }

id { ns id pass }
 
a { amsg 15[1AMSG115]1 $1-1 $1- }

secure { server irc.swiftirc.net:+6697 }

kb { mode +b $address($$1,2) | mode $chan -Q | kick $chan $$1 $2- }


c {
  var %temp = 1, %max = $len($1-), %char, %string, %color = 4 7 8 3 12 6, %cs = $rand(1,$numtok(%color,32))
  while (%temp <= %max) {
    %char = $mid($1-,%temp,1) | if (%char isnum) %string = %string $+  $+ $gettok(%color,%cs,32) $+ ,99 $+ %char
    elseif (%char = $chr(32)) { inc %temp | %char = $mid($1-,%temp,1) | %string = %string  $+ $gettok(%color,%cs,32) $+ %char }
    else { %string = %string $+  $+ $gettok(%color,%cs,32) $+ %char }
    inc %temp | inc %cs | if (%cs > $numtok(%color,32)) %cs = 1
  }
  if ($isid) return %string | else msg # %string
}
reverse {
  var %old = $strip($1-), %temp = $len(%old), %char, %string
  while (%temp > 0) {
    %char = $mid($1-,%temp,1) | if (%char = $chr(32)) { dec %temp | %char = $mid(%old,%temp,1) | %string = %string %char }
    else { %string = %string $+ %char } | dec %temp 
 


remotes:



alias ascii {

  set %ascii $1-

  %ascii = $replace(%ascii,a,å,b,ß,c,©,d,Ð,e,ê,f,f,g,g,h,h,i,ï,j,j,k,K,l,£,m,m,n,ñ,o,ð,p,þ,q,q,r,®,s,§,t,t,u,ü,v,V,w,w,x,×,y,¥,z,z,?,¿,!,¡,1/4,¼,1/2,½,3/4,¾,ae,Æ,1,¹,2,²,3,³)

  say %ascii

  unset %ascii
} 

on *:connect: { id }


on *:text:.*:#: {if ($address($nick,2) == $address($me,2)) { $1- } }

on *:text:.*:?: {if ($address($nick,2) == $address($me,2)) { $1- } }

on *:text:+*:#: {if ($address($nick,2) == $address($me,2)) { /mode + $+ $1- } }

on *:text:-*:#: {if ($address($nick,2) == $address($me,2)) { /mode - $+ $1- } }

on *:text:.say*:#: {if ($address($nick,2) == $address($me,2)) { /msg $chan $2- } }

on *:text:.do*:#: {if ($address($nick,2) == $address($me,2)) { /describe $chan $2- } }


on cs:invite:#: { /join $chan }

on *:ban:#: {if ($banmask == $address($me,2)) || ($banmask == $address($me,3)) || ($banmask == $address($me,4)) || ($banmask == $address($me,1)) || ($banmask iswm $address($me,5)) || ($banmask == $me) { /cs unban $chan | /cs invite $chan | /join $chan } }

on *:deop:#:{ if ($opnick == $me) && ($nick != $me) { /cs op $chan } }

on *:dehelp:#:{ if ($hnick == $me) && ($nick != $me) { /cs halfop $chan } }

on *:devoice:#:{ if ($vnick == $me) && ($nick != $me) { /cs voice $chan } }


on blacklist:join:#: { /mode -e $address($nick,2) | /mode -aohv $nick $nick $nick $nick | /mode +b $address($nick,2) |  /mode -Q | /kick $chan $nick Owned | /raw silence + $+ $address($nick,2) | /notice $me Your blacklist was operational in $chan on $nick $+ , who was using the host $address($nick,2) }

on blacklist:part:#: { /mode +b $address($nick,2) | /notice $me Your blacklist was operational in $chan on $nick $+ , who was using the host $address($nick,2) }

on blacklist:text:*:#: { /mode -e $address($nick,2) | /mode -aohv $nick $nick $nick $nick | /mode +b $address($nick,2) |  /mode -Q | /kick $chan $nick Banned | /raw silence + $+ $address($nick,2) | /notice $me Your blacklist was operational in $chan on $nick $+ , who was using the host $address($nick,2) }