Untitled

This part goes in Nicklist Popups



$$1
-
Info:/uwho $1
Whois:/whois $$1
Query:/query $$1
-
Control
.Ignore:/ignore $$1 1
.Unignore:/ignore -r $$1 1
.Op:{
  var %x = 1, %y = 1
  while (%x <= $snick(#,0)) {
    var %k = %k $snick(#,%x)
    var %m = %m $+ o
    inc %x
  }
  while (%y <= $numtok($modesep(%m),32)) {
    mode # + $+ $gettok($modesep(%m),%y,32) $gettok($nicksep(%k),%y,45)
    inc %y
  }
}
.Deop:{
  var %x = 1, %y = 1
  while (%x <= $snick(#,0)) {
    var %k = %k $snick(#,%x)
    var %m = %m $+ o
    inc %x
  }
  while (%y <= $numtok($modesep(%m),32)) {
    mode # - $+ $gettok($modesep(%m),%y,32) $gettok($nicksep(%k),%y,45)
    inc %y
  }
}
.Halfop:{
  var %x = 1, %y = 1
  while (%x <= $snick(#,0)) {
    var %k = %k $snick(#,%x)
    var %m = %m $+ h
    inc %x
  }
  while (%y <= $numtok($modesep(%m),32)) {
    mode # + $+ $gettok($modesep(%m),%y,32) $gettok($nicksep(%k),%y,45)
    inc %y
  }
}
.Dehalfop:{
  var %x = 1, %y = 1
  while (%x <= $snick(#,0)) {
    var %k = %k $snick(#,%x)
    var %m = %m $+ h
    inc %x
  }
  while (%y <= $numtok($modesep(%m),32)) {
    mode # - $+ $gettok($modesep(%m),%y,32) $gettok($nicksep(%k),%y,45)
    inc %y
  }
}
.Voice:{
  var %x = 1, %y = 1
  while (%x <= $snick(#,0)) {
    var %k = %k $snick(#,%x)
    var %m = %m $+ v
    inc %x
  }
  while (%y <= $numtok($modesep(%m),32)) {
    mode # + $+ $gettok($modesep(%m),%y,32) $gettok($nicksep(%k),%y,45)
    inc %y
  }
}
.Devoice:{
  var %x = 1, %y = 1
  while (%x <= $snick(#,0)) {
    var %k = %k $snick(#,%x)
    var %m = %m $+ v
    inc %x
  }
  while (%y <= $numtok($modesep(%m),32)) {
    mode # - $+ $gettok($modesep(%m),%y,32) $gettok($nicksep(%k),%y,45)
    inc %y
  }
}
.Kick:{
  var %x = 1
  while (%x <= $snick(#,0)) {
    kick # $snick(#,%x)
    inc %x
  }
}
.Kick (why):{
  var %x = 1, %reason = $$?="Reason:"
  while (%x <= $snick(#,0)) {
    kick # $snick(#,%x) %reason
    inc %x
  }
}
.Ban:{
  var %x = 1, %y = 1
  while (%x <= $snick(#,0)) {
    var %k = %k $snick(#,%x)
    var %m = %m $+ b
    inc %x
  }
  while (%y <= $numtok($modesep(%m),32)) {
    mode # + $+ $gettok($modesep(%m),%y,32) $gettok($nicksep(%k),%y,45)
    inc %y
  }
}
.Ban, Kick:{
  var %x = 1
  while (%x <= $snick(#,0)) {
    ban -k # $snick(#,%x) 2
    inc %x
  }
}
.Ban, Kick (why):{
  var %x = 1, %reason = $$?="Reason:"
  while (%x <= $snick(#,0)) {
    ban -k # $snick(#,%x) 2 %reason
    inc %x
  }
}
.Mute:{
  var %x = 1
  while (%x <= $snick(#,0)) {
    var %k = %k ~q: $+ $address($snick(#,%x),2)
    var %m = %m $+ b
    inc %x
  }
  mode # + $+ %m %k
}
.Ban Nick Change:{
  var %x = 1
  while (%x <= $snick(#,0)) {
    var %k = %k ~n: $+ $address($snick(#,%x),2)
    var %m = %m $+ b
    inc %x
  }
  mode # + $+ %m %k
}
CTCP
.Ping:/ctcp $$1 ping
.Time:/ctcp $$1 time
.Version:/ctcp $$1 version
DCC
.Send:/dcc send $$1
.Chat:/dcc chat $$1
-
Actions
.Slap!:{
  if ($snick(#,0) == 1) { /me slaps $$1 around a bit with a large trout $+ . }
  elseif ($snick(#,0) > 1) {
    var %x = 1
    while (%x <= $snick(#,0)) {
      if ($snick(#,0) == %x) { var %Meh = %Meh and $snick(#,%x) }
      elseif ($snick(#,0) != %x) { var %Meh = %Meh $snick(#,%x) $+ $iif($snick(#,0) != 2,$chr(44)) }
      inc %x
    }
    /me slaps %Meh around a bit with a large trout.
  }
}
.Huggle:{
  if ($snick(#,0) == 1) { /me huggles $$1 $+ . }
  elseif ($snick(#,0) > 1) {
    var %x = 1
    while (%x <= $snick(#,0)) {
      if ($snick(#,0) == %x) { var %Meh = %Meh and $snick(#,%x) }
      elseif ($snick(#,0) != %x) { var %Meh = %Meh $snick(#,%x) $+ $chr(44) }
      inc %x
    }
    /me huggles %Meh $+ .
  }
}
.Poke!:{
  if ($snick(#,0) == 1) { /me pokes $$1 $+ . }
  elseif ($snick(#,0) > 1) {
    var %x = 1
    while (%x <= $snick(#,0)) {
      if ($snick(#,0) == %x) { var %Meh = %Meh and $snick(#,%x) }
      elseif ($snick(#,0) != %x) { var %Meh = %Meh $snick(#,%x) $+ $chr(44) }
      inc %x
    }
    /me pokes %Meh $+ .
  }
}
.Touch!:{
  if ($snick(#,0) == 1) { /me touches $$1 $+ . }
  elseif ($snick(#,0) > 1) {
    var %x = 1
    while (%x <= $snick(#,0)) {
      if ($snick(#,0) == %x) { var %Meh = %Meh and $snick(#,%x) }
      elseif ($snick(#,0) != %x) { var %Meh = %Meh $snick(#,%x) $+ $chr(44) }
      inc %x
    }
    /me touches %Meh $+ .
  }
}
.Lick:{
  if ($snick(#,0) == 1) { /me licks $$1 $+ . }
  elseif ($snick(#,0) > 1) {
    var %x = 1
    while (%x <= $snick(#,0)) {
      if ($snick(#,0) == %x) { var %Meh = %Meh and $snick(#,%x) }
      elseif ($snick(#,0) != %x) { var %Meh = %Meh $snick(#,%x) $+ $chr(44) }
      inc %x
    }
    /me licks %Meh $+ .
  }
}
-
Kill:{
  if ($regex($usermode,/O/) || $regex($usermode,/o/)) {
    var %x = 1, %reason = $$?="Reason:"
    while (%x <= $snick(#,0)) {
      kill $snick(#,%x) %reason
      inc %x
    }
  }
}




This part goes in remotes

alias modesep {
  if ($len($1) > 12) {
    var %w = $ceil($calc($len($1) / 12)), %x = 1
    while (%x <= %w) {
      var %z = $left($1,1)
      var %y = %y $str(%z,12) $+ $chr(32)
      inc %x
    }
    return %y
  }
  elseif ($len($1) <= 12) { return $1 }
}
alias nicksep {
  var %w = $ceil($calc($numtok($1,32) / 12)), %j = 1, %g = 12, %z = 1
  while (%z <= %w) {
    var %k = %k $+ $gettok($1,$+(%j,-,%g),32) $+ - 
    var %j = $calc(%g + 1)
    var %g = $calc(%g + 12)
    inc %z
  }
  return %k
}