直接上代码：
function script X_Job {
if (169 == (BaseLevel + JobLevel) * Upper){
setarray .Jn$[0], "",“骑士领主”,“圣殿十字军”,“神官”,“武术宗师”,“超魔导士”,“智者”,“神工匠”,“创造者”,“神射手”,“搞笑艺人/冷艳舞姬”,“十字刺客”,“神行太保”;
setarray .Jc[0], 0, 4008, 4015, 4009, 4016, 4010, 4017, 4011, 4019, 4012, 4021, 4013, 4018;
mes “[VIP职业变更]”;
mes “请选择要变换的职业”;
set .@m$, "";
set .@l, getarraysize(.Jc);
for (set .@i, 1;.@i <.@l; set .@i, .@i + 1){
if (.Jc[.@i] != Class) set .@m$, .@m$ + .Jn$[.@i];
if (.@i !=.@l - 1) set .@m$, .@m$ + “:”;
}
set .@tjob, select(.@m$);
for (set .@i, 1;.@i < 11; set .@i, .@i + 1)
if(getequipisequiped(.@i))unequip .@i;
jobchange .Jc[.@tjob] - (.@tjob % 10 ? 0 : Sex);
atcommand “@joblvup 70”;
resetstatus;
mes “恭喜您成为 [ 0000ff” + .Jn$[.@tjob] + “ 000000]”;
}else{
mes “[VIP职业变更]”;
mes “主职业进阶二转满级”;
mes “才可以变更职业！”;
}
end;
}
PS:没搞道具检测，表喷
