Added option for a fatal error.

src/API/Std.pm

@@ -90,12 +90,15 @@ sub trans
 # Error subroutine.
 sub err
 {
-	my ($lvl, $msg) = @_;
+	my ($lvl, $msg, $fatal) = @_;
 	
 	# Check for an invalid level.
 	if ($lvl =~ m/[^0-9]/) {
 		return 0;
 	}
+	if ($fatal =~ m/(^0|1)/) {
+		return 0;
+	}
 	
 	# Level 1: Print to screen.
 	if ($lvl => 1) {
@@ -105,6 +108,11 @@ sub err
 	if ($lvl => 2) {
 		API::Log::alog("ERROR: $msg");
 	}
+	
+	# If it's a fatal error, exit the program.
+	if ($fatal) {
+		exit;
+	}
 }
 
 1;