/*
############################################################
##
## 2008 (c) PiSolution GmbH
##
## File    : $Id: pimp.js,v 1.4 2012/02/03 15:14:34 tom Exp $
## Version : $Revision: 1.4 $
##
## Purpose : Projekt - pimp your landscape
##
## Created : 08/12/01
## Author  : frank pietzsch
##
## Update  : $Date: 2012/02/03 15:14:34 $
## Author  : $Author: tom $
## 
## Remarks : pimp - js file
##
## Log     : $Log: pimp.js,v $
## Log     : Revision 1.4  2012/02/03 15:14:34  tom
## Log     : layer selection modified
## Log     :
## Log     : Revision 1.3  2011/09/29 14:29:12  tom
## Log     : add stackability for moveable divs
## Log     :
## Log     : Revision 1.2  2011/07/19 12:49:20  frank
## Log     : new revision
## Log     :
##
############################################################
*/

var xCoord=0;
var yCoord=0;
var sel = 0;
var px = 0;
var py = 0;
var difx = 0;
var dify = 0;
var sel_tool;
var mouse_over_cell = 0;
var cellinfo;
var isFocus = false;
var seed_x = 0;
var seed_y = 0;
var seed = -1;
var playTime = 1;
var gameStarted = 0;
var	playTimeAlert = 0;
var isGame = 0;
var undefined_field_type = -9999;
var trace = 0;
var load_complete = 0;


function capture(id)
{
   	sel = id;
   	px = document.getElementById(id).style.left.replace(/px/,'');
	py = document.getElementById(id).style.top.replace(/px/,'');
	
	foregroundDiv(sel);
}
function leave(id)
{
	if(sel != id)
		return;
	sel = 0;
	difx = 0;
	dify = 0;
	px = 0;
	py = 0;
}
function getCoords(evt) 
{
	if(! evt)
		evt = window.event;
	var xOffset = (document.all)? document.body.scrollLeft : window.pageXOffset;
	var yOffset = (document.all)? document.body.scrollTop : window.pageYOffset;

	xCoord = evt.clientX + xOffset;
	yCoord = evt.clientY + yOffset;
	if(trace)
		document.forms[0].mtrace.value += xCoord+":"+yCoord+",";
	if(! sel)
		return;
	move_selected();
}
document.onmousemove = getCoords;
document.onmouseup = leaveMarker;
function move_selected()
{
	difx = (difx)? difx : xCoord - px;
	dify = (dify)? dify : yCoord - py;
	var pleft = xCoord - difx;
	var ptop = yCoord - dify;
	if (document.getElementById) 
	{
		document.getElementById(sel).style.left  = pleft + "px";
		document.getElementById(sel).style.top = ptop + "px";
	}
	document.getElementById(sel+"_x").value = pleft;
	document.getElementById(sel+"_y").value = ptop;
}
function sandglass(visible)
{
    document.getElementById('sg').style.left = xCoord + ((document.all)? 10:12);
	document.getElementById('sg').style.top = yCoord + ((document.all)? 0:1);
	document.getElementById('sg').style.visibility = ((visible)? "visible" : "hidden");
}
function switch_view(i)
{
	if(document.simulation.view.value == i)
		return;
//	if((moveLog.length || mvc) && ! confirm("stop current run?"))
	if((moveLog.length || mvc) && ! confirm("\nSimulation abbrechen?\n"))
		return;
	document.simulation.action.value = 'init_map';
	document.simulation.view.value = i;
	document.simulation.initial_selection.value = 1;
	document.simulation.submit();
}
var sel_idx = -1;
function save_idx(id)
{
	sel_idx = document.getElementById(id).selectedIndex;
}
function refresh_selection(id)
{
//	if((moveLog.length || mvc) && ! confirm("stop current run?"))
	if((moveLog.length || mvc) && ! confirm("\nSimulation abbrechen?\n"))
	{
		if(sel_idx != -1)
			document.getElementById(id).selectedIndex = sel_idx;
		sel_idx = -1;
		return;
	}
	document.simulation.action.value = 'init_map';	
	refresh();
}

function save_new_type_def()
{
	document.simulation.action.value = 'save_new_type_def';
	document.simulation.submit();
}
function save_new_type_values()
{
	document.simulation.action.value = 'save_new_type_values';
	document.simulation.submit();
}
function watch_input_color(id)
{
	var hxcl = document.getElementById("ip_"+id).value;
	for(i=0;i<hxcl.length;i++)
	{
		if(! hxcl.charAt(i).match(/([0-9]|[a-f])/i) || i > 5)
			document.getElementById("ip_"+id).value = hxcl.substring(0,i);
	}
	var cl = document.getElementById("ip_"+id).value;
	while(cl.length < 6)
		cl += '0';	
	document.getElementById("td_"+id).bgColor = cl;
}
function toggle_color()
{
	if(! document.simulation.precol.checked)
		document.simulation.action.value = 'color_off';
	refresh();
}
function edit_type_def(id)
{
	document.simulation.action.value = 'edit_type_def';
	document.simulation.action_id.value = id;
	refresh();
}
function update_type_def(id)
{
	document.simulation.action.value = 'update_type_def';
	document.simulation.action_id.value = id;
	refresh();
}
function watch_range(id)
{
	var max_val = (id.match(/val/))? 100 : 200; 
	var inp = document.getElementById(id);
	inp.value = inp.value.replace(/\D/g,'');

	while(inp.value > max_val)
		inp.value = inp.value.substr(0,inp.value.length - 1);
}
function save_as_new_type_values()
{
//	var p_name = prompt("save as:","");
	var p_name = prompt("\nspeichern als:\n","");
	if(p_name.match(/\S+/))
	{
		document.simulation.param_set_name.value = p_name;
		document.simulation.action.value = 'save_as_new_type_values';
		refresh();
	}	
}
function update_type_values()
{
	document.simulation.action.value = 'update_type_values';
	refresh();
}
function delete_type_values(id)
{
//	if(confirm("do you want to delete this value definition?"))
	if(confirm("\nLNF Set löschen?\n"))
	{
		document.simulation.action.value = 'delete_type_values';
		document.simulation.action_id.value = id;
		refresh();
	}
}
function save_time_axis()
{
	var p_name = prompt("\nZeitachse:\n","");
	if(p_name.match(/\S+/))
	{
		document.simulation.param_set_name.value = p_name;
		document.simulation.action.value = 'save_time_axis_type_values';
		refresh();
	}	
}
function delete_time_axis(id)
{
//	if(confirm("do you want to delete this value time axis?"))
	if(confirm("\nZeitachse Set löschen?\n"))
	{
		document.simulation.action.value = 'delete_time_axis_type_values';
		document.simulation.action_id.value = id;
		refresh();
	}
}
function hide_div(id)
{
	document.getElementById(id).style.visibility = 'hidden';
	if(id == 'div_vtb')
		document.getElementById(id+"_visible").value = 0;
}
function unhide_div(id)
{
	document.getElementById(id).style.visibility = 'visible';
}
function toggle_div(id)
{
	if(document.getElementById(id).style.visibility == "visible")
	{
		document.getElementById(id).style.visibility = "hidden";
		document.getElementById(id+"_visible").value = 0;
		return;
	}
	document.getElementById(id+"_visible").value = 1;
	document.getElementById(id).style.visibility = "visible";
	foregroundDiv(id);
}
function show_div(id,x_offset,y_offset)
{
	document.getElementById(id).style.left = xCoord + x_offset;
	document.getElementById(id).style.top = yCoord + y_offset;
	document.getElementById(id).style.visibility = "visible";
	foregroundDiv(id);
}
//------------------------------------------------------------------------------
var mLcnt = 0;
var moveLog = new Array();
var mvc;
var hSec = 0;
var homogen = 1;
var conditionFault = 0;
var undefSec = 0;

function getAttCat(att)
{
	var cat = "";
	for(var i=1,bit=16;i<11;i++,bit*=2)
	{
		if(att&bit)
			cat += (cat)? "|"+i : " [cat"+i;
	}
	cat += (cat)? "]" : ((att)? " [fixed]" : "");
	return cat;
}



var Xy4id = new Array();
function Id2Xy(id)
{
	Xy4id[0] = id % cx;
	Xy4id[1] = Math.floor(id / cx);
}

function Xy2Id(x,y)
{
	return(y * cx + x);
}


function getSectorTableIE(sec_id,sec_size,cx)
{
	var tb = new Array("<table border='0' cellpadding='0' cellspacing='0'><tr>");
//	var row = Math.floor(sec_id * sec_size / cx);
//	var col = sec_id % (cx / sec_size);
//	var start_id = sec_size * cx * row + (sec_size * col);

	var row = Math.floor(sec_id * sec_size / (cx - 2*margin));
	var col = sec_id % ((cx - 2*margin) / sec_size);
	var start_id = sec_size * cx * row + (sec_size * col);
	Id2Xy(start_id);
	start_id = Xy2Id(Xy4id[0] + margin, Xy4id[1] + margin);
	
	var cnt = sec_size * sec_size;
	var j = 0;
	var n = 1;
	var fid = 0;
	var tcl = 0;
	var sc = 0;
	var undef = 0;
	conditionFault = 0;
	homogen = 1;
	var title;
	var att;
	for(i=1;i<=cnt;i++)
	{
		fid = j + start_id;
		if(f[fid] == undefined_field_type)
		{
			homogen = 0;
			undef = 1;
		}
			
		att = getAttributes(fid,0);
		title = tpd[f[fid]];
		if(att & 1)
			title += (att > 16)? ' & \nFluß\n' : ' & \nGewässer\n';
		if(att & 8)
		{
			title = (f[fid] == 1)? '\nGewässer\n' : title + ' & \nGewässer\n';
			if(f[fid] == 1)
				homogen = 0;
		}
		if(att & 2)
			title += ' & \nStraße/Bahn\n';
		title += getAttCat(att);
		
		tb[n++] = "<td id='"+fid+"'  title='"+title+"' class='q' onMouseDown='Marker(1,"+fid+")' onMouseUp='Marker(2,"+fid+")' onMouseOver='Marker(3,"+fid+")' onMouseOut='clearInfo(0)' nowrap></td>";
		j++;
		if(i % sec_size == 0 && i < cnt)
		{
			start_id += cx;
			j=0;
			tb[n++] = "</tr><tr>";
		}
		if(i == 1)
		{
			tcl = f[fid];
			sc = SCFi[fid];
		}
		else 
		{
			if(tcl != f[fid])
				homogen = 0;
			if(sc != SCFi[fid])
				conditionFault = 1;
		}
	}
	tb[n] = "</tr></table>";
	hSec += homogen;
	undefSec += undef;
	return tb.join("");
}

function getSectorMapIE(scnt,ccnt,sec_size,cx)
{
	var k;
	var l = 1;
	var clickAction;
	var secTable;
	var att;
	var table = new Array("<table border='0' cellpadding='0' cellspacing='0' class='map_table' id='map_table'><tr>");
	for(k=1;k<=scnt;k++)
	{
		att = getAttributes(k-1,1);
		secTable = getSectorTableIE(k-1,sec_size,cx);
		clickAction = (homogen)? " onClick='showMenu("+(k-1)+",1,"+att+")'" : " onClick='showMenu("+(k-1)+",2,"+att+")'";
		clickAction = (conditionFault && homogen)? " onClick='conflict()'" : clickAction;
		table[l++] = "<td"+clickAction+">";
		table[l++] = secTable;
		table[l++] = "</td>";
		if(k % ccnt == 0 && k < scnt)
		{
			table[l++] = "</tr><tr>";
		}
	}
	table[l] = "</tr></table>";
	document.write(table.join(""));
	if(!isGame)
		document.write((scnt - undefSec)+" \nSektoren\n ["+hSec+" \nhomogen\n]");
}

function getSectorTable(sec_id,sec_size,cx)
{
	var tb = "<table border='0' cellpadding='0' cellspacing='0'><tr>";
//	var row = Math.floor(sec_id * sec_size / cx);
//	var col = sec_id % (cx / sec_size);
// 	var start_id = sec_size * cx * row + (sec_size * col);

	var row = Math.floor(sec_id * sec_size / (cx - 2*margin));
	var col = sec_id % ((cx - 2*margin) / sec_size);
	var start_id = sec_size * cx * row + (sec_size * col);
	Id2Xy(start_id);
	start_id = Xy2Id(Xy4id[0] + margin, Xy4id[1] + margin);

	var cnt = sec_size * sec_size;
	var j = 0;
	var fid = 0;
	var tcl = 0;
	var sc = 0;
	conditionFault = 0;
	homogen = 1;
	var undef = 0;
	var title;
	var att;
	for(i=1;i<=cnt;i++)
	{
		fid = j + start_id;
		if(f[fid] == undefined_field_type)
		{
			homogen = 0;
			undef = 1;
		}
		
		att = getAttributes(fid,0);
		title = tpd[f[fid]];
		if(att & 1)
			title += (att > 16)? ' & \nFluß\n' : ' & \nGewässer\n';
		if(att & 8)
		{
			title = (f[fid] == 1)? '\nGewässer\n' : title + ' & \nGewässer\n';
			if(f[fid] == 1)
				homogen = 0;
		}
		if(att & 2)
			title += ' & \nStraße/Bahn\n';
		title += getAttCat(att);

		tb += "<td id='"+fid+"' class='q' title='"+title+"' onMouseDown='Marker(1,"+fid+")' onMouseUp='Marker(2,"+fid+")' onMouseOver='Marker(3,"+fid+")' onMouseOut='clearInfo(0)' nowrap></td>";
		j++;
		if(i % sec_size == 0 && i < cnt)
		{
			start_id += cx;
			j=0;
			tb += "</tr><tr>";
		}
		if(i == 1)
		{
			tcl = f[fid];
			sc = SCFi[fid];
		}
		else 
		{
			if(tcl != f[fid])
				homogen = 0;
			if(sc != SCFi[fid])
				conditionFault = 1;
		}
	}
	tb += "</tr></table>";
	hSec += homogen;
	undefSec += undef;
	return tb;
}

function getSectorMap(scnt,ccnt,sec_size,cx)
{
	var k;
	var clickAction;
	var secTable;
	var att;
	var title;
	var table = "<table border='0' cellpadding='0' cellspacing='0' class='map_table' id='map_table'><tr>";
	for(k=1;k<=scnt;k++)
	{
		att = getAttributes(k-1,1);
		secTable = getSectorTable(k-1,sec_size,cx);
		clickAction = (homogen)? " onClick='showMenu("+(k-1)+",1,"+att+")'" : " onClick='showMenu("+(k-1)+",2,"+att+")'";
		clickAction = (conditionFault && homogen)? " onClick='conflict()'" : clickAction;
		table += "<td"+clickAction+">";
		table += secTable;
		table += "</td>";
		if(k % ccnt == 0 && k < scnt)
		{
			table += "</tr><tr>";
		}
	}
	table += "</tr></table>";
	document.write(table);
	if(!isGame)
		document.write((scnt - undefSec)+" \nSektoren\n ["+hSec+" \nhomogen\n]");
	Xy2Id();
}

function getMapIE(cnt,cx)
{
	var i;
	var j=1;
	var att;
	var title;
	var defined_fields = 0;
	table = new Array("<table cellpadding='0' cellspacing='0' class='map_table' id='map_table'>");
	for(i=0;i < cnt;i++)
	{
		if(isMargin(i) == 0 && (i % cx) - margin == 0)
			table[j++] = "<tr>";

		att = getAttributes(i,0);
		title = tpd[f[i]];
		if(att & 1)
			title += (att > 16)? ' & \nFluß\n' : ' & \nGewässer\n';
		if(att & 8)
			title = (f[i] == 1)? '\nGewässer\n' : title + ' & \nGewässer\n';
		if(att & 2)
			title += ' & \nStraße/Bahn\n';
		title += getAttCat(att);
		if(isMargin(i) == 0)
		{
			if(f[i] != undefined_field_type)
				defined_fields++;
			table[j++] = "<td class='q' id='"+i+"' title='"+title+"' onClick='showMenu("+i+",0,"+att+")' onMouseDown='Marker(1,"+i+")' onMouseUp='Marker(2,"+i+")' onMouseOver='Marker(3,"+i+")' onMouseOut='clearInfo(0)' nowrap></td>";
		}
		if(		(isMargin(i) == 0)
			&&	((i + margin + 1) % cx == 0) 
		)
			table[j++] = "</tr>";

	}
	table[j] = "</table>";
	document.write(table.join(""));
//	alert(typeof(table));
delete(table);
//	alert(typeof(table));
	if(!isGame)
		document.write(defined_fields+" \nFelder\n");
}

function getMap(cnt,cx)
{
	var i;
	var att;
	var title;
	var defined_fields = 0;
	table = "<table  cellpadding='0' cellspacing='0' class='map_table' id='map_table'>";
	for(i=0;i < cnt;i++)
	{
		if(isMargin(i) == 0 && (i % cx) - margin == 0)
			table += "<tr>";

		att = getAttributes(i,0);
		title = tpd[f[i]];
		if(att & 1)
			title += (att > 16)? ' & \nFluß\n' : ' & \nGewässer\n';
		if(att & 8)
			title = (f[i] == 1)? '\nGewässer\n' : title + ' & \nGewässer\n';
		if(att & 2)
			title += ' & \nStraße/Bahn\n';
		title += getAttCat(att);
//title += " ("+i+")";		
		if(isMargin(i) == 0)
		{
			if(f[i] != undefined_field_type)
				defined_fields++;
			table += "<td class='q' id='"+i+"' title='"+title+"' onClick='showMenu("+i+",0,"+att+")' onMouseDown='Marker(1,"+i+")' onMouseUp='Marker(2,"+i+")' onMouseOver='Marker(3,"+i+")' onMouseOut='clearInfo(0)' nowrap></td>";
		}
		if(		(isMargin(i) == 0)
			&&	((i + margin + 1) % cx == 0) 
		)
			table += "</tr>";
	}
	table += "</table>";
	document.write(table);
//	alert(typeof(table));
delete(table);
//	alert(typeof(table));
	if(!isGame)
		document.write(defined_fields+" \nFelder\n");
}
function isMargin(id)
{
	var x = id % cx;
	var y = Math.floor(id / cx);

	if( 	x < margin 
		||	x + margin >= cx
		||	y < margin 
		||	y + margin >= cy
	)
		return 1;
	return 0;
}
//------------------------------------------------------------------------------
function completeArray()
{
	var i;
	var clidx;
	for(i=0;i<f.length;i++)
	{
		f[i] = (f[i])? f[i] : clidx;
		clidx = f[i];
		
		a[i] |= 0;
	}
}

function getAttributes(id,is_sector)
{
	var att = 0;
	if(is_sector)
	{
		var SecFields = getSectorFields(id);
		for(var i=0;i<SecFields.length;i++)
			att |= a[SecFields[i]];
		return att;
	}
	return a[id];
}

//==============================================================================
function changeType()
{
	gameStarted = 1;
	var form = document.simulation;
	var id = form.selected_id.value;
	var val = form.menu_list[form.menu_list.selectedIndex].value;
	if(val && id > -1)
	{
//		document.getElementById(id).bgColor = "#" + clr[val];
		document.getElementById(id).style.backgroundColor = "#" + clr[val];
		document.getElementById(id).title = tpd[val];
		moveLog[mLcnt++]= id+"x"+val;
		f[id] = val;
		form.move_count.value++;
		document.getElementById('step_panel').style.visibility = 'hidden';
	}
	if(id == -1)
	{
		form.action.value = "area_fill";
		form.selected_id.value = val;
		saveChanges();
	}
	if(id == -2)
	{
		form.action.value = "flood_fill";
		form.selected_id.value = val;
		saveChanges();
	}
	if(id == -3)
	{
		form.action.value = "type_fill";
		form.selected_id.value = val;
		saveChanges();
	}
	isFocus = true;
	hideMenu();
}

function changeSectorType()
{
    hideMenu();
	sandglass(1);
	window.setTimeout("__changeSectorType()",0);
}
function __changeSectorType()
{
	gameStarted = 1;
	var form = document.simulation;
	var sec_id = form.selected_id.value;
	var val = form.menu_list[form.menu_list.selectedIndex].value;
	if(val && sec_id > -1)
	{
		var SecFields = getSectorFields(sec_id);
		for(var i=0;i<SecFields.length;i++)
		{
//			document.getElementById(SecFields[i]).bgColor = "#" + clr[val];
			document.getElementById(SecFields[i]).style.backgroundColor = "#" + clr[val];
			document.getElementById(SecFields[i]).title = tpd[val];
			moveLog[mLcnt++]=[SecFields[i]]+"x"+ val;
			f[SecFields[i]] = val;
			form.move_count.value++;
			document.getElementById('step_panel').style.visibility = 'hidden';
		}
	}
	else if(sec_id == -1)
	{
		form.action.value = "area_fill";
		form.selected_id.value = val;
		saveChanges();
	}
	else if(sec_id == -2)
	{
		form.action.value = "flood_fill";
		form.selected_id.value = val;
		saveChanges();
	}
	if(sec_id == -3)
	{
		form.action.value = "type_fill";
		form.selected_id.value = val;
		saveChanges();
	}
	isFocus = true;
	sandglass(0);
}

function getSectorFields(sec_id)
{
//	var row = Math.floor(sec_id * sec_size / cx);
//	var col = sec_id % (cx / sec_size);
//	var start_id = sec_size * cx * row + (sec_size * col);

	var row = Math.floor(sec_id * sec_size / (cx - 2*margin));
	var col = sec_id % ((cx - 2*margin) / sec_size);
	var start_id = sec_size * cx * row + (sec_size * col);
	Id2Xy(start_id);
	start_id = Xy2Id(Xy4id[0] + margin, Xy4id[1] + margin);
	
	var cnt = sec_size * sec_size;
	var j = 0;
	var fid = 0;
	var SecFields = new Array();
	
	for(i=1;i<=cnt;i++)
	{
		SecFields[i-1] = j + start_id;
		j++;
		if(i % sec_size == 0 && i < cnt)
		{
			start_id += cx;
			j=0;
		}
	}
	return SecFields;
}

function getSectorContextMenu(sec_id)
{
	var form = document.simulation;
	var i,j;
	var SecFields = getSectorFields(sec_id);
	var id = SecFields[0];
	var type = getTypeById(id);
	form.menu_list.length = 0;
	var LockTypes = getLockTypes(type);
	for(i=0;i<SecFields.length;i++)
	{
		if(a[SecFields[i]] & LockAttribute[type])
		{
			return 0;
		}
		for(j=0;j<LockTypes.length;j++)
		{
			if(checkNeighborFields(SecFields[i],LockTypes[j]))
			{
				return 0;
			}
		}
	}
	var TargetTypes = getTargetTypes(type);
	if(SCFi[id])
		TargetTypes = getJointSCTargetTypes(SCFi[id]);
	if(TargetTypes.length == 0)
		return 0;
	for(i=0;i<TargetTypes.length;i++)
	{
		form.menu_list.options[i] =  new Option();
		form.menu_list.options[i].text = tpn[TargetTypes[i]];
		form.menu_list.options[i].value = TargetTypes[i];
		form.menu_list.options[i].className = "cc"+TargetTypes[i];
	}
}

function getContextMenu(id)
{
	var form = document.simulation;
	var i;
	var type = getTypeById(id);
	var TargetTypes;
	form.menu_list.length = 0;
	var LockTypes = getLockTypes(type);
	if(a[id] & LockAttribute[type])
		return 0;

	for(i=0;i<LockTypes.length;i++)
	{
		if(checkNeighborFields(id,LockTypes[i]))
		{
			return 0;
		}
	}
	if(SCFi[id])
		TargetTypes = getJointSCTargetTypes(SCFi[id]);
	else
		TargetTypes = getTargetTypes(type);
		
	if(TargetTypes.length == 0)
		return 0;

	for(i=0;i<TargetTypes.length;i++)
	{
		form.menu_list.options[i] =  new Option();
		form.menu_list.options[i].text = tpn[TargetTypes[i]];
		form.menu_list.options[i].value = TargetTypes[i];
		form.menu_list.options[i].className = "cc"+TargetTypes[i];
	}
	return 1;
}

function getJointSCTargetTypes(list)
{
	var SCTargetTypes = new Array();
	var SCTyArray = list.split(",");
	var idx = 0;
	if(SCTy[SCTyArray[0]])
	{
		var first_arr = SCTy[SCTyArray[0]].split(",");
		for(var i=0;i<first_arr.length;i++)
		{
			var ftype = first_arr[i];
			var joint = true;
			for(var j=1;j<SCTyArray.length;j++)
			{
				joint = false;
				var next_arr = SCTy[SCTyArray[j]].split(",");
				for(var k=0;k<next_arr.length;k++)
				{
					if(next_arr[k] == ftype)
					{
						joint = true;
						break;		
					}
				}
				if(! joint)
					break;
			}
			if(joint)
				SCTargetTypes[idx++] = 	ftype;
		}
	}
	return SCTargetTypes;
}

function checkNeighborFields(id,type)
{
	var row = Math.floor(id / cx);
	var col = id % cx;
	var n,no,o,so,s,sw,w,nw;
	
	n = (row)? id - cx : -1;
	o = (col < cx - 1)? id + 1 : -1;
	s = (row < cy - 1)? id + cx : -1;
	w = (col)? id - 1 : -1;
	so = (s > 0 && o > 0)? s + 1 : -1;
	no = (n > 0 && o > 0)? n + 1 : -1;
	sw = (w >= 0 && s > 0)? s - 1 : -1;
	nw = (w > 0 && n > 0)? n - 1 : -1;
	
	NeighborFields = new Array(n,no,o,so,s,sw,w,nw);
	for(var i = 0;i<NeighborFields.length;i++)
	{
		if(NeighborFields[i] != -1)
		{
			if(f[NeighborFields[i]] == type)
			{
				delete(NeighborFields);
				return true;
			}
		}
	}
	delete(NeighborFields);
	return false;
}
//------------------------------------------------------------------------------

function showMenu(id,is_sector,att)
{
	var form = document.simulation;
	
	// sel tool : section and sector not homogen
	if(is_sector == 2 && sel_tool == 0)
		return;
	if(is_sector)	
	{
		var sec_id = id;
		var SecFields = getSectorFields(id);
		id = SecFields[0];
	}
	// water type 
	if(getTypeById(id) == 1 && ! scanmode)
		return;
		
	// playtime is up in game mode  
	if(playTime < 1 && sel_tool != 7)
	{
		if(! playTimeAlert)
		{
//			alert("time is up!");
			alert("\nZeit abgelaufen!\n");
			playTimeAlert = 1;
			saveChanges();
		}
		return;
	}
	
	// sel tool : flood fill
	if(sel_tool == 2)
	{
		flood_fill();
		return;
	}
	// sel tool : type fill
	if(sel_tool == 3)
	{
        type_fill();
		return;
	}
	//
	if(sel_tool)
	    return;

	var left = xCoord - 10;
	var top = yCoord - 10;
	if(is_sector)
	{
		if(getSectorContextMenu(sec_id) == 0)
			return;
		form.selected_id.value = sec_id;
	}
	else
	{
		if(getContextMenu(id) == 0)
			return;
		form.selected_id.value = id;
	}
	document.getElementById("cm").style.left = left;
	document.getElementById("cm").style.top = top;
	document.getElementById("cm").style.visibility = "visible";
	form.menu_list.focus();	
}


function setMenuFocus()
{
	isFocus = true;
}

function hideMenu()
{
	if(! load_complete)
		return;
	if(isFocus)
		document.getElementById("cm").style.visibility = "hidden";
	isFocus = false;
	set_leaved();
}

var rerun = false;
function saveChanges()
{
	if(rerun || !load_complete)
		return;
	rerun = true;

	var i;
	var lsplit;
	var form = document.simulation;
	form.mxy.value = xCoord+"|"+yCoord+"|"+mouse_over_cell;
	for(i=0;i<moveLog.length;i++)
	{
		if(moveLog[i])
		{
			lsplit = moveLog[i].split("x");
			form.moves.value += lsplit[0] +"|"+	lsplit[1]+ "&";
		}
	}
	form.submit();
}

function refresh()
{
	var form = document.simulation;
	if(moveLog.length)
		return saveChanges();

	form.submit();
}

function getTypeById(id)
{
	return f[id];
}

function getTargetTypes(src_type)
{
	var TargetTypes = new Array();
	if(TypeRules[src_type].length)
	{
		TargetTypes = TypeRules[src_type].split(",");
	}
	return TargetTypes;
}

function getLockTypes(src_type)
{
	var LockTypes = new Array();
	if(LockRules[src_type].length)
	{
		LockTypes = LockRules[src_type].split(",");
	}
	return LockTypes;
}

//==============================================================================
function conflict()
{
	clearInfo(1);
	document.getElementById('conflictbox').style.left = xCoord-10;
	document.getElementById('conflictbox').style.top = yCoord-10;
	document.getElementById('conflictbox').style.visibility = 'visible';
}
function hide_conflict()
{
	document.getElementById('conflictbox').style.visibility = 'hidden';
}
function info(id)
{
	if(! load_complete)
		return;
		
	if(isGame)
	{
		infoIcon(id);
		return;
	}
	for(var i=0;i<DefSC.length;i++)
	{
		document.getElementById('sci_'+DefSC[i]).value = (SC_val[DefSC[i]][id])? SC_val[DefSC[i]][id] :  "---";
	}
	document.getElementById('infobox').style.left = xCoord-10;
	document.getElementById('infobox').style.top = yCoord-10;
	document.getElementById('infobox').style.visibility = 'visible';
	document.getElementById('shadow').style.left = xCoord-5;
	document.getElementById('shadow').style.top = yCoord-5;
	document.getElementById('shadow').style.visibility = 'visible';
}
function infoIcon(id)
{
	var ident = "lut_ico_"+f[id];
	document.getElementById("info_icon").src = document.getElementById(ident).src;
	document.getElementById('iconbox').style.left = xCoord-10;
	document.getElementById('iconbox').style.top = yCoord-10;
	document.getElementById('iconbox').style.visibility = 'visible';	
}
function clearInfoIcon(hide)
{
	window.clearTimeout(cellinfo);
	if(hide)
	{
		document.getElementById('iconbox').style.visibility = 'hidden';
	}	
}
function clearInfo(hide)
{	
	if(! load_complete)
		return;
		
	if(isGame)
	{
		clearInfoIcon(hide);
		return;
	}
	window.clearTimeout(cellinfo);
	if(hide)
	{
		document.getElementById('infobox').style.visibility = 'hidden';
		document.getElementById('shadow').style.visibility = 'hidden';
	}
}

var active = false;

function Marker(mode,id)
{
	if(! load_complete)
		return;
		
	var form = document.simulation;

	if(mode == 3)
	{
		mouse_over_cell = id;
		if(isSimulationRun)
		{
			if(isGame)
				document.getElementById('iconbox').style.visibility = 'hidden';
			document.getElementById('infobox').style.visibility = 'hidden';
			document.getElementById('shadow').style.visibility = 'hidden';
			if(! active)
				cellinfo = window.setTimeout("info("+id+")",2000);
			else
				window.clearTimeout(cellinfo);
		}
	}
	
	if(sel_tool != 1 && sel_tool < 4)
		return;
	
	// playtime is up in game mode 	
	if(playTime < 1 && sel_tool != 7)
	{
		if(mode == 2 && id != -1)
		{
			if(! playTimeAlert)
			{
//				alert("time is up!");
				alert("\nZeit abgelaufen!\n");
				playTimeAlert = 1;
				return saveChanges();
			}
			return;
		}
		return;
	}
		
	var cl;
	switch(sel_tool)
	{
		case    1   :   cl = "#111111";
		                break;
        case    4   :   cl = "#C80000";
		                break;
        case    7   :   cl = "#FFFFFF";
		                break;
		case	8	:	cl = "#FFFF00";
						break;
		default     :   cl = "#0066FF";
		                break;
	}
	switch(mode)
	{
		// mouse down
		case 1	:	if(seed == id)
					{
						document.getElementById("map_table").className = "grd_bg";
						document.getElementById("grd_layer").style.left = xCoord - seed_x + "px";
						document.getElementById("grd_layer").style.top = yCoord - seed_y + "px";
						document.getElementById("grd_layer").style.visibility = 'visible';
						capture("grd_layer");
						form.grd_layer_start_x.value = xCoord - seed_x;
						form.grd_layer_start_y.value = yCoord - seed_y;
						return;
					}
					active = true;
					window.clearTimeout(cellinfo);
					//document.getElementById(id).bgColor = cl;
					document.getElementById(id).style.backgroundColor = cl;
					form.mark_lines.value += id+",";
					trace = 1;
					document.forms[0].mtrace.value += xCoord+":"+yCoord+",";
					break;
		// mouse up
		case 2	: 	if(! active || ! form.mark_lines.value)
					{
						active = false;
						break;
					}
					active = false;
					form.mark_lines.value += ':';
					if(sel_tool == 1)
						markerMenu(-1);
					if(sel_tool == 4)
						street_def();
					if(sel_tool == 5)
						river_def();
					if(sel_tool == 6)
						water_def();
					if(sel_tool == 7)
						area_focus();
					if(sel_tool == 8)
						gradient_def();
					trace = 0;
					break;
		// mouse over
		case 3	:	if(active)
					{
						//document.getElementById(id).bgColor = cl;
						document.getElementById(id).style.backgroundColor = cl;
						form.mark_lines.value += id+",";
						
					}
					break;						
	}
}

function leaveMarker()
{
	var form = document.simulation;
	trace = 0;
	leave(sel);
	if(! active)
		return;
	active = false;
	switch(sel_tool)
	{
		case	4	:	if(form.mark_lines.value != '')
							street_def();
						break;
		case	5	:	if(form.mark_lines.value != '')
							river_def();
						break;
		case	6	:	if(form.mark_lines.value != '')
							water_def();
						break;
        case	7	:	if(form.mark_lines.value != '')
							area_focus();
						break;
		default		: 	break;		
	}
}

function markerMenu(id)
{
	var form = document.simulation;
	form.selected_id.value = id;
	form.menu_list.length = 0;
	var TargetTypes = getTargetTypes(0);
 
	for(i=0;i<TargetTypes.length;i++)
	{
		form.menu_list.options[i] =  new Option();
		form.menu_list.options[i].text = tpn[TargetTypes[i]];
		form.menu_list.options[i].value = TargetTypes[i];
		form.menu_list.options[i].className = "cc"+TargetTypes[i];
	} 
	document.getElementById('cm').style.left = xCoord-10;;
	document.getElementById('cm').style.top = yCoord-10;
	
	// delay for msie
	window.setTimeout("viscm()",0);
}
function viscm()
{
    var form = document.simulation;
	document.getElementById('cm').style.visibility = 'visible';
	form.menu_list.focus();
}

function toolSelect(id)
{
	sel_tool = id;
}

function flood_fill()
{
	document.simulation.sel_field_id.value = mouse_over_cell;
	markerMenu(-2);
}

function type_fill()
{
    document.simulation.sel_field_id.value = mouse_over_cell;
	markerMenu(-3);
}

function street_def()
{
	var form = document.simulation;
	if(form.action.value == 'street_def')
		return;

	if(! form.mark_lines.value.match(/\d+,\d+/))
	{
		att_edit(2);
        return;
	}
	categorize('street_def');
}

function river_def()
{
	var form = document.simulation;
	if(form.action.value == 'river_def')
		return;

    if(! form.mark_lines.value.match(/\d+,\d+/))
	{
		att_edit(1);
        return;
	}
	categorize('river_def');
}

function water_def()
{
	var form = document.simulation;
	if(form.action.value == 'water_def')
		return;

    if(		! form.mark_lines.value.match(/\d+,\d+,\d+/) 
		&& 	f[mouse_over_cell] == 1
	)
	{
		att_edit(8);
        return;
	}
	categorize('water_def');
}

function area_focus()
{
    var form = document.simulation;
	form.action.value = 'area_focus';
	saveChanges();
}
var called = 0;
function gradient_def()
{
	var form = document.simulation;
	if(called++ == 1)
	{
		form.action.value = 'gradient';
		saveChanges();
	}
}

function att_edit(att)
{
	var form = document.simulation;
	form.sel_att.value = att;
	var f_att = identify_att(att);
	if(! f_att || f_att < 16)
	{
        form.mark_lines.value = '';
        form.mtrace.value = '';
		document.getElementById(mouse_over_cell).style.backgroundColor='transparent';
        return;
	}

	var an='';
	var ac=0;
	var attribute=0;
	var al = new Array('\nFluß\n','\nStraße/Bahn\n','border','\nGewässer\n',1,2,3,4,5);
	for(var i=1,j=0;i<=256;i*=2,j++)
	{
		if(f_att & i)
		{
			if(i<=8)
			{
				an = al[j];
				attribute = i;
			}
			else
				ac = al[j];	
		}
	}
	
	form.sel_field_id.value = mouse_over_cell;
	form.edit_label.value = an;
	form.edit_cat.selectedIndex = ac-1;
	
	if(isGame)
		parse_cat_edit_for_game(attribute);
	
	foc_now = true;
	document.getElementById('cei').style.left  = xCoord-20;
	document.getElementById('cei').style.top = yCoord-20;
	document.getElementById('cei').style.visibility = 'visible';
}
function parse_cat_edit_for_game(attribute)
{
	var form = document.simulation;
	var cat_select_game_label = new Array();
	for(var i=0;i<3;i++)
		cat_select_game_label[i] = new Array();
		
	cat_select_game_label[0][0] = "\nNebenstraße\n";
	cat_select_game_label[0][1] = "\nHauptstraße\n";
	cat_select_game_label[0][2] = "\nBundesstraße\n";
	cat_select_game_label[0][3] = "\nAutobahn\n";
	cat_select_game_label[0][4] = "\nBahn\n";
	cat_select_game_label[0][5] = "-- \nentfernen\n --";
	
	cat_select_game_label[1][0] = "\nQuelle\n";
	cat_select_game_label[1][1] = "\nBach\n";
	cat_select_game_label[1][2] = "\nkleiner Fluß\n";
	cat_select_game_label[1][3] = "\ngroßer Fluß\n";
	cat_select_game_label[1][4] = "\nStrom\n";
	cat_select_game_label[1][5] = "-- \nentfernen\n --";
	
	cat_select_game_label[2][0] = "\nTümpel\n";
	cat_select_game_label[2][1] = "\nWeiher\n";
	cat_select_game_label[2][2] = "\nTeich\n";
	cat_select_game_label[2][3] = "\nkleiner See\n";
	cat_select_game_label[2][4] = "\ngroßer See\n";
	cat_select_game_label[2][5] = "-- \nentfernen\n --";
/*
	cat_select_game_label[0][0] = "alley";
	cat_select_game_label[0][1] = "side street";
	cat_select_game_label[0][2] = "main street";
	cat_select_game_label[0][3] = "federal road";
	cat_select_game_label[0][4] = "highway";
	cat_select_game_label[0][5] = "-- remove --";
	
	cat_select_game_label[1][0] = "spring";
	cat_select_game_label[1][1] = "brook";
	cat_select_game_label[1][2] = "small river";
	cat_select_game_label[1][3] = "big river";
	cat_select_game_label[1][4] = "major river";
	cat_select_game_label[1][5] = "-- remove --";
	
	cat_select_game_label[2][0] = "pool";
	cat_select_game_label[2][1] = "pond";
	cat_select_game_label[2][2] = "big pond";
	cat_select_game_label[2][3] = "small lake";
	cat_select_game_label[2][4] = "big lake";
	cat_select_game_label[2][5] = "-- remove --";
*/			
	var idx = (attribute == 8)? 2 : ((attribute == 2)? 0 : 1);
	for(var i=0; i<form.edit_cat.options.length; i++)
	{
		form.edit_cat.options[i].text = cat_select_game_label[idx][i];
	}
	form.edit_label.value = "\nBearbeiten\n";
//	form.edit_label.value = "edit";
}
function cat_edit(id)
{
	var form = document.simulation;
	document.getElementById('cei').style.visibility = 'hidden';
	foc_now = false;
	if(id)
	{
		document.simulation.action.value = 'update_att';
		saveChanges();
	}
	form.mark_lines.value = '';
}


function identify_att(att)
{
	var f_att = a[mouse_over_cell];
	for(var i=1;i<=8;i*=2)
	{
		if(i != att && i & f_att)
			return 0;
	}
	return f_att;
}

function init_map()
{
//	if((moveLog.length || mvc) && ! confirm("stop current run?"))
	if((moveLog.length || mvc) && ! confirm("\nSimulation abbrechen?\n"))
		return;

	document.simulation.action.value = 'init_map';
	refresh();
}

function cat_action(id,div_id)
{
	var form = document.simulation;
	if(!id)// cancel button
	{
		form.action.value = '';
		var mf = form.mark_lines.value.split(",");
		for(var i=0;i<mf.length;i++)
		{
			if(mf[i].match(/\d/))
				document.getElementById(mf[i]).style.backgroundColor='transparent';
		}
		form.mark_lines.value = '';
        form.mtrace.value = '';
		document.getElementById(div_id).style.visibility = 'hidden';
        return;
	}
	saveChanges();
}
var memx;
var memy;
var foc_now = false;
function categorize(type)
{
	var form = document.simulation;
	var label;
	var pre;
	foc_now = true;
	memx = xCoord;
	memy = yCoord;
	switch(type)
	{
		case	'street_def'	:	label = '\nStraße/Bahn\n name:';
									pre = '\nStraße/Bahn\n ['+cnts+']';
									break;
		case	'river_def'		:	label = '\nFluß\n name:';
									pre = '\nFluß\n ['+cntr+']';
									break;
		case	'water_def'		:	label = '\nGewässer\n name:';
									pre = '\nGewässer\n ['+cntw+']';
									break;
		default					: 	label = 'name:';
									pre = '';
									break;
	}
	form.cat_label.value = label;
	form.rsw_name.value = pre;
	
	if(isGame)
		parse_cat_select_for_game(type);
	
	document.getElementById('cii').style.left  = xCoord-20;
	document.getElementById('cii').style.top = yCoord-20;
	document.getElementById('cii').style.visibility = 'visible';
	form.rsw_name.focus();
	form.action.value = type;
}

function parse_cat_select_for_game(type)
{
	var form = document.simulation;
	var cat_select_game_label = new Array();
	for(var i=0;i<3;i++)
		cat_select_game_label[i] = new Array();
		
	cat_select_game_label[0][0] = "\nNebenstraße\n";
	cat_select_game_label[0][1] = "\nHauptstraße\n";
	cat_select_game_label[0][2] = "\nBundesstraße\n";
	cat_select_game_label[0][3] = "\nAutobahn\n";
	cat_select_game_label[0][4] = "\nBahn\n";
	
	cat_select_game_label[1][0] = "\nQuelle\n";
	cat_select_game_label[1][1] = "\nBach\n";
	cat_select_game_label[1][2] = "\nkleiner Fluß\n";
	cat_select_game_label[1][3] = "\ngroßer Fluß\n";
	cat_select_game_label[1][4] = "\nStrom\n";
	
	cat_select_game_label[2][0] = "\nTümpel\n";
	cat_select_game_label[2][1] = "\nWeiher\n";
	cat_select_game_label[2][2] = "\nTeich\n";
	cat_select_game_label[2][3] = "\nkleiner See\n";
	cat_select_game_label[2][4] = "\ngroßer See\n";
/*
	cat_select_game_label[0][0] = "alley";
	cat_select_game_label[0][1] = "side street";
	cat_select_game_label[0][2] = "main street";
	cat_select_game_label[0][3] = "federal road";
	cat_select_game_label[0][4] = "highway";
	
	cat_select_game_label[1][0] = "spring";
	cat_select_game_label[1][1] = "brook";
	cat_select_game_label[1][2] = "small river";
	cat_select_game_label[1][3] = "big river";
	cat_select_game_label[1][4] = "major river";
	
	cat_select_game_label[2][0] = "pool";
	cat_select_game_label[2][1] = "pond";
	cat_select_game_label[2][2] = "big pond";
	cat_select_game_label[2][3] = "small lake";
	cat_select_game_label[2][4] = "big lake";
*/			
	var idx = (type == 'street_def')? 0 : ((type == 'river_def')? 1 : 2);
	for(var i=0; i<form.rsw_cat.options.length; i++)
	{
		form.rsw_cat.options[i].text = cat_select_game_label[idx][i];
	}
	form.cat_label.value = "\nhinzufügen\n";
//	form.cat_label.value = "new";
	form.rsw_name.value = '';
}

var div_focus = false;
var div_id;
function set_focused(id)
{
	div_focus = true;
	div_id = id;
}

function set_leaved()
{
	div_focus = false;
	if(foc_now)
		remind();
}

function remind()
{
	if(div_focus)
		return;
	document.getElementById(div_id).style.left  = xCoord-60;
	document.getElementById(div_id).style.top = yCoord-50;
	div_focus = true;
}

function user_input()
{
	var form = document.simulation;
	foc_now = true;
	document.getElementById('uii').style.left  = xCoord-20;
	document.getElementById('uii').style.top = yCoord-20;
	document.getElementById('uii').style.visibility = 'visible';
	form.ui_name.focus();
}

function save2db()
{
	document.simulation.action.value = 'save2db';
	user_input();
}

function ui_action(id)
{
	var form = document.simulation;
	if(! id)
	{
		foc_now = false;
		document.getElementById('uii').style.visibility = 'hidden';
		form.action.value = '';
		return;
	}
	
	if(! form.ui_name.value.match(/\S/))
	{
//		alert("save as ... ?");
		alert("\nspeichern als ... ?\n");
		return;
	}
	saveChanges();
}

function init_simulation(id)
{
	var form = document.simulation;
//    if((moveLog.length || mvc) && ! confirm("stop current run?"))
    if(		(document.getElementById(id)[document.getElementById(id).selectedIndex].value == 0)
		||	(moveLog.length || mvc) && ! confirm("\nSimulation abbrechen?\n")
	)
	{
		document.getElementById(id).selectedIndex = sel_idx;
		sel_idx = -1;
		return;
	}
	form.action.value = 'init_simulation';
	form.submit();
}

function load_from_osm_region(map_id)
{
	sel_idx = document.getElementById("map_sel").selectedIndex;
	for(i=0;i<document.getElementById("map_sel").length;i++)
	{
		if(document.getElementById("map_sel")[i].value == map_id)
		{
			document.getElementById("map_sel").selectedIndex = i;
			init_simulation("map_sel");
			return;
		}
	}
}

function autoRefresh(is_select)
{
	var form = document.simulation;
	var interval;
	if(! is_select)
		interval = form.auto_refresh.value;
	else
		interval = form.auto_refresh[form.auto_refresh.selectedIndex].value;

	if(interval > 0 && (moveLog.length > interval))
	{
		saveChanges();
		return;
	}
	window.setTimeout("autoRefresh("+is_select+")",200);
}

function area_selection(id)
{
	var act = (id)? 'load_area' : 'delete_area';
	document.simulation.action.value = act;
	saveChanges();
}

function upload()
{
	var form = document.simulation;
	var type_sel = (form.map_image.value || form.map_gis.value)? true : false;
	if(! form.dataset_name.value.match(/\S/))
	{
//		alert("name required!");
		alert("\nBitte Namen eingeben!\n");
		form.dataset_name.focus();
		return;
	}
	for(var i=0;i<form.file_type.length;i++)
	{
		if(form.file_type.checked)
			type_sel = true;
	}
	if(! type_sel)
	{
//		alert("please select land use file");
		alert("\nBitte Landnutzungs Datei auswählen!\n");
		return;
	}
	if(		document.getElementById("div_lut_def").style.visibility == 'visible'
		&&	form.ftype_def.selectedIndex == 0
	)
	{
//		alert("please select LUT set");
		alert("\nBitte LNT Set auswählen!\n");
		return;
	}
	
	document.simulation.action.value = 'upload';
	form.submit();
}

function load_sim(id)
{
	var form = document.simulation;
//	if((moveLog.length || mvc) && !confirm("stop current run?"))
	if((moveLog.length || mvc) && !confirm("\nSimulation abbrechen?\n"))
	{
		return;
	}
	form.sim_id.value = id;
	saveChanges();
}

function delete_sim(id)
{
	var form = document.simulation;
//	if(!confirm("delete simulation?"))
	if(!confirm("\nSimulation löschen?\n"))
	{
		return;
	}
	form.sim_id.value = id;
	form.sim_act.value = "delete";
	saveChanges();
}

function jump(bm)
{
	var form = document.simulation;
	form.sim_bm.value = bm;
	saveChanges();
}

function gisexport()
{
	var form = document.simulation;
	document.simulation.action.value = 'gis_export';
	saveChanges();
}

function jump2xy(id,x,y)
{
	document.getElementById(id).style.left  = x + "px";
	document.getElementById(id).style.top = y + "px";
	document.getElementById(id+"_x").value = x;
	document.getElementById(id+"_y").value = y;
}
function get_rname()
{
//	var p_name = prompt("save as:","");
	var p_name = prompt("\nspeichern als:\n","");
	if(p_name.match(/\S+/))
	{
		document.simulation.rule_set_name.value = p_name;
		return 1;
	}
	return 0;	
}

function rule_edit(action_id,rule_id)
{
	var form = document.simulation;
	switch(action_id)
	{
		case	0	:	if(! rule_id && ! get_rname())
							return;
						break;
		case	1	:	if(! get_rname())
							return;
						break;
		case	2	:	//if(! confirm("delete rule?"))
						if(! confirm("\nPlanungsrestriktion löschen?\n"))
							return;
						break;
		default		:	break;
	}
	form.action.value = 'rule_edit';
	form.action_id.value = action_id;
	form.submit();
}
function check_all()
{
	sandglass(1);
	window.setTimeout("__check_all()",0);
	
}
function __check_all()
{
	var form = document.simulation;
	var idcnt = form.cnt_id.value;
	for(var i=0;i<idcnt;i++)
	{
		document.getElementById("rm#"+i).checked = true;
	}
	sandglass(0);
}
function invert_all()
{
	sandglass(1);
	window.setTimeout("__invert_all()",0);
}
function __invert_all()
{
	
	var form = document.simulation;
	var idcnt = form.cnt_id.value;
	for(var i=0;i<idcnt;i++)
	{
		document.getElementById("rm#"+i).checked = (document.getElementById("rm#"+i).checked)? false : true;
	}
	sandglass(0);
}
function delete_typedef(maplist)
{
//	if(! confirm("delete type definition and all dependent value definitions, rule sets?"))
	if(! confirm("\nLNT Set und alle zugehörigen LNF Sets und Restriktionen löschen?\n"))
		return;
	if(maplist)
	{
//		if(! confirm("the following maps will be also deleted:"+maplist)
		if(! confirm("\nfolgende Karten werden ebenfalls gelöscht!:\n"+maplist)
			|| 
//			! confirm("are you sure?")
			! confirm("\nsind Sie sicher?\n")
		)
		return;
	}
//	var passwd = prompt("enter admin password","");
	var passwd = prompt("\nAdministrator Passwort:\n","");
	if(! passwd)
		return;
	var form = document.simulation;
	form.admin.value = passwd;
	form.action.value = 'delete_typedef';
	form.submit();
}

function delete_map(reg_id)
{
	if(reg_id)
	{
		delete_osm_region();
		return;
	}
//	if(! confirm("delete map and all saved results?"))
	if(! confirm("\nKarte und zugehörige Resultate löschen?\n"))
		return;
//	var passwd = prompt("enter admin password","");
	var passwd = prompt("\nAdministrator Passwort:\n","");
	if(! passwd)
		return;
	var form = document.simulation;
	form.admin.value = passwd;
	form.action.value = 'delete_map';
	form.submit();
}

function delete_osm_region()
{
	if(! confirm("\nWollen Sie die gesamte Region und alle zugehörigen Karten löschen?"))
		return;
//	var passwd = prompt("enter admin password","");
	var passwd = prompt("\nAdministrator Passwort:\n","");
	if(! passwd)
		return;
	var form = document.simulation;
	form.admin.value = passwd;
	form.action.value = 'delete_osm_region';
	form.submit();
}

function delete_image()
{
//	if(! confirm("delete image file?"))
	if(! confirm("\nImport Datei löschen?\n"))
		return;
//	var passwd = prompt("enter admin password","");
	var passwd = prompt("\nAdministrator Passwort:\n","");
	if(! passwd)
		return;
	var form = document.simulation;
	form.admin.value = passwd;
	form.action.value = 'delete_image';
	form.submit();
}

function get_selected(id)
{
	var form = document.simulation;
	var cb = (id == 'lut_src_type')? form.lut_src_type : form.lut_tgt_type;
	var hiddenfield = (id == 'lut_src_type')? form.selected_src_types : form.selected_target_types;
	hiddenfield.value = '';
	for(var i=0;i<cb.length;i++)
	{
		if(cb[i].checked == true)
		{
			if(hiddenfield.value != '')
				hiddenfield.value += ',';
			hiddenfield.value += cb[i].value;
		}
	}
	
}

function check_cb(id)
{
	var form = document.simulation;
	var cb = (id == 'lut_src_type')? form.lut_src_type : form.lut_tgt_type;
	for(var i=0;i<cb.length;i++)
	{
		cb[i].checked = true;
	}
	get_selected(id);
}

function invert_cb(id)
{
	var form = document.simulation;
	var cb = (id == 'lut_src_type')? form.lut_src_type : form.lut_tgt_type;
	for(var i=0;i<cb.length;i++)
	{
		cb[i].checked = (cb[i].checked == true)? false : true;
	}
	get_selected(id);
}

function check_empty_cb(id)
{
	var form = document.simulation;
	var cb = (id == 'lut_src_type')? form.lut_src_type : form.lut_tgt_type;
	for(var i=0;i<cb.length;i++)
	{
		if(cb[i].checked == true)
			return true;
	}
	return false;
}

function condition_edit(action_id,cond_id,view)
{
	var form = document.simulation;
	if(action_id != 2 && ! check_empty_cb("lut_src_type"))
	{
//		alert("plaese select source type(s)");
		alert("\nBitte betroffene Landnutzungstypen auswählen!\n");
		return;
	}
	if(action_id != 2 && ! form.condition_attribute.selectedIndex)
	{
//		alert("plaese select condition attribute");
		alert("\nBitte Umweltbedingung auswählen!\n");
		form.condition_attribute.focus();
		return;
	}
	switch(action_id)
	{
		case	0	:	if(cond_id < 1 && ! get_cname())
							return;
						break;
		case	1	:	if(! get_cname())
							return;
						break;
		case	2	:	//if(! confirm("delete condition?"))
						if(! confirm("\nRegel löschen?\n"))
							return;
						break;
		default		:	break;
	}

	get_selected('lut_src_type');
	if(view == 'rule')
		get_selected('lut_tgt_type');
	form.action.value = 'condition_edit';
	form.action_id.value = action_id;
	form.submit();
}

function get_cname()
{
//	var p_name = prompt("save as:","");
	var p_name = prompt("\nspeichern als:\n","");
	if(p_name.match(/\S+/))
	{
		document.simulation.cond_set_name.value = p_name;
		return 1;
	}
	return 0;	
}

function getHelp(txt)
{
	var form = document.simulation;
	form.helpbx.value = txt;
	document.getElementById("help").style.left = xCoord  - 10;
	document.getElementById("help").style.top = yCoord  - 10;
	document.getElementById("help").style.visibility = "visible";
	form.helpbx.focus = true;
	foregroundDiv("help");	
}
var help_focus = false;
function focusHelp()
{
	help_focus = true;
}

function leaveHelp()
{
	if(! help_focus)
		return;
	help_focus = false;
	window.setTimeout("hideHelp()",500);
}

function hideHelp()
{
	if(help_focus)
		return;
	document.getElementById("help").style.visibility = "hidden";
}

function getSCDesc()
{
	var form = document.simulation;
	if(form.special_condition.length == 0)
	{
		document.getElementById('scdesc').style.visibility = 'hidden';
		return;
	}
	var sel = form.special_condition.selectedIndex;
	var id = form.special_condition[sel].value;
	form.scdesc.value = SCDesc[id];
	document.getElementById('scdesc').style.visibility = (SCDesc[id])? "visible" : "hidden";
}

function getSelectedSCR()
{
	var form = document.simulation;
	form.scr_list.value = "";
	for(var i=0;i<form.condition_set.length;i++)
	{
		if(i)
			form.scr_list.value += ",";
		form.scr_list.value += form.condition_set[i].value;
	}
}

function addOption(sel,txt,val)
{
	var form = document.simulation;
	var _select = (sel == 'condition_set')? form.condition_set : form.special_condition;
	var len = _select.length;
	_select.options[len] =  new Option();
	_select.options[len].text = txt;
	_select.options[len].value = val;
}

function remOption(sel)
{
	var form = document.simulation;
	var _select = (sel == 'condition_set')? form.condition_set : form.special_condition;
	var idx = _select.selectedIndex;
	var len = _select.length;
	if(idx >= 0)
	{
		for(i=idx;i < len - 1;i++)
		{
			_select[i].text = _select[i+1].text;
			_select[i].value = _select[i+1].value;
		}
		_select.length = i;
	}
	else
	{
//		alert("select option");
		alert("\nOption auswählen!\n");
	}
}

function exchange_selected(direction)
{
	var form = document.simulation;
	var _select = (direction)? form.special_condition : form.condition_set;
	var _target = (direction)? 'condition_set' : 'special_condition';
	var _source = (direction)? 'special_condition' : 'condition_set';
	var idx = _select.selectedIndex;
	if(idx < 0)
	{
//		alert("select option");
		alert("\nOption auswählen!\n");
		return;
	}
	var txt = _select[idx].text;
	var val = _select[idx].value;
	addOption(_target,txt,val);
	remOption(_source);
	getSelectedSCR();
	getSCDesc();
}

function move_sel_option(dir)
{
	var form = document.simulation;
	var _select = form.condition_set;
	var mem_txt;
	var mem_val;
	var mem_class;
	var idx = _select.selectedIndex;
	if(idx < 0)
		return;
	var jump = (dir)? 1 : -1;
	if((idx > 0 && dir == 0) || (idx < _select.length - 1 && dir == 1))
	{
		mem_txt = _select[idx + jump].text;
		mem_val = _select[idx + jump].value;
		mem_class = _select[idx + jump].className;
		
		_select[idx + jump].text = _select[idx].text;
		_select[idx + jump].value = _select[idx].value;
		_select[idx + jump].className = _select[idx].className;
		_select[idx].text = mem_txt;
		_select[idx].value = mem_val;
		_select[idx].className = mem_class;
		_select.selectedIndex = idx + jump;
	}
	getSelectedSCR();
}

function step(dir)
{
	if(playTime < 1)
	{
		if(! playTimeAlert)
		{
			alert("\nZeit abgelaufen!\n");
			//alert("time is up!");
			playTimeAlert = 1;
			saveChanges();
		}
		return;
	}
	
	var form = document.simulation;
	form.action.value = 'stepping';
	form.action_id.value = dir;
	form.submit();
}

function reset_selection(sel_list)
{
	var sel_id = sel_list.split(",");
	for(var i=0;i<sel_id.length;i++)
	{
		document.getElementById(sel_id[i]).selectedIndex = 0;
	}
	refresh();
}

function proximity_edit(action_id,data_id)
{
	var form = document.simulation;
	get_selected('lut_src_type');
	get_selected('lut_tgt_type');

	if(action_id == 2)
	{
		if(data_id < 1)
			return;
//		if(confirm("delete proximity effect definition?"))
		if(confirm("\ndefinierte Nachbarschaftsbeinflussung löschen?\n"))
			form.action.value = 'delete_proximity_effect';
	}
	else
	{
		if(! check_empty_cb("lut_src_type"))
		{
//			alert("please select affected type(s)");
			alert("\nBitte betroffene Typen auswählen!\n");
			return;
		}
		if(! check_empty_cb("lut_tgt_type"))
		{
//			alert("please select neighbour type(s)");
			alert("\nBitte benachbarte Typen auswählen!\n");
			return;
		}
		if(action_id == 1 || data_id < 1)	
		{
//			form.proximity_effect_name.value = prompt("save as:");
			form.proximity_effect_name.value = prompt("\nspeichern als:\n");
			if(! form.proximity_effect_name.value.match(/\S/))
				return;
		}
		form.action.value = 'save_proximity_effect';
	}

	refresh();
}

function luf_limiter()
{
	var px = document.getElementById('limit_editor').style.left.replace(/px/,'');
	var py = document.getElementById('limit_editor').style.top.replace(/px/,'');
	var form = document.simulation;

	px = (px != 0)? px : xCoord - 50;
	py = (py != 0)? py : yCoord + 50;

	document.getElementById('limit_editor').style.top = py;
	document.getElementById('limit_editor').style.left = px;
	document.getElementById('limit_editor').style.visibility = (document.getElementById('limit_editor').style.visibility == 'visible')? 'hidden' : 'visible';
	form.limit_editor_visible.value = (document.getElementById('limit_editor').style.visibility == 'visible')? 1 : 0;
	form.limit_editor_x.value = px;
	form.limit_editor_y.value = py;
	if(form.limit_editor_visible.value)
		foregroundDiv("limit_editor");
}

//------------------------------------------------------------------------------

var rest=0;
var delay=0;
var rpcnt=0;

function Pause()
{
	rest = (rest)? 0 : 1;
}
function Speed()
{
	rest=0;
	delay = (delay < 200)? delay + 100 : 0;
}
function Replay()
{
	if(! load_complete)
	{
		window.setTimeout("Replay()",1000);
	 	return;
	}
	if(!rest)
	{
		var form = document.simulation;
		if(rpi[rpcnt] == 1)
		{
			var clname = "rpi_" + rpcnt + "_" + document.simulation.sel_diag.value;
			document.getElementById("dummy_diag").className = clname;
		}
		if(rpcnt >= rp.length)
		{
			return saveChanges();
		}
		var vsplit = rp[rpcnt].split(",");
		var id = vsplit[0];
		var cl = clr[vsplit[1]];
		f[id]=vsplit[1];
		if(isMargin(id) == 0)
		{
			//document.getElementById(id).bgColor = "#" + cl;
			document.getElementById(id).style.backgroundColor = "#" + cl;
		}
		rpcnt++;
	}
	window.setTimeout("Replay()",delay);	
}
function initReplay()
{
	var form = document.simulation;
	form.action.value = 'replay';
	saveChanges();
}

function gradient_select(type)
{
	var form = document.simulation;
	form.action.value = 'load_gradient';
	saveChanges();
}

function move_gradient()
{
	var form = document.simulation;
	form.action.value = 'move_gradient';
	leave("grd_layer");
	saveChanges();
}

function check_grd_bx(cnt)
{
	for(var i=1;i<=cnt;i++)
	{
		document.getElementById("grd"+i+"#").checked = true;
	}
}

function invert_grd_bx(cnt)
{
	for(var i=1;i<=cnt;i++)
	{
		document.getElementById("grd"+i+"#").checked = (document.getElementById("grd"+i+"#").checked)? false : true;
	}
}

function toggle_border()
{
	var form = document.simulation;
	form.border.value = (form.border.value == 1)? 0 : 1;
	saveChanges();
}

function zoom(dir)
{
	var form = document.simulation;
	if(dir)
		form.zoom.value++;
	else
		form.zoom.value--;
	saveChanges();
}

function ssselection()
{
	document.getElementById('sss_tb').style.top = yCoord - 10;
	document.getElementById('sss_tb').style.left = xCoord - 10;
	document.getElementById('sss_tb').style.visibility = 'visible';
	window.setTimeout("hide_div(\"sss_tb\")",5000);
}

function set_sec_size(size)
{
	var form = document.simulation;
	form.sector_size.value = size;
	saveChanges();
}
var to;
function arfselection()
{
	window.clearTimeout(to);
	document.getElementById('arf_tb').style.top = yCoord - 10;
	document.getElementById('arf_tb').style.left = xCoord - 10;
	document.getElementById('arf_tb').style.visibility = 'visible';
	to = window.setTimeout("hide_div(\"arf_tb\")",5000);
}

function set_arf(arf)
{
	var form = document.simulation;
	form.auto_refresh.value = arf;
	form.arfdsp.value = (arf)? arf : 'nie';
	hide_div('arf_tb');
	window.clearTimeout(to);
}

var remain = 0;
var dt = new Date();
var sts = Math.floor(dt.getTime()/1000);

function countdown(seconds)
{
	remain = (seconds)? seconds : remain;
	var form = document.simulation;
	var now = new Date();
	var nts = Math.floor(now.getTime()/1000);
	
	if(gameStarted == 0)
		sts = nts;
		
	var secdiff = nts - sts;
	var remain_sec = remain - secdiff;
	remain_sec = (remain_sec < 1)? 0 : remain_sec;
	playTime = remain_sec;
    var min = Math.floor(remain_sec/60);
    var hours = Math.floor(min/60);
    var sec = remain_sec % 60;
    min = min % 60;
    hours = hours % 24;
    sec = (sec<10)? '0'+sec : sec;
    min = (min<10)? '0'+min : min;
    hours = (hours<10)? '0'+hours : hours;
    form.stime.value = (hours+":"+min+":"+sec);
    form.elapsed_seconds.value = secdiff;

	if(playTime > 0)
    	window.setTimeout('countdown(0)',1000);
}

function save_score()
{
	var form = document.simulation;
	form.action.value = 'save_score';
	form.submit();
}

function special_condition_rule_action(action_id,rule_id)
{
	var form = document.simulation;
	switch (action_id)
	{
		case	0	:	if(rule_id)
							form.action.value = "update_special_condition_rule";
						else
						{
							if(get_rname())
							{
								form.action.value = "save_special_condition_rule";
							}
						}
						break;
		case	1	:	if(get_rname())
						{
							form.action.value = "save_special_condition_rule";
						}
						break;
		case	2	:	//if(confirm("delete environmental restriction?"))
						if(confirm("\nUmweltrestriktion löschen?\n"))
						{
							form.action.value = "delete_special_condition_rule";
						}
		default		:	break;
	}
	form.submit();
}

function getER_description()
{
	getHelp(ER_desc.join('\n\n'));
}

function getPR_description()
{
	getHelp(PR_desc);
}

function getPE_description()
{
	getHelp(PE_desc);
}

function getSD_description()
{
	getHelp(SD_desc);
}
function toggleStatus(id)
{
	if(document.getElementById(id).value == 1)
		document.getElementById(id).value = 0;
	else
		document.getElementById(id).value = 1;

	saveChanges();
}
function add_ext_att()
{
	var form = document.simulation;
	form.action.value = 'add_ext_att';
	form.submit();
}
function del_ext_att(att_id,used)
{
	var form = document.simulation;
	if(used)
	{
//		alert("this attribute is in use \nunable to delete!");
		alert("\nEs existieren Daten, die sich auf dieses Attribut beziehen.\nLöschen verweigert!\n");
		return;
	}
	else
	{
//		if(confirm("delete attribute?"))
		if(confirm("\nWollen Sie dises Attribut löschen?\n"))
		{
			form.action.value = 'delete_ext_att';
			form.action_id.value = att_id;
			form.submit();
		}
	}
}

function set_language(lang)
{
	var form = document.simulation;
	if(form.language.value == lang)
		return;
		
	form.language.value = lang;
	saveChanges();
}

function finish_game()
{
	if(! confirm("\nSpiel beenden?\n"))
		return;
	
	var form = document.simulation;
	form.action.value = 'finish_game';
	form.submit();
}

function add_aero_upload()
{
	document.getElementById("aero_upload").style.visibility = 'visible';	
}

function upload_aero_photo()
{
	var form = document.simulation;
	form.action.value = 'upload_aero_photo';
	form.submit();
}
var focused_gdv = 0;
function scroll_gdv(sel)
{
	focused_gdv = (sel <= gdv_cnt)? sel : 0;
	for(var i=0;i<gdv_cnt;i++)
	{
		var vis = (i==focused_gdv)? "visible" : "hidden";
		var rw_style = (i==focused_gdv)? "dotted 1px #3333FF" : "solid 1px #FFFFFF";
		document.getElementById("gdv_"+i).style.visibility = vis;
		document.getElementById("gdv_row_"+i).style.border = rw_style;
	}
}
function hide_gdv(idx)
{
	document.getElementById("gdv_"+idx).style.visibility = 'hidden';
	focused_gdv = idx;
}
function show_gdv_select()
{
	scroll_gdv(focused_gdv);
	if(gdv_cnt > 1 && focused_gdv < gdv_cnt)
		show_div("grd_select_div",20,-10);
	else
		hide_div("grd_select_div");	
	focused_gdv++;
}
//------------------------------------------------------------------------------
var maxZindex = 0;
var foregroundZindex = 0;
var divStack = new Array();
function getMaxZindex()
{
	if(maxZindex)
		return;
		
	var divs = document.getElementsByTagName("div");
	for(var i=0;i<divs.length;i++)
	{
		var zi = Math.floor(divs[i].style.zIndex);
		maxZindex = (maxZindex > zi)? maxZindex : zi;
	}
	foregroundZindex = maxZindex+1;
}
function foregroundDiv(div_id)
{	
	getMaxZindex();
	if(document.getElementById(div_id).style.zIndex < foregroundZindex)
	{
		foregroundZindex++;
		document.getElementById(div_id).style.zIndex = foregroundZindex;
		saveDivStack(div_id);
	}
}
function alreadyListedDiv(idx)
{
	var div_id = divStack[idx];
	for(i=idx+1;i<=foregroundZindex;i++)
	{
		if(divStack[i] == div_id)
			return true;
	}
	return false;
}
function saveDivStack(div_id)
{
	if(! load_complete)
		return;
	document.getElementById('div_stack').value = '';
	divStack[foregroundZindex] = div_id;
	for(var i=foregroundZindex;i>maxZindex+1;i--)
	{
		if(alreadyListedDiv(i))
			continue;
		document.getElementById('div_stack').value += ' '+divStack[i]+' ';
	}
}
function reorderDivStack()
{
	load_complete = 1;
	if(! document.getElementById('div_stack').value.match(/\S/))
		return;
	var divs = document.getElementById('div_stack').value.split(/\s+/);
	for(var i=divs.length-1;i>=0;i--)
	{
		if(document.getElementById(divs[i]))
			foregroundDiv(divs[i]);
	}
}