判断转生等级及等级
procedureMain(Npc:TNormNPC;Player:TPlayObject;Args:TArgs);
begin
casePlayer.ReNewLevelof
0:
begin
casePlayer.Levelof
7:Player.SendMessage('7级'0);
9:Player.SendMessage('9级'0);
end;
end;
1:
begin
casePlayer.Levelof
7:Player.SendMessage('1转7级'0);
9:Player.SendMessage('1转9级'0);
end;
end;
else
begin
ifPlayer.Level=22then
Player.SendMessage('22级'0);
end;
end;
end;
示例中使用了if和case两种判断等级的方式
procedureMain(Npc:TNormNPC;Player:TPlayObject;Args:TArgs);
begin
casePlayer.ReNewLevelof
0:
begin
casePlayer.Levelof
7:Player.SendMessage('7级'0);
9:Player.SendMessage('9级'0);
end;
end;
1:
begin
casePlayer.Levelof
7:Player.SendMessage('1转7级'0);
9:Player.SendMessage('1转9级'0);
end;
end;
else
begin
ifPlayer.Level=22then
Player.SendMessage('22级'0);
end;
end;
end;
示例中使用了if和case两种判断等级的方式

