viewing paste Unknown #21064 | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
/* Returning values */
/* Same for every function */
/* Returns -1 if you gave an unknown profession. */
/* Returns -2 if you already have a profession taken */
/* Returns 1 if profession was succesfully given. */
 
/* Get Primary Second Profession Function */
function        script  g_Profession2   {
        .@Profession$ = getarg(0);
        .@Prof_Level = getarg(1);
        .@Prof_Skill = getarg(2);
       
        /* Profession settings */
        setarray .@Professions$[0],"Herbalism","Mining"
        setarray .@Max_Prof_Level[0],2,3;
        setarray .@Max_Prof_Skill[0],500,600;
        /* end of settings */
       
        for(.@i = 0; .@i < getarraysize(.@Professions$); .@i++)
                if(.@Profession$ == .@Professions$[.@i])
                        if(!Profession_2$) {
                                Profession_2$ = .@Profession$;
                               
                                /* Defaulting_values */
                                if(.@Prof_Level == 0 || .@Prof_Level > .@Max_Prof_Level[.@i])
                                        .@Prof_Level = 1;
                                if(.@Prof_Skill == 0 || .@Prof_Skill > .@Max_Prof_Skill[.@i])
                                        .@Prof_Skill = 1;
                                       
                                if(.@Prof_Level)
                                        Profession_2_Level = .@Prof_Level;
                                       
                                if(.@Prof_Skill)
                                        Profession_2_Skill = .@Prof_Skill;
                               
                                return 1;
                        } else return -2;
                       
                return -1;
}
Viewed 419 times, submitted by unknown.