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 732 times, submitted by Guest.