// http://rathena.org/board/topic/72531-change-a-map-bgm/

-	script	PlayBGM	-1,{
OnInit:
	setarray .range,1,145;
	.default = 1;
	bindatcmd "@bgm","PlayBGM::OnPlay";
	end;
	
OnPlay:
	input .@bgm;
	if (.@bgm < .range[0] || .@bgm > .range[1]) {
		dispbottom "BGM: ("+.range[0]+"-"+.range[1]+")";
		.@bgm = .default;
	}
	.@c$ = .@bgm;
	.@str$ = (getstrlen(.@c$) == 1)?insertchar(.@c$,"0",0):.@c$;
	playBGM	.@str$;
	end;
}