查看: 530|回复: 6

[GOM引擎脚本] 传奇个人捐献脚本

[复制链接]

68

主题

114

帖子

6万

积分

终身会员

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

积分
67040

最佳新人活跃会员热心会员推广达人灌水之王突出贡献优秀版主荣誉管理论坛元老

发表于 2020-8-15 15:42:36 | 显示全部楼层 |阅读模式
[@main]


#if
#act
OPENMERCHANTBIGDLG 6 19 1 4 0 -75 1 570 30

GetListString ..\QuestDiary\0.0开区清空文本\爵位排行.txt 0  S$爵位姓名1 S$爵位数量1
GetListString ..\QuestDiary\0.0开区清空文本\爵位排行.txt 1  S$爵位姓名2 S$爵位数量2
GetListString ..\QuestDiary\0.0开区清空文本\爵位排行.txt 2  S$爵位姓名3 S$爵位数量3
GetListString ..\QuestDiary\0.0开区清空文本\爵位排行.txt 3  S$爵位姓名4 S$爵位数量4
GetListString ..\QuestDiary\0.0开区清空文本\爵位排行.txt 4  S$爵位姓名5 S$爵位数量5


#if
equal S$爵位姓名1
#act
mov S$爵位姓名1 暂无玩家……

#if
equal S$爵位姓名2
#act
mov S$爵位姓名2 暂无玩家……
#if
equal S$爵位姓名3
#act
mov S$爵位姓名3 暂无玩家……

#if
equal S$爵位姓名4
#act
mov S$爵位姓名4 暂无玩家……

#if
equal S$爵位姓名5
#act
mov S$爵位姓名5 暂无玩家……

#if
#act
SetStringBlank <$str(S$爵位姓名1)> 18 1
SetStringBlank <$str(S$爵位数量1)> 10 1

SetStringBlank <$str(S$爵位姓名2)> 18 1
SetStringBlank <$str(S$爵位数量2)> 10 1

SetStringBlank <$str(S$爵位姓名3)> 18 1
SetStringBlank <$str(S$爵位数量3)> 10 1

SetStringBlank <$str(S$爵位姓名4)> 18 1
SetStringBlank <$str(S$爵位数量4)> 10 1

SetStringBlank <$str(S$爵位姓名5)> 18 1
SetStringBlank <$str(S$爵位数量5)> 10 1

#say
<><img:51:6:244:-13>\ \ \ \ \
<>            
<>            捐赠值排名    <(每天0点清除捐赠,爵位捐献即可生效!!)/fcolor=10> \ \ \ \

<>         {第1名:<$str(S$爵位姓名1)> 捐赠数量:<$str(S$爵位数量1)>/fcolor=249}  {攻击+100 HP+5000 切割+3000 爆率+10% /fcolor=251}\ \

<>         {第2名:<$str(S$爵位姓名2)> 捐赠数量:<$str(S$爵位数量2)>/fcolor=70}  {攻击+80  HP+4000 切割+2000 爆率+8% /fcolor=251}\ \

<>         {第3名:<$str(S$爵位姓名3)> 捐赠数量:<$str(S$爵位数量3)>/fcolor=253}  {攻击+60  HP+3000 切割+1600 爆率+5% /fcolor=251}\ \

<>         {第4名:<$str(S$爵位姓名4)> 捐赠数量:<$str(S$爵位数量4)>/fcolor=254}  {攻击+30  HP+2000 切割+1200 爆率+3% /fcolor=251}\ \

<>         {第5名:<$str(S$爵位姓名5)> 捐赠数量:<$str(S$爵位数量5)>/fcolor=250}  {攻击+10  HP+1000 切割+1000 爆率+2% /fcolor=251}\ \

<>                             <任何玩家只要捐赠1万钻石以上,自动获取第五名属性/fcolor=253> \ \

<>           您已捐赠: {<$human(爵位捐赠)>/FCOLOR=249} 个钻石    {当前拥有:<$GAMEpoint>个钻石/FCOLOR=168}\ \


<>                          <imgex:6:216:216:217:110:0/@@InPutInteger1>     \




[@InPutInteger1]
#if
small N1 10000
#act
MESSAGEBOX 每次捐献不能小于10000!
break


#if
large N1 99999999
#act
meSsagebox 输入过大,请重新输入!
break


#if
checkgamepoint ? <$str(N1)>
#act
gamepoint - <$str(N1)>
;FyPlayerGird 爵位捐献 <$str(N1)> <$GUILDNAME>

MOV N$钻石消耗 <$str(N1)>
#Call [\1.0管理后台\消费统计.txt] @消费统计计算
CALCVAR HUMAN 爵位捐赠 + <$str(N1)>
SAVEVAR HUMAN 爵位捐赠  ..\QuestDiary\0.0开区清空文本\3.捐赠变量.txt
SortHumVarToListEx 爵位捐赠 ..\QuestDiary\0.0开区清空文本\3.捐赠变量.txt 1 ..\QuestDiary\0.0开区清空文本\爵位排行.txt 1
goto @Main
goto @捐赠提示
messagebox 捐赠成功!
break
#elseact
messagebox 您的钻石不足,无法捐赠!!


[@捐赠提示]
#if
#act
GetListString ..\QuestDiary\0.0开区清空文本\爵位排行.txt 0  S$爵位姓名1 S$爵位数量1
GetListString ..\QuestDiary\0.0开区清空文本\爵位排行.txt 1  S$爵位姓名2 S$爵位数量2
GetListString ..\QuestDiary\0.0开区清空文本\爵位排行.txt 2  S$爵位姓名3 S$爵位数量3
GetListString ..\QuestDiary\0.0开区清空文本\爵位排行.txt 3  S$爵位姓名4 S$爵位数量4
GetListString ..\QuestDiary\0.0开区清空文本\爵位排行.txt 4  S$爵位姓名5 S$爵位数量5

#if
not equal S$爵位姓名1
S$爵位姓名1.checkonline
#act
hcall <$str(S$爵位姓名1)> @爵位属性更新

#if
not equal S$爵位姓名2
S$爵位姓名2.checkonline
#act
hcall <$str(S$爵位姓名2)> @爵位属性更新

#if
not equal S$爵位姓名3
S$爵位姓名3.checkonline
#act
hcall <$str(S$爵位姓名3)> @爵位属性更新

#if
not equal S$爵位姓名4
S$爵位姓名4.checkonline
#act
hcall <$str(S$爵位姓名4)> @爵位属性更新

#if
not equal S$爵位姓名5
S$爵位姓名5.checkonline
#act
hcall <$str(S$爵位姓名5)> @爵位属性更新





#if
large N1 9999
#act
SENDMOVEMSG 0 249 251 145 1 爵位捐赠:{<$username>/fcolor=250}豪气凌云,一掷千金,捐献了<$str(N1)>个钻石(排行前5名获得大量倍攻加成)!!!!!
MOV N1 0
BREAK





[@爵位属性更新]
#if
#act
#call [\0.1核心文件\特殊属性\人物生命.txt] @人物生命JJ
#call [\0.1核心文件\特殊属性\人物倍攻.txt] @人物倍攻JJ





回复

使用道具 举报

0

主题

32

帖子

34

积分

新手上路

Rank: 1

积分
34
发表于 2020-8-15 15:42:36 | 显示全部楼层
看了LZ的帖子,我只想说一句很好很强大!
回复

使用道具 举报

0

主题

25

帖子

27

积分

新手上路

Rank: 1

积分
27
发表于 2020-8-15 15:44:13 | 显示全部楼层
看了LZ的帖子,我只想说一句很好很强大!
回复

使用道具 举报

0

主题

18

帖子

20

积分

新手上路

Rank: 1

积分
20
发表于 2020-8-15 15:46:48 | 显示全部楼层
膜拜神贴,后面的请保持队形~
回复

使用道具 举报

0

主题

20

帖子

23

积分

新手上路

Rank: 1

积分
23
发表于 2020-8-15 15:47:53 | 显示全部楼层
果断MARK,前十有我必火!
回复

使用道具 举报

0

主题

289

帖子

1310

积分

金牌会员

Rank: 6Rank: 6

积分
1310
发表于 2020-8-15 15:49:03 | 显示全部楼层
看了LZ的帖子,我只想说一句很好很强大!
回复

使用道具 举报

0

主题

40

帖子

51

积分

注册会员

Rank: 2

积分
51
发表于 2021-2-5 22:44:34 | 显示全部楼层

看了LZ的帖子,我只想说一句很好很强大!
回复

使用道具 举报