Gom引擎脚本-元宝捐款

GM版本库

[@main]
#if
#act
OPENMERCHANTBIGDLG 20 31 0 0 0 0 1 398 1
mov A300 <$STR(A200)>
mov A301 <$STR(A201)>
mov A302 <$STR(A202)>
mov A303 <$STR(A203)>
mov A304 <$STR(A204)>
mov A205 <$STR(G200)>个
mov A206 <$STR(G201)>个
mov A207 <$STR(G202)>个
mov A208 <$STR(G203)>个
mov A209 <$STR(G204)>个
SetStringBlank <$STR(A300)> 15 1
SetStringBlank <$STR(A301)> 15 1
SetStringBlank <$STR(A302)> 15 1
SetStringBlank <$STR(A303)> 15 1
SetStringBlank <$STR(A304)> 15 1
SetStringBlank <$STR(A205)> 10 1
SetStringBlank <$STR(A206)> 10 1
SetStringBlank <$STR(A207)> 10 1
SetStringBlank <$STR(A208)> 10 1
SetStringBlank <$STR(A209)> 10 1
#say
<--------------------------------------------------------------/AUTOCOLOR=90>\
<元宝捐赠/AUTOCOLOR=254> <Hot~/AUTOCOLOR=249>          <谁是英雄？谁是狗熊？比比就知道！/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\
<--------------------------------------------------------------/AUTOCOLOR=90>\
<第一名:/AUTOCOLOR=91>{<$STR(A300)>/FCOLOR=151} <捐赠元宝:/AUTOCOLOR=91>{<$STR(a205)>/FCOLOR=250} <全属性增加 15-15/AUTOCOLOR=91> \\
<第二名:/AUTOCOLOR=92>{<$STR(A301)>/FCOLOR=151} <捐赠元宝:/AUTOCOLOR=92>{<$STR(a206)>/FCOLOR=250} <全属性增加 12-12/AUTOCOLOR=92>\
<第三名:/AUTOCOLOR=93>{<$STR(A302)>/FCOLOR=151} <捐赠元宝:/AUTOCOLOR=93>{<$STR(a207)>/FCOLOR=250} <全属性增加  9-9/AUTOCOLOR=93>\
<第四名:/AUTOCOLOR=89>{<$STR(A303)>/FCOLOR=151} <捐赠元宝:/AUTOCOLOR=89>{<$STR(a208)>/FCOLOR=250} <全属性增加  6-6/AUTOCOLOR=89>\
<第五名:/AUTOCOLOR=95>{<$STR(A304)>/FCOLOR=151} <捐赠元宝:/AUTOCOLOR=95>{<$STR(a209)>/FCOLOR=250} <全属性增加  3-3/AUTOCOLOR=95>\
<--------------------------------------------------------------/AUTOCOLOR=90>\
<1、每次捐赠必须大于5000元宝./AUTOCOLOR=156>\
<2、当你捐赠的元宝比排行版上的玩家高出50时即可替代他的排名./AUTOCOLOR=155>\
<3、捐献达到10万元宝玩家也可以获得全属性增加3-3奖励./AUTOCOLOR=145>\
<4、游戏的稳定运营离不开您的支持,感谢您的捐赠与支持./AUTOCOLOR=147>\
<--------------------------------------------------------------/AUTOCOLOR=90>\
??????????? <捐赠数据合区保存./AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \
<你已经捐赠了(/AUTOCOLOR=242>{<$HUMAN(捐献元宝额度)>/FCOLOR=251})<元宝...当前帐户的元宝数量为:/AUTOCOLOR=242>{<$GAMEGOLD>/FCOLOR=251}<个！/AUTOCOLOR=242>\
第1名：<皇帝/AUTOCOLOR=70> 第2名：<丞相/AUTOCOLOR=229> 第3名：<元帅/AUTOCOLOR=253> 第4名：<将军/AUTOCOLOR=250> 第5名：<太尉/AUTOCOLOR=254>\
<--------------------------------------------------------------/AUTOCOLOR=90>\
?<√我要捐赠/@@InPutInteger1>     <每日凌晨更新排行，数据清空/FCOLOR=253>    <看看而已×/@exit> \

[@InPutInteger1]
#IF
LARGE N1 4999
CHECKGAMEGOLD > N1 > 4999
#ACT
GAMEGOLD - <$STR(N1)>
CALCVAR HUMAN 捐献元宝额度 + <$STR(N1)>
SAVEVAR HUMAN 捐献元宝额度 ..\QuestDiary\功能\捐献记录额度\捐献记录额度.txt

Delaygoto 100 @捐赠排名
MESSAGEBOX [捐赠信息]：\?\捐赠成功，你本次捐增了<$STR(N1)>元宝!\您对本服总共捐赠了<$HUMAN(捐献元宝额度)>元宝!\感谢您对本服大力支持，您现在可以享受俸禄待遇了!
#ELSEACT
MESSAGEBOX [捐赠失败]：你没元宝或者输入有误,元宝捐赠最少5000元宝起步！
BREAK

[@捐赠排名]
#IF
CHECKVAR HUMAN 捐献元宝额度 > <$STR(G200)>
#ACT
GOTO @BAOCUN
#CALL [\数据文件\封号刷新.txt] @刷新
SENDMSG 7  感谢您对本服的支持,目前排名第一,小退后获得属性！
goto @main
#ELSEACT
GOTO @捐赠排名1
BREAK

[@捐赠排名1]
#IF
CHECKVAR HUMAN 捐献元宝额度 > <$STR(G201)>
#ACT
GOTO @BAOCUN1
#CALL [\数据文件\封号刷新.txt] @刷新
SENDMSG 7  感谢您对本服的支持,目前排名第二,小退后获得属性！
goto @main
#ELSEACT
GOTO @捐赠排名2
BREAK

[@捐赠排名2]
#IF
CHECKVAR HUMAN 捐献元宝额度 > <$STR(G202)>
#ACT
GOTO @BAOCUN2
#CALL [\数据文件\封号刷新.txt] @刷新
SENDMSG 7  感谢您对本服的支持,目前排名第三,小退后获得属性！
goto @main
#ELSEACT
GOTO @捐赠排名3
BREAK

[@捐赠排名3]
#IF
CHECKVAR HUMAN 捐献元宝额度 > <$STR(G203)>
#ACT
GOTO @BAOCUN3
#CALL [\数据文件\封号刷新.txt] @刷新
SENDMSG 7  感谢您对本服的支持,目前排名第四,小退后获得属性！
goto @main
#ELSEACT
GOTO @捐赠排名4
BREAK

[@捐赠排名4]
#IF
CHECKVAR HUMAN 捐献元宝额度 > <$STR(G204)>
#ACT
GOTO @BAOCUN4
#CALL [\数据文件\封号刷新.txt] @刷新
SENDMSG 7  感谢您对本服的支持,目前排名第五,小退后获得属性！
goto @main
BREAK

#if
CHECKVAR HUMAN 捐献元宝额度 > 99999
#act
#CALL [\数据文件\封号刷新.txt] @刷新
SENDMSG 7 [提示]：您元宝捐款金额超过了10万,奖励全属性3-3,小退后获得属性！
BREAK

[@BAOCUN]
#IF
EQUAL A200 <$USERNAME>
#ACT
MOV A200 <$USERNAME>
MOV G200 <$HUMAN(捐献元宝额度)>
BREAK
#IF
EQUAL A201 <$USERNAME>
#ACT
MOV A201 <$STR(A200)>
MOV G201 <$STR(G200)>
MOV A200 <$USERNAME>
MOV G200 <$HUMAN(捐献元宝额度)>
BREAK
#IF
EQUAL A202 <$USERNAME>
#ACT
MOV A202 <$STR(A201)>
MOV G202 <$STR(G201)>
MOV A201 <$STR(A200)>
MOV G201 <$STR(G200)>
MOV A200 <$USERNAME>
MOV G200 <$HUMAN(捐献元宝额度)>
BREAK
#IF
EQUAL A203 <$USERNAME>
#ACT
MOV A203 <$STR(A202)>
MOV G203 <$STR(G202)>
MOV A202 <$STR(A201)>
MOV G202 <$STR(G201)>
MOV A201 <$STR(A200)>
MOV G201 <$STR(G200)>
MOV A200 <$USERNAME>
MOV G200 <$HUMAN(捐献元宝额度)>
#ELSEACT
MOV A204 <$STR(A203)>
MOV G204 <$STR(G203)>
MOV A203 <$STR(A202)>
MOV G203 <$STR(G202)>
MOV A202 <$STR(A201)>
MOV G202 <$STR(G201)>
MOV A201 <$STR(A200)>
MOV G201 <$STR(G200)>
MOV A200 <$USERNAME>
MOV G200 <$HUMAN(捐献元宝额度)>
BREAK

[@BAOCUN1]
#IF
EQUAL A201 <$USERNAME>
#ACT
MOV A201 <$USERNAME>
MOV G201 <$HUMAN(捐献元宝额度)>
BREAK
#IF
EQUAL A202 <$USERNAME>
#ACT
MOV A202 <$STR(A201)>
MOV G202 <$STR(G201)>
MOV A201 <$USERNAME>
MOV G201 <$HUMAN(捐献元宝额度)>
BREAK
#IF
EQUAL A203 <$USERNAME>
#ACT
MOV A203 <$STR(A202)>
MOV G203 <$STR(G202)>
MOV A202 <$STR(A201)>
MOV G202 <$STR(G201)>
MOV A201 <$USERNAME>
MOV G201 <$HUMAN(捐献元宝额度)>
#ELSEACT
MOV A204 <$STR(A203)>
MOV G204 <$STR(G203)>
MOV A203 <$STR(A202)>
MOV G203 <$STR(G202)>
MOV A202 <$STR(A201)>
MOV G202 <$STR(G201)>
MOV A201 <$USERNAME>
MOV G201 <$HUMAN(捐献元宝额度)>
BREAK

[@BAOCUN2]
#IF
EQUAL A202 <$USERNAME>
#ACT
MOV A202 <$USERNAME>
MOV G202 <$HUMAN(捐献元宝额度)>
BREAK
#IF
EQUAL A203 <$USERNAME>
#ACT
MOV A203 <$STR(A202)>
MOV G203 <$STR(G202)>
MOV A202 <$USERNAME>
MOV G202 <$HUMAN(捐献元宝额度)>
#ELSEACT
MOV A204 <$STR(A203)>
MOV G204 <$STR(G203)>
MOV A203 <$STR(A202)>
MOV G203 <$STR(G202)>
MOV A202 <$USERNAME>
MOV G202 <$HUMAN(捐献元宝额度)>
BREAK

[@BAOCUN3]
#IF
EQUAL A203 <$USERNAME>
#ACT
MOV A203 <$USERNAME>
MOV G203 <$HUMAN(捐献元宝额度)>
#ELSEACT
MOV A204 <$STR(A203)>
MOV G204 <$STR(G203)>
MOV A203 <$USERNAME>
MOV G203 <$HUMAN(捐献元宝额度)>
BREAK

[@BAOCUN4]
#ACT
MOV A204 <$USERNAME>
MOV G204 <$HUMAN(捐献元宝额度)>
BREAK