/*
Title: IsNum()
Credit To: Metamorphman
Contributed By: Metamorphman

This proc returns true if the specified string is: 
1.A number 
or 
2.A text string, containing nothing but numbers. 

Useful for validating things like PIN Codes.
*/

proc/IsNum( string )

    if( isnum( string ) )
        return 1

    if( !istext( string ) )
        return

    for( var/x = 1 to length( string ) )
        var/currentChar = text2ascii( string , x )
        if( currentChar > 57 || currentChar < 48 ) return 0

    return 1