战神引擎幸运大抽奖Npc脚本(带自定义素材)

用于战神引擎的幸运大抽奖Npc脚本,带了自定义素材,素材需要或者裤衩插件才能支持,默认提取的是2.0,脚本为明文版,可以任意修改里面的奖品内容。

战神引擎幸运大抽奖Npc脚本(带自定义素材)

部分脚本

procedure _suip;
var man:integer;
begin
if This_Player.GetV(59,2) >= 200 then
begin
This_Player.Give('战神碎片', 1);
This_Player.SetV(59,2,0);
ServerSay('恭喜玩家【'+This_Player.Name+'】在幸运大转盘获取到稀有物品战神碎片!',5);
end else
     This_Npc.NpcDialog(This_Player,
   '对不起你的幸运值未被注满还不能领取。'
   );
end;
procedure _SetDraw(GStr:string);
begin
     if GetG(85,StrToInt(GStr)) = 1 then
	 begin
	 SetG(85,StrToInt(GStr),0);
	 _GmPage;
	 end else
	 SetG(85,StrToInt(GStr),1);
	 _GmPage;
end;
procedure _ResetDraw;
begin
     SetG(85,38,GetG(85,36));
	 _GmPage;
	 This_NPC.InputDialog(This_Player,'                                                        修改成功!',1,100);
end;
procedure _HumTopLim;
begin
     This_NPC.InputDialog(This_Player,'请输入您要设置的个人上限数量',0,114);
end;
procedure P114;
begin
    SetG(85,39,StrToIntDef(This_NPC.InputStr,-1));
	_GmPage;
	This_NPC.InputDialog(This_Player,'                                                        修改成功!',1,100);
end;
procedure _ResetOther;
begin
     This_NPC.InputDialog(This_Player,'请输入您要重置的玩家名字                 可输入自己名字',0,113);
end;
procedure P113;
var ClearName:string;
begin
     ClearName:=This_NPC.InputStr;
     if This_Player.FindPlayer(ClearName) then
	 begin
     This_Player.FindPlayerByName(ClearName).SetS(85,38,100);
	 This_NPC.InputDialog(This_Player,'您已成功重置了'+ClearName+'今日的抽奖次数!',1,100);
	 end else
	 This_NPC.InputDialog(This_Player,'重置失败!'+ClearName+'当前不在线!',1,100);
end;
分享到:
赞(1)