Ascii alias - Revision history

Vliedel: %t -> $2-

2007-03-27T11:19:53Z

%t -> $2-

← Older revision		Revision as of 11:19, 27 March 2007
Line 26:		Line 26:
	var %l = [[$iif]]([[$left]]($1,1) == -,1) , %h = $iif(h isin $1,1) , %r = $iif(r isin $1,1)		var %l = [[$iif]]([[$left]]($1,1) == -,1) , %h = $iif(h isin $1,1) , %r = $iif(r isin $1,1)
	[[if]] (%l) && (%h) && (%r) {		[[if]] (%l) && (%h) && (%r) {
	if (![[$regex]](%t,/^((^\|\s)([\dA-F]?[\dA-F]))+$/i)) { [[echo]] -ag Usage: /ascii -rh <hexadecimal values> \| return }		if (![[$regex]]($2-,/^((^\|\s)([\dA-F]?[\dA-F]))+$/i)) { [[echo]] -ag Usage: /ascii -rh <hexadecimal values> \| return }
	var %i = [[$calc]]([[$0]] - 1) , %t		var %i = [[$calc]]([[$0]] - 1) , %t
	if (%i > $calc(900 - [[$len]]($2-))) { var %i = [[$v2]] , %t = $chr(2) truncated }		if (%i > $calc(900 - [[$len]]($2-))) { var %i = [[$v2]] , %t = $chr(2) truncated }

Vliedel: added category

2007-03-24T13:39:22Z

added category

← Older revision		Revision as of 13:39, 24 March 2007
Line 50:		Line 50:
	}		}
	}		}

			[[Category:Script Archive]]

Vliedel: added link to $0 and $v2

2007-03-24T13:36:40Z

added link to $0 and $v2

← Older revision		Revision as of 13:36, 24 March 2007
Line 27:		Line 27:
	[[if]] (%l) && (%h) && (%r) {		[[if]] (%l) && (%h) && (%r) {
	if (![[$regex]](%t,/^((^\|\s)([\dA-F]?[\dA-F]))+$/i)) { [[echo]] -ag Usage: /ascii -rh <hexadecimal values> \| return }		if (![[$regex]](%t,/^((^\|\s)([\dA-F]?[\dA-F]))+$/i)) { [[echo]] -ag Usage: /ascii -rh <hexadecimal values> \| return }
	var %i = [[$calc]]($0 - 1) , %t		var %i = [[$calc]]([[$0]] - 1) , %t
	if (%i > $calc(900 - [[$len]]($2-))) { var %i = $v2 , %t = $chr(2) truncated }		if (%i > $calc(900 - [[$len]]($2-))) { var %i = [[$v2]] , %t = $chr(2) truncated }
	while (%i) { var %t = $chr([[$base]]([[$gettok]]($2-,%i,32),16,10,32)) $+ %t \| [[dec]] %i }		while (%i) { var %t = $chr([[$base]]([[$gettok]]($2-,%i,32),16,10,32)) $+ %t \| [[dec]] %i }
	echo -ag $2- = %t		echo -ag $2- = %t

Vliedel: link $1 -> $1-

2007-03-24T13:31:01Z

link $1 -> $1-

← Older revision		Revision as of 13:31, 24 March 2007
Line 17:		Line 17:

	alias ascii {		alias ascii {
	if ([[$1]] == [[$null]]) {		if ([[$1-\|$1]] == [[$null]]) {
	if ([[$window]](@ascii)) { [[window]] -c @ascii }		if ([[$window]](@ascii)) { [[window]] -c @ascii }
	window -zk0 @ascii 20 20 150 650		window -zk0 @ascii 20 20 150 650

Vliedel: added links

2007-03-24T13:27:56Z

added links

← Older revision		Revision as of 13:27, 24 March 2007
Line 17:		Line 17:

	alias ascii {		alias ascii {
	if ($1 == $null) {		if ([[$1]] == [[$null]]) {
	if ($window(@ascii)) { window -c @ascii }		if ([[$window]](@ascii)) { [[window]] -c @ascii }
	window -zk0 @ascii 20 20 150 650		window -zk0 @ascii 20 20 150 650
	var %a = 1		[[var]] %a = 1
	while (%a < 256) { aline @ascii $!chr( $+ %a $+ ) $chr(%a) \| inc %a }		[[while]] (%a < 256) { [[aline]] @ascii $!chr( $+ %a $+ ) [[$chr]](%a) \| [[inc]] %a }
	return		[[return]]
	}		}
	var %l = $iif($left($1,1) == -,1) , %h = $iif(h isin $1,1) , %r = $iif(r isin $1,1)		var %l = [[$iif]]([[$left]]($1,1) == -,1) , %h = $iif(h isin $1,1) , %r = $iif(r isin $1,1)
	if (%l) && (%h) && (%r) {		[[if]] (%l) && (%h) && (%r) {
	if (!$regex(%t,/^((^\|\s)([\dA-F]?[\dA-F]))+$/i)) { echo -ag Usage: /ascii -rh <hexadecimal values> \| return }		if (![[$regex]](%t,/^((^\|\s)([\dA-F]?[\dA-F]))+$/i)) { [[echo]] -ag Usage: /ascii -rh <hexadecimal values> \| return }
	var %i = $calc($0 - 1) , %t		var %i = [[$calc]]($0 - 1) , %t
	if (%i > $calc(900 - $len($2-))) { var %i = $v2 , %t = $chr(2) truncated }		if (%i > $calc(900 - [[$len]]($2-))) { var %i = $v2 , %t = $chr(2) truncated }
	while (%i) { var %t = $chr($base($gettok($2-,%i,32),16,10,32)) $+ %t \| dec %i }		while (%i) { var %t = $chr([[$base]]([[$gettok]]($2-,%i,32),16,10,32)) $+ %t \| [[dec]] %i }
	echo -ag $2- = %t		echo -ag $2- = %t
	}		}
	elseif (%l) && (%h) {		elseif (%l) && (%h) {
	var %i = $len($2-) , %t		var %i = $len($2-) , %t
	if ($calc(%i * 4) > 900) { var %i = $int($calc((900 - $len($2-))/3)) , %t = $chr(2) $+ truncated }		if ($calc(%i * 4) > 900) { var %i = [[$int]]($calc((900 - $len($2-))/3)) , %t = $chr(2) $+ truncated }
	while (%i) { var %t = $base($asc($mid($2-,%i,1)),10,16) %t \| dec %i }		while (%i) { var %t = $base([[$asc]]([[$mid]]($2-,%i,1)),10,16) %t \| dec %i }
	echo -ag $2- $chr(15) $+ = %t		echo -ag $2- $chr(15) $+ = %t
	}		}
	elseif (%l) && (%r) {		elseif (%l) && (%r) {
	if (!$regex($2-,/^((^\|\s)(25[0-5]\|2[0-4][0-9]\|[01]?[0-9]?[0-9]))+$/)) { echo -ag Usage: /ascii -r <ascii values> \| return }		if (!$regex($2-,/^((^\|\s)(25[0-5]\|2[0-4][0-9]\|[01]?[0-9]?[0-9]))+$/)) { echo -ag Usage: /ascii -r <ascii values> \| return }
	bset &asc 1 $2-		[[bset]] &asc 1 $2-
	var %m = $calc(900 - $len($2-)) + $0 -1)		var %m = $calc(900 - $len($2-)) + $0 -1)
	echo -ag $2- = $left($bvar(&asc,1-).text,%m) $iif(%m < $calc($0 -1),$chr(2) $+ truncated)		echo -ag $2- = $left([[$bvar]](&asc,1-).text,%m) $iif(%m < $calc($0 -1),$chr(2) $+ truncated)
	}		}
	else {		else {

Vliedel: added input checks

2007-03-24T13:22:17Z

added input checks

← Older revision		Revision as of 13:22, 24 March 2007
Line 1:		Line 1:
	This alias ~~might be~~ usefull ~~when you need~~ to convert characters to ascii values.		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	Usage:		;
	/ascii for a list of all characters.		; Written by Vliedel
	/ascii <text> to convert the text to the ascii values of all characters.		; Contact: #help.script @ irc.QuakeNet.org
	/ascii -r <ascii values> to convert the ascii values to normal text.		;
	/ascii -h <text> to convert the text to the hexadecimal values of the characters.		; This alias is usefull to quickly convert characters to ascii values.
	/ascii -rh <hexadecimal values> to convert the values to normal text.		;
			; Usage: /ascii [[-rh] <input>]
			;
			; /ascii for a list of all characters.
			; /ascii <text> to convert the text to the ascii values of all characters.
			; /ascii -r <ascii values> to convert the ascii values to normal text.
			; /ascii -h <text> to convert the text to the hexadecimal values of the characters.
			; /ascii -rh <hexadecimal values> to convert the values to normal text.
			;
			;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	alias ascii {		alias ascii {
Line 17:		Line 26:
	var %l = $iif($left($1,1) == -,1) , %h = $iif(h isin $1,1) , %r = $iif(r isin $1,1)		var %l = $iif($left($1,1) == -,1) , %h = $iif(h isin $1,1) , %r = $iif(r isin $1,1)
	if (%l) && (%h) && (%r) {		if (%l) && (%h) && (%r) {
			if (!$regex(%t,/^((^\|\s)([\dA-F]?[\dA-F]))+$/i)) { echo -ag Usage: /ascii -rh <hexadecimal values> \| return }
	var %i = $calc($0 - 1) , %t		var %i = $calc($0 - 1) , %t
	if (%i > $calc(900 - $len($2-))) { var %i = $v2 , %t = $chr(2) truncated }		if (%i > $calc(900 - $len($2-))) { var %i = $v2 , %t = $chr(2) truncated }
Line 29:		Line 39:
	}		}
	elseif (%l) && (%r) {		elseif (%l) && (%r) {
			if (!$regex($2-,/^((^\|\s)(25[0-5]\|2[0-4][0-9]\|[01]?[0-9]?[0-9]))+$/)) { echo -ag Usage: /ascii -r <ascii values> \| return }
	bset &asc 1 $2-		bset &asc 1 $2-
	var %m = $calc(900 - $len($2-)) + $0 -1)		var %m = $calc(900 - $len($2-)) + $0 -1)
	echo -ag $2- = $left($bvar(&asc,1-).text,%m) $iif(%m < $calc($0 -1),$chr(2) truncated)		echo -ag $2- = $left($bvar(&asc,1-).text,%m) $iif(%m < $calc($0 -1),$chr(2) $+ truncated)
	}		}
	else {		else {

Vliedel: damn returns

2007-03-23T23:52:25Z

damn returns

← Older revision		Revision as of 23:52, 23 March 2007
Line 1:		Line 1:
	This alias might be usefull when you need to convert characters to ascii values.		This alias might be usefull when you need to convert characters to ascii values.
	Usage:		Usage:
	/ascii for a list of all characters.		/ascii for a list of all characters.
	/ascii <text> to convert the text to the ascii values of all characters.		/ascii <text> to convert the text to the ascii values of all characters.
	/ascii -r <ascii values> to convert the ascii values to normal text.		/ascii -r <ascii values> to convert the ascii values to normal text.
	/ascii -h <text> to convert the text to the hexadecimal values of the characters.		/ascii -h <text> to convert the text to the hexadecimal values of the characters.
	/ascii -rh <hexadecimal values> to convert the values to normal text.		/ascii -rh <hexadecimal values> to convert the values to normal text.

	alias ascii {		alias ascii {
	if ($1 == $null) {		if ($1 == $null) {

Vliedel: new

2007-03-23T23:49:26Z

new

New page

This alias might be usefull when you need to convert characters to ascii values.
Usage:
/ascii for a list of all characters.
/ascii <text> to convert the text to the ascii values of all characters.
/ascii -r <ascii values> to convert the ascii values to normal text.
/ascii -h <text> to convert the text to the hexadecimal values of the characters.
/ascii -rh <hexadecimal values> to convert the values to normal text.

alias ascii {
if ($1 == $null) {
if ($window(@ascii)) { window -c @ascii }
window -zk0 @ascii 20 20 150 650
var %a = 1
while (%a < 256) { aline @ascii $!chr( $+ %a $+ ) $chr(%a) | inc %a }
return
}
var %l = $iif($left($1,1) == -,1) , %h = $iif(h isin $1,1) , %r = $iif(r isin $1,1)
if (%l) && (%h) && (%r) {
var %i = $calc($0 - 1) , %t
if (%i > $calc(900 - $len($2-))) { var %i = $v2 , %t = $chr(2) truncated }
while (%i) { var %t = $chr($base($gettok($2-,%i,32),16,10,32)) $+ %t | dec %i }
echo -ag $2- = %t
}
elseif (%l) && (%h) {
var %i = $len($2-) , %t
if ($calc(%i * 4) > 900) { var %i = $int($calc((900 - $len($2-))/3)) , %t = $chr(2) $+ truncated }
while (%i) { var %t = $base($asc($mid($2-,%i,1)),10,16) %t | dec %i }
echo -ag $2- $chr(15) $+ = %t
}
elseif (%l) && (%r) {
bset &asc 1 $2-
var %m = $calc(900 - $len($2-)) + $0 -1)
echo -ag $2- = $left($bvar(&asc,1-).text,%m) $iif(%m < $calc($0 -1),$chr(2) truncated)
}
else {
bset -t &asc 1 $1-
var %m = $int($calc((900 - $len($1-))/4))
echo -ag $1- $chr(15) $+ = $bvar(&asc,1,%m) $iif(%m < $bvar(&asc,0),$chr(2) $+ truncated)
}
}