Updated Alchemist Guild Dealer.

git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@12259 54d463be-8e91-2dee-dedb-b68131a5f0ec
This commit is contained in:
L0ne_W0lf 2008-02-28 06:03:41 +00:00
parent a554d00483
commit 43afd3ea58
2 changed files with 139 additions and 104 deletions

View File

@ -1,6 +1,7 @@
Date Added
======
2008/02/28
* Rev 12259 Updated Alchemist Guild Dealer. [L0ne_W0lf]
* Rev 12258 Implemented several "checkweights" in other NPCs. [L0ne_W0lf]
* Rev 12257 Implemented several "checkweight" NPC merchants. [L0ne_W0lf]
2008/02/27

View File

@ -3,9 +3,9 @@
//===== By: ==================================================
//= eAthena Team
//===== Current Version: =====================================
//= 1.4
//= 1.5
//===== Compatible With: =====================================
//= eAthena 1.0+
//= eAthena SVN
//===== Description: =========================================
//= Selling Alchemist Materials and Manuals
//===== Additional Comments: =================================
@ -14,117 +14,151 @@
//= Potion Guide. [Lupus]
//= 1.3 Deleted Elemental Potions Guide due to original quest [Lupus]
//= 1.4 Alchemists can now purchase 2000 Medicine Bowls at once. [SinSloth]
//= 1.5 Updated to Aegis 10.3 Standards. [L0ne_W0lf]
//============================================================
alde_alche,24,188,3 script Gever AI Sharp 740,{
mes "[Gever AI Sharp]";
mes "Welcome to the Alchemist Union.";
alde_alche,24,188,3 script Guild Dealer 740,{
if (checkweight(1201,1) == 0) {
mes "- Wait a minute! -";
mes "- Currently you are carrying -";
mes "- too many items with you. -";
mes "- Please come back again -";
mes "- after you store some items into kafra storage. -";
close;
}
mes "[Gever Al Sharp]";
mes "Welcome to the";
mes "Alchemist Union.";
mes "How can I assist you today?";
next;
menu "Purchase materials.",M_Material, "Purchase a production manual.",M_Manual, "Cancel Deal.", M_Bye;
M_Material:
mes "[Gever AI Sharp]";
switch(select("Purchase materials.:Purchase a production manual.:Quit.")) {
case 1:
mes "[Gever Al Sharp]";
mes "What would you like?";
next;
menu "Medicine Bowl - 8z",-,"Cancel.",M_Bye;
mes "[Gever AI Sharp]";
mes "How many do you want?";
if (select("Medicine Bowl - 8 Zeny:Cancel.") == 1) {
mes "[Gever Al Sharp]";
mes "How many do you want?";
mes "Enter '0' if you want to quit.";
next;
input @num;
if((@num < 1) || (@num > 2000)) goto M_Bye;
set @price,@num * 8;
mes "[Gever AI Sharp]";
if(Zeny < @price) goto sL_NoZeny;
if (checkweight(7134,@num) == 0) goto sL_OverW;
set Zeny,Zeny-@price;
getitem 7134,@num;//Items: Medicine_Bowl,
goto L_Bye;
M_Manual:
mes "[Gever AI Sharp]";
mes "What do you need?";
mes "Manuals are generally 100,000 zeny.";
mes "Except for a couple of special manuals.";
next;
menu "Potion Creation Guide",sM_Pot, "Alcohol Creation Guide",sM_Alc, "Bottle Grenade Creation Guide",sM_Gren,
"Acid Bottle Creation Guide",sM_Acid, "Plant Bottle Creation Guide",sM_Plant, "Marine Sphere Bottle Creation Guide",sM_Mar,
"Glistening Coat Creation Guide",sM_Coat, "Condensed Potion Creation Guide",sM_Con, "Cancel Deal.",M_Bye;
sM_Pot:
set @itemid,7144;
set @price,100000;
set @itemname$,"Potion";
goto L_Choice;
sM_Alc:
set @itemid,7127;
set @price,100000;
set @itemname$,"Alchohol";
goto L_Choice;
sM_Gren:
set @itemid,7128;
set @price,100000;
set @itemname$,"Bottle Grenade";
goto L_Choice;
sM_Acid:
set @itemid,7129;
set @price,100000;
set @itemname$,"Acid Bottle";
goto L_Choice;
sM_Plant:
set @itemid,7130;
set @price,100000;
set @itemname$,"Plant Bottle";
goto L_Choice;
sM_Mar:
set @itemid,7131;
set @price,100000;
set @itemname$,"Marine Sphere Bottle";
goto L_Choice;
sM_Coat:
set @itemid,7132;
set @price,100000;
set @itemname$,"Glistening Coat";
goto L_Choice;
sM_Con:
set @itemid,7133;
set @price,240000;
set @itemname$,"Condensed Potion";
goto L_Choice;
// sM_Ele:
// set @itemid,7434;
// set @price,240000;
// set @itemname$,"Elemental Potion";
// goto L_Choice;
L_Choice:
mes "[Gever AI Sharp]";
mes "An " + @itemname$ + " Creation Guide??";
mes "That will be "+@price/1000+",000 zeny.";
next;
menu "Purchase.",-,"Quit.",M_Bye;
mes "[Gever AI Sharp]";
if(Zeny < @price) goto sL_NoZeny;
if (checkweight(@itemid,1) == 0) goto sL_OverW;
set Zeny,Zeny-@price;
getitem @itemid,1;
L_Bye:
mes "Thank you for buying!";
while(1) {
input .@input,0,2001;
if (.@input == 0) {
mes "[Gever Al Sharp]";
mes "The deal was cancelled.";
mes "Come again next time.";
close;
}
else if (.@input < 1 || .@input > 2000) {
mes "[Gever Al Sharp]";
mes "The number must";
mes "be less than 2000.";
next;
}
else {
break;
}
}
set .@sell,.@input * 8;
set .@item_weight,.@input * 10;
if (Zeny < .@sell) {
mes "[Gever Al Sharp]";
mes "You don't";
mes "have enough zeny.";
mes "Check how much zeny";
mes "you have first.";
close;
}
if ((MaxWeight - Weight) < .@item_weight) {
mes "[Gever Al Sharp]";
mes "It doesn't seem like";
mes "you can carry everything.";
mes "Please check the space";
mes "in your inventory.";
close;
}
set zeny,zeny-.@sell;
getitem 7134,.@input; //Medicine_Bowl
mes "[Gever Al Sharp]";
mes "Thank you.";
mes "Come again.";
close;
sL_NoZeny:
mes "You don't seem to have enough money.";
close;
sL_OverW:
mes "Hmm.... it seems that you are overweight...";
close;
M_Bye:
mes "[Gever AI Sharp]";
mes "Then come again next time.";
}
mes "[Gever Al Sharp]";
mes "Well then,";
mes "come again when";
mes "you need to purchase";
mes "materials related to";
mes "Alchemy, alright?";
close;
case 2:
mes "[Gever Al Sharp]";
mes "What do you need?";
mes "Manuals are generally 100,000 zeny. But there are a couple of special manuals that will cost more.";
next;
switch(select("Potion Creation Guide:Alcohol Creation Guide:Bottle Grenade Creation Guide:Acid Bottle Creation Guide:Plant Bottle Creation Guide:Marine Sphere Bottle Creation Guide:Glistening Coat Creation Guide:Condensed Potion Creation Guide:Cancel Deal.")) {
case 1:
callsub S_SellManual,7144,100000; //Normal_Potion_Book
break;
case 2:
callsub S_SellManual,7127,100000; //Alcol_Create_Book
break;
case 3:
callsub S_SellManual,7128,100000; //FireBottle_Create_Book
break;
case 4:
callsub S_SellManual,7129,100000; //Acid_Create_Book
break;
case 5:
callsub S_SellManual,7130,100000; //Plant_Create_Book
break;
case 6:
callsub S_SellManual,7131,100000; //Mine_Create_Book
break;
case 7:
callsub S_SellManual,7132,100000; //Coating_Create_Book
break;
case 8:
callsub S_SellManual,7133,240000; //Slim_Potion_Create_Book
break;
case 9:
mes "[Gever Al Sharp]";
mes "Well then...";
mes "Come back if you";
mes "ever need to buy";
mes "a production manual.";
close;
}
case 3:
mes "[Gever Al Sharp]";
mes "Alright then,";
mes "have a good day.";
close;
}
S_SellManual:
if (Zeny < getarg(1)) {
mes "[Gever Al Sharp]";
mes "You don't";
mes "have enough zeny.";
mes "Check how much zeny";
mes "you have first.";
close;
}
mes "[Gever Al Sharp]";
mes ""+getitemname(getarg(0))+"?";
mes "That'll be "+getarg(1)+" zeny.";
next;
switch(select("Purchase.:Quit.")) {
set zeny,zeny-getarg(1);
getitem getarg(0),1;
mes "[Gever Al Sharp]";
mes "Thank you for";
mes "your patronage.";
close;
}
mes "[Gever Al Sharp]";
mes "Come again";
mes "next time.";
close;
}