initial import of 386bsd-0.1 sources

1 files changed, 648 insertions, 0 deletions

diff --git a/larn/data.c b/larn/data.c
new file mode 100644
index 00000000..a8739bab
--- /dev/null
+++ b/larn/data.c
@@ -0,0 +1,648 @@
+/*-
+ * Copyright (c) 1988 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)data.c	5.3 (Berkeley) 5/13/91";
+#endif /* not lint */
+
+/*	data.c		Larn is copyrighted 1986 by Noah Morgan. */
+#define NODEFS
+#include "header.h"
+
+/*
+	class[c[LEVEL]-1] gives the correct name of the players experience level
+ */
+static char aa1[] =	" mighty evil master";
+static char aa2[] =	"apprentice demi-god";
+static char aa3[] =	"  minor demi-god   ";
+static char aa4[] =	"  major demi-god   ";
+static char aa5[] =	"    minor deity    ";
+static char aa6[] =	"    major deity    "; 
+static char aa7[] =	"  novice guardian  ";
+static char aa8[] =	"apprentice guardian";
+static char aa9[] =	"    The Creator    ";
+char *class[]=
+{	"  novice explorer  ", "apprentice explorer", " practiced explorer",/*  -3*/
+	"   expert explorer ", "  novice adventurer", "     adventurer    ",/*  -6*/
+	"apprentice conjurer", "     conjurer      ", "  master conjurer  ",/*  -9*/
+	"  apprentice mage  ", "        mage       ", "  experienced mage ",/* -12*/
+	"     master mage   ", " apprentice warlord", "   novice warlord  ",/* -15*/
+	"   expert warlord  ", "   master warlord  ", " apprentice gorgon ",/* -18*/
+	"       gorgon      ", "  practiced gorgon ", "   master gorgon   ",/* -21*/
+	"    demi-gorgon    ", "    evil master    ", " great evil master ",/* -24*/
+	  aa1       ,   aa1       ,   aa1       ,/* -27*/
+	  aa1       ,   aa1       ,   aa1       ,/* -30*/
+	  aa1       ,   aa1       ,   aa1       ,/* -33*/
+	  aa1       ,   aa1       ,   aa1       ,/* -36*/
+	  aa1       ,   aa1       ,   aa1       ,/* -39*/
+	  aa2       ,   aa2       ,   aa2       ,/* -42*/
+	  aa2       ,   aa2       ,   aa2       ,/* -45*/
+	  aa2       ,   aa2       ,   aa2       ,/* -48*/
+	  aa3       ,   aa3       ,   aa3       ,/* -51*/
+	  aa3       ,   aa3       ,   aa3       ,/* -54*/
+	  aa3       ,   aa3       ,   aa3       ,/* -57*/
+	  aa4       ,   aa4       ,   aa4       ,/* -60*/
+	  aa4       ,   aa4       ,   aa4       ,/* -63*/
+	  aa4       ,   aa4       ,   aa4       ,/* -66*/
+	  aa5       ,   aa5       ,   aa5       ,/* -69*/
+	  aa5       ,   aa5       ,   aa5       ,/* -72*/
+	  aa5       ,   aa5       ,   aa5       ,/* -75*/
+	  aa6       ,   aa6       ,   aa6       ,/* -78*/
+	  aa6       ,   aa6       ,   aa6       ,/* -81*/
+	  aa6       ,   aa6       ,   aa6       ,/* -84*/
+	  aa7       ,   aa7       ,   aa7       ,/* -87*/
+	  aa8       ,   aa8       ,   aa8       ,/* -90*/
+	  aa8       ,   aa8       ,   aa8       ,/* -93*/
+	"  earth guardian   ", "   air guardian    ", "   fire guardian   ",/* -96*/
+	"  water guardian   ", "  time guardian    ", " ethereal guardian ",/* -99*/
+	  aa9       ,   aa9       ,   aa9       ,/* -102*/
+};
+
+/*
+	table of experience needed to be a certain level of player
+	skill[c[LEVEL]] is the experience required to attain the next level
+ */
+#define MEG 1000000
+long skill[] = {
+0, 10, 20, 40, 80, 160, 320, 640, 1280, 2560, 5120,                  /*  1-11 */
+10240, 20480, 40960, 100000, 200000, 400000, 700000, 1*MEG,          /* 12-19 */
+2*MEG,3*MEG,4*MEG,5*MEG,6*MEG,8*MEG,10*MEG,                          /* 20-26 */
+12*MEG,14*MEG,16*MEG,18*MEG,20*MEG,22*MEG,24*MEG,26*MEG,28*MEG,      /* 27-35 */
+30*MEG,32*MEG,34*MEG,36*MEG,38*MEG,40*MEG,42*MEG,44*MEG,46*MEG,      /* 36-44 */
+48*MEG,50*MEG,52*MEG,54*MEG,56*MEG,58*MEG,60*MEG,62*MEG,64*MEG,      /* 45-53 */
+66*MEG,68*MEG,70*MEG,72*MEG,74*MEG,76*MEG,78*MEG,80*MEG,82*MEG,      /* 54-62 */
+84*MEG,86*MEG,88*MEG,90*MEG,92*MEG,94*MEG,96*MEG,98*MEG,100*MEG,     /* 63-71 */
+105*MEG,110*MEG,115*MEG,120*MEG, 125*MEG, 130*MEG, 135*MEG, 140*MEG, /* 72-79 */
+145*MEG,150*MEG,155*MEG,160*MEG, 165*MEG, 170*MEG, 175*MEG, 180*MEG, /* 80-87 */
+185*MEG,190*MEG,195*MEG,200*MEG, 210*MEG, 220*MEG, 230*MEG, 240*MEG, /* 88-95 */
+250*MEG,260*MEG,270*MEG,280*MEG, 290*MEG, 300*MEG                    /* 96-101*/
+};
+#undef MEG
+
+char *lpbuf,*lpnt,*inbuffer,*lpend;	/* input/output pointers to the buffers */
+struct cel *cell;	/*	pointer to the dungeon storage	*/
+short hitp[MAXX][MAXY];		/*	monster hp on level		*/
+short iarg[MAXX][MAXY];	/*	arg for the item array	*/
+char item[MAXX][MAXY];	/*	objects in maze if any	*/
+char know[MAXX][MAXY];	/*	1 or 0 if here before	*/
+char mitem[MAXX][MAXY];	/*	monster item array 		*/
+char moved[MAXX][MAXY];	/*	monster movement flags  */
+char stealth[MAXX][MAXY];	/*  0=sleeping 1=awake monst*/
+char iven[26];			/*	inventory for player			*/
+short ivenarg[26];		/*	inventory for player			*/
+char lastmonst[40];		/*	this has the name of the current monster	*/
+char beenhere[MAXLEVEL+MAXVLEVEL]={0};	/*  1 if have been on this level */
+char VERSION=VER;	/*	this is the present version # of the program	*/
+char SUBVERSION=SUBVER;
+char nosignal=0;	/* set to 1 to disable the signals from doing anything */
+char predostuff=0;	/*  2 means that the trap handling routines must do a
+						showplayer() after a trap.  0 means don't showplayer()
+						0 - we are in create player screen
+						1 - we are in welcome screen
+						2 - we are in the normal game	*/
+char loginname[20];		/* players login name */
+char logname[LOGNAMESIZE];	/* players name storage for scoring				*/
+char sex=1;				/*  default is a man  0=woman						*/
+char boldon=1;			/*  1=bold objects  0=inverse objects				*/
+char ckpflag=0;			/*	1 if want checkpointing of game, 0 otherwise	*/
+char cheat=0;			/*	1 if the player has fudged save file			*/
+char level=0;			/*  cavelevel player is on = c[CAVELEVEL]			*/
+char wizard=0;			/*	the wizard mode flag							*/
+short lastnum=0;		/* the number of the monster last hitting player 	*/
+short hitflag=0;		/*	flag for if player has been hit when running 	*/
+short hit2flag=0;		/*	flag for if player has been hit when running 	*/
+short hit3flag=0;		/*	flag for if player has been hit flush input 	*/
+short playerx,playery;	/*	the room on the present level of the player		*/
+short lastpx,lastpy;	/*	0 --- MAXX-1  or  0 --- MAXY-1					*/
+short oldx,oldy;
+short lasthx=0,lasthy=0;	/* location of monster last hit by player		*/
+short nobeep=0;			/* true if program is not to beep  					*/
+unsigned long randx=33601;	/*	the random number seed						*/
+long initialtime=0;			/* time playing began 							*/
+long gtime=0;				/*	the clock for the game						*/
+long outstanding_taxes=0;	/* present tax bill from score file 			*/
+long c[100],cbak[100];		/*	the character description arrays			*/
+int enable_scroll=0;		/* constant for enabled/disabled scrolling regn */
+char aborted[] = " aborted";
+struct sphere *spheres=0; /*pointer to linked list for spheres of annihilation*/
+char *levelname[]=
+{ " H"," 1"," 2"," 3"," 4"," 5"," 6"," 7"," 8"," 9","10","V1","V2","V3" };
+
+char objnamelist[]=" ATOP%^F&^+M=%^$$f*OD#~][[)))(((||||||||{?!BC}o:@.<<<<EVV))([[]]](^ [H*** ^^ S tsTLc............................................";
+char monstnamelist[]=" BGHJKOScjtAELNQRZabhiCTYdegmvzFWflorXV pqsyUkMwDDPxnDDuD        ...............................................................";
+char *objectname[]=
+{ 0,"a holy altar","a handsome jewel encrusted throne","the orb","a pit",
+  "a staircase leading upwards","an elevator going up","a bubbling fountain",
+  "a great marble statue","a teleport trap","the college of Larn",
+  "a mirror","the DND store","a staircase going down","an elevator going down",
+  "the bank of Larn","the 5th branch of the Bank of Larn",
+  "a dead fountain","gold","an open door","a closed door",
+  "a wall","The Eye of Larn","plate mail","chain mail","leather armor",
+  "a sword of slashing","Bessman's flailing hammer","a sunsword",
+  "a two handed sword","a spear","a dagger",
+  "ring of extra regeneration","a ring of regeneration","a ring of protection",
+  "an energy ring","a ring of dexterity","a ring of strength",
+  "a ring of cleverness","a ring of increase damage","a belt of striking",
+  "a magic scroll","a magic potion","a book","a chest",
+  "an amulet of invisibility","an orb of dragon slaying",
+  "a scarab of negate spirit","a cube of undead control",
+  "device of theft prevention","a brilliant diamond","a ruby",
+  "an enchanting emerald","a sparkling sapphire","the dungeon entrance",
+  "a volcanic shaft leaning downward","the base of a volcanic shaft",
+  "a battle axe","a longsword","a flail","ring mail","studded leather armor",
+  "splint mail","plate armor","stainless plate armor","a lance of death",
+  "an arrow trap","an arrow trap","a shield","your home",
+  "gold","gold","gold","a dart trap",
+  "a dart trap","a trapdoor","a trapdoor","the local trading post",
+  "a teleport trap", "a massive throne",
+  "a sphere of annihilation","a handsome jewel encrusted throne",
+  "the Larn Revenue Service","a fortune cookie","","","","","","",
+  "","","","","","","","","","","","","","","","","","","",""
+ };
+
+
+/*
+ *	for the monster data
+ *
+ *	array to do rnd() to create monsters <= a given level
+ */
+char monstlevel[] = { 5, 11, 17, 22, 27, 33, 39, 42, 46, 50, 53, 56, 59 };
+
+struct monst monster[] = {
+/*	NAME			LV	AC	DAM	ATT	DEF	GEN INT GOLD	HP	EXP
+----------------------------------------------------------------- */
+{ "",				0,	0,	0,	0,	0,	 0,  3,   0,	0,	0	},
+{ "bat",			1,	0,	1,	0,	0,	 0,  3,   0,	1,	1	},
+{ "gnome",			1,	10,	1,	0,	0,	 0,  8,  30,	2,	2	},
+{ "hobgoblin",		1,	14,	2,	0,	0,	 0,  5,  25,	3,	2	},
+{ "jackal",			1,	17,	1,	0,	0,	 0,  4,   0,	1,	1	},
+{ "kobold",			1,	20,	1,	0,	0,	 0,  7,  10,	1,	1	},
+
+{ "orc",			2,	12,	1,	0,	0,	 0,  9,  40,	4,	2	},
+{ "snake",			2,	15,	1,	0,	0,	 0,  3,   0,	3,	1	},
+{ "giant centipede",2,	14,	0,	4,	0,	 0,  3,   0,	1,	2	},
+{ "jaculi",			2,	20,	1,	0,	0,	 0,  3,   0,	2,	1	},
+{ "troglodyte",		2,	10,	2,	0,	0,	 0,  5,  80,	4,	3	},
+{ "giant ant",		2,	8,	1,	4,	0,	 0,  4,   0,	5,	5	},
+
+/*	NAME			LV	AC	DAM	ATT	DEF	GEN INT GOLD	HP	EXP
+----------------------------------------------------------------- */
+
+{ "floating eye",	3,	8,	1,	0,	0,	 0,  3,   0,	 5,	 2	},
+{ "leprechaun",		3,	3,	0,	8,	0,	 0,  3,1500,    13,	45	},
+{ "nymph",			3,	3,	0,	14,	0,	 0,  9,   0,	18,	45	},
+{ "quasit",			3,	5,	3,	0,	0,	 0,  3,   0,	10,	15	},
+{ "rust monster",	3,	4,	0,	1,	0,	 0,  3,   0,	18,	25	},
+{ "zombie",			3,	12,	2,	0,	0,	 0,  3,   0,	 6,	 7	},
+
+{ "assassin bug",	4,	9,	3,	0,	0,	 0,  3,   0,	20,	15	},
+{ "bugbear",		4,	5,	4,	15,	0,	 0,  5,  40,	20,	35	},
+{ "hell hound",		4,	5,	2,	2,	0,	 0,  6,   0,	16,	35	},
+{ "ice lizard",		4,	11,	2,	10,	0,	 0,  6,  50,	16,	25	},
+{ "centaur",		4,	6,	4,	0,	0,	 0, 10,  40,	24,	45	},
+
+/*	NAME			LV	AC	DAM	ATT	DEF	GEN INT GOLD	HP	EXP
+----------------------------------------------------------------- */
+
+{ "troll",			5,	4,	5,	0,	0,	 0,  9,  80,	50,	300	},
+{ "yeti",			5,	6,	4,	0,	0,	 0,  5,  50, 	35,	100	},
+{ "white dragon",	5,	2,	4,	5,	0,	 0, 16, 500,	55,	1000},
+{ "elf",			5,	8,	1,	0,	0,	 0, 15,  50,	22,	35	},
+{ "gelatinous cube",5,	9,	1,	0,	0,	 0,  3,   0,	22,	45	},
+
+{ "metamorph",		6,	7,	3,	0,	0,	 0,  3,  0,		30,	40	},
+{ "vortex",			6,	4,	3,	0,	0,	 0,  3,  0,		30,	55	},
+{ "ziller",			6,	15,	3,	0,	0,	 0,  3,  0,		30,	35	},
+{ "violet fungi",	6,	12,	3,	0,	0,	 0,  3,  0,	 	38,	100	},
+{ "wraith",			6,	3,	1,	6,	0,	 0,  3,  0,		30,	325	},
+{ "forvalaka",		6,	2,	5,	0,	0,	 0,  7,  0,		50,	280	},
+
+/*	NAME			LV	AC	DAM	ATT	DEF	GEN INT GOLD	HP	EXP
+----------------------------------------------------------------- */
+
+{ "lama nobe",		7,	7,	3,	0,	0,	 0,  6,  0,		35,	80	},
+{ "osequip",		7,	4,	3,	16,	0,	 0,  4,  0,		35,	100	},
+{ "rothe",			7,	15,	5,	0,	0,	 0,  3,  100,	50,	250	},
+{ "xorn",			7,	0,	6,	0,	0,	 0, 13,  0,		60,	300	},
+{ "vampire",		7,	3,	4,	6,	0,	 0, 17,  0,		50,	1000},
+{ "invisible stalker",7,3,	6,	0,	0,	 0,  5,  0,		50,	350	},
+
+{ "poltergeist",	8,	1,	4,	0,	0,	 0,  3,  0,		50,	450	},
+{ "disenchantress",	8,	3,	0,	9,	0,	 0,  3,  0,		50,	500	},
+{ "shambling mound",8,	2,	5,	0,	0,	 0,  6,  0,		45,	400	},
+{ "yellow mold",	8,	12,	4,	0,	0,	 0,  3,  0,		35,	250	},
+{ "umber hulk",		8,	3,	7,	11,	0,	 0, 14,  0,		65,	600	},
+
+/*	NAME			LV	AC	DAM	ATT	DEF	GEN INT GOLD	HP	EXP
+----------------------------------------------------------------- */
+
+{ "gnome king",		9,	-1,	10,	0,	0,	 0, 18,  2000,	100,3000	},
+{ "mimic",			9,	 5,	6,	0,	0,	 0,  8,  0,		55,	99		},
+{ "water lord",		9, -10,	15,	7,	0,	 0, 20,  0,		150,15000	},
+{ "bronze dragon",	9,	 2,	9,	3,	0,	 0, 16,  300,	80, 4000	},
+{ "green dragon",	9,	 3,	8,	10,	0,	 0, 15,  200,	70, 2500	},
+{ "purple worm",	9,	-1,	11,	0,	0,	 0,  3,  100,	120,15000	},
+{ "xvart",			9,	-2,	12,	0,	0,	 0, 13,  0,		90,	1000	},
+
+{ "spirit naga",	10, -20,12,	12,	0,	 0, 23,  0,		95, 20000	},
+{ "silver dragon",	10,	-1,	12,	3,	0,	 0, 20,  700,	100,10000	},
+{ "platinum dragon",10,	-5,	15,	13,	0,	 0, 22,  1000,	130,24000	},
+{ "green urchin",	10,	-3,	12,	0,	0,	 0,  3,  0,		85, 5000	},
+{ "red dragon",		10,	-2,	13,	3,	0,	 0, 19,  800,	110,14000	},
+
+{ "type I demon lord",	12,-30,	18,	0,	 0,  0, 20,	0,	140,50000	},
+{ "type II demon lord",	13,-30,	18,	0,	 0,  0, 21,	0,	160,75000	},
+{ "type III demon lord",14,-30,	18,	0,	 0,  0, 22,	0,	180,100000	},
+{ "type IV demon lord",	15,-35,	20,	0,	 0,  0, 23,	0,	200,125000	},
+{ "type V demon lord",	16,-40,	22,	0,	 0,  0, 24,	0,	220,150000	},
+{ "type VI demon lord",	17,-45,	24,	0,	 0,  0, 25,	0,	240,175000	},
+{ "type VII demon lord",18,-70,	27,	6,	 0,  0, 26,	0,	260,200000	},
+{ "demon prince",		25,-127,30,	6,	 0,  0, 28,	0,	345,300000	}
+
+/*	NAME				LV	AC	DAM	ATT	DEF	GEN INT GOLD	HP	EXP
+--------------------------------------------------------------------- */
+ };
+
+/*	name array for scrolls		*/
+
+char *scrollname[] = {
+"\0enchant armor",
+"\0enchant weapon",
+"\0enlightenment",
+"\0blank paper",
+"\0create monster",
+"\0create artifact",
+"\0aggravate monsters",
+"\0time warp",
+"\0teleportation",
+"\0expanded awareness",
+"\0haste monsters",
+"\0monster healing",
+"\0spirit protection",
+"\0undead protection",
+"\0stealth",
+"\0magic mapping",
+"\0hold monsters",
+"\0gem perfection",
+"\0spell extension",
+"\0identify",
+"\0remove curse",
+"\0annihilation",
+"\0pulverization",
+"\0life protection",
+"\0 ",
+"\0 ",
+"\0 ",
+"\0 "
+ };
+
+/*	name array for magic potions	*/
+char *potionname[] = {
+"\0sleep",
+"\0healing",
+"\0raise level",
+"\0increase ability",
+"\0wisdom",
+"\0strength",
+"\0raise charisma",
+"\0dizziness",
+"\0learning",
+"\0gold detection",
+"\0monster detection",
+"\0forgetfulness",
+"\0water",
+"\0blindness",
+"\0confusion",
+"\0heroism",
+"\0sturdiness",
+"\0giant strength",
+"\0fire resistance",
+"\0treasure finding",
+"\0instant healing",
+" cure dianthroritis",
+"\0poison",
+"\0see invisible",
+"\0 ",
+"\0 ",
+"\0 ",
+"\0 ",
+"\0 ",
+"\0 ",
+"\0 ",
+"\0 ",
+"\0 ",
+"\0 ",
+"\0 "
+ };
+
+
+/*
+	spell data
+ */
+char spelknow[SPNUM]={0};
+char splev[] = { 1, 4, 9, 14, 18, 22, 26, 29, 32, 35, 37, 37, 37, 37, 37 };
+
+char *spelcode[]={
+	"pro",	"mle",	"dex",	"sle",	"chm",	"ssp",
+	"web",	"str",	"enl",	"hel",	"cbl",	"cre",	"pha",	"inv",
+	"bal",	"cld",	"ply",	"can",	"has",	"ckl",	"vpr",
+	"dry",	"lit",	"drl",	"glo",	"flo",	"fgr",
+	"sca",	"hld",	"stp",	"tel",	"mfi", /* 31 */
+	"sph",	"gen",	"sum",	"wtw",	"alt",	"per"
+ };
+
+char *spelname[]={
+	"protection",				"magic missile",		"dexterity",
+	"sleep",					"charm monster",		"sonic spear",
+
+	"web",						"strength",				"enlightenment",
+	"healing",					"cure blindness",		"create monster",
+	"phantasmal forces",		"invisibility",
+
+	"fireball",					"cold",					"polymorph",
+	"cancellation",				"haste self",			"cloud kill",
+	"vaporize rock",
+
+	"dehydration",				"lightning",			"drain life",
+	"invulnerability",			"flood",				"finger of death",
+
+	"scare monster",			"hold monster",			"time stop",
+	"teleport away",			"magic fire",
+
+	"sphere of annihilation",	"genocide",				"summon demon",
+	"walk through walls",		"alter reality",		"permanence",
+	""
+ };
+
+char *speldescript[]={
+/* 1 */
+	"generates a +2 protection field",
+	"creates and hurls a magic missile equivalent to a + 1 magic arrow",
+	"adds +2 to the casters dexterity",
+	"causes some monsters to go to sleep",
+	"some monsters may be awed at your magnificence",
+	"causes your hands to emit a screeching sound toward what they point",
+/* 7 */
+	"causes strands of sticky thread to entangle an enemy",
+	"adds +2 to the casters strength for a short term",
+	"the caster becomes aware of things around him",
+	"restores some hp to the caster",
+	"restores sight to one so unfortunate as to be blinded",
+	"creates a monster near the caster appropriate for the location",
+	"creates illusions, and if believed, monsters die",
+	"the caster becomes invisible",
+/* 15 */
+	"makes a ball of fire that burns on what it hits",
+	"sends forth a cone of cold which freezes what it touches",
+	"you can find out what this does for yourself",
+	"negates the ability of a monster to use his special abilities",
+	"speeds up the casters movements",
+	"creates a fog of poisonous gas which kills all that is within it",
+	"this changes rock to air",
+/* 22 */
+	"dries up water in the immediate vicinity",
+	"you finger will emit a lightning bolt when this spell is cast",
+	"subtracts hit points from both you and a monster",
+	"this globe helps to protect the player from physical attack",
+	"this creates an avalanche of H2O to flood the immediate chamber",
+	"this is a holy spell and calls upon your god to back you up",
+/* 28 */
+	"terrifies the monster so that hopefully he wont hit the magic user",
+	"the monster is frozen in his tracks if this is successful",
+	"all movement in the caverns ceases for a limited duration",
+	"moves a particular monster around in the dungeon (hopefully away from you)",
+	"this causes a curtain of fire to appear all around you",
+/* 33 */
+	"anything caught in this sphere is instantly killed.  Warning -- dangerous",
+	"eliminates a species of monster from the game -- use sparingly",
+	"summons a demon who hopefully helps you out",
+	"allows the player to walk through walls for a short period of time",
+	"god only knows what this will do",
+	"makes a character spell permanent, i. e. protection, strength, etc.",
+	""
+ };
+
+char spelweird[MAXMONST+8][SPNUM] = {
+/*                      p m d s c s    w s e h c c p i    b c p c h c v    d l d g f f    s h s t m    s g s w a p */
+/*                      r l e l h s    e t n e b r h n    a l l a a k p    r i r l l g    c l t e f    p e u t l e */
+/*                      o e x e m p    b r l l l e a v    l d y n s l r    y t l o o r    a d p l i    h n m w t r */
+	
+
+/*            bat */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*          gnome */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,5,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*      hobgoblin */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*         jackal */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*         kobold */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,5,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+
+/*            orc */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   4,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*          snake */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*giant centipede */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*         jaculi */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*     troglodyte */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+
+/*      giant ant */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*   floating eye */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*     leprechaun */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*          nymph */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*         quasit */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+
+/*   rust monster */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   4,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*         zombie */ {  0,0,0,8,0,4,   0,0,0,0,0,0,0,0,   0,0,0,0,0,4,0,   4,0,0,0,0,4,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*   assassin bug */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*        bugbear */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,5,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*     hell hound */ {  0,6,0,0,0,0,   12,0,0,0,0,0,0,0,  0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+
+/*     ice lizard */ {  0,0,0,0,0,0,   11,0,0,0,0,0,0,0,  0,15,0,0,0,0,0,  0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*        centaur */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*          troll */ {  0,7,0,0,0,0,   0,0,0,0,0,0,0,5,   0,0,0,0,0,0,0,   4,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*           yeti */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,15,0,0,0,0,0,  0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*   white dragon */ {  0,0,0,0,0,0,   0,0,0,0,0,0,14,0,  0,15,0,0,0,0,0,  4,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+
+/*            elf */ {  0,0,0,0,0,0,   0,0,0,0,0,0,14,5,  0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*gelatinous cube */ {  0,0,0,0,0,0,   2,0,0,0,0,0,0,0,   0,0,0,0,0,4,0,   0,0,0,0,0,4,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*      metamorph */ {  0,13,0,0,0,0,  2,0,0,0,0,0,0,0,   0,0,0,0,0,4,0,   4,0,0,0,0,4,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*         vortex */ {  0,13,0,0,0,10, 1,0,0,0,0,0,0,0,   0,0,0,0,0,4,0,   4,0,0,0,4,4,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*         ziller */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+
+/*   violet fungi */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*         wraith */ {  0,0,0,8,0,4,   0,0,0,0,0,0,0,0,   0,0,0,0,0,4,0,   4,0,0,0,0,4,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*      forvalaka */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,5,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*      lama nobe */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*        osequip */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+
+/*          rothe */ {  0,7,0,0,0,0,   0,0,0,0,0,0,0,5,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*           xorn */ {  0,7,0,0,0,0,   0,0,0,0,0,0,0,5,   0,0,0,0,0,0,0,   4,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*        vampire */ {  0,0,0,8,0,4,   0,0,0,0,0,0,0,0,   0,0,0,0,0,4,0,   0,0,0,0,0,4,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*invisible staker*/ {  0,0,0,0,0,0,   1,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*    poltergeist */ {  0,13,0,8,0,4,  1,0,0,0,0,0,0,0,   0,4,0,0,0,4,0,   4,0,0,0,4,4,   0,0,0,0,0,   0,0,0,0,0,0 },
+
+/* disenchantress */ {  0,0,0,8,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*shambling mound */ {  0,0,0,0,0,10,  0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*    yellow mold */ {  0,0,0,8,0,0,   1,0,0,0,0,0,4,0,   0,0,0,0,0,4,0,   0,0,0,0,0,4,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*     umber hulk */ {  0,7,0,0,0,0,   0,0,0,0,0,0,0,5,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*     gnome king */ {  0,7,0,0,3,0,   0,0,0,0,0,0,0,5,   0,0,9,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+
+/*          mimic */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*     water lord */ {  0,13,0,8,3,4,  1,0,0,0,0,0,0,0,   0,0,9,0,0,4,0,   0,0,0,0,16,4,  0,0,0,0,0,   0,0,0,0,0,0 },
+/*  bronze dragon */ {  0,7,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*   green dragon */ {  0,7,0,0,0,0,   11,0,0,0,0,0,0,0,  0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*    purple worm */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+
+/*          xvart */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*    spirit naga */ {  0,13,0,8,3,4,  1,0,0,0,0,0,0,5,   0,4,9,0,0,4,0,   4,0,0,0,4,4,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*  silver dragon */ {  0,6,0,9,0,0,   12,0,0,0,0,0,0,0,  0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*platinum dragon */ {  0,7,0,9,0,0,   11,0,0,0,0,0,14,0, 0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*   green urchin */ {  0,0,0,0,0,0,   0,0,0,0,0,0,0,0,   0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+/*     red dragon */ {  0,6,0,0,0,0,   12,0,0,0,0,0,0,0,  0,0,0,0,0,0,0,   0,0,0,0,0,0,   0,0,0,0,0,   0,0,0,0,0,0 },
+
+/*                      p m d s c s    w s e h c c p i    b c p c h c v    d l d g f f    s h s t m    s g s w a p */
+/*                      r l e l h s    e t n e b r h n    a l l a a k p    r i r l l g    c l t e f    p e u t l e */
+/*                      o e x e m p    b r l l l e a v    l d y n s l r    y t l o o r    a d p l i    h n m w t r */
+
+/*     demon lord */ {  0,7,0,4,3,0,   1,0,0,0,0,0,14,5,  0,0,4,0,0,4,0,   4,0,0,0,4,4,   0,0,0,0,0,   9,0,0,0,0,0 },
+/*     demon lord */ {  0,7,0,4,3,0,   1,0,0,0,0,0,14,5,  0,0,4,0,0,4,0,   4,0,0,0,4,4,   0,0,0,0,0,   9,0,0,0,0,0 },
+/*     demon lord */ {  0,7,0,4,3,0,   1,0,0,0,0,0,14,5,  0,0,4,0,0,4,0,   4,0,0,0,4,4,   0,0,0,0,0,   9,0,0,0,0,0 },
+/*     demon lord */ {  0,7,0,4,3,0,   1,0,0,0,0,0,14,5,  0,0,4,0,0,4,0,   4,0,0,0,4,4,   0,0,0,0,0,   9,0,0,0,0,0 },
+/*     demon lord */ {  0,7,0,4,3,0,   1,0,0,0,0,0,14,5,  0,0,4,0,0,4,0,   4,0,0,0,4,4,   0,0,0,0,0,   9,0,0,0,0,0 },
+/*     demon lord */ {  0,7,0,4,3,0,   1,0,0,0,0,0,14,5,  0,0,4,0,0,4,0,   4,0,0,0,4,4,   0,0,0,0,0,   9,0,0,0,0,0 },
+/*     demon lord */ {  0,7,0,4,3,0,   1,0,0,0,0,0,14,5,  0,0,4,0,0,4,0,   4,0,0,0,4,4,   0,0,0,0,0,   9,0,0,0,0,0 },
+/*   demon prince */ {  0,7,0,4,3,9,   1,0,0,0,0,0,14,5,  0,0,4,0,0,4,0,   4,0,0,0,4,4,   4,0,0,0,4,   9,0,0,0,0,0 }
+
+ };
+
+char *spelmes[] = { "",
+/*  1 */	"the web had no effect on the %s",
+/*  2 */	"the %s changed shape to avoid the web",
+/*  3 */	"the %s isn't afraid of you",
+/*  4 */	"the %s isn't affected",
+/*  5 */	"the %s can see you with his infravision",
+/*  6 */	"the %s vaporizes your missile",
+/*  7 */	"your missile bounces off the %s",
+/*  8 */	"the %s doesn't sleep",
+/*  9 */	"the %s resists",
+/* 10 */	"the %s can't hear the noise",
+/* 11 */	"the %s's tail cuts it free of the web",
+/* 12 */	"the %s burns through the web",
+/* 13 */	"your missiles pass right through the %s",
+/* 14 */	"the %s sees through your illusions",
+/* 15 */	"the %s loves the cold!",
+/* 16 */	"the %s loves the water!"
+ };
+
+char to_lower[]= /* tolower[character] = lower case converted character */
+    {
+    0000,0001,0002,0003,0004,0005,0006,0007,0010,0011,0012,0013,0014,0015,0016,0017, /* NUL-SI*/
+    0020,0021,0022,0023,0024,0025,0026,0027,0030,0031,0032,0033,0034,0035,0036,0037, /* DLE-US*/
+    0040,0041,0042,0043,0044,0045,0046,0047,0050,0051,0052,0053,0054,0055,0056,0057, /* SP-/ */
+    0060,0061,0062,0063,0064,0065,0066,0067,0070,0071,0072,0073,0074,0075,0076,0077, /* 0-? */
+    0100,0141,0142,0143,0144,0145,0146,0147,0150,0151,0152,0153,0154,0155,0156,0157, /* @-O */
+    0160,0161,0162,0163,0164,0165,0166,0167,0170,0171,0172,0133,0134,0135,0136,0137, /* P-_ */
+    0140,0141,0142,0143,0144,0145,0146,0147,0150,0151,0152,0153,0154,0155,0156,0157, /* `-o */
+    0160,0161,0162,0163,0164,0165,0166,0167,0170,0171,0172,0173,0174,0175,0176,0177, /* p-DEL */
+    };
+
+char to_upper[]= /* toupper[character] = upper case converted character */
+    {
+    0000,0001,0002,0003,0004,0005,0006,0007,0010,0011,0012,0013,0014,0015,0016,0017, /* NUL-SI*/
+    0020,0021,0022,0023,0024,0025,0026,0027,0030,0031,0032,0033,0034,0035,0036,0037, /* DLE-US*/
+    0040,0041,0042,0043,0044,0045,0046,0047,0050,0051,0052,0053,0054,0055,0056,0057, /* SP-/ */
+    0060,0061,0062,0063,0064,0065,0066,0067,0070,0071,0072,0073,0074,0075,0076,0077, /* 0-? */
+    0100,0101,0102,0103,0104,0105,0106,0107,0110,0111,0112,0113,0114,0115,0116,0117, /* @-O */
+    0120,0121,0122,0123,0124,0125,0126,0127,0130,0131,0132,0133,0134,0135,0136,0137, /* P-_ */
+    0140,0101,0102,0103,0104,0105,0106,0107,0110,0111,0112,0113,0114,0115,0116,0117, /* `-o */
+    0120,0121,0122,0123,0124,0125,0126,0127,0130,0131,0132,0173,0174,0175,0176,0177, /* p-DEL */
+    };
+
+char is_digit[]=  /* isdigit[character] = TRUE || FALSE */
+    {
+    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* NUL-SI*/
+    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* DLE-US*/
+    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* SP-/ */
+    1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0, /* 0-? */
+    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* @-O */
+    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* P-_ */
+    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* `-o */
+    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* p-DEL */
+    };
+
+char is_alpha[]=  /* isalpha[character] = TRUE || FALSE */
+    {
+    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* NUL-SI*/
+    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* DLE-US*/
+    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* SP-/ */
+    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0-? */
+    0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* @-O */
+    1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0, /* P-_ */
+    0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* `-o */
+    1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0, /* p-DEL */
+    };
+
+/*
+ *	function to create scroll numbers with appropriate probability of 
+ *	occurrence
+ *
+ *	0 - armor			1 - weapon		2 - enlightenment	3 - paper
+ *	4 - create monster	5 - create item	6 - aggravate		7 - time warp
+ *	8 - teleportation	9 - expanded awareness				10 - haste monst
+ *	11 - heal monster	12 - spirit protection		13 - undead protection
+ *	14 - stealth		15 - magic mapping			16 - hold monster
+ *	17 - gem perfection 18 - spell extension		19 - identify
+ *	20 - remove curse	21 - annihilation			22 - pulverization
+ *  23 - life protection
+ */
+char scprob[]= { 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3,
+	3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 7, 7, 7, 7, 8, 8, 8, 9, 9,
+	9, 9, 10, 10, 10, 10, 11, 11, 11, 12, 12, 12, 13, 13, 13, 13, 14, 14,
+	15, 15, 16, 16, 16, 17, 17, 18, 18, 19, 19, 19, 20, 20, 20, 20, 21, 22,
+	22, 22, 23 };
+
+/*
+ *	function to return a potion number created with appropriate probability
+ *	of occurrence
+ *
+ *	0 - sleep				1 - healing					2 - raise level
+ *	3 - increase ability	4 - gain wisdom				5 - gain strength
+ *	6 - charismatic character	7 - dizziness			8 - learning
+ *	9 - gold detection		10 - monster detection		11 - forgetfulness
+ *	12 - water				13 - blindness				14 - confusion
+ *	15 - heroism			16 - sturdiness				17 - giant strength
+ *	18 - fire resistance	19 - treasure finding		20 - instant healing
+ *	21 - cure dianthroritis	22 - poison					23 - see invisible
+ */
+char potprob[] = { 0, 0, 1, 1, 1, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 9, 9, 9, 10, 10, 10, 11, 11, 12, 12, 13, 14, 15, 16, 17, 18, 19, 19, 20, 20, 22, 22, 23, 23 };
+
+char nlpts[] = { 0, 0, 0, 0, 0, 1, 1, 2, 2, 3, 3, 4, 5, 6, 7 };
+char nch[] = { 0, 0, 0, 1, 1, 1, 2, 2, 3, 4 };
+char nplt[] = { 0, 0, 0, 0, 1, 1, 2, 2, 3, 4 };
+char ndgg[] = { 0, 0, 0, 1, 1, 1, 1, 2, 2, 3, 3, 4, 5 };
+char nsw[] = { 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 3 };