; Simple URL encoding of text.
; Sample Input: "#HelpDesk forum" socket google
;    -  Output: %22%23HelpDesk+forum%22+socket+google
alias urlencode {
  var %in = 1, %out
  while (%in <= $len($1-)) {
    if ($asc($mid($1-,%in,1)) isnum 65-90) || ($asc($mid($1-,%in,1)) isnum 97-122) {
      %out = %out $+ $mid($1-,%in,1)
    }
    else if ($asc($mid($1-,%in,1)) != 32) {
      %out = %out $+ % $+ $base($v1,10,16,2)
    }
    else {
      %out = %out $+ +
    }
    inc %in
  }
  return %out
}

Made by [on]