From 682882cb92160a1fd939a58488feea91543ab013 Mon Sep 17 00:00:00 2001 From: DracoRPG Date: Mon, 4 Apr 2005 07:28:57 +0000 Subject: Re-added MDEF +15 to Resting Cat, finished Gemsotne Exchanger git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/branches/stable@1393 54d463be-8e91-2dee-dedb-b68131a5f0ec --- db/Changelog.txt | 1 + db/item_db.txt | 2 +- npc/Changelog.txt | 1 + npc/cities/payon.txt | 160 +++++++++++++++++++++++++++++++++------------------ 4 files changed, 107 insertions(+), 57 deletions(-) diff --git a/db/Changelog.txt b/db/Changelog.txt index c8ef1fad3..5c2f182df 100644 --- a/db/Changelog.txt +++ b/db/Changelog.txt @@ -9,6 +9,7 @@ Skill databases == celest working on them i believe. 04/04 + * Re-added MDEF +15 to Resting Cat [DracoRPG] * Added Sunglasses & Glasses into OBB, added slotted Sunglasses & Glasses into OVB [Lupus] 04/03 * Doppelganger Card gives only 10% ASPD bonus (from Aegis) [DracoRPG] diff --git a/db/item_db.txt b/db/item_db.txt index 0be9a5bc0..5a65af140 100644 --- a/db/item_db.txt +++ b/db/item_db.txt @@ -1435,7 +1435,7 @@ 5055,Novice_Eggshell,Novice Eggshell,5,20,0,10,,3,,0,8388609,2,256,,0,101,{},{} 5056,Seed_Of_Love,Seed Of Love,5,20,0,200,,0,,0,10477567,2,256,,0,140,{},{} 5057,Black_Cat_Ears,Black Cat Ears,5,20,0,200,,2,,0,10477567,2,256,,45,141,{},{} -5058,Resting_Cat,Resting Cat,5,20,0,500,,1,,0,10477567,2,256,,0,142,{},{ bonus2 bResEff,Eff_Curse,3000; } +5058,Resting_Cat,Resting Cat,5,20,0,500,,1,,0,10477567,2,256,,0,142,{},{ bonus bMDef,15; bonus2 bResEff,Eff_Curse,3000; } 5059,Bear_Hat,Bear Hat,5,20,0,800,,3,,0,10477567,2,256,,50,143,{},{} 5060,Pointy_Cap,Pointy Cap,5,20,0,300,,3,,0,10477567,2,256,,0,144,{},{ bonus bLuk,1; } 5061,Flower_Hairpin,Flower Hairpin,5,20,0,100,,1,,0,10477567,2,256,,0,145,{},{} diff --git a/npc/Changelog.txt b/npc/Changelog.txt index 1105c2c31..b276dcdaa 100644 --- a/npc/Changelog.txt +++ b/npc/Changelog.txt @@ -34,6 +34,7 @@ Date Added ====== 04/04 + * Finished Payon's Gemstone Exchanger, thanks to Dino9021 [DracoRPG] * Added Deviling in the "Poring Island" map pay_fild04, 2 hours respawn [Lupus] 04/03 * Finished Valkyrie. Now it correctly works. Valhallana reborns players to High Novices. [Lupus] diff --git a/npc/cities/payon.txt b/npc/cities/payon.txt index fda293150..9743df30c 100644 --- a/npc/cities/payon.txt +++ b/npc/cities/payon.txt @@ -7,7 +7,7 @@ //= Darkchild (1.3) //= DracoRPG (1.5) //===== Current Version: ===================================== -//= 1.5 +//= 1.5b //===== Compatible With: ===================================== //= Any eAthena Mod //===== Description: ========================================= @@ -16,6 +16,7 @@ //= Most Credits To Muad Dib, Some Stuff By Me //= 1.4 - Corrected a few typos //= 1.5 - Rescripted old NPCs + scripted new ones (from iRO Sak) [DracoRPG] +//= 1.5b - Used Dino9021's script for the Gemstone exchanger [DracoRPG] //============================================================ payon.gat,190,115,0 script Lady 90,{ @@ -735,63 +736,110 @@ payon.gat,160,185,0 script Billboard 111,{ close; } -payon.gat,173,238,4 script Jade 754,{ - mes "[Jade]"; - mes "Bring me two"; - mes "Gemstones of the"; - mes "same color, and I will"; - mes "change them to Gemstones"; - mes "of a different color."; - next; - menu "Blue Gemstones into Red ones!",L_BlueToRed,"Red Gemstones into Yellow ones!",L_RedToYellow,"Yellow Gemstones into Blue ones!",L_YellowToBlue; - L_BlueToRed: - if(countitem(717) >= 2) goto L_BlueToRedOK; - mes "[Jade]"; - mes "Hah...!"; - mes "You're kidding me, right?"; - mes "I can't provide you with this"; - mes "service if you don't"; - mes "give me at least"; - mes "2 Blue Gemstones!"; - close; - L_BlueToRedOK: - mes "[NPC]"; - mes "This NPC is under scripting."; - mes "DracoRPG"; - close; - L_RedToYellow: - if(countitem(716) >= 2) goto L_RedtoYellowOK; - mes "[Jade]"; - mes "Hah...!"; - mes "You're kidding me, right?"; - mes "I can't provide you with this"; - mes "service if you don't"; - mes "give me at least"; - mes "2 Red Gemstones!"; - close; - L_RedToYellowOK: - mes "[NPC]"; - mes "This NPC is under scripting."; - mes "DracoRPG"; - close; - L_YellowToBlue: - if(countitem(715) >= 2) goto L_YellowToBlueOK; - mes "[Jade]"; - mes "Hah...!"; - mes "You're kidding me, right?"; - mes "I can't provide you with this"; - mes "service if you don't"; - mes "give me at least"; - mes "2 Yellow Gemstones!"; - close; - L_YellowToBlueOK: - mes "[NPC]"; - mes "This NPC is under scripting."; - mes "DracoRPG"; - close; +payon.gat,173,238,5 script Jade 754,{ +mes "[Jade]"; +mes "Bring me two"; +mes "Gemstones of the"; +mes "same color, and I will"; +mes "change them to Gemstones"; +mes "of a different color."; +next; + +menu "Blue Gemstones into Red ones!",L_BlueToRed,"Red Gemstones into Yellow ones!",L_RedToYellow,"Yellow Gemstones into Blue ones!",L_YellowToBlue; + +L_BlueToRed: + set @SourceGemstones$,"Blue"; + set @SourceGemstonesID,717; + set @TargetGemstones$,"Red"; + set @TargetGemstonesID,716; + goto L_BeginExchange; + +L_RedToYellow: + set @SourceGemstones$,"Red"; + set @SourceGemstonesID,716; + set @TargetGemstones$,"Yellow"; + set @TargetGemstonesID,715; + goto L_BeginExchange; + +L_YellowToBlue: + set @SourceGemstones$,"Yellow"; + set @SourceGemstonesID,715; + set @TargetGemstones$,"Blue"; + set @TargetGemstonesID,717; + goto L_BeginExchange; + +L_BeginExchange: + if(countitem(@SourceGemstonesID) >= 2) goto L_ExchangeOK; + mes "[Jade]"; + mes "Hah...!"; + mes "You're kidding me, right?"; + mes "I can't give you "+@TargetGemstones$+" Gemstones"; + mes "if you don't give me at least"; + mes "2 "+"+@SourceGemstones$+"+" Gemstones!"; + close; + +L_ExchangeOK: + set @ExchangeCount,countitem(@SourceGemstonesID)/2; + mes "[Jade]"; + mes "This may Exchange "+@ExchangeCount+" "+@TargetGemstones$+" Gemstones"; + mes "How many do you want?"; + next; + menu "Exchange all",L_ExchangeAll,"I want to set a number",L_PointCount,"Cancel",L_Cancel; + +L_ExchangeAll: + if(countitem(@SourceGemstonesID) < 2) goto L_ExchangeNo; + delitem @SourceGemstonesID,@ExchangeCount*2; + getitem @TargetGemstonesID,@ExchangeCount; + goto L_ExchangeDone; + +L_PointCount: + mes "[Jade]"; + mes "How many do you want?"; + mes "Limit is '100'"; + next; +L_InputPointCount: + input @number; + if(@number < 0) goto L_ExchangeNo; + if(@number > 100) goto L_ExchangeAbove; + if(@number > @ExchangeCount) goto L_ExchangeNotEnough; + delitem @SourceGemstonesID,@number*2; + getitem @TargetGemstonesID,@number; + goto L_ExchangeDone; + +L_ExchangeNo: + mes "[Jade]"; + mes "Hmmm... Very funny..."; + close; + +L_ExchangeAbove: + mes "[Jade]"; + mes "Hmmm... Please don't set a number above '100'"; + next; + goto L_InputPointCount; + +L_ExchangeNotEnough: + mes "[Jade]"; + mes "Hmmm... The "+@SourceGemstones$+" Gemstones you have"; + mes "is not enough for "+@number+" "+@TargetGemstones$+" Gemstones."; + mes "Please set a new number"; + next; + goto L_InputPointCount; + +L_ExchangeDone: + mes "[Jade]"; + mes "Here, This is the "+@TargetGemstones$+" Gemstones you need..."; + mes "Come back to me when you need more"; + mes "...mmm? Is there something on my face?"; + close; + +L_Cancel: + mes "[Jade]"; + mes "OK, Very well... Come back if you need anything."; + mes "I'll Exchange it for you anytime."; + close; } -//Need to find out ALL fortunes he can tell for each answer, and whether they are random or given in a certain order... +//Need to find out ALL fortunes he can tell for each answer... payon_in03.gat,117,128,4 script Fortune Teller 704,{ mes "[Lhimetorra]"; mes "You're an adventurer of this"; -- cgit v1.2.3-70-g09d2