path: root/npc/other/comodo_gambling.txt

//===== eAthena Script =======================================
//= Comodo Gambling
//===== By: ==================================================
//= Reddozen, Cypress, Zefris
//===== Current Version: =====================================
//= 0.5
//===== Compatible With: =====================================
//= Any eAthena Version
//===== Description: =========================================
//= Random items from 3crt diamonds in Comodo
//===== Additional Comments: =================================
//= 0.1- so far just a basic setup, and working on the function
//= 0.2- fixed some spelling errors and set zeny,zeny - (@amount * 55000)[Cypress]
//= 0.3- Revised the gambling NPC using the official Aegis script [MasterOfMuppets]
//=	 for information. Thanks to Zefris for doing it for me.
//= 0.4- Fixed an exploit. thanks to reddozen [MasterOfMuppets]
//= 0.5- Moved item check to the proper place [Lupus]
//============================================================ 

mjolnir_02.gat,85,364,3	script	Blacksmith Miner	726,{

	mes "[Dwayne]";
	mes "Wahahahaha~";
	mes "I've dug up a fortune!";
	next;

	mes "[Dwayne]";
	mes "Diamonds! Hundreds and";
	mes "thousands of Diamonds,";
	mes "all of them mine!";
	mes "I'm rich!";
	next;

	menu "I want to buy some.",L1,"Congratulations.",-;

	mes "[Dwayne]";
	mes "Haha, thank you~";
	mes "If by any chance";
	mes "you need a diamond,";
	mes "please drop by.";
	mes "I'll sell them to";
	mes "you at a cheap price.";
	close;

	L1:
		mes "[Dwayne]";
		mes "Ah, you have an";
		mes "eye for valuables!";
		mes "Sure, sure why not!";
		mes "I'll give you a discount, too!";
		mes "55,000 Zeny for a diamond,";
		mes "how does that sound?";
		next;

		mes "[Dwayne]";
		mes "How many";
		mes "diamonds do you need?";
		mes "If you change your mind";
		mes "please enter '0' to cancel";
		next;

		set @amount, 0;
		input @amount;
		if(@amount<1){
			mes "[Dwayne]";
			mes "Alright, you've";
			mes "canceled the trade.";
			mes "Take care!";
			close;
		}
		if((@amount*55000>zeny) || (@amount>500)){
			mes "[Dwayne]";
			mes "Hahahaha~";
			mes "You can't fool me!";
			mes "You dont have enough";
			mes "Zeny for that many!";
			close;
		}
		set zeny,zeny - (@amount * 55000);
		getitem 732, @amount;
		mes "[Dwayne]";
		mes "Thank you for";
		mes "buying my diamonds!";
		mes "You're welcome to";
		mes "come back anytime.";
		close;

}


comodo.gat,219,160,3	script	Kachua	91,{

	mes "[Kachua]";
	mes "Diamonds...!";
	mes "I simply can't get my mind off";
	mes "them! Ever since that man showed me";
	mes "that diamond, it's been all I think";
	mes "about!";
	next;
	menu "Would you like to have mine?",L_1,"Ah, what a shame...",-;

	mes "[Kachua]";
	mes "Yes, I know...";
	mes "Even among everything";
	mes "in my collections, nothing";
	mes "compares to diamonds...";
	close;

	L_1:
		mes "[Kachua]";
		mes "Are you sure you don't mind";
		mes "giving this to me? Thank you";
		mes "so much! I don't have much in";
		mes "the way of money, but i can give";
		mes "you something from one of my";
		mes "collections~";
		next;

		mes "[Kachua]";
		mes "So what would";
		mes "you like to have?";
		next;
	
		set @item,512;
		switch( select( "Weapon", "Armor", "Garment", "Helmet", "Shoes", "Shield" ) )
		{
			case 255:
				end;
										case 1: // Weapons
											set @gamble,rand(1,1000);
											if ((@gamble > 920) && (@gamble < 931))
												{
												set @gamble2,rand(1,51);
												if (@gamble2 == 1)
													set @item,1128;
												else if (@gamble2 == 2)
													set @item,1120;
												else if (@gamble2 == 3)
													set @item,1127;
												else if (@gamble2 == 4)
													set @item,1158;
												else if (@gamble2 == 5)
													set @item,1155;
												else if (@gamble2 == 6)
													set @item,1220;
												else if (@gamble2 == 7)
													set @item,1222;
												else if (@gamble2 == 8)
													set @item,1253;
												else if (@gamble2 == 9)
													set @item,1529;
												else if (@gamble2 == 10)
													set @item,1251;
												else if (@gamble2 == 11)
													set @item,1361;
												else if (@gamble2 == 12)
													set @item,1258;
												else if (@gamble2 == 13)
													set @item,1257;
												else if (@gamble2 == 14)
													set @item,1256;
												else if (@gamble2 == 15)
													set @item,1259;
												else if (@gamble2 == 16)
													set @item,1260;
												else if (@gamble2 == 17)
													set @item,1716;
												else if (@gamble2 == 18)
													set @item,1715;
												else if (@gamble2 == 19)
													set @item,1711;
												else if (@gamble2 == 20)
													set @item,1702;
												else if (@gamble2 == 21)
													set @item,1520;
												else if (@gamble2 == 22)
													set @item,1610;
												else if (@gamble2 == 23)
													set @item,1615;
												else if (@gamble2 == 24)
													set @item,1602;
												else if (@gamble2 == 25)
													set @item,1461;
												else if (@gamble2 == 26)
													set @item,1402;
												else if (@gamble2 == 27)
													set @item,1953;
												else if (@gamble2 == 28)
													set @item,1957;
												else if (@gamble2 == 29)
													set @item,1552;
												else if (@gamble2 == 30)
													set @item,1551;
												else if (@gamble2 == 31)
													set @item,1553;
												else if (@gamble2 == 32)
													set @item,1554;
												else if (@gamble2 == 33)
													set @item,1555;
												else if (@gamble2 == 34)
													set @item,1556;
												else if (@gamble2 == 35)
													set @item,1951;
												else if (@gamble2 == 36)
													set @item,1959;
												else if (@gamble2 == 37)
													set @item,1961;
												else if (@gamble2 == 38)
													set @item,1955;
												else if (@gamble2 == 39)
													set @item,1810;
												else if (@gamble2 == 40)
													set @item,1910;
												else if (@gamble2 == 41)
													set @item,1906;
												else if (@gamble2 == 42)
													set @item,1902;
												else if (@gamble2 == 43)
													set @item,1904;
												else if (@gamble2 == 44)
													set @item,1912;
												else if (@gamble2 == 45)
													set @item,1908;
												else if (@gamble2 == 46)
													set @item,1808;
												else if (@gamble2 == 47)
													set @item,1802;
												else if (@gamble2 == 48)
													set @item,1812;
												else if (@gamble2 == 49)
													set @item,1806;
												else if (@gamble2 == 50)
													set @item,1804;
												else if (@gamble2 == 51)
													set @item,1550;
												}
											else if ((@gamble > 0) && (@gamble < 201))
												set @item,1201;
											else if ((@gamble > 200) && (@gamble < 301))
												set @item,1101;
											else if ((@gamble > 300) && (@gamble < 401))
												set @item,1601;
											else if ((@gamble > 400) && (@gamble < 501))
												set @item,1116;
											else if ((@gamble > 500) && (@gamble < 601))
												set @item,1250;
											else if ((@gamble > 600) && (@gamble < 701))
												set @item,1301;
											else if ((@gamble > 700) && (@gamble < 801))
												set @item,1701;
											else if ((@gamble > 800) && (@gamble < 851))
												set @item,1504;
											else if ((@gamble > 850) && (@gamble < 901))
												set @item,1604;
											else if ((@gamble > 900) && (@gamble < 911))
												set @item,1108;
											else if ((@gamble > 910) && (@gamble < 921))
												set @item,1163;
											else if ((@gamble > 930) && (@gamble < 961))
												set @item,1522;
											else if ((@gamble > 960) && (@gamble < 971))
												set @item,1608;
											else if ((@gamble > 970) && (@gamble < 981))
												set @item,1408;
											else if ((@gamble > 980) && (@gamble < 991))
												set @item,1452;
											else if ((@gamble > 990) && (@gamble < 1001))
												set @item,1208;
									break;

									case 2: // Armors
										set @gamble,rand(1,500);
											if ((@gamble > 299) && (@gamble < 302))
												{
												set @gamble2,rand(1,30);
												if ((@gamble2 > 0) && (@gamble2 < 3))
													set @item,2315;
												else if ((@gamble2 > 2) && (@gamble2 < 5))
													set @item,2336;
												else if ((@gamble2 > 4) && (@gamble2 < 7))
													set @item,2318;
												else if ((@gamble2 > 6) && (@gamble2 < 9))
													set @item,2326;
												else if ((@gamble2 > 8) && (@gamble2 < 11))
													set @item,2327;
												else if ((@gamble2 > 10) && (@gamble2 < 13))
													set @item,2317;
												else if ((@gamble2 > 12) && (@gamble2 < 15))
													set @item,2331;
												else if ((@gamble2 > 14) && (@gamble2 < 17))
													set @item,2342;
												else if ((@gamble2 > 16) && (@gamble2 < 19))
													set @item,2311;
												else if ((@gamble2 > 18) && (@gamble2 < 21))
													set @item,2320;
												else if ((@gamble2 > 20) && (@gamble2 < 23))
													set @item,2319;
												else if ((@gamble2 > 22) && (@gamble2 < 25))
													set @item,2344;
												else if ((@gamble2 > 24) && (@gamble2 < 27))
													set @item,2346;
												else if ((@gamble2 > 26) && (@gamble2 < 29))
													set @item,2348;
												else if ((@gamble2 > 28) && (@gamble2 < 31))
													set @item,2350;
												}
											else if ((@gamble > 0) && (@gamble < 51))
												set @item,2301;
											else if ((@gamble > 50) && (@gamble < 101))
												set @item,2302;
											else if ((@gamble > 100) && (@gamble < 151))
												set @item,2303;
											else if ((@gamble > 150) && (@gamble < 201))
												set @item,2304;
											else if ((@gamble > 200) && (@gamble < 251))
												set @item,2305;
											else if ((@gamble > 250) && (@gamble < 300))
												set @item,2301;
											else if ((@gamble > 301) && (@gamble < 351))
												set @item,2307;
											else if ((@gamble > 350) && (@gamble < 401))
												set @item,2309;
											else if ((@gamble > 400) && (@gamble < 402))
												set @item,2322;
											else if ((@gamble > 401) && (@gamble < 403))
												set @item,2310;
											else if ((@gamble > 402) && (@gamble < 411))
												set @item,2306;
											else if ((@gamble > 410) && (@gamble < 416))
												set @item,2308;
											else if ((@gamble > 415) && (@gamble < 421))
												set @item,2313;
											else if ((@gamble > 420) && (@gamble < 426))
												set @item,2337;
											else if ((@gamble > 425) && (@gamble < 431))
												set @item,2316;
											else if ((@gamble > 430) && (@gamble < 436))
												set @item,2325;
											else if ((@gamble > 435) && (@gamble < 441))
												set @item,2341;
											else if ((@gamble > 440) && (@gamble < 446))
												set @item,2330;
											else if ((@gamble > 445) && (@gamble < 451))
												set @item,2314;
											else if ((@gamble > 450) && (@gamble < 456))
												set @item,2335;
											else if ((@gamble > 455) && (@gamble < 461))
												set @item,2324;
											else if ((@gamble > 460) && (@gamble < 466))
												set @item,2329;
											else if ((@gamble > 465) && (@gamble < 471))
												set @item,2340;
											else if ((@gamble > 470) && (@gamble < 476))
												set @item,2312;
											else if ((@gamble > 475) && (@gamble < 481))
												set @item,2339;
											else if ((@gamble > 480) && (@gamble < 486))
												set @item,2328;
											else if ((@gamble > 485) && (@gamble < 491))
												set @item,2321;
											else if ((@gamble > 490) && (@gamble < 501))
												set @item,2323;
									break;

									case 3:  // Garments
										set @gamble,rand(1,500);
											if ((@gamble > 200) && (@gamble < 204))
												{
												set @gamble2,rand(1,11);
												if ((@gamble2 > 0) && (@gamble2 < 3))
													set @item,2506;
												else if ((@gamble2 > 2) && (@gamble2 < 5))
													set @item,2504;
												else if ((@gamble2 > 4) && (@gamble2 < 8))
													set @item,2508;
												else if ((@gamble2 > 7) && (@gamble2 < 11))
													set @item,2507;
												else if (@gamble2 == 11)
													set @item,2523;
												}
											else if ((@gamble > 0) && (@gamble < 101))
												set @item,2503;
											else if ((@gamble > 100) && (@gamble < 201))
												set @item,2505;
											else if ((@gamble > 203) && (@gamble < 451))
												set @item,2501;
											else if ((@gamble > 450) && (@gamble < 501))
												set @item,2502;
									break;

									case 4: //headgears
										set @gamble,rand(1,1000);
											if ((@gamble > 299) && (@gamble < 304))
												{
												set @gamble2,rand(1,76);
												if ((@gamble2 > 0) && (@gamble2 < 3))
													set @item,5109;
												else if ((@gamble2 > 2) && (@gamble2 < 5))
													set @item,2285;
												else if ((@gamble2 > 4) && (@gamble2 < 7))
													set @item,2255;
												else if ((@gamble2 > 6) && (@gamble2 < 9))
													set @item,5045;
												else if ((@gamble2 > 8) && (@gamble2 < 11))
													set @item,2233;
												else if ((@gamble2 > 10) && (@gamble2 < 13))
													set @item,2231;
												else if ((@gamble2 > 12) && (@gamble2 < 15))
													set @item,2217;
												else if ((@gamble2 > 14) && (@gamble2 < 17))
													set @item,2206;
												else if ((@gamble2 > 16) && (@gamble2 < 19))
													set @item,2246;
												else if ((@gamble2 > 18) && (@gamble2 < 21))
													set @item,2261;
												else if ((@gamble2 > 20) && (@gamble2 < 23))
													set @item,2287;
												else if ((@gamble2 > 22) && (@gamble2 < 25))
													set @item,5012;
												else if ((@gamble2 > 24) && (@gamble2 < 27))
													set @item,2244;
												else if ((@gamble2 > 26) && (@gamble2 < 29))
													set @item,5057;
												else if ((@gamble2 > 28) && (@gamble2 < 31))
													set @item,2248;
												else if ((@gamble2 > 30) && (@gamble2 < 33))
													set @item,2223;
												else if ((@gamble2 > 32) && (@gamble2 < 35))
													set @item,2247;
												else if ((@gamble2 > 34) && (@gamble2 < 37))
													set @item,2245;
												else if ((@gamble2 > 36) && (@gamble2 < 39))
													set @item,5003;
												else if ((@gamble2 > 38) && (@gamble2 < 41))
													set @item,2225;
												else if ((@gamble2 > 40) && (@gamble2 < 43))
													set @item,5017;
												else if ((@gamble2 > 42) && (@gamble2 < 45))
													set @item,5030;
												else if ((@gamble2 > 44) && (@gamble2 < 47))
													set @item,5035;
												else if ((@gamble2 > 46) && (@gamble2 < 49))
													set @item,2250;
												else if ((@gamble2 > 48) && (@gamble2 < 51))
													set @item,2277;
												else if ((@gamble2 > 50) && (@gamble2 < 53))
													set @item,5011;
												else if ((@gamble2 > 52) && (@gamble2 < 55))
													set @item,2290;
												else if ((@gamble2 > 54) && (@gamble2 < 57))
													set @item,5010;
												else if ((@gamble2 > 56) && (@gamble2 < 60))
													set @item,2259;
												else if ((@gamble2 > 59) && (@gamble2 < 62))
													set @item,5008;
												else if ((@gamble2 > 61) && (@gamble2 < 63))
													set @item,2249;
												else if ((@gamble2 > 62) && (@gamble2 < 65))
													set @item,2229;
												else if (@gamble2 == 65)
													set @item,2258;
												else if (@gamble2 == 66)
													set @item,2274;
												else if (@gamble2 == 67)
													set @item,5019;
												else if (@gamble2 == 68)
													set @item,2254;
												else if (@gamble2 == 69)
													set @item,5007;
												else if (@gamble2 == 70)
													set @item,5066;
												else if (@gamble2 == 71)
													set @item,2235;
												else if (@gamble2 == 72)
													set @item,2234;
												else if (@gamble2 == 73)
													set @item,2256;
												else if (@gamble2 == 74)
													set @item,5093;
												else if (@gamble2 == 75)
													set @item,5072;
												else if (@gamble2 == 76)
													set @item,2231;
												}
											else if ((@gamble > 0) && (@gamble < 101))
												set @item,2226;
											else if ((@gamble > 100) && (@gamble < 201))
												set @item,2211;
											else if ((@gamble > 200) && (@gamble < 300))
												set @item,2209;
											else if ((@gamble > 303) && (@gamble < 401))
												set @item,2220;
											else if ((@gamble > 400) && (@gamble < 501))
												set @item,2232;
											else if ((@gamble > 500) && (@gamble < 601))
												set @item,2216;
											else if ((@gamble > 600) && (@gamble < 701))
												set @item,2230;
											else if ((@gamble > 700) && (@gamble < 801))
												set @item,2224;
											else if ((@gamble > 800) && (@gamble < 901))
												set @item,2222;
											else if ((@gamble > 900) && (@gamble < 906))
												set @item,2228;
											else if ((@gamble > 905) && (@gamble < 911))
												set @item,2252;
											else if ((@gamble > 910) && (@gamble < 916))
												set @item,2227;
											else if ((@gamble > 915) && (@gamble < 921))
												set @item,2221;
											else if ((@gamble > 920) && (@gamble < 926))
												set @item,2299;
											else if ((@gamble > 925) && (@gamble < 931))
												set @item,2236;
											else if ((@gamble > 930) && (@gamble < 936))
												set @item,2275;
											else if ((@gamble > 935) && (@gamble < 941))
												set @item,5015;
											else if ((@gamble > 940) && (@gamble < 946))
												set @item,5061;
											else if ((@gamble > 945) && (@gamble < 951))
												set @item,5092;
											else if ((@gamble > 950) && (@gamble < 1001))
												set @item,2226;
									break;

									case 5: //footgear
											set @gamble,rand(1,500);
											if ((@gamble > 299) && (@gamble < 303))
												{
												set @gamble2,rand(1,10);
												if ((@gamble2 > 0) && (@gamble2 < 3))
													set @item,2406;
												else if ((@gamble2 > 2) && (@gamble2 < 5))
													set @item,2412;
												else if ((@gamble2 > 4) && (@gamble2 < 8))
													set @item,2404;
												else if ((@gamble2 > 7) && (@gamble2 < 11))
													set @item,2407;
												}
											else if ((@gamble > 0) && (@gamble < 201))
												set @item,2401;
											else if ((@gamble > 200) && (@gamble < 300))
												set @item,2408;
											else if ((@gamble > 302) && (@gamble < 351))
												set @item,2411;
											else if ((@gamble > 350) && (@gamble < 401))
												set @item,2403;
											else if ((@gamble > 400) && (@gamble < 451))
												set @item,2405;
											else if ((@gamble > 450) && (@gamble < 476))
												set @item,2409;
											else if ((@gamble > 475) && (@gamble < 501))
												set @item,2402;
									break;

									case 6: //Shields
											set @gamble,rand(1,500);
											if ((@gamble > 200) && (@gamble < 205))
												{
												set @gamble2,rand(1,10);
												if ((@gamble2 > 0) && (@gamble2 < 3))
													set @item,2104;
												else if ((@gamble2 > 2) && (@gamble2 < 5))
													set @item,2106;
												else if ((@gamble2 > 4) && (@gamble2 < 7))
													set @item,2102;
												else if ((@gamble2 > 6) && (@gamble2 < 9))
													set @item,2111;
												else if ((@gamble2 > 8) && (@gamble2 < 11))
													set @item,2109;
												}
											else if ((@gamble > 0) && (@gamble < 201))
												set @item,2101;
											else if ((@gamble > 204) && (@gamble < 301))
												set @item,2103;
											else if ((@gamble > 300) && (@gamble < 401))
												set @item,2107;
											else if ((@gamble > 401) && (@gamble < 481))
												set @item,2105;
											else if ((@gamble > 480) && (@gamble < 501))
												set @item,2108;
									break;
		}
	if(countitem(732) < 1){
		mes "[Kachua]";
		mes "*piff*";
		mes "You don't have any";
		mes "diamonds! Don't even";
		mes "try to fool me!";
		close;
	}
	delitem 732,1;
	getitem @item,1;
	close;
}

comodo.gat,204,148,7	script	Devellin	90,{

	mes "[Devellin]";
	mes "It seems some traveller showed";
	mes "a huge diamond to Kachua a while";
	mes "ago. Ever since then, all she's";
	mes "been talking about is diamonds and";
	mes "how much she wants them.";
	next;
	mes "[Devellin]";
	mes "She's been getting pretty obsessive";
	mes "about it, which scares me. It seems";
	mes "she's more than willing to";
	mes "sacrifice anything she owns for a";
	mes "diamond.";
	next;
	mes "[Devellin]";
	mes "She's the type of person who'll do";
	mes "anything to get what she wants. I'm";
	mes "worried that she might give away";
	mes "something far more valuable than a";
	mes "diamond in exchange...";
	close;

}