// TMW2 Script
// Author:
//  Jesusalva
// Description:
//  Trades Strange Coins for useful items

001-1,243,26,0	script	Aeros Trader	NPC_M_COINKEEPER,{
    mesn;
    mesq l("Oh, hello there! Welcome to the Mana Plain Of Existence!");
    next;
    mesn;
    mesq l("In this wonderful realm, you can find and earn many @@, our currency!", getitemlink(StrangeCoin));
    next;
    mesn;
    mesq l("You can then trade these coins for items with me!");
    next;
    openshop;
    closedialog;
    close;

OnInit:
    .@npcId = getnpcid(0, .name$);
    setunitdata(.@npcId, UDT_HEADTOP, TopHat);
    setunitdata(.@npcId, UDT_HEADMIDDLE, GoldenWarlordPlate);
    setunitdata(.@npcId, UDT_WEAPON, JeansChaps);
    setunitdata(.@npcId, UDT_HEADBOTTOM, AssassinBoots);
    setunitdata(.@npcId, UDT_HAIRSTYLE, 25);
    setunitdata(.@npcId, UDT_HAIRCOLOR, 4);

    .sex = G_MALE;
    .distance = 5;

	tradertype(NST_CUSTOM);

	// Rare Equipment selection.
    // *these* are really rare!
	sellitem ThunderStaff,10000;
	sellitem PiouEgg,4350;
	sellitem DeliciousCookie,3600;
    sellitem TopHat, 1800;
    sellitem BowlerHat, 800;
	sellitem AshUrn,700;
	sellitem Googles,600;

    // Temporary, Seasonal, for events, rare drops, next release
	sellitem BlacksmithAxe, 36000;
    sellitem DesertBow, 9000;
    sellitem LeaderWand, 6000;
    sellitem MiereCleaver, 3000;
    sellitem Chainmail, 3000;
    sellitem LeatherShirt, 350;
    sellitem JeansShorts, 300;

    // Awesome Feature, pending quest, DO NOT FORGET, @JESUSALVA
	sellitem IronShovel,200;

    // Temporary, but later may sell rare dyes (eg. purple and... golden?)
    sellitem RedDye, 50;
    sellitem GreenDye, 50;
    sellitem BlueDye, 40;

    // Consumables
	sellitem ElixirOfLife,35;
	sellitem CelestiaTea,20;
	sellitem Grenade,rand(10,15); // I really don't care about the price of this. Used to be 12.
    sellitem CursedArrow,10;
	sellitem Curshroom,7;
	sellitem Plushroom,5;
	sellitem Chagashroom,5;
	sellitem PetcaringGuide,5; // I needed to add this somewhere
	end;

/* set currency to be item 828 */
OnCountFunds:
	setcurrency(countitem(StrangeCoin));
	end;

/* @price is total cost. @points is if we accept two items as currency. */
OnPayFunds:
	//dispbottom "Hi: price="+@price+" and points="+@points;
	if( countitem(StrangeCoin) < @price )
		end;
	delitem StrangeCoin,@price;
	purchaseok();
	end;

}