Re-added MDEF +15 to Resting Cat, finished Gemsotne Exchanger

git-svn-id: https://svn.code.sf.net/p/rathena/svn/branches/stable@1393 54d463be-8e91-2dee-dedb-b68131a5f0ec
This commit is contained in:
DracoRPG 2005-04-04 07:28:57 +00:00
parent 53f0f12594
commit eeb6187dde
4 changed files with 107 additions and 57 deletions

View File

@ -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]

View File

@ -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,{},{}

View File

@ -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]

View File

@ -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,7 +736,7 @@ payon.gat,160,185,0 script Billboard 111,{
close;
}
payon.gat,173,238,4 script Jade 754,{
payon.gat,173,238,5 script Jade 754,{
mes "[Jade]";
mes "Bring me two";
mes "Gemstones of the";
@ -743,55 +744,102 @@ payon.gat,173,238,4 script Jade 754,{
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;
set @SourceGemstones$,"Blue";
set @SourceGemstonesID,717;
set @TargetGemstones$,"Red";
set @TargetGemstonesID,716;
goto L_BeginExchange;
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;
set @SourceGemstones$,"Red";
set @SourceGemstonesID,716;
set @TargetGemstones$,"Yellow";
set @TargetGemstonesID,715;
goto L_BeginExchange;
L_YellowToBlue:
if(countitem(715) >= 2) goto L_YellowToBlueOK;
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 provide you with this";
mes "service if you don't";
mes "give me at least";
mes "2 Yellow Gemstones!";
mes "I can't give you "+@TargetGemstones$+" Gemstones";
mes "if you don't give me at least";
mes "2 "+"+@SourceGemstones$+"+" Gemstones!";
close;
L_YellowToBlueOK:
mes "[NPC]";
mes "This NPC is under scripting.";
mes "DracoRPG";
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";