传奇七号站-为优质资源而生分享无止境,七版本站Ctrl+D收藏本站!
登录后,享受更多优质服务哦

传奇沙城捐献脚本加抽取赞助一半作为沙巴克好玩给予

七号编辑 收藏
传奇沙城捐献脚本加抽取赞助一半作为沙巴克好玩给予,大部分玩家每购买一个赞助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


☉若无特殊注明本文皆为传奇版本库原创,转载请保留文章出处。
☉本站提供的资源来源网络收集,仅供学习研究之用切勿用于商业用途。
上一篇:GEE项链幸运脚本,项链幸运+5随机获得1-10点暴击
下一篇:转生轮回封神30转后期转生脚本

我要评论
说点什么吧
  • 全部评论(0
    还没有评论,快来抢沙发吧!