传奇开区一条龙常用的沙城带捐献功能脚本明文版司徒游

admin

[@main]　　#if
　　CheckContainsText  测试
　　#act
　　MESSAGEBOX 测试区不支持此功能!!!
　　break
　　#IF
　　checklevelex > 0
　　#say
　　\ \
　　          \
　　  \
　　  \
　　              \
　　  \
　　              \
　　   \
　　   \
　　   \
　　                  
　　;      
　　#ACT
　　OPENMERCHANTBIGDLG 15 2225 1 4 10 -100 1 446 0
　　GetListString ..\..\..\..\通区捐献\\当前01区.txt 0 S$当前一区 S$捐献金额0
　　GetListString ..\..\..\..\通区捐献\\当前02区.txt 0 S$当前二区 S$捐献金额1
　　GetListString ..\..\..\..\通区捐献\\当前03区.txt 0 S$当前三区 S$捐献金额2
　　GetListString ..\..\..\..\通区捐献\\当前04区.txt 0 S$当前四区 S$捐献金额3
　　GetListString ..\..\..\..\通区捐献\\当前05区.txt 0 S$当前五区 S$捐献金额4
　　GetListString ..\..\..\..\通区捐献\\当前06区.txt 0 S$当前六区 S$捐献金额5
　　GetListString ..\..\..\..\通区捐献\\当前战区.txt 0 S$当前战区 S$捐献金额6
　　GetListString ..\..\..\..\通区捐献\\当前合区.txt 0 S$当前合区 S$捐献金额7
　　MOV N$总金额 0
　　INC N$总金额
　　INC N$总金额
　　INC N$总金额
　　INC N$总金额
　　INC N$总金额
　　INC N$总金额
　　INC N$总金额
　　INC N$总金额
　　;DIV N$显示总金额  10
　　;MUL N$显示总金额 7
　　MOV N$显示总金额
　　SetStringBlank S$捐献金额0 15 1
　　SetStringBlank S$捐献金额1 15 1
　　SetStringBlank S$捐献金额2 15 1
　　SetStringBlank S$捐献金额3 15 1
　　SetStringBlank S$捐献金额4 15 1
　　SetStringBlank S$捐献金额5 15 1
　　SetStringBlank S$捐献金额6 15 1
　　SetStringBlank S$捐献金额7 15 1
　　break
　　[@首次沙城捐献]
　　#IF
　　CHECKGAMEPOINT < 300000
　　#ACT
　　MESSAGEBOX 你的RMB点不够！
　　break
　　#if
　　NOT CHECKGAMEPOINT < 300000
　　#ACT
　　MESSAGEBOX 你确定要花30万RMB点开首次沙城捐献吗?\　\可以直接60万RMB点开永久捐献！！！！ @开个临时 @exit
　　break
　　[@开个临时]
　　#IF
　　LARGE U39 0
　　#ACT
　　MESSAGEBOX 请点击永久捐献!!!!!
　　break
　　#IF
　　CHECKGAMEPOINT < 300000
　　#ACT
　　MESSAGEBOX 你的RMB点不够！
　　break
　　#IF
　　EQUAL U39 0
　　CheckContainsText  号区
　　CHECKGAMEPOINT > 299999
　　#ACT
　　GAMEPOINT - 300000
　　INC G211 150000
　　INC G212 60000
　　INC U39 1
　　#CALL [\登陆\属性给予.TXT] @人物属性
　　#CALL [\登陆\属性给予.TXT] @切割计算
　　#CALL [\登陆\属性给予.TXT] @吸血计算
　　#CALL [\登陆\属性给予.TXT] @爆率计算
　　;#CALL [\登陆\属性给予.TXT] @经验计算
　　AddTextListEx ..\QuestDiary\临时数据\沙捐临时记录.txt
　　CLEARNAMELIST ..\..\..\..\通区捐献\\当前合区.txt
　　AddTextListEx ..\..\..\..\通区捐献\\当前合区.txt 当前合区: 0
　　AddTextListEx ..\..\..\..\通区捐献\\捐献数据.txt  0
　　GOTO @红包雨计算
　　break
　　#IF
　　EQUAL U39 0
　　CheckContainsText  01区
　　CHECKGAMEPOINT > 299999
　　#ACT
　　GAMEPOINT - 300000
　　INC G211 150000
　　INC G212 60000
　　INC U39 1
　　#CALL [\登陆\属性给予.TXT] @人物属性
　　#CALL [\登陆\属性给予.TXT] @切割计算
　　#CALL [\登陆\属性给予.TXT] @吸血计算
　　#CALL [\登陆\属性给予.TXT] @爆率计算
　　;#CALL [\登陆\属性给予.TXT] @经验计算
　　AddTextListEx ..\QuestDiary\临时数据\沙捐临时记录.txt
　　CLEARNAMELIST ..\..\..\..\通区捐献\\当前01区.txt
　　AddTextListEx ..\..\..\..\通区捐献\\当前01区.txt 当前一区: 0
　　AddTextListEx ..\..\..\..\通区捐献\\捐献数据.txt  0
　　GOTO @红包雨计算
　　break
　　#IF
　　EQUAL U39 0
　　CheckContainsText  02区
　　CHECKGAMEPOINT > 299999
　　#ACT
　　GAMEPOINT - 300000
　　INC G211 150000
　　INC G212 60000
　　INC U39 1
　　#CALL [\登陆\属性给予.TXT] @人物属性
　　#CALL [\登陆\属性给予.TXT] @切割计算
　　#CALL [\登陆\属性给予.TXT] @吸血计算
　　#CALL [\登陆\属性给予.TXT] @爆率计算
　　;#CALL [\登陆\属性给予.TXT] @经验计算
　　AddTextListEx ..\QuestDiary\临时数据\沙捐临时记录.txt
　　CLEARNAMELIST ..\..\..\..\通区捐献\\当前02区.txt
　　AddTextListEx ..\..\..\..\通区捐献\\当前02区.txt 当前二区: 0
　　AddTextListEx ..\..\..\..\通区捐献\\捐献数据.txt  0
　　GOTO @红包雨计算
　　break
　　#IF
　　EQUAL U39 0
　　CheckContainsText  03区
　　CHECKGAMEPOINT > 299999
　　#ACT
　　GAMEPOINT - 300000
　　INC G211 150000
　　INC G212 60000
　　INC U39 1
　　#CALL [\登陆\属性给予.TXT] @人物属性
　　#CALL [\登陆\属性给予.TXT] @切割计算
　　#CALL [\登陆\属性给予.TXT] @吸血计算
　　#CALL [\登陆\属性给予.TXT] @爆率计算
　　;#CALL [\登陆\属性给予.TXT] @经验计算
　　AddTextListEx ..\QuestDiary\临时数据\沙捐临时记录.txt
　　CLEARNAMELIST ..\..\..\..\通区捐献\\当前03区.txt
　　AddTextListEx ..\..\..\..\通区捐献\\当前03区.txt 当前三区: 0
　　AddTextListEx ..\..\..\..\通区捐献\\捐献数据.txt  0
　　GOTO @红包雨计算
　　break
　　#IF
　　EQUAL U39 0
　　CheckContainsText  04区
　　CHECKGAMEPOINT > 299999
　　#ACT
　　GAMEPOINT - 300000
　　INC G211 150000
　　INC G212 60000
　　INC U39 1
　　#CALL [\登陆\属性给予.TXT] @人物属性
　　#CALL [\登陆\属性给予.TXT] @切割计算
　　#CALL [\登陆\属性给予.TXT] @吸血计算
　　#CALL [\登陆\属性给予.TXT] @爆率计算
　　;#CALL [\登陆\属性给予.TXT] @经验计算
　　AddTextListEx ..\QuestDiary\临时数据\沙捐临时记录.txt
　　CLEARNAMELIST ..\..\..\..\通区捐献\\当前04区.txt
　　AddTextListEx ..\..\..\..\通区捐献\\当前04区.txt 当前四区: 0
　　AddTextListEx ..\..\..\..\通区捐献\\捐献数据.txt  0
　　GOTO @红包雨计算
　　break
　　#IF
　　EQUAL U39 0
　　CheckContainsText  05区
　　CHECKGAMEPOINT > 299999
　　#ACT
　　GAMEPOINT - 300000
　　INC G211 150000
　　INC G212 60000
　　INC U39 1
　　#CALL [\登陆\属性给予.TXT] @人物属性
　　#CALL [\登陆\属性给予.TXT] @切割计算
　　#CALL [\登陆\属性给予.TXT] @吸血计算
　　#CALL [\登陆\属性给予.TXT] @爆率计算
　　;#CALL [\登陆\属性给予.TXT] @经验计算
　　AddTextListEx ..\QuestDiary\临时数据\沙捐临时记录.txt
　　CLEARNAMELIST ..\..\..\..\通区捐献\\当前05区.txt
　　AddTextListEx ..\..\..\..\通区捐献\\当前05区.txt 当前五区: 0
　　AddTextListEx ..\..\..\..\通区捐献\\捐献数据.txt  0
　　GOTO @红包雨计算
　　break
　　#IF
　　EQUAL U39 0
　　CheckContainsText  06区
　　CHECKGAMEPOINT > 299999
　　#ACT
　　GAMEPOINT - 300000
　　INC G211 150000
　　INC G212 60000
　　INC U39 1
　　#CALL [\登陆\属性给予.TXT] @人物属性
　　#CALL [\登陆\属性给予.TXT] @切割计算
　　#CALL [\登陆\属性给予.TXT] @吸血计算
　　#CALL [\登陆\属性给予.TXT] @爆率计算
　　;#CALL [\登陆\属性给予.TXT] @经验计算
　　AddTextListEx ..\QuestDiary\临时数据\沙捐临时记录.txt
　　CLEARNAMELIST ..\..\..\..\通区捐献\\当前06区.txt
　　AddTextListEx ..\..\..\..\通区捐献\\当前06区.txt 当前六区: 0
　　AddTextListEx ..\..\..\..\通区捐献\\捐献数据.txt  0
　　GOTO @红包雨计算
　　break
　　#IF
　　EQUAL U39 0
　　CheckContainsText  战区
　　CHECKGAMEPOINT > 299999
　　#ACT
　　GAMEPOINT - 300000
　　INC G211 150000
　　INC G212 60000
　　INC U39 1
　　#CALL [\登陆\属性给予.TXT] @人物属性
　　#CALL [\登陆\属性给予.TXT] @切割计算
　　#CALL [\登陆\属性给予.TXT] @吸血计算
　　#CALL [\登陆\属性给予.TXT] @爆率计算
　　;#CALL [\登陆\属性给予.TXT] @经验计算
　　AddTextListEx ..\QuestDiary\临时数据\沙捐临时记录.txt
　　CLEARNAMELIST ..\..\..\..\通区捐献\\当前战区.txt
　　AddTextListEx ..\..\..\..\通区捐献\\当前战区.txt 当前战区: 0
　　AddTextListEx ..\..\..\..\通区捐献\\捐献数据.txt  0
　　GOTO @红包雨计算
　　break
　　[@永久沙城捐献]
　　#IF
　　equal U39 2
　　#ACT
　　MESSAGEBOX 永久捐献只可以捐一次!!!!!
　　break
　　#IF
　　CHECKGAMEPOINT < 600000
　　#ACT
　　MESSAGEBOX 你的RMB点不够！
　　break
　　#IF
　　SMALL U39 2
　　CheckContainsText  号区
　　CHECKGAMEPOINT > 599999
　　#ACT
　　GAMEPOINT - 600000
　　INC G211 300000
　　INC G212 120000
　　MOV U39 2
　　#CALL [\登陆\属性给予.TXT] @人物属性
　　#CALL [\登陆\属性给予.TXT] @切割计算
　　#CALL [\登陆\属性给予.TXT] @吸血计算
　　#CALL [\登陆\属性给予.TXT] @爆率计算
　　;#CALL [\登陆\属性给予.TXT] @经验计算
　　AddTextListEx ..\QuestDiary\临时数据\沙捐临时记录.txt
　　CLEARNAMELIST ..\..\..\..\通区捐献\\当前合区.txt
　　AddTextListEx ..\..\..\..\通区捐献\\当前合区.txt 当前合区: 0
　　AddTextListEx ..\..\..\..\通区捐献\\捐献数据.txt  0
　　GOTO @红包雨计算
　　break
　　#IF
　　SMALL U39 2
　　CheckContainsText  01区
　　CHECKGAMEPOINT > 599999
　　#ACT
　　GAMEPOINT - 600000
　　INC G211 300000
　　INC G212 120000
　　MOV U39 2
　　#CALL [\登陆\属性给予.TXT] @人物属性
　　#CALL [\登陆\属性给予.TXT] @切割计算
　　#CALL [\登陆\属性给予.TXT] @吸血计算
　　#CALL [\登陆\属性给予.TXT] @爆率计算
　　;#CALL [\登陆\属性给予.TXT] @经验计算
　　AddTextListEx ..\QuestDiary\临时数据\沙捐临时记录.txt
　　CLEARNAMELIST ..\..\..\..\通区捐献\\当前01区.txt
　　AddTextListEx ..\..\..\..\通区捐献\\当前01区.txt 当前一区: 0
　　AddTextListEx ..\..\..\..\通区捐献\\捐献数据.txt  0
　　GOTO @红包雨计算
　　break
　　#IF
　　SMALL U39 2
　　CheckContainsText  02区
　　CHECKGAMEPOINT > 599999
　　#ACT
　　GAMEPOINT - 600000
　　INC G211 300000
　　INC G212 120000
　　MOV U39 2
　　#CALL [\登陆\属性给予.TXT] @人物属性
　　#CALL [\登陆\属性给予.TXT] @切割计算
　　#CALL [\登陆\属性给予.TXT] @吸血计算
　　#CALL [\登陆\属性给予.TXT] @爆率计算
　　;#CALL [\登陆\属性给予.TXT] @经验计算
　　AddTextListEx ..\QuestDiary\临时数据\沙捐临时记录.txt
　　CLEARNAMELIST ..\..\..\..\通区捐献\\当前02区.txt
　　AddTextListEx ..\..\..\..\通区捐献\\当前02区.txt 当前二区: 0
　　AddTextListEx ..\..\..\..\通区捐献\\捐献数据.txt  0
　　GOTO @红包雨计算
　　break
　　#IF
　　SMALL U39 2
　　CheckContainsText  03区
　　CHECKGAMEPOINT > 599999
　　#ACT
　　GAMEPOINT - 600000
　　INC G211 300000
　　INC G212 120000
　　MOV U39 2
　　#CALL [\登陆\属性给予.TXT] @人物属性
　　#CALL [\登陆\属性给予.TXT] @切割计算
　　#CALL [\登陆\属性给予.TXT] @吸血计算
　　#CALL [\登陆\属性给予.TXT] @爆率计算
　　;#CALL [\登陆\属性给予.TXT] @经验计算
　　AddTextListEx ..\QuestDiary\临时数据\沙捐临时记录.txt
　　CLEARNAMELIST ..\..\..\..\通区捐献\\当前03区.txt
　　AddTextListEx ..\..\..\..\通区捐献\\当前03区.txt 当前三区: 0
　　AddTextListEx ..\..\..\..\通区捐献\\捐献数据.txt  0
　　GOTO @红包雨计算
　　break
　　#IF
　　SMALL U39 2
　　CheckContainsText  04区
　　CHECKGAMEPOINT > 599999
　　#ACT
　　GAMEPOINT - 600000
　　INC G211 300000
　　INC G212 120000
　　MOV U39 2
　　#CALL [\登陆\属性给予.TXT] @人物属性
　　#CALL [\登陆\属性给予.TXT] @切割计算
　　#CALL [\登陆\属性给予.TXT] @吸血计算
　　#CALL [\登陆\属性给予.TXT] @爆率计算
　　;#CALL [\登陆\属性给予.TXT] @经验计算
　　AddTextListEx ..\QuestDiary\临时数据\沙捐临时记录.txt
　　CLEARNAMELIST ..\..\..\..\通区捐献\\当前04区.txt
　　AddTextListEx ..\..\..\..\通区捐献\\当前04区.txt 当前四区: 0
　　AddTextListEx ..\..\..\..\通区捐献\\捐献数据.txt  0
　　GOTO @红包雨计算
　　break
　　#IF
　　SMALL U39 2
　　CheckContainsText  05区
　　CHECKGAMEPOINT > 599999
　　#ACT
　　GAMEPOINT - 600000
　　INC G211 300000
　　INC G212 120000
　　MOV U39 2
　　#CALL [\登陆\属性给予.TXT] @人物属性
　　#CALL [\登陆\属性给予.TXT] @切割计算
　　#CALL [\登陆\属性给予.TXT] @吸血计算
　　#CALL [\登陆\属性给予.TXT] @爆率计算
　　;#CALL [\登陆\属性给予.TXT] @经验计算
　　AddTextListEx ..\QuestDiary\临时数据\沙捐临时记录.txt
　　CLEARNAMELIST ..\..\..\..\通区捐献\\当前05区.txt
　　AddTextListEx ..\..\..\..\通区捐献\\当前05区.txt 当前五区: 0
　　AddTextListEx ..\..\..\..\通区捐献\\捐献数据.txt  0
　　GOTO @红包雨计算
　　break
　　#IF
　　SMALL U39 2
　　CheckContainsText  06区
　　CHECKGAMEPOINT > 599999
　　#ACT
　　GAMEPOINT - 600000
　　INC G211 300000
　　INC G212 120000
　　MOV U39 2
　　#CALL [\登陆\属性给予.TXT] @人物属性
　　#CALL [\登陆\属性给予.TXT] @切割计算
　　#CALL [\登陆\属性给予.TXT] @吸血计算
　　#CALL [\登陆\属性给予.TXT] @爆率计算
　　;#CALL [\登陆\属性给予.TXT] @经验计算
　　AddTextListEx ..\QuestDiary\临时数据\沙捐临时记录.txt
　　CLEARNAMELIST ..\..\..\..\通区捐献\\当前06区.txt
　　AddTextListEx ..\..\..\..\通区捐献\\当前06区.txt 当前六区: 0
　　AddTextListEx ..\..\..\..\通区捐献\\捐献数据.txt  0
　　GOTO @红包雨计算
　　break
　　#IF
　　SMALL U39 2
　　CheckContainsText  战区
　　CHECKGAMEPOINT > 599999
　　#ACT
　　GAMEPOINT - 600000
　　INC G211 300000
　　INC G212 120000
　　MOV U39 2
　　#CALL [\登陆\属性给予.TXT] @人物属性
　　#CALL [\登陆\属性给予.TXT] @切割计算
　　#CALL [\登陆\属性给予.TXT] @吸血计算
　　#CALL [\登陆\属性给予.TXT] @爆率计算
　　;#CALL [\登陆\属性给予.TXT] @经验计算
　　AddTextListEx ..\QuestDiary\临时数据\沙捐临时记录.txt
　　CLEARNAMELIST ..\..\..\..\通区捐献\\当前战区.txt
　　AddTextListEx ..\..\..\..\通区捐献\\当前战区.txt 当前战区: 0
　　AddTextListEx ..\..\..\..\通区捐献\\捐献数据.txt  0
　　GOTO @红包雨计算
　　break
　　[@红包雨计算]
　　#if
　　SMALL G212 1000000
　　#ACT
　　GOTO @MAIN
　　break
　　#IF
　　LARGE G212 999999
　　#ACT
　　MOV G212 0
　　ThrowItem HDZS01 32 34 10 红包 20|120
　　SENDMOVEMSG 0 253 255 300 1 时时红包雨活动已经开启,请通过点击顶部激情活动进入活动地图争夺红包！
　　SENDMOVEMSG 0 250 255 270 1 时时红包雨活动已经开启,请通过点击顶部激情活动进入活动地图争夺红包！
　　SENDMOVEMSG 0 252 255 240 1 时时红包雨活动已经开启,请通过点击顶部激情活动进入活动地图争夺红包！
　　GOTO @MAIN
　　Gmexecute 开始提问 @红包捡取
　　break
　　[@个人沙捐领奖]
　　#IF
　　LARGE U47 0
　　#ACT
　　MOV N$累积经验
　　DIV N$累积经验 10000
　　#ELSEACT
　　MOV N$累积经验 0
　　#IF
　　checklevelex > 0
　　#say
　　 \ \ \ \ \
　　;            \
　　;      \ \ \
　　            \
　　      \ \ \
　　            \
　　      \ \ \
　　     \
　　      
　　#ACT
　　OPENMERCHANTBIGDLG 21 1502 1 4 10 -100 1 249 6
　　break
　　[@领取元宝累计]
　　#IF
　　Equal U39 0
　　#ACT
　　MESSAGEBOX 你没有捐献,无法领取!!!
　　break
　　#if
　　LARGE U39 0
　　Large U46 0
　　#ACT
　　GAMEGOLD +
　　MESSAGEBOX 本次提取了个元宝
　　MOV U46 0
　　GOTO @个人沙捐领奖
　　break
　　#elseact
　　messagebox 你没有累积到元宝
　　break
　　[@领取经验累计]
　　#IF
　　Equal U39 0
　　#ACT
　　MESSAGEBOX 你没有捐献,无法领取!!!
　　break
　　#if
　　LARGE U39 0
　　Large U47 0
　　#ACT
　　CHANGEEXP +
　　MESSAGEBOX 本次提取了万经验值
　　MOV U47 0
　　MOV N$累积经验 0
　　GOTO @个人沙捐领奖
　　break
　　#elseact
　　messagebox 你没有累积到经验值
　　break