Gee引擎爵位捐款脚本

admin · 发表于 2016-11-10 15:19:18

(@@InPutInteger)
[@爵位捐款NPC]
{
#IF
CHECKLEVELEX > 0
#ACT
MOV S$爵位人名1 <$STR(A501)>
MOV S$爵位人名2 <$STR(A502)>
MOV S$爵位人名3 <$STR(A503)>
MOV S$爵位人名4 <$STR(A504)>
MOV S$爵位人名5 <$STR(A505)>
MOV S$爵位人名6 <$STR(A506)>
MOV S$爵位人名7 <$STR(A507)>
SetStringBlank S$爵位人名1 15 1
SetStringBlank S$爵位人名2 15 1
SetStringBlank S$爵位人名3 15 1
SetStringBlank S$爵位人名4 15 1
SetStringBlank S$爵位人名5 15 1
SetStringBlank S$爵位人名6 15 1
SetStringBlank S$爵位人名7 15 1
SetStringBlank A511 15 1
SetStringBlank A512 15 1
SetStringBlank A513 15 1
SetStringBlank A514 15 1
SetStringBlank A515 15 1
SetStringBlank A516 15 1
SetStringBlank A517 15 1
#SAY
<【$紫6><加官进爵$红6> <】$紫6>    <你当前捐献$红6><【$紫6><$HUMAN(爵位捐款数量)><】$紫6>\
<第一名$青1><【$黑6><$STR(S$爵位人名1)><】$黑6><计捐款$青1><【$黑6><$STR(A511)><】$黑6><$(爵位属性显示)$(爵位排行属性一)。$青1>\
<第二名$青2><【$黑6><$STR(S$爵位人名2)><】$黑6><计捐款$青2><【$黑6><$STR(A512)><】$黑6><$(爵位属性显示)$(爵位排行属性二)。$青2>\
<第三名$青3><【$黑6><$STR(S$爵位人名3)><】$黑6><计捐款$青3><【$黑6><$STR(A513)><】$黑6><$(爵位属性显示)$(爵位排行属性三)。$青3>\
<第四名$青4><【$黑6><$STR(S$爵位人名4)><】$黑6><计捐款$青4><【$黑6><$STR(A514)><】$黑6><$(爵位属性显示)$(爵位排行属性四)。$青4>\
<第五名$青5><【$黑6><$STR(S$爵位人名5)><】$黑6><计捐款$青5><【$黑6><$STR(A515)><】$黑6><$(爵位属性显示)$(爵位排行属性五)。$青5>\
<第六名$青6><【$黑6><$STR(S$爵位人名6)><】$黑6><计捐款$青6><【$黑6><$STR(A516)><】$黑6><$(爵位属性显示)$(爵位排行属性六)。$青6>\
<第七名$青7><【$黑6><$STR(S$爵位人名7)><】$黑6><计捐款$青7><【$黑6><$STR(A517)><】$黑6><$(爵位属性显示)$(爵位排行属性七)。$青7>\
<我要捐款[url=]/@@InPutInteger15[/url]>                                        <查看排名/@查看排名> \
[@InPutInteger15]
#IF
CHECK$(捐献使用货币) > <$STR(N15)>
#ACT
INC <$HUMAN(爵位捐款数量)> <$STR(N15)>
SAVEVAR HUMAN 爵位捐款数量 ..\QuestDiary\改天制作爵位捐款脚本\捐款数据.txt
$(捐献使用货币) - <$STR(N15)>
SORTVARTOLIST 爵位捐款数量 ..\QuestDiary\改天制作爵位捐款脚本\捐款数据.txt ..\QuestDiary\改天制作爵位捐款脚本\捐款排行.txt 0 1
GetListString ..\QuestDiary\改天制作爵位捐款脚本\捐款排行.txt 0 A501 A511
GetListString ..\QuestDiary\改天制作爵位捐款脚本\捐款排行.txt 1 A502 A512
GetListString ..\QuestDiary\改天制作爵位捐款脚本\捐款排行.txt 2 A503 A513
GetListString ..\QuestDiary\改天制作爵位捐款脚本\捐款排行.txt 3 A504 A514
GetListString ..\QuestDiary\改天制作爵位捐款脚本\捐款排行.txt 4 A505 A515
GetListString ..\QuestDiary\改天制作爵位捐款脚本\捐款排行.txt 5 A506 A516
GetListString ..\QuestDiary\改天制作爵位捐款脚本\捐款排行.txt 6 A507 A517
BREAK
#ELSEACT
MESSAGEBOX [提示]：对不起，您$(捐献使用货币名称)不足！
[@查看排名]
#IF
EQUAL A501 <$USERNAME>
#ACT
SENDMSG 7 您当前排名第1位继续保持！！
BREAK
#IF
EQUAL A502 <$USERNAME>
#ACT
SENDMSG 7 您当前排名第2位继续加油！！
BREAK
#IF
EQUAL A503 <$USERNAME>
#ACT
SENDMSG 7 您当前排名第2位继续加油！！
BREAK
#IF
EQUAL A504 <$USERNAME>
#ACT
SENDMSG 7 您当前排名第2位继续加油！！
BREAK
#IF
EQUAL A505 <$USERNAME>
#ACT
SENDMSG 7 您当前排名第2位继续加油！！
BREAK
#IF
EQUAL A506 <$USERNAME>
#ACT
SENDMSG 7 您当前排名第2位继续加油！！
BREAK
#IF
EQUAL A507 <$USERNAME>
#ACT
SENDMSG 7 您当前排名第2位继续加油！！
BREAK
#ELSEACT
MESSAGEBOX [提示]：对不起，您未获得排名！
[@爵位捐款属性配置加载]
#CALL [\改天制作爵位捐款脚本\爵位属性修改.INI] @爵位捐款属性配置
#INCLUDE GMQD.ini
}
[@爵位捐款脚本]
{
#IF
CHECKLEVELEX > 0
#ACT
VAR Integer HUMAN 爵位捐款数量
LOADVAR HUMAN 爵位捐款数量 ..\QuestDiary\改天制作爵位捐款脚本\捐款数据.txt
#IF
EQUAL A501 <$USERNAME>
#ACT
ChangeHumAbility $(爵位属性点一) + $(爵位排行属性一) 6000
ChangeHumAbility $(爵位属性点二) + $(爵位排行属性一) 6000
ChangeHumAbility $(爵位属性点三) + $(爵位排行属性一) 6000
SENDMSG 6 $(爵位属性显示)加$(爵位排行属性一)点，持续时间6000秒！！！  254 252
BREAK
#IF
EQUAL A502 <$USERNAME>
#ACT
ChangeHumAbility $(爵位属性点一) + $(爵位排行属性一) 6000
ChangeHumAbility $(爵位属性点二) + $(爵位排行属性一) 6000
ChangeHumAbility $(爵位属性点三) + $(爵位排行属性一) 6000
SENDMSG 6 $(爵位属性显示)加$(爵位排行属性二)点，持续时间6000秒！！！  254 252
BREAK
#IF
EQUAL A503 <$USERNAME>
#ACT
ChangeHumAbility $(爵位属性点一) + $(爵位排行属性一) 6000
ChangeHumAbility $(爵位属性点二) + $(爵位排行属性一) 6000
ChangeHumAbility $(爵位属性点三) + $(爵位排行属性一) 6000
SENDMSG 6 $(爵位属性显示)加$(爵位排行属性三)点，持续时间6000秒！！！  254 252
BREAK
#IF
EQUAL A504 <$USERNAME>
#ACT
ChangeHumAbility $(爵位属性点一) + $(爵位排行属性一) 6000
ChangeHumAbility $(爵位属性点二) + $(爵位排行属性一) 6000
ChangeHumAbility $(爵位属性点三) + $(爵位排行属性一) 6000
SENDMSG 6 $(爵位属性显示)加$(爵位排行属性四)点，持续时间6000秒！！！  254 252
BREAK
#IF
EQUAL A505 <$USERNAME>
#ACT
ChangeHumAbility $(爵位属性点一) + $(爵位排行属性一) 6000
ChangeHumAbility $(爵位属性点二) + $(爵位排行属性一) 6000
ChangeHumAbility $(爵位属性点三) + $(爵位排行属性一) 6000
SENDMSG 6 $(爵位属性显示)加$(爵位排行属性五)点，持续时间6000秒！！！  254 252
BREAK
#IF
EQUAL A506 <$USERNAME>
#ACT
ChangeHumAbility $(爵位属性点一) + $(爵位排行属性一) 6000
ChangeHumAbility $(爵位属性点二) + $(爵位排行属性一) 6000
ChangeHumAbility $(爵位属性点三) + $(爵位排行属性一) 6000
SENDMSG 6 $(爵位属性显示)加$(爵位排行属性六)点，持续时间6000秒！！！  254 252
BREAK
#IF
EQUAL A507 <$USERNAME>
#ACT
ChangeHumAbility $(爵位属性点一) + $(爵位排行属性一) 6000
ChangeHumAbility $(爵位属性点二) + $(爵位排行属性一) 6000
ChangeHumAbility $(爵位属性点三) + $(爵位排行属性一) 6000
SENDMSG 6 $(爵位属性显示)加$(爵位排行属性七)点，持续时间6000秒！！！  254 252
BREAK
[@爵位捐款属性配置加载]
#CALL [\改天制作爵位捐款脚本\爵位属性修改.INI] @爵位捐款属性配置
}

完整脚本回复下载：

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

ypgrdn · 发表于 2016-12-6 09:27:46

HOHOHOHOOHOH99999999999999

xitt2008 · 发表于 2016-12-15 20:44:56

555555555555555555555555

406023963 · 发表于 2016-12-20 12:30:55

66666666666666

3226752 · 发表于 2017-3-16 13:54:16

1111111111111111

手撕鬼子 · 发表于 2017-3-17 00:16:04

xgllzf · 发表于 2017-3-20 22:45:48

赞一个，站长相当给力

1010972 · 发表于 2017-3-28 21:26:02

RE: Gee引擎爵位捐款脚本 [修改]

ft5007171 · 发表于 2017-4-19 23:08:01

Gee引擎爵位捐款脚本

zq5550905 · 发表于 2017-5-4 17:47:41

111111111111111111111111111

GM起点

[传奇脚本] Gee引擎爵位捐款脚本