HGE捐献系统 顶戴定型版-修复排序版

久久网游

1:本脚本用的全服触发命令为： Gmexecute 开始提问  请按照自己端的全服触发命令进行修改
2:查看本脚本使用的临时变量和自定义变量，最好不要和其它脚本重复使用
3.王者大使，烽火台，杀人排行的将陆续进行修复

[@MAIN]
#If
CheckVar Human 捐献数 =
#ACT
CalcVar Human 捐献数 = 0
SAVEVAR HUMAN 捐献数 ..\QuestDiary\捐献系统\捐献数.txt
delaygoto 1 @主要对话
#ELSEACT
goto @主要对话

[@主要对话]
#IF
#ACT
OPENMERCHANTDLG 6005|63|1|742|474|0|0|0|1|410|5
mov <$S(捐献1)> 虚拟以待
mov <$S(捐献3)> 虚拟以待
mov <$S(捐献5)> 虚拟以待
mov <$S(捐献7)> 虚拟以待
mov <$S(捐献9)> 虚拟以待
mov <$S(捐献2)> 0
mov <$S(捐献4)> 0
mov <$S(捐献6)> 0
mov <$S(捐献8)> 0
mov <$S(捐献10)> 0
GetFileToVar \QuestDiary\捐献系统\捐献排行名单.txt  1 <$S(捐献1)> <$S(捐献2)>
GetFileToVar \QuestDiary\捐献系统\捐献排行名单.txt  2 <$S(捐献3)> <$S(捐献4)>
GetFileToVar \QuestDiary\捐献系统\捐献排行名单.txt  3 <$S(捐献5)> <$S(捐献6)>
GetFileToVar \QuestDiary\捐献系统\捐献排行名单.txt  4 <$S(捐献7)> <$S(捐献8)>
GetFileToVar \QuestDiary\捐献系统\捐献排行名单.txt  5 <$S(捐献9)> <$S(捐献10)>
#SAY
\ \
<{s=称　号：;x=80;y=38;fc=103;bold=1}><{s=苍月王者;x=130;y=38;fc=70;bold=1}>\
<{s=玩家名：;x=80;y=55;fc=103;bold=1}><{s=<$S(捐献1)>;x=130;y=55;fc=151;bold=1}>\
<{s=捐赠值：;x=80;y=72;fc=103;bold=1}><{s=<$S(捐献2)>;x=130;y=72;fc=151;bold=1}>\

<{s=称　号：;x=80;y=100;fc=103;bold=1}><{s=星耀至尊;x=130;y=100;fc=9;bold=1}>\
<{s=玩家名：;x=80;y=117;fc=103;bold=1}><{s=<$S(捐献3)>;x=130;y=117;fc=151;bold=1}>\
<{s=捐赠值：;x=80;y=135;fc=103;bold=1}><{s=<$S(捐献4)>;x=130;y=135;fc=151;bold=1}>\

<{s=称　号：;x=80;y=160;fc=103;bold=1}><{s=乾坤霸主;x=130;y=160;fc=253;bold=1}>\
<{s=玩家名：;x=80;y=180;fc=103;bold=1}><{s=<$S(捐献5)>;x=130;y=180;fc=151;bold=1}>\
<{s=捐赠值：;x=80;y=200;fc=103;bold=1}><{s=<$S(捐献6)>;x=130;y=200;fc=151;bold=1}>\

<{s=称　号：;x=80;y=225;fc=103;bold=1}><{s=乱世斗者;x=130;y=225;fc=146;bold=1}>\
<{s=玩家名：;x=80;y=243;fc=103;bold=1}><{s=<$S(捐献7)>;x=130;y=243;fc=151;bold=1}>\
<{s=捐赠值：;x=80;y=263;fc=103;bold=1}><{s=<$S(捐献8)>;x=130;y=263;fc=151;bold=1}>\

<{s=称　号：;x=80;y=290;fc=103;bold=1}><{s=江湖小侠;x=130;y=290;fc=218;bold=1}>\
<{s=玩家名：;x=80;y=308;fc=103;bold=1}><{s=<$S(捐献9)>;x=130;y=308;fc=151;bold=1}>\
<{s=捐赠值：;x=80;y=325;fc=103;bold=1}><{s=<$S(捐献10)>;x=130;y=325;fc=151;bold=1}>\

<{s=王者：;bold=1;f.se=10;fc=103;x=255;y=65}> <{s=物防 + 20　魔防 + 15;bold=1;f.se=10;fc=210;x=300;y=65}>
<{s=至尊：;bold=1;f.se=10;fc=103;x=255;y=85}> <{s=物防 + 15　魔防 + 13;bold=1;f.se=10;fc=210;x=300;y=85}>
<{s=霸主：;bold=1;f.se=10;fc=103;x=255;y=105}> <{s=物防 + 12　魔防 + 10;bold=1;f.se=10;fc=210;x=300;y=105}>
<{s=斗者：;bold=1;f.se=10;fc=103;x=255;y=125}> <{s=物防 + 9　 魔防 + 7;bold=1;f.se=10;fc=210;x=300;y=125}>
<{s=小侠：;bold=1;f.se=10;fc=103;x=255;y=145}> <{s=物防 + 6　 魔防 + 4;bold=1;f.se=10;fc=210;x=300;y=145}>

<{s=1.单次捐款最低10000元宝起;bold=1;f.se=10;fc=100;x=255;y=195}>
<{s=2.按捐赠元宝数高低依次排行;bold=1;f.se=10;fc=100;x=255;y=215}>
<{s=3.每日00:00整重置爵位捐献;bold=1;f.se=10;fc=100;x=255;y=235}>

<{s=<$GAMEGOLD>;bold=1;f.se=10;fc=103;x=355;y=260}>\
<{s=<$HUMAN(捐献数)>;bold=1;f.se=10;fc=103;x=355;y=288}>

<{S=我要捐款;li=6005;i=1;ih=2;id=3;fc=151;ch=151;cd=151;x=300;y=315}/@@InPutInteger99|Title=请输入大于10000的数字>\


[@InPutInteger99]
#IF
#ACT
MOV <$N(捐献金额)> <$STR(N99)>
       
#IF
SMALL <$N(捐献金额)> 10000
#ACT
MESSAGEBOX [捐献失败]：\　\　　　　　　请输入大于10000的数值！
goto @主要对话
BREAK
       
#IF
LARGE <$N(捐献金额)> 9999
CHECKGAMEGOLD ? <$N(捐献金额)>
#ACT
GAMEGOLD - <$N(捐献金额)>
CALCVAR HUMAN 捐献数 + <$N(捐献金额)>
SAVEVAR HUMAN 捐献数 ..\QuestDiary\捐献系统\捐献数.txt
SortHumVarToFile 捐献数 ..\QuestDiary\捐献系统\捐献数.txt  1 ..\QuestDiary\捐献系统\捐献排行名单.txt 0
MESSAGEBOX [贡献信息]：\捐赠成功，你本次捐增了<$N(捐献金额)>元宝!\您当前捐献值为：<$HUMAN(捐献数)>点!\感谢您对本服大力支持，您现在可以享受俸禄待遇了!
goto @主要对话
delaygoto 10 @执行其它
#ELSEACT
MESSAGEBOX [贡献失败]：你没元宝或者输入有误,功勋捐献最少10000元宝起步！
BREAK

[@执行其它]
#ACT
GetFileToVar \QuestDiary\捐献系统\捐献排行名单.txt  1 <$S(捐献1)> <$S(捐献2)>
GetFileToVar \QuestDiary\捐献系统\捐献排行名单.txt  2 <$S(捐献3)> <$S(捐献4)>
GetFileToVar \QuestDiary\捐献系统\捐献排行名单.txt  3 <$S(捐献5)> <$S(捐献6)>
GetFileToVar \QuestDiary\捐献系统\捐献排行名单.txt  4 <$S(捐献7)> <$S(捐献8)>
GetFileToVar \QuestDiary\捐献系统\捐献排行名单.txt  5 <$S(捐献9)> <$S(捐献10)>
#CALL [\捐献系统\角色称号.txt] @角色称号
BREAK

文件名称:脚本下载.txt 
下载次数:0  文件大小:64 Bytes 
下载权限: 不限 

安全检测，请放心下载