３.[@Startup]
#CALL[重要设置全局变量.txt]@加载全局变量
;-------------------------------------------
[@Login]
#if
CHECKLEVELEX,0
#act
VARIntegerHUMAN捐献元宝
;游戏被杀计数
VARIntegerHUMAN消费积分
VARIntegerHUMAN元宝消费
VARIntegerHUMANGameKill01
VARIntegerHUMANGameBKill01
VARIntegerHUMAN超速值
LOADVARHUMAN消费积分..QuestDiary充值积分消费积分Save.txt
LOADVARHUMAN超速值..QuestDiary数据文件超速计数名单.txt
LOADVARHUMAN捐献元宝..QuestDiary数据文件捐献元宝.txt
LOADVARHUMANGameKill01..QuestDiary游戏登陆GameKill01Save.txt
LOADVARHUMANGameBKill01..QuestDiary游戏登陆GameBKill01Save.txt
set[799]0
set[798]0
set[69]0
set[004]0
set[005]0
MOVS23
#CALL[游戏登陆捐献排名.txt]@开始捐献排名
#CALL[游戏登陆捐献奖励.txt]@奖励
#CALL[游戏登陆赞助使者.txt]@赞助使者
#CALL[游戏登陆登陆脚本.txt]@登陆设置
#CALL[游戏登陆封号设置.txt]@封号设置
#CALL[游戏登陆初始脚本.txt]@登陆初始
#CALL[游戏登陆检测卡盾.txt]@解决卡盾
#CALL[游戏登陆人气值加持.txt]@人气值加持
#if
checknamelist..QuestDiary挂机.txt
#act
delnamelist..QuestDiary挂机.txt
#if
CHECK[125]1
#act
GuildNoticeMsg251249尊贵的会员玩家『%s』登陆游戏,大家热烈欢迎!
;#If
;CHECKLEVELEX,0
;#Act
;GMEXECUTE恢复禁言self
;-----------------------------------------------------------
[@MEMBER]
#CALL[重要设置后台管理.txt]@后台管理
;-----------------------------------------------------------
[@飞来飞去的安全区]
#IF
#ACT
#CALL[重要设置飞来飞去.txt]@到底怎么了
break
[@查看私人]
#IF
CHECKNAMELIST..QuestDiary重要数据鉴听名单.txt
#ACT
BREAK
#IF
ISADMIN
#ACT
BREAK
#IF
CHECKOFFLINE
#ACT
BREAK
#ELSEACT
ADDNAMELIST..QuestDiary重要数据鉴听名单.txt
BREAK
;-----------------------------------------------------------
[@恢复封号]
$STR(S1),
#ACT
#CALL[游戏登陆捐献奖励.txt]@奖励
#CALL[游戏登陆封号设置.txt]@封号设置
BREAK
;-----------------------------------------------------------
[@恢复封号2]
#ACT
goto@封号设置
BREAK
;-----------------------------------------------------------
[@更新捐献]
#ACT
LOADVARHUMAN捐献元宝..QuestDiary数据文件捐献元宝.txt
goto@封号设置
BREAK
;-----------------------------------------------------------
[@下注结束]
#IF
LARGEM700
#ACT
SENDMSG7ぐ【玩家坐游戏】：本局你下注【$STR(M70),】元宝押【$STR(S23),】
SENDMSG7ぐ【玩家坐游戏】：本局你下注【$STR(M70),】元宝押【$STR(S23),】
SENDMSG7ぐ【玩家坐游戏】：本局你下注【$STR(M70),】元宝押【$STR(S23),】
SENDMSG7ぐ【玩家坐游戏】：本局你下注【$STR(M70),】元宝押【$STR(S23),】
BREAK
[@猜点结帐]
#IF
check[68]1
#ACT
movD0$STR(I41),
movD1$STR(I42),
movD2$STR(I43),
playdice3@cube_cds3
break
#SAY
╔═══════════════╗你所拥有的元宝数：【$GAMEGOLD,】
║┏━━━┓┏━━━┓┏━━━┓║
║┃● ●┃┃● ●┃┃● ●┃║游戏家姓名：【$GLOBAL(游戏家姓名),】
║┃● ●┃┃● ●┃┃● ●┃║
║┃● ●┃┃● ●┃┃● ●┃║游戏家本钱数：【$GLOBAL(游戏家钱数),】
║┗━━━┛┗━━━┛┗━━━┛║
╚═══════════════╝你下注【$STR(M70),】元宝押【$STR(S23),】
#IF
CHECKVARGLOBAL游戏家姓名=$USERNAME,
#ACT
movD0$STR(I41),
movD1$STR(I42),
movD2$STR(I43),
playdice3@cube_cds4
break
[@猜点清零]
#ACT
SET[68]0
SET[69]0
MOVM700
MOVM720
MOVS23
BREAK
[@cube_cds3]
#if
equalI41$STR(I42),
EQUALI42$STR(I43),
#ACT
SENDMSG6ぐ提示：骰子点数为：$STR(D0),点。$STR(D1),点。$STR(D2),点！[$STR(I41),豹子.游戏家通吃]！
goto@猜点清零
BREAK
#ELSEACT
MOVD40
INCD4$STR(D0),
INCD4$STR(D1),
INCD4$STR(D2),
#IF
check[68]1
LARGED410
EQUALS23大
LARGEM700
#ACT
MULM72$STR(M70),2
GAMEGOLD+$STR(M72),
CALCVARGLOBAL奖金总数-$STR(M72),
SENDMSG6提示：骰子点数为：$STR(D0),点。$STR(D1),点。$STR(D2),点！！[$STR(D4),点大]！恭喜你中奖，你获得了$STR(M72),元宝的奖励！
GuildNoticeMsg252112ぐ【玩家坐游戏】：闲家[$USERNAME,]在玩家坐游戏az局中赢得元宝：$STR(M72),个！
SET[68]0
MOVM720
MOVM700
MOVS23
#IF
check[68]1
SMALLD411
EQUALS23小
LARGEM700
#ACT
MULM72$STR(M70),2
GAMEGOLD+$STR(M72),
CALCVARGLOBAL奖金总数-$STR(M72),
SENDMSG6提示：骰子点数为：$STR(D0),点。$STR(D1),点。$STR(D2),点！！[$STR(D4),点小]！恭喜你中奖，你获得了$STR(M72),元宝的奖励！
GuildNoticeMsg252112ぐ【玩家坐游戏】：闲家[$USERNAME,]在玩家坐游戏az局中赢得元宝：$STR(M72),个！
SET[68]0
MOVM720
MOVM700
MOVS23
#IF
check[68]1
#ACT
SENDMSG6提示：骰子点数为：$STR(D0),点。$STR(D1),点。$STR(D2),点！您猜大小猜错了！
goto@猜点清零
BREAK
[@cube_cds4]
#if
equalI41$STR(I42),
EQUALI42$STR(I43),
#ACT
SENDMSG6ぐ提示：骰子点数为：$STR(D0),点。$STR(D1),点。$STR(D2),点！[$STR(I41),豹子.游戏家通吃]！十秒后开始结帐,在结帐前请不要小退或离线！
BREAK
#say
提示：
骰子点数为：骰子点数为：$STR(D0),点。$STR(D1),点。$STR(D2),点！
[$STR(I41),豹子.游戏家通吃]，十秒后开始结帐！
在结帐前请不要离线或退出游戏！
#ELSEACT
MOVD40
INCD4$STR(D0),
INCD4$STR(D1),
INCD4$STR(D2),
#IF
LARGED410
CHECKVARGLOBAL游戏家姓名=$USERNAME,
#ACT
SENDMSG6ぐ提示：骰子点数为：骰子点数为：$STR(D0),点。$STR(D1),点。$STR(D2),点！[$STR(D4),点大]十秒后开始结帐,在结帐前请不要小退或离线！
BREAK
#say
提示：
骰子点数为：骰子点数为：$STR(D0),点。$STR(D1),点。$STR(D2),点！
[$STR(D4),点大]，十秒后开始结帐！
在结帐前请不要离线或退出游戏！
#IF
CHECKVARGLOBAL游戏家姓名=$USERNAME,
#ACT
SENDMSG6ぐ提示：骰子点数为：骰子点数为：$STR(D0),点。$STR(D1),点。$STR(D2),点！[$STR(D4),点小]十秒后开始结帐,在结帐前请不要小退或离线！
BREAK
#say
提示：
骰子点数为：骰子点数为：$STR(D0),点。$STR(D1),点。$STR(D2),点！
[$STR(D4),点小]，十秒后开始结帐！
在结帐前请不要离线或退出游戏！
[@游戏家结帐]
#IF
CHECKVARGLOBAL游戏家姓名=$USERNAME,
CHECKVARGLOBAL奖金总数=0
check[69]1
#act
set[69]0
GuildNoticeMsg1500ぐ【玩家坐游戏】：游戏家『$GLOBAL(游戏家姓名),』在az游戏中收回了【$GLOBAL(奖金总数),】元宝!
movI440
movI450
movI460
CLOSE
BREAK
#IF
CHECKVARGLOBAL游戏家姓名=$USERNAME,
check[69]1
#act
set[69]0
GAMEGOLD+$GLOBAL(奖金总数),
GuildNoticeMsg1500ぐ【玩家坐游戏】：游戏家『$GLOBAL(游戏家姓名),』在az游戏中收回了【$GLOBAL(奖金总数),】元宝!
movI440
movI450
movI460
CLOSE
BREAK。 |
４.[@攻沙计时]
#if
CHECKVARGLOBAL$自助攻城次数,1
#act
CALCVARGLOBAL$自助攻城状态=$开启
SAVEVARGLOBAL$自助攻城状态..QuestDiary自助攻城自定义全局变量数据.txt
#ELSEACT
CALCVARGLOBAL$自助攻城次数+1
SAVEVARGLOBAL$自助攻城次数..QuestDiary自助攻城自定义全局变量数据.txt
[@攻沙喊话]
#if
CHECKVARGLOBAL$自助攻城状态=$开启
#act
CALCVARGLOBAL$自助攻城显示=$本服今日攻城
SAVEVARGLOBAL$自助攻城显示..QuestDiary自助攻城自定义全局变量数据.txt
GuildNoticeMsg251235攻城：系统今天晚上⑧点开始首届沙巴克攻城战.胜利行会可以获得元宝奖励
break
[@设置攻沙]
#if
CHECKVARGLOBAL$自助攻城显示=$本服今日攻城
#act
CALCVARGLOBAL$沙城奖励发放=$暂未发放
SAVEVARGLOBAL$沙城奖励发放..QuestDiary自助攻城自定义全局变量数据.txt
AddAttackSabukAll0
GuildNoticeMsg250235攻城：⑧点钟开始沙巴克攻城战,请各大行会做好准备.
break
[@坐游戏游戏A]
#IF
EQUALG120
#ACT
GMEXECUTE开始提问@抢游戏开始
INCG121
BREAK
#IF
EQUALG1260
#ACT
GMEXECUTE开始提问@抢游戏结束
INCG121
BREAK
#IF
EQUALG1261
#ACT
GMEXECUTE开始提问@下注开始
INCG121
BREAK
#IF
EQUALG12117
#ACT
GMEXECUTE开始提问@下注结束
INCG121
BREAK
#IF
EQUALG12118
#ACT
MOVRG426
incG421
MOVRG436
incG431
MOVRG446
incG441
MOVG45$STR(G42),
INCG45$STR(G43),
INCG45$STR(G44),
INCG121
BREAK
#IF
EQUALG12119
EQUALG4551
#ACT
MOVG422
MOVG431
MOVG443
MOVG45$STR(G42),
INCG45$STR(G43),
INCG45$STR(G44),
MOVG4550
INCG121
BREAK
#IF
EQUALG12120
#ACT
GMEXECUTE开始提问@猜点开始
INCG121
BREAK
#IF
EQUALG12126
#ACT
GMEXECUTE开始提问@az游戏结帐
INCG121
BREAK
#IF
EQUALG12128
#ACT
GMEXECUTE开始提问@az游戏清零
MOVA33无
MOVG160
MOVG170
MOVG110
MOVG130
MOVG140
MOVG290
MOVG420
MOVG430
MOVG440
MOVG450
INCG121
BREAK
#IF
EQUALG12130
#ACT
MOVA34无
MOVG120
BREAK
#IF
#ACT
INCG121
BREAK
[@坐游戏游戏B]
#IF
#ACT
MOVG180
MOVG190
MOVG15130
DECG15$STR(G12),
MOVG11$STR(G13),
INCG11$STR(G14),
MOVG16$STR(G29),
INCG16$STR(G14),
DECG16$STR(G13),
MOVG17$STR(G29),
INCG17$STR(G13),
DECG17$STR(G14),
BREAK
[@坐游戏游戏C]
#IF
EQUALG12122
EQUALG42$STR(G43),
EQUALG42$STR(G44),
#ACT
MOVA33豹子
BREAK
#IF
EQUALG12122
SMALLG4511
#ACT
MOVA33小
BREAK
#IF
EQUALG12122
LARGEG4510
#ACT
MOVA33大
BREAK
[@清理数据]
#ACT
CLEARNAMELIST..QuestDiary游戏任务每日任务33.txt
BREAK
;--------------------------------------------------------------------------------------------
。 |
