[Gm版本库]传奇脚本系列-裁判-斗鸡大赛

;
(@@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>大公鸡  <竞价抢注[url=]/@@InPutInteger1[/url]>    <下注者/SCOLOR=242>：<$STR(A61)>     <赌金/SCOLOR=58>：<$STR(G61)>\
<②号/SCOLOR=250>大公鸡  <竞价抢注[url=]/@@InPutInteger2[/url]>    <下注者/SCOLOR=242>：<$STR(A62)>     <赌金/SCOLOR=58>：<$STR(G62)>\
<③号/SCOLOR=250>大公鸡  <竞价抢注[url=]/@@InPutInteger3[/url]>    <下注者/SCOLOR=242>：<$STR(A63)>     <赌金/SCOLOR=58>：<$STR(G63)>\
<④号/SCOLOR=250>大公鸡  <竞价抢注[url=]/@@InPutInteger4[/url]>    <下注者/SCOLOR=242>：<$STR(A64)>     <赌金/SCOLOR=58>：<$STR(G64)>\
<⑤号/SCOLOR=250>大公鸡  <竞价抢注[url=]/@@InPutInteger5[/url]>    <下注者/SCOLOR=242>：<$STR(A65)>     <赌金/SCOLOR=58>：<$STR(G65)>\
<⑥号/SCOLOR=250>大公鸡  <竞价抢注[url=]/@@InPutInteger6[/url]>    <下注者/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>\ \
　　　　　　　　　　　　　　　　　　　　　　　　　 <手动刷新[url=]/@main[/url]>        <开启/@> <关闭/@> <自动刷新/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