prontera,150,150,0	script	Sample	100,{
mes $npc$;
mes "What do you want?";
next;
if (select("- Increase my strength:- Nothing") - 1) close;
mes $npc$;
mes "Orayt then, Increase by how many? (1-50)";
next;
input @input;
if (@input > 50 || @input == 0) close;
mes $npc$;
mes "So you want to increase your strength by " +@input+ "?";
next;
if (select("Yes:No") - 1) close;
mes $npc$;
mes "Done!";
set @desire,1;
close;

OnPCStatCalcEvent:
	if (@desire == 1) {
		bonus bstr, @input;
	}
	end;

OnInit:
	set $npc$,"["+strnpcinfo(1)+"]";
	end;
}