; (@@InPutInteger) [@main] #IF LARGE G80 60 ISADMIN #ACT MOV G80 60 ClearNAMELIST ..QuestDiary华夏数据斗鸡玩家.txt ClearNAMELIST ..QuestDiary华夏数据赌博数据.txt MOV A61 无 MOV A62 无 MOV A63 无 MOV A64 无
; (@@InPutInteger) [@main] #IF LARGE G80 60 ISADMIN #ACT MOV G80 60 ClearNAMELIST ..QuestDiary华夏数据斗鸡玩家.txt ClearNAMELIST ..QuestDiary华夏数据赌博数据.txt MOV A61 无 MOV A62 无 MOV A63 无 MOV A64 无 MOV A65 无 MOV A66 无 MOV G61 0 MOV G62 0 MOV G63 0 MOV G64 0 MOV G65 0 MOV G66 0 MOV G79 0 MOV G90 0 MOV N1 0 MOV N2 0 MOV N3 0 MOV N4 0 MOV N5 0 MOV N6 0 GOTO @MAIN BREAK #IF LARGE G80 60 #ACT MESSAGEBOX 请稍等，所有大公鸡正在调整状态！斗鸡大赛马上开始新一局！ BREAK #IF #ACT OpenBigDialogBox 1 #SAY ★☆★斗鸡大赛/AUTOCOLOR=243,242,254,249,146,158★☆★ 目前奖池总注为/SCOLOR=250：$STR(G79) 开奖倒计时：【/SCOLOR=253$STR(G80)】/SCOLOR=253秒 ①号/SCOLOR=250大公鸡 竞价抢注/@@InPutInteger1 下注者/SCOLOR=242：$STR(A61) 赌金/SCOLOR=58：$STR(G61) ②号/SCOLOR=250大公鸡 竞价抢注/@@InPutInteger2 下注者/SCOLOR=242：$STR(A62) 赌金/SCOLOR=58：$STR(G62) ③号/SCOLOR=250大公鸡 竞价抢注/@@InPutInteger3 下注者/SCOLOR=242：$STR(A63) 赌金/SCOLOR=58：$STR(G63) ④号/SCOLOR=250大公鸡 竞价抢注/@@InPutInteger4 下注者/SCOLOR=242：$STR(A64) 赌金/SCOLOR=58：$STR(G64) ⑤号/SCOLOR=250大公鸡 竞价抢注/@@InPutInteger5 下注者/SCOLOR=242：$STR(A65) 赌金/SCOLOR=58：$STR(G65) ⑥号/SCOLOR=250大公鸡 竞价抢注/@@InPutInteger6 下注者/SCOLOR=242：$STR(A66) 赌金/SCOLOR=58：$STR(G66) 关于赌金：/SCOLOR=254最少100/SCOLOR=250元宝，最多100000/SCOLOR=250元宝，下注后请不要下线/SCOLOR=250 目前启动起数/SCOLOR=146：[/SCOLOR=58$STR(G78)]/SCOLOR=58 获胜次数统计： 上局获胜大公鸡/SCOLOR=254：【/SCOLOR=253$STR(A89)】/SCOLOR=253号 ①/SCOLOR=250号[/SCOLOR=58$STR(G71)]/SCOLOR=58次 ②/SCOLOR=250号[/SCOLOR=58$STR(G72)]/SCOLOR=58次 ③/SCOLOR=250号[/SCOLOR=58$STR(G73)]/SCOLOR=58次 ④/SCOLOR=250号[/SCOLOR=58$STR(G74)]/SCOLOR=58次 ⑤/SCOLOR=250号[/SCOLOR=58$STR(G75)]/SCOLOR=58次 ⑥/SCOLOR=250号[/SCOLOR=58$STR(G76)]/SCOLOR=58次 游戏规则：/SCOLOR=58 所有玩家有①分钟的时间用来抢注和下注，下注结束后等待轮盘转动/SCOLOR=243 轮盘停在几号则此号的下注者获得奖励/SCOLOR=243 奖励说明：(总奖金/SCOLOR=243+赌金/SCOLOR=243)/2 玩家之间相互娱乐，所有结果与本服无关/SCOLOR=243 手动刷新/飞飞传奇@main 开启/@ 关闭/@ 自动刷新/SCOLOR=254 ;------------------------------------------------------------------------------------------------------------ [@InPutInteger1] #IF LARGE G80 60 #ACT MESSAGEBOX 请稍等，所有大公鸡正在调整状态！斗鸡大赛马上开始新一局！ BREAK #IF EQUAL G80 0 #ACT MESSAGEBOX 斗鸡已经开始，无法下注，请等待下一轮开始！ BREAK #IF LARGE N1 100000 #ACT MESSAGEBOX 押注失败，请输入100-100000元宝之间的赌注！ BREAK #IF SMALL N1 100 #ACT MESSAGEBOX 押注失败，请输入100-100000元宝之间的赌注！ BREAK #IF CHECKGAMEGOLD $STR(N1) #ACT MESSAGEBOX 你的元宝余额不足[$STR(N1)]，请充值或者降低押注赌金！ BREAK #IF SMALL N1 $STR(G61) #ACT MESSAGEBOX 下注小于当前[$STR(A61)]的[$STR(G61)]元宝赌金，请充值或者更换大公鸡！ BREAK #IF EQUAL N1 $STR(G61) #ACT MESSAGEBOX 下注等于当前[$STR(A61)]的[$STR(G61)]元宝赌金，请充值或者更换大公鸡！ BREAK #IF EQUAL G61 0 #ACT GAMEGOLD - $STR(N1) INC G79 $STR(N1) MOV A61 $USERNAME MOV G61 $STR(N1) CALCVAR HUMAN ① = $STR(N1) SAVEVAR HUMAN ① ..QuestDiary华夏数据赌博数据.txt ADDNAMELIST ..QuestDiary华夏数据斗鸡玩家.txt SenDMSG 4 玩家[%s]下注[$STR(N1)]元宝抢注①号大公鸡！ GuildNoticeMsg 251 4 玩家[%s]下注[$STR(N1)]元宝抢注①号大公鸡！ MAP GOTO @MAIN BREAK #IF #ACT GAMEGOLD - $STR(N1) MOV S61 $STR(A61) MOV S161 $STR(G61) DEC G79 $STR(S161) INC G79 $STR(N1) DelTextList .QuestDiary华夏数据斗鸡玩家.txt $STR(S61) S61.GuildNoticeMsg 4 251 玩家[%s]下注[$STR(N1)]元宝超过您的[$HUMAN(①)]抢注了您的①号大公鸡！ SELF S61.GAMEGOLD + $HUMAN(①) S61.CALCVAR HUMAN ① = 0 S61.SAVEVAR HUMAN ① ..QuestDiary华夏数据赌博数据.txt MOV A61 $USERNAME MOV G61 $STR(N1) CALCVAR HUMAN ① = $STR(N1) SAVEVAR HUMAN ① ..QuestDiary华夏数据赌博数据.txt ADDNAMELIST 牛牛传奇私服..QuestDiary华夏数据斗鸡玩家.txt SenDMSG 4 玩家[%s]下注[$STR(N1)]元宝抢注①号大公鸡！ GuildNoticeMsg 251 4 玩家[%s]下注[$STR(N1)]元宝抢注①号大公鸡！ MAP GOTO @MAIN BREAK ;------------------------------------------------------------------------------------------------------------ [@InPutInteger2] #IF LARGE G80 60 #ACT MESSAGEBOX 请稍等，所有大公鸡正在调整状态！斗鸡大赛马上开始新一局！ BREAK #IF EQUAL G80 0 #ACT MESSAGEBOX 斗鸡已经开始，无法下注，请等待下一轮开始！ BREAK #IF LARGE N2 100000 #ACT MESSAGEBOX 押注失败，请输入100-100000元宝之间的赌注！ BREAK #IF SMALL N2 100 #ACT MESSAGEBOX 押注失败，请输入100-100000元宝之间的赌注！ BREAK #IF CHECKGAMEGOLD $STR(N2) #ACT MESSAGEBOX 你的元宝余额不足[$STR(N2)]，请充值或者降低押注赌金！ BREAK #IF SMALL N2 $STR(G62) #ACT MESSAGEBOX 下注小于当前[$STR(A62)]的[$STR(G62)]元宝赌金，请充值或者更换大公鸡！ BREAK #IF EQUAL N2 $STR(G62) #ACT MESSAGEBOX 下注等于当前[$STR(A62)]的[$STR(G62)]元宝赌金，请充值或者更换大公鸡！ BREAK #IF EQUAL G62 0 #ACT GAMEGOLD - $STR(N2) INC G79 $STR(N2) MOV A62 $USERNAME MOV G62 $STR(N2) CALCVAR HUMAN ② = $STR(N2) SAVEVAR HUMAN ② ..QuestDiary华夏数据赌博数据.txt ADDNAMELIST ..QuestDiary华夏数据斗鸡玩家.txt SenDMSG 4 玩家[%s]下注[$STR(N2)]元宝抢注②号大公鸡！ GuildNoticeMsg 251 4 玩家[%s]下注[$STR(N2)]元宝抢注②号大公鸡！ MAP GOTO @MAIN BREAK #IF #ACT GAMEGOLD - $STR(N2) MOV S62 $STR(A62) MOV S162 $STR(G62) DEC G79 $STR(S162) INC G79 $STR(N2) DelTextList .QuestDiary华夏数据斗鸡玩家.txt $STR(S62) S62.GuildNoticeMsg 4 251 玩家[%s]下注[$STR(N2)]元宝超过您的[$HUMAN(②)]抢注了您的②号大公鸡！ SELF S62.GAMEGOLD + $HUMAN(②) S62.CALCVAR HUMAN ② = 0 S62.SAVEVAR HUMAN ② ..QuestDiary华夏数据赌博数据.txt MOV A62 $USERNAME MOV G62 $STR(N2) CALCVAR HUMAN ② = $STR(N2) SAVEVAR HUMAN ② ..QuestDiary华夏数据赌博数据.txt ADDNAMELIST ..QuestDiary华夏数据斗鸡玩家.txt SenDMSG 4 玩家[%s]下注[$STR(N2)]元宝抢注②号大公鸡！ GuildNoticeMsg 251 4 玩家[%s]下注[$STR(N2)]元宝抢注②号大公鸡！ MAP GOTO @MAIN BREAK ;------------------------------------------------------------------------------------------------------------ [@InPutInteger3] #IF LARGE G80 60 #ACT MESSAGEBOX 请稍等，所有大公鸡正在调整状态！斗鸡大赛马上开始新一局！ BREAK #IF EQUAL G80 0 #ACT MESSAGEBOX 斗鸡已经开始，无法下注，请等待下一轮开始！ BREAK #IF LARGE N3 100000 #ACT MESSAGEBOX 押注失败，请输入100-100000元宝之间的赌注！ BREAK #IF SMALL N3 100 #ACT MESSAGEBOX 押注失败，请输入100-100000元宝之间的赌注！ BREAK #IF CHECKGAMEGOLD $STR(N3) #ACT MESSAGEBOX 你的元宝余额不足[$STR(N3)]，请充值或者降低押注赌金！ BREAK #IF SMALL N3 $STR(G63) #ACT MESSAGEBOX 下注小于当前[$STR(A63)]的[$STR(G63)]元宝赌金，请充值或者更换大公鸡！ BREAK #IF EQUAL N3 $STR(G63) #ACT MESSAGEBOX 下注等于当前[$今日新开传奇三私服STR(A63)]的[$STR(G63)]元宝赌金，请充值或者更换大公鸡！ BREAK #IF EQUAL G63 0 #ACT GAMEGOLD - $STR(N3) INC G79 $STR(N3) MOV A63 $USERNAME MOV G63 $STR(N3) CALCVAR HUMAN ③ = $STR(N3) SAVEVAR HUMAN ③ ..QuestDiary华夏数据赌博数据.txt SenDMSG 4 玩家[%s]下注[$STR(N3)]元宝抢注③号大公鸡！ ADDNAMELIST ..QuestDiary华夏数据斗鸡玩家.txt GuildNoticeMsg 251 4 玩家[%s]下注[$STR(N3)]元宝抢注③号大公鸡！ MAP GOTO @MAIN BREAK #IF #ACT GAMEGOLD - $STR(N3) MOV S63 $STR(A63) MOV S163 $STR(G63) DEC G79 $STR(S163) INC G79 $STR(N3) DelTextList .QuestDiary华夏数据斗鸡玩家.txt $STR(S63) S63.GuildNoticeMsg 4 251 玩家[%s]下注[$STR(N3)]元宝超过您的[$HUMAN(③)]抢注了您的③号大公鸡！ SELF S63.GAMEGOLD + $HUMAN(③) S63.CALCVAR HUMAN ③ = 0 S63.SAVEVAR HUMAN ③ ..QuestDiary华夏数据赌博数据.txt MOV A63 $USERNAME MOV G63 $STR(N3) CALCVAR HUMAN ③ = $STR(N3) SAVEVAR HUMAN ③ ..QuestDiary华夏数据赌博数据.txt ADDNAMELIST ..QuestDiary华夏数据斗鸡玩家.txt SenDMSG 4 玩家[%s]下注[$STR(N3)]元宝抢注③号大公鸡！ GuildNoticeMsg 251 4 玩家[%s]下注[$STR(N3)]元宝抢注③号大公鸡！ MAP GOTO @MAIN BREAK ;------------------------------------------------------------------------------------------------------------ [@InPutInteger4] #IF LARGE G80 60 #ACT MESSAGEBOX 请稍等，所有大公鸡正在调整状态！斗鸡大赛马上开始新一局！ BREAK #IF EQUAL G80 0 #ACT MESSAGEBOX 斗鸡已经开始，无法下注，请等待下一轮开始！ BREAK #IF LARGE N4 100000 #ACT MESSAGEBOX 押注失败，请输入100-100000元宝之间的赌注！ BREAK #IF SMALL N4 100 #ACT MESSAGEBOX 押注失败，请输入100-100000元宝之间的赌注！ BREAK #IF CHECKGAMEGOLD $STR(N4) #ACT MESSAGEBOX 你的元宝余额不足[$STR(N4)]，请充值或者降低押注赌金！ BREAK #IF SMALL N4 $STR(G64) #ACT MESSAGEBOX 下注小于当前[$STR(A64)]的[$STR(G64)]元宝赌金，请充值或者更换大公鸡！ BREAK #IF EQUAL N4 $STR(G64) #ACT MESSAGEBOX 下注等于当前[$STR(A64)]的[$STR(G64)]元宝赌金，请充值或者更换大公鸡！ BREAK #IF EQUAL G64 0 #ACT GAMEGOLD - $STR(N4) INC G79 $STR(N4) MOV A64 $USERNAME MOV G64 $STR(N4) CALCVAR HUMAN ④ = $STR(N4) SAVEVAR HUMAN ④ ..QuestDiary华夏数据赌博数据.txt ADDNAMELIST ..QuestDiary华夏数据斗鸡玩家.txt SenDMSG 4 玩家[%s]下注[$STR(N4)]元宝抢注④号大公鸡！ GuildNoticeMsg 251 4 玩家[%s]下注[$STR(N4)]元宝抢注④号大公鸡！ MAP GOTO @MAIN BREAK #IF #ACT GAMEGOLD - $STR(N4) MOV S64 $STR(A64) MOV S164 $STR(G64) DEC G79 $STR(S164) INC G79 $STR(N4) DelTextList .QuestDiary华夏数据斗鸡玩家.txt $STR(S64) S64.GuildNoticeMsg 4 251 玩家[%s]下注[$STR(N4)]元宝超过您的[$HUMAN(④)]抢注了您的④号大公鸡！ SELF S64.GAMEGOLD + $HUMAN(④) S64.CALCVAR HUMAN ④ = 0 S64.SAVEVAR HUMAN ④ ..QuestDiary华夏数据赌博数据.txt MOV A64 $USERNAME MOV G64 $STR(N4) CALCVAR HUMAN ④ = $STR(N4) SAVEVAR HUMAN ④ ..QuestDiary华夏数据赌博数据.txt ADDNAMELIST ..QuestDiary华夏数据斗鸡玩家.txt SenDMSG 4 玩家[%s]下注[$STR(N4)]元宝抢注④号大公鸡！ GuildNoticeMsg 251 4 玩家[%s]下注[$STR(N4)]元宝抢注④号大公鸡！ MAP GOTO @MAIN BREAK ;------------------------------------------------------------------------------------------------------------ [@InPutInteger5] #IF LARGE G80 60 #ACT MESSAGEBOX 请稍等，所有大公鸡正在调整状态！斗鸡大赛马上开始新一局！ BREAK #IF EQUAL G80 0 #ACT MESSAGEBOX 斗鸡已经开始，无法下注，请等待下一轮开始！ BREAK #IF LARGE N5 100000 #ACT MESSAGEBOX 押注失败，请输入100-100000元宝之间的赌注！ BREAK #IF SMALL N5 100 #ACT MESSAGEBOX 押注失败，请输入100-100000元宝之间的赌注！ BREAK #IF CHECKGAMEGOLD $STR(N5) #ACT MESSAGEBOX 你的元宝余额不足[$STR(N5)]，请充值或者降低押注赌金！ BREAK #IF SMALL N5 $STR(G65) #ACT MESSAGEBOX 下注小于当前[$STR(A65)]的[$STR(G65)]元宝赌金，请充值或者更换大公鸡！ BREAK #IF EQUAL N5 $STR(G65) #ACT MESSAGEBOX 下注等于当前[$STR(A65)]的[$STR(G65)]元宝赌金，请充值或者更换大公鸡！ BREAK #IF EQUAL G65 0 #ACT GAMEGOLD - $STR(N5) INC G79 $STR(N5) MOV A65 $USERNAME MOV G65 $STR(N5) CALCVAR HUMAN ⑤ = $STR(N5) SAVEVAR HUMAN ⑤ ..QuestDiary华夏数据赌博数据.txt ADDNAMELIST ..QuestDiary华夏数据斗鸡玩家.txt SenDMSG 4 玩家[%s]下注[$STR(N5)]元宝抢注⑤号大公鸡！ GuildNoticeMsg 251 4 玩家[%s]下注[$STR(N5)]元宝抢注⑤号大公鸡！ MAP GOTO @MAIN BREAK #IF #ACT GAMEGOLD - $STR(N5) MOV S65 $STR(A65) MOV S165 $STR(G65) DEC G79 $STR(S165) INC G79 $STR(N5) DelTextList .QuestDiary华夏数据斗鸡玩家.txt $STR(S65) S65.GuildNoticeMsg 4 251 玩家[%s]下注[$STR(N5)]元宝超过您的[$HUMAN(⑤)]抢注了您的⑤号大公鸡！ SELF S65.GAMEGOLD + $HUMAN(⑤) S65.CALCVAR HUMAN ⑤ = 0 S65.SAVEVAR HUMAN ⑤ ..QuestDiary华夏数据赌博数据.txt MOV A65 $USERNAME MOV G65 $STR(N5) CALCVAR HUMAN ⑤ = $STR(N5) SAVEVAR HUMAN ⑤ ..QuestDiary华夏数据赌博数据.txt ADDNAMELIST ..QuestDiary华夏数据斗鸡玩家.txt SenDMSG 4 玩家[%s]下注[$STR(N5)]元宝抢注⑤号大公鸡！ GuildNoticeMsg 251 4 玩家[%s]下注[$STR(N5)]元宝抢注⑤号大公鸡！ MAP GOTO @MAIN BREAK ;------------------------------------------------------------------------------------------------------------ [@InPutInteger6] #IF LARGE G80 60 #ACT MESSAGEBOX 请稍等，所有大公鸡正在调整状态！斗鸡大赛马上开始新一局！ BREAK #IF EQUAL G80 0 #ACT MESSAGEBOX 斗鸡已经开始，无法下注，请等待下一轮开始！ BREAK #IF LARGE N6 100000 #ACT MESSAGEBOX 押注失败，请输入100-100000元宝之间的赌注！ BREAK #IF SMALL N6 100 #ACT MESSAGEBOX 押注失败，请输入100-100000元宝之间的赌注！ BREAK #IF CHECKGAMEGOLD $STR(N6) #ACT MESSAGEBOX 你的元宝余额不足[$STR(N6)]，请充值或者降低押注赌金！ BREAK #IF SMALL N6 $STR(G66) #ACT MESSAGEBOX 下注小于当前[$STR(A66)]的[$STR(G66)]元宝赌金，请充值或者更换大公鸡！ BREAK #IF EQUAL N6 $STR(G66) #ACT MESSAGEBOX 下注等于当前[$STR(A66)]的[$STR(G66)]元宝赌金，请充值或者更换大公鸡！ BREAK #IF EQUAL G66 0 #ACT GAMEGOLD - $STR(N6) INC G79 $STR(N6) MOV A66 $USERNAME MOV G66 $STR(N6) CALCVAR HUMAN ⑥ = $STR(N6) SAVEVAR HUMAN ⑥ ..QuestDiary华夏数据赌博数据.txt ADDNAMELIST ..QuestDiary华夏数据斗鸡玩家.txt SenDMSG 4 玩家[%s]下注[$STR(N6)]元宝抢注⑥号大公鸡！ GuildNoticeMsg 251 4 玩家[%s]下注[$STR(N6)]元宝抢注⑥号大公鸡！ MAP GOTO @MAIN BREAK #IF #ACT GAMEGOLD - $STR(N6) MOV S66 $STR(A66) MOV S166 $STR(G66) DEC G79 $STR(S166) INC G79 $STR(N6) DelTextList .QuestDiary华夏数据斗鸡玩家.txt $STR(S66) S66.GuildNoticeMsg 4 251 玩家[%s]下注[$STR(N6)]元宝超过您的[$HUMAN(⑥)]抢注了您的⑥号大公鸡！ SELF S66.GAMEGOLD + $HUMAN(⑥) S66.CALCVAR HUMAN ⑥ = 0 S66.SAVEVAR HUMAN ⑥ ..QuestDiary华夏数据赌博数据.txt MOV A66 $USERNAME MOV G66 $STR(N6) CALCVAR HUMAN ⑥ = $STR(N6) SAVEVAR HUMAN ⑥ ..QuestDiary华夏数据赌博数据.txt ADDNAMELIST ..QuestDiary华夏数据斗鸡玩家.txt SenDMSG 4 玩家[%s]下注[$STR(N6)]元宝抢注⑥号大公鸡！ GuildNoticeMsg 251 4 玩家[%s]下注[$STR(N6)]元宝抢注⑥号大公鸡！ MAP GOTO @MAIN BREAK
TAGS：热血传奇石
