;===================Semi-useful scripts================
alias wjoin { set %wjoin on | whois $$1 }
raw 319:*: { if (%wjoin) { unset %wjoin | var %x 3 | while (%x <= $0) { var %wchans $addtok(%wchans,$regsubex($eval($+($chr(36),%x),2),/^.*#/,$chr(35)),44) | inc %x } | join %wchans } }
raw 401:*: { if (%wjoin) { unset %wjoin } }
 
alias checkraw { set %checkraw $iif(%checkraw == 0 || !%checkraw,1,0) | echo -a Checkraw is $iif(%checkraw == 1,on,off) }
raw *:*: { if (%checkraw == 1) { echo -a Raw $numeric $+ : $1- } }
;==================='Fun' scripts======================
menu * {
  Noobtalk $iif(%noobtalk == on,OFF,ON): set %noobtalk $iif(%noobtalk == on,off,on)
  8ball thing
  ..Single:set %8ballthing single
  ..Multi:set %8ballthing multi
  ..Off:unset %8ballthing
}
on *:INPUT:*: { if (%noobtalk == on) && ($left($1,1) != /) { /noobtalk $1- | haltdef } }
alias noobtalk {
  var %x = $0, %y = 1
  while (%y <= %x) {
    var %z = $regsubex($gettok($1-,%y,32),/(.)/g,\1.), %a = $iif($floor($calc($len(%z)/4)) < 1,1,$floor($calc($len(%z)/4)))
    while (%a) {
      var %z $deltok(%z,$r(1,$len(%z)),46)
      dec %a
    }
    var %b $addtok(%b,[ %z ],32)
    inc %y 1
  }
  msg $active $remove(%b,.)
}
on *:text:*[] *:#: {
  if (!%act8thing) {
    if (%8ballthing == multi) {
      set %blah $1-
      var %n $findtok(%blah,[],0,32)
      while (%n) {
        set %blah $reptok(%blah,[],$iif($r(1,10) >= 5,[X],$+($chr(91),$chr(32),$chr(93))),%n,32)
        dec %n
      }
      msg $chan %blah
      unset %blah
    }
    elseif (%8ballthing == single) {
      msg $chan $reptok($1-,[],[X],$r(1,$wildtok($1-,[],0,32)),32)
    }
    set -u10 %act8thing 1
  }
}

Commenting Options