Public paste
Wa is er mis
By: mike-creator | Date: Oct 6 2006 16:52 | Format: None | Expires: never | Size: 872 B | Hits: 1274

  1. alias stijl {
  2.   unset %hkjj
  3.   unset %stijl2
  4.   unset %haakje1
  5.   set %hkjj 1
  6.   var %stijl = $1-
  7.   var %i = 1
  8.   while (%i <= $len(%stijl)) {
  9.     set %stijl2 $addtok(%stijl2,$stijl2($mid(%stijl,%i,1)),0)
  10.     inc %i
  11.   }
  12.   return %stijl2
  13.   unset %hkjj
  14.   unset %haakj*
  15. }
  16. alias stijl2 {
  17.   if ($chr(32) !isin $1) {
  18.     if ($1 == $chr(40)) {
  19.       set %haakje [ $+ [ %hkjj ] ] 1
  20.       inc %hkjj
  21.       return 07 $+ $chr(40)
  22.     }
  23.     elseif ($1 == $chr(41)) {
  24.       unset %haakje [ $+ [ %hkjj ] ]
  25.       dec %hkjj
  26.       return 07 $+ $chr(41)
  27.     }
  28.     elseif ($1 isupper) && (%haakje $+ *) { return 03 $+ $1- }
  29.     elseif ($1 islower) && (%haakje $+ *) { return 01 $+ $1- }
  30.     elseif ($1 isupper) && (!%haakje $+ *) { return 14 $+ $1- }
  31.     elseif ($1 islower) && (!%haakje $+ *) { return 14 $+ $1- }
  32.   }
  33.   else { return  $+ $chr(160) }
  34. }
  35.