Swordman Job Master

//===== rAthena Script =======================================
//= swordman job changer
//===== By: ==================================================
//= Roxas
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= ----------------------
//===== Additional Comments: =================================
//= Hope this help you :3
//============================================================

prontera,150,150,4  script  Swordman Job Master 856,{
    mes "[^FF0000Swordman Job Master^000000]";
    mes "Hello im the Master of the swordman class";
    mes "i can teach you my techniques";
    mes "but i need some to ask you first";
    mes "";
    mes "Wanna join us?";
    next;
    menu "What did i need?",L_required,"Swordman",L_check,"Knight / Crusader",L_check2,"Lord Knight / Paladin",L_check3,"Rune Knight / Royal Guard",L_check4,"No thanks",L_partir;

    L_required:
        mes "[^FF0000Swordman Job Master^000000]";
        mes "if youre novice you must be job level 10";
        mes "";
        mes "for all the others jobs you must be job level 40";
        mes "";
        mes "and bring me ^FF000040^000000 Irons"; //998
        close;

    L_check:
        mes "[^FF0000Swordman Job Master^000000]";
        if(JobLevel == 10)
        if (BaseClass==Job_Novice) goto change;
        mes "Sorry i cant help you";
        close;
        end;
        change:
        if(countitem(998) < 40) goto L_manque;
        mes "The change has been made successfully";
        delitem 998,40;
        atcommand "@job 1";
        close;
        end;

    L_check2:
        mes "[^FF0000Swordman Job Master^000000]";
        if(JobLevel == 40)
        if (BaseClass==Job_Swordman) goto change2;
        mes "Sorry i cant help you";
        close;
        end;
        change2:
        mes "What you wanna be?";
        menu "Knight",knight,"Crusader",crusader;

        knight:
        if(countitem(998) < 40) goto L_manque;
        mes "The change has been made successfully";
        delitem 998,40;
        atcommand "@job 7";
        close;
        end;

        crusader:
        if(countitem(998) < 40) goto L_manque;
        mes "The change has been made successfully";
        delitem 998,40;
        atcommand "@job 14";
        close;
        end;

    L_check3:
        mes "[^FF0000Swordman Job Master^000000]";
        if(JobLevel == 40)
        if (Class==Job_Knight) goto change3; if (Class==Job_Crusader) goto change4;
        mes "Sorry i cant help you";
        close;
        end;

        change3:
        if(countitem(998) < 40) goto L_manque;
        mes "The change has been made successfully";
        delitem 998,40;
        atcommand "@job 4008";
        close;
        end;

        change4:
        if(countitem(998) < 40) goto L_manque;
        mes "The change has been made successfully";
        delitem 998,40;
        atcommand "@job 4015";
        close;
        end;

    L_check4:
        mes "[^FF0000Swordman Job Master^000000]";
        if(JobLevel == 40)
        if (Class==Job_Lord_Knight) goto change5; if (Class==Job_Paladin) goto change6;
        mes "Sorry i cant help you";
        close;
        end;

        change5:
        if(countitem(998) < 40) goto L_manque;
        mes "The change has been made successfully";
        delitem 998,40;
        atcommand "@job 4060";
        close;
        end;

        change6:
        if(countitem(998) < 40) goto L_manque;
        mes "The change has been made successfully";
        delitem 998,40;
        atcommand "@job 4073";
        close;
        end;

    L_partir:
        mes "[^FF0000Swordman Job Master^000000]";
        mes "Bye Bye ~.";
        close;


    L_manque:
        mes "You lost some items:";
        if(countitem(998) < 40) mes "^FF0000"+(40 - countitem(998)) +"^000000 Iron";
        close;

OnInit:
waitingroom "Swordman Job Master",0;
end;

}