战神引擎远程仓库脚本实例及GM测试NPC脚本

夜游神

function UseItem: Boolean;  //这是一个物品脚本,可以添加一个物品,测试的话也可以替换已有的物品脚本

begin
    This_Player.SetV(66,6,1); //这里设置变量为1,callout函数检测到就会打开仓库
    Result := false;
end;

begin
end.
[mw_shl_code=delphi,true]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><[Q群:52529104]>||\'
   +'<远程仓库:>|\'
   +'<插件主要解决远离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><[Q群:52529104]>||\'
   +'<行会显示:>|\'
   +'<调用M2原生行会显示功能,最完美显示行会方案,在线玩家须小退才能显示>|\');
end;


procedure domain;
begin

  This_NPC.NpcDialog(This_Player,
   +'<战神引擎插件演示/fcolor=253><[Q群:52529104]>|\'
   +'<更多功能敬请期待!/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.

[/mw_shl_code]

Chinese.Doll

积分任务