Large dos2unix commit...

1 files changed, 513 insertions, 513 deletions

diff --git a/Xenogears/Decrypt.cpp b/Xenogears/Decrypt.cpp
index 0683078..7cdb1aa 100644
--- a/Xenogears/Decrypt.cpp
+++ b/Xenogears/Decrypt.cpp
@@ -1,513 +1,513 @@
-#include <stdio.h>
-#include <string.h>
-#include <stdlib.h>
-#include "generic.h"
-#include "Input.h"
-#include "Output.h"
-#include "Main.h"
-
-CODE_BEGINS
-void init_table(long table[5000])
-{
-    long i;
-
-    for (i = 0; i < 5000; i++) {
-	table[i] = 0;
-    }
-}
-
-char found_position(long table[5000], int number, FILE * f_source)
-{
-    long position;
-    long i;
-
-    position = ftell(f_source);
-
-    for (i = 0; i < number; i++) {
-	if (table[i] <= position)
-	    return (1);
-    }
-    return (0);
-}
-
-long found_next(long table[5000], long script_number, long max_script)
-{
-    long i;
-    long next = 0xFFFF;
-    long actual = table[script_number];
-
-    for (i = 0; i < script_number; i++) {
-	if (table[i] > actual) {
-	    if (table[i] < next)
-		next = table[i];
-	}
-    }
-
-    for (i = script_number + 1; i < max_script; i++) {
-	if (table[i] > actual) {
-	    if (table[i] < next)
-		next = table[i];
-	}
-    }
-
-    return (next);
-}
-
-void dump_text(FILE * f_source, FILE * f_cible, long table[5000], long script_number,
-	       long max_script, unsigned char *length_table, unsigned char *line_table)
-{
-    long next;
-    unsigned char val;
-    char temp_string[2] = {0, 0};
-    long position;
-    unsigned char temp1 = 0;
-    unsigned char temp2 = 0;
-    
-    next = found_next(table, script_number, max_script);
-
-    fseek(f_source, table[script_number], SEEK_SET);
-
-    fprintf(f_cible, "<Text_block lines:%d width:%d>\n",
-	    line_table[script_number], length_table[script_number]);
-
-    position = ftell(f_source);
-
-    while (position < next) {
-	val = 0;
-
-	fread((unsigned char *) &val, 1, 1, f_source);
-
-	if (val == 0x00)	// "<Close>"
-	{
-	    break;
-	} else if (val == 0x01)	// "\n"
-	{
-	    fprintf(f_cible, "\n");
-	} else if (val == 0x02)	// "<New>"
-	{
-	    fprintf(f_cible, "<New>\n");
-	} else if (val == 0x03)	// "<Wait>"
-	{
-	    fprintf(f_cible, "<Wait>");
-	} else if (val == 0x0F)	// Extended opcode. Reads two more bytes.
-	{
-	    fread((unsigned char *) &temp1, 1, 1, f_source);
-	    fread((unsigned char *) &temp2, 1, 1, f_source);
-	    if (temp1 == 0) {
-		fprintf(f_cible, "<Delay %d>", temp2);
-	    } else if (temp1 == 5) {
-		switch (temp2) {
-		case 0:
-		    fprintf(f_cible, "<Fei>");
-		    break;
-		case 1:
-		    fprintf(f_cible, "<Elly>");
-		    break;
-		case 2:
-		    fprintf(f_cible, "<Citan>");
-		    break;
-		case 3:
-		    fprintf(f_cible, "<Bart>");
-		    break;
-		case 4:
-		    fprintf(f_cible, "<Billy>");
-		    break;
-		case 5:
-		    fprintf(f_cible, "<Rico>");
-		    break;
-		case 6:
-		    fprintf(f_cible, "<Emeralda>");
-		    break;
-		case 7:
-		    fprintf(f_cible, "<Chu-Chu>");
-		    break;
-		case 8:
-		    fprintf(f_cible, "<Maria>");
-		    break;
-		case 9:
-		    fprintf(f_cible, "<Citan2>");
-		    break;
-		case 10:
-		    fprintf(f_cible, "<Emeralda2>");
-		    break;
-		case 11:
-		    fprintf(f_cible, "<Weltall>");
-		    break;
-		case 12:
-		    fprintf(f_cible, "<Weltall-2>");
-		    break;
-		case 13:
-		    fprintf(f_cible, "<Vierge>");
-		    break;
-		case 14:
-		    fprintf(f_cible, "<Heimdal>");
-		    break;
-		case 15:
-		    fprintf(f_cible, "<Brigandier>");
-		    break;
-		case 16:
-		    fprintf(f_cible, "<Renmazuo>");
-		    break;
-		case 17:
-		    fprintf(f_cible, "<Stier>");
-		    break;
-		case 18:
-		    fprintf(f_cible, "<BigChu-chu>");
-		    break;
-		case 19:
-		    fprintf(f_cible, "<Seibzehn>");
-		    break;
-		case 20:
-		    fprintf(f_cible, "<Crescens>");
-		    break;
-		case 21:
-		    fprintf(f_cible, "<Regurus>");
-		    break;
-		case 22:
-		    fprintf(f_cible, "<Fenrir>");
-		    break;
-		case 23:
-		    fprintf(f_cible, "<Andvari>");
-		    break;
-		case 24:
-		    fprintf(f_cible, "<Renmazuo>");
-		    break;
-		case 25:
-		    fprintf(f_cible, "<Stier-2>");
-		    break;
-		case 26:
-		    fprintf(f_cible, "<Xenogears>");
-		    break;
-		case 27:
-		    fprintf(f_cible, "<BARTHOS>");
-		    break;
-		case 28:
-		    fprintf(f_cible, "<Yggdra>");
-		    break;
-		case 128:
-		    fprintf(f_cible, "<Perso1>");
-		    break;
-		case 129:
-		    fprintf(f_cible, "<Perso2>");
-		    break;
-		case 130:
-		    fprintf(f_cible, "<Perso3>");
-		    break;
-		default:
-		    fprintf(f_cible, "<Gear %d>", temp2);
-		}
-	    } else {
-		fprintf(f_cible, "<Opcode %d %d>", temp1, temp2);
-	    }
-	} else if (val == 0x10)	// " "
-	{
-	    fprintf(f_cible, " ");
-	} else if (val == 0x11)	// "+"
-	{
-	    fprintf(f_cible, "+");
-	} else if (val == 0x12)	// ","
-	{
-	    fprintf(f_cible, ",");
-	} else if (val == 0x13)	// "-"
-	{
-	    fprintf(f_cible, "-");
-	} else if (val == 0x14)	// "."
-	{
-	    fprintf(f_cible, ".");
-	} else if (val == 0x15)	// "/"
-	{
-	    fprintf(f_cible, "/");
-	} else if ((val >= 0x16) && (val <= 0x1F))	// "0-9"
-	{
-	    temp_string[0] = val + 0x1A;
-	    fprintf(f_cible, temp_string);
-	} else if ((val >= 0x20) && (val <= 0x39))	// "A-Z"
-	{
-	    temp_string[0] = val + 0x21;
-	    fprintf(f_cible, temp_string);
-	} else if (val == 0x3A)	// "["
-	{
-	    fprintf(f_cible, "[");
-	} else if (val == 0x3B)	// "]"
-	{
-	    fprintf(f_cible, "]");
-	} else if (val == 0x3C)	// "="
-	{
-	    fprintf(f_cible, "=");
-	} else if ((val >= 0x3D) && (val <= 0x56))	// "a-z"
-	{
-	    temp_string[0] = val + 0x24;
-	    fprintf(f_cible, temp_string);
-	} else if (val == 0x57)	// "!"
-	{
-	    fprintf(f_cible, "!");
-	} else if (val == 0x58)	// "\""
-	{
-	    fprintf(f_cible, "\"");
-	} else if (val == 0x59)	// "#"
-	{
-	    fprintf(f_cible, "#");
-	} else if (val == 0x5A)	// "%"
-	{
-	    fprintf(f_cible, "%%");
-	} else if (val == 0x5B)	// "&"
-	{
-	    fprintf(f_cible, "&");
-	} else if (val == 0x5C)	// "'"
-	{
-	    fprintf(f_cible, "'");
-	} else if (val == 0x5D)	// "("
-	{
-	    fprintf(f_cible, "(");
-	} else if (val == 0x5E)	// ")"
-	{
-	    fprintf(f_cible, ")");
-	} else if (val == 0x5F)	// ":"
-	{
-	    fprintf(f_cible, ":");
-	} else if (val == 0x60)	// "?"
-	{
-	    fprintf(f_cible, "?");
-	} else if (val == 0x61)	// "<0>"
-	{
-	    fprintf(f_cible, "<0>");
-	} else if (val == 0x62)	// "<1>"
-	{
-	    fprintf(f_cible, "<1>");
-	} else if (val == 0x63)	// "<2>"
-	{
-	    fprintf(f_cible, "<2>");
-	} else if (val == 0x64)	// "<3>"
-	{
-	    fprintf(f_cible, "<3>");
-	} else if (val == 0x65)	// "<4>"
-	{
-	    fprintf(f_cible, "<4>");
-	} else if (val == 0x66)	// "<5>"
-	{
-	    fprintf(f_cible, "<5>");
-	} else if (val == 0x67)	// "<6>"
-	{
-	    fprintf(f_cible, "<6>");
-	} else if (val == 0x68)	// "<7>"
-	{
-	    fprintf(f_cible, "<7>");
-	} else if (val == 0x69)	// "<8>"
-	{
-	    fprintf(f_cible, "<8>");
-	} else if (val == 0x6A)	// "<9>"
-	{
-	    fprintf(f_cible, "<9>");
-	} else if (val == 0x6B)	// "<%>"
-	{
-	    fprintf(f_cible, "<%%>");
-	} else if (val == 0x6C)	// "<&>"
-	{
-	    fprintf(f_cible, "<&>");
-	} else if (val == 0x6D)	// "*"
-	{
-	    fprintf(f_cible, "*");
-	} else if (val == 0x6E)	// "<C>"
-	{
-	    fprintf(f_cible, "<C>");
-	} else if (val == 0x6F)	// "<S>"
-	{
-	    fprintf(f_cible, "<S>");
-	} else if (val == 0x70)	// "<T>"
-	{
-	    fprintf(f_cible, "<T>");
-	} else if (val == 0x71)	// "<*>"
-	{
-	    fprintf(f_cible, "<*>");
-	} else if (val == 0x72)	// "<R>"
-	{
-	    fprintf(f_cible, "<R>");
-	} else if (val == 0x73)	// "<L>"
-	{
-	    fprintf(f_cible, "<L>");
-	} else if (val == 0x74)	// "<U>"
-	{
-	    fprintf(f_cible, "<U>");
-	} else if (val == 0x75)	// "<U>"
-	{
-	    fprintf(f_cible, "<D>");
-	} else if (val == 0x76) // "<.>"
-	{
-	    fprintf(f_cible, "<.>");
-	} else if (val == 0x77) // "<:>"
-	{
-	    fprintf(f_cible, "<:>");
-	} else if (val == 0x79) // "</>"
-	{
-	    fprintf(f_cible, "</>");
-	} else if (val == 0x7A) // "<..>"
-	{
-	    fprintf(f_cible, "<..>");
-	} else if (val == 0x7B) // "<`>"
-	{
-	    fprintf(f_cible, "<`>");
-	} else if (val == 0x7D) // "<+>"
-	{
-	    fprintf(f_cible, "<+>");
-	} else if (val == 0x7E) // "<->"
-	{
-	    fprintf(f_cible, "<->");
-	} else if (val == 0x7F)	// "<X>"
-	{
-	    fprintf(f_cible, "<X>");
-	} else if (val == 0x80) // "<[>"
-	{
-	    fprintf(f_cible, "<[>");
-	} else if (val == 0x81)	// "<]>"
-	{
-	    fprintf(f_cible, "<]>");
-	} else if (val == 0x82)	// "<%>"
-	{
-	    fprintf(f_cible, "<%%>");
-	} else if (val == 0x83)	// "<&>"
-	{
-	    fprintf(f_cible, "<&>");
-	} else if (val == 0x84)	// "<(>"
-	{
-	    fprintf(f_cible, "<(>");
-	} else if (val == 0x85)	// "<)>"
-	{
-	    fprintf(f_cible, "<)>");
-	} else if (val == 0x86)	// "<#>"
-	{
-	    fprintf(f_cible, "<#>");
-	} else if (val == 0x87)	// "`"
-	{
-	    fprintf(f_cible, "`");
-	} else if (val == 0x88)	// "°"
-	{
-	    fprintf(f_cible, "°");
-	} else if (val == 0x89)	// "<=>"
-	{
-	    fprintf(f_cible, "<=>");
-	} else if (val == 0x8A)	// "<?>"
-	{
-	    fprintf(f_cible, "<?>");
-	} else if (val == 0x8B)	// "<!>"
-	{
-	    fprintf(f_cible, "<!>");
-	} else if (val == 0x8C)	// "_"
-	{
-	    fprintf(f_cible, "_");
-	} else if (val == 0x8D)	// "~"
-	{
-	    fprintf(f_cible, "~");
-	} else if (val == 0x8E)	// "<...>"
-	{
-	    fprintf(f_cible, "<...>");
-	} else if (val == 0x8F)	// "<'>"
-	{
-	    fprintf(f_cible, "<'>");
-	} else if (val == 0xFE)	// "<Extra1 X>
-	{
-	    fread((unsigned char *) &temp1, 1, 1, f_source);
-	    fprintf(f_cible, "<Extra1 %d>", temp1);
-	} else if (val == 0xFF)	// "<Extra2 X>
-	{
-	    fread((unsigned char *) &temp1, 1, 1, f_source);
-	    fprintf(f_cible, "<Extra2 %d>", temp1);
-	} else {
-	    fprintf(f_cible, "<Bare %X>", val);
-	}
-
-	position = ftell(f_source);
-    }
-    fprintf(f_cible, "\n<End_of_block>\n\n");
-}
-
-int decrypt(FILE * f_source, FILE * f_cible, int room_number)
-{
-    long i, j;
-    long table[5000];
-    unsigned char line_table[5000];
-    unsigned char length_table[5000];
-    long script_number = 0;
-    long temp = 0;
-    char temp_char;
-    int counter = 0;
-
-    fread((long *) &script_number, 4, 1, f_source);
-
-    if (script_number == 0x0000FFFF)
-	return (1);
-
-    script_number = (script_number++);
-
-    fprintf(f_cible, "<Blocks:%li>\n", script_number);
-    init_table(table);
-
-    i = j = 0;
-
-    while (i < script_number) {
-	fread((long *) &temp, 2, 1, f_source);
-	if (table[j - 1] != temp)
-	    table[j++] = temp;
-	i++;
-    }
-
-    script_number = j;
-
-    for (i = 0; i < script_number; i++) {
-	fread((unsigned char *) &length_table[i], 1, 1, f_source);
-	fread((unsigned char *) &line_table[i], 1, 1, f_source);
-    }
-
-    fseek(f_source, table[script_number - 1], SEEK_SET);
-
-    do {
-	fread((char *) &temp_char, 1, 1, f_source);
-	counter++;
-    } while (temp_char != 0);
-
-    table[script_number] = ftell(f_source);
-
-    for (i = 0; i < script_number; i++) {
-	dump_text(f_source, f_cible, table, i, script_number, length_table, line_table);
-    }
-
-    return (0);
-}
-
-int startup(void) throw (GeneralException)
-{
-    int i;
-    char file_name[100];
-    FILE *f_source, *f_cible;
-
-    for (i = 0; i < 730; i++) {
-	printf("%d\n", i);
-	sprintf(file_name, "xeno_d1/ROOMS/%04d/script.comp", i);
-	f_source = fopen(file_name, "rb");
-
-	sprintf(file_name, "xeno_d1/ROOMS/%04d/script.txt", i);
-
-	if (f_source != NULL) {
-	    f_cible = fopen(file_name, "w");
-	    decrypt(f_source, f_cible, 5);
-	    fclose(f_source);
-	    fclose(f_cible);
-	}
-    }
-    for (i = 0; i < 730; i++) {
-	printf("%d\n", i);
-	sprintf(file_name, "xeno_d2/ROOMS/%04d/script.comp", i);
-	f_source = fopen(file_name, "rb");
-
-	sprintf(file_name, "xeno_d2/ROOMS/%04d/script.txt", i);
-
-	if (f_source != NULL) {
-	    f_cible = fopen(file_name, "w");
-	    decrypt(f_source, f_cible, 5);
-	    fclose(f_source);
-	    fclose(f_cible);
-	}
-    }
-    
-    return 0;
-}
-CODE_ENDS
+#include <stdio.h>

+#include <string.h>

+#include <stdlib.h>

+#include "generic.h"

+#include "Input.h"

+#include "Output.h"

+#include "Main.h"

+

+CODE_BEGINS

+void init_table(long table[5000])

+{

+    long i;

+

+    for (i = 0; i < 5000; i++) {

+	table[i] = 0;

+    }

+}

+

+char found_position(long table[5000], int number, FILE * f_source)

+{

+    long position;

+    long i;

+

+    position = ftell(f_source);

+

+    for (i = 0; i < number; i++) {

+	if (table[i] <= position)

+	    return (1);

+    }

+    return (0);

+}

+

+long found_next(long table[5000], long script_number, long max_script)

+{

+    long i;

+    long next = 0xFFFF;

+    long actual = table[script_number];

+

+    for (i = 0; i < script_number; i++) {

+	if (table[i] > actual) {

+	    if (table[i] < next)

+		next = table[i];

+	}

+    }

+

+    for (i = script_number + 1; i < max_script; i++) {

+	if (table[i] > actual) {

+	    if (table[i] < next)

+		next = table[i];

+	}

+    }

+

+    return (next);

+}

+

+void dump_text(FILE * f_source, FILE * f_cible, long table[5000], long script_number,

+	       long max_script, unsigned char *length_table, unsigned char *line_table)

+{

+    long next;

+    unsigned char val;

+    char temp_string[2] = {0, 0};

+    long position;

+    unsigned char temp1 = 0;

+    unsigned char temp2 = 0;

+    

+    next = found_next(table, script_number, max_script);

+

+    fseek(f_source, table[script_number], SEEK_SET);

+

+    fprintf(f_cible, "<Text_block lines:%d width:%d>\n",

+	    line_table[script_number], length_table[script_number]);

+

+    position = ftell(f_source);

+

+    while (position < next) {

+	val = 0;

+

+	fread((unsigned char *) &val, 1, 1, f_source);

+

+	if (val == 0x00)	// "<Close>"

+	{

+	    break;

+	} else if (val == 0x01)	// "\n"

+	{

+	    fprintf(f_cible, "\n");

+	} else if (val == 0x02)	// "<New>"

+	{

+	    fprintf(f_cible, "<New>\n");

+	} else if (val == 0x03)	// "<Wait>"

+	{

+	    fprintf(f_cible, "<Wait>");

+	} else if (val == 0x0F)	// Extended opcode. Reads two more bytes.

+	{

+	    fread((unsigned char *) &temp1, 1, 1, f_source);

+	    fread((unsigned char *) &temp2, 1, 1, f_source);

+	    if (temp1 == 0) {

+		fprintf(f_cible, "<Delay %d>", temp2);

+	    } else if (temp1 == 5) {

+		switch (temp2) {

+		case 0:

+		    fprintf(f_cible, "<Fei>");

+		    break;

+		case 1:

+		    fprintf(f_cible, "<Elly>");

+		    break;

+		case 2:

+		    fprintf(f_cible, "<Citan>");

+		    break;

+		case 3:

+		    fprintf(f_cible, "<Bart>");

+		    break;

+		case 4:

+		    fprintf(f_cible, "<Billy>");

+		    break;

+		case 5:

+		    fprintf(f_cible, "<Rico>");

+		    break;

+		case 6:

+		    fprintf(f_cible, "<Emeralda>");

+		    break;

+		case 7:

+		    fprintf(f_cible, "<Chu-Chu>");

+		    break;

+		case 8:

+		    fprintf(f_cible, "<Maria>");

+		    break;

+		case 9:

+		    fprintf(f_cible, "<Citan2>");

+		    break;

+		case 10:

+		    fprintf(f_cible, "<Emeralda2>");

+		    break;

+		case 11:

+		    fprintf(f_cible, "<Weltall>");

+		    break;

+		case 12:

+		    fprintf(f_cible, "<Weltall-2>");

+		    break;

+		case 13:

+		    fprintf(f_cible, "<Vierge>");

+		    break;

+		case 14:

+		    fprintf(f_cible, "<Heimdal>");

+		    break;

+		case 15:

+		    fprintf(f_cible, "<Brigandier>");

+		    break;

+		case 16:

+		    fprintf(f_cible, "<Renmazuo>");

+		    break;

+		case 17:

+		    fprintf(f_cible, "<Stier>");

+		    break;

+		case 18:

+		    fprintf(f_cible, "<BigChu-chu>");

+		    break;

+		case 19:

+		    fprintf(f_cible, "<Seibzehn>");

+		    break;

+		case 20:

+		    fprintf(f_cible, "<Crescens>");

+		    break;

+		case 21:

+		    fprintf(f_cible, "<Regurus>");

+		    break;

+		case 22:

+		    fprintf(f_cible, "<Fenrir>");

+		    break;

+		case 23:

+		    fprintf(f_cible, "<Andvari>");

+		    break;

+		case 24:

+		    fprintf(f_cible, "<Renmazuo>");

+		    break;

+		case 25:

+		    fprintf(f_cible, "<Stier-2>");

+		    break;

+		case 26:

+		    fprintf(f_cible, "<Xenogears>");

+		    break;

+		case 27:

+		    fprintf(f_cible, "<BARTHOS>");

+		    break;

+		case 28:

+		    fprintf(f_cible, "<Yggdra>");

+		    break;

+		case 128:

+		    fprintf(f_cible, "<Perso1>");

+		    break;

+		case 129:

+		    fprintf(f_cible, "<Perso2>");

+		    break;

+		case 130:

+		    fprintf(f_cible, "<Perso3>");

+		    break;

+		default:

+		    fprintf(f_cible, "<Gear %d>", temp2);

+		}

+	    } else {

+		fprintf(f_cible, "<Opcode %d %d>", temp1, temp2);

+	    }

+	} else if (val == 0x10)	// " "

+	{

+	    fprintf(f_cible, " ");

+	} else if (val == 0x11)	// "+"

+	{

+	    fprintf(f_cible, "+");

+	} else if (val == 0x12)	// ","

+	{

+	    fprintf(f_cible, ",");

+	} else if (val == 0x13)	// "-"

+	{

+	    fprintf(f_cible, "-");

+	} else if (val == 0x14)	// "."

+	{

+	    fprintf(f_cible, ".");

+	} else if (val == 0x15)	// "/"

+	{

+	    fprintf(f_cible, "/");

+	} else if ((val >= 0x16) && (val <= 0x1F))	// "0-9"

+	{

+	    temp_string[0] = val + 0x1A;

+	    fprintf(f_cible, temp_string);

+	} else if ((val >= 0x20) && (val <= 0x39))	// "A-Z"

+	{

+	    temp_string[0] = val + 0x21;

+	    fprintf(f_cible, temp_string);

+	} else if (val == 0x3A)	// "["

+	{

+	    fprintf(f_cible, "[");

+	} else if (val == 0x3B)	// "]"

+	{

+	    fprintf(f_cible, "]");

+	} else if (val == 0x3C)	// "="

+	{

+	    fprintf(f_cible, "=");

+	} else if ((val >= 0x3D) && (val <= 0x56))	// "a-z"

+	{

+	    temp_string[0] = val + 0x24;

+	    fprintf(f_cible, temp_string);

+	} else if (val == 0x57)	// "!"

+	{

+	    fprintf(f_cible, "!");

+	} else if (val == 0x58)	// "\""

+	{

+	    fprintf(f_cible, "\"");

+	} else if (val == 0x59)	// "#"

+	{

+	    fprintf(f_cible, "#");

+	} else if (val == 0x5A)	// "%"

+	{

+	    fprintf(f_cible, "%%");

+	} else if (val == 0x5B)	// "&"

+	{

+	    fprintf(f_cible, "&");

+	} else if (val == 0x5C)	// "'"

+	{

+	    fprintf(f_cible, "'");

+	} else if (val == 0x5D)	// "("

+	{

+	    fprintf(f_cible, "(");

+	} else if (val == 0x5E)	// ")"

+	{

+	    fprintf(f_cible, ")");

+	} else if (val == 0x5F)	// ":"

+	{

+	    fprintf(f_cible, ":");

+	} else if (val == 0x60)	// "?"

+	{

+	    fprintf(f_cible, "?");

+	} else if (val == 0x61)	// "<0>"

+	{

+	    fprintf(f_cible, "<0>");

+	} else if (val == 0x62)	// "<1>"

+	{

+	    fprintf(f_cible, "<1>");

+	} else if (val == 0x63)	// "<2>"

+	{

+	    fprintf(f_cible, "<2>");

+	} else if (val == 0x64)	// "<3>"

+	{

+	    fprintf(f_cible, "<3>");

+	} else if (val == 0x65)	// "<4>"

+	{

+	    fprintf(f_cible, "<4>");

+	} else if (val == 0x66)	// "<5>"

+	{

+	    fprintf(f_cible, "<5>");

+	} else if (val == 0x67)	// "<6>"

+	{

+	    fprintf(f_cible, "<6>");

+	} else if (val == 0x68)	// "<7>"

+	{

+	    fprintf(f_cible, "<7>");

+	} else if (val == 0x69)	// "<8>"

+	{

+	    fprintf(f_cible, "<8>");

+	} else if (val == 0x6A)	// "<9>"

+	{

+	    fprintf(f_cible, "<9>");

+	} else if (val == 0x6B)	// "<%>"

+	{

+	    fprintf(f_cible, "<%%>");

+	} else if (val == 0x6C)	// "<&>"

+	{

+	    fprintf(f_cible, "<&>");

+	} else if (val == 0x6D)	// "*"

+	{

+	    fprintf(f_cible, "*");

+	} else if (val == 0x6E)	// "<C>"

+	{

+	    fprintf(f_cible, "<C>");

+	} else if (val == 0x6F)	// "<S>"

+	{

+	    fprintf(f_cible, "<S>");

+	} else if (val == 0x70)	// "<T>"

+	{

+	    fprintf(f_cible, "<T>");

+	} else if (val == 0x71)	// "<*>"

+	{

+	    fprintf(f_cible, "<*>");

+	} else if (val == 0x72)	// "<R>"

+	{

+	    fprintf(f_cible, "<R>");

+	} else if (val == 0x73)	// "<L>"

+	{

+	    fprintf(f_cible, "<L>");

+	} else if (val == 0x74)	// "<U>"

+	{

+	    fprintf(f_cible, "<U>");

+	} else if (val == 0x75)	// "<U>"

+	{

+	    fprintf(f_cible, "<D>");

+	} else if (val == 0x76) // "<.>"

+	{

+	    fprintf(f_cible, "<.>");

+	} else if (val == 0x77) // "<:>"

+	{

+	    fprintf(f_cible, "<:>");

+	} else if (val == 0x79) // "</>"

+	{

+	    fprintf(f_cible, "</>");

+	} else if (val == 0x7A) // "<..>"

+	{

+	    fprintf(f_cible, "<..>");

+	} else if (val == 0x7B) // "<`>"

+	{

+	    fprintf(f_cible, "<`>");

+	} else if (val == 0x7D) // "<+>"

+	{

+	    fprintf(f_cible, "<+>");

+	} else if (val == 0x7E) // "<->"

+	{

+	    fprintf(f_cible, "<->");

+	} else if (val == 0x7F)	// "<X>"

+	{

+	    fprintf(f_cible, "<X>");

+	} else if (val == 0x80) // "<[>"

+	{

+	    fprintf(f_cible, "<[>");

+	} else if (val == 0x81)	// "<]>"

+	{

+	    fprintf(f_cible, "<]>");

+	} else if (val == 0x82)	// "<%>"

+	{

+	    fprintf(f_cible, "<%%>");

+	} else if (val == 0x83)	// "<&>"

+	{

+	    fprintf(f_cible, "<&>");

+	} else if (val == 0x84)	// "<(>"

+	{

+	    fprintf(f_cible, "<(>");

+	} else if (val == 0x85)	// "<)>"

+	{

+	    fprintf(f_cible, "<)>");

+	} else if (val == 0x86)	// "<#>"

+	{

+	    fprintf(f_cible, "<#>");

+	} else if (val == 0x87)	// "`"

+	{

+	    fprintf(f_cible, "`");

+	} else if (val == 0x88)	// "°"

+	{

+	    fprintf(f_cible, "°");

+	} else if (val == 0x89)	// "<=>"

+	{

+	    fprintf(f_cible, "<=>");

+	} else if (val == 0x8A)	// "<?>"

+	{

+	    fprintf(f_cible, "<?>");

+	} else if (val == 0x8B)	// "<!>"

+	{

+	    fprintf(f_cible, "<!>");

+	} else if (val == 0x8C)	// "_"

+	{

+	    fprintf(f_cible, "_");

+	} else if (val == 0x8D)	// "~"

+	{

+	    fprintf(f_cible, "~");

+	} else if (val == 0x8E)	// "<...>"

+	{

+	    fprintf(f_cible, "<...>");

+	} else if (val == 0x8F)	// "<'>"

+	{

+	    fprintf(f_cible, "<'>");

+	} else if (val == 0xFE)	// "<Extra1 X>

+	{

+	    fread((unsigned char *) &temp1, 1, 1, f_source);

+	    fprintf(f_cible, "<Extra1 %d>", temp1);

+	} else if (val == 0xFF)	// "<Extra2 X>

+	{

+	    fread((unsigned char *) &temp1, 1, 1, f_source);

+	    fprintf(f_cible, "<Extra2 %d>", temp1);

+	} else {

+	    fprintf(f_cible, "<Bare %X>", val);

+	}

+

+	position = ftell(f_source);

+    }

+    fprintf(f_cible, "\n<End_of_block>\n\n");

+}

+

+int decrypt(FILE * f_source, FILE * f_cible, int room_number)

+{

+    long i, j;

+    long table[5000];

+    unsigned char line_table[5000];

+    unsigned char length_table[5000];

+    long script_number = 0;

+    long temp = 0;

+    char temp_char;

+    int counter = 0;

+

+    fread((long *) &script_number, 4, 1, f_source);

+

+    if (script_number == 0x0000FFFF)

+	return (1);

+

+    script_number = (script_number++);

+

+    fprintf(f_cible, "<Blocks:%li>\n", script_number);

+    init_table(table);

+

+    i = j = 0;

+

+    while (i < script_number) {

+	fread((long *) &temp, 2, 1, f_source);

+	if (table[j - 1] != temp)

+	    table[j++] = temp;

+	i++;

+    }

+

+    script_number = j;

+

+    for (i = 0; i < script_number; i++) {

+	fread((unsigned char *) &length_table[i], 1, 1, f_source);

+	fread((unsigned char *) &line_table[i], 1, 1, f_source);

+    }

+

+    fseek(f_source, table[script_number - 1], SEEK_SET);

+

+    do {

+	fread((char *) &temp_char, 1, 1, f_source);

+	counter++;

+    } while (temp_char != 0);

+

+    table[script_number] = ftell(f_source);

+

+    for (i = 0; i < script_number; i++) {

+	dump_text(f_source, f_cible, table, i, script_number, length_table, line_table);

+    }

+

+    return (0);

+}

+

+int startup(void) throw (GeneralException)

+{

+    int i;

+    char file_name[100];

+    FILE *f_source, *f_cible;

+

+    for (i = 0; i < 730; i++) {

+	printf("%d\n", i);

+	sprintf(file_name, "xeno_d1/ROOMS/%04d/script.comp", i);

+	f_source = fopen(file_name, "rb");

+

+	sprintf(file_name, "xeno_d1/ROOMS/%04d/script.txt", i);

+

+	if (f_source != NULL) {

+	    f_cible = fopen(file_name, "w");

+	    decrypt(f_source, f_cible, 5);

+	    fclose(f_source);

+	    fclose(f_cible);

+	}

+    }

+    for (i = 0; i < 730; i++) {

+	printf("%d\n", i);

+	sprintf(file_name, "xeno_d2/ROOMS/%04d/script.comp", i);

+	f_source = fopen(file_name, "rb");

+

+	sprintf(file_name, "xeno_d2/ROOMS/%04d/script.txt", i);

+

+	if (f_source != NULL) {

+	    f_cible = fopen(file_name, "w");

+	    decrypt(f_source, f_cible, 5);

+	    fclose(f_source);

+	    fclose(f_cible);

+	}

+    }

+    

+    return 0;

+}

+CODE_ENDS