[传奇技术]Legendm2引擎新年抢红包完整脚本

源码资源网 · 发表于 7 小时前

[@GM起点新年红包脚本RM]
{
#IF
SMALL I99 145874
#ACT
MOV I99 145874
VAR Integer GLOBAL 新年红包判断
VAR Integer GLOBAL 新年红包金额
VAR Integer GLOBAL 新年红包计时
VAR Integer GLOBAL 新年红包人数
VAR Integer GLOBAL 新年红包剩余
VAR String GLOBAL 新年红包空格
VAR String GLOBAL 新年红包名字
VAR String GLOBAL 新年红包名字1
VAR String GLOBAL 新年红包名字2
VAR String GLOBAL 新年红包名字3
VAR String GLOBAL 新年红包名字4
VAR String GLOBAL 新年红包名字5
VAR String GLOBAL 新年红包名字6
VAR String GLOBAL 新年红包名字7
VAR String GLOBAL 新年红包名字8
VAR String GLOBAL 新年红包名字9
VAR String GLOBAL 新年红包名字10
VAR Integer GLOBAL 新年红包数量1
VAR Integer GLOBAL 新年红包数量2
VAR Integer GLOBAL 新年红包数量3
VAR Integer GLOBAL 新年红包数量4
VAR Integer GLOBAL 新年红包数量5
VAR Integer GLOBAL 新年红包数量6
VAR Integer GLOBAL 新年红包数量7
VAR Integer GLOBAL 新年红包数量8
VAR Integer GLOBAL 新年红包数量9
VAR Integer GLOBAL 新年红包数量10
VAR Integer GLOBAL 新年红包计数1
VAR Integer GLOBAL 新年红包计数2
VAR Integer GLOBAL 新年红包计数3
VAR Integer GLOBAL 新年红包计数4
VAR Integer GLOBAL 新年红包计数5
VAR Integer GLOBAL 新年红包计数6
VAR Integer GLOBAL 新年红包计数7
VAR Integer GLOBAL 新年红包计数8
VAR Integer GLOBAL 新年红包计数9
VAR Integer GLOBAL 新年红包计数10
VAR Integer GLOBAL 新年红包计数11
LOADVAR GLOBAL 新年红包判断 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包金额 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包名字 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包名字1 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包名字2 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包名字3 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包名字4 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包名字5 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包名字6 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包名字7 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包名字8 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包名字9 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包名字10 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包数量1 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包数量2 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包数量3 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包数量4 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包数量5 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包数量6 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包数量7 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包数量8 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包数量9 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包数量10 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
LOADVAR GLOBAL 新年红包空格 ..\QuestDiary\GM起点新年红包配置(技术QQ.145874)\GM起点新年红包常量.ini
MOV S10 <$GLOBAL(新年红包空格)>
DEC S10 1 1
CALCVAR GLOBAL 新年红包空格 = <$STR(S10)>
#IF
CHECKVAR GLOBAL 新年红包判断 < 1
#ACT
break
#IF
CHECKVAR GLOBAL 新年红包计时 > 0
CHECKVAR GLOBAL 新年红包判断 > 1
#ACT
CALCVAR GLOBAL 新年红包计时 - 1
break
#IF
CHECKVAR GLOBAL 新年红包判断 = 3
#ACT
CALCVAR GLOBAL 新年红包判断 = 1
CALCVAR GLOBAL 新年红包人数 = 0
CALCVAR GLOBAL 新年红包计时 = $(新年红包提示时间)
CALCVAR GLOBAL 新年红包计时 * 60
CALCVAR GLOBAL 新年红包剩余 = <$GLOBAL(新年红包金额)>
CALCVAR GLOBAL 新年红包计数1 = 0
CALCVAR GLOBAL 新年红包计数2 = 0
CALCVAR GLOBAL 新年红包计数3 = 0
CALCVAR GLOBAL 新年红包计数4 = 0
CALCVAR GLOBAL 新年红包计数5 = 0
CALCVAR GLOBAL 新年红包计数6 = 0
CALCVAR GLOBAL 新年红包计数7 = 0
CALCVAR GLOBAL 新年红包计数8 = 0
CALCVAR GLOBAL 新年红包计数9 = 0
CALCVAR GLOBAL 新年红包计数10 = 0
CALCVAR GLOBAL 新年红包计数11 = 0
Gmexecute $(新年红包全服触发) @GM起点新年红包在线弹窗
SENDMSG 0 由【<$GLOBAL(新年红包名字)>】发起的抢红包活动将在$(新年红包提示时间)分钟后开始，红包累计金额：<$GLOBAL(新年红包金额)>元宝！ 255 244
break
#IF
CHECKVAR GLOBAL 新年红包判断 = 5
#ACT
CALCVAR GLOBAL 新年红包判断 = 4
CALCVAR GLOBAL 新年红包计时 = $(新年红包结束时间)
CALCVAR GLOBAL 新年红包计时 * 60
break
#IF
CHECKVAR GLOBAL 新年红包判断 = 2
#ACT
CALCVAR GLOBAL 新年红包判断 = 5
SAVEVAR GLOBAL 新年红包判断 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
CALCVAR GLOBAL 新年红包判断 = 4
CALCVAR GLOBAL 新年红包计时 = $(新年红包结束时间)
CALCVAR GLOBAL 新年红包计时 * 60
CALCVAR GLOBAL 新年红包名字1 =
CALCVAR GLOBAL 新年红包名字2 =
CALCVAR GLOBAL 新年红包名字3 =
CALCVAR GLOBAL 新年红包名字4 =
CALCVAR GLOBAL 新年红包名字5 =
CALCVAR GLOBAL 新年红包名字6 =
CALCVAR GLOBAL 新年红包名字7 =
CALCVAR GLOBAL 新年红包名字8 =
CALCVAR GLOBAL 新年红包名字9 =
CALCVAR GLOBAL 新年红包名字10 =
CALCVAR GLOBAL 新年红包数量1 = <$GLOBAL(新年红包计数1)>
CALCVAR GLOBAL 新年红包数量2 = <$GLOBAL(新年红包计数2)>
CALCVAR GLOBAL 新年红包数量3 = <$GLOBAL(新年红包计数3)>
CALCVAR GLOBAL 新年红包数量4 = <$GLOBAL(新年红包计数4)>
CALCVAR GLOBAL 新年红包数量5 = <$GLOBAL(新年红包计数5)>
CALCVAR GLOBAL 新年红包数量6 = <$GLOBAL(新年红包计数6)>
CALCVAR GLOBAL 新年红包数量7 = <$GLOBAL(新年红包计数7)>
CALCVAR GLOBAL 新年红包数量8 = <$GLOBAL(新年红包计数8)>
CALCVAR GLOBAL 新年红包数量9 = <$GLOBAL(新年红包计数9)>
CALCVAR GLOBAL 新年红包数量10 = <$GLOBAL(新年红包计数10)>
SAVEVAR GLOBAL 新年红包名字1 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包名字2 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包名字3 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包名字4 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包名字5 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包名字6 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包名字7 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包名字8 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包名字9 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包名字10 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包数量1 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包数量2 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包数量3 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包数量4 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包数量5 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包数量6 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包数量7 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包数量8 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包数量9 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包数量10 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
Gmexecute $(新年红包全服触发) @GM起点新年红包在线弹窗
SENDMSG 0 由【<$GLOBAL(新年红包名字)>】发起的抢红包活动正式开始，时长$(新年红包结束时间)分钟，红包累计金额：<$GLOBAL(新年红包金额)>元宝！ 255 244
break
#IF
CHECKVAR GLOBAL 新年红包判断 = 4
#ACT
CALCVAR GLOBAL 新年红包判断 = 0
SAVEVAR GLOBAL 新年红包判断 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SENDMSG 0 本轮抢红包活动由于无人抢到第$(新年红包排多少名)名，现正式结束！ 255 244
break
#IF
CHECKVAR GLOBAL 新年红包判断 = 1
#ELSEACT
break
#IF
CHECKVAR GLOBAL 新年红包计时 > 0
#ACT
CALCVAR GLOBAL 新年红包计时 - 1
#IF
CHECKVAR GLOBAL 新年红包人数 < $(新年红包排多少名)
#ELSEACT
CALCVAR GLOBAL 新年红包判断 = 2
break
#ACT
CALCVAR GLOBAL 新年红包人数 + 1
#IF
CHECKVAR GLOBAL 新年红包人数 < $(新年红包排多少名)
CHECKVAR GLOBAL 新年红包剩余 > 0
#ACT
MOV D7 <$GLOBAL(新年红包剩余)>
DIV D7 2
MOVR D7 <$STR(D7)>
INC D7 1
CALCVAR GLOBAL 新年红包剩余 - <$STR(D7)>
#ELSEACT
MOV D7 <$GLOBAL(新年红包剩余)>
#IF
CHECK [0] 0
#ACT
MOV D9 $(新年红包排多少名)
INC D9 1
#IF
CHECK [0] 0
#ACT
MOV D8 <$STR(D9)>
DEC D8 1
#IF
CHECKVAR GLOBAL 新年红包计数<$STR(D8)> < <$STR(D7)>
#ACT
MOV S11 <$GLOBAL(新年红包计数
INC S11 <$STR(D8)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(S11)>
MOV S10 技术QQ:145874
DEC D9 1
#IF
EQUAL D8 1
#ACT
MOV D8 0
#IF
LARGE D9 <$STR(D8)>
EQUAL S10
#ACT
break
#IF
LARGE D9 <$STR(D8)>
#ACT
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(D7)>
break
#IF
CHECK [0] 0
#ACT
MOV D8 <$STR(D9)>
DEC D8 1
#IF
CHECKVAR GLOBAL 新年红包计数<$STR(D8)> < <$STR(D7)>
#ACT
MOV S11 <$GLOBAL(新年红包计数
INC S11 <$STR(D8)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(S11)>
MOV S10 技术QQ:145874
DEC D9 1
#IF
EQUAL D8 1
#ACT
MOV D8 0
#IF
LARGE D9 <$STR(D8)>
EQUAL S10
#ACT
break
#IF
LARGE D9 <$STR(D8)>
#ACT
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(D7)>
break
#IF
CHECK [0] 0
#ACT
MOV D8 <$STR(D9)>
DEC D8 1
#IF
CHECKVAR GLOBAL 新年红包计数<$STR(D8)> < <$STR(D7)>
#ACT
MOV S11 <$GLOBAL(新年红包计数
INC S11 <$STR(D8)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(S11)>
MOV S10 技术QQ:145874
DEC D9 1
#IF
EQUAL D8 1
#ACT
MOV D8 0
#IF
LARGE D9 <$STR(D8)>
EQUAL S10
#ACT
break
#IF
LARGE D9 <$STR(D8)>
#ACT
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(D7)>
break
#IF
CHECK [0] 0
#ACT
MOV D8 <$STR(D9)>
DEC D8 1
#IF
CHECKVAR GLOBAL 新年红包计数<$STR(D8)> < <$STR(D7)>
#ACT
MOV S11 <$GLOBAL(新年红包计数
INC S11 <$STR(D8)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(S11)>
MOV S10 技术QQ:145874
DEC D9 1
#IF
EQUAL D8 1
#ACT
MOV D8 0
#IF
LARGE D9 <$STR(D8)>
EQUAL S10
#ACT
break
#IF
LARGE D9 <$STR(D8)>
#ACT
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(D7)>
break
#IF
CHECK [0] 0
#ACT
MOV D8 <$STR(D9)>
DEC D8 1
#IF
CHECKVAR GLOBAL 新年红包计数<$STR(D8)> < <$STR(D7)>
#ACT
MOV S11 <$GLOBAL(新年红包计数
INC S11 <$STR(D8)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(S11)>
MOV S10 技术QQ:145874
DEC D9 1
#IF
EQUAL D8 1
#ACT
MOV D8 0
#IF
LARGE D9 <$STR(D8)>
EQUAL S10
#ACT
break
#IF
LARGE D9 <$STR(D8)>
#ACT
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(D7)>
break
#IF
CHECK [0] 0
#ACT
MOV D8 <$STR(D9)>
DEC D8 1
#IF
CHECKVAR GLOBAL 新年红包计数<$STR(D8)> < <$STR(D7)>
#ACT
MOV S11 <$GLOBAL(新年红包计数
INC S11 <$STR(D8)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(S11)>
MOV S10 技术QQ:145874
DEC D9 1
#IF
EQUAL D8 1
#ACT
MOV D8 0
#IF
LARGE D9 <$STR(D8)>
EQUAL S10
#ACT
break
#IF
LARGE D9 <$STR(D8)>
#ACT
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(D7)>
break
#IF
CHECK [0] 0
#ACT
MOV D8 <$STR(D9)>
DEC D8 1
#IF
CHECKVAR GLOBAL 新年红包计数<$STR(D8)> < <$STR(D7)>
#ACT
MOV S11 <$GLOBAL(新年红包计数
INC S11 <$STR(D8)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(S11)>
MOV S10 技术QQ:145874
DEC D9 1
#IF
EQUAL D8 1
#ACT
MOV D8 0
#IF
LARGE D9 <$STR(D8)>
EQUAL S10
#ACT
break
#IF
LARGE D9 <$STR(D8)>
#ACT
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(D7)>
break
#IF
CHECK [0] 0
#ACT
MOV D8 <$STR(D9)>
DEC D8 1
#IF
CHECKVAR GLOBAL 新年红包计数<$STR(D8)> < <$STR(D7)>
#ACT
MOV S11 <$GLOBAL(新年红包计数
INC S11 <$STR(D8)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(S11)>
MOV S10 技术QQ:145874
DEC D9 1
#IF
EQUAL D8 1
#ACT
MOV D8 0
#IF
LARGE D9 <$STR(D8)>
EQUAL S10
#ACT
break
#IF
LARGE D9 <$STR(D8)>
#ACT
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(D7)>
break
#IF
CHECK [0] 0
#ACT
MOV D8 <$STR(D9)>
DEC D8 1
#IF
CHECKVAR GLOBAL 新年红包计数<$STR(D8)> < <$STR(D7)>
#ACT
MOV S11 <$GLOBAL(新年红包计数
INC S11 <$STR(D8)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(S11)>
MOV S10 技术QQ:145874
DEC D9 1
#IF
EQUAL D8 1
#ACT
MOV D8 0
#IF
LARGE D9 <$STR(D8)>
EQUAL S10
#ACT
break
#IF
LARGE D9 <$STR(D8)>
#ACT
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(D7)>
break
#IF
CHECK [0] 0
#ACT
MOV D8 <$STR(D9)>
DEC D8 1
#IF
CHECKVAR GLOBAL 新年红包计数<$STR(D8)> < <$STR(D7)>
#ACT
MOV S11 <$GLOBAL(新年红包计数
INC S11 <$STR(D8)>
INC S11 )>
MOV S11 <$STR(S11)>
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(S11)>
MOV S10 技术QQ:145874
DEC D9 1
#IF
EQUAL D8 1
#ACT
MOV D8 0
#IF
LARGE D9 <$STR(D8)>
EQUAL S10
#ACT
break
#IF
LARGE D9 <$STR(D8)>
#ACT
CALCVAR GLOBAL 新年红包计数<$STR(D9)> = <$STR(D7)>
break
[@GM起点新年红包开始触发]
#IF
CHECKVAR GLOBAL 新年红包判断 = 0
#ACT
CALCVAR GLOBAL 新年红包名字 = $(新年红包系统名字)
CALCVAR GLOBAL 新年红包判断 = 3
CALCVAR GLOBAL 新年红包金额 = $(新年红包发放金额)
SAVEVAR GLOBAL 新年红包金额 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包名字 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包判断 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
[@GM起点新年红包次数清空]
#ACT
CLEARNAMELIST ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包限制.txt
GMEXECUTE $(新年红包全服触发) @GM起点新年红包次数清空QM
[@GM起点新年红包常量加载]
#CALL [\GM起点新年红包配置(技术QQ.145874)\GM起点新年红包常量.ini] @GM起点新年红包常量
}
[@GM起点新年红包脚本QM]
{
#IF
CHECKLEVELEX > 0
#ACT
VAR Integer HUMAN 新年红包输入1
VAR Integer HUMAN 新年红包限制
LOADVAR HUMAN 新年红包限制 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包限制.txt
GOTO @GM起点新年红包在线弹窗
MOV D84 1
[@GM起点新年红包在线弹窗]
#IF
CHECKVAR GLOBAL 新年红包判断 = 1
#ACT
DELAYGOTO 1 @GM起点新年红包脚本NPC
SENDMSG 0 由【<$GLOBAL(新年红包名字)>】发起的抢红包活动将在%t秒后开始，红包累计金额：<$GLOBAL(新年红包金额)>元宝！ 255 244 <$GLOBAL(新年红包计时)>
break
#IF
CHECKVAR GLOBAL 新年红包判断 = 4
#ACT
DELAYGOTO 1 @GM起点新年红包脚本NPC
break
[@GM起点新年红包次数清空QM]
#IF
EQUAL D84 0
ONLINELONGMIN < 1
#ACT
break
#IF
checkvar human 新年红包限制 > 0
#ACT
CALCVAR HUMAN 新年红包限制 = 0
[@GM起点新年红包脚本NPC加载]
#CALL [\GM起点新年红包配置(技术QQ.145874)\GM起点新年红包脚本.txt] @GM起点新年红包脚本NPC
}
[@GM起点新年红包脚本NPC]
{
#IF
CHECKVAR HUMAN 新年红包输入1 < $(新年红包发放最小)
#ACT
CALCVAR HUMAN 新年红包输入1 = $(新年红包发放默认)
#IF
CHECKVAR HUMAN 新年红包输入1 > $(新年红包发放最大)
#ACT
CALCVAR HUMAN 新年红包输入1 = $(新年红包发放默认)
#IF
CHECKVAR GLOBAL 新年红包判断 = 3
#ACT
MOV D9 $(新年红包提示时间)
MUL D9 60
#ELSEACT
MOV D9 <$GLOBAL(新年红包计时)>
#IF
CHECKLEVELEX > 0
#ACT
MOV D7 <$STR(D9)>
DIV D7 3600
MOV D6 <$STR(D7)>
MUL D6 3600
INC D6 1
INC D9 1
DEC D9 <$STR(D6)>
MOV D8 <$STR(D9)>
DIV D8 60
MOV D6 <$STR(D8)>
MUL D6 60
INC D6 1
INC D9 1
DEC D9 <$STR(D6)>
MOV S10
#IF
LARGE D7 0
#ACT
INC S10 <$STR(D7)>小时
#IF
EQUAL D7 0
EQUAL D8 0
#ELSEACT
INC S10 <$STR(D8)>分钟
#IF
EQUAL D7 0
EQUAL D8 0
EQUAL D9 0
#ELSEACT
INC S10 <$STR(D9)>秒
#IF
CHECKVAR GLOBAL 新年红包判断 < 1
#SAY
<抢红包活动说明[url=]/@GM[/url]起点新年红包活动说明> <确定发起抢红包[url=]/@GM[/url]起点新年红包发起确定>（<$HUMAN(新年红包限制)>/$(新年红包限制次数)次） <修改[url=]/@GM[/url]起点新年红包修改金额>红包金额:<$HUMAN(新年红包输入1)> \
#IF
CHECKVAR GLOBAL 新年红包判断 > 0
CHECKVAR GLOBAL 新年红包判断 < 4
#SAY
下一轮抢红包由【<$GLOBAL(新年红包名字)>】发起！距离开始倒计时：<$STR(S10)>\
#IF
CHECKVAR GLOBAL 新年红包判断 = 4
#ACT
break
#SAY
抢红包活动正式开始！红包累计总金额：<$GLOBAL(新年红包金额)>\
本轮抢红包由【<$GLOBAL(新年红包名字)>】发起！距离结束倒计时：<$STR(S10)>\ \
<我要抢红包[url=]/@GM[/url]起点新年红包开抢确定> <抢红包活动说明[url=]/@GM[/url]起点新年红包活动说明>\ \
抢红包条件：等级达到$(新年红包需要等级)级，身上元宝数量不低于<$GLOBAL(新年红包金额)>元宝\
注意：如您抢到第$(新年红包排多少名)名，系统将会扣除您<$GLOBAL(新年红包金额)>元宝自动发起下一轮的抢红包！\
抢到其他名次不会扣除您的元宝，该名次的红包金额为多少即获得多少元宝！\
#IF
CHECKLEVELEX > 0
#ACT
MOV S11 <$GLOBAL(新年红包名字1)><$GLOBAL(新年红包空格)>
MOV S12 <$GLOBAL(新年红包名字2)><$GLOBAL(新年红包空格)>
MOV S13 <$GLOBAL(新年红包名字3)><$GLOBAL(新年红包空格)>
MOV S14 <$GLOBAL(新年红包名字4)><$GLOBAL(新年红包空格)>
MOV S15 <$GLOBAL(新年红包名字5)><$GLOBAL(新年红包空格)>
MOV S16 <$GLOBAL(新年红包名字6)><$GLOBAL(新年红包空格)>
MOV S17 <$GLOBAL(新年红包名字7)><$GLOBAL(新年红包空格)>
MOV S18 <$GLOBAL(新年红包名字8)><$GLOBAL(新年红包空格)>
MOV S19 <$GLOBAL(新年红包名字9)><$GLOBAL(新年红包空格)>
MOV S20 <$GLOBAL(新年红包名字10)><$GLOBAL(新年红包空格)>
DEC S11 15 500
DEC S12 15 500
DEC S13 15 500
DEC S14 15 500
DEC S15 15 500
DEC S16 15 500
DEC S17 15 500
DEC S18 15 500
DEC S19 15 500
DEC S20 15 500
#SAY
<COLOR=clFuchsia 本轮抢红包第１名:><$STR(S11)> <COLOR=clGreen 红包金额:><$GLOBAL(新年红包数量1)>\
<COLOR=clFuchsia 本轮抢红包第２名:><$STR(S12)> <COLOR=clGreen 红包金额:><$GLOBAL(新年红包数量2)>\
<COLOR=clFuchsia 本轮抢红包第３名:><$STR(S13)> <COLOR=clGreen 红包金额:><$GLOBAL(新年红包数量3)>\
<COLOR=clFuchsia 本轮抢红包第４名:><$STR(S14)> <COLOR=clGreen 红包金额:><$GLOBAL(新年红包数量4)>\
<COLOR=clFuchsia 本轮抢红包第５名:><$STR(S15)> <COLOR=clGreen 红包金额:><$GLOBAL(新年红包数量5)>\
<COLOR=clFuchsia 本轮抢红包第６名:><$STR(S16)> <COLOR=clGreen 红包金额:><$GLOBAL(新年红包数量6)>\
<COLOR=clFuchsia 本轮抢红包第７名:><$STR(S17)> <COLOR=clGreen 红包金额:><$GLOBAL(新年红包数量7)>\
<COLOR=clFuchsia 本轮抢红包第８名:><$STR(S18)> <COLOR=clGreen 红包金额:><$GLOBAL(新年红包数量8)>\
<COLOR=clFuchsia 本轮抢红包第９名:><$STR(S19)> <COLOR=clGreen 红包金额:><$GLOBAL(新年红包数量9)>\
<COLOR=clFuchsia 本轮抢红包第10名:><$STR(S20)> <COLOR=clGreen 红包金额:><$GLOBAL(新年红包数量10)>\
[@GM起点新年红包修改金额]
#ACT
QUERYVALUE 90 1 9 @GM起点新年红包修改金额B 请输入您要发起的元宝数量（$(新年红包发放最小)-$(新年红包发放最大)之间）：
[@GM起点新年红包修改金额B]
#IF
SMALL M90 $(新年红包发放最小)
#ACT
MESSAGEBOX 对不起，红包发起金额最小为【$(新年红包发放最小)元宝】！
BREAK
#IF
LARGE M90 $(新年红包发放最大)
#ACT
MESSAGEBOX 对不起，红包发起金额最大为【$(新年红包发放最大)元宝】！
BREAK
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 新年红包输入1 = <$STR(M90)>
GOTO @GM起点新年红包脚本NPC
[@GM起点新年红包活动说明]
#ACT
#SAY
抢红包活动由系统定时发起，系统定时发起时间点：每天19点\
也可由玩家随时发起，玩家发起需要支付$(新年红包发放金额)元宝\
活动发起后倒计时$(新年红包提示时间)分钟正式开始，正式开始后全服弹窗，点击我要抢红包\
即可抢红包，每轮每个名次的红包金额随机生成，抢到多少即获得多少元宝！\
抢红包条件：等级达到$(新年红包需要等级)级，身上元宝数量不低于$(新年红包发放金额)元宝\
注意：如您抢到第$(新年红包排多少名)名，系统将会扣除您$(新年红包发放金额)元宝自动发起下一轮的抢红包！\
抢到其他名次不会扣除您的元宝，该名次的红包金额为多少即获得多少元宝！\ \
<返回[url=]/@GM[/url]起点新年红包脚本NPC>
[@GM起点新年红包发起确定]
#IF
CHECKLEVELEX > 0
#ACT
DELAYGOTO 1 @GM起点新年红包脚本NPC
#IF
CHECKVAR GLOBAL 新年红包判断 = 0
#ELSEACT
messagebox 对不起，本轮抢红包活动正在进行，请等待结束后再发起！
break
#IF
CHECKVAR HUMAN 新年红包限制 < $(新年红包限制次数)
#ELSEACT
MESSAGEBOX 对不起，每个角色每天限制可发起抢红包$(新年红包限制次数)次！\　\您今天已发起<$HUMAN(新年红包限制)>次，请明天再来！
BREAK
#IF
CHECKVAR HUMAN 新年红包输入1 < $(新年红包发放最小)
#ACT
MESSAGEBOX 对不起，红包发起金额最小为【$(新年红包发放最小)元宝】！
BREAK
#IF
CHECKVAR HUMAN 新年红包输入1 > $(新年红包发放最大)
#ACT
MESSAGEBOX 对不起，红包发起金额最大为【$(新年红包发放最大)元宝】！
BREAK
#IF
CHECKGAMEGOLD < <$HUMAN(新年红包输入1)>
#ACT
messagebox 对不起，您身上的元宝数量不足【<$HUMAN(新年红包输入1)>元宝】，无法发起抢红包！
break
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 新年红包限制 + 1
SAVEVAR HUMAN 新年红包限制 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包限制.txt
MOV D9 <$HUMAN(新年红包输入1)>
MUL D9 $(新年红包经验比例)
CHANGEEXP + <$STR(D9)>
GAMEGOLD - <$HUMAN(新年红包输入1)>
CALCVAR GLOBAL 新年红包名字 = <$USERNAME>
CALCVAR GLOBAL 新年红包判断 = 3
CALCVAR GLOBAL 新年红包金额 = <$HUMAN(新年红包输入1)>
SAVEVAR GLOBAL 新年红包金额 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包名字 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包判断 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
sendmsg 0 【<$USERNAME>】支付【<$HUMAN(新年红包输入1)>元宝】发起抢红包活动，获得<$STR(D9)>经验！ 255 244
messagebox 恭喜你，支付【<$HUMAN(新年红包输入1)>元宝】发起抢红包活动，获得<$STR(D9)>经验！
Gmexecute showeffect 77
[@GM起点新年红包开抢确定]
#IF
CHECKLEVELEX > 0
#ACT
MOV S10 $(新年红包继续发起)
DELAYGOTO 1 @GM起点新年红包脚本NPC
#IF
CHECKVAR GLOBAL 新年红包判断 = 4
#ELSEACT
messagebox 对不起，你手太慢了！本轮抢红包已经结束，请等待下轮开始！
break
#IF
CHECKVAR GLOBAL 新年红包名字 = <$USERNAME>
#ACT
messagebox 对不起，您是红包发起人，不能参加抢红包！
break
#IF
CHECKLEVELEX < $(新年红包需要等级)
#ACT
messagebox 对不起，您的等级未达到$(新年红包需要等级)级，无法参加抢红包！
break
#IF
CHECKGAMEGOLD < $(新年红包开抢条件)
EQUAL S10 否
#ACT
messagebox 对不起，您身上的元宝数量不足【$(新年红包开抢条件)元宝】，无法参加抢红包！
break
#IF
CHECKGAMEGOLD < <$GLOBAL(新年红包金额)>
EQUAL S10 是
#ACT
messagebox 对不起，您身上的元宝数量不足【<$GLOBAL(新年红包金额)>元宝】，无法参加抢红包！
break
#IF
CHECKLEVELEX > 0
#ACT
MOV D9 0
#IF
EQUAL D9 0
CHECKVAR GLOBAL 新年红包名字1 =
#ACT
MOV D9 1
#IF
EQUAL D9 0
CHECKVAR GLOBAL 新年红包名字2 =
#ACT
MOV D9 2
#IF
EQUAL D9 0
CHECKVAR GLOBAL 新年红包名字3 =
#ACT
MOV D9 3
#IF
EQUAL D9 0
CHECKVAR GLOBAL 新年红包名字4 =
#ACT
MOV D9 4
#IF
EQUAL D9 0
CHECKVAR GLOBAL 新年红包名字5 =
#ACT
MOV D9 5
#IF
EQUAL D9 0
CHECKVAR GLOBAL 新年红包名字6 =
#ACT
MOV D9 6
#IF
EQUAL D9 0
CHECKVAR GLOBAL 新年红包名字7 =
#ACT
MOV D9 7
#IF
EQUAL D9 0
CHECKVAR GLOBAL 新年红包名字8 =
#ACT
MOV D9 8
#IF
EQUAL D9 0
CHECKVAR GLOBAL 新年红包名字9 =
#ACT
MOV D9 9
#IF
EQUAL D9 0
CHECKVAR GLOBAL 新年红包名字10 =
#ACT
MOV D9 10
#IF
EQUAL D9 0
#ACT
messagebox 对不起，本轮抢红包$(新年红包排多少名)个名额已满，请等待下一轮开始！
break
#IF
LARGE D9 $(新年红包排多少名)
#ACT
MOV D9 0
messagebox 对不起，本轮抢红包$(新年红包排多少名)个名额已满，请等待下一轮开始！
break
#IF
CHECKLEVELEX > 0
#ACT
MOV D8 0
#IF
EQUAL D8 0
CHECKVAR GLOBAL 新年红包名字1 = <$USERNAME>
#ACT
MOV D8 1
#IF
EQUAL D8 0
CHECKVAR GLOBAL 新年红包名字2 = <$USERNAME>
#ACT
MOV D8 2
#IF
EQUAL D8 0
CHECKVAR GLOBAL 新年红包名字3 = <$USERNAME>
#ACT
MOV D8 3
#IF
EQUAL D8 0
CHECKVAR GLOBAL 新年红包名字4 = <$USERNAME>
#ACT
MOV D8 4
#IF
EQUAL D8 0
CHECKVAR GLOBAL 新年红包名字5 = <$USERNAME>
#ACT
MOV D8 5
#IF
EQUAL D8 0
CHECKVAR GLOBAL 新年红包名字6 = <$USERNAME>
#ACT
MOV D8 6
#IF
EQUAL D8 0
CHECKVAR GLOBAL 新年红包名字7 = <$USERNAME>
#ACT
MOV D8 7
#IF
EQUAL D8 0
CHECKVAR GLOBAL 新年红包名字8 = <$USERNAME>
#ACT
MOV D8 8
#IF
EQUAL D8 0
CHECKVAR GLOBAL 新年红包名字9 = <$USERNAME>
#ACT
MOV D8 9
#IF
EQUAL D8 0
CHECKVAR GLOBAL 新年红包名字10 = <$USERNAME>
#ACT
MOV D8 10
#IF
LARGE D8 0
#ACT
MOV D8 0
messagebox 对不起，本轮您已抢到红包，请等待结束显示排名！
break
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR GLOBAL 新年红包名字<$STR(D9)> = <$USERNAME>
SAVEVAR GLOBAL 新年红包名字<$STR(D9)> ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
MOV S11 <$GLOBAL(新年红包数量
INC S11 <$STR(D9)>
INC S11 )>
MOV D8 <$STR(S11)>
#IF
LARGE D8 20000000
#ACT
MOV D7 <$STR(D8)>
DIV D7 100
MUL D7 $(新年红包纳税比例)
#ELSEACT
MOV D7 <$STR(D8)>
MUL D7 $(新年红包纳税比例)
DIV D7 100
#IF
LARGE D7 0
#ACT
DEC D8 <$STR(D7)>
MOV S11 扣除$(新年红包纳税比例)%共<$STR(D7)>元宝个人所得税！
#ELSEACT
MOV S11
#IF
LARGE D8 0
#ACT
GAMEGOLD + <$STR(D8)>
#IF
EQUAL D9 $(新年红包排多少名)
EQUAL S10 是
#ELSEACT
sendmsg 6 恭喜您，成功抢到【<$STR(D8)>元宝】红包，已发放到您的帐户！<$STR(S11)>
messagebox 恭喜您，成功抢到【<$STR(D8)>元宝】红包，已发放到您的帐户！\　\<$STR(S11)>
#ACT
MOV D9 <$GLOBAL(新年红包金额)>
MUL D9 $(新年红包经验比例)
CHANGEEXP + <$STR(D9)>
GAMEGOLD - <$GLOBAL(新年红包金额)>
sendmsg 6 恭喜您，成功抢到【<$STR(D8)>元宝】红包，已发放到您的帐户！<$STR(S11)>由于您抢到的是第$(新年红包排多少名)名红包，系统扣除您<$GLOBAL(新年红包金额)>元宝自动发起下一轮的抢红包！
messagebox 恭喜您，成功抢到【<$STR(D8)>元宝】红包，已发放到您的帐户！\　\<$STR(S11)>\　\由于您抢到的是第$(新年红包排多少名)名红包，系统扣除您<$GLOBAL(新年红包金额)>元宝自动发起下一轮的抢红包！
CALCVAR GLOBAL 新年红包名字 = <$USERNAME>
CALCVAR GLOBAL 新年红包判断 = 3
SAVEVAR GLOBAL 新年红包名字 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
SAVEVAR GLOBAL 新年红包判断 ..\QuestDiary\GM起点开区清空文本(技术QQ.145874)\GM起点新年红包变量.txt
sendmsg 0 【<$USERNAME>】抢到本轮第$(新年红包排多少名)名红包，获得<$STR(D9)>经验！系统自动发起下一轮的抢红包！ 255 244
[@GM起点新年红包常量加载]
#CALL [\GM起点新年红包配置(技术QQ.145874)\GM起点新年红包常量.ini] @GM起点新年红包常量
}

复制代码

		自动登录	找回密码
密码			立即注册

[游戏架设教程] [传奇技术]Legendm2引擎新年抢红包完整脚本

相关帖子