daily pastebin goal
56%
SHARE
TWEET

Untitled

a guest May 16th, 2018 94 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. alias cv {
  2.   var %i = 1
  3.   var %buff = $null
  4.   while (%i <= $len($1-)) {
  5.     var %chr = $mid($1-,%i,1)
  6.     if (%chr isnum) var %chr = $iif(%chr == 0,$chr(9450),$chr($calc(9311 + %chr)))
  7.     elseif (%chr == $chr(3)) {
  8.       var %cap = 0
  9.       var %isaftercomma $false
  10.       var %buff = %buff $+ %chr
  11.       inc %i
  12.       set %chr $mid($1-,%i,1)
  13.       while ((%i <= $len($1-)) && ((%chr isnum) || (%chr == $chr(44)))) {
  14.         if (%isaftercomma == $true) inc %cap
  15.         if (%chr == $chr(44)) set %isaftercomma $true
  16.         if (%cap > 2) break
  17.         var %buff = %buff $+ %chr
  18.         inc %i
  19.         set %chr $mid($1-,%i,1)
  20.       }
  21.       continue
  22.     }
  23.     elseif (%chr == $chr(32)) var %chr = $chr(160)
  24.     elseif (($asc(%chr) >= 65) && ($asc(%chr) <= 90)) var %chr = $chr($calc(9333 + $asc(%chr)))
  25.     elseif (($asc(%chr) >= 97) && ($asc(%chr) <= 122)) var %chr = $chr($calc(9327 + $asc(%chr)))
  26.     var %buff = %buff $+ %chr
  27.     inc %i
  28.   }
  29.   say %buff
  30. }
  31.  
  32.  
  33. alias fw {
  34.   var %input = $1-
  35.   var %length = $len(%input)
  36.  
  37.   var %text
  38.   var %i = 1
  39.   while (%i <= %length) {
  40.     var %char = $mid(%input,%i,1)
  41.     var %char_asc = $asc(%char)
  42.  
  43.     if (%char_asc >= 32 && %char_asc <= 126) {
  44.       if (%char_asc == 32) {
  45.         var %text = %text $+ $chr(12288)
  46.       }
  47.       else {
  48.         var %widechar_asc = $calc(%char_asc + (65280 - 32))
  49.         var %text = %text $+ $chr(%widechar_asc)
  50.       }
  51.     }
  52.     else {
  53.       var %text = %text $+ %char
  54.     }
  55.  
  56.     inc %i
  57.   }
  58.  
  59.   say %text
  60. }
RAW Paste Data
Top