元宝抽奖脚本(设置抽奖金额和奖励物品以及全服个人抽取次数)

元宝抽奖脚本,支持战神引擎,可以设置抽奖的金额、个人和全服的次数,也可以任意设置抽奖里面的物品装备等,帮主测试了一下,这个中奖成本很高,反正每一次都不回空手。你们如果需要,跟自己服里面的整体情况,修改奖品的高低和抽取的成本。

元宝抽奖脚本(设置抽奖金额和奖励物品以及全服个人抽取次数)

元宝抽奖脚本(设置抽奖金额和奖励物品以及全服个人抽取次数)

脚本如下

{元宝抽奖

作者:开心就好

内容:全服每天限制为300次,个人一天只能抽20次,每抽奖一次需要1元宝

}

PROGRAMMir2;

{$Icommon.pas}

var

today:integer;

num:integer;

Snum:integer;

Snum0:string;

num0:string;

Procedure_doexit;

begin

This_Npc.CloseDialog(This_Player);

end;

proceduredomain;

begin

Snum0:=inttostr(30-Snum);//全服剩余抽奖次数

num0:=inttostr(20-Snum);//个人剩余抽奖次数

This_NPC.NpcDialog(This_Player,

'☆☆☆欢迎光临【开心就好】抽奖中心☆☆☆\\|'

+''+'每抽奖一次需要<1元宝 c="red">!|\\'

+''+'全服每天限制为300次'+''+'<还剩 c="red">'+snum0+'<个 c="red">\\|'

+''+'个人一天只能抽20次'+''+'<还剩 c="red">'+num0+'<个 c="red">\\|'

+'本服里所有装备和物品等都可以在抽奖中获得\\|'

+'☆☆奖品绝对物有所值心动不如行动哦☆☆\\|'

+''+'{cmd}<我要抽奖 cj="">\\');

end;

procedure_cj;

var

Rdm_int:integer;

WpName:string;

begin

today:=GetDateNum(GetNow);

ifThis_Player.GetV(63,3)<>todaythen

begin

This_Player.SetV(63,3,today);

This_Player.SetV(63,4,0);

end;

ifGetG(65,1)<>todaythen

begin

SetG(65,1,today);

SetG(65,2,0);

end;

Snum:=GetG(65,2)

num:=This_Player.GetV(63,4);

ifSnum<300then//可以更改全服抽奖次数上限,上面的显示项目最好同时修改

begin

ifnum<20then//更改个人抽奖次数上限

begin

Rdm_int:=random(100);

ifThis_Player.YBNum>0then

begin

ifThis_Player.FreeBagNum>=2then

begin

ifRdm_int<5then

begin

caserandom(25)of

0:WpName:='屠龙';

1:WpName:='嗜魂法杖';

2:WpName:='逍遥扇';

3:WpName:='圣战头盔';

4:WpName:='光芒项链';

5:WpName:='光芒手镯';

6:WpName:='光芒戒指';

7:WpName:='烈焰戒指';

8:WpName:='烈焰项链';

9:WpName:='烈焰手镯';

10:WpName:='雷霆项链';

11:WpName:='传送戒指';

12:WpName:='麻痹戒指';

13:WpName:='隐身戒指';

14:WpName:='雷霆手镯';

15:WpName:='防御戒指';

16:WpName:='天师长袍';

17:WpName:='天尊道袍';

18:WpName:='霓裳羽衣';

19:WpName:='法神披风';

20:WpName:='圣战宝甲';

21:WpName:='天魔神甲';

22:WpName:='噬血术';

23:WpName:='逐日剑法';

24:WpName:='流星火雨';

end;

endelseifRdm_int<10then

begin

caserandom(16)of

0:WpName:='屠龙';

1:WpName:='嗜魂法杖';

2:WpName:='逍遥扇';

4:WpName:='圣战项链';

5:WpName:='圣战手镯';

6:WpName:='天尊戒指';

7:WpName:='圣战戒指';

8:WpName:='天尊项链';

9:WpName:='天尊手镯';

10:WpName:='法神项链';

11:WpName:='法神戒指';

12:WpName:='圣战戒指';

13:WpName:='技巧项链';

14:WpName:='法神手镯';

15:WpName:='防御戒指';

end;

endelseifRdm_int<20then

begin

caserandom(10)of

0:WpName:='青铜腰带';

1:WpName:='龙牙';

2:WpName:='龙纹剑';

3:WpName:='怒斩';

4:WpName:='黑铁头盔';

5:WpName:='恶魔铃铛';

6:WpName:='三眼手镯';

7:WpName:='泰坦戒指';

8:WpName:='力量戒指';

9:WpName:='天尊头盔';

end;

endelseifRdm_int<100then

begin

caserandom(7)of

0:WpName:='裁决之杖';

1:WpName:='骨玉权杖';

2:WpName:='无极棍';

3:WpName:='10灵符礼包';

4:WpName:='祝福油';

5:WpName:='金刚石';

6:WpName:='金条';

end;

end;

This_Player.PsYBConsum(This_NPC,'xin',20001,1,1);//1为扣除元宝个数

This_Player.Give(WpName,1);

setG(65,2,Snum+1);

This_Player.setV(63,4,num+1);

This_NPC.NpcDialog(This_Player,

WpName+'已放入您的包裹!\\|'

+'{cmd}<继续使用1元宝抽取武器 cj="">');

endelse

This_NPC.NpcDialog(This_Player,

'没有足够的包裹空间!\\|'

+'{cmd}<返回 main="">');

endelse

This_NPC.NpcDialog(This_Player,

'没有足够的元宝,不可抽取\\|'

+'{cmd}<返回 main="">');

endelse

This_NPC.NpcDialog(This_Player,'你今天已抽奖20次!');

endelse

This_NPC.NpcDialog(This_Player,'今日服务器30次限额抽奖已经抽完!');

end;

functionxin(price,num:Integer):boolean;

begin

result:=true;

end;

Begin

domain;

end.

温馨提示:本文最后更新于2022-06-14 22:58:14,某些文章具有时效性,若有错误或已失效,请在下方留言或联系吾爱游戏迷
------本页内容已结束,喜欢请分享------

感谢您的来访,获取更多优质资源请收藏本站。

© 版权声明
THE END
喜欢就支持一下吧
点赞248 分享
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片