战神引擎远程仓库脚本实例及GM测试NPC脚本
function UseItem: Boolean;//这是一个物品脚本,可以添加一个物品,测试的话也可以替换已有的物品脚本begin
This_Player.SetV(66,6,1); //这里设置变量为1,callout函数检测到就会打开仓库
Result := false;
end;
begin
end.
program mir2;
procedure _exit;
begin
This_Npc.CloseDialog(This_Player);
end;
//以下命令任务号字段号都是写死的,插件通过监控写入的变量值调用相对应功能
procedure _test1;
begin
This_Player.SetS(1,1,0);//转战士
end;
procedure _test2;
begin
This_Player.SetS(1,1,1);//转法师
end;
procedure _test3;
begin
This_Player.SetS(1,1,2);//转道士
end;
procedure _test4;
begin
This_Player.SetS(1,1,3);//变性
end;
//攻沙设置需配合脚本使用,
//目前发现M2源代码在攻沙这一块可能有问题,造成M2卡死
//尽量减少攻沙频率
procedure _test5;
begin
This_Player.SetS(1,1,4);//开始攻沙
This_Player.PlayerNotice('设置中十秒后生效...',0);
end;
procedure _test6;
begin
This_Player.SetS(1,1,5);//结束攻沙
This_Player.PlayerNotice('设置中十秒后生效...',0);
end;
procedure _test7;
begin
This_Player.SetS(1,1,6);//给与沙巴克
end;
//下面演示的是名字变色,第三个参数为颜色值0-255
//将玩家名字颜色存到其他任意变量中
//在登录脚本取出变量,并写到s,1,2变量中
procedure _test8;
var color : Integer;
begin
color := random(256);
This_Player.PlayerNotice(inttostr(color),0);
This_Player.SetS(1,2,color);//设置名字颜色
end;
procedure _test9;
var color : Integer;
begin
This_NPC.NpcDialog(This_Player,
+'<战神引擎插件演示/fcolor=253><>||\'
+'<远程仓库:>|\'
+'<插件主要解决远离NPC无法存取的问题,开启远程仓库可使用callout循环检测>|\');
This_Player.SetV(66,6,0);//现将变量初始化
This_Player.CallOut(This_Npc,1,'cang'); //开启循环检测
end;
procedure cang;
begin
if This_Player.GetV(66,6) = 1 then//检测变量是否等于1,通过使用背包物品将设置该变量!
begin
This_Player.SetV(66,6,0);
This_Npc.Click_GetBack(This_Player);
end;
This_Player.CallOut(This_Npc,1,'cang');
end;
procedure _test10;
begin
This_Player.SetS(1,1,7);//禁言命令 可在登录脚本 升级脚本中 判断等级后调用
end;
procedure _test11;
begin
This_Player.SetS(1,1,8);//解除禁言 可在登录脚本 升级脚本中 判断等级后调用
end;
procedure _test12;
begin
This_NPC.NpcDialog(This_Player,
+'<战神引擎插件演示/fcolor=253><>||\'
+'<行会显示:>|\'
+'<调用M2原生行会显示功能,最完美显示行会方案,在线玩家须小退才能显示>|\');
end;
procedure domain;
begin
This_NPC.NpcDialog(This_Player,
+'<战神引擎插件演示/fcolor=253><>|\'
+'<更多功能敬请期待!/fcolor=253>|\'
+'{cmd}<转战士/@test1> ^<转法师/@test2> ^<转道士/@test3>|\'
+'{cmd}<变性/@test4> ^<开始攻沙/@test5> ^<结束攻沙/@test6>|\'
+'{cmd}<给与沙巴克/@test7> ^<名字变色/@test8> ^<开启远程仓库/@test9>|\'
+'{cmd}<玩家禁言/@test10> ^<解除禁言/@test11> ^<行会显示/@test12>|\'
+'<战神引擎插件演示Q群:52529104//fcolor=253>');
end;
begin
domain;
end.
积分任务
页:
[1]