捐献属性系统

发表于 2025-9-19 02:32:26

(@effigy)
[@main]
;------------
#IF
TRUE
#ACT
ClearVar S0 99
READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S10 0 0 1 | ;//由大到小，取第1名
READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S11 1 0 1 | ;//由大到小，取第2名
READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S12 2 0 1 | ;//由大到小，取第3名
READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S13 3 0 1 | ;//由大到小，取第4名
READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S14 4 0 1 | ;//由大到小，取第5名
READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S15 5 0 1 | ;//由大到小，取第6名
READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S16 6 0 1 | ;//由大到小，取第7名
READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S17 7 0 1 | ;//由大到小，取第8名
READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S18 8 0 1 | ;//由大到小，取第9名
READRANDOMSTR ..\QuestDiary\数据文件\捐献排行.TXT S19 9 0 1 | ;//由大到小，取第10名
#IF
!EQUAL S10
#ACT
SPLIT $STR(S10) | S20
#ELSEACT
MOV S20 无
MOV S21
#IF
!EQUAL S11
#ACT
SPLIT $STR(S11) | S30
#ELSEACT
MOV S30 无
MOV S31
#IF
!EQUAL S12
#ACT
SPLIT $STR(S12) | S40
#ELSEACT
MOV S40 无
MOV S41
#IF
!EQUAL S13
#ACT
SPLIT $STR(S13) | S42
#ELSEACT
MOV S42 无
MOV S43
#IF
!EQUAL S14
#ACT
SPLIT $STR(S14) | S70
#ELSEACT
MOV S70 无
MOV S71
#IF
!EQUAL S15
#ACT
SPLIT $STR(S15) | S72
#ELSEACT
MOV S72 无
MOV S73
#IF
!EQUAL S16
#ACT
SPLIT $STR(S16) | S74
#ELSEACT
MOV S74 无
MOV S75
#IF
!EQUAL S17
#ACT
SPLIT $STR(S17) | S76
#ELSEACT
MOV S76 无
MOV S77
#IF
!EQUAL S18
#ACT
SPLIT $STR(S18) | S78
#ELSEACT
MOV S78 无
MOV S79
#IF
!EQUAL S19
#ACT
SPLIT $STR(S19) | S80
#ELSEACT
MOV S80 无
MOV S81
#IF
TRUE
#ACT
MOV S51 $STR(S20)
MOV S52 $STR(S30)
MOV S53 $STR(S40)
MOV S54 $STR(S42)
MOV S55 $STR(S70)
MOV S56 $STR(S72)
MOV S57 $STR(S74)
MOV S58 $STR(S76)
MOV S59 $STR(S78)
MOV S60 $STR(S80)
FillText S51 14
FillText S52 14
FillText S53 14
FillText S54 14
FillText S55 14
FillText S56 14
FillText S57 14
FillText S58 14
FillText S59 14
FillText S60 14
#SAY
\\
\ <COLOR=GREEN 全服所有玩家-对捐献进行排名,排行榜前十名玩家获得额外属性加成>\
\ <Color=FF00DE ╔════════════════════════════════════>
\ <Color=FF00DE ‖> <COLOR=GREEN 第一名:攻防+1500-1500 HP+10万> <Color=FF00DE 玩家:><$STR(S51)><Color=FF00DE 捐献数量:>[<$STR(S21)>] <Color=FF00DE >
\ <Color=FF00DE ‖> <COLOR=GREEN 第二名:攻防+500-500 HP+05万> <Color=FF00DE 玩家:><$STR(S52)><Color=FF00DE 捐献数量:>[<$STR(S31)>] <Color=FF00DE >
\ <Color=FF00DE ‖> <COLOR=GREEN 第三名:攻防+300-300 HP+03万> <Color=FF00DE 玩家:><$STR(S53)><Color=FF00DE 捐献数量:>[<$STR(S41)>] <Color=FF00DE >
\ <Color=FF00DE ‖> <COLOR=ORANGE 第四名:攻防+200-200 HP+02万> <Color=FF00DE 玩家:><$STR(S54)><Color=FF00DE 捐献数量:>[<$STR(S43)>] <Color=FF00DE >
\ <Color=FF00DE ‖> <COLOR=ORANGE 第五名:攻防+200-200 HP+02万> <Color=FF00DE 玩家:><$STR(S55)><Color=FF00DE 捐献数量:>[<$STR(S71)>] <Color=FF00DE >
\ <Color=FF00DE ‖> <COLOR=ORANGE 第六名:攻防+100-100 HP+01万> <Color=FF00DE 玩家:><$STR(S56)><Color=FF00DE 捐献数量:>[<$STR(S73)>] <Color=FF00DE >
\ <Color=FF00DE ‖> <COLOR=ORANGE 第七名:攻防+100-100 HP+01万> <Color=FF00DE 玩家:><$STR(S57)><Color=FF00DE 捐献数量:>[<$STR(S75)>] <Color=FF00DE >
\ <Color=FF00DE ‖> <COLOR=ORANGE 第八名:攻防+100-100 HP+01万> <Color=FF00DE 玩家:><$STR(S58)><Color=FF00DE 捐献数量:>[<$STR(S77)>] <Color=FF00DE >
\ <Color=FF00DE ‖> <COLOR=ORANGE 第九名:攻防+100-100 HP+01万> <Color=FF00DE 玩家:><$STR(S59)><Color=FF00DE 捐献数量:>[<$STR(S79)>] <Color=FF00DE >
\ <Color=FF00DE ‖> <COLOR=ORANGE 第十名:攻防+100-100 HP+01万> <Color=FF00DE 玩家:><$STR(S60)><Color=FF00DE 捐献数量:>[<$STR(S81)>] <Color=FF00DE >
\ <Color=FF00DE ╚════════════════════════════════════>\
\ <捐献创世币/@CallInPutInteger25> <Color=FF00DE 每次合区清理排行榜,请量力而行>\
\ <COLOR=GREEN 您当前拥有创世币>:<$CustomValue(6)> <color=GREEN 个> <COLOR=GREEN 捐献最低1000创世币起.>
[@CallInPutInteger25]
#IF
TRUE
#ACT
MOV M1 0
QUERYVAL 1 1 8 @LONG数入请输入你要捐献的创世币数量！
[@LONG数入]
#IF
SMALL M1 1000
#ACT
messagebox 对不起,最低捐献1000创世币!
GOTO @WYJK
BREAK
#IF
LARGE $CustomValue(6) <$STR(M1)>
#ACT
GOTO @JKKS
BREAK
#IF
EQUAL $CustomValue(6) <$STR(M1)>
#ACT
GOTO @JKKS
BREAK
#ELSEACT
messagebox 您没有那么多的创世币!
BREAK
[@JKKS]
#IF
#ACT
CHANGECustomValue 6 - $STR(M1)
#IF
POSINLIST <$USERNAME>| ..\QuestDiary\数据文件\捐献排行.TXT S0
#ACT
SPLIT $STR(S0) | S10
MOV P1 $STR(S11)
DELVARLIST $STR(S0) ..\QuestDiary\数据文件\捐献排行.TXT
ADDVARLIST <$USERNAME>|<$INC.$STR(P1).$STR(M1)> ..\QuestDiary\数据文件\捐献排行.TXT
SHOWHUMEFFECT 282
SHOWHUMEFFECT 299
SENDMSG 26 玩家<$USERNAME>捐献创世币[<$STR(M1)>],捐献有属性加成.恭喜他!
SENDMSG 24 玩家<$USERNAME>捐献创世币[<$STR(M1)>],捐献有属性加成.恭喜他!
GMEXECUTE StartQuest @属性加载
#CALL [\登陆设置\属性加载.txt] @属性加载
GOTO @MAIN
BREAK
#IF
!POSINLIST <$USERNAME>| ..\QuestDiary\数据文件\捐献排行.TXT S0
#ACT
ADDVARLIST <$USERNAME>|<$INC.$STR(P1).$STR(M1)> ..\QuestDiary\数据文件\捐献排行.TXT
SHOWHUMEFFECT 282
SHOWHUMEFFECT 299
CHANGECustomValue 6 - $STR(M1)
SENDMSG 26 玩家<$USERNAME>捐献创世币[<$STR(M1)>],捐献有属性加成.恭喜他！
SENDMSG 24 玩家<$USERNAME>捐献创世币[<$STR(M1)>],捐献有属性加成.恭喜他!
GMEXECUTE StartQuest @属性加载
#CALL [\登陆设置\属性加载.txt] @属性加载
GOTO @MAIN

复制代码

游客，如果您要查看本帖隐藏内容请回复

发表于 2026-8-30 17:53:19

楼主，我太崇拜你了！我想我是一天也不能离开老姚资源社区。

发表于 2026-9-20 22:52:37

这个真不错。楼主666

发表于 2026-9-22 10:06:42

楼主发贴辛苦了，谢谢楼主分享！我觉得老姚资源社区是注册对了！

发表于 2026-9-22 10:07:00

本帖最后由组外狼人于 2026-9-23 01:24 编辑

这这这这这这这这这这这

发表于 2026-9-23 01:16:29

我看不错噢谢谢楼主！老姚资源社区越来越好！

发表于 2026-9-25 20:32:20

我看不错噢谢谢楼主！老姚资源社区越来越好！

[案例脚本] 捐献属性系统

浏览过的版块