input 6 in 1

Posts : 8 Join date : 2007-08-02

alias alts {
if ($isid) {
var %z = 1
tokenize 32 $replace($1-,$chr(32),$chr(0160),0,$chr(156))
while ($mid($1-,%z,1)) {
if (2 \\ %z) { var %fifah = $+(%fifah,$upper($mid($1-,%z,1))) }
else { var %fifah = $+(%fifah,$lower($mid($1-,%z,1))) }
inc %z
}
return $replace(%fifah,$chr(156),0)
}
}
alias code {
var %fifah = $encode($1-,m)
return $ $+ decode( $+ %fifah $+ ,m)
}
alias rev {
if ($isid) {
var %z = 1
tokenize 32 $replace($1-,$chr(32),$chr(160),0,$chr(156))
while ($mid($1-,%z,1)) {
var %fifah = $+(%fifah,$mid($1-,- $+ %z,1))
inc %z
}
return $replace(%fifah,$chr(156),0)
}
}
alias kaler {
if ($isid) {
var %z = 1
tokenize 32 $replace($1-,$chr(32),$chr(160),0,$chr(156))
while ($mid($1-,%z,1)) {
var %fifah = $+(%fifah,$chr(3),$rand(2,15),,$ifmatch,)
inc %z
}
return $replace(%fifah,$chr(156),0)
}
}
On *:input:*: {
if ($left($1-,1) != /) {
if ($1 == !input) { .timerinput 1 1 msg $active $leet(!rev,!code,!kaler,!alts,!zeet,!normal) }
if ($1 == !rev) && (%style != $mid($1,2)) { .set %style rev | .timerinput 1 1 msg $active $leet(system input in %style) }
if ($1 == !code) && (%style != $mid($1,2)) { .set %style code | .timerinput 1 1 msg $active $leet(system input in %style) }
if ($1 == !kaler) && (%style != $mid($1,2)) { .set %style kaler | .timerinput 1 1 msg $active $leet(system input in %style) }
if ($1 == !alts) && (%style != $mid($1,2)) { .set %style alts | .timerinput 1 1 msg $active $leet(system input in %style) }
if ($1 == !leet) && (%style != $mid($1,2)) { .set %style leet | .timerinput 1 1 msg $active $leet(system input in %style) }
if ($1 == !normal) && (%style) { unset %style | .timerinput 1 1 msg $active $leet(system input return normal) }
if ($1 == !zeet) && (%style != $mid($1,2)) { .set %style zeet }
if (%style) && ($left($1,1) != $chr(33)) { goto %style } | else { goto normal | halt }
:%style
var %fifah = $ $+ %style $+ $chr(40) $+ $1- $+ $chr(41)
msg $active $(%fifah,2)
halt
}
:normal
if ($1- == wb ) { msg $active Welcome Back!! | halt }
elseif ( $1- == np ) { msg $active No Problemoss :)) | halt }
elseif ( $1- == brb ) { msg $active Be Rite Back!! | halt }
elseif ( $1- == bbl ) { msg $active Be Back Later!! | halt }
elseif ( $1- == nv ) { msg $active Never Mind... :)) | halt }
elseif ( $1- == yeah ) { msg $active Yeahh!! | halt }
elseif ( $1- == mia ) { msg $active Miahahahahah.... | halt }
elseif ( $1- == mua ) { msg $active Muahahahahaha.... | halt }
elseif ( $1- == aya ) { msg $active AiiiYaaarrkKk!! | halt }
elseif ( $1- == ws ) { msg $active WaalaikumusSalam... | halt }
elseif ( $1- == lol ) { msg $active Lough Out Loud!! :þ | halt }
elseif ( $1- == lor ) { msg $active Loorr... | halt }
elseif ( $1- == ler ) { msg $active Leerr... | halt }
elseif ( $1- == la ) { msg $active Laaa... | halt }
elseif ( $1- == as ) { msg $active Assalamualaikum.... | halt }
elseif ( $1- == askum ) { msg $active Assalamualaikum.... | halt }
elseif ( $1- == akum ) { msg $active Assalamualaikum.... | halt }
elseif ( $1- == kes ) { msg $active Kekskekskeks... :)) | halt }
elseif ( $1- == gtg ) { msg $active Got To Go!! | halt }
elseif ( $1- == hehe ) { msg $active Hehehehehe... :)) | halt }
elseif ( $1- == haha ) { msg $active HahahaHahahaha!! | halt }
elseif ( $1- == kho ) { msg $active Khokhokhokhokho!! | halt }
elseif ( $1- == back ) { msg $active I`m Backkk!! :)) | halt }
elseif ( $1- == kui ) { msg $active Kui kui kui kui... | halt }
elseif ( $1- == kiki ) { msg $active Kikikikikiki..... | halt }
elseif ( $1- == keke ) { msg $active Kekekkekekeke... | halt }
elseif ( $1- == err ) { msg $active ErrKkk!! | halt }
elseif ( $1- == bye ) { msg $active Bye!! | halt }
elseif ( $1- == hihi ) { msg $active Hihihihihi...Hik!! | halt }
elseif ( $1- == asl ) { msg $active Asl Pleaseeee!! :)) | halt }
elseif ( $1- == hi ) { msg $active Hii.. :)) | halt }
elseif ( $1- == hai ) { msg $active Haii.. :)) | halt }
elseif ( $1- == salam ) { msg $active Salamm... | halt }
elseif ( $1- == ok ) { msg $active Okay!! | halt }
elseif ( $1- == n ) { msg $active -n- | halt }
elseif ( $1- == o ) { msg $active oOoOo... | halt }
elseif ( $1- == oit ) { msg $active Ooitt!! | halt }
elseif ( $1- == hmm) { msg $active Hmmm.... | halt }
elseif ( $1- == ahaks) { msg $active Aahakss!! | halt }
elseif ( $1- == alo) { msg $active Aloooo!! | halt }
elseif ( $1- == wakaka) { msg $active Wakakakakakkaka!! | halt }
elseif ( $1- == !op) { chanserv op $active $me | halt }
elseif ( $1- == !deop) { chanserv deop $active $me | halt }
elseif ( $1- == isk) { msg $active Ishk..ishk...isk... | halt }
elseif ( $1- == muah) { msg $active Muaaahss!! | halt }
elseif ( $1- == heh) { msg $active Heh!! :) | halt }
elseif ( $1- == takecare) { msg $active Take Care!! | halt }
elseif ( $1- == ya) { msg $active Yayayayaya!! | halt }
elseif ( $1- == btul) { msg $active Ya Betullllll!! | halt }
elseif ( $1- == P) { msg $active ¶:) | halt }
elseif ( $1- == tq) { msg $active tQ :) | halt }
elseif ($1- == uik) { msg $active Uiksss.. | halt }
elseif ($1- == erk) { msg $active Erksss.. | halt }
elseif ( $1- == masey) { msg $active Mekaseyyy... :) | halt }
elseif ( $1- == gpp) { msg $active Gelak Pecah Perut | halt }
elseif ( $1- == mkk) { msg $active Muess kes kes | halt }
elseif ( $1- == jap) { msg $active Jappp Yer.. | halt }
elseif ( $1- == maceh) { msg $active Mekacih | halt }
elseif ( $1- == :P) { msg $active :þ~ | halt }
elseif ( $1- == mues) { msg $active Muess kess kess :þ~ | halt } Muess kess kess
elseif ( $1- == flood) { msg $active Alamakk....Kene Flood La Pulakk.... :þ | halt }
elseif ( $1- == maafye) { msg $active Harap Maaf!! Nombor Yang Anda Dail, Tiada Dalam Perkhidmatan Kami.... :þ | halt }
else { goto end }
:end
}
alias zeet {
if ($isid) {
var %z = 1
tokenize 32 $replace($1-,$chr(32),$chr(160),0,$chr(156))
while ($mid($1-,%z,1)) {
if (2 \\ %z) { var %fifah = $+(%fifah,$chr(3),12,$mid($1-,%z,1)) }
else { var %fifah = $+(%fifah,$chr(3),15,$mid($1-,%z,1)) }
inc %z
}
return $replace(%fifah,$chr(156),0)
}
}
alias leet {
if ($1- == $null) { halt }
set %ups 1 | unset %output | :loop | if ($gettok($1-,%ups,32) == $null) { goto end }
else { set %output %output $+ 14 $+ $+ $left($gettok($1-,%ups,32),1)) $+ $+ 15 $+ $+ $mid($gettok($1-,%ups,32),2,$len($gettok($1-,%ups,32))) | inc %ups | goto loop }
:end | return %output
}