From a338dd0890edc9cda2bf6f5ff09cf750a9a3e102 Mon Sep 17 00:00:00 2001 From: Jesusaves Date: Wed, 18 Jul 2018 23:16:10 -0300 Subject: This will provide minimal function for Wizards. So now, only three class are missing: Priests (evolution from Mages), Rangers and Snipers (independent subclass) --- npc/003-0/wizard.txt | 227 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 227 insertions(+) create mode 100644 npc/003-0/wizard.txt (limited to 'npc/003-0/wizard.txt') diff --git a/npc/003-0/wizard.txt b/npc/003-0/wizard.txt new file mode 100644 index 000000000..9e19b9981 --- /dev/null +++ b/npc/003-0/wizard.txt @@ -0,0 +1,227 @@ +// TMW2 scripts. +// Authors: +// Jesusalva +// Description: +// Leader of the WIZARD class +// TODO: Improve Fireball + +003-0,55,25,0 script Wizard Master NPC_PLAYER,{ + if (!(MAGIC_SUBCLASS & CL_WIZARD)) + goto L_SignUp; + goto L_Member; + +// Sign Up +L_SignUp: + // Not allowed if subclass filled or not from main class + if (total_subclass() >= max_subclass() || getskilllv(WIZARD_MAGE) < 2) + goto L_Close; + mesn; + mesq l("Hey there! Do you want to join the Wizard Class?"); + mesc l("Warning: If you join a subclass, you can't leave it later!"), 1; + next; + if (askyesno() != ASK_YES) + close; + // TODO: Requeriment for signing up to a subclass? Or is the tier + skill quest hard enough? + MAGIC_SUBCLASS=MAGIC_SUBCLASS|CL_WIZARD; + mesn; + mesq l("Welcome to the wizard guild!"); + close; + +// Close +L_Close: + goodbye; + closedialog; + close; + +L_Missing: + mesn; + mesq l("Hey hey! You don't have that stuff, CAN'T YOU READ?!"); + percentheal 0, -10; + next; + goto L_Member; + +// Membership area +// Wizard +// MG_COLDBOLT (ice) +// MG_LIGHTNINGBOLT (wind) +// WZ_EARTHSPIKE (earth) +// MG_NAPALMBEAT (ghost) +// MG_ENERGYCOAT (For 5 minutes, raise damage reduction, but that eats MP) +// TODO: We have many other cool skills for Wizard (more AoE skills, more damage, etc) +// I will worry with that later, as that also means providing extra skills for Sage & Priest +// Note: the number of hits of bolts is the same as the skill level :D + +L_Member: + mesn; + mesq l("Hey there! Do you want to learn new skills for a very small teaching fee?"); + select + rif(sk_intcost(MG_ENERGYCOAT) && !getskilllv(MG_ENERGYCOAT), l("Learn Energy Coating")), + rif(sk_intcost(MG_NAPALMBEAT) && sk_canlvup(MG_NAPALMBEAT), l("Improve Napalm Beat")), + rif(sk_intcost(MG_COLDBOLT) && sk_canlvup(MG_COLDBOLT), l("Improve Cold Bolt")), + rif(sk_intcost(MG_LIGHTNINGBOLT) && sk_canlvup(MG_LIGHTNINGBOLT), l("Improve Thunder Bolt")), + rif(sk_intcost(WZ_EARTHSPIKE) && sk_canlvup(WZ_EARTHSPIKE), l("Improve Earth Spike")), + rif(sk_intcost(MG_FIREBOLT) && sk_canlvup(MG_FIREBOLT), l("Improve Fire Bolt")), + l("Leave Subclass"), + l("Nothing at the moment."); + mes ""; + switch (@menu) { + case 1: + mesc l("[Energy Coating]"); + mesc l("Drains Mana to reduce damage taken. The only defensive skill from wizards."); + mes ""; + mesn; + mesq l("This useful skill will only require:"); + mesc l("@@/@@ @@", countitem(Tentacle), (getskilllv(MG_ENERGYCOAT)+1)*10, getitemlink(Tentacle)); + mesc l("@@/@@ @@", countitem(MushroomSpores), (getskilllv(MG_ENERGYCOAT)+1)*5, getitemlink(MushroomSpores)); + mesc l("@@/@@ @@", countitem(WolvernTooth), (getskilllv(MG_ENERGYCOAT)+1)*3, getitemlink(WolvernTooth)); + mesc l("@@/@@ @@", countitem(RedScorpionClaw), (getskilllv(MG_ENERGYCOAT)+1)*1, getitemlink(RedScorpionClaw)); + next; + if (askyesno() == ASK_YES) { + if ( + countitem(Tentacle) < (getskilllv(MG_ENERGYCOAT)+1)*10 || + countitem(MushroomSpores) < (getskilllv(MG_ENERGYCOAT)+1)*5 || + countitem(WolvernTooth) < (getskilllv(MG_ENERGYCOAT)+1)*3 || + countitem(RedScorpionClaw) < (getskilllv(MG_ENERGYCOAT)+1)*1) goto L_Missing; + + delitem Tentacle, (getskilllv(MG_ENERGYCOAT)+1)*10; + delitem MushroomSpores, (getskilllv(MG_ENERGYCOAT)+1)*5; + delitem WolvernTooth, (getskilllv(MG_ENERGYCOAT)+1)*3; + delitem RedScorpionClaw, (getskilllv(MG_ENERGYCOAT)+1)*1; + + sk_lvup(MG_ENERGYCOAT); + + next; + } + break; + case 2: + mesc l("[Napalm Beat]"); + mesc l("Astral attack with low damage value, but which can send ghosts to rest."); + mesc l("Useful in PvP when your enemy have equipped a @@", getitemlink(AstralCube)); + mes ""; + mesn; + mesq l("This useful skill will only require:"); + mesc l("@@/@@ @@", countitem(Acorn), (getskilllv(MG_NAPALMBEAT)+1)*60, getitemlink(Acorn)); + mesc l("@@/@@ @@", countitem(Bread), (getskilllv(MG_NAPALMBEAT)+1)*30, getitemlink(Bread)); + mesc l("@@/@@ @@", countitem(SmallMushroom), (getskilllv(MG_NAPALMBEAT)+1)*20, getitemlink(SmallMushroom)); + mesc l("@@/@@ @@", countitem(PinkBlobime), (getskilllv(MG_NAPALMBEAT)+1)*20, getitemlink(PinkBlobime)); + mesc l("@@/@@ @@", countitem(RedApple), (getskilllv(MG_NAPALMBEAT)+1)*15, getitemlink(RedApple)); + next; + if (askyesno() == ASK_YES) { + if ( + countitem(Acorn) < (getskilllv(MG_NAPALMBEAT)+1)*60 || + countitem(Bread) < (getskilllv(MG_NAPALMBEAT)+1)*30 || + countitem(SmallMushroom) < (getskilllv(MG_NAPALMBEAT)+1)*20 || + countitem(PinkBlobime) < (getskilllv(MG_NAPALMBEAT)+1)*20 || + countitem(RedApple) < (getskilllv(MG_NAPALMBEAT)+1)*15) goto L_Missing; + + delitem Acorn, (getskilllv(MG_NAPALMBEAT)+1)*60; + delitem Bread, (getskilllv(MG_NAPALMBEAT)+1)*30; + delitem SmallMushroom, (getskilllv(MG_NAPALMBEAT)+1)*20; + delitem PinkBlobime, (getskilllv(MG_NAPALMBEAT)+1)*20; + delitem RedApple, (getskilllv(MG_NAPALMBEAT)+1)*15; + + sk_lvup(MG_NAPALMBEAT); + + next; + } + break; + // Magic Bolts + case 3: + case 4: + case 5: + case 6: + setarray .@ASkill, MG_COLDBOLT, MG_LIGHTNINGBOLT, WZ_EARTHSPIKE, MG_FIREBOLT; + setarray .@AItem, Coral, BatWing, PileOfAsh, Curshroom; + setarray .@BItem, Sapphire, Emerald, Topaz, Ruby; + setarray .@ASkill$, "Ice", "Wind", "Earth", "Fire"; + + .@index=@menu-4; + + .@Skill$=.@ASkill$[.@index]; + .@Skill=.@ASkill[.@index]; + .@Item=.@AItem[.@index]; + .@ItemB=.@BItem[.@index]; + + deletearray(.@ASkill); + deletearray(.@AItem); + deletearray(.@BItem); + deletearray(.@ASkill$); + + mesc l("[@@ Bolt]", .@Skill$); + mesc l("Causes a @@ bolt on the enemy. Number of hits is the skill level.", .@Skill$); + mes ""; + mesn; + mesq l("This useful skill will only require:"); + mesc l("@@/@@ @@", countitem(.@Item), (getskilllv(.@Skill)+1)*30, getitemlink(.@Item)); + mesc l("@@/@@ @@", countitem(FluoPowder), (getskilllv(.@Skill)+1)*15, getitemlink(FluoPowder)); + mesc l("@@/@@ @@", countitem(HerbalTea), (getskilllv(.@Skill)+1)*3, getitemlink(HastePotion)); + mesc l("@@/@@ @@", countitem(WoodenLog), (getskilllv(.@Skill)+1)*2, getitemlink(DiamondPowder)); + mesc l("@@/@@ @@", countitem(.@ItemB), (getskilllv(.@Skill)+1)*1, getitemlink(.@ItemB)); + next; + if (askyesno() == ASK_YES) { + if ( + countitem(.@Item) < (getskilllv(.@Skill)+1)*30 || + countitem(FluoPowder) < (getskilllv(.@Skill)+1)*15 || + countitem(HerbalTea) < (getskilllv(.@Skill)+1)*3 || + countitem(WoodenLog) < (getskilllv(.@Skill)+1)*2 || + countitem(.@ItemB) < (getskilllv(.@Skill)+1)*1) goto L_Missing; + + delitem .@Item, (getskilllv(.@Skill)+1)*30; + delitem FluoPowder, (getskilllv(.@Skill)+1)*15; + delitem HerbalTea, (getskilllv(.@Skill)+1)*3; + delitem WoodenLog, (getskilllv(.@Skill)+1)*2; + delitem .@ItemB, (getskilllv(.@Skill)+1)*1; + + sk_lvup(.@Skill); + + next; + } + break; + case 7: + // All skills related may include the basic class skills if they're related. + mesc l("WARNING: If you leave the subclass, you'll lose all skills related to it!"), 1; + mesc l("This cannot be undone. Are you sure?"), 1; + mes ""; + if (askyesno() == ASK_YES) { + mes ""; + if (validatepin()) { + skill MG_ENERGYCOAT, 0, 0; + skill SA_DRAGONOLOGY, 0, 0; + skill MG_NAPALMBEAT, 0, 0; + skill MG_COLDBOLT, 0, 0; + skill MG_LIGHTNINGBOLT, 0, 0; + skill WZ_EARTHSPIKE, 0, 0; + skill MG_FIREBOLT, 0, 0; + MAGIC_SUBCLASS=MAGIC_SUBCLASS^CL_WIZARD; + mesc l("You abandoned the WIZARD class!"), 1; + close; + } else { + mesc l("Failed to validate pin. Aborting."); + next; + } + } else { + mes ""; + mesc l("Operation aborted. Phew!"); + next; + } + break; + default: + goto L_Close; + } + + goto L_Member; + +OnInit: + .@npcId = getnpcid(0, .name$); + setunitdata(.@npcId, UDT_HEADTOP, FancyHat); // TODO: wizard hat + setunitdata(.@npcId, UDT_HEADMIDDLE, SorcererRobe); + setunitdata(.@npcId, UDT_HEADBOTTOM, NPCEyes); + setunitdata(.@npcId, UDT_WEAPON, JeansShorts); + setunitdata(.@npcId, UDT_HAIRSTYLE, 2); + setunitdata(.@npcId, UDT_HAIRCOLOR, 5); + + .sex=G_MALE; + .distance=5; + end; +} + -- cgit v1.2.3-60-g2f50