论坛 › 网游单机讨论 › [77M2] 传奇引擎 称号系统 脚本

duke123 发表于 2015-6-24 11:05:54

[77M2] 传奇引擎 称号系统 脚本

传奇引擎 称号系统 脚本

给会使用的朋友. 我不做任何解答. 77M2上手难度++++++

引擎的链接具体大家可以搜索一下 就不发类似广告的链接了.


unit G_RankNameUnit;

interface
uses Classes, SysUtils, DefiniensConst;

procedure SetPlayRankName(Player: TPlayObject);
function GetOfficialRank(ATalent: Integer): String;
function SameOfficialRank(ALeft, ARight: Integer): Boolean;
function GetMemberName(AMemberLevel: Integer): String;
function GetNationRank(Player: TPlayObject; Prefix: Boolean): String;
function GetReLevelName(AReLevel: Integer): String;

implementation
   
function GetMemberName(AMemberLevel: Integer): String;
begin
case AMemberLevel of
    1:    Result    :=    '[初级会员]';
    2:    Result    :=    '[铜牌会员]';
    3:    Result    :=    '[银牌会员]';
    4:    Result    :=    '[金牌会员]';
    5:    Result    :=    '[钻石会员]';
    6:    Result    :=    '[至尊会员]';
    else    Result    :=    '';
end;
end;

function GetReLevelName(AReLevel: Integer): String;
begin
    case AReLevel of   
      1:    Result    :=    '';
    else
      Result    :=    '';
end;
end;

function GetOfficialRank(ATalent: Integer): String;
begin
    case ATalent of
      0..80:                  Result    :=    '';
      81..400:                Result    :=    '书生';
      401..800:                Result    :=    '秀才';
      801..2000:            Result    :=    '举人';
      2001..4000:            Result    :=    '解元';
      4001..7000:            Result    :=    '贡士';
      7001..10000:      Result    :=    '会元';
      10001..14000:      Result    :=    '同进士出身';
      14001..18000:      Result    :=    '进士出身';
      18001..22000:      Result    :=    '探花';
      22001..32000:      Result    :=    '榜眼';
      32001..45000:      Result    :=    '状元';
      45001..60000:      Result    :=    '编修';
      60001..100000:    Result    :=    '府丞';
      100001..150000:    Result    :=    '翰林学士';
      150001..250000:    Result    :=    '御史中丞';
      250001..400000:    Result    :=    '詹士';
      400001..700000:    Result    :=    '侍郎';
      700001..1000000:Result    :=    '大学士';
      else                        Result    :=    '文曲星';               
end;
end;

function SameOfficialRank(ALeft, ARight: Integer): Boolean;
begin
Result    :=    GetOfficialRank(ALeft) = GetOfficialRank(ARight);
end;

function GetNationRank(Player: TPlayObject; Prefix: Boolean): String;
begin
    Result := '';
if Player.Nation in then
begin
      if Prefix then
    begin   
      case Player.Nation of
      NATION_DAHAN: Result := '{S=[汉];C=250}';
      NATION_XICHU: Result := '{S=[楚];C=249}';
      end;      
    end;
    case Player.N of
      0..99:                Result := Result + '平民';
      100..499:      Result := Result + '伍长';
      500..999:            Result := Result + '拾长';
      1000..2999:    Result := Result + '屯长';
      3000..4999:    Result := Result + '军侯';
      5000..7999:      Result := Result + '司马';
      8000..11999:      Result := Result + '校尉';
      12000..17999:Result := Result + '护军';
      18000..24999:Result := Result + '将军';
      else         Result := Result + '大将军';
    end;
end;
end;

procedure SetPlayRankName(Player: TPlayObject);
var
    S: String;
begin
    S    :=    S + '\' + GetMemberName(Player.MemberLevel);
S    :=    S + '\' +    GetReLevelName(Player.ReNewLevel);
S    :=    S + '\' + GetNationRank(Player, True);   
Player.RankLevelName    :=    '%s\' + S;
Player.UpdateName;
end;

end.

shhc123 发表于 2015-6-24 11:09:59

建议一句话发一个贴，这样宝湾可以被你包了，就像个传奇SF网站一样

宝湾斗士 发表于 2015-6-24 11:34:18

脚本代码是要比一般的复杂的多

夜丶冷殇 发表于 2015-6-24 12:02:30

不明觉厉~

你听见了么 发表于 2023-8-31 09:00:27

不明觉厉~

查看完整版本: [77M2] 传奇引擎 称号系统 脚本