Public paste
for armani
By: mike-creator | Date: Sep 19 2006 06:49 | Format: None | Expires: never | Size: 671 B | Hits: 742

  1. alias pctek {
  2.   unset %haakje
  3.   unset %text2
  4.   var %text = $1-
  5.   var %i = 1
  6.   while (%i <= $len(%text)) {
  7.     set %text2 $addtok(%text2,$pctek2($mid(%text,%i,1)),0)
  8.     inc %i
  9.   }
  10.   return %text2
  11. }
  12. alias pctek2 {
  13.   if ($chr(32) !isin $1) {
  14.     if ($1 == $chr(40)) { set %haakje 1 | return 7 $+ $chr(40) }
  15.     elseif ($1 == $chr(41)) { unset %haakje | return 7 $+ $chr(41) }
  16.     elseif ($1 isupper) && (%haakje) { return 15 $+ $1- }
  17.     elseif ($1 islower) && (%haakje) { return 14 $+ $1- }
  18.     elseif ($1 isupper) && (!%haakje) { return 1 $+ $1- }
  19.     elseif ($1 islower) && (!%haakje) { return 1 $+ $1- }
  20.   }
  21.   else { return  $+ $chr(160) }
  22. }
Latest pastes
14 hours ago
16 hours ago
16 hours ago
1 days ago
1 days ago