[@宝箱]
{
;------------------------------------------------------
#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 @新包箱动画显示
}
|