白猪插件如何显示1斩2斩什么的
游客 2023-7-29

  

首先 是版本配置好了白猪登录器
其次:
按照白猪的手册:
需要开通过的盘古功能:

1、基础功能页:远程仓库
2、VIP功能页:行会显示
3、VIP2功能页:脚本触发:击杀触发、斩杀显示、SetNoKillMapLv脚本触发; 增改函数:随身仓库函数、设置玩家称号函数;其他功能:屏蔽发言频繁禁言功能、

不可打开项目:
增改函数:脚本延迟函数

把手册里的RunQuest.pas 配置以下代码(白猪手册里面有) 到游戏的D盘里面的RunQuest.pas,

不要问为什么,以下两个函数,一个是 击杀函数,一个是 通信函数。击杀函数在杀人后向客户端发送消息;通信函数 主要处理复活、远程仓库

//1、将下面函数,拷贝到D盘里面的,runquest.pas中
//击杀触发  
//默认传递 被击杀玩家对象(This_Player)
//参数一传递杀人玩家名字(KillerName)
//参数二传递当前地图名称(MapDesc)
//通过This_Player.FindPlayerByName('KillerName');获取杀人玩家对象.
procedure OnKill(KillerName ,MapDesc:string);
var Killer:TPlayer;
 KillNumber , KilledNumber : Integer;
begin
//================================= 被杀检测狂暴脚本
 Killer := This_Player.FindPlayerByName(KillerName);              //获取杀人玩家对象 
 Killer.PlayerNotice('killedsomebody',5);      //表示你击杀了某人
end;   


//2、将下面函数,拷贝到runquest.pas中
//@SetNoKillMapLv,1表示原地复活,2表示回城复活,3表示远程仓库
procedure SetNoKillMapLv(ID:Integer);
begin
 case ID of
  1:
  begin
   This_Player.PlayerNotice('autorelive',5);
   This_Player.PlayerNotice('你已原地复活',5);
   if This_Player.MyLFnum > 10 then
   begin
    This_Player.DecLF(10001, 10, false);
   end;
   This_Player.AutoReLive(This_Player.MapName,This_Player.My_X+random(3)-1,This_Player.My_Y+random(3)-1,true,true); //原地复活
  end;
  2:
  begin
   This_Player.PlayerNotice('autorelive',5);
   This_Player.PlayerNotice('你已盟重复活',5);
   if This_Player.MyLFnum > 10 then
   begin
    This_Player.DecLF(10001, 10, false);
   end;
   This_Player.AutoReLive('3',330+random(3)-1,330+random(3)-1,true,true);
  end;
  3:
  begin
   This_Player.NewBieGiftConsume;//一行代码实现随身仓库
  end;
 end;
end;   

 

最新回复 (0)
返回