白猪关于封号,一体时装,衣服,武器,翅膀,斗笠,等扩展封号
游客 游客组 8月前

怎么给予封号一体时装等的显示
白猪手册里面有解释,
在你要给予封号的地方写上(1表示开启,后面是封号名称)

This_Player.QuestInfo('3:1:2:3:5:9');
支持多封号

取消封号上
This_Player.QuestInfo('0:0:0:3:5:9');  

将相应封号位设置为 0 即可
封号给予编号 = 素材ID号/2+1

这几个数字分别对应封号的编号,一体时装什么的编号,至于显示,

时装素材文件名,存放于 data 目录,例如此处的时装文件名叫 fashion.zip,

如何配置时装,找到补丁包里面的fashion.json,按照手册的格式写
称号也是。
服务器配置,RunMailQuest.pas 配置,在邮件检查文件中加入如下代码可以在初始化时初始化玩家的时装、封号状态,用于刷新外显
把下面代码添加到RunMailQuest.pas,多参考手册里面等其他服务器的要求配置

program Mir2;
procedure givefenghao;
var fh0,fh1, fh2, fh3, fh4, fh5, exfh1 : integer;
begin
 fh0  := This_Player.GetV(69,1);  //首位封号
 fh1  := This_Player.GetV(69,2);  //一体时装
 fh2  := This_Player.GetV(69,3);  //衣服
 fh3  := This_Player.GetV(69,4);  //武器
 fh4  := This_Player.GetV(69,5);  //翅膀
 fh5  := This_Player.GetV(69,6);  //斗笠
 exfh1  := This_Player.GetV(69,7); //扩展封号1
 
 if fh0 < 0 then fh0 := 0;
 if fh1 < 0 then fh1 := 0;
 if fh2 < 0 then fh2 := 0;
 if fh3 < 0 then fh3 := 0;
 if fh4 < 0 then fh4 := 0;
 if fh5 < 0 then fh5 := 0;
 if exfh1 < 0 then exfh1 := 0;
 // 封号给予编号 = 素材ID号/2+1
 This_Player.QuestInfo(inttostr(fh0)+':'+inttostr(fh1)+':'+inttostr(fh2)+':'+inttostr(fh3)+':'+inttostr(fh4)+':'+inttostr(fh5)+':'+inttostr(exfh1));
end;

procedure PlayerCheckNewMail();
var Startday , PrzDay , P_lv , nowDay : integer;
begin    
 //首次登陆处理封号与时装刷新
 givefenghao;
 //系统初始化,用于读取数据
 This_Player.PlayerNotice('initialization',5);

//表示通过helper实现通讯

This_Player.HelperDialog('Helper:1');
 //openfun:1  表示允许该用户挂机; openfun:0 表示不允许该用户挂机
 This_Player.PlayerNotice('openfun:1',5);
end;
begin
end.

最后于 8月前 被游客编辑 ,原因:
最新回复 (0)
返回