大家好，我们的王者数据传奇一条龙公司，我们王者数据秉着诚信经营的原则，将传奇sf架设的架设费用减到最低，
让玩家可以轻松拥有属于自己的传奇私服。下面我们介绍架设私服的一些脚本：
(@@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 |
/1 
