Fog of War ( AUM ) problem

if(vec_dist(boden.x, my.x) <= 350)
		{
			while(my.alpha >= 5)
			{my.alpha -= 3;wait(1);}
			ptr_remove(my);
		}

var i = 0;

var mouse_move[3];

var bodentiles[4000];
var bodentiles_start = 0;
while (i < 4001) 
{
   bodentiles[i] = 0;
   i += 1;
}

			// Boden_normal ( immer gesetzt, alles andre iss drüber )
			bodentiles[bodentiles_start] = ent_create("Ground.mdl",vector(temp.x,temp.y,2),object_boden);
			bodentiles_start += 1;

var bodentiles[4000];

while (i < 4001) 
{
   bodentiles[i] = 0;
   i += 1;
}

var mouse_move[3];

var bodentiles[4000];
var bodentiles_start = 0;
i=0;                       //<<<<<ONLY CHANGES
while (i < 4000)           //<<<<<ONLY CHANGES
{
   bodentiles[i] = 0;
   i += 1;
}

var mouse_move[3];
var bodentiles[4000];
var bodentiles_start = 0;
var xx;  for(xx=0; xx<4000; xx++)  bodentiles[xx] = 0;

function object_fow()
{
	// Aktionen für den Kriegsnebel
	my.tilt = 90;
	my.alpha = 100;
	set(my,TRANSLUCENT);
	set(my,PASSABLE);
	while (1)
	{
		i=0;
		if(i < 4000){i += 1;}else if(i == 4000 || i > 4000){i = 0;}
		if(vec_dist(bodentiles[i].x, my.x) <= 350)
		{
			while(my.alpha >= 5)
			{my.alpha -= 3;wait(1);}
			ptr_remove(my);
		}
		wait(5);
	}
}

// bad sample only

var i = 0;

ENTITY* bodentiles[4000]; // check syntax (Lite-C)
ENTITY* e1 = NULL;
VECTOR* fow_v1 = {x=0;y=0;z=0;}  // update this position with player / camera
function fowf_clear() {
	for(i=0; i<4000; i++) {
		if (bodentiles[i] != NULL) {
			e1 = bodentiles[i];
			ptr_remove(e1);
			bodentiles[i] = NULL;
		}
	}
}
function fowf_create() {
	for (i=0; i<4000; i++) {
		if (bodentiles[i] == NULL) {
			e1 = ent_create(<s?>, v?, f?);
			bodentiles[i] = e1;
		} else {
			e1 = bodentiles[i];
		}
		set(e1, TRANSLUCENT);
		set(e1, PASSABLE);
		e1.tilt = 90;
		e1.alpha = 100;
	}
}
function fowf_fadeOut(ENTITY* _e) {
	if (_e == NULL) { return(0); }
	_e.skill22 = 222;
	while(1) {
		if (_e == NULL) { break; }
		if (_e.alpha < 5) { break; }
		_e.alpha -=7 * time_step;
		wait(1);
	}
	if (_e != NULL) { ptr_remove(_e); }
}

function fowf_go() {
	var n1; n1=0;
	while(1) {
		n1 %= 4000;
		e1 = bodentiles[n1];
		n1 += 1;
		if (e1 != NULL) {
			if (vec_dist(e1.x, fow_v1) <= 350) {
				if (e1.skill22 != 222) {
					fowf_fadeOut(e1);
				}
			}
		}
		wait(1);
	}
}