-	script	Kafra	-1,{
mes "Hi, i am Kafra";
switch( select( "Save",
				"Storage",
				"Warp",
				"Information" )){
	Case 1:
		getmapxy( .@Map$,.@X,.@Y,0 );
		save .@Map$,.@X,.@Y;
		mes "Saved.";
		break;
	Case 2:
		mes "Wait awhile.";
		close2;
		openstorage;
		end;
	Case 3:
		warp "prontera",155,181;
		end;
	
	default:
	Case 4:
		mes "This is a Kafra.";
		break;
}
close;
}

alberta,181,144,5	duplicate(Kafra)	Kafra#1	757
alberta,182,144,5	duplicate(Kafra)	Kafra#2	757
alberta,183,144,5	duplicate(Kafra)	Kafra#3	757
alberta,184,144,5	duplicate(Kafra)	Kafra#4	757
alberta,185,144,5	duplicate(Kafra)	Kafra#5	757