Need help to finish housing script

[nadiros]

Hi guys !

i already start a simple script of housing but i need help to : Allow friend come to your house - change the key by mdp - possibility to sell our house 

 

plz guys i really need help to finish this simple script of housing :/

 

////////////////////////////////

 

prontera.gat,165,167,6 script Vendor House 109,{

if($varglo == 4) goto L_dja;

mes "[Vendeur de maison]";

mes "would u like to buy this house?";

mes "it cost 10000000 zeny";

next;

mes "put your name.";

menu "Oui",L_oui,"Non",l_non;

L_oui:

if(zeny < 10000000) goto L_nocash;

set zeny,zeny-10000000;

input strcharinfo(0); 

announce " "+strcharinfo(0)+" bought a house. ",8;

getitem 7779,2;//key

set $varglo,4;

close;

L_non:

close;

L_dja:

mes "u cant buy this house.";

close;

L_nocash:

close;

}

 

////////////////////////

// DOOR

///////////////////////

 

prontera.gat,167,167,5 script Porte 76,{

if(countitem(7779) >=1) goto l_cle;

close;

L_cle:

warp "jawaii_in",115,63;

close;

}

up plz