1
loop ("count":o:,$x){
loop ("count":o:,$x){
create "unit",9,"info",1;
script=start 	on:use { 		if ( ((count_behaviourinrange("object","fountain",50)+count_behaviourinrange("object","watersource",50))>0) or (inarea_freshwater("unit",1)==1) ){ 			alteritem 1,38; 			msg "I filled the bottle",4; 			msg "with fresh water!",4; 			speech "positive"; 		}elseif{ 			local $y; 			$y=gety("unit",1); 				if ($y<1){ 				alteritem 1,150; } 		freevar $y,$ty; 		} else { 			msg "I have to be close",3; 			msg "to some water!",3; 			speech "negative"; 		} 	}