Untitled Strand

Strand in '[Share] Script for eAthena' started by VodkaMartini, May 23, 2007.

Discuss N3 - [Share] Script for eAthena in the Ragnarok (RO) Emulator area at Nyit-Nyit.Net

  1. VodkaMartini 1 SMP Level 2

    Messages:
    1,342
    Likes Received:
    22
    Trophy Points:
    63
    Script :: NPC Baby JobChanger

    <div class='codetop'>NYIT-NYIT CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow:auto'>
    //=====eAthena Script===============================
    // Baby Jobchanger
    //=====By======================================
    // Leviathin
    //=====Current Version==============================
    // 1.0
    //=====Compatible With:==============================
    // eAthena Version SVN-R1968 and up
    //=====Description=================================
    // Fully working Compact Baby jobchanger rather than 3 NPC's.
    //=====Additional Comments:===========================
    // I like Pie?
    //=============================================
    //
    ayothaya.gat,144,113,5 script Baby Jobchanger 116,{
    set @npcname$,"[ ^CC00CCBaby Jobchanger^000000 ]";
    if (class == 4023) goto L_Acceptable;
    if (Class == 4024) goto L_Acceptable;
    if (class == 4025) goto L_Acceptable;
    if (class == 4026) goto L_Acceptable;
    if (class == 4027) goto L_Acceptable;
    if (class == 4028) goto L_Acceptable;
    if (class == 4029) goto L_Acceptable;
    if (class == 4030) goto L_Acceptable;
    if (class == 4031) goto L_Acceptable;
    if (class == 4032) goto L_Acceptable;
    if (class == 4033) goto L_Acceptable;
    if (class == 4034) goto L_Acceptable;
    if (class == 4035) goto L_Acceptable;
    if (class == 4036) goto L_Acceptable;
    if (class == 4037) goto L_Acceptable;
    if (class == 4038) goto L_Acceptable;
    if (class == 4039) goto L_Acceptable;
    if (class == 4040) goto L_Acceptable;
    if (class == 4041) goto L_Acceptable;
    if (class == 4042) goto L_Acceptable;
    if (class == 4043) goto L_Acceptable;
    if (class == 4044) goto L_Acceptable;
    if (class == 4045) goto L_Acceptable;
    if (Class == 0) goto L_WantBabyNovice;
    mes @npcname$;
    mes "I'm sorry but I cannot assist you, you.. you... Big Olf!";
    close;
    L_WantBabyNovice:
    mes @npcname$;
    mes "Hello " +strcharinfo(0)+ ", would you like to become a baby novice?";
    next;
    menu "Yes",L_ConfirmJlvl,"No Thanks",L_Decline;
    close;

    L_ConfirmJlvl:
    if (JobLevel < 10) goto L_LackJlevel;
    jobchange 4023;
    mes @npcname$;
    mes "Okay! Congratulations " +strcharinfo(0)+ ", you are now a Baby Novice!";
    //get main gauche[4]
    close;

    L_SuperBaby:
    if (JobLevel < 10) goto L_LackJlevel;
    jobchange 4045;
    mes @npcname$;
    mes "Okay! Congratulations " +strcharinfo(0)+ ", you are now a Super Baby!";
    //get Main gauche[4]
    close;


    L_LackJlevel:
    mes @npcname$;
    mes "I'm sorry, but the value of your job level is insufficient sweetheart.";
    close;

    L_Acceptable:
    if (class == 4023) goto L_Job1;
    if (Class == 4024) goto L_Job2;
    if (Class == 4025) goto L_Job2;
    if (Class == 4026) goto L_Job2;
    if (Class == 4027) goto L_Job2;
    if (Class == 4028) goto L_Job2;
    if (Class == 4029) goto L_Job2;
    if (Class == 4030) goto L_Job3;
    if (Class == 4031) goto L_Job3;
    if (Class == 4032) goto L_Job3;
    if (Class == 4033) goto L_Job3;
    if (Class == 4034) goto L_Job3;
    if (Class == 4035) goto L_Job3;
    if (Class == 4036) goto L_Job3;
    if (Class == 4037) goto L_Job3;
    if (Class == 4038) goto L_Job3;
    if (Class == 4039) goto L_Job3;
    if (Class == 4040) goto L_Job3;
    if (Class == 4041) goto L_Job3;
    if (Class == 4042) goto L_Job3;
    if (Class == 4043) goto L_Job3;
    if (Class == 4044) goto L_Job3;
    if (Class == 4045) goto L_Job3;


    L_Job1:
    mes @npcname$;
    mes "Hello " +strcharinfo(0)+ ".";
    next;
    mes @npcname$;
    mes "Would you like to change into First Class Baby?";
    next;
    menu "Yes",L_FirstC,"Cancel",L_Cancel;
    close;
    L_FirstC:
    menu "Baby Swordsman",L_BabyS,
    "Baby Mage",L_BabyM,
    "Baby Archer",L_BabyArch,
    "Baby Acolyte",L_BabyAco,
    "Baby Merchant",L_BabyMerch,
    "Baby Thief",L_BabyThief,
    "Super Baby!",L_SuperBaby;
    close;
    L_BabyS:
    if (JobLevel < 10) goto L_LackJlevel;
    jobchange 4024;
    mes @npcname$;
    mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Swordsman!";
    close;

    L_BabyM:
    if (JobLevel < 10) goto L_LackJlevel;
    jobchange 4025;
    mes #npcname$;
    mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Mage!";
    close;

    L_BabyArch:
    if (JobLevel < 10) goto L_LackJlevel;
    jobchange 4026;
    mes @npcname$;
    mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Archer!";
    close;

    L_BabyAco:
    if (JobLevel < 10) goto L_LackJlevel;
    jobchange 4027;
    mes @npcname$;
    mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Acolyte!";
    close;

    L_BabyMerch:
    if (JobLevel < 10) goto L_LackJlevel;
    jobchange 4028;
    mes @npcname$;
    mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Merchant!";
    close;

    L_BabyThief:
    if (JobLevel < 10) goto L_LackJlevel;
    jobchange 4029;
    mes @npcname$;
    mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Thief!";
    close;

    L_Job2:
    mes @npcname$;
    mes "Hello " +strcharinfo(0)+ ".";
    next;
    mes @npcname$;
    mes "Would you like to change into Second Class Baby?";
    next;
    menu "Yes",L_SecondC,"Cancel",L_Cancel;
    close;
    L_SecondC:
    if (Class == 4024) goto L_BabyKnight;
    if (Class == 4025) goto L_BabyMagician;
    if (Class == 4026) goto L_BabyHunter;
    if (Class == 4027) goto L_BabyAcoChoice;
    if (Class == 4028) goto L_BabyMerchChoice;
    if (Class == 4029) goto L_BabySinStalk;
    //
    L_BabyKnight:
    if (JobLevel < 40) goto L_LackJlevel;
    mes @npcname$;
    mes "I see that you are a Baby Swordsman...";
    next;
    mes @npcname$;
    mes "Would you like to turn into a Baby Knight, or Crusader?";
    next;
    menu "Knight",L_BabyKn,"Crusader",L_Sader;
    close;
    L_BabyKn:
    jobchange 4030;
    mes @npcname$;
    mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Knight!";
    close;

    L_Sader:
    jobchange 4037;
    mes @npcname$;
    mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Crusader!";
    close;
    //
    L_BabyMagician:
    if (JobLevel < 40) goto L_LackJlevel;
    mes @npcname$;
    mes "I see that you are a Baby Mage...";
    next;
    mes @npcname$;
    mes "Would you like to turn into a Baby Wizard, or Sage?";
    next;
    menu "Wizard",L_Wiz,"Sage",L_Sage;
    close;
    L_Wiz:
    jobchange 4032;
    mes @npcname$;
    mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Wizard!";
    close;

    L_Sage:
    jobchange 4039;
    mes @npcname$;
    mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Sage!";
    close;
    //
    L_BabyHunter:
    if (JobLevel < 40) goto L_LackJlevel;
    mes @npcname$;
    mes "I see that you are a Baby Archer...";
    next;
    mes @npcname$;
    mes "Would you like to turn into a Baby Hunter, or Bard/Dancer?";
    next;
    menu "Hunter",L_Hun,"Bard/Dancer",L_BardDeceiph;
    close;
    L_Hun:
    jobchange 4034;
    mes @npcname$;
    mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Hunter!";
    close;

    L_BardDeceiph:
    if (Sex == 1) goto L_Bard;
    jobchange 4043;
    mes @npcname$;
    mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Dancer!";
    close;

    L_Bard:
    jobchange 4042;
    mes @npcname$;
    mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Bard!";
    close;

    L_BabyAcoChoice:
    if (JobLevel < 40) goto L_LackJlevel;
    mes @npcname$;
    mes "I see that you are a Baby Acolyte...";
    next;
    mes @npcname$;
    mes "Would you like to turn into a Baby Priest, or Monk?";
    next;
    menu "Priest",L_Priest,"Monk",L_Monk;
    close;
    L_Priest:
    jobchange 4031;
    mes @npcname$;
    mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Priest!";
    close;

    L_Monk:
    jobchange 4038;
    mes @npcname$;
    mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Monk!";
    close;

    L_BabyMerchChoice:
    if (JobLevel < 40) goto L_LackJlevel;
    mes @npcname$;
    mes "I see that you are a Baby Merchant...";
    next;
    mes @npcname$;
    mes "Would you like to turn into a Baby Blacksmith, or Alchemist?";
    next;
    menu "Blacksmith",L_Hammerfall,"Alchemist",L_Alch;
    close;
    L_Hammerfall:
    jobchange 4033;
    mes @npcname$;
    mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Blacksmith!";
    close;

    L_Alch:
    jobchange 4041;
    mes @npcname$;
    mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Alchemist!";
    close;

    L_BabySinStalk:
    if (JobLevel < 40) goto L_LackJlevel;
    mes @npcname$;
    mes "I see that you are a Baby Thief...";
    next;
    mes @npcname$;
    mes "Would you like to turn into a Baby Assassin, or Rogue?";
    next;
    menu "Assassin",L_sin,"Rogue",L_rogue;
    close;
    L_sin:
    jobchange 4035;
    mes @npcname$;
    mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Assassin!";
    close;

    L_rogue:
    jobchange 4040;
    mes @npcname$;
    mes "Excellent " +strcharinfo(0)+ ", you are now a Baby Rogue!";
    close;

    L_Job3:
    mes @npcname$;
    mes "I'm sorry, but you are too advanced for me to help you any longer!";
    close;
    }</div>
     

    Gunakan jasa Rekber N3 untuk menjamin jual beli anda atau menghindari penipuan dengan meng klik disini

Share This Page