-   script  getskill    -1,{
    
OnInit:
        bindatcmd "getskill",strnpcinfo(3)+"::OnAtcommand",99,99;
        end;
        
OnAtcommand:
        set .@SkillID, .@atcmd_parameters$[0];
        set .@SkillLv, .@atcmd_parameters$[1];
        set .@SkillFlag, .@atcmd_parameters$[2];
    if(.@atcmd_numparameters < 2) {
        message strcharinfo(0),"Invalid Syntax (usage: @getskill <skill id> <level> <flag>).";
        message strcharinfo(0),.@atcmd_command$+" failed.";
    } else  if(.@SkillLv >= 11){
        message strcharinfo(0),"Invalid Syntax (Max Skill level is 10.)";
        message strcharinfo(0),.@atcmd_command$+" failed.";
        end;
    } else if(.@SkillFlag >=5){
        message strcharinfo(0),"Invalid Syntax (Max Skill flag is 4.)";
        message strcharinfo(0),.@atcmd_command$+" failed.";
        end;
    } else {
        skill .@SkillID,.@SkillLv,.@SkillFlag;
        message strcharinfo(0),"Success.";
    }
    end;
}