- 战神引擎
- 各位好人大哥,能发一个新月城风云链接吗? 6月前
- android-killer 最新的1.30+ 视频教程 11月前
- 91源码+教程整理完善 (delphi7) 9天前
- 复古星王任务版-战神引擎 2023-2-5
首先 是版本配置好了白猪登录器
其次:
按照白猪的手册:
需要开通过的盘古功能:
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;