- alias pctek {
- unset %haakje
- unset %text2
- var %text = $1-
- var %i = 1
- while (%i <= $len(%text)) {
- set %text2 $addtok(%text2,$pctek2($mid(%text,%i,1)),0)
- inc %i
- }
- return %text2
- }
- alias pctek2 {
- if ($chr(32) !isin $1) {
- if ($1 == $chr(40)) { set %haakje 1 | return 7 $+ $chr(40) }
- elseif ($1 == $chr(41)) { unset %haakje | return 7 $+ $chr(41) }
- elseif ($1 isupper) && (%haakje) { return 15 $+ $1- }
- elseif ($1 islower) && (%haakje) { return 14 $+ $1- }
- elseif ($1 isupper) && (!%haakje) { return 1 $+ $1- }
- elseif ($1 islower) && (!%haakje) { return 1 $+ $1- }
- }
- else { return $+ $chr(160) }
- }
By: mike-creator | Date: Sep 19 2006 06:49 | Format: None | Expires: never | Size: 671 B | Hits: 1440
Latest pastes
1 hours ago
11 hours ago
1 days ago
2 days ago
2 days ago