// TMW2 Script
// Author:
// Jesusalva
// Description:
// Intense Beard is the crafting master
003-8,27,42,4 script Intense Beard NPC_HUMAN_M_ARTIS,{
if (BaseLevel < 15)
goto L_SemNivel;
if (!countitem(RecipeBook))
goto L_SemLivro;
mesn;
mesq l("Hello my friend! I see you've brought your @@ with you this time!", getitemlink(RecipeBook));
next;
mesn;
mesq l("Let's learn new recipes! Do you wanna?");
mesc l("Bonus recipes must be enabled with @@ after learned!", b("@ucp"));
next;
.@bool=false;
do {
csysGUI_Report(.@bool);
mesc l("Learn what?");
mes "";
.@opt$="Nothing";
.@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_BASE);
.@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_ATK);
.@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_DEF);
.@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_ACC);
.@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_EVD);
.@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_REGEN);
.@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_SPEED);
.@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_DOUBLE);
.@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_MAXPC);
.@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_SCRESIST);
.@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_SCINFLICT);
.@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_MANAUSE);
.@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_BOSSATK);
.@opt$+=":"+csysGUI_OptLearnMenu(CRGROUP_FINAL);
select (.@opt$);
mes "";
switch (@menu) {
case 2:
if (csysGUI_RaiseOpt(CRGROUP_BASE))
mesc l("Success!"), 3;
else
mesc l("Not enough Monster Points!"), 1;
break;
case 3:
if (csysGUI_RaiseOpt(CRGROUP_ATK))
mesc l("Success!"), 3;
else
mesc l("Not enough Monster Points!"), 1;
break;
case 4:
if (csysGUI_RaiseOpt(CRGROUP_DEF))
mesc l("Success!"), 3;
else
mesc l("Not enough Monster Points!"), 1;
break;
case 5:
if (csysGUI_RaiseOpt(CRGROUP_ACC))
mesc l("Success!"), 3;
else
mesc l("Not enough Monster Points!"), 1;
break;
case 6:
if (csysGUI_RaiseOpt(CRGROUP_EVD))
mesc l("Success!"), 3;
else
mesc l("Not enough Monster Points!"), 1;
break;
case 7:
if (csysGUI_RaiseOpt(CRGROUP_REGEN))
mesc l("Success!"), 3;
else
mesc l("Not enough Monster Points!"), 1;
break;
case 8:
if (csysGUI_RaiseOpt(CRGROUP_SPEED))
mesc l("Success!"), 3;
else
mesc l("Not enough Monster Points!"), 1;
break;
case 9:
if (csysGUI_RaiseOpt(CRGROUP_DOUBLE))
mesc l("Success!"), 3;
else
mesc l("Not enough Monster Points!"), 1;
break;
case 10:
if (csysGUI_RaiseOpt(CRGROUP_MAXPC))
mesc l("Success!"), 3;
else
mesc l("Not enough Monster Points!"), 1;
break;
case 11:
if (csysGUI_RaiseOpt(CRGROUP_SCRESIST))
mesc l("Success!"), 3;
else
mesc l("Not enough Monster Points!"), 1;
break;
case 12:
if (csysGUI_RaiseOpt(CRGROUP_SCINFLICT))
mesc l("Success!"), 3;
else
mesc l("Not enough Monster Points!"), 1;
break;
case 13:
if (csysGUI_RaiseOpt(CRGROUP_MANAUSE))
mesc l("Success!"), 3;
else
mesc l("Not enough Monster Points!"), 1;
break;
case 14:
if (csysGUI_RaiseOpt(CRGROUP_BOSSATK))
mesc l("Success!"), 3;
else
mesc l("Not enough Monster Points!"), 1;
break;
case 15:
if (csysGUI_RaiseOpt(CRGROUP_FINAL))
mesc l("Success!"), 3;
else
mesc l("Not enough Monster Points!"), 1;
break;
}
// Update boolean
if (!.@bool)
.@bool=true;
} while (@menu != 1);
close;
L_SemNivel:
mesn;
mesq l("Please don't disturb me, I'm busy crafting my own customized power mega blaster weapon. I just keep failing to apply +100% exp gain bonus on it!");
close;
L_SemLivro:
if (CRAFTQUEST || !is_admin())
goto L_SemNivel;
mesn;
mesq l("Heya, noob. Where is your @@? Are you really so noob to have forgot such important book?!", getitemlink(RecipeBook));
next;
/*
mesn;
mesq l("That's too bad, because I could teach you some amazing craft skills! This will need to wait another day, I guess. Oh well.");
next;
mesn;
mesq l("Better ask your parents for one... Failing that, maybe someone can gift you one. Not sure what you'll need to do for that, though!");
*/
mesn strcharinfo(0);
mesc l("Was I supposed to have one? How should I reply?");
mes "";
select
l("Erm... I don't have a recipe book."),
l("That's nice, but... I don't have a recipe book."),
l("Pardon me, what is a recipe book?");
mes "";
mesn;
mesq l("WHAT? Have you not gained one at birth? That's absurd!");
next;
select
l("Erm... I don't know my parents."),
l("Maybe, but... I don't know my parents."),
l("Pardon me, I don't remember my parents.");
mes "";
mesn;
mesq l("WHAT? That's twice absurd! Now you'll say that you were found stranded on a desert island without equipment and can't remember anything but your own name!");
next;
select
l("Erm... You're right."),
l("Well... You're right."),
l("How did you guess that?");
mes "";
mesn;
mesq l("... ... ...");
next;
mesn;
mesq l("...Okay, this is not fun anymore.");
next;
mesn;
mesq l("Here, you can have this spare one. Hahah! Crafting is an art, and I help teaching it. Just be sure to don't lose it, you will NEVER get another copy EVER again, was I clear?!");
next;
mesn;
mesq l("While we're at that, do you know how to craft? No? First, you'll need a Cauldron, in case you've rented a house. Otherwise, you can rent a work table on this Forge.");
next;
mesn;
mesq l("You need to read this recipe. Without the essential crafting skill you won't go very far.");
// Obtain a blueprint and a recipe book
inventoryplace EquipmentBlueprintA, 1, RecipeBook, 1;
getitem EquipmentBlueprintA, 1;
getitem RecipeBook, 1;
// We should aid you getting basic skills - for free!
if (!CRAFTSYS[CRGROUP_BASE])
CRAFTSYS[CRGROUP_BASE]+=1;
if (!CRAFTSYS_CURRENT)
CRAFTSYS_CURRENT=CRAFTSYS_CURRENT|CRGROUP_BASE;
close;
OnInit:
.sex=G_MALE;
.distance=5;
npcsit;
end;
}
