热点推荐

小喇叭+ 发布

01-16 02:17
01-16 02:04
01-13 17:30
查看: 699|回复: 0

[脚本示例] 传奇服务端武器装备幸运大转盘脚本

[复制链接]
avatar

签到天数: 350 天

[LV.8]以坛为家I

7651

主题

255

回帖

31万

积分

司徒主管

Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20

UID
1
司徒币
260195
传世币
3000
元宝
0
在线时间
266 小时

最佳新人灌水之王

QQ
online_admin 发表于 2022-1-22 07:53:04 | 显示全部楼层 |阅读模式
传奇服务端武器装备幸运大转盘脚本,对不起,你的金元不足1个,无法开启【幸运大转盘】,对不起,你的包裹不足2格,无法开启幸运大转盘

完整脚本下载地址:https://www.gm055.com/fwd/ngbb/7776.html

        [@main]
        #IF
        Small U8 1
        #Act
        MessageBox 对不起,你的金元不足1个,无法开启【幸运大转盘】!
        break
       
        #IF
        not CheckBagSize 2
        #Act
        MessageBox 对不起,你的包裹不足2格,无法开启幸运大转盘!
        break
       
        #IF
        CheckLevelEx > 0
        #ACT
        Mov N$古德转盘素材编号 243
       
        Mov S$古德转盘奖池目录 ..QuestDiary晴天大转盘
       
        ;下面是需求金元数量
        Mov N$古德转动一次金元 10
        Mov N$古德刷新奖池金元 1
       
        ;设置大对话框
        OPENMERCHANTBIGDLG  0 0 4 10 -80 1 613 60 1
       
        #IF
        Equal N$古德转盘领取状态 1
        #ACT
        Goto @大转盘领取啦
        Break
        #ElseAct
        Goto @大转盘刷新
        break
       
        ;-------------------------------------------------------------------------------------------------
       
        [@领取大转盘显示]
        #IF
        Equal N$古德转盘领取状态 1
        #ACT
        Break
        #SAY
       
         
             
       
                           
       
       
       
        ;-------------------------------------------------------------------------------------------------
        [@大转盘领取啦]
        #IF
        Equal N$古德转盘领取状态 1
        #ACT
        SHOWPROGRESSBARDLG 1 @提取完成 正在提取奖品,进度%d%... 0
        DelayCall 1000 @提取完成
        break
       
       
        [@提取完成]
        #IF
        Equal N$古德转盘领取状态 1
        #ACT
        Mov N$古德转盘领取状态 0
        Give  1
        MessageBox 恭喜你获得幸运大转盘奖品《》
        SendMsg 0 玩家[{【%s】|254:241}]竟然在{[幸运大转盘]|250:241}抽到了{[]|251:241} 15 20。
        SendNewLineMsg 0 254 252 15 80 5 1 震惊!玩家:[{|250:0}]竟然在。{幸运大转盘|70:0}抽到了[{|249:0}]。
        Goto @大转盘刷新
        break
       
       
       
        ;-------------------------------------------------------------------------------------------------
        [@检测大转盘刷新]
        #IF
        Small U8 1
        #Act
        MessageBox 对不起,你的金元不足1个,无法刷新大转盘!
        break
        #ElseAct
        Goto @大转盘刷新
        break
       
        [@大转盘刷新]
        #IF
        #ACT
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GETRANDOMLINETEXT 转盘奖池.txt
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
        GetDBItemFieldValue  idx
       
       
        GETRANDOMLINETEXT 每次必显示.txt
        GetDBItemFieldValue  idx
        Movr P1 1 29
        Mov N$古德转盘奖品
       
        Movr N$古德转盘载入延迟 2 3
        Mul N$古德转盘载入延迟 100
        DelayCall  @大转盘显示啦
        Break
        #SAY
       
                                 
        ;
       
       
        ;-------------------------------------------------------------------------------------------------
        [@大转盘显示啦]
        #IF
        CheckLevelEx > 1
        #ACT
        Mov S$古德转盘格子0
        Mov S$古德转盘格子1
        Mov S$古德转盘格子2
        Mov S$古德转盘格子3
        Mov S$古德转盘格子4
        Mov S$古德转盘格子5
        Mov S$古德转盘格子6
        Mov S$古德转盘格子7
        Mov S$古德转盘格子8
        Mov S$古德转盘格子9
       
        Mov S$古德转盘格子10
        Mov S$古德转盘格子11
        Mov S$古德转盘格子12
        Mov S$古德转盘格子13
        Mov S$古德转盘格子14
       
        Mov S$古德转盘格子15
        Mov S$古德转盘格子16
        Mov S$古德转盘格子17
        Mov S$古德转盘格子18
        Mov S$古德转盘格子19
        Mov S$古德转盘格子20
        Mov S$古德转盘格子21
        Mov S$古德转盘格子22
        Mov S$古德转盘格子23
       
        Mov S$古德转盘格子24
        Mov S$古德转盘格子25
        Mov S$古德转盘格子26
        Mov S$古德转盘格子27
       
        Mov S$古德转盘格子显示
        Break
        #SAY
       
                          
         
               
       
       
       
       
        ;-------------------------------------------------------------------------------------------------
        [@开始大转盘1]
        #IF
        Small U8
        #ACT
        MessageBox 小伙子,转动一次需要金元!
        Break
        #ElseAct
        Dec U8
        Goto @奖品检测
        Break
       
       
        #SAY
       
         
             
       
                           
       
       
       
        ;-------------------------------------------------------------------------------------------------
        [@奖品检测]
        #IF
        CheckLevelEx > 1
        #Act
        Movr N$古德转盘停止随机 0 28
        Mov N$古德奖品定位
        Inc N$古德奖品定位 1
        Mov S$抽不到物品
       
        #IF
        CHECKTEXTLIST ..QuestDiary晴天大转盘抽不到物品.txt
        #Act
        Goto @奖品检测
        break
        #ElseAct
        DelayCall 1000 @开始大转盘2
        break
       
       
        [@开始大转盘2]
        #IF
        CheckLevelEx > 1
        #ACT
        Mov N$古德转盘奖品延迟
        Mul N$古德转盘奖品延迟 100
        Inc N$古德转盘奖品延迟 1
        Mov N$古德转盘格子x2
        Mul N$古德转盘格子x2 2
        Mov N$古德转盘停止格子 150
        Inc N$古德转盘停止格子
       
        Mov S$古德转盘格子闪光
        Mov N$古德转盘领取状态 1
        DelayCall 3000 @延迟1圈
        ;Goto @延迟一圈
        Break
        #SAY
       
         
             
       
       
                           
       
       
        [@延迟1圈]
        #IF
        CheckLevelEx > 1
        #ACT
        DelayCall 3000 @延迟2圈
        Break
        #SAY
       
         
             
       
                           
       
       
        [@延迟2圈]
        #IF
        CheckLevelEx > 1
        #ACT
        DelayCall  @开始大转盘3
        Break
        #SAY
       
         
             
       
                           
       
       
        ;-------------------------------------------------------------------------------------------------
        [@开始大转盘3]
        #IF
        Equal N$古德转盘领取状态 1
        #ACT
        Break
        #SAY
       
         
             
       
                           

帖子地址: 





上一篇:gm基地玄冰剑法脚本开关模式,对目标造成200%伤害80%几率使目标
下一篇:传奇GM后台管理脚本,刀锋传奇游戏后台管理系统
回复

使用道具 举报

懒得打字嘛,点击右侧快捷回复 【乱回复灌水将给予禁言处理】
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则