游客您好
第三方账号登陆
  • 点击联系客服

    在线时间:9:00-17:00

    联系QQ

    3543403617

    电子邮件

    3543403617@QQ.com
  • PKhuo手机版

    GM资源教程随时查询

  • 扫描二维码

    进传奇GM资源交流群

Lv.9 管理员
1号会员,0活跃值,2021.07.08 加入
  • 98372发帖
  • 94405主题
  • 0关注
  • 1粉丝
这个人很懒,什么也没有留下。
最新源码 更多>
游戏视频 更多>
脚本教程 更多>

[BLUE引擎] BLUE引擎限开宝箱脚本源码下载脚本教程

[复制链接]
pkhuo 发表于 2021-9-30 21:14:45 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题
[@宝箱]
{
;------------------------------------------------------
#if
CHECKVAR HUMAN 宝箱获取次数 = 0
#ACT
MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱T1LOOK)>
INC S10 ,1,0,0,0,0,19,18
INC S10
INC S10 HINT=<$HUMAN(宝箱T1物品)>x<$HUMAN(宝箱T1数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱T2LOOK)>
INC S10 ,1,0,0,0,0,71,18
INC S10
INC S10 HINT=<$HUMAN(宝箱T2物品)>x<$HUMAN(宝箱T2数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱T3LOOK)>
INC S10 ,1,0,0,0,0,122,18
INC S10
INC S10 HINT=<$HUMAN(宝箱T3物品)>x<$HUMAN(宝箱T3数量)>>
CALCVAR HUMAN 宝箱显示1行 = <$STR(S10)>
MOV S10 <PIC=Prguse2,260,6,1,100,0,0,-2,-4
INC S10
INC S10 LABEL=@Bluem2.net>
INC S10 <PIC=Prguse2,260,6,1,50,0,0,50,-4
INC S10
INC S10 LABEL=@Bluem2.net>
INC S10 <PIC=Prguse2,260,6,1,50,0,0,101,-4
INC S10
INC S10 LABEL=@Bluem2.net>
CALCVAR HUMAN 宝箱置顶效果 = <$STR(S10)>

#if
CHECKVAR HUMAN 宝箱获取次数 = 1
#ACT
MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱T2LOOK)>
INC S10 ,1,0,0,0,0,71,18
INC S10
INC S10 HINT=<$HUMAN(宝箱T2物品)>x<$HUMAN(宝箱T2数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱T3LOOK)>
INC S10 ,1,0,0,0,0,122,18
INC S10
INC S10 HINT=<$HUMAN(宝箱T3物品)>x<$HUMAN(宝箱T3数量)>>
CALCVAR HUMAN 宝箱显示1行 = <$STR(S10)>
MOV S10 <PIC=Prguse2,260,6,1,50,0,0,50,-4
INC S10
INC S10 LABEL=@Bluem2.net>
INC S10 <PIC=Prguse2,260,6,1,50,0,0,101,-4
INC S10
INC S10 LABEL=@Bluem2.net>
CALCVAR HUMAN 宝箱置顶效果 = <$STR(S10)>


#if
CHECKVAR HUMAN 宝箱获取次数 = 2
#ACT
MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱T3LOOK)>
INC S10 ,1,0,0,0,0,122,18
INC S10
INC S10 HINT=<$HUMAN(宝箱T3物品)>x<$HUMAN(宝箱T3数量)>>
CALCVAR HUMAN 宝箱显示1行 = <$STR(S10)>
MOV S10 <PIC=Prguse2,260,6,1,50,0,0,101,-4
INC S10
INC S10 LABEL=@Bluem2.net>
CALCVAR HUMAN 宝箱置顶效果 = <$STR(S10)>


#if
CHECKVAR HUMAN 宝箱获取次数 = 3
#ACT
CALCVAR HUMAN 宝箱显示1行 =

;------------------------------------------------------
#if
CHECKVAR HUMAN 宝箱获取次数 < 4
#ACT
MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱1LOOK)>
INC S10 ,1,0,0,0,0,19,78
INC S10
INC S10 HINT=<$HUMAN(宝箱1物品)>x<$HUMAN(宝箱1数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱2LOOK)>
INC S10 ,1,0,0,0,0,71,78
INC S10
INC S10 HINT=<$HUMAN(宝箱2物品)>x<$HUMAN(宝箱2数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱3LOOK)>
INC S10 ,1,0,0,0,0,122,78
INC S10
INC S10 HINT=<$HUMAN(宝箱3物品)>x<$HUMAN(宝箱3数量)>>
CALCVAR HUMAN 宝箱显示2行 = <$STR(S10)>

;------------------------------------------------------

MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱8LOOK)>
INC S10 ,1,0,0,0,0,19,126
INC S10
INC S10 HINT=<$HUMAN(宝箱8物品)>x<$HUMAN(宝箱8数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱ZLOOK)>
INC S10 ,1,0,0,0,0,71,126
INC S10
INC S10 LABEL=@宝箱Z物品
INC S10
INC S10 HINT=<$HUMAN(宝箱Z物品)>x<$HUMAN(宝箱Z数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱4LOOK)>
INC S10 ,1,0,0,0,0,122,126
INC S10
INC S10 HINT=<$HUMAN(宝箱4物品)>x<$HUMAN(宝箱4数量)>>
CALCVAR HUMAN 宝箱显示3行 = <$STR(S10)>

;------------------------------------------------------

MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱7LOOK)>
INC S10 ,1,0,0,0,0,19,174
INC S10
INC S10 HINT=<$HUMAN(宝箱7物品)>x<$HUMAN(宝箱7数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱6LOOK)>
INC S10 ,1,0,0,0,0,71,174
INC S10
INC S10 HINT=<$HUMAN(宝箱6物品)>x<$HUMAN(宝箱6数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱5LOOK)>
INC S10 ,1,0,0,0,0,122,174
INC S10
INC S10 HINT=<$HUMAN(宝箱5物品)>x<$HUMAN(宝箱5数量)>>
CALCVAR HUMAN 宝箱显示4行 = <$STR(S10)>

;------------------------------------------------------

#if
CHECKLEVELEX > 0
#act
CLEARNAMELIST ..\QuestDiary\Bluem2.net_新版宝箱配置\宝箱临时文件\<$USERNAME>.txt HardDisk
CALCVAR HUMAN 宝箱光圈位置 = 0
CALCVAR HUMAN 宝箱光圈运行 = 0

MOV S10 1|<$HUMAN(宝箱1物品)>|<$HUMAN(宝箱1数量)>
INC S10
INC S10 <$HUMAN(宝箱1概率)>
ADDLINELIST ..\QuestDiary\Bluem2.net_新版宝箱配置\宝箱临时文件\<$USERNAME>.txt <$STR(S10)> HardDisk

MOV S10 2|<$HUMAN(宝箱2物品)>|<$HUMAN(宝箱2数量)>
INC S10
INC S10 <$HUMAN(宝箱2概率)>
ADDLINELIST ..\QuestDiary\Bluem2.net_新版宝箱配置\宝箱临时文件\<$USERNAME>.txt <$STR(S10)> HardDisk

MOV S10 3|<$HUMAN(宝箱3物品)>|<$HUMAN(宝箱3数量)>
INC S10
INC S10 <$HUMAN(宝箱3概率)>
ADDLINELIST ..\QuestDiary\Bluem2.net_新版宝箱配置\宝箱临时文件\<$USERNAME>.txt <$STR(S10)> HardDisk

MOV S10 4|<$HUMAN(宝箱4物品)>|<$HUMAN(宝箱4数量)>
INC S10
INC S10 <$HUMAN(宝箱4概率)>
ADDLINELIST ..\QuestDiary\Bluem2.net_新版宝箱配置\宝箱临时文件\<$USERNAME>.txt <$STR(S10)> HardDisk

MOV S10 5|<$HUMAN(宝箱5物品)>|<$HUMAN(宝箱5数量)>
INC S10
INC S10 <$HUMAN(宝箱5概率)>
ADDLINELIST ..\QuestDiary\Bluem2.net_新版宝箱配置\宝箱临时文件\<$USERNAME>.txt <$STR(S10)> HardDisk

MOV S10 6|<$HUMAN(宝箱6物品)>|<$HUMAN(宝箱6数量)>
INC S10
INC S10 <$HUMAN(宝箱6概率)>
ADDLINELIST ..\QuestDiary\Bluem2.net_新版宝箱配置\宝箱临时文件\<$USERNAME>.txt <$STR(S10)> HardDisk

MOV S10 7|<$HUMAN(宝箱7物品)>|<$HUMAN(宝箱7数量)>
INC S10
INC S10 <$HUMAN(宝箱7概率)>
ADDLINELIST ..\QuestDiary\Bluem2.net_新版宝箱配置\宝箱临时文件\<$USERNAME>.txt <$STR(S10)> HardDisk

MOV S10 8|<$HUMAN(宝箱8物品)>|<$HUMAN(宝箱8数量)>
INC S10
INC S10 <$HUMAN(宝箱8概率)>
ADDLINELIST ..\QuestDiary\Bluem2.net_新版宝箱配置\宝箱临时文件\<$USERNAME>.txt <$STR(S10)> HardDisk

GOTO @新包箱动画显示

[@新包箱动画显示]
#IF
CHECKVAR HUMAN 宝箱光圈位置 = 0
#SAY
<$HUMAN(宝箱显示1行)>\
<$HUMAN(宝箱显示2行)>\
<$HUMAN(宝箱显示3行)>\
<$HUMAN(宝箱显示4行)>\
<PIC=Prguse3,600,8,1,50,0,0,59,113>\
<PIC=Prguse2,215,1,0,0,0,0,51,220 LABEL=@乾坤挪移 HINT=乾坤挪移>\
<$HUMAN(宝箱置顶效果)>\
#act
BREAK


#IF
CHECKVAR HUMAN 宝箱光圈位置 = 8
CHECKVAR HUMAN 宝箱光圈运行 < 4
#SAY
<$HUMAN(宝箱显示1行)>\
<$HUMAN(宝箱显示2行)>\
<$HUMAN(宝箱显示3行)>\
<$HUMAN(宝箱显示4行)>\
<$HUMAN(宝箱光圈显示)>\
<PIC=Prguse2,215,1,0,0,0,0,51,220 LABEL=@乾坤挪移 HINT=乾坤挪移>\
<$HUMAN(宝箱置顶效果)>\
#act
MOV S11 <$HUMAN(宝箱光圈显示
INC S11 <$HUMAN(宝箱光圈位置)>)>
MOV S11 <$STR(S11)>
CALCVAR HUMAN 宝箱光圈显示 = <$STR(S11)>
CALCVAR HUMAN 宝箱光圈位置 = 1
CALCVAR HUMAN 宝箱光圈运行 + 1
DELAYGOTO 1 @新包箱动画显示
BREAK

#IF
CHECKVAR HUMAN 宝箱光圈运行 < 4
#SAY
<$HUMAN(宝箱显示1行)>\
<$HUMAN(宝箱显示2行)>\
<$HUMAN(宝箱显示3行)>\
<$HUMAN(宝箱显示4行)>\
<$HUMAN(宝箱光圈显示)>\
<PIC=Prguse2,215,1,0,0,0,0,51,220 LABEL=@乾坤挪移 HINT=乾坤挪移>\
<$HUMAN(宝箱置顶效果)>\
#act
MOV S11 <$HUMAN(宝箱光圈显示
INC S11 <$HUMAN(宝箱光圈位置)>)>
MOV S11 <$STR(S11)>
CALCVAR HUMAN 宝箱光圈显示 = <$STR(S11)>
CALCVAR HUMAN 宝箱光圈位置 + 1
DELAYGOTO 1 @新包箱动画显示
BREAK






#IF
CHECKVAR HUMAN 宝箱光圈位置 < <$HUMAN(宝箱中奖位置)>
#SAY
<$HUMAN(宝箱显示1行)>\
<$HUMAN(宝箱显示2行)>\
<$HUMAN(宝箱显示3行)>\
<$HUMAN(宝箱显示4行)>\
<$HUMAN(宝箱光圈显示)>\
<PIC=Prguse2,215,1,0,0,0,0,51,220 LABEL=@乾坤挪移 HINT=乾坤挪移>\
<$HUMAN(宝箱置顶效果)>\
#act
MOV S11 <$HUMAN(宝箱光圈显示
INC S11 <$HUMAN(宝箱光圈位置)>)>
MOV S11 <$STR(S11)>
CALCVAR HUMAN 宝箱光圈显示 = <$STR(S11)>
CALCVAR HUMAN 宝箱光圈位置 + 1
DELAYGOTO 1 @新包箱动画显示
BREAK







#IF
CHECKVAR HUMAN 宝箱光圈位置 = 1
CHECKVAR HUMAN 宝箱光圈位置 = <$HUMAN(宝箱中奖位置)>
#SAY
<$HUMAN(宝箱显示1行)>\
<$HUMAN(宝箱显示2行)>\
<$HUMAN(宝箱显示3行)>\
<$HUMAN(宝箱显示4行)>\
<PIC=Prguse3,600,2,1,50,0,0,7,65 LABEL=@获取宝箱物品>\
<PIC=Prguse2,215,1,0,0,0,0,51,220 LABEL=@乾坤挪移 HINT=乾坤挪移>\
<$HUMAN(宝箱置顶效果)>\
#act
MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱8LOOK)>
INC S10 ,1,0,0,0,0,19,126
INC S10
INC S10 HINT=<$HUMAN(宝箱8物品)>x<$HUMAN(宝箱8数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱ZLOOK)>
INC S10 ,1,0,0,0,0,71,126
INC S10
INC S10 HINT=<$HUMAN(宝箱Z物品)>x<$HUMAN(宝箱Z数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱4LOOK)>
INC S10 ,1,0,0,0,0,122,126
INC S10
INC S10 HINT=<$HUMAN(宝箱4物品)>x<$HUMAN(宝箱4数量)>>
CALCVAR HUMAN 宝箱显示3行 = <$STR(S10)>
MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱1LOOK)>
INC S10 ,1,0,0,0,0,19,78
INC S10
INC S10 LABEL=@获取宝箱物品
INC S10
INC S10 HINT=<$HUMAN(宝箱1物品)>x<$HUMAN(宝箱1数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱2LOOK)>
INC S10 ,1,0,0,0,0,71,78
INC S10
INC S10 HINT=<$HUMAN(宝箱2物品)>x<$HUMAN(宝箱2数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱3LOOK)>
INC S10 ,1,0,0,0,0,122,78
INC S10
INC S10 HINT=<$HUMAN(宝箱3物品)>x<$HUMAN(宝箱3数量)>>
CALCVAR HUMAN 宝箱显示2行 = <$STR(S10)>

MOV S11 <$HUMAN(宝箱光圈显示
INC S11 <$HUMAN(宝箱光圈位置)>)>
MOV S11 <$STR(S11)>
CALCVAR HUMAN 宝箱光圈显示 = <$STR(S11)>
BREAK
#IF
CHECKVAR HUMAN 宝箱光圈位置 = 2
CHECKVAR HUMAN 宝箱光圈位置 = <$HUMAN(宝箱中奖位置)>
#SAY
<$HUMAN(宝箱显示1行)>\
<$HUMAN(宝箱显示2行)>\
<$HUMAN(宝箱显示3行)>\
<$HUMAN(宝箱显示4行)>\
<PIC=Prguse3,600,2,1,50,0,0,59,65 LABEL=@获取宝箱物品>\
<PIC=Prguse2,215,1,0,0,0,0,51,220 LABEL=@乾坤挪移 HINT=乾坤挪移>\
<$HUMAN(宝箱置顶效果)>\
#act
MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱8LOOK)>
INC S10 ,1,0,0,0,0,19,126
INC S10
INC S10 HINT=<$HUMAN(宝箱8物品)>x<$HUMAN(宝箱8数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱ZLOOK)>
INC S10 ,1,0,0,0,0,71,126
INC S10
INC S10 HINT=<$HUMAN(宝箱Z物品)>x<$HUMAN(宝箱Z数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱4LOOK)>
INC S10 ,1,0,0,0,0,122,126
INC S10
INC S10 HINT=<$HUMAN(宝箱4物品)>x<$HUMAN(宝箱4数量)>>
CALCVAR HUMAN 宝箱显示3行 = <$STR(S10)>
MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱1LOOK)>
INC S10 ,1,0,0,0,0,19,78
INC S10
INC S10 HINT=<$HUMAN(宝箱1物品)>x<$HUMAN(宝箱1数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱2LOOK)>
INC S10 ,1,0,0,0,0,71,78
INC S10
INC S10 LABEL=@获取宝箱物品
INC S10
INC S10 HINT=<$HUMAN(宝箱2物品)>x<$HUMAN(宝箱2数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱3LOOK)>
INC S10 ,1,0,0,0,0,122,78
INC S10
INC S10 HINT=<$HUMAN(宝箱3物品)>x<$HUMAN(宝箱3数量)>>
CALCVAR HUMAN 宝箱显示2行 = <$STR(S10)>

MOV S11 <$HUMAN(宝箱光圈显示
INC S11 <$HUMAN(宝箱光圈位置)>)>
MOV S11 <$STR(S11)>
CALCVAR HUMAN 宝箱光圈显示 = <$STR(S11)>
BREAK
#IF
CHECKVAR HUMAN 宝箱光圈位置 = 3
CHECKVAR HUMAN 宝箱光圈位置 = <$HUMAN(宝箱中奖位置)>
#SAY
<$HUMAN(宝箱显示1行)>\
<$HUMAN(宝箱显示2行)>\
<$HUMAN(宝箱显示3行)>\
<$HUMAN(宝箱显示4行)>\
<PIC=Prguse3,600,2,1,50,0,0,110,65 LABEL=@获取宝箱物品>\
<PIC=Prguse2,215,1,0,0,0,0,51,220 LABEL=@乾坤挪移 HINT=乾坤挪移>\
<$HUMAN(宝箱置顶效果)>\
#act
MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱8LOOK)>
INC S10 ,1,0,0,0,0,19,126
INC S10
INC S10 HINT=<$HUMAN(宝箱8物品)>x<$HUMAN(宝箱8数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱ZLOOK)>
INC S10 ,1,0,0,0,0,71,126
INC S10
INC S10 HINT=<$HUMAN(宝箱Z物品)>x<$HUMAN(宝箱Z数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱4LOOK)>
INC S10 ,1,0,0,0,0,122,126
INC S10
INC S10 HINT=<$HUMAN(宝箱4物品)>x<$HUMAN(宝箱4数量)>>
CALCVAR HUMAN 宝箱显示3行 = <$STR(S10)>
MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱1LOOK)>
INC S10 ,1,0,0,0,0,19,78
INC S10
INC S10 HINT=<$HUMAN(宝箱1物品)>x<$HUMAN(宝箱1数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱2LOOK)>
INC S10 ,1,0,0,0,0,71,78
INC S10
INC S10 HINT=<$HUMAN(宝箱2物品)>x<$HUMAN(宝箱2数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱3LOOK)>
INC S10 ,1,0,0,0,0,122,78
INC S10
INC S10 LABEL=@获取宝箱物品
INC S10
INC S10 HINT=<$HUMAN(宝箱3物品)>x<$HUMAN(宝箱3数量)>>
CALCVAR HUMAN 宝箱显示2行 = <$STR(S10)>

MOV S11 <$HUMAN(宝箱光圈显示
INC S11 <$HUMAN(宝箱光圈位置)>)>
MOV S11 <$STR(S11)>
CALCVAR HUMAN 宝箱光圈显示 = <$STR(S11)>
BREAK
#IF
CHECKVAR HUMAN 宝箱光圈位置 = 4
CHECKVAR HUMAN 宝箱光圈位置 = <$HUMAN(宝箱中奖位置)>
#SAY
<$HUMAN(宝箱显示1行)>\
<$HUMAN(宝箱显示2行)>\
<$HUMAN(宝箱显示3行)>\
<$HUMAN(宝箱显示4行)>\
<PIC=Prguse3,600,2,1,50,0,0,110,113 LABEL=@获取宝箱物品>\
<PIC=Prguse2,215,1,0,0,0,0,51,220 LABEL=@乾坤挪移 HINT=乾坤挪移>\
<$HUMAN(宝箱置顶效果)>\
#act
MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱8LOOK)>
INC S10 ,1,0,0,0,0,19,126
INC S10
INC S10 HINT=<$HUMAN(宝箱8物品)>x<$HUMAN(宝箱8数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱ZLOOK)>
INC S10 ,1,0,0,0,0,71,126
INC S10
INC S10 HINT=<$HUMAN(宝箱Z物品)>x<$HUMAN(宝箱Z数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱4LOOK)>
INC S10 ,1,0,0,0,0,122,126
INC S10
INC S10 LABEL=@获取宝箱物品
INC S10
INC S10 HINT=<$HUMAN(宝箱4物品)>x<$HUMAN(宝箱4数量)>>
CALCVAR HUMAN 宝箱显示3行 = <$STR(S10)>

MOV S11 <$HUMAN(宝箱光圈显示
INC S11 <$HUMAN(宝箱光圈位置)>)>
MOV S11 <$STR(S11)>
CALCVAR HUMAN 宝箱光圈显示 = <$STR(S11)>
BREAK
#IF
CHECKVAR HUMAN 宝箱光圈位置 = 5
CHECKVAR HUMAN 宝箱光圈位置 = <$HUMAN(宝箱中奖位置)>
#SAY
<$HUMAN(宝箱显示1行)>\
<$HUMAN(宝箱显示2行)>\
<$HUMAN(宝箱显示3行)>\
<$HUMAN(宝箱显示4行)>\
<PIC=Prguse3,600,2,1,50,0,0,110,161 LABEL=@获取宝箱物品>\
<PIC=Prguse2,215,1,0,0,0,0,51,220 LABEL=@乾坤挪移 HINT=乾坤挪移>\
<$HUMAN(宝箱置顶效果)>\
#act
MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱8LOOK)>
INC S10 ,1,0,0,0,0,19,126
INC S10
INC S10 HINT=<$HUMAN(宝箱8物品)>x<$HUMAN(宝箱8数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱ZLOOK)>
INC S10 ,1,0,0,0,0,71,126
INC S10
INC S10 HINT=<$HUMAN(宝箱Z物品)>x<$HUMAN(宝箱Z数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱4LOOK)>
INC S10 ,1,0,0,0,0,122,126
INC S10
INC S10 HINT=<$HUMAN(宝箱4物品)>x<$HUMAN(宝箱4数量)>>
CALCVAR HUMAN 宝箱显示3行 = <$STR(S10)>
MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱7LOOK)>
INC S10 ,1,0,0,0,0,19,174
INC S10
INC S10 HINT=<$HUMAN(宝箱7物品)>x<$HUMAN(宝箱7数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱6LOOK)>
INC S10 ,1,0,0,0,0,71,174
INC S10
INC S10 HINT=<$HUMAN(宝箱6物品)>x<$HUMAN(宝箱6数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱5LOOK)>
INC S10 ,1,0,0,0,0,122,174
INC S10
INC S10 LABEL=@获取宝箱物品
INC S10
INC S10 HINT=<$HUMAN(宝箱5物品)>x<$HUMAN(宝箱5数量)>>
CALCVAR HUMAN 宝箱显示4行 = <$STR(S10)>

MOV S11 <$HUMAN(宝箱光圈显示
INC S11 <$HUMAN(宝箱光圈位置)>)>
MOV S11 <$STR(S11)>
CALCVAR HUMAN 宝箱光圈显示 = <$STR(S11)>
BREAK
#IF
CHECKVAR HUMAN 宝箱光圈位置 = 6
CHECKVAR HUMAN 宝箱光圈位置 = <$HUMAN(宝箱中奖位置)>
#SAY
<$HUMAN(宝箱显示1行)>\
<$HUMAN(宝箱显示2行)>\
<$HUMAN(宝箱显示3行)>\
<$HUMAN(宝箱显示4行)>\
<PIC=Prguse3,600,2,1,50,0,0,59,161 LABEL=@获取宝箱物品>\
<PIC=Prguse2,215,1,0,0,0,0,51,220 LABEL=@乾坤挪移 HINT=乾坤挪移>\
<$HUMAN(宝箱置顶效果)>\
#act
MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱8LOOK)>
INC S10 ,1,0,0,0,0,19,126
INC S10
INC S10 HINT=<$HUMAN(宝箱8物品)>x<$HUMAN(宝箱8数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱ZLOOK)>
INC S10 ,1,0,0,0,0,71,126
INC S10
INC S10 HINT=<$HUMAN(宝箱Z物品)>x<$HUMAN(宝箱Z数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱4LOOK)>
INC S10 ,1,0,0,0,0,122,126
INC S10
INC S10 HINT=<$HUMAN(宝箱4物品)>x<$HUMAN(宝箱4数量)>>
CALCVAR HUMAN 宝箱显示3行 = <$STR(S10)>
MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱7LOOK)>
INC S10 ,1,0,0,0,0,19,174
INC S10
INC S10 HINT=<$HUMAN(宝箱7物品)>x<$HUMAN(宝箱7数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱6LOOK)>
INC S10 ,1,0,0,0,0,71,174
INC S10
INC S10 LABEL=@获取宝箱物品
INC S10
INC S10 HINT=<$HUMAN(宝箱6物品)>x<$HUMAN(宝箱6数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱5LOOK)>
INC S10 ,1,0,0,0,0,122,174
INC S10
INC S10 HINT=<$HUMAN(宝箱5物品)>x<$HUMAN(宝箱5数量)>>
CALCVAR HUMAN 宝箱显示4行 = <$STR(S10)>

MOV S11 <$HUMAN(宝箱光圈显示
INC S11 <$HUMAN(宝箱光圈位置)>)>
MOV S11 <$STR(S11)>
CALCVAR HUMAN 宝箱光圈显示 = <$STR(S11)>
BREAK
#IF
CHECKVAR HUMAN 宝箱光圈位置 = 7
CHECKVAR HUMAN 宝箱光圈位置 = <$HUMAN(宝箱中奖位置)>
#SAY
<$HUMAN(宝箱显示1行)>\
<$HUMAN(宝箱显示2行)>\
<$HUMAN(宝箱显示3行)>\
<$HUMAN(宝箱显示4行)>\
<PIC=Prguse3,600,2,1,50,0,0,7,161 LABEL=@获取宝箱物品>\
<PIC=Prguse2,215,1,0,0,0,0,51,220 LABEL=@乾坤挪移 HINT=乾坤挪移>\
<$HUMAN(宝箱置顶效果)>\
#act
MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱8LOOK)>
INC S10 ,1,0,0,0,0,19,126
INC S10
INC S10 HINT=<$HUMAN(宝箱8物品)>x<$HUMAN(宝箱8数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱ZLOOK)>
INC S10 ,1,0,0,0,0,71,126
INC S10
INC S10 HINT=<$HUMAN(宝箱Z物品)>x<$HUMAN(宝箱Z数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱4LOOK)>
INC S10 ,1,0,0,0,0,122,126
INC S10
INC S10 HINT=<$HUMAN(宝箱4物品)>x<$HUMAN(宝箱4数量)>>
CALCVAR HUMAN 宝箱显示3行 = <$STR(S10)>
MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱7LOOK)>
INC S10 ,1,0,0,0,0,19,174
INC S10
INC S10 LABEL=@获取宝箱物品
INC S10
INC S10 HINT=<$HUMAN(宝箱7物品)>x<$HUMAN(宝箱7数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱6LOOK)>
INC S10 ,1,0,0,0,0,71,174
INC S10
INC S10 HINT=<$HUMAN(宝箱6物品)>x<$HUMAN(宝箱6数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱5LOOK)>
INC S10 ,1,0,0,0,0,122,174
INC S10
INC S10 HINT=<$HUMAN(宝箱5物品)>x<$HUMAN(宝箱5数量)>>
CALCVAR HUMAN 宝箱显示4行 = <$STR(S10)>

MOV S11 <$HUMAN(宝箱光圈显示
INC S11 <$HUMAN(宝箱光圈位置)>)>
MOV S11 <$STR(S11)>
CALCVAR HUMAN 宝箱光圈显示 = <$STR(S11)>
BREAK
#IF
CHECKVAR HUMAN 宝箱光圈位置 = 8
CHECKVAR HUMAN 宝箱光圈位置 = <$HUMAN(宝箱中奖位置)>
#SAY
<$HUMAN(宝箱显示1行)>\
<$HUMAN(宝箱显示2行)>\
<$HUMAN(宝箱显示3行)>\
<$HUMAN(宝箱显示4行)>\
<PIC=Prguse3,600,2,1,50,0,0,7,113 LABEL=@获取宝箱物品>\
<PIC=Prguse2,215,1,0,0,0,0,51,220 LABEL=@乾坤挪移 HINT=乾坤挪移>\
<$HUMAN(宝箱置顶效果)>\
#act
MOV S10 <PIC=Items,
INC S10 <$HUMAN(宝箱8LOOK)>
INC S10 ,1,0,0,0,0,19,126
INC S10
INC S10 LABEL=@获取宝箱物品
INC S10
INC S10 HINT=<$HUMAN(宝箱8物品)>x<$HUMAN(宝箱8数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱ZLOOK)>
INC S10 ,1,0,0,0,0,71,126
INC S10
INC S10 HINT=<$HUMAN(宝箱Z物品)>x<$HUMAN(宝箱Z数量)>><PIC=Items,
INC S10 <$HUMAN(宝箱4LOOK)>
INC S10 ,1,0,0,0,0,122,126
INC S10
INC S10 HINT=<$HUMAN(宝箱4物品)>x<$HUMAN(宝箱4数量)>>
CALCVAR HUMAN 宝箱显示3行 = <$STR(S10)>
MOV S11 <$HUMAN(宝箱光圈显示
INC S11 <$HUMAN(宝箱光圈位置)>)>
MOV S11 <$STR(S11)>
CALCVAR HUMAN 宝箱光圈显示 = <$STR(S11)>
BREAK


[@获取宝箱物品]
#IF
CheckStringList ..\QuestDiary\Bluem2.net_新版宝箱配置\抽取检测\需提示物品.txt <$HUMAN(宝箱中奖物品)>
#ACT
SENDMSG 0 恭喜:<$USERNAME>,开启[<$HUMAN(宝箱类别)>]获得:<$HUMAN(宝箱中奖物品)>x<$HUMAN(宝箱中奖数量)>

#if
CHECKLEVELEX > 0
#ACT
CALCVAR HUMAN 宝箱获取次数 + 1
CALCVAR HUMAN 宝箱乾坤开关 = 0
#IF
CHECKVAR HUMAN 宝箱中奖物品 = 金刚石
#ACT
GAMEDIAMOND + <$HUMAN(宝箱中奖数量)>
#IF
CHECKVAR HUMAN 宝箱中奖物品 = 经验
#ACT
CHANGEEXP + <$HUMAN(宝箱中奖数量)>
#IF
CHECKVAR HUMAN 宝箱中奖物品 = 灵符
#ACT
GAMEGIRD + <$HUMAN(宝箱中奖数量)>
#IF
CHECKVAR HUMAN 宝箱中奖物品 = 声望
#ACT
CREDITPOINT + <$HUMAN(宝箱中奖数量)>
#if
CHECKLEVELEX > 0
#ACT
GIVE <$HUMAN(宝箱中奖物品)> <$HUMAN(宝箱中奖数量)>

#if
CHECKVAR HUMAN 宝箱获取次数 = 4
#ACT
CLOSE
BREAK

#if
CHECKVAR HUMAN 宝箱获取次数 = 1
#ACT
MOV S10 <$HUMAN(宝箱T1物品)>
MOV S11 <$HUMAN(宝箱T1LOOK)>
MOV S12 <$HUMAN(宝箱T1数量)>
MOV S13 <$HUMAN(宝箱T1概率)>

#if
CHECKVAR HUMAN 宝箱获取次数 = 2
#ACT
MOV S10 <$HUMAN(宝箱T2物品)>
MOV S11 <$HUMAN(宝箱T2LOOK)>
MOV S12 <$HUMAN(宝箱T2数量)>
MOV S13 <$HUMAN(宝箱T2概率)>

#if
CHECKVAR HUMAN 宝箱获取次数 = 3
#ACT
MOV S10 <$HUMAN(宝箱T3物品)>
MOV S11 <$HUMAN(宝箱T3LOOK)>
MOV S12 <$HUMAN(宝箱T3数量)>
MOV S13 <$HUMAN(宝箱T3概率)>

#if
CHECKVAR HUMAN 宝箱中奖位置 = 1
#ACT
CALCVAR HUMAN 宝箱1物品 = <$STR(S10)>
CALCVAR HUMAN 宝箱1LOOK = <$STR(S11)>
CALCVAR HUMAN 宝箱1数量 = <$STR(S12)>
CALCVAR HUMAN 宝箱1概率 = <$STR(S13)>

#if
CHECKVAR HUMAN 宝箱中奖位置 = 2
#ACT
CALCVAR HUMAN 宝箱2物品 = <$STR(S10)>
CALCVAR HUMAN 宝箱2LOOK = <$STR(S11)>
CALCVAR HUMAN 宝箱2数量 = <$STR(S12)>
CALCVAR HUMAN 宝箱2概率 = <$STR(S13)>

#if
CHECKVAR HUMAN 宝箱中奖位置 = 3
#ACT
CALCVAR HUMAN 宝箱3物品 = <$STR(S10)>
CALCVAR HUMAN 宝箱3LOOK = <$STR(S11)>
CALCVAR HUMAN 宝箱3数量 = <$STR(S12)>
CALCVAR HUMAN 宝箱3概率 = <$STR(S13)>

#if
CHECKVAR HUMAN 宝箱中奖位置 = 4
#ACT
CALCVAR HUMAN 宝箱4物品 = <$STR(S10)>
CALCVAR HUMAN 宝箱4LOOK = <$STR(S11)>
CALCVAR HUMAN 宝箱4数量 = <$STR(S12)>
CALCVAR HUMAN 宝箱4概率 = <$STR(S13)>

#if
CHECKVAR HUMAN 宝箱中奖位置 = 5
#ACT
CALCVAR HUMAN 宝箱5物品 = <$STR(S10)>
CALCVAR HUMAN 宝箱5LOOK = <$STR(S11)>
CALCVAR HUMAN 宝箱5数量 = <$STR(S12)>
CALCVAR HUMAN 宝箱5概率 = <$STR(S13)>

#if
CHECKVAR HUMAN 宝箱中奖位置 = 6
#ACT
CALCVAR HUMAN 宝箱6物品 = <$STR(S10)>
CALCVAR HUMAN 宝箱6LOOK = <$STR(S11)>
CALCVAR HUMAN 宝箱6数量 = <$STR(S12)>
CALCVAR HUMAN 宝箱6概率 = <$STR(S13)>

#if
CHECKVAR HUMAN 宝箱中奖位置 = 7
#ACT
CALCVAR HUMAN 宝箱7物品 = <$STR(S10)>
CALCVAR HUMAN 宝箱7LOOK = <$STR(S11)>
CALCVAR HUMAN 宝箱7数量 = <$STR(S12)>
CALCVAR HUMAN 宝箱7概率 = <$STR(S13)>

#if
CHECKVAR HUMAN 宝箱中奖位置 = 8
#ACT
CALCVAR HUMAN 宝箱8物品 = <$STR(S10)>
CALCVAR HUMAN 宝箱8LOOK = <$STR(S11)>
CALCVAR HUMAN 宝箱8数量 = <$STR(S12)>
CALCVAR HUMAN 宝箱8概率 = <$STR(S13)>


#if
CHECKVAR HUMAN 宝箱获取次数 < 4
#ACT
GOTO @宝箱
BREAK




















[@宝箱Z物品]
#IF
CheckStringList ..\QuestDiary\Bluem2.net_新版宝箱配置\抽取检测\需提示物品.txt <$HUMAN(宝箱Z物品)>
#ACT
SENDMSG 0 恭喜:<$USERNAME>,开启[<$HUMAN(宝箱类别)>]获得:<$HUMAN(宝箱Z物品)>x<$HUMAN(宝箱Z数量)>
#IF
CHECKVAR HUMAN 宝箱Z物品 = 金刚石
#ACT
CLOSE
GAMEDIAMOND + <$HUMAN(宝箱Z数量)>
BREAK
#IF
CHECKVAR HUMAN 宝箱Z物品 = 经验
#ACT
CLOSE
CHANGEEXP + <$HUMAN(宝箱Z数量)>
BREAK
#IF
CHECKVAR HUMAN 宝箱Z物品 = 灵符
#ACT
CLOSE
GAMEGIRD + <$HUMAN(宝箱Z数量)>
BREAK
#IF
CHECKVAR HUMAN 宝箱Z物品 = 声望
#ACT
CLOSE
CREDITPOINT + <$HUMAN(宝箱Z数量)>
BREAK
#if
CHECKLEVELEX > 0
#ACT
CLOSE
GIVE <$HUMAN(宝箱Z物品)> <$HUMAN(宝箱Z数量)>
BREAK


[@乾坤挪移]
#IF
CHECKVAR HUMAN 宝箱类别 = 檀木宝箱
#ACT
CALCVAR HUMAN 宝箱临时计算1 = $(檀木宝箱乾坤需元宝)

#IF
CHECKVAR HUMAN 宝箱类别 = 紫铜宝箱
#ACT
CALCVAR HUMAN 宝箱临时计算1 = $(紫铜宝箱乾坤需元宝)

#IF
CHECKVAR HUMAN 宝箱类别 = 白银宝箱
#ACT
CALCVAR HUMAN 宝箱临时计算1 = $(白银宝箱乾坤需元宝)

#IF
CHECKVAR HUMAN 宝箱类别 = 赤金宝箱
#ACT
CALCVAR HUMAN 宝箱临时计算1 = $(赤金宝箱乾坤需元宝)
#IF
CHECKGAMEGOLD < <$HUMAN(宝箱临时计算1)>
#ACT
MESSAGEBOX <$HUMAN(宝箱类别)>,乾坤挪移需要<$HUMAN(宝箱临时计算1)>元宝.
BREAK



#IF
CHECKVAR HUMAN 宝箱乾坤开关 = 0
#ACT
GAMEGOLD - <$HUMAN(宝箱临时计算1)>
CALCVAR HUMAN 宝箱乾坤开关 = 1
READRANDOMSTR ..\QuestDiary\Bluem2.net_新版宝箱配置\宝箱临时文件\<$USERNAME>.txt S10 HardDisk
StrTok S10 S0 |
CALCVAR HUMAN 宝箱中奖位置 = <$STR(S0)>
StrTok S10 S0 |
CALCVAR HUMAN 宝箱中奖物品 = <$STR(S0)>
StrTok S10 S0 |
CALCVAR HUMAN 宝箱中奖数量 = <$STR(S0)>
CALCVAR HUMAN 宝箱光圈位置 = 1
GOTO @新包箱动画显示

}



游客,如果您要查看本帖隐藏内容请回复


回复

使用道具 举报

精彩评论1

hming666 发表于 2022-12-2 12:34:29 | 显示全部楼层
让他二天二太太
回复

使用道具 举报

懒得打字嘛,点击右侧快捷回复 【右侧内容,后台自定义】
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

PKhuo论坛手机版

扫一扫二维码

传奇最全教程基地

Powered by PKhuo!X3.4 ©2001-2013 Comsenz Inc. 湘ICP备15015719号-5 |网站地图|友链申请