task SetPlayerHealth(numb)
{
	Obj_SetValue(GetPlayerObjectID,"PLAYER_LIFE",numb);
}
function GetPlayerHealth
{
	return Obj_GetValueD(GetPlayerObjectID,"PLAYER_LIFE",0);
}
task SetPlayerBarrier(numb)
{
	Obj_SetValue(GetPlayerObjectID,"PLAYER_BARRIER",numb);
}
function GetPlayerBarrier
{
	return Obj_GetValueD(GetPlayerObjectID,"PLAYER_BARRIER",0);
}
task SetPlayerFlash(numb)
{
	Obj_SetValue(GetPlayerObjectID,"PLAYER_FLASH",numb);
}
function GetPlayerFlash
{
	return Obj_GetValueD(GetPlayerObjectID,"PLAYER_FLASH",0);
}
task SetBeer(numb)
{
	SetCommonData("BEER",numb);	
}
task AddBeer(numb)
{
	SetBeer(GetBeer+numb);	
}
function GetBeer
{
	return GetCommonData("BEER",0);		
}
task SaveBeer
{
	SetAreaCommonData("UPGRADE", "BEER", GetBeer);
	SaveCommonDataAreaA2("UPGRADE",GetCurrentScriptDirectory ~ "UPGRADE");
}






task SetWorldY(numb)
	{
	Obj_SetValue(GetPlayerObjectID,"WORLD_Y",numb);
	}
task AddWorldY(numb)
	{
	Obj_SetValue(GetPlayerObjectID,"WORLD_Y",GetWorldY+numb);
	}
function GetWorldY
	{
	return Obj_GetValueD(GetPlayerObjectID,"WORLD_Y",0);
	}
task SetWorldX(numb)
	{
	Obj_SetValue(GetPlayerObjectID,"WORLD_X",numb);
	}
task AddWorldX(numb)
	{
	Obj_SetValue(GetPlayerObjectID,"WORLD_X",GetWorldX+numb);
	}
function GetWorldX
	{
	return Obj_GetValueD(GetPlayerObjectID,"WORLD_X",0);
	}

task SetStageY(numb)
	{
	Obj_SetValue(GetPlayerObjectID,"STAGE_Y",numb);
	}
task AddStageY(numb)
	{
	Obj_SetValue(GetPlayerObjectID,"STAGE_Y",GetStageY+numb);
	}
function GetStageY
	{
	return Obj_GetValueD(GetPlayerObjectID,"STAGE_Y",0);
	}
task SetStageX(numb)
	{
	Obj_SetValue(GetPlayerObjectID,"STAGE_X",numb);
	}
task AddStageX(numb)
	{
	Obj_SetValue(GetPlayerObjectID,"STAGE_X",GetStageX+numb);
	}
function GetStageX
	{
	return Obj_GetValueD(GetPlayerObjectID,"STAGE_X",0);
	}

task SetStageDir(numb)
	{
	Obj_SetValue(GetPlayerObjectID,"STAGE_DIR",numb);
	}
task AddStageDir(numb)
	{
	Obj_SetValue(GetPlayerObjectID,"STAGE_DIR",GetStageDir+numb);
	}
function GetStageDir
	{
	return Obj_GetValueD(GetPlayerObjectID,"STAGE_DIR",0);
	}