From 4bcdc6f58fee39e968dc0864c8c25057aa4b943d Mon Sep 17 00:00:00 2001 From: Jesusaves Date: Mon, 16 Jul 2018 00:44:33 -0300 Subject: Tanker & Auldsbel Prototype. --- npc/003-0/audsbel.txt | 29 +++++++- npc/003-0/tanker.txt | 190 ++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 218 insertions(+), 1 deletion(-) create mode 100644 npc/003-0/tanker.txt (limited to 'npc') diff --git a/npc/003-0/audsbel.txt b/npc/003-0/audsbel.txt index ca5edecbb..3568a12c7 100644 --- a/npc/003-0/audsbel.txt +++ b/npc/003-0/audsbel.txt @@ -3,13 +3,40 @@ // Jesusalva // Description: // One of the Mana Magic Leaders +// Planned, there are only Auldsbel and Sagratha as Mana Wizards. + // Gives #parum -003-0,34,37,0 script Audsbel NPC_AULDSBEL,{ +003-0,34,37,0 script Auldsbel NPC_AULDSBEL,{ + if (MAGIC_LVL < 2) + goto L_Cheat; + mesn l("Auldsbel the Wizard"); + mesq l("Welcome back, Padric!"); + mesq l("Do you believe I've lost my @@? I can't see anything well without that! %%a", getitemlink(Googles)); + next; + mesn l("Auldsbel the Wizard"); + mesq l("Anyway, I am one of the few Mana Wizard, and I love Transmutation!"); + next; + select + l("What's the difference from a Mana Wizard and a Mage?"), + l("Where are you from?"), + l("Do you still need help with your experiments?"), + l("Can you teach me Mana Magic?"), + l("What do you know about Sagratha?"), + l("Actually, I gotta go, see ya!"); + goodbye; closedialog; close; +L_Cheat: + atcommand "@jail "+strcharinfo(0); + setparam(MaxHp, readparam(MaxHp)/2); // testing + setparam(Karma, -1); // testing + setparam(Manner, -10); // testing + dispbottom l("You are not allowed on this building, and was caught by Jesusalva's Police!!"); + end; + OnInit: .sex=G_MALE; .distance=5; diff --git a/npc/003-0/tanker.txt b/npc/003-0/tanker.txt new file mode 100644 index 000000000..cf0e29807 --- /dev/null +++ b/npc/003-0/tanker.txt @@ -0,0 +1,190 @@ +// TMW2 scripts. +// Authors: +// Jesusalva +// Description: +// Leader of the TANKER class + +003-0,38,41,2 script Tanker Master NPC_PLAYER,{ + if (!is_staff()) + goto L_Close; + if (!(MAGIC_SUBCLASS & CL_TANKER)) + 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(MAGIC_WARRIOR) < 2) + goto L_Close; + mesn; + mesq l("Hey there! Do you want to join the Tanker 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 quest hard enough? + MAGIC_SUBCLASS=MAGIC_SUBCLASS|CL_TANKER; + mesn; + mesq l("Welcome to the tanker 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 +// Tanker +// CR_TRUST (raise Max HP in 200 and Holy Resistance in 5%, passive) +// CR_AUTOGUARD (5% chance to complety block attack. Freeze you for a while. Req. Shield. Last 5m.) +// CR_DEFENDER (less damage from ranged attacks, but lowers move & attack speed. Req. Shield) - max lv 4 plz. Last 3m. +// SM_RECOVERY (insignificant HP recovery every 10s without moving. Better with higher level.) - low mp cost + +L_Member: + mesn; + mesq l("Hey there! Do you want to learn new skills for a very small teaching fee?"); + select + rif(sk_intcost(CR_TRUST) && !getskilllv(CR_TRUST), l("Learn Last Standing Man")), + rif(sk_intcost(CR_AUTOGUARD) && sk_canlvup(CR_AUTOGUARD), l("Improve Guard")), + rif(sk_intcost(CR_DEFENDER) && sk_canlvup(CR_DEFENDER), l("Improve Arrow Shield")), + rif(sk_intcost(SM_RECOVERY) && sk_canlvup(SM_RECOVERY), l("Improve Standing HP Regen")), + l("Nothing at the moment."); + mes ""; + switch (@menu) { + case 1: + mesn; + mesq l("This useful skill will only require:"); + mesc l("@@/@@ @@", countitem(Cheese), (getskilllv(CR_TRUST)+1)*50, getitemlink(Cheese)); + mesc l("@@/@@ @@", countitem(Coral), (getskilllv(CR_TRUST)+1)*30, getitemlink(Coral)); + mesc l("@@/@@ @@", countitem(PiberriesInfusion), (getskilllv(CR_TRUST)+1)*20, getitemlink(PiberriesInfusion)); + mesc l("@@/@@ @@", countitem(FluoPowder), (getskilllv(CR_TRUST)+1)*15, getitemlink(FluoPowder)); + mesc l("@@/@@ @@", countitem(HastePotion), (getskilllv(CR_TRUST)+1)*10, getitemlink(HastePotion)); + mesc l("@@/@@ @@", countitem(DiamondPowder), (getskilllv(CR_TRUST)+1)*3, getitemlink(DiamondPowder)); + mesc l("@@/@@ @@", countitem(GrassCarp), (getskilllv(CR_TRUST)+1)*1, getitemlink(GrassCarp)); + mesc l("@@/@@ @@", countitem(ElixirOfLife), (getskilllv(CR_TRUST)+1)*1, getitemlink(ElixirOfLife)); + next; + if (askyesno() == ASK_YES) { + if ( + countitem(Cheese) < (getskilllv(CR_TRUST)+1)*50 || + countitem(Coral) < (getskilllv(CR_TRUST)+1)*30 || + countitem(PiberriesInfusion) < (getskilllv(CR_TRUST)+1)*20 || + countitem(FluoPowder) < (getskilllv(CR_TRUST)+1)*15 || + countitem(HastePotion) < (getskilllv(CR_TRUST)+1)*10 || + countitem(DiamondPowder) < (getskilllv(CR_TRUST)+1)*3 || + countitem(GrassCarp) < (getskilllv(CR_TRUST)+1)*1 || + countitem(ElixirOfLife) < (getskilllv(CR_TRUST)+1)*1) goto L_Missing; + + delitem Cheese, (getskilllv(CR_TRUST)+1)*50; + delitem Coral, (getskilllv(CR_TRUST)+1)*30; + delitem PiberriesInfusion, (getskilllv(CR_TRUST)+1)*20; + delitem FluoPowder, (getskilllv(CR_TRUST)+1)*15; + delitem HastePotion, (getskilllv(CR_TRUST)+1)*10; + delitem DiamondPowder, (getskilllv(CR_TRUST)+1)*3; + delitem GrassCarp, (getskilllv(CR_TRUST)+1)*1; + delitem ElixirOfLife, (getskilllv(CR_TRUST)+1)*1; + + sk_lvup(CR_TRUST); + + next; + } + break; + case 2: + // TODO: Requirem, quest, agree + sk_lvup(CR_AUTOGUARD); + break; + case 3: + // TODO: Requirem, quest, agree + sk_lvup(CR_DEFENDER); + break; + case 4: + // TODO: Requirem, quest, agree + sk_lvup(SM_RECOVERY); + break; + /* + case 1: + mesn; + mesq l("This useful skill will only require:"); + mesc l("@@/@@ @@", countitem(ManaPiouFeathers), (getskilllv(SM_BASH)+1)*15, getitemlink(ManaPiouFeathers)); + mesc l("@@/@@ @@", countitem(CaveSnakeSkin), (getskilllv(SM_BASH)+1)*4, getitemlink(CaveSnakeSkin)); + mesc l("@@/@@ @@", countitem(RubyPowder), (getskilllv(SM_BASH)+1)*2, getitemlink(RubyPowder)); + mesc l("@@/@@ @@", countitem(StrengthPotion), (getskilllv(SM_BASH)+1)*2, getitemlink(StrengthPotion)); + next; + if (askyesno() == ASK_YES) { + if ( + countitem(ManaPiouFeathers) < (getskilllv(SM_BASH)+1)*15 || + countitem(CaveSnakeSkin) < (getskilllv(SM_BASH)+1)*4 || + countitem(RubyPowder) < (getskilllv(SM_BASH)+1)*2 || + countitem(StrengthPotion) < (getskilllv(SM_BASH)+1)*2) goto L_Missing; + + delitem PiberriesInfusion, (getskilllv(SM_BASH)+1)*15; + delitem BlackMambaEgg, (getskilllv(SM_BASH)+1)*4; + delitem MoubooSteak, (getskilllv(SM_BASH)+1)*2; + delitem IronIngot, (getskilllv(SM_BASH)+1)*2; + + sk_lvup(SM_BASH); + + next; + } + break; + case 2: + mesn; + mesq l("This useful skill will only require:"); + mesc l("@@/@@ @@", countitem(PiberriesInfusion), (getskilllv(AL_ANGELUS)+1)*10, getitemlink(PiberriesInfusion)); + mesc l("@@/@@ @@", countitem(BlackMambaEgg), (getskilllv(AL_ANGELUS)+1)*2, getitemlink(BlackMambaEgg)); + mesc l("@@/@@ @@", countitem(MoubooSteak), (getskilllv(AL_ANGELUS)+1)*4, getitemlink(MoubooSteak)); + mesc l("@@/@@ @@", countitem(IronIngot), (getskilllv(AL_ANGELUS)+1)*1, getitemlink(IronIngot)); + next; + if (askyesno() == ASK_YES) { + if ( + countitem(PiberriesInfusion) < (getskilllv(AL_ANGELUS)+1)*10 || + countitem(BlackMambaEgg) < (getskilllv(AL_ANGELUS)+1)*2 || + countitem(MoubooSteak) < (getskilllv(AL_ANGELUS)+1)*4 || + countitem(IronIngot) < (getskilllv(AL_ANGELUS)+1)*1) goto L_Missing; + + delitem PiberriesInfusion, (getskilllv(AL_ANGELUS)+1)*10; + delitem BlackMambaEgg, (getskilllv(AL_ANGELUS)+1)*2; + delitem MoubooSteak, (getskilllv(AL_ANGELUS)+1)*4; + delitem IronIngot, (getskilllv(AL_ANGELUS)+1)*1; + + sk_lvup(AL_ANGELUS); + + next; + } + break; + case 3: + // TODO: Requirem, quest, agree + sk_lvup(MER_INCAGI); + break; + case 4: + // TODO: Requirem, quest, agree + sk_lvup(PR_REDEMPTIO); + break; + */ + default: + goto L_Close; + } + + goto L_Member; + +OnInit: + .@npcId = getnpcid(0, .name$); + setunitdata(.@npcId, UDT_HEADTOP, WarlordHelmet); + setunitdata(.@npcId, UDT_HEADMIDDLE, WarlordPlate); + setunitdata(.@npcId, UDT_HEADBOTTOM, SteelShield); + setunitdata(.@npcId, UDT_WEAPON, JeansChaps); + setunitdata(.@npcId, UDT_HAIRSTYLE, 2); + setunitdata(.@npcId, UDT_HAIRCOLOR, 4); + + .sex=G_MALE; + .distance=5; + end; +} + -- cgit v1.2.3-60-g2f50