//===== 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 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; }