竞价功能NPC脚本|www.30ok.cc

(@SDDX)
[@main]
#ACT
MOV S30 $GLOBAL(地主1)
FillText S30 14
MOV S31 $GLOBAL(占领1)
FillText S31 10
MOV S32 $GLOBAL(收入1)
FillText S32 10
MOV S33 $GLOBAL(地主2)
FillText S33 14
MOV S34 $GLOBAL(占领2)
FillText S34 10
MOV S35 $GLOBAL(收入2)
FillText S35 10
MOV S36 $GLOBAL(地主3)
FillText S36 14
MOV S37 $GLOBAL(占领3)
FillText S37 10
MOV S38 $GLOBAL(收入3)
FillText S38 10
MOV S39 $GLOBAL(地主4)
FillText S39 14
MOV S40 $GLOBAL(占领4)
FillText S40 10
MOV S41 $GLOBAL(收入4)
FillText S41 10
MOV S42 $GLOBAL(地主5)
FillText S42 14
MOV S43 $GLOBAL(占领5)
FillText S43 10
MOV S44 $GLOBAL(收入5)
FillText S44 10
MOV S45 $GLOBAL(地主6)
FillText S45 14
MOV S46 $GLOBAL(占领6)
FillText S46 10
MOV S47 $GLOBAL(收入6)
FillText S47 10
MOV S48 $GLOBAL(地主7)
FillText S48 14
MOV S49 $GLOBAL(占领7)
FillText S49 10
MOV S50 $GLOBAL(收入7)
FillText S50 10
MOV S51 $GLOBAL(地主8)
FillText S51 14
MOV S52 $GLOBAL(占领8)
FillText S52 10
MOV S53 $GLOBAL(收入8)
FillText S53 10
#SAY
\\
　　　　<color=orange -------------------------------><color=green 竞价打宝><color=orange -------------------------------->\\
　　　　　　本服<color=red 打宝地图>可采用一次性拍卖的方式进行交易，购买后，可永久进入该地\
　　　　免费。其他玩家进入的的费用的<color=green 百分之10>归该地图所有者，也可以采取高额竞价\
　　　　的方式才获得该地图的所有权。<color=green 有以下地图可以竞价获得：>\\
　　　　　　地图名字所有者价格目前收入\
　　　　　　<color=orange 尸魔之地> <$STR(S30)><$STR(S31)><$STR(S32)><抢夺该地/@竞价该地1> <管理封地/@管理该地1>\
　　　　　　<color=orange 轮回峡谷> <$STR(S33)><$STR(S34)><$STR(S35)><抢夺该地/@竞价该地2> <管理封地/@管理该地2>\
　　　　　　<color=orange 涅槃巢穴> <$STR(S36)><$STR(S37)><$STR(S38)><抢夺该地/@竞价该地3> <管理封地/@管理该地3>\
　　　　　　<color=orange 泰坦魔窟> <$STR(S39)><$STR(S40)><$STR(S41)><抢夺该地/@竞价该地4> <管理封地/@管理该地4>\
　　　　　　<color=orange 修罗玄关> <$STR(S42)><$STR(S43)><$STR(S44)><抢夺该地/@竞价该地5> <管理封地/@管理该地5>\
　　　　　　<color=orange 万劫之城> <$STR(S45)><$STR(S46)><$STR(S47)><抢夺该地/@竞价该地6> <管理封地/@管理该地6>\
　　　　　　<color=orange 天使之潭> <$STR(S48)><$STR(S49)><$STR(S50)><抢夺该地/@竞价该地7> <管理封地/@管理该地7>\
　　　　　　<color=orange 青宵天界> <$STR(S51)><$STR(S52)><$STR(S53)><抢夺该地/@竞价该地8> <管理封地/@管理该地8>\\\
　　　　　　　　　　　　　　　　　　　〖<离开/@exit>〗
[@管理该地1]
#IF
EQUAL $USERNAME $GLOBAL(地主1)
#SAY
\\
　　　　　　　　收入状况： <color=0066FF 精><color=3399FF 品><color=66CC99 版><color=66FFFF 本> <color=FF6600 橘><color=ff9900 子><color=ffcc00 打><color=ffff00 造>\
　　　　　　　　<color=FF0000 ━━><color=FF0033 ━━><color=FF0066 ━━><color=FF0099 ━━><color=FF00cc ━━><color=FF00FF ━━><color=FF33FF ━━><color=FF66FF ━━━><color=FF99FF ━━━><color=FFCCFF ━━━><color=FFFFFF ━━━>\\\
　　　　　　　　尊敬的<$USERNAME>：\\
　　　　　　　　　　<color=21A6FA 竞价底额为：>{color=red <$GLOBAL(占领1)>}元宝\
　　　　　　　　　　<color=21A6FA 今日共收入：>{color=red <$GLOBAL(收入1)>}元宝\
　　　　　　　　　　<color=21A6FA 离提取剩余：>{color=red <$GLOBAL(时间1)>}分钟\\
　　　　　　　　　　<我要领取收入/@领取收入1> → <color=green 竞价后一小时内无法提取收入>\
　　　　　　　　　　<提高竞价底额/@提高竞价1> → <color=green 自己提高封地底额需要双倍价格>\
　　　　　　　　　　{进入地主封地/@进入封地&<$GLOBAL(地主1)>&FENGDI01} → <color=green 每日刷一只必爆高级装备的BOSS>\\\\\
　　　　　　　　　　　　　　　　　　　　<返回/@BACK>\
#ELSEACT
MESSAGEBOX 你不是该地图的管理者！
BREAK

[@领取收入1]
#IF
CHECKVAR GLOBAL 时间1 > 0
#ACT
MESSAGEBOX <$GLOBAL(时间1)>分钟后才可以提取该层收入。
BREAK
#IF
CHECKVAR GLOBAL 收入1 < 1
#act
MESSAGEBOX 今日尚没有任何收入
break
#IF
EQUAL $USERNAME $GLOBAL(地主1)
#ACT
GAMEGOLD + $GLOBAL(收入1)
sendmsg 7 成功支取出<$GLOBAL(收入1)>元宝。
CALCVAR GLOBAL 收入1 = 0
SAVEVAR GLOBAL 收入1 ..\QuestDiary\数据文件\全局变量\全局变量.txt
BREAK
#ELSEACT
MESSAGEBOX 你不是本层的地主，无法提取收入状况。\如果支付过程中被别人竞价，你可以小退后即可收到\之前的收入费用。
BREAK

[@提高竞价1]
#IF
CHECKVAR GLOBAL 时间1 > 0
#ACT
MESSAGEBOX 该地图离允许竞价时间还剩<$GLOBAL(时间1)>分钟
BREAK
#ELSEACT
QUERYVAL 1 1 10 @提高竞价A1 加价金额不能低于3000元宝：

[@提高竞价A1]
#IF
SMALL D1 3000
#ACT
MESSAGEBOX 本次加价不能低于3000元宝
BREAK
#IF
LARGE D1 0
#ACT
GAMEGOLD - $STR(D1)
CALCVAR GLOBAL 占领1 + $STR(D1)
SAVEVAR GLOBAL 占领1 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 时间1 = 60
SAVEVAR GLOBAL 时间1 ..\QuestDiary\数据文件\全局变量\全局变量.txt
SENDMSG 0 玩家%s将尸魔之地的竞价底额提高至<$GLOBAL(占领1)>元宝，看来本地图的火爆程度非比寻常！
SENDMSG 13 玩家%s将尸魔之地的竞价底额提高至<$GLOBAL(占领1)>元宝，看来本地图的火爆程度非比寻常！
SENDMSG 10 玩家%s将尸魔之地的竞价底额提高至<$GLOBAL(占领1)>元宝，看来本地图的火爆程度非比寻常！
delay 1 @main
BREAK
#ELSESAY
你所出的价格不足！\
<关闭/@exit>\

[@管理该地2]
#IF
EQUAL $USERNAME $GLOBAL(地主2)
#SAY
\\
　　　　　　　　收入状况： <color=0066FF 精><color=3399FF 品><color=66CC99 版><color=66FFFF 本> <color=FF6600 橘><color=ff9900 子><color=ffcc00 打><color=ffff00 造>\
　　　　　　　　<color=FF0000 ━━><color=FF0033 ━━><color=FF0066 ━━><color=FF0099 ━━><color=FF00cc ━━><color=FF00FF ━━><color=FF33FF ━━><color=FF66FF ━━━><color=FF99FF ━━━><color=FFCCFF ━━━><color=FFFFFF ━━━>\\\
　　　　　　　　尊敬的<$USERNAME>：\\
　　　　　　　　　　<color=21A6FA 竞价底额为：>{color=red <$GLOBAL(占领2)>}元宝\
　　　　　　　　　　<color=21A6FA 今日共收入：>{color=red <$GLOBAL(收入2)>}元宝\
　　　　　　　　　　<color=21A6FA 离提取剩余：>{color=red <$GLOBAL(时间2)>}分钟\\
　　　　　　　　　　<我要领取收入/@领取收入2> → <color=green 竞价后一小时内无法提取收入>\
　　　　　　　　　　<提高竞价底额/@提高竞价2> → <color=green 自己提高封地底额需要双倍价格>\
　　　　　　　　　　{进入地主封地/@进入封地&<$GLOBAL(地主2)>&FENGDI02} → <color=green 每日刷一只必爆高级装备的BOSS>\\\\\
　　　　　　　　　　　　　　　　　　　　<返回/@BACK>\
#ELSEACT
MESSAGEBOX 你不是该地图的管理者！
BREAK

[@领取收入2]
#IF
CHECKVAR GLOBAL 时间2 > 0
#ACT
MESSAGEBOX <$GLOBAL(时间2)>分钟后才可以提取该层收入。
BREAK
#IF
CHECKVAR GLOBAL 收入2 < 1
#act
MESSAGEBOX 今日尚没有任何收入
break
#IF
EQUAL $USERNAME $GLOBAL(地主2)
#ACT
GAMEGOLD + $GLOBAL(收入2)
sendmsg 7 成功支取出<$GLOBAL(收入2)>元宝。
CALCVAR GLOBAL 收入2 = 0
SAVEVAR GLOBAL 收入2 ..\QuestDiary\数据文件\全局变量\全局变量.txt
BREAK
#ELSEACT
MESSAGEBOX 你不是本层的地主，无法提取收入状况。\如果支付过程中被别人竞价，你可以小退后即可收到\之前的收入费用。
BREAK

[@提高竞价2]
#IF
CHECKVAR GLOBAL 时间2 > 0
#ACT
MESSAGEBOX 该地图离允许竞价时间还剩<$GLOBAL(时间2)>分钟
BREAK
#ELSEACT
QUERYVAL 1 1 10 @提高竞价A2 加价金额不能低于3000元宝：

[@提高竞价A2]
#IF
SMALL D1 3000
#ACT
MESSAGEBOX 本次加价不能低于3000元宝
BREAK
#IF
LARGE D1 0
#ACT
GAMEGOLD - $STR(D1)
CALCVAR GLOBAL 占领2 + $STR(D1)
SAVEVAR GLOBAL 占领2 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 时间2 = 60
SAVEVAR GLOBAL 时间2 ..\QuestDiary\数据文件\全局变量\全局变量.txt
SENDMSG 0 玩家%s将轮回峡谷的竞价底额提高至<$GLOBAL(占领2)>元宝，看来本地图的火爆程度非比寻常！
SENDMSG 13 玩家%s将轮回峡谷的竞价底额提高至<$GLOBAL(占领2)>元宝，看来本地图的火爆程度非比寻常！
SENDMSG 10 玩家%s将轮回峡谷的竞价底额提高至<$GLOBAL(占领2)>元宝，看来本地图的火爆程度非比寻常！
delay 1 @main
BREAK
#ELSESAY
你所出的价格不足！\
<关闭/@exit>\

[@管理该地3]
#IF
EQUAL $USERNAME $GLOBAL(地主3)
#SAY
\\
　　　　　　　　收入状况： <color=0066FF 精><color=3399FF 品><color=66CC99 版><color=66FFFF 本> <color=FF6600 橘><color=ff9900 子><color=ffcc00 打><color=ffff00 造>\
　　　　　　　　<color=FF0000 ━━><color=FF0033 ━━><color=FF0066 ━━><color=FF0099 ━━><color=FF00cc ━━><color=FF00FF ━━><color=FF33FF ━━><color=FF66FF ━━━><color=FF99FF ━━━><color=FFCCFF ━━━><color=FFFFFF ━━━>\\\
　　　　　　　　尊敬的<$USERNAME>：\\
　　　　　　　　　　<color=21A6FA 竞价底额为：>{color=red <$GLOBAL(占领3)>}元宝\
　　　　　　　　　　<color=21A6FA 今日共收入：>{color=red <$GLOBAL(收入3)>}元宝\
　　　　　　　　　　<color=21A6FA 离提取剩余：>{color=red <$GLOBAL(时间3)>}分钟\\
　　　　　　　　　　<我要领取收入/@领取收入3> → <color=green 竞价后一小时内无法提取收入>\
　　　　　　　　　　<提高竞价底额/@提高竞价3> → <color=green 自己提高封地底额需要双倍价格>\
　　　　　　　　　　{进入地主封地/@进入封地&<$GLOBAL(地主3)>&FENGDI03} → <color=green 每日刷一只必爆高级装备的BOSS>\\\\\
　　　　　　　　　　　　　　　　　　　　<返回/@BACK>\
#ELSEACT
MESSAGEBOX 你不是该地图的管理者！
BREAK

[@领取收入3]
#IF
CHECKVAR GLOBAL 时间3 > 0
#ACT
MESSAGEBOX <$GLOBAL(时间2)>分钟后才可以提取该层收入。
BREAK
#IF
CHECKVAR GLOBAL 收入3 < 1
#act
MESSAGEBOX 今日尚没有任何收入
break
#IF
EQUAL $USERNAME $GLOBAL(地主3)
#ACT
GAMEGOLD + $GLOBAL(收入3)
sendmsg 7 成功支取出<$GLOBAL(收入3)>元宝。
CALCVAR GLOBAL 收入3 = 0
SAVEVAR GLOBAL 收入3 ..\QuestDiary\数据文件\全局变量\全局变量.txt
BREAK
#ELSEACT
MESSAGEBOX 你不是本层的地主，无法提取收入状况。\如果支付过程中被别人竞价，你可以小退后即可收到\之前的收入费用。
BREAK

[@提高竞价3]
#IF
CHECKVAR GLOBAL 时间3 > 0
#ACT
MESSAGEBOX 该地图离允许竞价时间还剩<$GLOBAL(时间3)>分钟
BREAK
#ELSEACT
QUERYVAL 1 1 10 @提高竞价A3 加价金额不能低于3000元宝：

[@提高竞价A3]
#IF
SMALL D1 3000
#ACT
MESSAGEBOX 本次加价不能低于3000元宝
BREAK
#IF
LARGE D1 0
#ACT
GAMEGOLD - $STR(D1)
CALCVAR GLOBAL 占领3 + $STR(D1)
SAVEVAR GLOBAL 占领3 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 时间3 = 60
SAVEVAR GLOBAL 时间3 ..\QuestDiary\数据文件\全局变量\全局变量.txt
SENDMSG 0 玩家%s将涅槃巢穴的竞价底额提高至<$GLOBAL(占领3)>元宝，看来本地图的火爆程度非比寻常！
SENDMSG 13 玩家%s将涅槃巢穴的竞价底额提高至<$GLOBAL(占领3)>元宝，看来本地图的火爆程度非比寻常！
SENDMSG 10 玩家%s将涅槃巢穴的竞价底额提高至<$GLOBAL(占领3)>元宝，看来本地图的火爆程度非比寻常！
delay 1 @main
BREAK
#ELSESAY
你所出的价格不足！\
<关闭/@exit>\

[@管理该地4]
#IF
EQUAL $USERNAME $GLOBAL(地主4)
#SAY
\\
　　　　　　　　收入状况： <color=0066FF 精><color=3399FF 品><color=66CC99 版><color=66FFFF 本> <color=FF6600 橘><color=ff9900 子><color=ffcc00 打><color=ffff00 造>\
　　　　　　　　<color=FF0000 ━━><color=FF0033 ━━><color=FF0066 ━━><color=FF0099 ━━><color=FF00cc ━━><color=FF00FF ━━><color=FF33FF ━━><color=FF66FF ━━━><color=FF99FF ━━━><color=FFCCFF ━━━><color=FFFFFF ━━━>\\\
　　　　　　　　尊敬的<$USERNAME>：\\
　　　　　　　　　　<color=21A6FA 竞价底额为：>{color=red <$GLOBAL(占领4)>}元宝\
　　　　　　　　　　<color=21A6FA 今日共收入：>{color=red <$GLOBAL(收入4)>}元宝\
　　　　　　　　　　<color=21A6FA 离提取剩余：>{color=red <$GLOBAL(时间4)>}分钟\\
　　　　　　　　　　<我要领取收入/@领取收入4> → <color=green 竞价后一小时内无法提取收入>\
　　　　　　　　　　<提高竞价底额/@提高竞价4> → <color=green 自己提高封地底额需要双倍价格>\
　　　　　　　　　　{进入地主封地/@进入封地&<$GLOBAL(地主4)>&FENGDI04} → <color=green 每日刷一只必爆高级装备的BOSS>\\\\\
　　　　　　　　　　　　　　　　　　　　<返回/@BACK>\
#ELSEACT
MESSAGEBOX 你不是该地图的管理者！
BREAK

[@领取收入4]
#IF
CHECKVAR GLOBAL 时间4 > 0
#ACT
MESSAGEBOX <$GLOBAL(时间2)>分钟后才可以提取该层收入。
BREAK
#IF
CHECKVAR GLOBAL 收入4 < 1
#act
MESSAGEBOX 今日尚没有任何收入
break
#IF
EQUAL $USERNAME $GLOBAL(地主4)
#ACT
GAMEGOLD + $GLOBAL(收入4)
sendmsg 7 成功支取出<$GLOBAL(收入4)>元宝。
CALCVAR GLOBAL 收入4 = 0
SAVEVAR GLOBAL 收入4 ..\QuestDiary\数据文件\全局变量\全局变量.txt
BREAK
#ELSEACT
MESSAGEBOX 你不是本层的地主，无法提取收入状况。\如果支付过程中被别人竞价，你可以小退后即可收到\之前的收入费用。
BREAK

[@提高竞价4]
#IF
CHECKVAR GLOBAL 时间4 > 0
#ACT
MESSAGEBOX 该地图离允许竞价时间还剩<$GLOBAL(时间4)>分钟
BREAK
#ELSEACT
QUERYVAL 1 1 10 @提高竞价A4 加价金额不能低于3000元宝：

[@提高竞价A4]
#IF
SMALL D1 3000
#ACT
MESSAGEBOX 本次加价不能低于3000元宝
BREAK
#IF
LARGE D1 0
#ACT
GAMEGOLD - $STR(D1)
CALCVAR GLOBAL 占领4 + $STR(D1)
SAVEVAR GLOBAL 占领4 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 时间4 = 60
SAVEVAR GLOBAL 时间4 ..\QuestDiary\数据文件\全局变量\全局变量.txt
SENDMSG 0 玩家%s将泰坦魔窟的竞价底额提高至<$GLOBAL(占领4)>元宝，看来本地图的火爆程度非比寻常！
SENDMSG 13 玩家%s将泰坦魔窟的竞价底额提高至<$GLOBAL(占领4)>元宝，看来本地图的火爆程度非比寻常！
SENDMSG 10 玩家%s将泰坦魔窟的竞价底额提高至<$GLOBAL(占领4)>元宝，看来本地图的火爆程度非比寻常！
delay 1 @main
BREAK
#ELSESAY
你所出的价格不足！\
<关闭/@exit>\

[@管理该地5]
#IF
EQUAL $USERNAME $GLOBAL(地主5)
#SAY
\\
　　　　　　　　收入状况： <color=0066FF 精><color=3399FF 品><color=66CC99 版><color=66FFFF 本> <color=FF6600 橘><color=ff9900 子><color=ffcc00 打><color=ffff00 造>\
　　　　　　　　<color=FF0000 ━━><color=FF0033 ━━><color=FF0066 ━━><color=FF0099 ━━><color=FF00cc ━━><color=FF00FF ━━><color=FF33FF ━━><color=FF66FF ━━━><color=FF99FF ━━━><color=FFCCFF ━━━><color=FFFFFF ━━━>\\\
　　　　　　　　尊敬的<$USERNAME>：\\
　　　　　　　　　　<color=21A6FA 竞价底额为：>{color=red <$GLOBAL(占领5)>}元宝\
　　　　　　　　　　<color=21A6FA 今日共收入：>{color=red <$GLOBAL(收入5)>}元宝\
　　　　　　　　　　<color=21A6FA 离提取剩余：>{color=red <$GLOBAL(时间5)>}分钟\\
　　　　　　　　　　<我要领取收入/@领取收入5> → <color=green 竞价后一小时内无法提取收入>\
　　　　　　　　　　<提高竞价底额/@提高竞价5> → <color=green 自己提高封地底额需要双倍价格>\
　　　　　　　　　　{进入地主封地/@进入封地&<$GLOBAL(地主5)>&FENGDI05} → <color=green 每日刷一只必爆高级装备的BOSS>\\\\\
　　　　　　　　　　　　　　　　　　　　<返回/@BACK>\
#ELSEACT
MESSAGEBOX 你不是该地图的管理者！
BREAK

[@领取收入5]
#IF
CHECKVAR GLOBAL 时间5 > 0
#ACT
MESSAGEBOX <$GLOBAL(时间2)>分钟后才可以提取该层收入。
BREAK
#IF
CHECKVAR GLOBAL 收入5 < 1
#act
MESSAGEBOX 今日尚没有任何收入
break
#IF
EQUAL $USERNAME $GLOBAL(地主5)
#ACT
GAMEGOLD + $GLOBAL(收入5)
sendmsg 7 成功支取出<$GLOBAL(收入5)>元宝。
CALCVAR GLOBAL 收入5 = 0
SAVEVAR GLOBAL 收入5 ..\QuestDiary\数据文件\全局变量\全局变量.txt
BREAK
#ELSEACT
MESSAGEBOX 你不是本层的地主，无法提取收入状况。\如果支付过程中被别人竞价，你可以小退后即可收到\之前的收入费用。
BREAK

[@提高竞价5]
#IF
CHECKVAR GLOBAL 时间5 > 0
#ACT
MESSAGEBOX 该地图离允许竞价时间还剩<$GLOBAL(时间5)>分钟
BREAK
#ELSEACT
QUERYVAL 1 1 10 @提高竞价A5 加价金额不能低于3000元宝：

[@提高竞价A5]
#IF
SMALL D1 3000
#ACT
MESSAGEBOX 本次加价不能低于3000元宝
BREAK
#IF
LARGE D1 0
#ACT
GAMEGOLD - $STR(D1)
CALCVAR GLOBAL 占领5 + $STR(D1)
SAVEVAR GLOBAL 占领5 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 时间5 = 60
SAVEVAR GLOBAL 时间5 ..\QuestDiary\数据文件\全局变量\全局变量.txt
SENDMSG 0 玩家%s将修罗玄关的竞价底额提高至<$GLOBAL(占领5)>元宝，看来本地图的火爆程度非比寻常！
SENDMSG 13 玩家%s将修罗玄关的竞价底额提高至<$GLOBAL(占领5)>元宝，看来本地图的火爆程度非比寻常！
SENDMSG 10 玩家%s将修罗玄关的竞价底额提高至<$GLOBAL(占领5)>元宝，看来本地图的火爆程度非比寻常！
delay 1 @main
BREAK
#ELSESAY
你所出的价格不足！\
<关闭/@exit>\

[@管理该地6]
#IF
EQUAL $USERNAME $GLOBAL(地主6)
#SAY
\\
　　　　　　　　收入状况： <color=0066FF 精><color=3399FF 品><color=66CC99 版><color=66FFFF 本> <color=FF6600 橘><color=ff9900 子><color=ffcc00 打

><color=ffff00 造>\
　　　　　　　　<color=FF0000 ━━><color=FF0033 ━━><color=FF0066 ━━><color=FF0099 ━━><color=FF00cc ━━><color=FF00FF ━━><color=FF33FF ━━><color=FF66FF ━━━

><color=FF99FF ━━━><color=FFCCFF ━━━><color=FFFFFF ━━━>\\\
　　　　　　　　尊敬的<$USERNAME>：\\
　　　　　　　　　　<color=21A6FA 竞价底额为：>{color=red <$GLOBAL(占领6)>}元宝\
　　　　　　　　　　<color=21A6FA 今日共收入：>{color=red <$GLOBAL(收入6)>}元宝\
　　　　　　　　　　<color=21A6FA 离提取剩余：>{color=red <$GLOBAL(时间6)>}分钟\\
　　　　　　　　　　<我要领取收入/@领取收入6> → <color=green 竞价后一小时内无法提取收入>\
　　　　　　　　　　<提高竞价底额/@提高竞价6> → <color=green 自己提高封地底额需要双倍价格>\
　　　　　　　　　　{进入地主封地/@进入封地&<$GLOBAL(地主6)>&FENGDI06} → <color=green 每日刷一只必爆高级装备的BOSS>\\\\\
　　　　　　　　　　　　　　　　　　　　<返回/@BACK>\
#ELSEACT
MESSAGEBOX 你不是该地图的管理者！
BREAK

[@领取收入6]
#IF
CHECKVAR GLOBAL 时间6 > 0
#ACT
MESSAGEBOX <$GLOBAL(时间2)>分钟后才可以提取该层收入。
BREAK
#IF
CHECKVAR GLOBAL 收入6 < 1
#act
MESSAGEBOX 今日尚没有任何收入
break
#IF
EQUAL $USERNAME $GLOBAL(地主6)
#ACT
GAMEGOLD + $GLOBAL(收入6)
sendmsg 7 成功支取出<$GLOBAL(收入6)>元宝。
CALCVAR GLOBAL 收入6 = 0
SAVEVAR GLOBAL 收入6 ..\QuestDiary\数据文件\全局变量\全局变量.txt
BREAK
#ELSEACT
MESSAGEBOX 你不是本层的地主，无法提取收入状况。\如果支付过程中被别人竞价，你可以小退后即可收到\之前的收入费用。
BREAK

[@提高竞价6]
#IF
CHECKVAR GLOBAL 时间6 > 0
#ACT
MESSAGEBOX 该地图离允许竞价时间还剩<$GLOBAL(时间6)>分钟
BREAK
#ELSEACT
QUERYVAL 1 1 10 @提高竞价A6 加价金额不能低于3000元宝：

[@提高竞价A6]
#IF
SMALL D1 3000
#ACT
MESSAGEBOX 本次加价不能低于3000元宝
BREAK
#IF
LARGE D1 0
#ACT
GAMEGOLD - $STR(D1)
CALCVAR GLOBAL 占领6 + $STR(D1)
SAVEVAR GLOBAL 占领6 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 时间6 = 60
SAVEVAR GLOBAL 时间6 ..\QuestDiary\数据文件\全局变量\全局变量.txt
SENDMSG 0 玩家%s将万劫之城的竞价底额提高至<$GLOBAL(占领6)>元宝，看来本地图的火爆程度非比寻常！
SENDMSG 13 玩家%s将万劫之城的竞价底额提高至<$GLOBAL(占领6)>元宝，看来本地图的火爆程度非比寻常！
SENDMSG 10 玩家%s将万劫之城的竞价底额提高至<$GLOBAL(占领6)>元宝，看来本地图的火爆程度非比寻常！
delay 1 @main
BREAK
#ELSESAY
你所出的价格不足！\
<关闭/@exit>\

[@管理该地7]
#IF
EQUAL $USERNAME $GLOBAL(地主7)
#SAY
\\
　　　　　　　　收入状况： <color=0066FF 精><color=3399FF 品><color=66CC99 版><color=66FFFF 本> <color=FF6600 橘><color=ff9900 子><color=ffcc00 打

><color=FF99FF ━━━><color=FFCCFF ━━━><color=FFFFFF ━━━>\\\
　　　　　　　　尊敬的<$USERNAME>：\\
　　　　　　　　　　<color=21A6FA 竞价底额为：>{color=red <$GLOBAL(占领7)>}元宝\
　　　　　　　　　　<color=21A6FA 今日共收入：>{color=red <$GLOBAL(收入7)>}元宝\
　　　　　　　　　　<color=21A6FA 离提取剩余：>{color=red <$GLOBAL(时间7)>}分钟\\
　　　　　　　　　　<我要领取收入/@领取收入7> → <color=green 竞价后一小时内无法提取收入>\
　　　　　　　　　　<提高竞价底额/@提高竞价7> → <color=green 自己提高封地底额需要双倍价格>\
　　　　　　　　　　{进入地主封地/@进入封地&<$GLOBAL(地主7)>&FENGDI07} → <color=green 每日刷一只必爆高级装备的BOSS>\\\\\
　　　　　　　　　　　　　　　　　　　　<返回/@BACK>\
#ELSEACT
MESSAGEBOX 你不是该地图的管理者！
BREAK

[@领取收入7]
#IF
CHECKVAR GLOBAL 时间7 > 0
#ACT
MESSAGEBOX <$GLOBAL(时间2)>分钟后才可以提取该层收入。
BREAK
#IF
CHECKVAR GLOBAL 收入7 < 1
#act
MESSAGEBOX 今日尚没有任何收入
break
#IF
EQUAL $USERNAME $GLOBAL(地主7)
#ACT
GAMEGOLD + $GLOBAL(收入7)
sendmsg 7 成功支取出<$GLOBAL(收入7)>元宝。
CALCVAR GLOBAL 收入7 = 0
SAVEVAR GLOBAL 收入7 ..\QuestDiary\数据文件\全局变量\全局变量.txt
BREAK
#ELSEACT
MESSAGEBOX 你不是本层的地主，无法提取收入状况。\如果支付过程中被别人竞价，你可以小退后即可收到\之前的收入费用。
BREAK

[@提高竞价7]
#IF
CHECKVAR GLOBAL 时间7 > 0
#ACT
MESSAGEBOX 该地图离允许竞价时间还剩<$GLOBAL(时间7)>分钟
BREAK
#ELSEACT
QUERYVAL 1 1 10 @提高竞价A7 加价金额不能低于3000元宝：

[@提高竞价A7]
#IF
SMALL D1 3000
#ACT
MESSAGEBOX 本次加价不能低于3000元宝
BREAK
#IF
LARGE D1 0
#ACT
GAMEGOLD - $STR(D1)
CALCVAR GLOBAL 占领7 + $STR(D1)
SAVEVAR GLOBAL 占领7 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 时间7 = 60
SAVEVAR GLOBAL 时间7 ..\QuestDiary\数据文件\全局变量\全局变量.txt
SENDMSG 0 玩家%s将天使之潭的竞价底额提高至<$GLOBAL(占领7)>元宝，看来本地图的火爆程度非比寻常！
SENDMSG 13 玩家%s将天使之潭的竞价底额提高至<$GLOBAL(占领7)>元宝，看来本地图的火爆程度非比寻常！
SENDMSG 10 玩家%s将天使之潭的竞价底额提高至<$GLOBAL(占领7)>元宝，看来本地图的火爆程度非比寻常！
delay 1 @main
BREAK
#ELSESAY
你所出的价格不足！\
<关闭/@exit>\

[@管理该地8]
#IF
EQUAL $USERNAME $GLOBAL(地主8)
#SAY
\\
　　　　　　　　收入状况： <color=0066FF 精><color=3399FF 品><color=66CC99 版><color=66FFFF 本> <color=FF6600 橘><color=ff9900 子><color=ffcc00 打

><color=FF99FF ━━━><color=FFCCFF ━━━><color=FFFFFF ━━━>\\\
　　　　　　　　尊敬的<$USERNAME>：\\
　　　　　　　　　　<color=21A6FA 竞价底额为：>{color=red <$GLOBAL(占领8)>}元宝\
　　　　　　　　　　<color=21A6FA 今日共收入：>{color=red <$GLOBAL(收入8)>}元宝\
　　　　　　　　　　<color=21A6FA 离提取剩余：>{color=red <$GLOBAL(时间8)>}分钟\\
　　　　　　　　　　<我要领取收入/@领取收入8> → <color=green 竞价后一小时内无法提取收入>\
　　　　　　　　　　<提高竞价底额/@提高竞价8> → <color=green 自己提高封地底额需要双倍价格>\
　　　　　　　　　　{进入地主封地/@进入封地&<$GLOBAL(地主8)>&FENGDI08} → <color=green 每日刷一只必爆高级装备的BOSS>\\\\\
　　　　　　　　　　　　　　　　　　　　<返回/@BACK>\
#ELSEACT
MESSAGEBOX 你不是该地图的管理者！
BREAK

[@领取收入8]
#IF
CHECKVAR GLOBAL 时间8 > 0
#ACT
MESSAGEBOX <$GLOBAL(时间2)>分钟后才可以提取该层收入。
BREAK
#IF
CHECKVAR GLOBAL 收入8 < 1
#act
MESSAGEBOX 今日尚没有任何收入
break
#IF
EQUAL $USERNAME $GLOBAL(地主8)
#ACT
GAMEGOLD + $GLOBAL(收入8)
sendmsg 7 成功支取出<$GLOBAL(收入8)>元宝。
CALCVAR GLOBAL 收入8 = 0
SAVEVAR GLOBAL 收入8 ..\QuestDiary\数据文件\全局变量\全局变量.txt
BREAK
#ELSEACT
MESSAGEBOX 你不是本层的地主，无法提取收入状况。\如果支付过程中被别人竞价，你可以小退后即可收到\之前的收入费用。
BREAK

[@提高竞价8]
#IF
CHECKVAR GLOBAL 时间8 > 0
#ACT
MESSAGEBOX 该地图离允许竞价时间还剩<$GLOBAL(时间8)>分钟
BREAK
#ELSEACT
QUERYVAL 1 1 10 @提高竞价A8 加价金额不能低于3000元宝：

[@提高竞价A8]
#IF
SMALL D1 3000
#ACT
MESSAGEBOX 本次加价不能低于3000元宝
BREAK
#IF
LARGE D1 0
#ACT
GAMEGOLD - $STR(D1)
CALCVAR GLOBAL 占领8 + $STR(D1)
SAVEVAR GLOBAL 占领8 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 时间8 = 60
SAVEVAR GLOBAL 时间8 ..\QuestDiary\数据文件\全局变量\全局变量.txt
SENDMSG 0 玩家%s将青宵天界的竞价底额提高至<$GLOBAL(占领8)>元宝，看来本地图的火爆程度非比寻常！
SENDMSG 13 玩家%s将青宵天界的竞价底额提高至<$GLOBAL(占领8)>元宝，看来本地图的火爆程度非比寻常！
SENDMSG 10 玩家%s将青宵天界的竞价底额提高至<$GLOBAL(占领8)>元宝，看来本地图的火爆程度非比寻常！
delay 1 @main
BREAK
#ELSESAY
你所出的价格不足！\
<关闭/@exit>\

[@进入封地]
#IF
EQUAL $USERNAME $PARAM(50)
#ACT
MAP $PARAM(51)
SENDMSG 7 进入领主封地，这里一天刷一只BOSS，打死后百分百必爆一件高级装备！
BREAK

[@竞价该地1]
#IF
CHECKVAR GLOBAL 时间1 > 0
#ACT
MESSAGEBOX 该地图离允许竞价时间还剩<$GLOBAL(时间1)>分钟
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\地主名单.txt
#ACT
MESSAGEBOX 你已经是地主，不能同时占有多层
BREAK
#IF
CHECKGAMEGOLD < $GLOBAL(占领1)
#ACT
MESSAGEBOX 你身上的元宝不足以争夺该地盘
BREAK
#ELSEACT
QUERYVAL 1 1 10 @竞价元宝1 金额数量必须大于<$GLOBAL(占领1)>元宝，出价不能低于1000元宝：

[@竞价元宝1]
#IF
CHECKGAMEGOLD < $STR(D1)
#ACT
MESSAGEBOX 你身上没有这么多元宝
BREAK
#IF
JPOSE $STR(D1) $GLOBAL(占领1) < 1000
#ACT
MESSAGEBOX 每次竞价不能低于1000元宝
BREAK
#IF
LARGE D1 0
LARGE D1 $GLOBAL(占领1)
#ACT
GAMEGOLD - $STR(D1)
DELVARLIST $GLOBAL(地主1) ..\QuestDiary\数据文件\地主名单.txt
MOV S51 $GLOBAL(地主1)
INC S51 |
INC S51 $GLOBAL(收入1)
ADDVARLIST $STR(S51) ..\QuestDiary\数据文件\竞价余额.txt
ADDNAMELIST ..\QuestDiary\数据文件\地主名单.txt
CALCVAR GLOBAL 地主1 = $USERNAME
SAVEVAR GLOBAL 地主1 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 占领1 = $STR(D1)
SAVEVAR GLOBAL 占领1 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 时间1 = 60
SAVEVAR GLOBAL 时间1 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 收入1 = 0
SAVEVAR GLOBAL 收入1 ..\QuestDiary\数据文件\全局变量\全局变量.txt
SENDMSG 0 玩家%s以<$STR(D1)>元宝的价格成为尸魔之地---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
SENDMSG 13 玩家%s以<$STR(D1)>元宝的价格成为尸魔之地---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
SENDMSG 10 玩家%s以<$STR(D1)>元宝的价格成为尸魔之地---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
delay 1 @main
BREAK
#ELSESAY
你所出的价格不足！\
当前该层竞价金额为<$GLOBAL(占领1)>元宝.\
<关闭/@exit>\

[@竞价该地2]
#IF
CHECKVAR GLOBAL 时间2 > 0
#ACT
MESSAGEBOX 该地图离允许竞价时间还剩<$GLOBAL(时间2)>分钟
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\地主名单.txt
#ACT
MESSAGEBOX 你已经是地主，不能同时占有多层
BREAK
#IF
CHECKGAMEGOLD < $GLOBAL(占领2)
#ACT
MESSAGEBOX 你身上的元宝不足以争夺该地盘
BREAK
#ELSEACT
QUERYVAL 1 1 10 @竞价元宝2 金额数量必须大于<$GLOBAL(占领2)>元宝，出价不能低于1000元宝：

[@竞价元宝2]
#IF
CHECKGAMEGOLD < $STR(D1)
#ACT
MESSAGEBOX 你身上没有这么多元宝
BREAK
#IF
JPOSE $STR(D1) $GLOBAL(占领2) < 1000
#ACT
MESSAGEBOX 每次竞价不能低于1000元宝
BREAK
#IF
LARGE D1 0
LARGE D1 $GLOBAL(占领2)
#ACT
GAMEGOLD - $STR(D1)
DELVARLIST $GLOBAL(地主2) ..\QuestDiary\数据文件\地主名单.txt
MOV S51 $GLOBAL(地主2)
INC S51 |
INC S51 $GLOBAL(收入2)
ADDVARLIST $STR(S51) ..\QuestDiary\数据文件\竞价余额.txt
ADDNAMELIST ..\QuestDiary\数据文件\地主名单.txt
CALCVAR GLOBAL 地主2 = $USERNAME
SAVEVAR GLOBAL 地主2 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 占领2 = $STR(D1)
SAVEVAR GLOBAL 占领2 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 时间2 = 60
SAVEVAR GLOBAL 时间2 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 收入2 = 0
SAVEVAR GLOBAL 收入2 ..\QuestDiary\数据文件\全局变量\全局变量.txt
SENDMSG 0 玩家%s以<$STR(D1)>元宝的价格成为轮回峡谷---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
SENDMSG 13 玩家%s以<$STR(D1)>元宝的价格成为轮回峡谷---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
SENDMSG 10 玩家%s以<$STR(D1)>元宝的价格成为轮回峡谷---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
delay 1 @main
BREAK
#ELSESAY
你所出的价格不足！\
当前该层竞价金额为<$GLOBAL(占领2)>元宝.\
<关闭/@exit>\

[@竞价该地3]
#IF
CHECKVAR GLOBAL 时间3 > 0
#ACT
MESSAGEBOX 该地图离允许竞价时间还剩<$GLOBAL(时间3)>分钟
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\地主名单.txt
#ACT
MESSAGEBOX 你已经是地主，不能同时占有多层
BREAK
#IF
CHECKGAMEGOLD < $GLOBAL(占领3)
#ACT
MESSAGEBOX 你身上的元宝不足以争夺该地盘
BREAK
#ELSEACT
QUERYVAL 1 1 10 @竞价元宝3 金额数量必须大于<$GLOBAL(占领3)>元宝，出价不能低于1000元宝：

[@竞价元宝3]
#IF
CHECKGAMEGOLD < $STR(D1)
#ACT
MESSAGEBOX 你身上没有这么多元宝
BREAK
#IF
JPOSE $STR(D1) $GLOBAL(占领3) < 1000
#ACT
MESSAGEBOX 每次竞价不能低于1000元宝
BREAK
#IF
LARGE D1 0
LARGE D1 $GLOBAL(占领3)
#ACT
GAMEGOLD - $STR(D1)
DELVARLIST $GLOBAL(地主3) ..\QuestDiary\数据文件\地主名单.txt
MOV S51 $GLOBAL(地主3)
INC S51 |
inc S51 $GLOBAL(收入3)
ADDVARLIST $STR(S51) ..\QuestDiary\数据文件\竞价余额.txt
ADDNAMELIST ..\QuestDiary\数据文件\地主名单.txt
CALCVAR GLOBAL 地主3 = $USERNAME
SAVEVAR GLOBAL 地主3 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 占领3 = $STR(D1)
SAVEVAR GLOBAL 占领3 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 时间3 = 60
SAVEVAR GLOBAL 时间3 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 收入3 = 0
SAVEVAR GLOBAL 收入3 ..\QuestDiary\数据文件\全局变量\全局变量.txt
SENDMSG 0 玩家%s以<$STR(D1)>元宝的价格成为涅槃巢穴---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
SENDMSG 13 玩家%s以<$STR(D1)>元宝的价格成为涅槃巢穴---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
SENDMSG 10 玩家%s以<$STR(D1)>元宝的价格成为涅槃巢穴---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
delay 1 @main
BREAK
#ELSESAY
你所出的价格不足！\
当前该层竞价金额为<$GLOBAL(占领3)>元宝.\
<关闭/@exit>\

[@竞价该地4]
#IF
CHECKVAR GLOBAL 时间4 > 0
#ACT
MESSAGEBOX 该地图离允许竞价时间还剩<$GLOBAL(时间4)>分钟
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\地主名单.txt
#ACT
MESSAGEBOX 你已经是地主，不能同时占有多层
BREAK
#IF
CHECKGAMEGOLD < $GLOBAL(占领4)
#ACT
MESSAGEBOX 你身上的元宝不足以争夺该地盘
BREAK
#ELSEACT
QUERYVAL 1 1 10 @竞价元宝4 金额数量必须大于<$GLOBAL(占领4)>元宝，出价不能低于1000元宝：

[@竞价元宝4]
#IF
CHECKGAMEGOLD < $STR(D1)
#ACT
MESSAGEBOX 你身上没有这么多元宝
BREAK
#IF
JPOSE $STR(D1) $GLOBAL(占领4) < 1000
#ACT
MESSAGEBOX 每次竞价不能低于1000元宝
BREAK
#IF
LARGE D1 0
LARGE D1 $GLOBAL(占领4)
#ACT
GAMEGOLD - $STR(D1)
DELVARLIST $GLOBAL(地主4) ..\QuestDiary\数据文件\地主名单.txt
MOV S51 $GLOBAL(地主4)
INC S51 |
INC S51 $GLOBAL(收入4)
ADDVARLIST $STR(S51) ..\QuestDiary\数据文件\竞价余额.txt
ADDNAMELIST ..\QuestDiary\数据文件\地主名单.txt
CALCVAR GLOBAL 地主4 = $USERNAME
SAVEVAR GLOBAL 地主4 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 占领4 = $STR(D1)
SAVEVAR GLOBAL 占领4 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 时间4 = 60
SAVEVAR GLOBAL 时间4 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 收入4 = 0
SAVEVAR GLOBAL 收入4 ..\QuestDiary\数据文件\全局变量\全局变量.txt
SENDMSG 0 玩家%s以<$STR(D1)>元宝的价格成为泰坦魔窟---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
SENDMSG 13 玩家%s以<$STR(D1)>元宝的价格成为泰坦魔窟---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
SENDMSG 10 玩家%s以<$STR(D1)>元宝的价格成为泰坦魔窟--新一届的地主！一个小时后，其他玩家可以重新竞价该地图
delay 1 @main
BREAK
#ELSESAY
你所出的价格不足！\
当前该层竞价金额为<$GLOBAL(占领4)>元宝.\
<关闭/@exit>\

[@竞价该地5]
#IF
CHECKVAR GLOBAL 时间5 > 0
#ACT
MESSAGEBOX 该地图离允许竞价时间还剩<$GLOBAL(时间5)>分钟
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\地主名单.txt
#ACT
MESSAGEBOX 你已经是地主，不能同时占有多层
BREAK
#IF
CHECKGAMEGOLD < $GLOBAL(占领5)
#ACT
MESSAGEBOX 你身上的元宝不足以争夺该地盘
BREAK
#ELSEACT
QUERYVAL 1 1 10 @竞价元宝5 金额数量必须大于<$GLOBAL(占领5)>元宝，出价不能低于1000元宝：

[@竞价元宝5]
#IF
CHECKGAMEGOLD < $STR(D1)
#ACT
MESSAGEBOX 你身上没有这么多元宝
BREAK
#IF
JPOSE $STR(D1) $GLOBAL(占领5) < 1000
#ACT
MESSAGEBOX 每次竞价不能低于1000元宝
BREAK
#IF
LARGE D1 0
LARGE D1 $GLOBAL(占领5)
#ACT
GAMEGOLD - $STR(D1)
DELVARLIST $GLOBAL(地主5) ..\QuestDiary\数据文件\地主名单.txt
MOV S51 $GLOBAL(地主5)
INC S51 |
INC S51 $GLOBAL(收入5)
ADDVARLIST $STR(S51) ..\QuestDiary\数据文件\竞价余额.txt
ADDNAMELIST ..\QuestDiary\数据文件\地主名单.txt
CALCVAR GLOBAL 地主5 = $USERNAME
SAVEVAR GLOBAL 地主5 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 占领5 = $STR(D1)
SAVEVAR GLOBAL 占领5 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 时间5 = 60
SAVEVAR GLOBAL 时间5 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 收入5 = 0
SAVEVAR GLOBAL 收入5 ..\QuestDiary\数据文件\全局变量\全局变量.txt
SENDMSG 0 玩家%s以<$STR(D1)>元宝的价格成为修罗玄关---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
SENDMSG 13 玩家%s以<$STR(D1)>元宝的价格成为修罗玄关---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
SENDMSG 10 玩家%s以<$STR(D1)>元宝的价格成为修罗玄关--新一届的地主！一个小时后，其他玩家可以重新竞价该地图
delay 1 @main
BREAK
#ELSESAY
你所出的价格不足！\
当前该层竞价金额为<$GLOBAL(占领5)>元宝.\
<关闭/@exit>\

[@竞价该地6]
#IF
CHECKVAR GLOBAL 时间6 > 0
#ACT
MESSAGEBOX 该地图离允许竞价时间还剩<$GLOBAL(时间6)>分钟
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\地主名单.txt
#ACT
MESSAGEBOX 你已经是地主，不能同时占有多层
BREAK
#IF
CHECKGAMEGOLD < $GLOBAL(占领6)
#ACT
MESSAGEBOX 你身上的元宝不足以争夺该地盘
BREAK
#ELSEACT
QUERYVAL 1 1 10 @竞价元宝6 金额数量必须大于<$GLOBAL(占领6)>元宝，出价不能低于1000元宝：

[@竞价元宝6]
#IF
CHECKGAMEGOLD < $STR(D1)
#ACT
MESSAGEBOX 你身上没有这么多元宝
BREAK
#IF
JPOSE $STR(D1) $GLOBAL(占领6) < 1000
#ACT
MESSAGEBOX 每次竞价不能低于1000元宝
BREAK
#IF
LARGE D1 0
LARGE D1 $GLOBAL(占领6)
#ACT
GAMEGOLD - $STR(D1)
DELVARLIST $GLOBAL(地主6) ..\QuestDiary\数据文件\地主名单.txt
MOV S51 $GLOBAL(地主6)
INC S51 |
INC S51 $GLOBAL(收入6)
ADDVARLIST $STR(S51) ..\QuestDiary\数据文件\竞价余额.txt
ADDNAMELIST ..\QuestDiary\数据文件\地主名单.txt
CALCVAR GLOBAL 地主6 = $USERNAME
SAVEVAR GLOBAL 地主6 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 占领6 = $STR(D1)
SAVEVAR GLOBAL 占领6 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 时间6 = 60
SAVEVAR GLOBAL 时间6 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 收入6 = 0
SAVEVAR GLOBAL 收入6 ..\QuestDiary\数据文件\全局变量\全局变量.txt
SENDMSG 0 玩家%s以<$STR(D1)>元宝的价格成为万劫之城---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
SENDMSG 13 玩家%s以<$STR(D1)>元宝的价格成为万劫之城---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
SENDMSG 10 玩家%s以<$STR(D1)>元宝的价格成为万劫之城---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
delay 1 @main
BREAK
#ELSESAY
你所出的价格不足！\
当前该层竞价金额为<$GLOBAL(占领6)>元宝.\
<关闭/@exit>\

[@竞价该地7]
#IF
CHECKVAR GLOBAL 时间7 > 0
#ACT
MESSAGEBOX 该地图离允许竞价时间还剩<$GLOBAL(时间7)>分钟
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\地主名单.txt
#ACT
MESSAGEBOX 你已经是地主，不能同时占有多层
BREAK
#IF
CHECKGAMEGOLD < $GLOBAL(占领7)
#ACT
MESSAGEBOX 你身上的元宝不足以争夺该地盘
BREAK
#ELSEACT
QUERYVAL 1 1 10 @竞价元宝7 金额数量必须大于<$GLOBAL(占领7)>元宝，出价不能低于1000元宝：

[@竞价元宝7]
#IF
CHECKGAMEGOLD < $STR(D1)
#ACT
MESSAGEBOX 你身上没有这么多元宝
BREAK
#IF
JPOSE $STR(D1) $GLOBAL(占领7) < 1000
#ACT
MESSAGEBOX 每次竞价不能低于1000元宝
BREAK
#IF
LARGE D1 0
LARGE D1 $GLOBAL(占领7)
#ACT
GAMEGOLD - $STR(D1)
DELVARLIST $GLOBAL(地主7) ..\QuestDiary\数据文件\地主名单.txt
MOV S51 $GLOBAL(地主7)
INC S51 |
INC S51 $GLOBAL(收入7)
ADDVARLIST $STR(S51) ..\QuestDiary\数据文件\竞价余额.txt
ADDNAMELIST ..\QuestDiary\数据文件\地主名单.txt
CALCVAR GLOBAL 地主7 = $USERNAME
SAVEVAR GLOBAL 地主7 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 占领7 = $STR(D1)
SAVEVAR GLOBAL 占领7 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 时间7 = 60
SAVEVAR GLOBAL 时间7 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 收入7 = 0
SAVEVAR GLOBAL 收入7 ..\QuestDiary\数据文件\全局变量\全局变量.txt
SENDMSG 0 玩家%s以<$STR(D1)>元宝的价格成为天使之潭---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
SENDMSG 13 玩家%s以<$STR(D1)>元宝的价格成为天使之潭---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
SENDMSG 10 玩家%s以<$STR(D1)>元宝的价格成为天使之潭---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
delay 1 @main
BREAK
#ELSESAY
你所出的价格不足！\
当前该层竞价金额为<$GLOBAL(占领7)>元宝.\
<关闭/@exit>\

[@竞价该地8]
#IF
CHECKVAR GLOBAL 时间8 > 0
#ACT
MESSAGEBOX 该地图离允许竞价时间还剩<$GLOBAL(时间8)>分钟
BREAK
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\地主名单.txt
#ACT
MESSAGEBOX 你已经是地主，不能同时占有多层
BREAK
#IF
CHECKGAMEGOLD < $GLOBAL(占领8)
#ACT
MESSAGEBOX 你身上的元宝不足以争夺该地盘
BREAK
#ELSEACT
QUERYVAL 1 1 10 @竞价元宝8 金额数量必须大于<$GLOBAL(占领8)>元宝，出价不能低于1000元宝：

[@竞价元宝8]
#IF
CHECKGAMEGOLD < $STR(D1)
#ACT
MESSAGEBOX 你身上没有这么多元宝
BREAK
#IF
JPOSE $STR(D1) $GLOBAL(占领8) < 1000
#ACT
MESSAGEBOX 每次竞价不能低于1000元宝
BREAK
#IF
LARGE D1 0
LARGE D1 $GLOBAL(占领8)
#ACT
GAMEGOLD - $STR(D1)
DELVARLIST $GLOBAL(地主8) ..\QuestDiary\数据文件\地主名单.txt
MOV S51 $GLOBAL(地主8)
INC S51 |
INC S51 $GLOBAL(收入8)
ADDVARLIST $STR(S51) ..\QuestDiary\数据文件\竞价余额.txt
ADDNAMELIST ..\QuestDiary\数据文件\地主名单.txt
CALCVAR GLOBAL 地主8 = $USERNAME
SAVEVAR GLOBAL 地主8 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 占领8 = $STR(D1)
SAVEVAR GLOBAL 占领8 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 时间8 = 60
SAVEVAR GLOBAL 时间8 ..\QuestDiary\数据文件\全局变量\全局变量.txt
CALCVAR GLOBAL 收入8 = 0
SAVEVAR GLOBAL 收入8 ..\QuestDiary\数据文件\全局变量\全局变量.txt
SENDMSG 0 玩家%s以<$STR(D1)>元宝的价格成为青宵天界---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
SENDMSG 13 玩家%s以<$STR(D1)>元宝的价格成为青宵天界---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
SENDMSG 10 玩家%s以<$STR(D1)>元宝的价格成为青宵天界---新一届的地主！一个小时后，其他玩家可以重新竞价该地图
delay 1 @main
BREAK
#ELSESAY
你所出的价格不足！\
当前该层竞价金额为<$GLOBAL(占领8)>元宝.\
<关闭/@exit>\
}