By Soulkeeper on Aug 20, 2008This is just an alias follow-up for DJ_801's awesome script with HALF in it. :D
Original coding: SoulKeepz
Tidied Up/Fixed: napa
Usage: /half this text here will be cut into pieces. :>
This script is now a collaborative. Have another way to do it? Post it. :D
;Soul & Napa Version
alias half {
var %% = $numtok($1-,32), %wee $1-
while (%%) {
var %said $addtok(%said,$left(%wee,$ceil($calc($len($gettok($1-,%%,32)) / 2))),32), %wee $deltok(%wee,1,32)
dec %%
}
msg $active %said
}
;Lindrian Version
alias half {
var %a 1
while ($($ $+ %a,2) != $null) {
var %s %s $left($v1,$ceil($calc($len($v1)/2)))
inc %a
}
msg $active %s
}
;F*U*R*B*Y Version
alias half { echo -a a whole }
;Gummo Edition
alias half {
while $0 {
var %s %s $left($1,$ceil($calc($len($1)/2)))
tokenize 32 $2-
}
msg $active %s
}
