188m2引擎沙城捐献脚本

2024-05-07
[@main] #if #act MOV N$今日区捐献总额 0 MOV N$一区捐献数据 0 MOV N$二区捐献数据 0 MOV N$三区捐献数据 0 MOV N$四区捐献数据 0 MOV N$五区捐献数据 0 MOV N$六区捐献数据 0 MOV N$七区捐献数据 0 MOV N$八区捐献数据 0 MOV N$九区捐献数据 0 MOV N$十区捐献数据 0 GetListStringEx D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日一区.txt 0 N$一区捐献数据 GetListStringEx D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日二区.txt 0 N$二区捐献数据 GetListStringEx D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日三区.txt 0 N$三区捐献数据 GetListStringEx D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日四区.txt 0 N$四区捐献数据 GetListStringEx D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日五区.txt 0 N$五区捐献数据 GetListStringEx D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日六区.txt 0 N$六区捐献数据

完整脚本提取：https://www.7bbz.com/fwd/hjbb/8660.html SortHumVarToListEx 沙城捐献金额 ..QuestDiary00烟草制作13沙城捐献沙城捐献数据.txt 0 ..QuestDiary00烟草制作13沙城捐献沙城捐献排行.txt 1 GetListString ..QuestDiary00烟草制作13沙城捐献沙城捐献排行.txt 0 S$沙城捐献角色1 N$沙城捐献数量1 MOV A456 <$STR(S$沙城捐献角色1)> SetStringBlank S$沙城捐献角色1 14 1 ;----------------------------------------------- #if EQUAL N$一区捐献数据 0 #ACT MOV S$一区状态 <COLOR=249,未开区> #if LARGE N$一区捐献数据 0 #ACT MOV S$一区状态 <COLOR=250,已开区> ;----------------------------------------------- #if EQUAL N$二区捐献数据 0 #ACT MOV S$二区状态 <COLOR=249,未开区> #if LARGE N$二区捐献数据 0 #ACT MOV S$二区状态 <COLOR=250,已开区> ;----------------------------------------------- #if EQUAL N$三区捐献数据 0 #ACT MOV S$三区状态 <COLOR=249,未开区> #if LARGE N$三区捐献数据 0 #ACT MOV S$三区状态 <COLOR=250,已开区> ;----------------------------------------------- #if EQUAL N$四区捐献数据 0 #ACT MOV S$四区状态 <COLOR=249,未开区> #if LARGE N$四区捐献数据 0 #ACT MOV S$四区状态 <COLOR=250,已开区> ;----------------------------------------------- #if EQUAL N$五区捐献数据 0 #ACT MOV S$五区状态 <COLOR=249,未开区> #if LARGE N$五区捐献数据 0 #ACT MOV S$五区状态 <COLOR=250,已开区> ;----------------------------------------------- #if EQUAL N$一区捐献数据 1 #act DEC N$一区捐献数据 1 #if EQUAL N$二区捐献数据 1 #act DEC N$二区捐献数据 1 #if EQUAL N$三区捐献数据 1 #act DEC N$三区捐献数据 1 #if EQUAL N$四区捐献数据 1 #act DEC N$四区捐献数据 1 #if EQUAL N$五区捐献数据 1 #act DEC N$五区捐献数据 1 #if EQUAL N$六区捐献数据 1 #act DEC N$六区捐献数据 1 #if EQUAL N$七区捐献数据 1 #act DEC N$七区捐献数据 1 #if EQUAL N$八区捐献数据 1 #act DEC N$八区捐献数据 1 #if EQUAL N$九区捐献数据 1 #act DEC N$九区捐献数据 1 #if EQUAL N$十区捐献数据 1 #act DEC N$十区捐献数据 1 #IF #ACT INC N$今日区捐献总额 <$STR(N$一区捐献数据)> INC N$今日区捐献总额 <$STR(N$二区捐献数据)> INC N$今日区捐献总额 <$STR(N$三区捐献数据)> INC N$今日区捐献总额 <$STR(N$四区捐献数据)> INC N$今日区捐献总额 <$STR(N$五区捐献数据)> INC N$今日区捐献总额 <$STR(N$六区捐献数据)> MOV N$资源编号 1 OPENBIGMERCHANT <$STR(N$资源编号)>|4|1|1|0|1|<$STR(N$资源编号)>|2|512|0|2|3|0 #say {COLOR=253,勇士<$USERNAME>，}{COLOR=70,欢迎来到<$SERVERNAME>} <COLOR=253,你当前R点点共有：><$GAMEGIRD> <COLOR=13,--------------------------------------------------------------------------------> <COLOR=6,捐献条件：捐献300R点点捐献的金额将大部分增加到沙城给予奖池中> <COLOR=6,捐献给予：人物英雄刀刀切割怪物1%的血、鞭尸几率5%、爆率20%> <COLOR=13,--------------------------------------------------------------------------------> {COLOR=250,<$STR(G454)>月<$STR(G455)>日【一区】} <$STR(S$一区状态)> {COLOR=254,捐献金额：R点点 <$STR(N$一区捐献数据)>元} {COLOR=250,<$STR(G454)>月<$STR(G455)>日【二区】} <$STR(S$二区状态)> {COLOR=254,捐献金额：R点点 <$STR(N$二区捐献数据)>元} {COLOR=250,<$STR(G454)>月<$STR(G455)>日【三区】} <$STR(S$三区状态)> {COLOR=254,捐献金额：R点点 <$STR(N$三区捐献数据)>元} {COLOR=250,<$STR(G454)>月<$STR(G455)>日【四区】} <$STR(S$四区状态)> {COLOR=254,捐献金额：R点点 <$STR(N$四区捐献数据)>元} {COLOR=250,<$STR(G454)>月<$STR(G455)>日【五区】} <$STR(S$五区状态)> {COLOR=254,捐献金额：R点点 <$STR(N$五区捐献数据)>元} <COLOR=13,--------------------------------------------------------------------------------> {COLOR=70,<$STR(G454)>月<$STR(G455)>日游戏区沙城奖池总金额为：<$STR(N$今日区捐献总额)>} <COLOR=13,--------------------------------------------------------------------------------> <【开始捐献】/@开始捐献> <沙城专属地图/@沙城专属地图><COLOR=249,[共两层]> <COLOR=13,--------------------------------------------------------------------------------> <COLOR=253,捐献排名：额外捐献排名一号获得1.1倍倍攻属性><COLOR=249,、第2层的进入特权> <COLOR=254,一号名：><$STR(S$沙城捐献角色1)> <COLOR=254,捐献金额：><$STR(N$沙城捐献数量1)> {COLOR=250,你当前共捐献：<$HUMAN(沙城捐献金额)>} <COLOR=13,--------------------------------------------------------------------------------> <【争夺排名】/@争夺捐献排名> <COLOR=253,需要先进行沙捐才能争夺排名，排名金额同样计入沙城奖池> [@沙城专属地图] #IF CHECK [88] 1 #ACT MAP SHACHENG SENDMSG 0 [<$USERNAME>]进入了沙城捐献专属地图，获得什么造化就看天意了 253 0 SENDMSG 0 [<$USERNAME>]进入了沙城捐献专属地图，获得什么造化就看天意了 253 0 SENDMSG 0 [<$USERNAME>]进入了沙城捐献专属地图，获得什么造化就看天意了 253 0 BREAK #ELSEACT MESSAGEBOX 你还没有进行沙城捐献，无法进入该地图 break [@争夺捐献排名] #IF CHECK [88] 0 #act MESSAGEBOX 你还没有进行沙城捐献，就别凑热闹了 break #if #act MOV M2 0 QUERYVALUE 2 1 20 @捐献排名go 请输入本次捐献的R点点数量(低10R点点起步)： NPC BREAK [@捐献排名go] #IF SMALL M2 10 #ACT MESSAGEBOX 低10R点点起步，请重新输入 goto @main break #IF CHECKGAMEGIRD < <$STR(M2)> #act MESSAGEBOX 失败，你当前R点点不足<$STR(M2)>个 goto @main break #IF NOT CHECKGAMEGIRD < <$STR(M2)> #act GAMEGIRD - <$STR(M2)> CALCVAR HUMAN 沙城捐献金额 + <$STR(M2)> SAVEVAR HUMAN 沙城捐献金额 ..QuestDiary00烟草制作13沙城捐献沙城捐献数据.txt HardDisk SENDMSG 0 <$USERNAME>豪气的扔出<$STR(M2)>张R点点开始争夺沙城捐献排名 253 0 5 SENDMSG 0 <$USERNAME>豪气的扔出<$STR(M2)>张R点点开始争夺沙城捐献排名 253 0 5 SENDMSG 0 <$USERNAME>豪气的扔出<$STR(M2)>张R点点开始争夺沙城捐献排名 253 0 5 SENDMSG 0 <$USERNAME>豪气的扔出<$STR(M2)>张R点点开始争夺沙城捐献排名 250 0 SENDMSG 0 <$USERNAME>豪气的扔出<$STR(M2)>张R点点开始争夺沙城捐献排名 250 0 SENDMSG 0 <$USERNAME>豪气的扔出<$STR(M2)>张R点点开始争夺沙城捐献排名 250 0 #IF CheckContainsText <$SERVERNAME> 1区 #ACT INC N$一区捐献数据 <$STR(M2)> ADDLINELIST D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日一区.txt <$STR(N$一区捐献数据)> 0 HardDisk goto @main Gmexecute 开始提问 @排名属性刷新 break #IF CheckContainsText <$SERVERNAME> 2区 #ACT INC N$二区捐献数据 <$STR(M2)> ADDLINELIST D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日二区.txt <$STR(N$二区捐献数据)> 0 HardDisk goto @main Gmexecute 开始提问 @排名属性刷新 break #IF CheckContainsText <$SERVERNAME> 3区 #ACT INC N$三区捐献数据 <$STR(M2)> ADDLINELIST D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日三区.txt <$STR(N$三区捐献数据)> 0 HardDisk goto @main Gmexecute 开始提问 @排名属性刷新 break #IF CheckContainsText <$SERVERNAME> 4区 #ACT INC N$四区捐献数据 <$STR(M2)> ADDLINELIST D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日四区.txt <$STR(N$四区捐献数据)> 0 HardDisk goto @main Gmexecute 开始提问 @排名属性刷新 break #IF CheckContainsText <$SERVERNAME> 5区 #ACT INC N$五区捐献数据 <$STR(M2)> ADDLINELIST D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日五区.txt <$STR(N$五区捐献数据)> 0 HardDisk goto @main Gmexecute 开始提问 @排名属性刷新 break #IF #ACT INC N$六区捐献数据 <$STR(M2)> ADDLINELIST D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日五区.txt <$STR(N$五区捐献数据)> 0 HardDisk goto @main Gmexecute 开始提问 @排名属性刷新 break [@增加R点] #act GAMEGIRD + 30 goto @main break [@改服务器名称] #IF CHECKLEVELEX > 0 #ACT QUERYVALUE 4 1 7 @服务器名称请输入你想设置的服务器为第几区须为1-10之间的阿拉伯数值例:123456789 NPC BREAK [@服务器名称] #IF LARGE M4 0 SMALL M4 11 #ACT MOV S$服务器名称 <$SERVERNAME><$STR(M4)>区 MESSAGEBOX 服务器名称设置成功:◆[<$SERVERNAME>]◆ goto @main BREAK #ELSEACT MESSAGEBOX 设置失败!须为1-10之间的阿拉伯数值 BREAK [@开始捐献] #IF CHECKGAMEGIRD < 300 #ACT MESSAGEBOX 你当前R点点不足300，无法捐献 break #if CHECK [88] 1 #ACT MESSAGEBOX 你已经捐献了，无法再捐献 break #OR CheckContainsText <$SERVERNAME> 一区 CheckContainsText <$SERVERNAME> 1区 #ACT GAMEGIRD - 300 set [88] 1 INC N$一区捐献数据 300 #CALL [\000烟草制作人物属性刷新.txt] @人物属性刷新MAIN #CALL [\000烟草制作英雄属性刷新.txt] @英雄属性刷新MAIN ADDLINELIST D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日一区.txt <$STR(N$一区捐献数据)> 0 HardDisk SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 GOTO @MAIN messagebox 捐献成功 BREAK #OR CheckContainsText <$SERVERNAME> 二区 CheckContainsText <$SERVERNAME> 2区 #ACT GAMEGIRD - 300 set [88] 1 INC N$二区捐献数据 300 #CALL [\000烟草制作人物属性刷新.txt] @人物属性刷新MAIN #CALL [\000烟草制作英雄属性刷新.txt] @英雄属性刷新MAIN ADDLINELIST D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日二区.txt <$STR(N$二区捐献数据)> 0 HardDisk SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 GOTO @MAIN messagebox 捐献成功 BREAK #OR CheckContainsText <$SERVERNAME> 三区 CheckContainsText <$SERVERNAME> 3区 #ACT GAMEGIRD - 300 set [88] 1 INC N$三区捐献数据 300 #CALL [\000烟草制作人物属性刷新.txt] @人物属性刷新MAIN #CALL [\000烟草制作英雄属性刷新.txt] @英雄属性刷新MAIN ADDLINELIST D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日三区.txt <$STR(N$三区捐献数据)> 0 HardDisk SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 GOTO @MAIN messagebox 捐献成功 BREAK #OR CheckContainsText <$SERVERNAME> 四区 CheckContainsText <$SERVERNAME> 4区 #ACT GAMEGIRD - 300 set [88] 1 INC N$四区捐献数据 300 #CALL [\000烟草制作人物属性刷新.txt] @人物属性刷新MAIN #CALL [\000烟草制作英雄属性刷新.txt] @英雄属性刷新MAIN ADDLINELIST D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日四区.txt <$STR(N$四区捐献数据)> 0 HardDisk SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 GOTO @MAIN messagebox 捐献成功 BREAK #OR CheckContainsText <$SERVERNAME> 五区 CheckContainsText <$SERVERNAME> 5区 #ACT GAMEGIRD - 300 set [88] 1 INC N$五区捐献数据 300 #CALL [\000烟草制作人物属性刷新.txt] @人物属性刷新MAIN #CALL [\000烟草制作英雄属性刷新.txt] @英雄属性刷新MAIN ADDLINELIST D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日五区.txt <$STR(N$五区捐献数据)> 0 HardDisk SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 GOTO @MAIN messagebox 捐献成功 BREAK #OR CheckContainsText <$SERVERNAME> 六区 CheckContainsText <$SERVERNAME> 6区 #ACT GAMEGIRD - 300 set [88] 1 INC N$六区捐献数据 300 #CALL [\000烟草制作人物属性刷新.txt] @人物属性刷新MAIN #CALL [\000烟草制作英雄属性刷新.txt] @英雄属性刷新MAIN ADDLINELIST D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日六区.txt <$STR(N$六区捐献数据)> 0 HardDisk SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 GOTO @MAIN messagebox 捐献成功 BREAK #OR CheckContainsText <$SERVERNAME> 七区 CheckContainsText <$SERVERNAME> 7区 #ACT GAMEGIRD - 300 set [88] 1 INC N$七区捐献数据 300 #CALL [\000烟草制作人物属性刷新.txt] @人物属性刷新MAIN #CALL [\000烟草制作英雄属性刷新.txt] @英雄属性刷新MAIN ADDLINELIST D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日七区.txt <$STR(N$七区捐献数据)> 0 HardDisk SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 GOTO @MAIN messagebox 捐献成功 BREAK #OR CheckContainsText <$SERVERNAME> 八区 CheckContainsText <$SERVERNAME> 8区 #ACT GAMEGIRD - 300 set [88] 1 INC N$八区捐献数据 300 #CALL [\000烟草制作人物属性刷新.txt] @人物属性刷新MAIN #CALL [\000烟草制作英雄属性刷新.txt] @英雄属性刷新MAIN ADDLINELIST D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日八区.txt <$STR(N$八区捐献数据)> 0 HardDisk SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 GOTO @MAIN messagebox 捐献成功 BREAK #OR CheckContainsText <$SERVERNAME> 九区 CheckContainsText <$SERVERNAME> 9区 #ACT GAMEGIRD - 300 set [88] 1 #CALL [\000烟草制作人物属性刷新.txt] @人物属性刷新MAIN #CALL [\000烟草制作英雄属性刷新.txt] @英雄属性刷新MAIN INC N$九区捐献数据 300 ADDLINELIST D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日九区.txt <$STR(N$九区捐献数据)> 0 HardDisk SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 GOTO @MAIN messagebox 捐献成功 BREAK #OR CheckContainsText <$SERVERNAME> 十区 CheckContainsText <$SERVERNAME> 10区 #ACT GAMEGIRD - 300 set [88] 1 #CALL [\000烟草制作人物属性刷新.txt] @人物属性刷新MAIN #CALL [\000烟草制作英雄属性刷新.txt] @英雄属性刷新MAIN INC N$十区捐献数据 300 ADDLINELIST D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日十区.txt <$STR(N$十区捐献数据)> 0 HardDisk SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 GOTO @MAIN messagebox 捐献成功 BREAK #elseact GAMEGIRD - 300 set [88] 1 #CALL [\000烟草制作人物属性刷新.txt] @人物属性刷新MAIN #CALL [\000烟草制作英雄属性刷新.txt] @英雄属性刷新MAIN INC N$十区捐献数据 300 ADDLINELIST D:2020yancao[侠客星王]全服功宜捐献<$STR(G454)>月<$STR(G455)>日十区.txt <$STR(N$十区捐献数据)> 0 HardDisk SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 SENDMSG 0 <$USERNAME>进行了捐献了R点点300个，为新区攻城战助威并获得超强的沙城捐献特权！ 254 0 GOTO @MAIN messagebox 捐献成功 BREAK break
上一篇:尸王刷怪传奇脚本下一篇:天梯阁50层传奇脚本