wjoin alias: Joins all of the channels $1 is on (/wjoin Bob)
checkraw: Just echoes some raw info
Noobtalk: Rmves rndm lters frm wht yu typ (/noobtalk Cows go mooooooo) or turn it on through the menu to always type like that.
8ballthing: Can be set to pick 1 choice or multiple.
(Is the sky blue? [] No [] Yes [] Cookies = Is the sky blue? [X] No [ ] Yes [X] Cookies)
;===================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
}
}
lol @
%act8thing
Here are some things I like about this pack of scripts.
Overall, 7.0 from me.
Great scripts Blitzjager. XD