Public paste
vertaal scriptje
By: mike-creator | Date: Oct 4 2006 18:23 | Format: None | Expires: never | Size: 836 B | Hits: 773

  1. ;---------------------------------;
  2. ; Maker: mike-creator             ;
  3. ; Date: 04-10-2006                ;
  4. ; Time: 20:00                     ;
  5. ; Please do not steal the script  ;
  6. ; Useage: /secrot make tekst      ;
  7. ;         /secrot translate tekst ;
  8. ;---------------------------------;
  9.  
  10. alias secrot {
  11.   if ($1 == make) {
  12.     unset %text2
  13.     var %text = $2-
  14.     var %i = 1
  15.     while (%i <= $len(%text)) {
  16.       set %text2 $addtok(%text2,$secrat($mid(%text,%i,1)),0)
  17.       inc %i
  18.     }
  19.     echo -ag Normal: $2-
  20.     msg $active %text2
  21.   }
  22.   elseif ($1 == translate) {
  23.     set %translate $replace($2-,eafan,$chr(160))
  24.     set %translate $remove(%translate,opczef)
  25.     echo -ag 7((14Translate7))1 %translate
  26.   }
  27. }
  28. alias secrat {
  29.   if ($1 != $chr(32)) { return $1- $+ opczef }
  30.   else { return eafan }
  31. }
  32.