summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--db/Changelog.txt1
-rw-r--r--db/item_db.txt2
-rw-r--r--npc/Changelog.txt1
-rw-r--r--npc/cities/payon.txt160
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";