prt_monk.gat,225,102,5	script	Fortune Teller	920,{
	mes "[Fortune Teller]";
        mes "Hey! I'm the 'Fortune Teller!'";
        mes "I'm part of the Arc Fun Factor.";
	next;
	mes "[Fortune Teller]";
	mes "Oh, I don't really tell your fortune, but I do have something you can buy that CAN make you a fortune!"
        mes "I sell Old Blue Boxes, Old Violet Boxes, and Old Card Albums.";
	mes "Do you want some? OBBs are 50k and OVBs 60k.  Oh, and OCAs are 70k"
	next;
	menu "I want Old Blue Boxes!",LOBB,"I want Old Violet Boxes!",LOVB,"I want Old Card Albums!",LOCA,"You expensive fool!",LCancel;

	LOBB:
		mes "[Fortune Teller]";
		mes "Ah, so you want some Old Blue Boxes eh?  Well I have a special deal for you...";
		mes "1 OBB, 50,000 zeny.  5 OBBs, 150,000 Zeny.  25 OBBs, 1,000,000 Zeny.";
		next;
		mes "[Fortune Teller]";
		mes "If I were you, I'd get the 25 OBBs, I mean it's a great discount, right??";
		mes "Careful though, the items 4.0 and above give errors if you're running iRO!";
		mes "So what is it going to be?";
		next;
		menu "1 Old Blue Box",L1OBB,"5 Old Blue Boxes",L5OBB,"25 Old Blue Boxes",L25OBB,"Cancel",LCancelOBB;

		L1OBB:
			mes "[Fortune Teller]";
			mes "Ah, 1 OBB I see.  Well...";
			if((Zeny < 50000)) goto LNotEnough;
			mes "Mmm okay!  Here you go!";
			set Zeny,Zeny-50000;
			getitem 603,1;
			announce "Fortune Teller: + strcharinfo(0) + has bought an OBB! I hope you have good fortune!!";
			mes "...Super!  Have a good day/afternoon/evening!";
			close;

			LNotEnough:
				mes "[Fortune Teller]";
				mes "Errgh, you don't have enough zeny, I'm sorry but I can't give you my OBB...";
				close;

		L5OBB:
			mes "[Fortune Teller]";
			mes "Ah, 5 OBBs.  Someone's a hotshot aren't they. ^_~";
			next;
			mes "[Fortune Teller]";
			if((Zeny < 150000)) goto LNotEnough2;
			mes "Hm, seems good enough.  Here you go. ^-^";
			set Zeny,Zeny-150000;
			getitem 603,5;
			announce "Fortune Teller: + strcharinfo(0) + has bought 5 OBBs! I hope you have good fortune!!";
			mes "...Hope you have a great day/afternoon/evening!";
			close;

			LNotEnough2:
				mes "[Fortune Teller]";
				mes "Errgh, you cheater, I'm sorry but I can't give you the 5 OBBs...";
				mes "Come back with the right amount of zeny next time...";
				close;

		L25OBB:
			mes "[Fortune Teller]";
			mes "Oh my!  Gypsies of the high, tell me I'm not dreaming!";
			mes "Wow!  I'm not!  You really are going to buy TWENTY FIVE OLD BLUE BOXES!";
			next;
			mes "[Fortune Teller]";
			if((Zeny < 1000000)) goto LNotEnough3;
			mes ";___;  You made me a rich woman, I'm about to cry. *already crying*";
			set Zeny,Zeny-1000000;
			getitem 603,25;
			announce "Fortune Teller: Wow! + strcharinfo(0) + has bought 25 OBBs!! Everybody jump that person for their OBBs!";
			mes "Come back...buy more Old Blue Boxes from me!";
			close;

			LNotEnough3:
				mes "[Fortune Teller]";
				mes "Grr...";
				close;

		LCancelOBB:
			mes "[Fortune Teller]";
			mes "Eh, you win some you lose some.";
			close;

	LOVB:
		mes "[Fortune Teller]";
		mes "You Old Violet Box person!  Full of equipment.  Well, the prices are:";
		mes "1 OVB, 60,000 zeny.  5 OVBs, 160,000 Zeny.  25 OVBs, 2,000,000 Zeny.";
		next;
		mes "[Fortune Teller]";
		mes "Aim for the 25 OVBs.  Those give some pretty good stuff!";
		mes "Be careful, if you get a 4.0 item running on iRO youre screwed.";
		mes "So are you going to buy one, five?? 25????";
		next;
		menu "1 Old Violet Box",L1OVB,"5 Old Violet Boxes",L5OVB,"25 Old Violet Boxes",L25OVB,"Cancel",LCancelOVB;

		L1OVB:
			mes "[Fortune Teller]";
			mes "1 OVB you say, okay!";
			next;
			mes "[Fortune Teller]";
			if((Zeny < 60000)) goto LNotEnough4;
			mes "Alrighty...";
			set Zeny,Zeny-60000;
			getitem 617,1;
			announce "Fortune Teller: + strcharinfo(0) + has bought an OVB! I hope you have good fortune!!";
			mes "...Super!  Have a good day/afternoon/evening!";
			close;

			LNotEnough4:
				mes "[Fortune Teller]";
				mes "Yo, you don't have enough zeny, oh well.";
				close;

		L5OVB:
			mes "[Fortune Teller]";
			mes "Ah, 5 OVBs.  Perhaps you'll get a good piece of equipment in those.  Who knows?";
			next;
			mes "[Fortune Teller]";
			if((Zeny < 160000)) goto LNotEnough5;
			mes "Hm, seems good enough.  Here you go. ^-^";
			set Zeny,Zeny-160000;
			getitem 617,5;
			announce "Fortune Teller: + strcharinfo(0) + has bought 5 OVBs! I hope you have good fortune!!";
			mes "Good luck.";
			close;

			LNotEnough5:
				mes "[Fortune Teller]";
				mes "Errgh, you cheater, I'm sorry but I can't give you the 5 OVBs...";
				mes "Just go away.";
				close;

		L25OVB:
			mes "[Fortune Teller]";
			mes "No!  Hear me out now, you must buy more than this, right now!";
			mes "Well, you can't because there's a set limit. >.> You really are going to buy TWENTY FIVE OLD VILOET BOXES!";
			next;
			mes "[Fortune Teller]";
			if((Zeny < 2000000)) goto LNotEnough6;
			mes ";___;  You made me a rich...RICH AS HELL!";
			set Zeny,Zeny-2000000;
			getitem 617,25;
			announce "Fortune Teller: Wow! + strcharinfo(0) + has bought 25 OVBs!! Everybody jump that person for their OVBs!";
			mes "Buy more Old Violet Boxes from me!!";
			close;

			LNotEnough6:
				mes "[Fortune Teller]";
				mes "I shall never, sell to you again, oh well I don't have a choice to not serve you. x_X";
				close;

		LCancelOVB:
			mes "[Fortune Teller]";
			mes "Eh, come back later then.";
			close;

	LOCA:
		mes "[Fortune Teller]";
		mes "Ah yes, the Old Card Albums!  Some may be worth much, and others just not.";
		mes "The prices are:";
		mes "1 OCA, 70,000 zeny.  5 OCAs, 160,000 Zeny.  25 OCAs, 1,500,000 Zeny.";
		mes "It's funny how 25 OCAs are cheaper then 25 OVBs...";
		next;
		mes "[Fortune Teller]";
		mes "Even though these are just cards, Comodo Card data is in here and CAN CRASH YOU.";
		mes "Buy 1, 5, 25?";
		next;
		menu "1 Old Card Album",L1OCA,"5 Old Card Albums",L5OCA,"25 Old Card Albums",L25OCA,"Cancel",LCancelOCA;

		L1OCA:
			mes "[Fortune Teller]";
			mes "1 OCA you say, mmkay!";
			next;
			mes "[Fortune Teller]";
			if((Zeny < 70000)) goto LNotEnough7;
			mes "Alrighty...";
			set Zeny,Zeny-70000;
			getitem 616,1;
			announce "Fortune Teller: + strcharinfo(0) + has bought an OCA! I hope you have good fortune!!";
			mes "...Uukey, have a nice day!";
			close;

			LNotEnough7:
				mes "[Fortune Teller]";
				mes "Err, are you trying to cheat me out of my OCA??";
				close;

		L5OCA:
			mes "[Fortune Teller]";
			mes "Ah, 5 OCAs I see.  You'll get *cough*good*cough* cards in those.  Maybe so?";
			next;
			mes "[Fortune Teller]";
			if((Zeny < 170000)) goto LNotEnough8;
			mes "Hm, well the price is right. ";
			set Zeny,Zeny-170000;
			getitem 616,5;
			announce "Fortune Teller: + strcharinfo(0) + has bought 5 OCAs! I hope you have good fortune!!";
			mes "Good luck.";
			close;

			LNotEnough8:
				mes "[Fortune Teller]";
				mes "170,000 Zeny my foot.";
				close;

		L25OCA:
			mes "[Fortune Teller]";
			mes "No!  Hear me out now, you must buy more than this, right now!";
			mes "Well, you can't because there's a set limit. >.> You really are going to buy TWENTY FIVE OLD VILOET BOXES!";
			next;
			mes "[Fortune Teller]";
			if((Zeny < 2000000)) goto LNotEnough9;
			mes ";___;  You made me a rich...RICH AS HELL!";
			set Zeny,Zeny-2000000;
			getitem 616,25;
			announce "Fortune Teller: Wow! + strcharinfo(0) + has bought 25 OCAs!! Everybody jump that person for their OCAs!";
			mes "Come back...buy more Old Card Albums from me!  My hero! ^^~";
			close;

			LNotEnough9:
				mes "[Fortune Teller]";
				mes "Bleh. x_X";
				close;

		LCancelOCA:
			mes "[Fortune Teller]";
			mes "Eh, less cards for you, more for the rich.";
			close;

	LCancel:
		mes "[Fortune Teller]";
		mes "I don't know what you heard about me.";
		mes "But you won't get a freebie out of me.";
		next;
		mes "[Fortune Teller]";
		mes "Because I'm a F.O.R.T.U.N.E. T.E.L.L.E.R...I.M.P!";
		mes ">.> So I'm not good at rapping.  Whatever you aren't getting anything from me.";
		close;

}