alberta.gat,188,64,4	script	َql	91,{
	set @maplenum,0;
	set @mapleItemID,0;
	set @maplePrice,0;
	set @maplePriceT,0;
	mes "[Cv=VK[]";
	mes "Ⴂ܂I";
	mes "َq͂łH";
	mes "tlccȂācc";
	mes "Ax^َ̂qEl";
	mes "ꐶَqłB";
	next;
	mes "[Cv=VK[]";
	mes "l";
	mes "v[ĝԂɁcc";
	mes "ŜA܂`";
	mes "َq͂ł`H";
	next;
	menu "I",-,"܂B",Lend,"tlH",L1;

		mes "[Cv=VK[]";
		mes "͂I";
		mes "炪j[ɂȂĂ܂`";
		mes "Ɍ肪邽";
		mes "܂Ƃߔ^ff00005^000000܂ł";
		mes "Ă܂ˁB";
		next;
		menu "LfB",L0_1,"XeBbNLfB",L0_2,"悭ĂNbL[",L0_3;
L0_1:
	set @maplePrice,3000;
	set @mapleItemID,529;
	mes "[Cv=VK[]";
	mes "LfBłˁ`";
	mes "3000ZenyɂȂ܂`";
	mes "グłH";
	next;
	goto Linput;
L0_2:
	set @maplePrice,4000;
	set @mapleItemID,530;
	mes "[Cv=VK[]";
	mes "XeBbNLfBłˁ`";
	mes "4000ZenyɂȂ܂`";
	mes "グłH";
	next;
	goto Linput;
L0_3:
	set @maplePrice,2000;
	set @mapleItemID,538;
	mes "[Cv=VK[]";
	mes "悭ĂNbL[łˁ`";
	mes "2000ZenyɂȂ܂`";
	mes "グłH";
	next;
	goto Linput;
Linput:
	input @maplenum;
	if (@maplenum > 5) goto LError;
	if (@maplenum <= 0) goto Lend;
	set @maplePriceT,@maplePrice*@maplenum;
	if (Zeny < @maplePriceT) goto LError2;
		set Zeny,Zeny-@maplePriceT;
		getitem @mapleItemID,@maplenum;
		mes "[Cv=VK[]";
		mes "肪Ƃ܂`";
		mes "َ̂qA{ɔł`";
		mes "tَ̂q͐EȂłI";
		mes "ŐHׂĂ낵ł";
		mes "݂ɂȂđȂ悤";
		mes "CĂ˂B";
		close;
L1:
		mes "[Cv=VK[]";
		mes "A͂B";
		mes "̂tl";
		mes "َqEl̃N[xl";
		mes "LVlłB";
		mes "ľłَq";
		mes "CsĂĂ܂`";
		next;
		mes "[Cv=VK[]";
		mes "̎͂tlBX";
		mes "ړ̔Ă炵̂łcc";
		mes "ǂɋ̂́A";
		mes "ɂ͂킩܂񂯂ǁA";
		mes "ǂŉ邩܂ˁ`";
		close;
LError:
	mes "[Cv=VK[]";
	mes "HH";
	mes "ĂႢ܂H";
	mes "A݂łB";
	mes "xĂ܂H";
	mes "xɂグ̂";
	mes "^ff00005^000000܂łł`";
	next;
	goto Linput;
LError2:
	mes "[Cv=VK[]";
	mes "ccH";
	mes "qlA܂`";
	mes "xm߂̏";
	mes "肢܂`";
	close;
Lend:
	mes "[Cv=VK[]";
	mes "łcccOłB";
	mes "΂炭͂";
	mes "̔Ă܂̂ŁA";
	mes "~ȂA";
	mes "I";
	if (@mapleItemID == 0) close;
	next;
	mes "[Cv=VK[]";
	mes "AɌ肪܂̂";
	mes "߂Ɂcc";
	mes "肪Ƃ܂B";
	close;
}
