Gom引擎脚本-全服红包系统

GM版本库

[@main]
\ \ \

     <帮派红包/@发送1>      <提示/@提示>      <世界红包/@122>\ \


     T40 元单位   T41 角单位 \  \


     <变量/@测试>     <检测变量/@检测>     <数据/@检测1>     <红包A/@A红包>      <红包B/@B红包>


[@122]
#ACT
Mov N28 300000
Movr N28 10000 300000
SENDMSG 0 你获得了<$STR(N28)>


[@提示]
#ACT
SendCenterMsg 180 251 这是一个居中显示的公告. 0

[@测试]
#IF
#ACT
MOV S1 闺女好好
S1.MOVEX S2 <$USERNAME>
SENDMSG 6 S2使用的是神话这个人物的，<$USERNAME>这个使用的是，谁点击这个脚本，就调用的谁的
SENDMSG 6 这个脚本存在2个人，执行脚本的人物S1和点击触发脚本的人物
Break

[@检测]
#ACT
Mov N$角数 9
Mov N$角相加 <$STR(U41)>
INC N$角相加 <$STR(N$角数)>
goto @geiyu


[@geiyu]
#IF
LARGE N$角相加 9
#ACT
Mov N$元数量 <$STR(U40)>
Mov N$元相加 <$STR(N$角相加)>
DEC N$元相加 2 2
DEC N$角相加 1 1
INC U40 <$STR(N$元相加)>
MESSAGEBOX 您当前还有<$STR(U40)>.<$STR(U41)>
Break

[@检测1]
#ACT
Mov U40 4
Mov U41 8
MESSAGEBOX 您当前还有<$STR(U40)>.<$STR(U41)>


[@A红包]
#ACT
GETRANDOMLINETEXT ..\QuestDiary\红包系统\活动红包A.txt <$STR(N$角数)>
Mov N$角数 9
Mov N$角相加 <$STR(U41)>
INC N$角相加 <$STR(N$角数)>
SENDMSG 6 当前角数<$STR(N$角相加)>
goto @geiyu2


[@geiyu2]
#IF
LARGE N$角相加 9
#ACT
Mov N$元数量 <$STR(U40)>
Mov N$元相加 <$STR(N$角相加)>
Mov S$元相加 <$STR(N$元相加)>
Mov S$角相加 <$STR(N$角相加)>
INC S$元相加 +
DEC S$元相加 2 3
DEC S$角相加 1 1
Mov N$元相加 <$STR(S$元相加)>
Mov N$角相加 <$STR(S$角相加)>
INC U40 <$STR(N$元相加)>
Mov U41 <$STR(N$角相加)>
MESSAGEBOX 您当前还有<$STR(U40)>.<$STR(U41)>
Break

#IF
#ACT
INC U41 <$STR(N$角数)>
MESSAGEBOX 您当前还有<$STR(U40)>.<$STR(U41)>
Break

[@B红包]
#IF
#ACT
Movr N$行号 1 557
GetListString ..\QuestDiary\红包系统\活动红包B.txt <$STR(N$行号)> N$元数 N$角数
INC U40 <$STR(N$元数)>
Mov N$角相加 <$STR(U41)>
INC N$角相加 <$STR(N$角数)>
GOTO @geiyu3
Break

[@geiyu3]
#IF
LARGE N$角相加 9
#ACT
Mov N$元相加 <$STR(N$角相加)>
Mov S$元相加 <$STR(N$元相加)>
Mov S$角相加 <$STR(N$角相加)>
INC S$元相加 +
DEC S$元相加 2 3
DEC S$角相加 1 1
Mov N$元相加 <$STR(S$元相加)>
Mov N$角相加 <$STR(S$角相加)>
INC U40 <$STR(N$元相加)>
Mov U41 <$STR(N$角相加)>
MESSAGEBOX 您当前还有<$STR(U40)>.<$STR(U41)>...本次抽到<$STR(N$元数)>.<$STR(N$角数)>
Break

#IF
#ACT
INC U41 <$STR(N$角数)>
MESSAGEBOX 您当前还有<$STR(U40)>.<$STR(U41)>...本次抽到<$STR(N$元数)>.<$STR(N$角数)>
Break