#include "diablo.h"

LightListStruct VisionList[MAXVISION];
unsigned char lightactive[MAXLIGHTS];
LightListStruct LightList[MAXLIGHTS];
int numlights;
BYTE lightradius[16][128];
int dovision; // weak
int numvision;
char lightmax; // weak
int dolighting; // weak
BYTE lightblock[8][8][16][16];
int visionid;
BYTE *pLightTbl;
int lightflag; // weak

char CrawlTable[2749] =
{
	1,
		0, 0,
	4,
		0, 1, 0, -1, -1, 0, 1, 0,
	16,
		0, 2, 0, -2, -1, 2, 1, 2,
		-1, -2, 1, -2, -1, 1, 1, 1,
		-1, -1, 1, -1, -2, 1, 2, 1,
		-2, -1, 2, -1, -2, 0, 2, 0,
	24,
		0, 3, 0, -3, -1, 3, 1, 3,
		-1, -3, 1, -3, -2, 3, 2, 3,
		-2, -3, 2, -3, -2, 2, 2, 2,
		-2, -2, 2, -2, -3, 2, 3, 2,
		-3, -2, 3, -2, -3, 1, 3, 1,
		-3, -1, 3, -1, -3, 0, 3, 0,
	32,
		0, 4, 0, -4, -1, 4, 1, 4,
		-1, -4, 1, -4, -2, 4, 2, 4,
		-2, -4, 2, -4, -3, 4, 3, 4,
		-3, -4, 3, -4, -3, 3, 3, 3,
		-3, -3, 3, -3, -4, 3, 4, 3,
		-4, -3, 4, -3, -4, 2, 4, 2,
		-4, -2, 4, -2, -4, 1, 4, 1,
		-4, -1, 4, -1, -4, 0, 4, 0,
	40,
		0, 5, 0, -5, -1, 5, 1, 5,
		-1, -5, 1, -5, -2, 5, 2, 5,
		-2, -5, 2, -5, -3, 5, 3, 5,
		-3, -5, 3, -5, -4, 5, 4, 5,
		-4, -5, 4, -5, -4, 4, 4, 4,
		-4, -4, 4, -4, -5, 4, 5, 4,
		-5, -4, 5, -4, -5, 3, 5, 3,
		-5, -3, 5, -3, -5, 2, 5, 2,
		-5, -2, 5, -2, -5, 1, 5, 1,
		-5, -1, 5, -1, -5, 0, 5, 0,
	48,
		0, 6, 0, -6, -1, 6, 1, 6,
		-1, -6, 1, -6, -2, 6, 2, 6,
		-2, -6, 2, -6, -3, 6, 3, 6,
		-3, -6, 3, -6, -4, 6, 4, 6,
		-4, -6, 4, -6, -5, 6, 5, 6,
		-5, -6, 5, -6, -5, 5, 5, 5,
		-5, -5, 5, -5, -6, 5, 6, 5,
		-6, -5, 6, -5, -6, 4, 6, 4,
		-6, -4, 6, -4, -6, 3, 6, 3,
		-6, -3, 6, -3, -6, 2, 6, 2,
		-6, -2, 6, -2, -6, 1, 6, 1,
		-6, -1, 6, -1, -6, 0, 6, 0,
	56,
		0, 7, 0, -7, -1, 7, 1, 7,
		-1, -7, 1, -7, -2, 7, 2, 7,
		-2, -7, 2, -7, -3, 7, 3, 7,
		-3, -7, 3, -7, -4, 7, 4, 7,
		-4, -7, 4, -7, -5, 7, 5, 7,
		-5, -7, 5, -7, -6, 7, 6, 7,
		-6, -7, 6, -7, -6, 6, 6, 6,
		-6, -6, 6, -6, -7, 6, 7, 6,
		-7, -6, 7, -6, -7, 5, 7, 5,
		-7, -5, 7, -5, -7, 4, 7, 4,
		-7, -4, 7, -4, -7, 3, 7, 3,
		-7, -3, 7, -3, -7, 2, 7, 2,
		-7, -2, 7, -2, -7, 1, 7, 1,
		-7, -1, 7, -1, -7, 0, 7, 0,
	64,
		0, 8, 0, -8, -1, 8, 1, 8,
		-1, -8, 1, -8, -2, 8, 2, 8,
		-2, -8, 2, -8, -3, 8, 3, 8,
		-3, -8, 3, -8, -4, 8, 4, 8,
		-4, -8, 4, -8, -5, 8, 5, 8,
		-5, -8, 5, -8, -6, 8, 6, 8,
		-6, -8, 6, -8, -7, 8, 7, 8,
		-7, -8, 7, -8, -7, 7, 7, 7,
		-7, -7, 7, -7, -8, 7, 8, 7,
		-8, -7, 8, -7, -8, 6, 8, 6,
		-8, -6, 8, -6, -8, 5, 8, 5,
		-8, -5, 8, -5, -8, 4, 8, 4,
		-8, -4, 8, -4, -8, 3, 8, 3,
		-8, -3, 8, -3, -8, 2, 8, 2,
		-8, -2, 8, -2, -8, 1, 8, 1,
		-8, -1, 8, -1, -8, 0, 8, 0,
	72,
		0, 9, 0, -9, -1, 9, 1, 9,
		-1, -9, 1, -9, -2, 9, 2, 9,
		-2, -9, 2, -9, -3, 9, 3, 9,
		-3, -9, 3, -9, -4, 9, 4, 9,
		-4, -9, 4, -9, -5, 9, 5, 9,
		-5, -9, 5, -9, -6, 9, 6, 9,
		-6, -9, 6, -9, -7, 9, 7, 9,
		-7, -9, 7, -9, -8, 9, 8, 9,
		-8, -9, 8, -9, -8, 8, 8, 8,
		-8, -8, 8, -8, -9, 8, 9, 8,
		-9, -8, 9, -8, -9, 7, 9, 7,
		-9, -7, 9, -7, -9, 6, 9, 6,
		-9, -6, 9, -6, -9, 5, 9, 5,
		-9, -5, 9, -5, -9, 4, 9, 4,
		-9, -4, 9, -4, -9, 3, 9, 3,
		-9, -3, 9, -3, -9, 2, 9, 2,
		-9, -2, 9, -2, -9, 1, 9, 1,
		-9, -1, 9, -1, -9, 0, 9, 0,
	80,
		0, 10, 0, -10, -1, 10, 1, 10,
		-1, -10, 1, -10, -2, 10, 2, 10,
		-2, -10, 2, -10, -3, 10, 3, 10,
		-3, -10, 3, -10, -4, 10, 4, 10,
		-4, -10, 4, -10, -5, 10, 5, 10,
		-5, -10, 5, -10, -6, 10, 6, 10,
		-6, -10, 6, -10, -7, 10, 7, 10,
		-7, -10, 7, -10, -8, 10, 8, 10,
		-8, -10, 8, -10, -9, 10, 9, 10,
		-9, -10, 9, -10, -9, 9, 9, 9,
		-9, -9, 9, -9, -10, 9, 10, 9,
		-10, -9, 10, -9, -10, 8, 10, 8,
		-10, -8, 10, -8, -10, 7, 10, 7,
		-10, -7, 10, -7, -10, 6, 10, 6,
		-10, -6, 10, -6, -10, 5, 10, 5,
		-10, -5, 10, -5, -10, 4, 10, 4,
		-10, -4, 10, -4, -10, 3, 10, 3,
		-10, -3, 10, -3, -10, 2, 10, 2,
		-10, -2, 10, -2, -10, 1, 10, 1,
		-10, -1, 10, -1, -10, 0, 10, 0,
	88,
		0, 11, 0, -11, -1, 11, 1, 11,
		-1, -11, 1, -11, -2, 11, 2, 11,
		-2, -11, 2, -11, -3, 11, 3, 11,
		-3, -11, 3, -11, -4, 11, 4, 11,
		-4, -11, 4, -11, -5, 11, 5, 11,
		-5, -11, 5, -11, -6, 11, 6, 11,
		-6, -11, 6, -11, -7, 11, 7, 11,
		-7, -11, 7, -11, -8, 11, 8, 11,
		-8, -11, 8, -11, -9, 11, 9, 11,
		-9, -11, 9, -11, -10, 11, 10, 11,
		-10, -11, 10, -11, -10, 10, 10, 10,
		-10, -10, 10, -10, -11, 10, 11, 10,
		-11, -10, 11, -10, -11, 9, 11, 9,
		-11, -9, 11, -9, -11, 8, 11, 8,
		-11, -8, 11, -8, -11, 7, 11, 7,
		-11, -7, 11, -7, -11, 6, 11, 6,
		-11, -6, 11, -6, -11, 5, 11, 5,
		-11, -5, 11, -5, -11, 4, 11, 4,
		-11, -4, 11, -4, -11, 3, 11, 3,
		-11, -3, 11, -3, -11, 2, 11, 2,
		-11, -2, 11, -2, -11, 1, 11, 1,
		-11, -1, 11, -1, -11, 0, 11, 0,
	96,
		0, 12, 0, -12, -1, 12, 1, 12,
		-1, -12, 1, -12, -2, 12, 2, 12,
		-2, -12, 2, -12, -3, 12, 3, 12,
		-3, -12, 3, -12, -4, 12, 4, 12,
		-4, -12, 4, -12, -5, 12, 5, 12,
		-5, -12, 5, -12, -6, 12, 6, 12,
		-6, -12, 6, -12, -7, 12, 7, 12,
		-7, -12, 7, -12, -8, 12, 8, 12,
		-8, -12, 8, -12, -9, 12, 9, 12,
		-9, -12, 9, -12, -10, 12, 10, 12,
		-10, -12, 10, -12, -11, 12, 11, 12,
		-11, -12, 11, -12, -11, 11, 11, 11,
		-11, -11, 11, -11, -12, 11, 12, 11,
		-12, -11, 12, -11, -12, 10, 12, 10,
		-12, -10, 12, -10, -12, 9, 12, 9,
		-12, -9, 12, -9, -12, 8, 12, 8,
		-12, -8, 12, -8, -12, 7, 12, 7,
		-12, -7, 12, -7, -12, 6, 12, 6,
		-12, -6, 12, -6, -12, 5, 12, 5,
		-12, -5, 12, -5, -12, 4, 12, 4,
		-12, -4, 12, -4, -12, 3, 12, 3,
		-12, -3, 12, -3, -12, 2, 12, 2,
		-12, -2, 12, -2, -12, 1, 12, 1,
		-12, -1, 12, -1, -12, 0, 12, 0,
	104,
		0, 13, 0, -13, -1, 13, 1, 13,
		-1, -13, 1, -13, -2, 13, 2, 13,
		-2, -13, 2, -13, -3, 13, 3, 13,
		-3, -13, 3, -13, -4, 13, 4, 13,
		-4, -13, 4, -13, -5, 13, 5, 13,
		-5, -13, 5, -13, -6, 13, 6, 13,
		-6, -13, 6, -13, -7, 13, 7, 13,
		-7, -13, 7, -13, -8, 13, 8, 13,
		-8, -13, 8, -13, -9, 13, 9, 13,
		-9, -13, 9, -13, -10, 13, 10, 13,
		-10, -13, 10, -13, -11, 13, 11, 13,
		-11, -13, 11, -13, -12, 13, 12, 13,
		-12, -13, 12, -13, -12, 12, 12, 12,
		-12, -12, 12, -12, -13, 12, 13, 12,
		-13, -12, 13, -12, -13, 11, 13, 11,
		-13, -11, 13, -11, -13, 10, 13, 10,
		-13, -10, 13, -10, -13, 9, 13, 9,
		-13, -9, 13, -9, -13, 8, 13, 8,
		-13, -8, 13, -8, -13, 7, 13, 7,
		-13, -7, 13, -7, -13, 6, 13, 6,
		-13, -6, 13, -6, -13, 5, 13, 5,
		-13, -5, 13, -5, -13, 4, 13, 4,
		-13, -4, 13, -4, -13, 3, 13, 3,
		-13, -3, 13, -3, -13, 2, 13, 2,
		-13, -2, 13, -2, -13, 1, 13, 1,
		-13, -1, 13, -1, -13, 0, 13, 0,
	112,
		0, 14, 0, -14, -1, 14, 1, 14,
		-1, -14, 1, -14, -2, 14, 2, 14,
		-2, -14, 2, -14, -3, 14, 3, 14,
		-3, -14, 3, -14, -4, 14, 4, 14,
		-4, -14, 4, -14, -5, 14, 5, 14,
		-5, -14, 5, -14, -6, 14, 6, 14,
		-6, -14, 6, -14, -7, 14, 7, 14,
		-7, -14, 7, -14, -8, 14, 8, 14,
		-8, -14, 8, -14, -9, 14, 9, 14,
		-9, -14, 9, -14, -10, 14, 10, 14,
		-10, -14, 10, -14, -11, 14, 11, 14,
		-11, -14, 11, -14, -12, 14, 12, 14,
		-12, -14, 12, -14, -13, 14, 13, 14,
		-13, -14, 13, -14, -13, 13, 13, 13,
		-13, -13, 13, -13, -14, 13, 14, 13,
		-14, -13, 14, -13, -14, 12, 14, 12,
		-14, -12, 14, -12, -14, 11, 14, 11,
		-14, -11, 14, -11, -14, 10, 14, 10,
		-14, -10, 14, -10, -14, 9, 14, 9,
		-14, -9, 14, -9, -14, 8, 14, 8,
		-14, -8, 14, -8, -14, 7, 14, 7,
		-14, -7, 14, -7, -14, 6, 14, 6,
		-14, -6, 14, -6, -14, 5, 14, 5,
		-14, -5, 14, -5, -14, 4, 14, 4,
		-14, -4, 14, -4, -14, 3, 14, 3,
		-14, -3, 14, -3, -14, 2, 14, 2,
		-14, -2, 14, -2, -14, 1, 14, 1,
		-14, -1, 14, -1, -14, 0, 14, 0,
	120,
		0, 15, 0, -15, -1, 15, 1, 15,
		-1, -15, 1, -15, -2, 15, 2, 15,
		-2, -15, 2, -15, -3, 15, 3, 15,
		-3, -15, 3, -15, -4, 15, 4, 15,
		-4, -15, 4, -15, -5, 15, 5, 15,
		-5, -15, 5, -15, -6, 15, 6, 15,
		-6, -15, 6, -15, -7, 15, 7, 15,
		-7, -15, 7, -15, -8, 15, 8, 15,
		-8, -15, 8, -15, -9, 15, 9, 15,
		-9, -15, 9, -15, -10, 15, 10, 15,
		-10, -15, 10, -15, -11, 15, 11, 15,
		-11, -15, 11, -15, -12, 15, 12, 15,
		-12, -15, 12, -15, -13, 15, 13, 15,
		-13, -15, 13, -15, -14, 15, 14, 15,
		-14, -15, 14, -15, -14, 14, 14, 14,
		-14, -14, 14, -14, -15, 14, 15, 14,
		-15, -14, 15, -14, -15, 13, 15, 13,
		-15, -13, 15, -13, -15, 12, 15, 12,
		-15, -12, 15, -12, -15, 11, 15, 11,
		-15, -11, 15, -11, -15, 10, 15, 10,
		-15, -10, 15, -10, -15, 9, 15, 9,
		-15, -9, 15, -9, -15, 8, 15, 8,
		-15, -8, 15, -8, -15, 7, 15, 7,
		-15, -7, 15, -7, -15, 6, 15, 6,
		-15, -6, 15, -6, -15, 5, 15, 5,
		-15, -5, 15, -5, -15, 4, 15, 4,
		-15, -4, 15, -4, -15, 3, 15, 3,
		-15, -3, 15, -3, -15, 2, 15, 2,
		-15, -2, 15, -2, -15, 1, 15, 1,
		-15, -1, 15, -1, -15, 0, 15, 0,
	(char)128,
		0, 16, 0, -16, -1, 16, 1, 16,
		-1, -16, 1, -16, -2, 16, 2, 16,
		-2, -16, 2, -16, -3, 16, 3, 16,
		-3, -16, 3, -16, -4, 16, 4, 16,
		-4, -16, 4, -16, -5, 16, 5, 16,
		-5, -16, 5, -16, -6, 16, 6, 16,
		-6, -16, 6, -16, -7, 16, 7, 16,
		-7, -16, 7, -16, -8, 16, 8, 16,
		-8, -16, 8, -16, -9, 16, 9, 16,
		-9, -16, 9, -16, -10, 16, 10, 16,
		-10, -16, 10, -16, -11, 16, 11, 16,
		-11, -16, 11, -16, -12, 16, 12, 16,
		-12, -16, 12, -16, -13, 16, 13, 16,
		-13, -16, 13, -16, -14, 16, 14, 16,
		-14, -16, 14, -16, -15, 16, 15, 16,
		-15, -16, 15, -16, -15, 15, 15, 15,
		-15, -15, 15, -15, -16, 15, 16, 15,
		-16, -15, 16, -15, -16, 14, 16, 14,
		-16, -14, 16, -14, -16, 13, 16, 13,
		-16, -13, 16, -13, -16, 12, 16, 12,
		-16, -12, 16, -12, -16, 11, 16, 11,
		-16, -11, 16, -11, -16, 10, 16, 10,
		-16, -10, 16, -10, -16, 9, 16, 9,
		-16, -9, 16, -9, -16, 8, 16, 8,
		-16, -8, 16, -8, -16, 7, 16, 7,
		-16, -7, 16, -7, -16, 6, 16, 6,
		-16, -6, 16, -6, -16, 5, 16, 5,
		-16, -5, 16, -5, -16, 4, 16, 4,
		-16, -4, 16, -4, -16, 3, 16, 3,
		-16, -3, 16, -3, -16, 2, 16, 2,
		-16, -2, 16, -2, -16, 1, 16, 1,
		-16, -1, 16, -1, -16, 0, 16, 0,
	(char)136,
		0, 17, 0, -17, -1, 17, 1, 17,
		-1, -17, 1, -17, -2, 17, 2, 17,
		-2, -17, 2, -17, -3, 17, 3, 17,
		-3, -17, 3, -17, -4, 17, 4, 17,
		-4, -17, 4, -17, -5, 17, 5, 17,
		-5, -17, 5, -17, -6, 17, 6, 17,
		-6, -17, 6, -17, -7, 17, 7, 17,
		-7, -17, 7, -17, -8, 17, 8, 17,
		-8, -17, 8, -17, -9, 17, 9, 17,
		-9, -17, 9, -17, -10, 17, 10, 17,
		-10, -17, 10, -17, -11, 17, 11, 17,
		-11, -17, 11, -17, -12, 17, 12, 17,
		-12, -17, 12, -17, -13, 17, 13, 17,
		-13, -17, 13, -17, -14, 17, 14, 17,
		-14, -17, 14, -17, -15, 17, 15, 17,
		-15, -17, 15, -17, -16, 17, 16, 17,
		-16, -17, 16, -17, -16, 16, 16, 16,
		-16, -16, 16, -16, -17, 16, 17, 16,
		-17, -16, 17, -16, -17, 15, 17, 15,
		-17, -15, 17, -15, -17, 14, 17, 14,
		-17, -14, 17, -14, -17, 13, 17, 13,
		-17, -13, 17, -13, -17, 12, 17, 12,
		-17, -12, 17, -12, -17, 11, 17, 11,
		-17, -11, 17, -11, -17, 10, 17, 10,
		-17, -10, 17, -10, -17, 9, 17, 9,
		-17, -9, 17, -9, -17, 8, 17, 8,
		-17, -8, 17, -8, -17, 7, 17, 7,
		-17, -7, 17, -7, -17, 6, 17, 6,
		-17, -6, 17, -6, -17, 5, 17, 5,
		-17, -5, 17, -5, -17, 4, 17, 4,
		-17, -4, 17, -4, -17, 3, 17, 3,
		-17, -3, 17, -3, -17, 2, 17, 2,
		-17, -2, 17, -2, -17, 1, 17, 1,
		-17, -1, 17, -1, -17, 0, 17, 0,
	(char)144,
		0, 18, 0, -18, -1, 18, 1, 18,
		-1, -18, 1, -18, -2, 18, 2, 18,
		-2, -18, 2, -18, -3, 18, 3, 18,
		-3, -18, 3, -18, -4, 18, 4, 18,
		-4, -18, 4, -18, -5, 18, 5, 18,
		-5, -18, 5, -18, -6, 18, 6, 18,
		-6, -18, 6, -18, -7, 18, 7, 18,
		-7, -18, 7, -18, -8, 18, 8, 18,
		-8, -18, 8, -18, -9, 18, 9, 18,
		-9, -18, 9, -18, -10, 18, 10, 18,
		-10, -18, 10, -18, -11, 18, 11, 18,
		-11, -18, 11, -18, -12, 18, 12, 18,
		-12, -18, 12, -18, -13, 18, 13, 18,
		-13, -18, 13, -18, -14, 18, 14, 18,
		-14, -18, 14, -18, -15, 18, 15, 18,
		-15, -18, 15, -18, -16, 18, 16, 18,
		-16, -18, 16, -18, -17, 18, 17, 18,
		-17, -18, 17, -18, -17, 17, 17, 17,
		-17, -17, 17, -17, -18, 17, 18, 17,
		-18, -17, 18, -17, -18, 16, 18, 16,
		-18, -16, 18, -16, -18, 15, 18, 15,
		-18, -15, 18, -15, -18, 14, 18, 14,
		-18, -14, 18, -14, -18, 13, 18, 13,
		-18, -13, 18, -13, -18, 12, 18, 12,
		-18, -12, 18, -12, -18, 11, 18, 11,
		-18, -11, 18, -11, -18, 10, 18, 10,
		-18, -10, 18, -10, -18, 9, 18, 9,
		-18, -9, 18, -9, -18, 8, 18, 8,
		-18, -8, 18, -8, -18, 7, 18, 7,
		-18, -7, 18, -7, -18, 6, 18, 6,
		-18, -6, 18, -6, -18, 5, 18, 5,
		-18, -5, 18, -5, -18, 4, 18, 4,
		-18, -4, 18, -4, -18, 3, 18, 3,
		-18, -3, 18, -3, -18, 2, 18, 2,
		-18, -2, 18, -2, -18, 1, 18, 1,
		-18, -1, 18, -1, -18, 0, 18, 0
};

char *pCrawlTable[19] = /* figure out what this is for */
{
	CrawlTable,
	CrawlTable+3,
	CrawlTable+12,
	CrawlTable+45,
	CrawlTable+94,
	CrawlTable+159,
	CrawlTable+240,
	CrawlTable+337,
	CrawlTable+450,
	CrawlTable+579,
	CrawlTable+724,
	CrawlTable+885,
	CrawlTable+1062,
	CrawlTable+1255,
	CrawlTable+1464,
	CrawlTable+1689,
	CrawlTable+1930,
	CrawlTable+2187,
	CrawlTable+2460
};
unsigned char vCrawlTable[23][30] =
{
  { 1, 0, 2, 0, 3, 0, 4, 0, 5, 0, 6, 0, 7, 0, 8, 0, 9, 0, 10, 0, 11, 0, 12, 0, 13, 0, 14, 0, 15, 0 },
  { 1, 0, 2, 0, 3, 0, 4, 0, 5, 0, 6, 0, 7, 0, 8, 1, 9, 1, 10, 1, 11, 1, 12, 1, 13, 1, 14, 1, 15, 1 },
  { 1, 0, 2, 0, 3, 0, 4, 1, 5, 1, 6, 1, 7, 1, 8, 1, 9, 1, 10, 1, 11, 1, 12, 2, 13, 2, 14, 2, 15, 2 },
  { 1, 0, 2, 0, 3, 1, 4, 1, 5, 1, 6, 1, 7, 1, 8, 2, 9, 2, 10, 2, 11, 2, 12, 2, 13, 3, 14, 3, 15, 3 },
  { 1, 0, 2, 1, 3, 1, 4, 1, 5, 1, 6, 2, 7, 2, 8, 2, 9, 3, 10, 3, 11, 3, 12, 3, 13, 4, 14, 4, 0, 0 },
  { 1, 0, 2, 1, 3, 1, 4, 1, 5, 2, 6, 2, 7, 3, 8, 3, 9, 3, 10, 4, 11, 4, 12, 4, 13, 5, 14, 5, 0, 0 },
  { 1, 0, 2, 1, 3, 1, 4, 2, 5, 2, 6, 3, 7, 3, 8, 3, 9, 4, 10, 4, 11, 5, 12, 5, 13, 6, 14, 6, 0, 0 },
  { 1, 1, 2, 1, 3, 2, 4, 2, 5, 3, 6, 3, 7, 4, 8, 4, 9, 5, 10, 5, 11, 6, 12, 6, 13, 7, 0, 0, 0, 0 },
  { 1, 1, 2, 1, 3, 2, 4, 2, 5, 3, 6, 4, 7, 4, 8, 5, 9, 6, 10, 6, 11, 7, 12, 7, 12, 8, 13, 8, 0, 0 },
  { 1, 1, 2, 2, 3, 2, 4, 3, 5, 4, 6, 5, 7, 5, 8, 6, 9, 7, 10, 7, 10, 8, 11, 8, 12, 9, 0, 0, 0, 0 },
  { 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 5, 7, 6, 8, 7, 9, 8, 10, 9, 11, 9, 11, 10, 0, 0, 0, 0, 0, 0 },
  { 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10, 11, 11, 0, 0, 0, 0, 0, 0, 0, 0 },
  { 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 9, 11, 10, 11, 0, 0, 0, 0, 0, 0 },
  { 1, 1, 2, 2, 2, 3, 3, 4, 4, 5, 5, 6, 5, 7, 6, 8, 7, 9, 7, 10, 8, 10, 8, 11, 9, 12, 0, 0, 0, 0 },
  { 1, 1, 1, 2, 2, 3, 2, 4, 3, 5, 4, 6, 4, 7, 5, 8, 6, 9, 6, 10, 7, 11, 7, 12, 8, 12, 8, 13, 0, 0 },
  { 1, 1, 1, 2, 2, 3, 2, 4, 3, 5, 3, 6, 4, 7, 4, 8, 5, 9, 5, 10, 6, 11, 6, 12, 7, 13, 0, 0, 0, 0 },
  { 0, 1, 1, 2, 1, 3, 2, 4, 2, 5, 3, 6, 3, 7, 3, 8, 4, 9, 4, 10, 5, 11, 5, 12, 6, 13, 6, 14, 0, 0 },
  { 0, 1, 1, 2, 1, 3, 1, 4, 2, 5, 2, 6, 3, 7, 3, 8, 3, 9, 4, 10, 4, 11, 4, 12, 5, 13, 5, 14, 0, 0 },
  { 0, 1, 1, 2, 1, 3, 1, 4, 1, 5, 2, 6, 2, 7, 2, 8, 3, 9, 3, 10, 3, 11, 3, 12, 4, 13, 4, 14, 0, 0 },
  { 0, 1, 0, 2, 1, 3, 1, 4, 1, 5, 1, 6, 1, 7, 2, 8, 2, 9, 2, 10, 2, 11, 2, 12, 3, 13, 3, 14, 3, 15 },
  { 0, 1, 0, 2, 0, 3, 1, 4, 1, 5, 1, 6, 1, 7, 1, 8, 1, 9, 1, 10, 1, 11, 2, 12, 2, 13, 2, 14, 2, 15 },
  { 0, 1, 0, 2, 0, 3, 0, 4, 0, 5, 0, 6, 0, 7, 1, 8, 1, 9, 1, 10, 1, 11, 1, 12, 1, 13, 1, 14, 1, 15 },
  { 0, 1, 0, 2, 0, 3, 0, 4, 0, 5, 0, 6, 0, 7, 0, 8, 0, 9, 0, 10, 0, 11, 0, 12, 0, 13, 0, 14, 0, 15 }
};
unsigned char byte_49463C[18][18] = /* unused */
{
	{ 0, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3 },
	{ 0, 1, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3 },
	{ 0, 1, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3 },
	{ 0, 0, 1, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3 },
	{ 0, 0, 1, 1, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3 },
	{ 0, 0, 1, 1, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3 },
	{ 0, 0, 0, 1, 1, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3 },
	{ 0, 0, 0, 1, 1, 1, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3 },
	{ 0, 0, 0, 0, 1, 1, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3 },
	{ 0, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3 },
	{ 0, 0, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3 },
	{ 0, 0, 0, 0, 0, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3 },
	{ 0, 0, 0, 0, 0, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 3 },
	{ 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3 },
	{ 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3 },
	{ 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3 },
	{ 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3 },
	{ 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2 }
};

unsigned char RadiusAdj[23] = { 0, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 4, 3, 2, 2, 2, 1, 1, 1, 0, 0, 0, 0 };

void RotateRadius(int *x, int *y, int *dx, int *dy, int *lx, int *ly, int *bx, int *by)
{
	int swap;

	*bx = 0;
	*by = 0;

	swap = *dx;
	*dx = 7 - *dy;
	*dy = swap;
	swap = *lx;
	*lx = 7 - *ly;
	*ly = swap;

	*x = *dx - *lx;
	*y = *dy - *ly;

	if(*x < 0) {
		*x += 8;
		*bx = 1;
	}
	if(*y < 0) {
		*y += 8;
		*by = 1;
	}
}

void DoLighting(int nXPos, int nYPos, int nRadius, int Lnum)
{
	int x, y, v, xoff, yoff, mult, radius_block;
	int min_x, max_x, min_y, max_y;
	int dist_x, dist_y, light_x, light_y, block_x, block_y, temp_x, temp_y;

	xoff = 0;
	yoff = 0;
	light_x = 0;
	light_y = 0;
	block_x = 0;
	block_y = 0;

	if(Lnum >= 0) {
		xoff = LightList[Lnum]._xoff;
		yoff = LightList[Lnum]._yoff;
		if(xoff < 0) {
			xoff += 8;
			nXPos--;
		}
		if(yoff < 0) {
			yoff += 8;
			nYPos--;
		}
	}

	dist_x = xoff;
	dist_y = yoff;

	if(nXPos - 15 < 0) {
		min_x = nXPos + 1;
	} else {
		min_x = 15;
	}
	if(nXPos + 15 > MAXDUNX) {
		max_x = MAXDUNX - nXPos;
	} else {
		max_x = 15;
	}
	if(nYPos - 15 < 0) {
		min_y = nYPos + 1;
	} else {
		min_y = 15;
	}
	if(nYPos + 15 > MAXDUNY) {
		max_y = MAXDUNY - nYPos;
	} else {
		max_y = 15;
	}

	if(nXPos >= 0 && nXPos < MAXDUNX && nYPos >= 0 && nYPos < MAXDUNY) {
		dLight[nXPos][nYPos] = 0;
	}

	mult = xoff + 8 * yoff;
	for(y = 0; y < min_y; y++) {
		for(x = 1; x < max_x; x++) {
			radius_block = lightblock[0][mult][y][x];
			if(radius_block < 128) {
				temp_x = nXPos + x;
				temp_y = nYPos + y;
				v = lightradius[nRadius][radius_block];
				if(temp_x >= 0 && temp_x < MAXDUNX && temp_y >= 0 && temp_y < MAXDUNY) {
					if(v < dLight[temp_x][temp_y]) {
						dLight[temp_x][temp_y] = v;
					}
				}
			}
		}
	}
	RotateRadius(&xoff, &yoff, &dist_x, &dist_y, &light_x, &light_y, &block_x, &block_y);
	mult = xoff + 8 * yoff;
	for(y = 0; y < max_y; y++) {
		for(x = 1; x < max_x; x++) {
			radius_block = lightblock[0][mult][y + block_y][x + block_x];
			if(radius_block < 128) {
				temp_x = nXPos + y;
				temp_y = nYPos - x;
				v = lightradius[nRadius][radius_block];
				if(temp_x >= 0 && temp_x < MAXDUNX && temp_y >= 0 && temp_y < MAXDUNY) {
					if(v < dLight[temp_x][temp_y]) {
						dLight[temp_x][temp_y] = v;
					}
				}
			}
		}
	}
	RotateRadius(&xoff, &yoff, &dist_x, &dist_y, &light_x, &light_y, &block_x, &block_y);
	mult = xoff + 8 * yoff;
	for(y = 0; y < max_y; y++) {
		for(x = 1; x < min_x; x++) {
			radius_block = lightblock[0][mult][y + block_y][x + block_x];
			if(radius_block < 128) {
				temp_x = nXPos - x;
				temp_y = nYPos - y;
				v = lightradius[nRadius][radius_block];
				if(temp_x >= 0 && temp_x < MAXDUNX && temp_y >= 0 && temp_y < MAXDUNY) {
					if(v < dLight[temp_x][temp_y]) {
						dLight[temp_x][temp_y] = v;
					}
				}
			}
		}
	}
	RotateRadius(&xoff, &yoff, &dist_x, &dist_y, &light_x, &light_y, &block_x, &block_y);
	mult = xoff + 8 * yoff;
	for(y = 0; y < min_y; y++) {
		for(x = 1; x < min_x; x++) {
			radius_block = lightblock[0][mult][y + block_y][x + block_x];
			if(radius_block < 128) {
				temp_x = nXPos - y;
				temp_y = nYPos + x;
				v = lightradius[nRadius][radius_block];
				if(temp_x >= 0 && temp_x < MAXDUNX && temp_y >= 0 && temp_y < MAXDUNY) {
					if(v < dLight[temp_x][temp_y]) {
						dLight[temp_x][temp_y] = v;
					}
				}
			}
		}
	}
}

void DoUnLight(int nXPos, int nYPos, int nRadius)
{
	int x, y, min_x, min_y, max_x, max_y;

	nRadius++;
	min_y = nYPos - nRadius;
	max_y = nYPos + nRadius;
	min_x = nXPos - nRadius;
	max_x = nXPos + nRadius;

	if(min_y < 0) {
		min_y = 0;
	}
	if(max_y > MAXDUNY) {
		max_y = MAXDUNY;
	}
	if(min_x < 0) {
		min_x = 0;
	}
	if(max_x > MAXDUNX) {
		max_x = MAXDUNX;
	}

	for(y = min_y; y < max_y; y++) {
		for(x = min_x; x < max_x; x++) {
			if(x >= 0 && x < MAXDUNX && y >= 0 && y < MAXDUNY) {
				dLight[x][y] = dPreLight[x][y];
			}
		}
	}
}

void DoUnVision(int nXPos, int nYPos, int nRadius)
{
	int i, j, x1, y1, x2, y2;

	nRadius++;
	y1 = nYPos - nRadius;
	y2 = nYPos + nRadius;
	x1 = nXPos - nRadius;
	x2 = nXPos + nRadius;

	if(y1 < 0) {
		y1 = 0;
	}
	if(y2 > MAXDUNY) {
		y2 = MAXDUNY;
	}
	if(x1 < 0) {
		x1 = 0;
	}
	if(x2 > MAXDUNX) {
		x2 = MAXDUNX;
	}

	for(i = x1; i < x2; i++) {
		for(j = y1; j < y2; j++) {
			dFlags[i][j] &= ~0x42;
		}
	}
}

void DoVision(int nXPos, int nYPos, int nRadius, BOOL doautomap, BOOL visible)
{
	int nCrawlX, nCrawlY, nLineLen, nBlockerFlag, nTrans;
	int j, k, v, x1adj, x2adj, y1adj, y2adj;

	if(nXPos >= 0 && nXPos <= MAXDUNX && nYPos >= 0 && nYPos <= MAXDUNY) {
		if(doautomap) {
			if(dFlags[nXPos][nYPos] >= 0) {
				SetAutomapView(nXPos, nXPos);
			}
			dFlags[nXPos][nYPos] |= 0x80;
		}
		if(visible) {
			dFlags[nXPos][nYPos] |= 0x40;
		}
		dFlags[nXPos][nYPos] |= 2;
	}

	for(v = 0; v < 4; v++) {
		for(j = 0; j < 23; j++) {
			nBlockerFlag = FALSE;
			nLineLen = 2 * (nRadius - RadiusAdj[j]);
			for(k = 0; k < nLineLen && !nBlockerFlag; k += 2) {
				x1adj = 0;
				x2adj = 0;
				y1adj = 0;
				y2adj = 0;
				switch(v) {
				case 0:
					nCrawlX = nXPos + vCrawlTable[j][k];
					nCrawlY = nYPos + vCrawlTable[j][k + 1];
					if(vCrawlTable[j][k] > 0 && vCrawlTable[j][k + 1] > 0) {
						x1adj = -1;
						y2adj = -1;
					}
					break;
				case 1:
					nCrawlX = nXPos - vCrawlTable[j][k];
					nCrawlY = nYPos - vCrawlTable[j][k + 1];
					if(vCrawlTable[j][k] > 0 && vCrawlTable[j][k + 1] > 0) {
						y1adj = 1;
						x2adj = 1;
					}
					break;
				case 2:
					nCrawlX = nXPos + vCrawlTable[j][k];
					nCrawlY = nYPos - vCrawlTable[j][k + 1];
					if(vCrawlTable[j][k] > 0 && vCrawlTable[j][k + 1] > 0) {
						x1adj = -1;
						y2adj = 1;
					}
					break;
				case 3:
					nCrawlX = nXPos - vCrawlTable[j][k];
					nCrawlY = nYPos + vCrawlTable[j][k + 1];
					if(vCrawlTable[j][k] > 0 && vCrawlTable[j][k + 1] > 0) {
						y1adj = -1;
						x2adj = 1;
					}
					break;
				}
				if(nCrawlX >= 0 && nCrawlX <= MAXDUNX && nCrawlY >= 0 && nCrawlY <= MAXDUNY) {
					nBlockerFlag = (unsigned char)nBlockTable[dPiece[nCrawlX][nCrawlY]];
					if(!nBlockTable[dPiece[x1adj + nCrawlX][y1adj + nCrawlY]]
					|| !nBlockTable[dPiece[x2adj + nCrawlX][y2adj + nCrawlY]]) {
						if(doautomap) {
							if(dFlags[nCrawlX][nCrawlY] >= 0) {
								SetAutomapView(nCrawlX, nCrawlY);
							}
							dFlags[nCrawlX][nCrawlY] |= 0x80;
						}
						if(visible) {
							dFlags[nCrawlX][nCrawlY] |= 0x40;
						}
						dFlags[nCrawlX][nCrawlY] |= 2;
						if(!nBlockerFlag) {
							nTrans = dTransVal[nCrawlX][nCrawlY];
							if(nTrans != 0) {
								TransList[nTrans] = 1;
							}
						}
					}
				}
			}
		}
	}
}

void FreeLightTable()
{
	MemFreeDbg(pLightTbl);
}

void InitLightTable()
{
	/// ASSERT: assert(! pLightTbl);
	pLightTbl = DiabloAllocPtr(LIGHTSIZE);
}

void MakeLightTable()
{
	int i, j, k, l, lights, shade, l1, l2, cnt, rem, div;
	double fs, fa;
	BYTE col, max;
	BYTE *tbl, *trn;
	BYTE blood[16];

	tbl = pLightTbl;
	shade = 0;

	if(light4flag) {
		lights = 3;
	} else {
		lights = 15;
	}

	for(i = 0; i < lights; i++) {
		*tbl++ = 0;
		for(j = 0; j < 8; j++) {
			col = 16 * j + shade;
			max = 16 * j + 15;
			for(k = 0; k < 16; k++) {
				if(k != 0 || j != 0) {
					*tbl++ = col;
				}
				if(col < max) {
					col++;
				} else {
					max = 0;
					col = 0;
				}
			}
		}
		for(j = 16; j < 20; j++) {
			col = 8 * j + (shade >> 1);
			max = 8 * j + 7;
			for(k = 0; k < 8; k++) {
				*tbl++ = col;
				if(col < max) {
					col++;
				} else {
					max = 0;
					col = 0;
				}
			}
		}
		for(j = 10; j < 16; j++) {
			col = 16 * j + shade;
			max = 16 * j + 15;
			for(k = 0; k < 16; k++) {
				*tbl++ = col;
				if(col < max) {
					col++;
				} else {
					max = 0;
					col = 0;
				}
				if(col == 255) {
					max = 0;
					col = 0;
				}
			}
		}
		if(light4flag) {
			shade += 5;
		} else {
			shade++;
		}
	}

	for(i = 0; i < 256; i++) {
		*tbl++ = 0;
	}

	if(leveltype == DTYPE_HELL) {
		tbl = pLightTbl;
		for(i = 0; i < lights; i++) {
			l1 = lights - i;
			l2 = l1;
			div = lights / l1;
			rem = lights % l1;
			cnt = 0;
			blood[0] = 0;
			col = 1;
			for(j = 1; j < 16; j++) {
				blood[j] = col;
				l2 += rem;
				if(l2 > l1 && j < 15) {
					j++;
					blood[j] = col;
					l2 -= l1;
				}
				cnt++;
				if(cnt == div) {
					col++;
					cnt = 0;
				}
			}
			*tbl++ = 0;
			for(j = 1; j <= 15; j++) {
				*tbl++ = blood[j];
			}
			for(j = 15; j > 0; j--) {
				*tbl++ = blood[j];
			}
			*tbl++ = 1;
			tbl += 224;
		}
		*tbl++ = 0;
		for(j = 0; j < 31; j++) {
			*tbl++ = 1;
		}
		tbl += 224;
	}

	trn = DiabLoad("PlrGFX\\Infra.TRN", NULL, 'LGTt');
	for(i = 0; i < 256; i++) {
		*tbl++ = trn[i];
	}
	mem_free_dbg(trn);

	trn = DiabLoad("PlrGFX\\Stone.TRN", NULL, 'LGTt');
	for(i = 0; i < 256; i++) {
		*tbl++ = trn[i];
	}
	mem_free_dbg(trn);

	for(i = 0; i < 8; i++) {
		for(col = 226; col < 239; col++) {
			if(i != 0 || col != 226) {
				*tbl++ = col;
			} else {
				*tbl++ = 0;
			}
		}
		*tbl++ = 0;
		*tbl++ = 0;
		*tbl++ = 0;
	}
	for(i = 0; i < 4; i++) {
		col = 224;
		for(j = 224; j < 239; j += 2) {
			*tbl++ = col;
			col += 2;
		}
	}
	for(i = 0; i < 6; i++) {
		for(col = 224; col < 239; col++) {
			*tbl++ = col;
		}
		*tbl++ = 0;
	}

	for(k = 0; k < 16; k++) {
		for(l = 0; l < 128; l++) {
			if(l > (k + 1) * 8) {
				lightradius[k][l] = 15;
			} else {
				lightradius[k][l] = l * 15.0 / ((k + 1) * 8.0) + 0.5;
			}
		}
	}

	for(i = 0; i < 8; i++) {
		for(j = 0; j < 8; j++) {
			for(k = 0; k < 16; k++) {
				for(l = 0; l < 16; l++) {
					fs = (BYTE)sqrt((8 * l - j) * (8 * l - j) + (8 * k - i) * (8 * k - i));
					if(fs < 0.0) {
						fa = -0.5;
					} else {
						fa = 0.5;
					}
					lightblock[i][j][k][l] = fs + fa;
				}
			}
		}
	}
}

#ifdef _DEBUG
void ToggleLighting_2()
{
	int i;

	if(lightflag) {
		memset(dLight, 0, sizeof(dLight));
	} else {
		memset(dLight, lightmax, sizeof(dLight));
		for(i = 0; i < MAX_PLRS; i++) {
			if(plr[i].plractive && plr[i].plrlevel == currlevel) {
				DoLighting(plr[i].WorldX, plr[i].WorldY, plr[i]._pLightRad, -1);
			}
		}
	}
}

void ToggleLighting()
{
	int i;

	lightflag ^= TRUE;

	if(lightflag) {
		memset(dLight, 0, sizeof(dLight));
	} else {
		memcpy(dLight, dPreLight, sizeof(dLight));
		for(i = 0; i < MAX_PLRS; i++) {
			if(plr[i].plractive && plr[i].plrlevel == currlevel) {
				DoLighting(plr[i].WorldX, plr[i].WorldY, plr[i]._pLightRad, -1);
			}
		}
	}
}
#endif

void InitLightMax()
{
	if(light4flag) {
		lightmax = 3;
	} else {
		lightmax = 15;
	}
}

void InitLighting()
{
	int i;

	numlights = 0;
	dolighting = 0;
	lightflag = 0;

	for(i = 0; i < MAXLIGHTS; i++) {
		lightactive[i] = i;
	}
}

int AddLight(int x, int y, int r)
{
	int lid;

	if(lightflag) {
		return -1;
	}

	lid = -1;

	if(numlights < MAXLIGHTS) {
		lid = lightactive[numlights++];
		LightList[lid]._lx = x;
		LightList[lid]._ly = y;
		LightList[lid]._lradius = r;
		LightList[lid]._xoff = 0;
		LightList[lid]._yoff = 0;
		LightList[lid]._ldel = 0;
		LightList[lid]._lunflag = 0;
		dolighting = 1;
	}

	return lid;
}

void AddUnLight(int i)
{
	if(lightflag || i == -1) {
		return;
	}

	LightList[i]._ldel = 1;
	dolighting = 1;
}

void ChangeLightRadius(int i, int r)
{
	if(lightflag || i == -1) {
		return;
	}

	LightList[i]._lunflag = 1;
	LightList[i]._lunx = LightList[i]._lx;
	LightList[i]._luny = LightList[i]._ly;
	LightList[i]._lunr = LightList[i]._lradius;
	LightList[i]._lradius = r;
	dolighting = 1;
}

void ChangeLightXY(int i, int x, int y)
{
	if(lightflag || i == -1) {
		return;
	}

	LightList[i]._lunflag = 1;
	LightList[i]._lunx = LightList[i]._lx;
	LightList[i]._luny = LightList[i]._ly;
	LightList[i]._lunr = LightList[i]._lradius;
	LightList[i]._lx = x;
	LightList[i]._ly = y;
	dolighting = 1;
}

void ChangeLightOff(int i, int x, int y)
{
	if(lightflag || i == -1) {
		return;
	}

	LightList[i]._lunflag = 1;
	LightList[i]._lunx = LightList[i]._lx;
	LightList[i]._luny = LightList[i]._ly;
	LightList[i]._lunr = LightList[i]._lradius;
	LightList[i]._xoff = x;
	LightList[i]._yoff = y;
	dolighting = 1;
}

void ChangeLight(int i, int x, int y, int r)
{
	if(lightflag || i == -1) {
		return;
	}

	LightList[i]._lunflag = 1;
	LightList[i]._lunx = LightList[i]._lx;
	LightList[i]._luny = LightList[i]._ly;
	LightList[i]._lunr = LightList[i]._lradius;
	LightList[i]._lx = x;
	LightList[i]._ly = y;
	LightList[i]._lradius = r;
	dolighting = 1;
}

void ProcessLightList()
{
	int i, j;
	unsigned char temp;

	if(lightflag) {
		return;
	}

	if(dolighting) {
		for(i = 0; i < numlights; i++) {
			j = lightactive[i];
			if(LightList[j]._ldel) {
				DoUnLight(LightList[j]._lx, LightList[j]._ly, LightList[j]._lradius);
			}
			if(LightList[j]._lunflag) {
				DoUnLight(LightList[j]._lunx, LightList[j]._luny, LightList[j]._lunr);
				LightList[j]._lunflag = 0;
			}
		}
		for(i = 0; i < numlights; i++) {
			j = lightactive[i];
			if(!LightList[j]._ldel) {
				DoLighting(LightList[j]._lx, LightList[j]._ly, LightList[j]._lradius, j);
			}
		}
		i = 0;
		while(i < numlights) {
			if(LightList[lightactive[i]]._ldel) {
				numlights--;
				temp = lightactive[numlights];
				lightactive[numlights] = lightactive[i];
				lightactive[i] = temp;
			} else {
				i++;
			}
		}
	}

	dolighting = 0;
}

void SavePreLighting()
{
	memcpy(dPreLight, dLight, sizeof(dPreLight));
}

void InitVision()
{
	int i;

	numvision = 0;
	dovision = 0;
	visionid = 1;

	for(i = 0; i < TransVal; i++) {
		TransList[i] = 0;
	}
}

int AddVision(int x, int y, int r, BOOL mine)
{
	int vid; /// BUGFIX: should be initialized with '-1'

	if(numvision < MAXVISION) {
		VisionList[numvision]._lx = x;
		VisionList[numvision]._ly = y;
		VisionList[numvision]._lradius = r;
		vid = visionid++;
		VisionList[numvision]._lid = vid;
		VisionList[numvision]._ldel = 0;
		VisionList[numvision]._lunflag = 0;
		VisionList[numvision]._lflags = mine != 0;
		numvision++;
		dovision = 1;
	}

	return vid;
}

void ChangeVisionRadius(int id, int r)
{
	int i;

	for(i = 0; i < numvision; i++) {
		if(VisionList[i]._lid == id) {
			VisionList[i]._lunflag = 1;
			VisionList[i]._lunx = VisionList[i]._lx;
			VisionList[i]._luny = VisionList[i]._ly;
			VisionList[i]._lunr = VisionList[i]._lradius;
			VisionList[i]._lradius = r;
			dovision = 1;
		}
	}
}

void ChangeVisionXY(int id, int x, int y)
{
	int i;

	for(i = 0; i < numvision; i++) {
		if(VisionList[i]._lid == id) {
			VisionList[i]._lunflag = 1;
			VisionList[i]._lunx = VisionList[i]._lx;
			VisionList[i]._luny = VisionList[i]._ly;
			VisionList[i]._lunr = VisionList[i]._lradius;
			VisionList[i]._lx = x;
			VisionList[i]._ly = y;
			dovision = 1;
		}
	}
}

void ProcessVisionList()
{
	int i;
	BOOL delflag;

	if(dovision) {
		for(i = 0; i < numvision; i++) {
			if(VisionList[i]._ldel) {
				DoUnVision(VisionList[i]._lx, VisionList[i]._ly, VisionList[i]._lradius);
			}
			if(VisionList[i]._lunflag) {
				DoUnVision(VisionList[i]._lunx, VisionList[i]._luny, VisionList[i]._lunr);
				VisionList[i]._lunflag = 0;
			}
		}
		for(i = 0; i < TransVal; i++) {
			TransList[i] = 0;
		}
		for(i = 0; i < numvision; i++) {
			if(!VisionList[i]._ldel) {
				DoVision(
					VisionList[i]._lx,
					VisionList[i]._ly,
					VisionList[i]._lradius,
					VisionList[i]._lflags & 1,
					VisionList[i]._lflags & 1);
			}
		}
		do {
			delflag = FALSE;
			for(i = 0; i < numvision; i++) {
				if(VisionList[i]._ldel) {
					numvision--;
					if(numvision > 0 && i != numvision) {
						VisionList[i] = VisionList[numvision];
					}
					delflag = TRUE;
				}
			}
		} while(delflag);
	}

	dovision = 0;
}

void lighting_color_cycling()
{
	int i, j, l;
	BYTE col;
	BYTE *tbl;

	l = light4flag ? 4 : 16;

	if(leveltype != DTYPE_HELL) {
		return;
	}

	tbl = pLightTbl;

	for(j = 0; j < l; j++) {
		tbl++;
		col = *tbl;
		for(i = 0; i < 30; i++) {
			tbl[0] = tbl[1];
			tbl++;
		}
		*tbl++ = col;
		tbl += 224;
	}
}