var number_of_areas = 8;
area = new Object(); area.length = number_of_areas - 1;

var number_of_bands = 7;
hmlr = new Object(); hmlr.length = number_of_bands - 1; 
band = new Object(); band.length = number_of_bands - 1;
remortgage = new Object(); remortgage.length = number_of_bands - 1;

var number_of_chg_bands = 5;
chg_band = new Object(); chg_band.length = number_of_chg_bands-1
house_chg = new Object(); house_chg.length = number_of_chg_bands-1
flat_chg = new Object(); flat_chg.length = number_of_chg_bands-1
remort_chg = new Object(); remort_chg.length = number_of_chg_bands-1

var high_chg_rate = 1;

chg_band[0] = 250000;
chg_band[1] = 500000;
chg_band[2] = 25000000;



house_chg[0] = 550;
house_chg[1] = 750;
house_chg[2] = 950;



flat_chg[0] = 550;
flat_chg[1] = 750;
flat_chg[2] = 950;




remort_chg[0] = 550;
remort_chg[1] = 750;
remort_chg[2] = 950;


area[0]='Other areas of England and Wales ,200.00,0.00';
area[1]='Havering,172.50,0.00';
area[2]='Barking & Dagenham,177.00,0.00';
area[3]='Lewisham ,150.00,0.00';
area[4]='Barnet ,288.00,0.00';
area[5]='Lambeth ,275.00,0.00';
area[6]='Southwark ,190.00,0.00';
area[7]='Islington ,200.00,0.00';



band[0]=50000; hmlr[0]=50; remortgage[0]=50;
band[1]=80000; hmlr[1]=80; remortgage[1]=50;
band[2]=100000; hmlr[2]=130; remortgage[2]=50;
band[3]=200000; hmlr[3]=200; remortgage[3]=70;
band[4]=500000; hmlr[4]=280; remortgage[4]=70;
band[5]=1000000; hmlr[5]=550; remortgage[5]=130;
band[6]=1000001; hmlr[6]=920; remortgage[6]=260;


var sdutylimit0 =125000
var sdutylimit1 = 250000;
var sdutyrate1 = 0.01;
var sdutylimit2 = 500000;
var sdutyrate2 = 0.02;
var sdutyrate3 = 0.04;

var banksrch = 4.00;
var hmlrpriority = 6.00;
var fdchargesale = 195.00;
var fdchargebuy = 195.00;
var regcopy = 12.00;
var pricelimit = 990000.00;
var vatrate = 20.00;

var transferfee =58.75;

//var property_type = "";

// ======== End of database inserted  ====
// Use of the script or the information within it without the written permission of the copyright holder is forbidden

image1 = new Image();
image1.src = "img/au_over.gif";

image2 = new Image();
image2.src = "img/dw_over.gif";

image3 = new Image();
image3.src = "img/np_over.gif";

image4 = new Image();
image4.src = "img/lp_over.gif";

image5 = new Image();
image5.src = "img/tp_over.gif";

var areasel = "";
var las = 0.00;
var cas = 0.00;
var hmlrrf = 0.00;
var sellprice = 0.00;
var buyprice = 0.00;
var mortgage = 0.00;
var grandsaletotal = 0.00;
var grandbuytotal = 0.00;
var hmlrrem = 0.00;
//var property_type = 1;

function getnext(){
	var ptr = datas.indexOf(',');
	var next = datas.substring(0,ptr);
	datas = datas.substr(ptr+1);
	return next;
}
function getarea(index){
	datas = area[index];
	var indexedarea = getnext();
	areasel = indexedarea ;
	las = 1*getnext();
	cas = 1*datas;
	return indexedarea;
}
function listareas(){
	//document.write('<OPTION VALUE="None" SELECTED>Select one area from list</OPTION>\n');
	for (i=0; i < number_of_areas; i+=1){
		areasel = getarea(i);
		index = i;
		document.write('<OPTION VALUE="',index,'">',areasel,'</OPTION>\n');
	}
	return null;
}

function gethmlr(price){
	var index = 0;
	if( price >= band[band.length]) {
		index= band.length ;
	}
	else{
		while (band[index] < price) {
			index+=1;
		}
	}
	hmlrrem = remortgage[index];
	return hmlr[index];
}

function nextpage(){
	var page = "fpc.htm" ;
	//var prop_type = document.prices.property.value;
	var prop_type = document.prices.property.checked;
	sellprice = document.prices.sellprice.value;
	buyprice = document.prices.buyprice.value;
	mortgage = document.prices.mortgage.value
	if (mortgage >0 ) { page = "remortgage.htm?mortgage=" + mortgage; }
	if (sellprice>0 ) { page = "sell.htm?sellprice="+ sellprice + "&property_type=" + prop_type + "&buyprice=" + buyprice;}  
    if (buyprice >0 ) { page = "buy.htm?sellprice="+ sellprice + "&property_type=" + prop_type + "&buyprice=" + buyprice;}
	//if (sellprice >= pricelimit) { page = "toohigh.htm"; }
	//if (buyprice >= pricelimit) { page = "toohigh.htm"; }
	//if (mortgage >= pricelimit) { page = "toohigh.htm"; }
	return page ;
}

function getParm(parm) {
    // returns value of parm from string
	var string = location.search.substring(1);
     var startPos = string.indexOf(parm + "=");
     if (startPos > -1) {
         startPos = startPos + parm.length + 1;
         var endPos = string.indexOf("&",startPos);
         if (endPos == -1)
             endPos = string.length;
         return unescape(string.substring(startPos,endPos));
		}
     return '';
 	}

function vat(value) {
	return Math.round(value * vatrate)/100 ; }

function pnp(value) {
	var string = (value * 1000+1)/1000 + ""
	return string.substr(0, string.indexOf(".")+3);
}

function charges(price, property_type,remortgage_flag){
	var conv_charge = 0.01 ;
	var index = 0 ;
	if (price >= chg_band[number_of_chg_bands-1]) {
		conv_charge = Math.round(high_chg_rate * price)/100 ; 
	}
	else {
		while (chg_band[index] <= price) {
			index+=1;
		}
		if (remortgage_flag == 0 ){
			if (property_type == "true"){
				conv_charge = flat_chg[index] ;
				}
			else {
				conv_charge = house_chg[index] ;
				}
			}
		else{
			conv_charge = remort_chg[index] ;
			}
	}
	return conv_charge ;
}

function showsellingcharges() {
var sellp = getParm('sellprice');
var prop_type = getParm('property_type');
fdchargesale = charges(sellp,prop_type,0);
document.writeln('<h2>Conveyancing Charges for Sale of Property Value £',sellp,'</h2>');
document.writeln('<table bgcolor="adc3c6">  <tr><td><b>Our Charges</b></td></tr>');
tableline('Professional Charges',fdchargesale);
vatdue = vat(fdchargesale);
tableline('VAT at 20% thereon',vatdue);
tableline('Total',fdchargesale+vatdue);
document.writeln('<tr><td><b>Plus Disbursements</b></td></tr>');

tableline('Lender’s Administrative fee',35.25);
tableline('Office Copy of Register',regcopy);
tableline('Bank telegraphic transfer fees',58.75);
tableline('Disbursements (such as photocopying, ',11.75);
grandsaletotal=fdchargesale+vatdue+regcopy
tableline('<b>Grand Total</b>',grandsaletotal);

 document.writeln('<tr><td><b>If the property is leasehold you will also need to pay the folloing fees</b></td><td></td></tr>');

	 tableline('Office copy entries',14);
	 tableline('Landlords Leasehold Pack',117.50);
document.writeln('</table>');
return null ;
}

function tableline(title,charge) {
	document.writeln('<tr align="right"><td>',title,':</td><td>£</td><td>',pnp(charge),'</td></tr>');
}

function stampduty(price){
	var duty = 0;
	if (price > sdutylimit0) { duty = price * sdutyrate1 }
	if (price > sdutylimit1 ) { duty = price * sdutyrate2 }
	if (price > sdutylimit2 ) { duty = price * sdutyrate3 }
	return duty ;
}

function showbuyingcharges() {
var buyp = getParm('buyprice');
var prop_type = getParm('property_type');

document.writeln('<table width="80%" bgcolor="adc3c6">');
if (getParm('area') == -1) {
   document.writeln("<tr><td align=center><b>You didn't select an area <br>Please use your 'Back' button to return to the previous form</b></td><td></td></tr>");
   }
else{
	 fdchargebuy = charges(buyp,prop_type,0);
	 document.writeln('<h2>Conveyancing Charges for Purchase of Property Value £',buyp,'</h2>');
	 document.writeln('<tr><td><b>Our Charges</b></td><td></td><td></td></tr>');
	 tableline('Professional Charges ',fdchargebuy);
	 vatdue = vat(fdchargebuy);
	 tableline('VAT at 20% thereon',vatdue);
	 tableline('Total',fdchargebuy+vatdue);
	 getarea(getParm('area'));
	 document.writeln('<tr><td><b>Plus Disbursements<br>for a property in the ',areasel,' area</b></td><td></td></tr>');

	 tableline('Local Authority Search',las);
	 tableline('Water & Sewage',40);
	 var bsearch = 0.00;
	 if (getParm('mort') == 'true') { bsearch = banksrch * getParm('npers'); }
	 tableline('Bankruptcy Search',bsearch);
	 tableline('HM Land Registry Official Search',hmlrpriority);
 
 tableline('Disbursements such as photocopying',11.75);
	 var sduty = stampduty(buyp);	 
	 tableline('Stamp Duty',sduty);
	 var hmlr = gethmlr(buyp);
	 tableline('Fee for registering you as the new owner of the property with HM Land Registry',hmlr);
	 tableline('Telegraphic Transfer Fee',transferfee);
	 var grandbuytotal =0.00;
	 grandbuytotal=fdchargebuy+vatdue+las+cas+bsearch+hmlrpriority+sduty+hmlr+transferfee;
	 tableline('<b>Grand Total</b>',grandbuytotal);

	 if ( grandsaletotal >0 ) { tableline('<b>Overall Sale + Purchase Total</b>',grandbuytotal+grandsaletotal); }

 document.writeln('<tr><td><b>If the property is leasehold you will also need to pay the folloing fees</b></td><td></td></tr>');

	 tableline('Leasehold Fees ',94);
	 tableline('Landlord Notice Fees ',90);

	} 
	 document.writeln('</table>');
}

function showremortgagecharges() {
var buyp = getParm('mortgage');
document.writeln('<table width="80%" bgcolor="adc3c6">');
if (getParm('area') == -1) {
   document.writeln("<tr><td align=center><b>You didn't select an area <br>Please use your 'Back' button to return to the previous form</b></td><td></td></tr>");
   }
else{
		 fdchargebuy = charges(buyp,false,1);
	 document.writeln('<h2>Conveyancing Charges for Remortgaging of Property Value £',buyp,'</h2>');
	 document.writeln('<table width="80%" bgcolor="#adc3c6">  <tr><td><b>Our Charges</b></td><td></td><td></td></tr>');
	 tableline('Professional Charges',fdchargebuy);
	 vatdue = vat(fdchargebuy);
	 tableline('VAT at 20% thereon',vatdue);
	 tableline('Total',fdchargebuy+vatdue);
	 getarea(getParm('area'));
	 document.writeln('<tr><td><b>Plus Disbursements<br>for a property in the ',areasel,' area</b></td><td></td></tr>');

	 getarea(getParm('area'));
	 tableline('Lender’s Administrative fee ',65.25);
	 tableline('Office copy entries ',14);
	 tableline('Bank telegraphic transfer fees',67.50);
	 tableline('Disbursements (such as photocopying)',11.75);
	
	 grandbuytotal=fdchargebuy+vatdue+65.25+14+67.50+11.75;
	
	 }
document.writeln('</table>');
}