|
[@main]
#IF
CHECKLEVELEX > 0
#ACT
LOADVAR HUMAN JC ..\QuestDiary\沙城奖池\JC.txt
SortHumVarToListEx JC ..\QuestDiary\沙城奖池\JC.txt 1 ..\QuestDiary\沙城奖池\沙城排行.txt 1
GetListString ..\QuestDiary\沙城奖池\沙城排行.txt 0 S11 N11
GetListString ..\QuestDiary\沙城奖池\沙城排行.txt 1 S12 N12
GetListString ..\QuestDiary\沙城奖池\沙城排行.txt 2 S13 N13
GetListString ..\QuestDiary\沙城奖池\沙城排行.txt 3 S14 N14
GetListString ..\QuestDiary\沙城奖池\沙城排行.txt 4 S15 N15
GetListString ..\QuestDiary\沙城奖池\沙城排行.txt 5 S16 N16
SetStringBlank S11 14 0
SetStringBlank S12 14 0
SetStringBlank S13 14 0
SetStringBlank S14 14 0
SetStringBlank S15 14 0
SetStringBlank S16 14 0
;MOV S17 <$USERNAME>
;INC S17 :<$HUMAN(JC)>
;GetStringPos ..\QuestDiary\沙城奖池\沙城排行.txt <$STR(S17)>
;INC N1 1
;MOV N18 <$STR(N1)>
;MOV 1S8
#IF
EQUAL N11 1
CHECKVAR HUMAN JC > 0
#ACT
;MOV S18 <Img:14:0:-190:15>
goto @main1
BREAK
#IF
EQUAL N11 2
CHECKVAR HUMAN JC > 0
#ACT
;MOV S18 <Img:14:0:-190:31>
goto @main1
BREAK
#IF
EQUAL N11 3
CHECKVAR HUMAN JC > 0
#ACT
;MOV S18 <Img:14:0:-190:47>
goto @main1
BREAK
#IF
EQUAL N11 4
CHECKVAR HUMAN JC > 0
#ACT
;MOV S18 <Img:14:0:-190:63>
goto @main1
BREAK
#IF
EQUAL N11 5
CHECKVAR HUMAN JC > 0
#ACT
;MOV S18 <Img:14:0:-190:79>
goto @main1
BREAK
#IF
EQUAL N1 6
CHECKVAR HUMAN JC > 0
#ACT
;MOV S18 <Img:14:0:-190:95>
goto @main1
#ELSEACT
goto @main1
BREAK
[@main1]
#IF
#act
OPENMERCHANTBIGDLG 22 0001 1 0 1 1 1 0 0
#SAY
<【沙城奖池】/SCOLOR=249>\
<沙城奖池系统：每天合区累加捐献金额。捐献总金额统一到统战区发放奖励！/SCOLOR=254>\
<沙城奖池系统：每天合区累加捐献金额。捐献总金额统一到统战区发放奖励！/SCOLOR=254>\
<沙城奖池系统：每天合区累加捐献金额。捐献总金额统一到统战区发放奖励！/SCOLOR=254>\
<第一名 HP+10% 攻魔道+20点/SCOLOR=250> <玩家名称:/SCOLOR=249><$STR(S11)> <捐献数:/SCOLOR=249><$STR(N11)>\
<第二名 HP+9% 攻魔道+9点/SCOLOR=250> <玩家名称:/SCOLOR=249><$STR(S12)> <捐献数:/SCOLOR=249><$STR(N12)>\
<第三名 HP+8% 攻魔道+8点/SCOLOR=250> <玩家名称:/SCOLOR=249><$STR(S13)> <捐献数:/SCOLOR=249><$STR(N13)>\
<第四名 HP+7% 攻魔道+7点/SCOLOR=250> <玩家名称:/SCOLOR=249><$STR(S14)> <捐献数:/SCOLOR=249><$STR(N14)>\
<第五名 HP+6% 攻魔道+6点/SCOLOR=250> <玩家名称:/SCOLOR=249><$STR(S15)> <捐献数:/SCOLOR=249><$STR(N15)>\
<第六名 HP+5% 攻魔道+5点/SCOLOR=250> <玩家名称:/SCOLOR=249><$STR(S16)> <捐献数:/SCOLOR=249><$STR(N16)>\
<(永久激活)沙城赞助使者 第六名及以下，属性：HP+5% 攻魔道+5点/SCOLOR=253>\
<我要捐献沙城奖池/@@InPutInteger16> <属性小退上线生效/SCOLOR=254>\
<当前沙城池总累计奖金:/SCOLOR=253>【<$HUMAN(累计奖金)>】积分 <1万积分=1元RMB/SCOLOR=250>\
你当前的积分为:【<$str(U11)>】 你当前捐赠的积分为:【<$HUMAN(JC)>】\
<(沙城奖池)沙城维护费20%,沙城胜利行会获得沙城奖池佣金60%,失败行会获得沙城奖池佣金20%/SCOLOR=249>\
【<关闭窗口/@eXIT>】
[@InPutInteger16]
#IF
EQUAL N16
#ACT
messagebox 请输入捐献金额!
GOTO @WYJC
BREAK
#IF
SMALL N16 10
#ACT
messagebox 您所要的捐献的金额小于10积分!
BREAK
#IF
large U11 <$STR(N16)>
#ACT
DEC <$STR(N16)>
CALCVAR HUMAN JC + <$STR(N16)>
SAVEVAR HUMAN JC ..\QuestDiary\沙城奖池\JC.txt
CALCVAR HUMAN 累计奖金 + <$STR(N16)>
SAVEVAR HUMAN 累计奖金 ..\QuestDiary\沙城奖池\沙城池总累计奖金.txt
Addnamelist ..\QuestDiary\沙城奖池\第六排名.txt
MESSAGEBOX 感谢您对本服的支持!捐献后必须小腿才可生效！
#ELSEACT
messagebox 您没有足够的积分！
BREAK
#IF
CHECKVAR HUMAN JC > <$STR(N11)>
#ACT
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐献『<$STR(N16)>』积分抢走了玩家『<$STR(S11)>』第一名的称号.
GOTO @排名刷新1
BREAK
#IF
CHECKVAR HUMAN JC > <$STR(N12)>
#ACT
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐献『<$STR(N16)>』积分抢走了玩家『<$STR(S12)>』第二名的称号.
GOTO @排名刷新1
BREAK
#IF
CHECKVAR HUMAN JC > <$STR(N13)>
#ACT
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐献『<$STR(N16)>』积分抢走了玩家『<$STR(S13)>』第三名的称号.
GOTO @排名刷新1
BREAK
#IF
CHECKVAR HUMAN JC > <$STR(N14)>
#ACT
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐献『<$STR(N16)>』积分抢走了玩家『<$STR(S14)>』第四名的称号.
GOTO @排名刷新1
BREAK
#IF
CHECKVAR HUMAN JC > <$STR(N15)>
#ACT
GuildNoticeMsg 251 0 玩家『<$USERNAME>』捐献『<$STR(N16)>』积分抢走了玩家『<$STR(S15)>』第五名的称号.
GOTO @排名刷新1
BREAK
[@排名刷新1]
#ACT
SortHumVarToListEx JC ..\QuestDiary\沙城奖池\JC.txt 1 ..\QuestDiary\沙城奖池\沙城排行.txt 1
GetListString ..\QuestDiary\沙城奖池\沙城排行.txt 0 S11 N11
GetListString ..\QuestDiary\沙城奖池\沙城排行.txt 1 S12 N12
GetListString ..\QuestDiary\沙城奖池\沙城排行.txt 2 S13 N13
GetListString ..\QuestDiary\沙城奖池\沙城排行.txt 3 S14 N14
GetListString ..\QuestDiary\沙城奖池\沙城排行.txt 4 S15 N15
GetListString ..\QuestDiary\沙城奖池\沙城排行.txt 5 S16 N16
ClearNameList ..\QuestDiary\沙城奖池\第一排名.txt
ClearNameList ..\QuestDiary\沙城奖池\第二排名.txt
ClearNameList ..\QuestDiary\沙城奖池\第三排名.txt
ClearNameList ..\QuestDiary\沙城奖池\第四排名.txt
ClearNameList ..\QuestDiary\沙城奖池\第五排名.txt
AddTextList ..\QuestDiary\沙城奖池\第一排名.txt <$STR(S11)>
AddTextList ..\QuestDiary\沙城奖池\第二排名.txt <$STR(S12)>
AddTextList ..\QuestDiary\沙城奖池\第三排名.txt <$STR(S13)>
AddTextList ..\QuestDiary\沙城奖池\第四排名.txt <$STR(S14)>
AddTextList ..\QuestDiary\沙城奖池\第五排名.txt <$STR(S15)>
GOTO @main1
;MOV S17 <$USERNAME>
;INC S17 :<$HUMAN(JC)>
;GetStringPos ..\QuestDiary\沙城奖池\捐献排行.txt <$STR(S17)>
;INC N1 11
;MOV N28 <$STR(N11)>
|
