[@ttgame.net_沙城捐献NPC]
{
#IF
CHECKLEVELEX > 0
#ACT

SetMerchantDlgImgName ttgame.net_30沙捐.png
CALCVAR HUMAN 沙城捐献显示 =
INI_RELOAD $(沙城捐献路径)沙城捐献数据.ini
MOV D10 0
INI_READ_INTEGER $(沙城捐献路径)沙城捐献数据.ini <$STR($(沙城捐献变量))>总捐献 <$STR($(沙城捐献变量))>总捐献 D10
CALCVAR HUMAN 沙城捐献总 = <$STR(D10)>
INI_SORT_READ_SECTION_VALUES $(沙城捐献路径)沙城捐献数据.ini <$STR($(沙城捐献变量))> 0 0 1 #INI_SCJX_20201016 0
INI_SORT_SECTION_VALUES_COUNT #INI_SCJX_20201016 D0
MOV D11 $(沙城捐献区数)
MOV D10 0
MOV S10 
MOV S11 
MOV S12 

#IF
LARGE D0 1
#ACT
INI_SORT_GET_IDENT_STRING #INI_SCJX_20201016 1 S10
INI_SORT_GET_VALUE_INTEGER #INI_SCJX_20201016 1 D10
CALCVAR GLOBAL 沙城捐献1名 = <$STR(S10)>
CALCVAR GLOBAL 沙城捐献1数 = <$STR(D10)>
#ELSEACT
CALCVAR GLOBAL 沙城捐献1名 = 　
CALCVAR GLOBAL 沙城捐献1数 = 0
#IF
LARGE D0 2
#ACT
INI_SORT_GET_IDENT_STRING #INI_SCJX_20201016 2 S10
INI_SORT_GET_VALUE_INTEGER #INI_SCJX_20201016 2 D10
CALCVAR GLOBAL 沙城捐献2名 = <$STR(S10)>
CALCVAR GLOBAL 沙城捐献2数 = <$STR(D10)>
#ELSEACT
CALCVAR GLOBAL 沙城捐献2名 = 　
CALCVAR GLOBAL 沙城捐献2数 = 0
#IF
LARGE D0 3
#ACT
INI_SORT_GET_IDENT_STRING #INI_SCJX_20201016 3 S10
INI_SORT_GET_VALUE_INTEGER #INI_SCJX_20201016 3 D10
CALCVAR GLOBAL 沙城捐献3名 = <$STR(S10)>
CALCVAR GLOBAL 沙城捐献3数 = <$STR(D10)>
#ELSEACT
CALCVAR GLOBAL 沙城捐献3名 = 　
CALCVAR GLOBAL 沙城捐献3数 = 0
#IF
LARGE D0 4
#ACT
INI_SORT_GET_IDENT_STRING #INI_SCJX_20201016 4 S10
INI_SORT_GET_VALUE_INTEGER #INI_SCJX_20201016 4 D10
CALCVAR GLOBAL 沙城捐献4名 = <$STR(S10)>
CALCVAR GLOBAL 沙城捐献4数 = <$STR(D10)>
#ELSEACT
CALCVAR GLOBAL 沙城捐献4名 = 　
CALCVAR GLOBAL 沙城捐献4数 = 0
#IF
LARGE D0 5
#ACT
INI_SORT_GET_IDENT_STRING #INI_SCJX_20201016 5 S10
INI_SORT_GET_VALUE_INTEGER #INI_SCJX_20201016 5 D10
CALCVAR GLOBAL 沙城捐献5名 = <$STR(S10)>
CALCVAR GLOBAL 沙城捐献5数 = <$STR(D10)>
#ELSEACT
CALCVAR GLOBAL 沙城捐献5名 = 　
CALCVAR GLOBAL 沙城捐献5数 = 0
#IF
LARGE D0 6
#ACT
INI_SORT_GET_IDENT_STRING #INI_SCJX_20201016 6 S10
INI_SORT_GET_VALUE_INTEGER #INI_SCJX_20201016 6 D10
CALCVAR GLOBAL 沙城捐献6名 = <$STR(S10)>
CALCVAR GLOBAL 沙城捐献6数 = <$STR(D10)>
#ELSEACT
CALCVAR GLOBAL 沙城捐献6名 = 　
CALCVAR GLOBAL 沙城捐献6数 = 0
#IF
LARGE D0 7
#ACT
INI_SORT_GET_IDENT_STRING #INI_SCJX_20201016 7 S10
INI_SORT_GET_VALUE_INTEGER #INI_SCJX_20201016 7 D10
CALCVAR GLOBAL 沙城捐献7名 = <$STR(S10)>
CALCVAR GLOBAL 沙城捐献7数 = <$STR(D10)>
#ELSEACT
CALCVAR GLOBAL 沙城捐献7名 = 　
CALCVAR GLOBAL 沙城捐献7数 = 0

#IF
CHECKVAR GLOBAL 沙城捐献1名 = <$SERVERNAME>
#ACT
MOV S15 $(沙城捐献本区颜色)
MOV S16 $(沙城捐献本区颜色)
MOV S17 $(沙城捐献本区颜色)
MOV S18 $(沙城捐献本区颜色)
#ELSEACT
MOV S15 $(沙城捐献排行颜色)
MOV S16 $(沙城捐献区名颜色)
MOV S17 $(沙城捐献捐献颜色)
MOV S18 $(沙城捐献数量颜色)
#IF
LARGE D11 0
#ACT
MOV S12 　│<$STR(S15)>
INC S12 
INC S12 
INC S12 ⒈
INC S12 
INC S12 >
MOV S11 <$GLOBAL(沙城捐献1名)><$HUMAN(沙城捐献空格)>
DEC S11 23 500
INC S12 │<$STR(S16)>
INC S12 
INC S12 <$STR(S11)>>│<$STR(S17)>
INC S12 
INC S12 沙捐捐献>│<$STR(S18)>
INC S12 
MOV S11 <$GLOBAL(沙城捐献1数)><$HUMAN(沙城捐献空格)>
DEC S11 13 500
INC S12 <$STR(S11)>>│\
CALCVAR HUMAN 沙城捐献显示 + <$STR(S12)>

#IF
CHECKVAR GLOBAL 沙城捐献2名 = <$SERVERNAME>
#ACT
MOV S15 $(沙城捐献本区颜色)
MOV S16 $(沙城捐献本区颜色)
MOV S17 $(沙城捐献本区颜色)
MOV S18 $(沙城捐献本区颜色)
#ELSEACT
MOV S15 $(沙城捐献排行颜色)
MOV S16 $(沙城捐献区名颜色)
MOV S17 $(沙城捐献捐献颜色)
MOV S18 $(沙城捐献数量颜色)
#IF
LARGE D11 1
#ACT
MOV S12 　│<$STR(S15)>
INC S12 
INC S12 
INC S12 ⒉
INC S12 
INC S12 >
MOV S11 <$GLOBAL(沙城捐献2名)><$HUMAN(沙城捐献空格)>
DEC S11 23 500
INC S12 │<$STR(S16)>
INC S12 
INC S12 <$STR(S11)>>│<$STR(S17)>
INC S12 
INC S12 沙捐捐献>│<$STR(S18)>
INC S12 
MOV S11 <$GLOBAL(沙城捐献2数)><$HUMAN(沙城捐献空格)>
DEC S11 13 500
INC S12 <$STR(S11)>>│\
CALCVAR HUMAN 沙城捐献显示 + <$STR(S12)>

#IF
CHECKVAR GLOBAL 沙城捐献3名 = <$SERVERNAME>
#ACT
MOV S15 $(沙城捐献本区颜色)
MOV S16 $(沙城捐献本区颜色)
MOV S17 $(沙城捐献本区颜色)
MOV S18 $(沙城捐献本区颜色)
#ELSEACT
MOV S15 $(沙城捐献排行颜色)
MOV S16 $(沙城捐献区名颜色)
MOV S17 $(沙城捐献捐献颜色)
MOV S18 $(沙城捐献数量颜色)
#IF
LARGE D11 2
#ACT
MOV S12 　│<$STR(S15)>
INC S12 
INC S12 
INC S12 ⒊
INC S12 
INC S12 >
MOV S11 <$GLOBAL(沙城捐献3名)><$HUMAN(沙城捐献空格)>
DEC S11 23 500
INC S12 │<$STR(S16)>
INC S12 
INC S12 <$STR(S11)>>│<$STR(S17)>
INC S12 
INC S12 沙捐捐献>│<$STR(S18)>
INC S12 
MOV S11 <$GLOBAL(沙城捐献3数)><$HUMAN(沙城捐献空格)>
DEC S11 13 500
INC S12 <$STR(S11)>>│\
CALCVAR HUMAN 沙城捐献显示 + <$STR(S12)>

#IF
CHECKVAR GLOBAL 沙城捐献4名 = <$SERVERNAME>
#ACT
MOV S15 $(沙城捐献本区颜色)
MOV S16 $(沙城捐献本区颜色)
MOV S17 $(沙城捐献本区颜色)
MOV S18 $(沙城捐献本区颜色)
#ELSEACT
MOV S15 $(沙城捐献排行颜色)
MOV S16 $(沙城捐献区名颜色)
MOV S17 $(沙城捐献捐献颜色)
MOV S18 $(沙城捐献数量颜色)
#IF
LARGE D11 3
#ACT
MOV S12 　│<$STR(S15)>
INC S12 
INC S12 
INC S12 ⒋
INC S12 
INC S12 >
MOV S11 <$GLOBAL(沙城捐献4名)><$HUMAN(沙城捐献空格)>
DEC S11 23 500
INC S12 │<$STR(S16)>
INC S12 
INC S12 <$STR(S11)>>│<$STR(S17)>
INC S12 
INC S12 沙捐捐献>│<$STR(S18)>
INC S12 
MOV S11 <$GLOBAL(沙城捐献4数)><$HUMAN(沙城捐献空格)>
DEC S11 13 500
INC S12 <$STR(S11)>>│\
CALCVAR HUMAN 沙城捐献显示 + <$STR(S12)>

#IF
CHECKVAR GLOBAL 沙城捐献5名 = <$SERVERNAME>
#ACT
MOV S15 $(沙城捐献本区颜色)
MOV S16 $(沙城捐献本区颜色)
MOV S17 $(沙城捐献本区颜色)
MOV S18 $(沙城捐献本区颜色)
#ELSEACT
MOV S15 $(沙城捐献排行颜色)
MOV S16 $(沙城捐献区名颜色)
MOV S17 $(沙城捐献捐献颜色)
MOV S18 $(沙城捐献数量颜色)
#IF
LARGE D11 4
#ACT
MOV S12 　│<$STR(S15)>
INC S12 
INC S12 
INC S12 ⒌
INC S12 
INC S12 >
MOV S11 <$GLOBAL(沙城捐献5名)><$HUMAN(沙城捐献空格)>
DEC S11 23 500
INC S12 │<$STR(S16)>
INC S12 
INC S12 <$STR(S11)>>│<$STR(S17)>
INC S12 
INC S12 沙捐捐献>│<$STR(S18)>
INC S12 
MOV S11 <$GLOBAL(沙城捐献5数)><$HUMAN(沙城捐献空格)>
DEC S11 13 500
INC S12 <$STR(S11)>>│\
CALCVAR HUMAN 沙城捐献显示 + <$STR(S12)>

#IF
CHECKVAR GLOBAL 沙城捐献6名 = <$SERVERNAME>
#ACT
MOV S15 $(沙城捐献本区颜色)
MOV S16 $(沙城捐献本区颜色)
MOV S17 $(沙城捐献本区颜色)
MOV S18 $(沙城捐献本区颜色)
#ELSEACT
MOV S15 $(沙城捐献排行颜色)
MOV S16 $(沙城捐献区名颜色)
MOV S17 $(沙城捐献捐献颜色)
MOV S18 $(沙城捐献数量颜色)
#IF
LARGE D11 5
#ACT
MOV S12 　│<$STR(S15)>
INC S12 
INC S12 
INC S12 ⒍
INC S12 
INC S12 >
MOV S11 <$GLOBAL(沙城捐献6名)><$HUMAN(沙城捐献空格)>
DEC S11 23 500
INC S12 │<$STR(S16)>
INC S12 
INC S12 <$STR(S11)>>│<$STR(S17)>
INC S12 
INC S12 沙捐捐献>│<$STR(S18)>
INC S12 
MOV S11 <$GLOBAL(沙城捐献6数)><$HUMAN(沙城捐献空格)>
DEC S11 13 500
INC S12 <$STR(S11)>>│\
CALCVAR HUMAN 沙城捐献显示 + <$STR(S12)>

#IF
CHECKVAR GLOBAL 沙城捐献7名 = <$SERVERNAME>
#ACT
MOV S15 $(沙城捐献本区颜色)
MOV S16 $(沙城捐献本区颜色)
MOV S17 $(沙城捐献本区颜色)
MOV S18 $(沙城捐献本区颜色)
#ELSEACT
MOV S15 $(沙城捐献排行颜色)
MOV S16 $(沙城捐献区名颜色)
MOV S17 $(沙城捐献捐献颜色)
MOV S18 $(沙城捐献数量颜色)
#IF
LARGE D11 6
#ACT
MOV S12 　│<$STR(S15)>
INC S12 
INC S12 
INC S12 ⒎
INC S12 
INC S12 >
MOV S11 <$GLOBAL(沙城捐献7名)><$HUMAN(沙城捐献空格)>
DEC S11 23 500
INC S12 │<$STR(S16)>
INC S12 
INC S12 <$STR(S11)>>│<$STR(S17)>
INC S12 
INC S12 沙捐捐献>│<$STR(S18)>
INC S12 
MOV S11 <$GLOBAL(沙城捐献7数)><$HUMAN(沙城捐献空格)>
DEC S11 13 500
INC S12 <$STR(S11)>>│\
CALCVAR HUMAN 沙城捐献显示 + <$STR(S12)>

#IF
CHECKVAR HUMAN 沙城捐献总 > 0
#ACT
MOV P1 <$HUMAN(沙城捐献总)>
MOV P2 <$HUMAN(沙城捐献总)>
MUL P1 $(沙城捐献胜方比列)
DIV P1 100
DEC P2 <$STR(P1)>
MOV S80 <$STR(P1)>
MOV S81 <$STR(P2)>
#ELSEACT
MOV S80 0
MOV S81 0

#IF
Checkstringlist $(开区模式路径) 合区 HardDisk
#ACT
SetMerchantDlgImgName ttgame.net_30沙捐合区.png
CALCVAR HUMAN 沙城捐献显示 =
INI_RELOAD $(沙城捐献路径)沙城捐献数据.ini
MOV D10 0
INI_READ_INTEGER $(沙城捐献路径)沙城捐献数据.ini <$STR($(沙城捐献变量))>总捐献 <$STR($(沙城捐献变量))>总捐献 D10
CALCVAR HUMAN 沙城捐献总 = <$STR(D10)>
CALCVAR GLOBAL 沙城捐献1名 = <$SERVERNAME>
CALCVAR GLOBAL 沙城捐献1数 = <$STR(D10)>
MOV S12 　│<$STR(S15)>
INC S12 
INC S12 
INC S12 ⒈
INC S12 
INC S12 >
MOV S11 <$GLOBAL(沙城捐献1名)><$HUMAN(沙城捐献空格)>
DEC S11 23 500
INC S12 │<$STR(S16)>
INC S12 
INC S12 <$STR(S11)>>│<$STR(S17)>
INC S12 
INC S12 沙捐捐献>│<$STR(S18)>
INC S12 
MOV S11 <$GLOBAL(沙城捐献1数)><$HUMAN(沙城捐献空格)>
DEC S11 13 500
INC S12 <$STR(S11)>>│\
CALCVAR HUMAN 沙城捐献显示 = <$STR(S12)>
MOV D0 0

#IF
CHECKLEVELEX > 0
#SAY
\\\\
　╔──╦───────────╦────╦──────╗\
　│<COLOR=#$F0CAA6 今日>│　　　<COLOR=#$F0CAA6 服务器名称>　　　│<COLOR=#$F0CAA6 捐献项目>│<COLOR=#$F0CAA6 累计捐献金额>│\
　╠──╬───────────╬────╬──────╣\
<$HUMAN(沙城捐献显示)>
　╚──╩───────────╩────╩──────╝\
<>    <COLOR=clRed 今日沙捐捐献总额>[<$HUMAN(沙城捐献总)>]<COLOR=clYellow ＲＭＢ>    您当前剩余:【<$$(沙城捐献货币变量)>】$(沙城捐献货币名称)\
<> <COLOR=#$003939 ─────────────────────────────>\
<>   <COLOR=$00EFD68C 【沙捐费用】>一次性捐献$(沙城捐献金额)$(沙城捐献货币名称)(服务器税收$(沙城捐献税率)%)\
<>   <COLOR=$00EFD68C 【沙捐属性】>沙捐使者称号+<COLOR=$0000E7F7 1.2+倍爆率>+攻魔道属性+20\
<>   <COLOR=$00EFD68C 【沙捐奖励】>胜方奖励$(沙城捐献胜方比列)％、败方奖励$(沙城捐献败方比列)％ <COLOR=clRed 查看沙奖说明 HINT=1.拿沙只允许两个行会，多个行会情况可自行结盟\2.一边倒无激情，消极参战凑人数，失败方无奖励>\
<>   <COLOR=$00EFD68C 【沙捐地图】>开启沙捐+$(沙城地图费用)$(沙城地图货币)进入，地图爆率超高！\
<> <COLOR=#$003939 ─────────────────────────────>\
<>        <COLOR=#$00FF00 胜方奖励>[<$STR(S80)>]<COLOR=clYellow ＲＭＢ>       <COLOR=$00008800 败方奖励>[<$STR(S81)>]<COLOR=clYellow ＲＭＢ>\
<> <COLOR=#$003939 ─────────────────────────────>\
<>          [<我要公益捐献/@我要公益捐献>]          [<沙捐专属地图/@沙捐专属地图>]\

[@沙捐专属地图]
#IF
Checkstringlist $(开区模式路径) 合区 HardDisk
#ACT
MESSAGEBOX  本地图合区关闭！
BREAK

#IF
CHECK $(沙城捐献标识) 0
#ACT
MESSAGEBOX 你还没有开启沙捐大使称号，无法进入！
BREAK

#IF
CHECK$(沙城地图变量) ? $(沙城地图费用)
#ACT
$(沙城地图变量) - $(沙城地图费用)
MAP $(沙城地图代码)
SENDMSG 0 沙捐大使“%S”通过土城沙捐使者处进入了【沙捐专属地图】！ 250 0
#ELSEACT
MESSAGEBOX 你没有$(沙城地图费用)$(沙城地图货币)，无法进入！
BREAK

[@我要公益捐献]
#IF
Checkstringlist $(开区模式路径) 测试 HARDDISK
#ACT
MESSAGEBOX 沙城捐献：\　\当前为【测试区】，无法捐献沙城奖励。。。
BREAK
#IF
CHECKCASTLEWAR
#ACT
MESSAGEBOX 沙城捐献：\　\当前为【攻城时间】，无法捐献沙城奖励。。。
BREAK
#IF
!CHECK$(沙城捐献货币变量) ? $(沙城捐献金额)
#ACT
MESSAGEBOX 沙城捐献：\　\需要有$(沙城捐献金额)$(沙城捐献货币名称)才能捐献...
BREAK
#IF
CHECK $(沙城捐献标识) 1
#ACT
MESSAGEBOX 沙城捐献：\　\您已经公益捐献过沙城奖励，无法反复捐献。
BREAK

#IF
CHECKLEVELEX > 0
#ACT
MOV P1 $(沙城捐献金额)
MOV P2 $(沙城捐献金额)
MUL P1 $(沙城捐献税率)
DIV P1 100

#IF
SMALL P1 <$STR(P2)>
#ACT
DEC P2 <$STR(P1)>
#ELSEACT
MOV P2 1

#IF
CHECK $(沙城捐献标识) 0
CHECK$(沙城捐献货币变量) ? $(沙城捐献金额)
#ACT
$(沙城捐献货币变量) - $(沙城捐献金额)
SET $(沙城捐献标识) 1
INI_RELOAD $(沙城捐献路径)沙城捐献数据.ini
INI_WRITE_INTEGER_EX $(沙城捐献路径)沙城捐献数据.ini <$STR($(沙城捐献变量))> <$SERVERNAME> + <$STR(P2)>
INI_WRITE_INTEGER_EX $(沙城捐献路径)沙城捐献数据.ini <$STR($(沙城捐献变量))>总捐献 <$STR($(沙城捐献变量))>总捐献 + <$STR(P2)>
MOV P1 0
INI_READ_INTEGER $(沙城捐献路径)沙城捐献数据.ini <$STR($(沙城捐献变量))> <$SERVERNAME> P1
INI_SAVE $(沙城捐献路径)沙城捐献数据.ini
MESSAGEBOX 沙城捐献：\　\捐献成功，本次您捐献了【$(沙城捐献金额)$(沙城捐献货币名称)】\　\本区捐献总数为【<$STR(P1)>$(沙城捐献货币名称)】。
DELAYGOTO 1 @ttgame.net_沙城捐献NPC
BREAK
#ELSEACT
MESSAGEBOX 沙城捐献：\　\你没有$(沙城捐献金额)$(沙城捐献货币名称)。。。
BREAK

;---------------------------------------------------------------------

[@ttgame.net_沙城捐献常量加载]
#CALL [\ttgame.net_游戏功能配制\沙城捐献\ttgame.net_沙城捐献常量.ini] @ttgame.net_沙城捐献常量
}