//===== rAthena Script ======================================= 
//= BattleGround System - KvM Item Dealer
//===== By: ================================================== 
//= L0ne_W0lf
//===== Current Version: ===================================== 
//= 1.0
//===== Compatible With: ===================================== 
//= rAthena 1.0
//===== Description: ========================================= 
//= [Official Conversion]
//= Kreiger Von Midgard Battleground Point redemption NPC
//= * NOTE * 
//= KvM Does NOT use items, but a character variable to
//= keep track of points. This NPC when talked to will
//= convert already-given tokens and convert them to points.
//= under the player variable kvm_point.
//===== Additional Comments: ================================= 
//= 1.0 First Version.
//============================================================

bat_room,151,144,3	script	KVM սڹ#a	734,{
	if (countitem(7773)) {
		set .@pointstoadd,countitem(7773);
		delitem 7773,.@pointstoadd;
		set kvm_point,kvm_point+.@pointstoadd;
		mes "[սڹ]";
		mes "ҿЩ "+getitemname(7773)+"?";
		mes "ڲֻ,";
		mes "ܰЩһ,";
		mes " "+.@pointstoadd+" "+getitemname(7773)+"s?";
		mes "ˣŪ ^580080"+ kvm_point +"^000000 KVM .";
		next;
	}
	if (checkweight(1201,1) == 0) {
		mes "- ȵ !! -";
		mes "- Ѿ -";
		mes "- ̫ණ. -";
		mes "- ѶĶֿ -";
		mes "- ҶԻ. -";
		close;
	}
	mes "[սڹ]";
	mes "";
	mes "Ǹ𷢷";
	mes "KVM Ľ.";
	mes "ѡ˽";
	mes "ҽΪ.";
	mes "ѡѡ.";
	next;
	set .@name$,strcharinfo(0);
	switch(select(" KVM Ŀ¼.: KVM Ʒ.:ѯ KVM .: KVM .: KVM .")) {
	case 1:
		mes "[սڹ]";
		mes "KVM Ŀ¼.";
		mes "ÿһҪ 2,000 ";
		mes "ÿһҪ 10  1200 ";
		mes "ѡʱ";
		mes ".";
		close2;
		readbook 11017,1;
		end;
	case 2:
		mes "[սڹ]";
		mes "뿴һƷ";
		mes "뿴ϸƷ";
		mes "鿴";
		mes "^3131FFKVM Ŀ¼^000000.";
		next;
		switch(select(":/װƷ:Ϳ/װƷ:ռͿ/װƷ")) {
		case 1:
			mes "[սڹ]";
			mes "ѡ.";
			mes "ѡҪ.";
			next;
			switch(select("̽//ì:///｣:/ȭ//:/ȭ:ǹ//ֻǹ/ǹ/")) {
			case 1:
				mes "[սڹ]";
				mes "ѡ ̽//ì.";
				mes "ѡҪ.";
				next;
				switch(select("̽:ֽ:˫ֽ:ì:˫ì")) {
				case 1: callsub PurchaseItem,13042,0,1; //Krieger_Dagger1 
				case 2:
					mes "[սڹ]";
					mes "ѡ 'ֽ' .";
					mes "3  ֽ: ٹ֮, ٹϸ  ٹ⸴.";
					mes "֪ÿѽϸ鿴 KVM Ŀ¼.";
					mes "ѡ.";
					next;
					switch(select("ٹ֮:ٹϸ:ٹ⸴")) {
					case 1: callsub PurchaseItem,13416,0,0; //Krieger_Onehand_Sword1
					case 2: callsub PurchaseItem,13417,0,0; //Krieger_Onehand_Sword2
					case 3: callsub PurchaseItem,13418,0,0; //Krieger_Onehand_Sword3
					}
				case 3: callsub PurchaseItem,1187,0,1; //Krieger_Twohand_Sword1
				case 4: callsub PurchaseItem,1426,0,1; //Krieger_Onehand_Spear1
				case 5: callsub PurchaseItem,1486,0,1; //Krieger_Twohand_Spear1
				}
			case 2:
				mes "[սڹ]";
				mes "ѡ '///｣'.";
				mes "ѡҪ.";
				next;
				switch(select("::ָ:˫ָ:｣")) {
				case 1:
					mes "[սڹ]";
					mes "ѡ '' .";
					mes "3 : ٹⷨ, ٹ֮  ٹȨ.";
					mes "֪ÿϸ鿴 KVM Ŀ¼.";
					mes "ѡҪ.";
					next;
					switch(select("ٹⷨ:ٹ֮:ٹȨ")) {
					case 1: callsub PurchaseItem,2002,0,0; //Krieger_Twohand_Staff1
					case 2: callsub PurchaseItem,1640,0,0; //Krieger_Onehand_Staff1
					case 3: callsub PurchaseItem,1641,0,0; //Krieger_Onehand_Staff2
					}
				case 2: callsub PurchaseItem,1546,0,1; //Krieger_Onehand_Mace1
				case 3: callsub PurchaseItem,1310,0,1; //Krieger_Onehand_Axe1
				case 4: callsub PurchaseItem,1382,0,1; //Krieger_Twohand_Axe1
				case 5: callsub PurchaseItem,13307,0,1; //Krieger_Huuma_Shuriken1
				}
			case 3:
				mes "[սڹ]";
				mes "ѡ /ȭ//.";
				mes "ѡҪ.";
				next;
				switch(select(":ȭ::")) {
				case 1: callsub PurchaseItem,1743,0,1; //Krieger_Bow1
				case 2:
					mes "[սڹ]";
					mes "ѡ ȭ.";
					mes "2ȭ: ٹ  ٹȭ.";
					mes "֪ÿȭϸ鿴 KVM Ŀ¼.";
					mes "ѡҪ.";
					next;
					switch(select("ٹ:ٹȭ")) {
					case 1: callsub PurchaseItem,1281,0,0; //Krieger_Katar1
					case 2: callsub PurchaseItem,1282,0,0; //Krieger_Katar2
					}
				case 3: callsub PurchaseItem,1927,0,1; //Krieger_Instrument1
				case 4: callsub PurchaseItem,1981,0,1; //Krieger_Whip1
				}
			case 4:
				mes "[սڹ]";
				mes "ѡ /ȭ .";
				mes "ѡҪ.";
				next;
				switch(select(":ȭ")) {
				case 1:
					mes "[սڹ]";
					mes "ѡ ''.";
					mes "2: ٹ֮ and ٹʾ¼.";
					mes "֪ÿϸ鿴 KVM Ŀ¼.";
					mes "ѡҪ.";
					next;
					switch(select("ٹ֮:ٹʾ¼")) {
					case 1: callsub PurchaseItem,1576,0,0; //Krieger_Book1
					case 2: callsub PurchaseItem,1577,0,0; //Krieger_Book2
					}
				case 2:
					mes "[սڹ]";
					mes "ѡ 'ȭ' .";
					mes "2ȭ: ٹצ and ٹȭ.";
					mes "֪ȭϸ鿴 KVM Ŀ¼.";
					mes "ѡҪ.";
					next;
					switch(select("ٹצ:ٹȭ")) {
					case 1: callsub PurchaseItem,1826,0,0; //Krieger_Knuckle1
					case 2: callsub PurchaseItem,1827,0,0; //Krieger_Knuckle2
					}
				}
			case 5:
				mes "[սڹ]";
				mes "ѡ 'ǹ//ֻǹ/ǹ/.";
				mes "ѡҪ.";
				next;
				switch(select("ǹ::ֻǹ:ǹ:")) {
				case 1: callsub PurchaseItem,13110,0,1; //Krieger_Pistol1
				case 2: callsub PurchaseItem,13176,0,1; //Krieger_Rifle1
				case 3: callsub PurchaseItem,13177,0,1; //Krieger_Gatling1
				case 4: callsub PurchaseItem,13178,0,1; //Krieger_Shotgun1
				case 5: callsub PurchaseItem,13179,0,1; //Krieger_Launcher1
				}
			}
		case 2:
			mes "[սڹ]";
			mes "ѡ װ/װƷ.";
			mes "ѡҪ.";
			next;
			switch(select("::Ь:װƷ")) {
			case 1: callsub PurchaseItem,2394,1,2; //Krieger_Suit1
			case 2: callsub PurchaseItem,2549,2,2; //Krieger_Muffler1
			case 3: callsub PurchaseItem,2444,3,2; //Krieger_Shoes1
			case 4: callsub PurchaseItem,2772,4,2; //Krieger_Ring1
			}
		case 3:
			mes "[սڹ]";
			mes "ѡ 'װ/װƷ' .";
			mes "ѡҪ.";
			next;
			switch(select("Ϳ:Ь:װƷ")) {
			case 1: callsub PurchaseItem,2395,5,3; //Krieger_Suit2
			case 2: callsub PurchaseItem,2445,6,3; //Krieger_Shoes2
			case 3: callsub PurchaseItem,2773,7,3; //Krieger_Ring2
			}
		case 4:
			mes "[սڹ]";
			mes "ѡ 'ռ װ/װƷ' .";
			mes "ѡҪ.";
			next;
			switch(select("ռͿ:ռЬ:ռװƷ")) {
			case 1: callsub PurchaseItem,2396,8,4; //Krieger_Suit3
			case 2: callsub PurchaseItem,2446,9,4; //Krieger_Shoes3
			case 3: callsub PurchaseItem,2774,10,4; //Krieger_Ring3
			}
		}
	case 3:
		mes "[սڹ]";
		mes ""+ .@name$ +", Ŀǰĵ ^580080"+ kvm_point +"^000000 KVM .";
		close;
	case 4:
		mes "[սڹ]";
		mes "KVM : /װ/װƷ.";
		next;
		mes "[սڹ]";
		mes "ÿҪ 2,000 KVM .";
		mes "ÿװֱҪ 840/630/580 KVM .";
		mes "ÿװƷҪ 1,200 KVM .";
		next;
		mes "[սڹ]";
		mes "KVM are LV 4 , ǿԱЧ: ɱ,  and ʹ֮͸.";
		next;
		mes "[սڹ]";
		mes "һװ, һЧ.";
		mes "KVMװƷҲЧ.";
		next;
		mes "[սڹ]";
		mes "͵װ.";
		mes "lv 60 ϵҿװ Щװ ռװҲеȼ.";
		close;
	case 5:
		mes "[սڹ]";
		mes "KVM  KVMսϵõĽ (KVM).";
		mes "ͨװ.";
		close;
	}

PurchaseItem:
	// Pricing for Weapon, Suit1, Muffler1, Shoes1, Ring1m Suit2, Shoes2, Ring2, Suit3, Shoes3, Ring3
	setarray .@prices[0],2000,840,630,580,1200,120,70,200,15,10,30;

	mes "[սڹ]";

	if (!getarg(2))
		mes "Ѿѡ";
	else if (getarg(2) == 1)
		mes "ֻһ: "+getitemname(getarg(0))+".";
	else if (getarg(2) == 2) {
		mes "Ѿѡ";
		mes "ڵȼ80ðߣװ: ^ff0000"+getitemname(getarg(0))+"^000000.";
	}
	else if (getarg(2) == 3) {
		mes "Ѿѡ͵";
		mes "ֻһ͵: ^ff0000"+getitemname(getarg(0))+"^000000.";
	}
	else if (getarg(2) == 4) {
		mes "ѡռ͵";
		mes "ֻһռ͵: ^ff0000"+getitemname(getarg(0))+"^000000.";
	}

	if (!getarg(1))
		mes "һҪΪ ^0000ff2,000^000000 KVM㣬 "+ .@name$ +", ĵ: ^580080"+ kvm_point +"^000000.";
	else if (getarg(1) == 4)
		mes "һҪΪ ^0000ff1,200^000000 KVM㣬 "+ .@name$ +", ĵ: ^580080"+ kvm_point +"^000000.";
	else
		mes "һҪΪ ^0000ff"+.@prices[getarg(1)]+"^000000 KVM㣬 "+ .@name$ +", ĵ: ^580080"+ kvm_point +"^000000.";

	mes "ȷҪƷ";
	next;
	switch(select("Ҳ:ðɣҾ")) {
	case 1:
		mes "[սڹ]";
		mes "ѡˡҲ";
		mes "Ʒʱעû˿";
		break;
	case 2:
		if (kvm_point >= .@prices[getarg(1)]) {
			set kvm_point,kvm_point-.@prices[getarg(1)];
			getitem getarg(0),1;
			mes "[սڹ]";
			mes "You have purchased a "+getitemname(getarg(0))+".";
			if (!getarg(1))
				mes "KVM㽵 ^0000ff"+getarg(1)+"^000000 㣬ڵKVM ^580080"+kvm_point+"^000000.";
			if (getarg(1) == 4)
				mes "KVM㽵 ^0000ff1,200^000000 㣬ڵKVM ^580080"+kvm_point+"^000000.";
			else
				mes "KVM㽵 ^0000ff"+.@prices[getarg(1)]+"^000000 㣬ڵKVM ^580080"+kvm_point+"^000000.";
		}
		else {
			mes "[սڹ]";
			if (!getarg(1))
				mes "Ҫ ^0000ff2,000^000000 KVM㹺Ʒ";
			else if (getarg(1) == 4)
				mes "Ҫ ^0000ff1,200^000000 KVM㹺Ʒ";
			else
				mes "Ҫ ^0000ff"+.@prices[getarg(1)]+"^000000 KVM㹺Ʒ";
			mes "However, ڵKVM ^580080"+ kvm_point +"^000000.";
			mes "㻹";
			mes "㹻ķ";
		}
	}
	close;
}
