only who use this addons can understood

===========================EYIEZINC SCRIPTING DEVELOPMENT===========================
Addons Name: Secret Code Input
Date : 23.04.2009
Created By : Lestat
Description : only who use this addons can understood
Notes : only alphabetic
============================================================================== 

menu channel,query {
  Input Numeric
  .ON:.enable #numeric
  .OFF:.disable #numeric
}

#numeric on
On *:text:*:#: if ($1- isnum) { echo $chan $+($chr(3),12,$chr(44),5,[,$chr(3),15,$nick,$chr(3),12],$chr(3),4,:,$chr(3),0,$chr(2),$chr(2)) $fifah($1-) | halt }
On *:text:*:?: if ($1- isnum) { echo $nick $+($chr(3),12,$chr(44),5,[,$chr(3),15,$nick,$chr(3),12],$chr(3),4,:,$chr(3),0,$chr(2),$chr(2)) $fifah($1-) | halt }
On *:input:*: {
  if ($left($1-,1) != /) && ($remove($1-,$chr(32),$chr(35),@,$,=) isalpha) { msg $active $combine($1-) | halt } 
  return 
}
alias combine {
  var %t = 1,%out = $replace($1-,$chr(32),*)
  while ($mid(%out,%t,1)) {
    if ($mid(%out,%t,1) isnum) { var %combines = $+(%combines,,$mid(%out,%t,1),) }
    var %combines = $+(%combines,$ones($mid(%out,%t,1)))
    var %combines2 = $+(%combines2,$breakcode($mid(%out,%t,1)))
    inc %t
  }
  return $replace($+(%combines,%combines2),*,$chr(48))
}
alias ones {
  if ($1 = *) return *
  if ($1 = a) return 2
  if ($1 = b) return 2
  if ($1 = c) return 2
  if ($1 = d) return 3
  if ($1 = e) return 3
  if ($1 = f) return 3
  if ($1 = g) return 4
  if ($1 = h) return 4
  if ($1 = i) return 4
  if ($1 = j) return 5
  if ($1 = k) return 5
  if ($1 = l) return 5
  if ($1 = m) return 6
  if ($1 = n) return 6
  if ($1 = o) return 6
  if ($1 = p) return 7
  if ($1 = q) return 7
  if ($1 = r) return 7
  if ($1 = s) return 7
  if ($1 = t) return 8
  if ($1 = u) return 8
  if ($1 = v) return 8
  if ($1 = w) return 9
  if ($1 = x) return 9
  if ($1 = y) return 9
  if ($1 = z) return 9
  if ($1 = $chr(124)) return 1
  if ($1 = $chr(35)) return 1
  if ($1 = @) return 1
  if ($1 = $)  return 1 
  if ($1 = $chr(95)) return 1
  if ($1 = =) return 1
}
alias breakcode {
  if ($1 = *) return *
  if ($1 = a) return 1
  if ($1 = b) return 2
  if ($1 = c) return 3
  if ($1 = d) return 1
  if ($1 = e) return 2
  if ($1 = f) return 3
  if ($1 = g) return 1
  if ($1 = h) return 2
  if ($1 = i) return 3
  if ($1 = j) return 1
  if ($1 = k) return 2
  if ($1 = l) return 3
  if ($1 = m) return 1
  if ($1 = n) return 2
  if ($1 = o) return 3
  if ($1 = p) return 1
  if ($1 = q) return 2
  if ($1 = r) return 3
  if ($1 = s) return 4
  if ($1 = t) return 1
  if ($1 = u) return 2
  if ($1 = v) return 3
  if ($1 = w) return 1
  if ($1 = x) return 2
  if ($1 = y) return 3
  if ($1 = z) return 4
  if ($1 = $chr(124)) return 2
  if ($1 = $chr(35)) return 3
  if ($1 = @) return 4
  if ($1 = $chr(95)) return 5
  if ($1 = $) return 6 
  if ($1 = =) return 7
}
alias fifah {
  var %in = 1,%fifah = $replace($1-,$chr(48),*)
  set %temp $left(%fifah,$calc($len(%fifah) / 2))
  set %cut $calc($len(%temp) + 1)
  set %temp2 $mid(%fifah,%cut)
  while ($mid(%temp,%in,1)) {
    set %tempc $mid(%temp,%in,1)
    set %tempc2 $mid(%temp2,%in,1)
    if (%tempc = 2) && (%tempc2 = 1) { set %lineup $remove(ayen,e,y,n) }
    if (%tempc = 2) && (%tempc2 = 2) { set %lineup $remove(best,t,s,e) } 
    if (%tempc = 2) && (%tempc2 = 3) { set %lineup $remove(devilzcrewz,e,i,l,z,v,w,d,r) } 
    if (%tempc = 3) && (%tempc2 = 1) { set %lineup $remove(devilzcrewz,e,i,l,v,z,w,l,r,c) } 
    if (%tempc = 3) && (%tempc2 = 2) { set %lineup $remove(devilz,d,v,i,l,z) } 
    if (%tempc = 3) && (%tempc2 = 3) { set %lineup $remve(full,l,u) } 
    if (%tempc = 4) && (%tempc2 = 1) { set %lineup $remove(great,r,e,t,a) } 
    if (%tempc = 4) && (%tempc2 = 2) { set %lineup $remove(afifah,f,a,i) } 
    if (%tempc = 4) && (%tempc2 = 3) { set %lineup $remove(afifah,f,a,h) } 
    if (%tempc = 5) && (%tempc2 = 1) { set %lineup $remove(ouija,a,i,o,u) } 
    if (%tempc = 5) && (%tempc2 = 2) { set %lineup $remove(genko,e,n,o,g) } 
    if (%tempc = 5) && (%tempc2 = 3) { set %lineup $remove(lestat,a,t,e,s) } 
    if (%tempc = 6) && (%tempc2 = 1) { set %lineup $remove(marza,a,z,r) } 
    if (%tempc = 6) && (%tempc2 = 2) { set %lineup $remove(night,h,t,g,i) } 
    if (%tempc = 6) && (%tempc2 = 3) { set %lineup $remove(of,f) } 
    if (%tempc = 7) && (%tempc2 = 1) { set %lineup $remove(penang,e,n,a,g) } 
    if (%tempc = 7) && (%tempc2 = 2) { set %lineup $remove(aqilah,a,i,l,h) } 
    if (%tempc = 7) && (%tempc2 = 3) { set %lineup $remove(rocky,k,y,c,o) } 
    if (%tempc = 7) && (%tempc2 = 4) { set %lineup $remove(scythe,c,y,t,e,h) } 
    if (%tempc = 8) && (%tempc2 = 1) { set %lineup $remove(init,ini) } 
    if (%tempc = 8) && (%tempc2 = 2) { set %lineup $remove(sue,e,s) } 
    if (%tempc = 8) && (%tempc2 = 3) { set %lineup $remove(vampire,m,a,p,r,i,e) } 
    if (%tempc = 9) && (%tempc2 = 1) { set %lineup $remove(hellow,hello) } 
    if (%tempc = 9) && (%tempc2 = 2) { set %lineup $remove(systemx,system) } 
    if (%tempc = 9) && (%tempc2 = 3) { set %lineup $remove(yoanna,a,n,o) } 
    if (%tempc = 9) && (%tempc2 = 4) { set %lineup $remove(marza,a,m,r) } 
    if (%tempc = *) && (%tempc2 = *) { .set %lineup * }
    if (%tempc = 1) && (%tempc2 = 2) { .set %lineup $chr(124) }
    if (%tempc = 1) && (%tempc2 = 3) { .set %lineup $chr(35) }
    if (%tempc = 1) && (%tempc2 = 4) { .set %lineup @ }
    if (%tempc = 1) && (%tempc2 = 5) { .set %lineup $chr(95) }
    if (%tempc = 1) && (%tempc2 == 6) { .set %lineup $ }
    if (%tempc = 1) && (%tempc2 == 7) { .set %lineup = }
    var %linesup = $+(%linesup,%lineup)
    inc %in
  }
  return $replace(%linesup,*,$chr(32))
}
#numeric end