Eight Input In One

==============================================================================================================================================================
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

========================                   =====================             =======================
Eight Input In One                          Scripting Development               Eight Input In One
From                                      EyiezInc And DevilzCrewz                     Myx
Created By                                     DevilzPrincess                       baby_bucuk
alias devilzcrewz return                         $($!me,2)
========================                   =====================             =======================
****************************************************************************************************
Instruction:
save this file at your mirc folder then load it
"/load -rs "This File"
WARNING: Make Sure This File Was Save In mIRC Folder You Use
WARNING: Make Sure No Other Input On Your Script Editor,Please Unload Your Own Input Or It Will Be Double Text

Don't Edit It, Just Created Commands In Your Style Is Better Than Rip
****************************************************************************************************

menu channel,query {
 Input
 .Style
 ..Off:.set %style Off  | echo -a $sakuraz(Input Off Return Standart)
 ..-
 ..Normal:.set %style Normal | echo -a $sakuraz(style choose) $+($chr(3),13,",$chr(3),$($+($,%style,$chr(40),$devilzcrewz,$chr(41)),2),$chr(3),13,")
 ..-
 ..First Bold:.set %style boldz | echo -a $sakuraz(style choose) $+($chr(3),13,",$chr(3),$($+($,%style,$chr(40),$devilzcrewz,$chr(41)),2),$chr(3),13,")
 ..-
 ..First Upper:.set %style upp | echo -a $sakuraz(style choose) $+($chr(3),13,",$chr(3),$($+($,%style,$chr(40),$devilzcrewz,$chr(41)),2),$chr(3),13,")
 ..-
 ..Ascii:.set %style ascii | echo -a  $sakuraz(style choose) $+($chr(3),13,",$chr(3),$($+($,%style,$chr(40),$devilzcrewz,$chr(41)),2),$chr(3),13,")
 ..-
 ..CHR:.set %style ch | echo -a $sakuraz(style choose) $+($chr(3),13,",$chr(3),$($+($,%style,$chr(40),$devilzcrewz,$chr(41)),2),$chr(3),13,")
 ..-
 ..Decode:.set %style code | echo -a $sakuraz(style choose) $+($chr(3),13,",$chr(3),$($+($,%style,$chr(40),$devilzcrewz,$chr(41)),2),$chr(3),13,")
 ..-
 ..Reverse:.set %style myx | echo -a $sakuraz(style choose) $+($chr(3),13,",$chr(3),$($+($,%style,$chr(40),$devilzcrewz,$chr(41)),2),$chr(3),13,")
 ..-
 ..3 Colour: {
   .set %style ayen
   $iif($input(edit color?,N,[-color editor-]),haltdef,halt)
   .set %kaler $?@"first color" | .set %kaler1 $?@"center color" | .set %kaler2 $?@"last color"
   :done
   if (%acoler == no) { .set %kaler 14 | .set %kaler1 15 | .set %kaler2 14 }
   if (%kaler !isnum) || ($len(%kaler) > 2) { echo -a $sakuraz(your first color is error : %kaler) | goto res1 | halt }
   if (%kaler1 !isnum) || ($len(%kaler1) > 2) { echo -a $sakuraz(your center color is error : %kaler1) | goto res2 | halt }
   if (%kaler2 !isnum) || ($len(%kaler2) > 2) { echo -a $sakuraz(your last color is error : %kaler2) | goto res3 | halt }
   echo -a $sakuraz(style choose) : $($+($,%style,(,your text,)),2)
   halt
   :res1
   unset %kaler
   .set %kaler $?@"first color number"
   goto done
   :res2
   .set %kaler1 $?@"center color number"
   goto done
   :res3
   .set %kaler2 $?@"last color number"
   goto done
 }

}

On *:input:*: {
 if ($left($1-,1) != /) && ($left($1-,1) != !) {
   if (!$server) { .echo -a $sakuraz(not connected to server) | halt }
   if ($active == status window) { .editbox / | halt }
   if (!$regex(%style,^(upp|alts|code|boldz|ascii|multis|ayen|ch|myx|normal))) { goto normal }
   :%style
   if ($regex($1-,^(as|akum|askum|akom|askom|askomz|akomz|akumz|askumz|assalammualaikum|salamz)$)) { msg $active $($+($,%style,$chr(40),Assalammualaikum Warahmatullah Hiwabarakatuh,$chr(41)),2)  | halt }
   if ($regex($1-,^(ws|wslm)$)) { msg $active $($+($,%style,$chr(40),WaalaikumSalam Warahmatullah Hiwabarakatuh,$chr(41)),2) | halt }
   if ($regex($1-,^(hehe|hihi|haha|hikhik|hoho|huhu|kaka|kiki|kuku|koko|khokho)$)) { msg $active $($+($,%style,$chr(40),$str($1-,4),$chr(41)),2)  | halt }
   if ($regex($1-,^(bye|bai|cau|see yaa)$)) { msg $active $($+($,%style,$chr(40),bye bye ~:D,$chr(41)),2) | halt }
   if ($regex($1-,^(oi|oit|wei|weih|hoi|ui|uii|woi|weis)$)) { msg $active $($+($,%style,$chr(40),oiit oiit~!!,$chr(41)),2) | halt }
   if ($regex($1-,^(cis|ceh|cuih|cuis|caih|cehs|cess|ces|cet|chait)$)) { msg $active $($+($,%style,$chr(40),chaitt!! :P,$chr(41)),2) | halt }
   if ($regex($1-,^(yoo|ya|yer|yup|yes|yo|yaa|yups|yaya)$)) { msg $active $($+($,%style,$chr(40),yer yer..,$chr(41)),2) :) | halt }
   if ($regex($1-,^(hai|hello|hye|hi|haii|hii)$)) { msg $active $($+($,%style,$chr(40),hye there..,$chr(41)),2) :) | halt }
   if ($regex($1-,^(tak|takde|mana ade|tak tahu|takdela|no|nop|bukan|tidak|mana ader)$)) { msg $active $($+($,%style,$chr(40),takder laa..,$chr(41)),2) :D | halt }
   if ($regex($1-,^(ok|okey|wokey)$)) { msg $active $($+($,%style,$chr(40),Okey Bebeh!!,$chr(41)),2) :D | halt }
   if ($regex($1-,^(hmm|hmmm|hm|aa|a'a|a'ah)$)) { msg $active $($+($,%style,$chr(40),a'ahh laa..,$chr(41)),2) :D | halt }
   if ($regex($1-,^(tul|betul|betul tu)$)) { msg $active $($+($,%style,$chr(40),betul tu..~~,$chr(41)),2) :D | halt }
   if ($regex($1-,^(apa|aper)$)) { msg $active $($+($,%style,$chr(40),aper nyer??,$chr(41)),2) | halt }
   if ($regex($1-,^(gtg|brb|n|end)$)) {
     if ($1- == gtg) { msg $active $($+($,%style,$chr(40),got to go all..,$chr(41)),2) :) | halt }
     if ($1- == brb) { msg $active $($+($,%style,$chr(40),jap.. be right back..,$chr(41)),2) :) | halt }
     if ($1- == n) || ($1- == end) { msg $active $($+($,%style,$chr(40),$1-,$chr(41)),2) :) | halt }
   }
   if ($regex($1-,^(ampes|ampeh)$)) { msg $active $($+($,%style,$chr(40),$1- tul sipot ni..!!,$chr(41)),2) | halt }
   msg $active $($+($,%style,$chr(40),$!1-,$chr(41)),2)
   halt
   :normal
   msg $active $1- | halt
 }
}
alias alts {
 var %t = 1,%text = $replace($1-,$chr(32),$!chr(32),0,$!chr(48))
 while ($mid(%text,%t,1)) {
   if (2 \\ %t) { var %out = $+(%out,$upper($mid(%text,%t,1))) }
   else { var %out = $+(%out,$lower($mid(%text,%t,1))) }
   inc %t
 }
 return $replace(%out,$!chr(32),$chr(32),$!chr(48),0)
}
alias upp {
 var %t = 1,%text = $replace($1-,0,$!chr(48))
 while ($gettok(%text,%t,32)) {
   var %text = $replace(%text,$!chr(48),0)
   var %out = $+(%out $upper($left($gettok(%text,%t,32),1)),$lower($mid($gettok(%text,%t,32),2)))
   inc %t
 }
 return %out
}

alias multis {
 var %t = 1,%text = $replace($1-,0,$chr(0134),$chr(32),$chr(160))
 while ($mid(%text,%t,1)) {
   if ($mid(%text,%t,1) == $chr(160)) { var %out = $+(%out,$chr(160)) | inc %t  }
   var %out = $+(%out,$chr(3),$r(2,15),$chr(2),$chr(2),$mid(%text,%t,1))
   inc %t
 }
 return $replace(%out,$chr(160),$chr(32),$chr(0134),$chr(48))
}
alias code {
 var %out = $encode($1-,m)
 return $+($,decode,$chr(40),%out,$chr(44),m,$chr(41))
}

alias boldz {
 var %t = 1,%text = $replace($1-,0,$!chr(48))
 while ($gettok(%text,%t,32)) {
   var %text = $replace(%text,$!chr(48),0,$!chr(40),$chr(40),$!chr(41),$chr(41))
   var %out = $+(%out $chr(2),$chr(31),$left($gettok(%text,%t,32),1),$chr(2),$chr(31),$mid($gettok(%text,%t,32),2))
   inc %t
 }
 return %out
}
alias ascii { return $replace($1-,a,å,o,ô,u,ü,i,î,e,ë,c,ç,p,þ,l,£,t,†,f,ƒ,s,š,z,ž,n,$chr(497)) }
alias normal { return $1-  }
alias ch {
 unset %out
 if ($len($1-) >= 102) { echo -a $sakuraz(sorry this input cannot to long) | halt }
 .set %thr 1 | .set %tt 1
 :ch
 if (%thr > $len($1-)) { return $ $+ +( $+ $left(%out,$calc($len(%out) - 1)) $+ ) | halt }
 if ($chr(%tt) !== $mid($1-,%thr,1)) { inc %tt | goto ch }
 if ($chr(%tt) === $mid($1-,%thr,1)) { set -u1 %out %out $+ $!chr( $+ %tt $+ ) $+ $chr(44) | inc %thr | .set %tt 1 }
 inc %tt
 goto ch
}
alias sakuraz {
 if (!$1) { return }
 var %out = 1
 :ret
 if (%out > $gettok($1-,0,32)) { return %text | halt }
 if ($len($gettok($1-,%out,32)) == 1) { var %text = %text $+($chr(3),0,$+($chr(2),$chr(2)),$left($gettok($1-,%out,32),1),$+($chr(2),$chr(2))) }
 else { var %text = %text $+($chr(3),0,$+($chr(2),$chr(2)),$left($gettok($1-,%out,32),1),$+($chr(2),$chr(2)),$chr(3),14,$+($chr(2),$chr(2)),$left($mid($gettok($1-,%out,32),2),$calc($len($mid($gettok($1-,%out,32),2)) -1)),$chr(3),14,$+($chr(2),$chr(2)),$right($gettok($1-,%out,32),1))) }
 inc %out
 goto ret
}
alias ayen {
 var %out = 1
 :ret
 if ($($+(%,$myx(tuo)),2) > $($myx($+($chr(41),23,$chr(44),0,$chr(44),-1$,$chr(40),kotteg$)),2)) { $myx(nruter) $($+(%,$myx(txet)),2) | $myx(tlah) }
 if ($($myx($+($chr(41),$chr(41),23,$chr(44),tuo%,$chr(44),-1$,$chr(40),kotteg$,$chr(40),nel$)),2) $myx(==) 1) { var %text = $($+(%,$myx(txet)),2) $+($chr(3),%kaler,$+($chr(2),$chr(2)),$left($gettok($1-,%out,32),1),$+($chr(2),$chr(2))) }
 else { var %text = $($+(%,$myx(txet)),2) $+($chr(3),%kaler,$+($chr(2),$chr(2)),$left($gettok($1-,%out,32),1),$+($chr(2),$chr(2)),$chr(3),%kaler1,$+($chr(2),$chr(2)),$left($mid($gettok($1-,%out,32),2),$calc($len($mid($gettok($1-,%out,32),2)) -1)),$chr(3),%kaler2,$+($chr(2),$chr(2)),$right($gettok($1-,%out,32),1))) }
 $myx(cni) $+(%,$myx(tuo)) | $myx(otog) $myx(ter)
}

alias myx {
 if ($isid) {
   var %rt = 1,%text = $replace($1-,0,$!chr(48))
   while ($mid(%text,%rt,1)) {
     var %ort = $+($mid($1-,%rt,1),%ort)
     inc %rt
   }
   return $replace(%ort,$!chr(48),0)
 }
}