2024-05-07
传奇沙城捐献脚本加抽取赞助一半作为沙巴克好玩给予，大部分玩家每购买一个赞助100，官方抽取一半50作为沙巴克好玩给予，攻沙胜利行会获得啥给予的55%佣金，仅限人物可以的两个行会，收取10%的平台提出+10%管理费佣金！沙给予以…形式发放。
沙城使者脚本+传送功能
以上脚本来自 诛仙之城忘忧神器Ⅱ单职业传奇服务端 完整脚本提取脚本请下载：
https://www.7bbz.com/fwd/mfbb/7937.html
[@Main]
#IF
Equal A1
#Act
Messagebox 合区后无法开启狂暴.
break
#IF
CheckContainsText <$Str(A1)> A
#Act
Mov S$分区 A
#IF
CheckContainsText <$Str(A1)> B
#Act
Mov S$分区 B
#IF
CheckContainsText <$Str(A1)> C
#Act
Mov S$分区 C
#IF
CheckContainsText <$Str(A1)> D
#Act
Mov S$分区 D
#IF
CheckContainsText <$Str(A1)> E
#Act
Mov S$分区 E
#IF
CheckContainsText <$Str(A1)> F
#Act
Mov S$分区 F
#IF
CheckContainsText <$Str(A1)> G
#Act
Mov S$分区 G
#IF
Not Equal S$分区
#Act
Getliststring ........通区文本沙城捐献<$Str(S$分区)>1.txt 0 N$区1
Getliststring ........通区文本沙城捐献<$Str(S$分区)>2.txt 0 N$区2
Getliststring ........通区文本沙城捐献<$Str(S$分区)>3.txt 0 N$区3
Getliststring ........通区文本沙城捐献<$Str(S$分区)>4.txt 0 N$区4
Getliststring ........通区文本沙城捐献<$Str(S$分区)>5.txt 0 N$区5
Getliststring ........通区文本沙城捐献<$Str(S$分区)>总计.txt 0 N$总计
Mov S$首区奖池 <$Str(N$区1)>
Mov S$二区奖池 <$Str(N$区2)>
Mov S$三区奖池 <$Str(N$区3)>
Mov S$四区奖池 <$Str(N$区4)>
Mov S$五区奖池 <$Str(N$区5)>
SetStringBlank S$首区奖池 6 1
SetStringBlank S$二区奖池 6 1
SetStringBlank S$三区奖池 6 1
SetStringBlank S$四区奖池 6 1
SetStringBlank S$五区奖池 6 1
#IF
#Act
Mov S$胜利方奖池 <$Str(N$总计)>
Mul S$胜利方奖池 55
Div S$胜利方奖池 100
Mov S$失败方奖池 <$Str(N$总计)>
Mul S$失败方奖池 35
Div S$失败方奖池 100
Mov S$服务器奖池 <$Str(N$总计)>
Mul S$服务器奖池 10
Div S$服务器奖池 100
#IF
#Act
CloseBigDialogBox
OpenmerChantBigdlg 16 170 1 4 10 -30 0 0 0 1
#Say
<ImgEx:19:47:48:49:470:-12/@Exit>
<Img:11:18:200:-30>
<Img:77:13:-85:-224>
<Text:大部分玩家每购买一个赞助100米，官方抽取一半50米作为沙巴克好玩给予！:130:-30/FCOLOR=250>
<Text:今日首区:180:-30/FCOLOR=243> {Text:已经累计沙城给予( <$Str(S$首区奖池)>元):180:-30/FCOLOR=146}
<Text:今日二区:180:-28/FCOLOR=243> {Text:已经累计沙城给予( <$Str(S$二区奖池)>元):180:-28/FCOLOR=146}
<Text:今日三区:180:-26/FCOLOR=243> {Text:已经累计沙城给予( <$Str(S$三区奖池)>元):180:-26/FCOLOR=146}
<Text:今日四区:180:-24/FCOLOR=243> {Text:已经累计沙城给予( <$Str(S$四区奖池)>元):180:-24/FCOLOR=146}
<Text:今日五区:180:-22/FCOLOR=243> {Text:已经累计沙城给予( <$Str(S$五区奖池)>元):180:-22/FCOLOR=146}
{Text:攻沙胜利行会获得啥给予的55%佣金：<$Str(S$胜利方奖池)>元！仅限人物可以的两个行会:40:-15/FCOLOR=70}
{Text:攻沙失败行会获得啥给予的35%佣金：<$Str(S$失败方奖池)>元！仅限人物可以的两个行会:40:-11/FCOLOR=70}
{Text:收取10%的平台提出+10%管理费佣金：<$Str(S$服务器奖池)>元！沙给予以…形式发放:40:-7/FCOLOR=70}
{Text:当前沙巴克奖池：<$Str(N$总计)>元:40:0/FCOLOR=146} {Text:沙城给予说明|253#沙奖说明：^251#一号次合区发放五个新区沙城奖池的50%！^251#第二次合区发放剩余沙城总奖池的50%^251#第三次合区发放剩余大部分沙城给予^251#四次合区以后每次合区管理发放1888米…作为好玩沙奖（只发胜利方）^-^253#友情提示：^242#一号次合区攻城血量高于800万的玩家，失败方须收纳，有过节得除外^242#如果双方实力差距非常大，大小号一边倒，一个会拿沙，此区给予减半，请掌门慎重收人:40:0/FCOLOR=251}
<Text:沙城武器店|253#每次传送扣除(2000)元宝:0:8/@Sccs01x> <Text:沙城服装店|253#每次传送扣除(2000)元宝:0:8/@Sccs02x> <Text:沙城 仓 库|253#每次传送扣除(2000)元宝:0:8/@Sccs03x>
<Text:沙城 大 门|253#每次传送扣除(2000)元宝:0:2/@Sccs04x> <Text:沙城复活点|253#每次传送扣除(2000)元宝:0:2/@Sccs05x> <Text:沙城集结点|253#每次传送扣除(2000)元宝:0:2/@Sccs06x>
[@Sccs01x]
#IF
CheckGamegold > 1999
#Act
Gamegold - 2000
MapMove 3 621 308
SendMsg 1 勇士「<$Username>」闯入了『沙城武器店』，好男儿志在沙巴克！ 249 251
SendMsg 1 勇士「<$Username>」闯入了『沙城武器店』，好男儿志在沙巴克！ 249 251
Break
#ElseAct
MessageBox [系统]： 材料不足！ 无法传送！~
Break
[@Sccs02x]
#IF
CheckGamegold > 1999
#Act
Gamegold - 2000
MapMove 3 655 271
SendMsg 1 勇士「<$Username>」闯入了『沙城服装店』，好男儿志在沙巴克！ 249 251
SendMsg 1 勇士「<$Username>」闯入了『沙城服装店』，好男儿志在沙巴克！ 249 251
Break
#ElseAct
MessageBox [系统]： 材料不足！ 无法传送！~
Break
[@Sccs03x]
#IF
CheckGamegold > 1999
#Act
Gamegold - 2000
MapMove 3 641 248
SendMsg 1 勇士「<$Username>」闯入了『沙城仓库』，好男儿志在沙巴克！ 249 251
SendMsg 1 勇士「<$Username>」闯入了『沙城仓库』，好男儿志在沙巴克！ 249 251
Break
#ElseAct
MessageBox [系统]： 材料不足！ 无法传送！~
Break
[@Sccs04x]
#IF
CheckGamegold > 1999
#Act
Gamegold - 2000
MapMove 3 676 337
SendMsg 1 勇士「<$Username>」闯入了『沙城大门』，好男儿志在沙巴克！ 249 251
SendMsg 1 勇士「<$Username>」闯入了『沙城大门』，好男儿志在沙巴克！ 249 251
Break
#ElseAct
MessageBox [系统]： 材料不足！ 无法传送！~
Break
[@Sccs05x]
#IF
CheckGamegold > 1999
#Act
Gamegold - 2000
MapMove 3 641 291
SendMsg 1 勇士「<$Username>」闯入了『沙城复活点』，好男儿志在沙巴克！ 249 251
SendMsg 1 勇士「<$Username>」闯入了『沙城复活点』，好男儿志在沙巴克！ 249 251
Break
#ElseAct
MessageBox [系统]： 材料不足！ 无法传送！~
Break
[@Sccs06x]
#IF
#Act
Map Sjhd01x
SendMsg 1 勇士「<$Username>」闯入了『沙城集合点』，好男儿志在沙巴克！ 249 251
SendMsg 1 勇士「<$Username>」闯入了『沙城集合点』，好男儿志在沙巴克！ 249 251
Break
------------------------------------------
赞助大使脚本：
[@Main]
#IF
CheckContainsText <$str(A1)> A
#Act
Mov S$分区 A
#IF
CheckContainsText <$str(A1)> B
#Act
Mov S$分区 B
#IF
CheckContainsText <$str(A1)> C
#Act
Mov S$分区 C
#IF
CheckContainsText <$str(A1)> D
#Act
Mov S$分区 D
#IF
CheckContainsText <$str(A1)> E
#Act
Mov S$分区 E
#IF
CheckContainsText <$str(A1)> F
#Act
Mov S$分区 F
#IF
CheckContainsText <$str(A1)> G
#Act
Mov S$分区 G
#IF
Not equal S$分区
#Act
Getliststring ........通区文本沙城捐献<$str(S$分区)>1.txt 0 N$区1
Getliststring ........通区文本沙城捐献<$str(S$分区)>2.txt 0 N$区2
Getliststring ........通区文本沙城捐献<$str(S$分区)>3.txt 0 N$区3
Getliststring ........通区文本沙城捐献<$str(S$分区)>4.txt 0 N$区4
Getliststring ........通区文本沙城捐献<$str(S$分区)>5.txt 0 N$区5
Getliststring ........通区文本沙城捐献<$str(S$分区)>总计.txt 0 N$总计
#IF
#Act
CloseBigDialogBox
OpenmerChantBigdlg 16 240 1 4 20 -30 1 514 4 1
#Say
<PlayImg:12:840:5:100:-25:25>
<PlayImg:12:810:10:100:238:0> <PlayImg:12:810:10:100:203:0> <PlayImg:12:810:10:100:168:0>
<PlayImg:12:810:10:100:200:0> <PlayImg:12:810:10:100:165:0> <PlayImg:12:810:10:100:130:0> <PlayImg:12:810:10:100:95:0>
<ItemShow:390:0:263:-55:1> <ItemShow:466:0:278:-55:1> <ItemShow:485:0:293:-55:1> <Text:X50:182:-48/FCOLOR=250> <Text:50W:226:-27/FCOLOR=251>
<ItemShow:358:0:226:-55:1> <ItemShow:374:0:240:-55:1> <ItemShow:514:0:255:-55:1> <ItemShow:511:0:271:-55:1>
<ImgEx:19:2000:2001:2002:315:-6|250#购买费用：15000点卷+100充米积分^253#充米100米即可获得15000点卷+100充米积分/@Gmzz01x>
<Text:开区两小时内购买每一个赞助100米，官方抽取50米做为沙巴克好玩给予！:138:4/FCOLOR=249>
[@Gmzz01x]
#IF
CheckGamegird < 15000
#Act
MessageBox {[系统]：/FCOLOR=249} {你的点卷不足15000！/FCOLOR=70} {建议您充米后尝试购买！~/FCOLOR=70}
Break
#IF
CheckGameGlory < 100
#Act
MessageBox {[系统]：/FCOLOR=249} {你的充米积分不足100！/FCOLOR=70} {建议您充米后尝试购买！~/FCOLOR=70}
Break
#IF
Check [10] 1
#Act
MessageBox {[系统]：/FCOLOR=249} {你已经购买过贵族赞助！/FCOLOR=70}
Break
#IF
Large G997 0
Checktextlist ..QuestDiary测试给予服务器状态控制.txt 开区
#Act
Goto @金额进入奖池
#ElseAct
Goto @金额不入奖池
[@金额进入奖池]
#IF
CheckGamegird > 14999
CheckGameGlory > 99
#Act
Gamegird - 15000
Give 渡天轮の隐身 1
Give 经验宝箱 50
Gamegold + 500000
Give 无畏·佩 1
Give 修罗·印 1
AddSkill 半月弯刀 3
AddSkill 群体施毒术 3
Set [10] 1
#IF
CheckContainsText <$str(A1)> A
#Act
Mov S$分区 A
#IF
CheckContainsText <$str(A1)> B
#Act
Mov S$分区 B
#IF
CheckContainsText <$str(A1)> C
#Act
Mov S$分区 C
#IF
CheckContainsText <$str(A1)> D
#Act
Mov S$分区 D
#IF
CheckContainsText <$str(A1)> E
#Act
Mov S$分区 E
#IF
CheckContainsText <$str(A1)> F
#Act
Mov S$分区 F
#IF
CheckContainsText <$str(A1)> F
#Act
Mov S$分区 G
#IF
CheckContainsText <$str(A1)> 1
#Act
Mov N$区号 1
#IF
CheckContainsText <$str(A1)> 2
#Act
Mov N$区号 2
#IF
CheckContainsText <$str(A1)> 3
#Act
Mov N$区号 3
#IF
CheckContainsText <$str(A1)> 4
#Act
Mov N$区号 4
#IF
CheckContainsText <$str(A1)> 5
#Act
Mov N$区号 5
#IF
#Act
Getliststring ........通区文本沙城捐献<$str(S$分区)><$Str(N$区号)>.txt 0 N$本区
Clearnamelist ........通区文本沙城捐献<$str(S$分区)><$Str(N$区号)>.txt
Inc N$本区 50
Addtextlistex ........通区文本沙城捐献<$str(S$分区)><$Str(N$区号)>.txt <$str(N$本区)> 0
Getliststring ........通区文本沙城捐献<$str(S$分区)>总计.txt 0 N$总计
Clearnamelist ........通区文本沙城捐献<$str(S$分区)>总计.txt
Inc N$总计 50
Addtextlistex ........通区文本沙城捐献<$str(S$分区)>总计.txt <$str(N$总计)> 0
#Call [游戏登陆攻击倍数.txt] @攻击倍数
SendMsg 0 ぐ赞助大使：玩家[<$Username>]成功激活了贵族赞助，本服100米满赞助，其余没有隐藏花消！！！！ 253 0
SendMsg 0 ぐ赞助大使：玩家[<$Username>]成功激活了贵族赞助，本服100米满赞助，其余没有隐藏花消！！！！ 253 0
SendMsg 0 ぐ赞助大使：玩家[<$Username>]成功激活了贵族赞助，本服100米满赞助，其余没有隐藏花消！！！！ 253 0
SendMsg 0 ぐ赞助大使：玩家[<$Username>]成功激活了贵族赞助，本服100米满赞助，其余没有隐藏花消！！！！ 253 0
Break
[@金额不入奖池]
#IF
CheckGamegird > 14999
CheckGameGlory > 99
#Act
Gamegird - 15000
Give 渡天轮の隐身 1
Give 经验宝箱 50
Gamegold + 500000
Give 无畏·佩 1
Give 修罗·印 1
AddSkill 半月弯刀 3
AddSkill 群体施毒术 3
Set [10] 1
SendMsg 0 ぐ赞助大使：玩家[<$Username>]成功激活了贵族赞助，本服100米满赞助，其余没有隐藏花消！！！！ 253 0
SendMsg 0 ぐ赞助大使：玩家[<$Username>]成功激活了贵族赞助，本服100米满赞助，其余没有隐藏花消！！！！ 253 0
SendMsg 0 ぐ赞助大使：玩家[<$Username>]成功激活了贵族赞助，本服100米满赞助，其余没有隐藏花消！！！！ 253 0
SendMsg 0 ぐ赞助大使：玩家[<$Username>]成功激活了贵族赞助，本服100米满赞助，其余没有隐藏花消！！！！ 253 0
Break
上一篇:
转生轮回封神30转后期转生脚本
下一篇:
GEE项链幸运脚本，项链幸运+5随机获得1-10点暴击
