今日最新刚开sfcq手游版本私服网站变态传奇网站|中变sf传奇发布网站手游
|
文章标题介绍:【★★★★★今日最新刚开sfcq手游版本私服网站变态传奇网站|中变sf传奇发布网站手游★★★★★】。 |
1.【请各位玩家点击下面图片★查看各种新开传奇版本】。 |
2.[@装备洗炼]
{
#IF
CHECKLEVELEX0
#ACT
MOVM10
MOVM90
MOVM100
MOVM110
MOVM120
MOVM130
MOVM140
MOVM150
MOVM160
MOVM170
goto@检测灵魂属性
BREAK
CALCVARHUMANLockStr=1颗今日最新刚开sfcq手游版本私服网站变态传奇网站中变sf传奇发布网站手游洗炼石SCOLOR=116
MOVS0或
SetStringBlankS040
INCS020元宝SCOLOR=116
CALCVARHUMANLockStr2=$STR(S0)
CALCVARHUMANLockNum=0
CALCVARHUMANLock1=0
CALCVARHUMANLock2=0
CALCVARHUMANLock3=0
CALCVARHUMANLock4=0
CALCVARHUMANLock5=0
CALCVARHUMANLock6=0
CALCVARHUMANLock7=0
CALCVARHUMANLock8=0
BREAK
#SAY
Img:4054:0:188:-20@EXITImg:0:0:0:0
Img:4305:0:-23:-12Img:4400:0:-24:-14
Img:4055:0:-2:0@装备洗炼说明
Img:4308:0:-2:-20@洗炼武器Img:4309:0:-1:-20@洗炼头盔Img:4310:0:0:-20@洗炼项链
Img:4314:0:-2:-13@洗炼左戒Img:4311:0:-1:-13@洗炼左手Img:4313:0:-0:-13@洗炼衣服Img:4312:0:1:-13@洗炼右手Img:4315:0:2:-13@洗炼右戒
Img:4316:0:-2:-6@洗炼腰带Img:4317:0:-1:-6@洗炼靴子Img:4318:0:0:-6@洗炼宝石
;-----------------------------------------------------------------------
[@装备洗炼说明]
#IF
CHECKLEVELEX0
#ACT
BREAK
#SAY
Img:4054:0:188:-20@EXITImg:0:0:0:0
Img:4305:0:-23:-12Img:4400:0:-24:-14
通过洗炼可最多获取5项灵魂属性SCOLOR=116
绿色装备SCOLOR=250可以获取最多1项SCOLOR=151灵魂属性
蓝色装备SCOLOR=254可以获取最少1项SCOLOR=151最多2项SCOLOR=151灵魂属性
橙色装备SCOLOR=149可以获取最少1项SCOLOR=151最多3项SCOLOR=151灵魂属性
红色装备SCOLOR=249可以获取最少2项SCOLOR=151最多4项SCOLOR=151灵魂属性
紫色装备SCOLOR=253可以获取最少2项SCOLOR=151最多5项SCOLOR=151灵魂属性
返回@装备洗炼
;-----------------------------------------------------------------------
[@洗炼靴子]
#IF
CHECKLEVELEX0
#ACT
;设置精炼装备的部位
MOVHUMAN装备部位11
MOVHUMAN装备类型靴子
GOTO@装备洗炼A
BREAK
[@洗炼宝石]
#IF
CHECKLEVELEX0
#ACT
;设置精炼装备的部位
MOVHUMAN装备部位12
MOVHUMAN装备类型宝石
GOTO@装备洗炼A
BREAK
[@洗炼腰带]
#IF
CHECKLEVELEX0
#ACT
;设置精炼装备的部位
MOVHUMAN装备部位10
MOVHUMAN装备类型腰带
GOTO@装备洗炼A
BREAK
[@洗炼衣服]
#IF
CHECKLEVELEX0
#ACT
;设置精炼装备的部位
MOVHUMAN装备部位0
MOVHUMAN装备类型衣服
GOTO@装备洗炼A
BREAK
[@洗炼右戒]
#IF
CHECKLEVELEX0
#ACT
;设置精炼装备的部位
MOVHUMAN装备部位7
MOVHUMAN装备类型戒指
GOTO@装备洗炼A
BREAK
[@洗炼左戒]
#IF
CHECKLEVELEX0
#ACT
;设置精炼装备的部位
MOVHUMAN装备部位8
MOVHUMAN装备类型戒指
GOTO@装备洗炼A
BREAK
[@洗炼右手]
#IF
CHECKLEVELEX0
#ACT
;设置精炼装备的部位
MOVHUMAN装备部位5
MOVHUMAN装备类型手镯
GOTO@装备洗炼A
BREAK
[@洗炼左手]
#IF
CHECKLEVELEX0
#ACT
;设置精炼装备的部位
MOVHUMAN装备部位6
MOVHUMAN装备类型手镯
GOTO@装备洗炼A
BREAK
[@洗炼项链]
#IF
CHECKLEVELEX0
#ACT
;设置精炼装备的部位
MOVHUMAN装备部位3
MOVHUMAN装备类型项链
GOTO@装备洗炼A
BREAK
[@洗炼头盔]
#IF
CHECKLEVELEX0
#ACT
;设置精炼装备的部位
MOVHUMAN装备部位4
MOVHUMAN装备类型头盔
GOTO@装备洗炼A
BREAK
[@洗炼武器]
#IF
CHECKLEVELEX0
#ACT
;设置精炼装备的部位
MOVHUMAN装备部位1
MOVHUMAN装备类型武器
GOTO@装备洗炼A
BREAK
;-----------------------------------------------------------------------
[@装备洗炼A]
#IF
CHECKUSEITEM$HUMAN(装备部位)
#ACT
;获得装备名字
;格式:GetUserIteMNaMe位置(0-12)S变量(0-99)
GetUserIteMNaMe$HUMAN(装备部位)0
MOVHUMAN装备名字$STR(S0)
MOVN00
;获得装备列表中的位置,返回N0变量中
GetStringPos.QuestDiary装备系统装备名称.txt$HUMAN(装备名字)
IN01
#ELSEACT
messagebox请将你要洗炼的装备:〖$HUMAN(装备类型)〗带到身上!
break
#IF
LARGEN01
SMALLN010000000
#ACT
GetRandomText.QuestDiary装备系统装备内观.txtS0$STR(N0)
MOVS1Img:
INCS1$STR(S0)
INCS1:1:-56:0
MOVHUMAN装备内观$STR(S1)
MOVM11
GOTO@装备洗炼B
BREAK
#ELSEACT
messagebox当前该部位装备不符合洗炼要求!
BREAK
[@装备洗炼B]
#IF
SMALLM121
#ACT
GetRandomText.QuestDiary装备系统装备强化等级.txtS0$STR(M1)
MOVM0$STR(S0)
#ELSEACT
MOVM10
messagebox获取装备等级信息失败,请与游戏客服!或您当前的装备在禁止列表中!
BREAK
#IF
CheckItemNameColor$HUMAN(装备部位)$STR(M0)
#ACT
MOVHUMAN装备颜色$STR(M0)
MOVHUMAN装备强化等级$STR(M1)
BREAK
GOTO@装备洗炼C
BREAK
#ELSEACT
INCM11
GOTO@装备洗炼B
BREAK
[@装备洗炼C]
#IF
CHECKLEVELEX0
#ACT
GetRandomText.QuestDiary装备系统装备洗炼发光图片.txtS0$HUMAN(装备强化等级)
MOVHUMAN装备强化发光图片$STR(S0)
GetRandomText.QuestDiary装备系统装备洗炼提示.txtS0$HUMAN(装备强化等级)
MOVHUMANItemStr$STR(S0)
MOVM10
GOTO@洗炼新属性
BREAK
;-----------------------------------------------------------------------
;-----------------------------------------------------------------------
;计算新属性
;-----------------------------------------------------------------------
;-----------------------------------------------------------------------
[@洗炼新属性]
#IF
CheckNewItemValue$HUMAN(装备部位)0=$STR(M1)
#ACT
CALCVARHUMANNewItemValue0=$STR(M1)
;sendmsg6M1=$STR(M1)
MOVM10
GOTO@洗炼新属性B
BREAK
#IF
LARGEM135
#ACT
MOVM10
messagebox获取当前装备灵魂属性数据失败,请客服!
BREAK
#IF
CHECKLEVELEX0
#ACT
INCM11
GOTO@洗炼新属性
BREAK
;-----------------------------------------------------------------------
[@洗炼新属性B]
#IF
CheckNewItemValue$HUMAN(装备部位)1=$STR(M1)
#ACT
CALCVARHUMANNewItemValue1=$STR(M1)
MOVM10
GOTO@洗炼新属性C
BREAK
#IF
LARGEM135
#ACT
MOVM10
messagebox获取当前装备灵魂属性数据失败,请客服!
BREAK
#IF
CHECKLEVELEX0
#ACT
INCM11
GOTO@洗炼新属性B
BREAK
;-----------------------------------------------------------------------
[@洗炼新属性C]
#IF
CheckNewItemValue$HUMAN(装备部位)2=$STR(M1)
#ACT
CALCVARHUMANNewItemValue2=$STR(M1)
MOVM10
GOTO@洗炼新属性D
BREAK
#IF
LARGEM135
#ACT
MOVM10
messagebox获取当前装备灵魂属性数据失败,请客服!
BREAK
#IF
CHECKLEVELEX0
#ACT
INCM11
GOTO@洗炼新属性C
BREAK
;-----------------------------------------------------------------------
[@洗炼新属性D]
#IF
CheckNewItemValue$HUMAN(装备部位)3=$STR(M1)
#ACT
CALCVARHUMANNewItemValue3=$STR(M1)
MOVM10
GOTO@洗炼新属性E
BREAK
#IF
LARGEM135
#ACT
MOVM10
messagebox获取当前装备灵魂属性数据失败,请客服!
BREAK
#IF
CHECKLEVELEX0
#ACT
INCM11
GOTO@洗炼新属性D
BREAK
;-----------------------------------------------------------------------
[@洗炼新属性E]
#IF
CheckNewItemValue$HUMAN(装备部位)4=$STR(M1)
#ACT
CALCVARHUMANNewItemValue4=$STR(M1)
MOVM10
GOTO@洗炼新属性F
BREAK
#IF
LARGEM155
#ACT
MOVM10
messagebox获取当前装备灵魂属性数据失败,请客服!
BREAK
#IF
CHECKLEVELEX0
#ACT
INCM11
GOTO@洗炼新属性E
BREAK
;-----------------------------------------------------------------------
[@洗炼新属性F]
#IF
CheckNewItemValue$HUMAN(装备部位)5=$STR(M1)
#ACT
CALCVARHUMANNewItemValue5=$STR(M1)
MOVM10
GOTO@洗炼新属性G
BREAK
#IF
LARGEM135
#ACT
MOVM10
messagebox获取当前装备灵魂属性数据失败,请客服!
BREAK
#IF
CHECKLEVELEX0
#ACT
INCM11
GOTO@洗炼新属性F
BREAK
;-----------------------------------------------------------------------
[@洗炼新属性G]
#IF
CheckNewItemValue$HUMAN(装备部位)6=$STR(M1)
#ACT
CALCVARHUMANNewItemValue6=$STR(M1)
MOVM10
GOTO@洗炼新属性H
BREAK
#IF
LARGEM155
#ACT
MOVM10
messagebox获取当前装备灵魂属性数据失败,请客服!
BREAK
#IF
CHECKLEVELEX0
#ACT
INCM11
GOTO@洗炼新属性G
BREAK
;-----------------------------------------------------------------------
[@洗炼新属性H]
#IF
CheckNewItemValue$HUMAN(装备部位)7=$STR(M1)
#ACT
CALCVARHUMANNewItemValue7=$STR(M1)
MOVM10
GOTO@新属性结果
BREAK
#IF
LARGEM135
#ACT
MOVM10
messagebox获取当前装备灵魂属性数据失败,请客服!
BREAK
#IF
CHECKLEVELEX0
#ACT
INCM11
GOTO@洗炼新属性H
BREAK
[@新属性结果]
#IF
CHECKLEVELEX0
#ACT
MOVS0
MOVS2
MOVS3
MOVM10
CALCVARHUMANNewNameStr0=
CALCVARHUMANNewNameStr1=
CALCVARHUMANNewNameStr2=
CALCVARHUMANNewNameStr3=
CALCVARHUMANNewNameStr4=
CALCVARHUMANNewNameStr5=
CALCVARHUMANNewNameStr6=
CALCVARHUMANNewNameStr7=
CALCVARHUMANNewValStr0=
CALCVARHUMANNewValStr1=
CALCVARHUMANNewValStr2=
CALCVARHUMANNewValStr3=
CALCVARHUMANNewValStr4=
CALCVARHUMANNewValStr5=
CALCVARHUMANNewValStr6=
CALCVARHUMANNewValStr7=
CALCVARHUMANLockImg1=
CALCVARHUMANLockImg2=
CALCVARHUMANLockImg3=
CALCVARHUMANLockImg4=
CALCVARHUMANLockImg5=
CALCVARHUMANLockImg6=
CALCVARHUMANLockImg7=
CALCVARHUMANLockImg8=
CALCVARHUMANLockBtn1=
CALCVARHUMANLockBtn2=
CALCVARHUMANLockBtn3=
CALCVARHUMANLockBtn4=
CALCVARHUMANLockBtn5=
CALCVARHUMANLockBtn6=
CALCVARHUMANLockBtn7=
CALCVARHUMANLockBtn8=
;---------------------------------------------------------------------
;---------------------------------------------------------------------
#IF
CheckNewItemValue$HUMAN(装备部位)00
CheckNewItemValue$HUMAN(装备部位)05
#ACT
MOVS0致命一击
SetStringBlankS090
MOVS1
INCS1$STR(S0)
INCS1SCOLOR=254
CALCVARHUMANNewNameStr0=$STR(S1)
MOVS0$HUMAN(NewItemValue0)
INCS0(5)
SetStringBlankS0100
INCS0SCOLOR=116
CALCVARHUMANNewValStr0=$STR(S0)
INCM11
#IF
CheckNewItemValue$HUMAN(装备部位)0=5
#ACT
MOVS0致命一击
SetStringBlankS090
MOVS1
INCS1$STR(S0)
INCS1SCOLOR=254
CALCVARHUMANNewNameStr0=$STR(S1)
MOVS05SCOLOR=253
SetStringBlankS0171
SetStringBlankS0220
CALCVARHUMANNewValStr0=$STR(S0)
INCM11
;sendmsg6$HUMAN(NewNameStr0)
;---------------------------------------------------------------------
#IF
CheckNewItemValue$HUMAN(装备部位)00
CHECKVARHUMANLock1=1
#ACT
MULM0$STR(M1)2
DECM01
MOVS0Img:4409:0:
INCS0$STR(M0)
INCS0:-1
MOVHUMANLockIMg1$STR(S0)
MULM0$STR(M1)2
MOVS0Img:4408:0:
INCS0$STR(M0)
INCS0:0@LockBtn1
MOVHUMANLockBtn1$STR(S0)
#IF
CheckNewItemValue$HUMAN(装备部位)00
CHECKVARHUMANLock1=0
#ACT
MULM0$STR(M1)2
DECM01
MOVS0Img:4411:0:
INCS0$STR(M0)
INCS0:-1
MOVHUMANLockIMg1$STR(S0)
MULM0$STR(M1)2
MOVS0Img:4410:0:
INCS0$STR(M0)
INCS0:0@LockBtn1
MOVHUMANLockBtn1$STR(S0)
;---------------------------------------------------------------------
;---------------------------------------------------------------------
#IF
CheckNewItemValue$HUMAN(装备部位)10
CheckNewItemValue$HUMAN(装备部位)15
#ACT
MOVS0伤害增加
SetStringBlankS090
MOVS1
INCS1$STR(S0)
INCS1SCOLOR=254
CALCVARHUMANNewNameStr1=$STR(S1)
MOVS0$HUMAN(NewItemValue1)
INCS0(5)
SetStringBlankS0100
INCS0SCOLOR=116
CALCVARHUMANNewValStr1=$STR(S0)
INCM11
#IF
CheckNewItemValue$HUMAN(装备部位)1=5
#ACT
MOVS0伤害增加
SetStringBlankS090
MOVS1
INCS1$STR(S0)
INCS1SCOLOR=254
CALCVARHUMANNewNameStr1=$STR(S1)
MOVS05SCOLOR=253
SetStringBlankS0171
SetStringBlankS0220
CALCVARHUMANNewValStr1=$STR(S0)
INCM11
;---------------------------------------------------------------------
#IF
CheckNewItemValue$HUMAN(装备部位)10
CHECKVARHUMANLock2=1
#ACT
MULM0$STR(M1)2
DECM01
MOVS0Img:4409:0:
INCS0$STR(M0)
INCS0:-1
MOVHUMANLockIMg2$STR(S0)
MULM0$STR(M1)2
MOVS0Img:4408:0:
INCS0$STR(M0)
INCS0:0@LockBtn2
MOVHUMANLockBtn2$STR(S0)
#IF
CheckNewItemValue$HUMAN(装备部位)10
CHECKVARHUMANLock2=0
#ACT
MULM0$STR(M1)2
DECM01
MOVS0Img:4411:0:
INCS0$STR(M0)
INCS0:-1
MOVHUMANLockIMg2$STR(S0)
MULM0$STR(M1)2
MOVS0Img:4410:0:
INCS0$STR(M0)
INCS0:0@LockBtn2
MOVHUMANLockBtn2$STR(S0)
;---------------------------------------------------------------------
;---------------------------------------------------------------------
#IF
CheckNewItemValue$HUMAN(装备部位)20
CheckNewItemValue$HUMAN(装备部位)25
#ACT
MOVS0物伤减少
SetStringBlankS090
MOVS1
INCS1$STR(S0)
INCS1SCOLOR=254
CALCVARHUMANNewNameStr2=$STR(S1)
MOVS0$HUMAN(NewItemValue2)
INCS0(5)
SetStringBlankS0100
INCS0SCOLOR=116
CALCVARHUMANNewValStr2=$STR(S0)
INCM11
#IF
CheckNewItemValue$HUMAN(装备部位)2=5
#ACT
MOVS0物伤减少
SetStringBlankS090
MOVS1
INCS1$STR(S0)
INCS1SCOLOR=254
CALCVARHUMANNewNameStr2=$STR(S1)
MOVS05SCOLOR=253
SetStringBlankS0171
SetStringBlankS0220
CALCVARHUMANNewValStr2=$STR(S0)
INCM11
;---------------------------------------------------------------------
#IF
CheckNewItemValue$HUMAN(装备部位)20
CHECKVARHUMANLock3=1
#ACT
MULM0$STR(M1)2
DECM01
MOVS0Img:4409:0:
INCS0$STR(M0)
INCS0:-1
MOVHUMANLockIMg3$STR(S0)
MULM0$STR(M1)2
MOVS0Img:4408:0:
INCS0$STR(M0)
INCS0:0@LockBtn3
MOVHUMANLockBtn3$STR(S0)
#IF
CheckNewItemValue$HUMAN(装备部位)20
CHECKVARHUMANLock3=0
#ACT
MULM0$STR(M1)2
DECM01
MOVS0Img:4411:0:
INCS0$STR(M0)
INCS0:-1
MOVHUMANLockIMg3$STR(S0)
MULM0$STR(M1)2
MOVS0Img:4410:0:
INCS0$STR(M0)
INCS0:0@LockBtn3
MOVHUMANLockBtn3$STR(S0)
;---------------------------------------------------------------------
;---------------------------------------------------------------------
#IF
CheckNewItemValue$HUMAN(装备部位)30
CheckNewItemValue$HUMAN(装备部位)35
#ACT
MOVS0法伤减少
SetStringBlankS090
MOVS1
INCS1$STR(S0)
INCS1SCOLOR=254
CALCVARHUMANNewNameStr3=$STR(S1)
MOVS0$HUMAN(NewItemValue3)
INCS0(5)
SetStringBlankS0100
INCS0SCOLOR=116
CALCVARHUMANNewValStr3=$STR(S0)
INCM11
#IF
CheckNewItemValue$HUMAN(装备部位)3=5
#ACT
MOVS0法伤减少
SetStringBlankS090
MOVS1
INCS1$STR(S0)
INCS1SCOLOR=254
CALCVARHUMANNewNameStr3=$STR(S1)
MOVS05SCOLOR=253
SetStringBlankS0171
SetStringBlankS0220
CALCVARHUMANNewValStr3=$STR(S0)
INCM11
;---------------------------------------------------------------------
#IF
CheckNewItemValue$HUMAN(装备部位)30
CHECKVARHUMANLock4=1
#ACT
MULM0$STR(M1)2
DECM01
MOVS0Img:4409:0:
INCS0$STR(M0)
INCS0:-1
MOVHUMANLockIMg4$STR(S0)
MULM0$STR(M1)2
MOVS0Img:4408:0:
INCS0$STR(M0)
INCS0:0@LockBtn4
MOVHUMANLockBtn4$STR(S0)
#IF
CheckNewItemValue$HUMAN(装备部位)30
CHECKVARHUMANLock4=0
#ACT
MULM0$STR(M1)2
DECM01
MOVS0Img:4411:0:
INCS0$STR(M0)
INCS0:-1
MOVHUMANLockIMg4$STR(S0)
MULM0$STR(M1)2
MOVS0Img:4410:0:
INCS0$STR(M0)
INCS0:0@LockBtn4
MOVHUMANLockBtn4$STR(S0)
;---------------------------------------------------------------------
;---------------------------------------------------------------------
#IF
CheckNewItemValue$HUMAN(装备部位)40
CheckNewItemValue$HUMAN(装备部位)45
#ACT
MOVS0忽视防御
SetStringBlankS090
MOVS1
INCS1$STR(S0)
INCS1SCOLOR=254
CALCVARHUMANNewNameStr4=$STR(S1)
MOVS0$HUMAN(NewItemValue4)
INCS0(5)
SetStringBlankS0100
INCS0SCOLOR=116
CALCVARHUMANNewValStr4=$STR(S0)
INCM11
#IF
CheckNewItemValue$HUMAN(装备部位)4=5
#ACT
MOVS0忽视防御
SetStringBlankS090
MOVS1
INCS1$STR(S0)
INCS1SCOLOR=254
CALCVARHUMANNewNameStr4=$STR(S1)
MOVS05SCOLOR=253
SetStringBlankS0171
SetStringBlankS0220
CALCVARHUMANNewValStr4=$STR(S0)
INCM11
;---------------------------------------------------------------------
#IF
CheckNewItemValue$HUMAN(装备部位)40
CHECKVARHUMANLock5=1
#ACT
MULM0$STR(M1)2
DECM01
MOVS0Img:4409:0:
INCS0$STR(M0)
INCS0:-1
MOVHUMANLockIMg5$STR(S0)
MULM0$STR(M1)2
MOVS0Img:4408:0:
INCS0$STR(M0)
INCS0:0@LockBtn5
MOVHUMANLockBtn5$STR(S0)
#IF
CheckNewItemValue$HUMAN(装备部位)40
CHECKVARHUMANLock5=0
#ACT
MULM0$STR(M1)2
DECM01
MOVS0Img:4411:0:
INCS0$STR(M0)
INCS0:-1
MOVHUMANLockIMg5$STR(S0)
MULM0$STR(M1)2
MOVS0Img:4410:0:
INCS0$STR(M0)
INCS0:0@LockBtn5
MOVHUMANLockBtn5$STR(S0)
;---------------------------------------------------------------------
;---------------------------------------------------------------------
#IF
CheckNewItemValue$HUMAN(装备部位)50
CheckNewItemValue$HUMAN(装备部位)55
#ACT
MOVS0伤害反弹
SetStringBlankS090
MOVS1
INCS1$STR(S0)
INCS1SCOLOR=254
CALCVARHUMANNewNameStr5=$STR(S1)
MOVS0$HUMAN(NewItemValue5)
INCS0(5)
SetStringBlankS0100
INCS0SCOLOR=116
CALCVARHUMANNewValStr5=$STR(S0)
INCM11
#IF
CheckNewItemValue$HUMAN(装备部位)5=5
#ACT
MOVS0伤害反弹
SetStringBlankS090
MOVS1
INCS1$STR(S0)
INCS1SCOLOR=254
CALCVARHUMANNewNameStr5=$STR(S1)
MOVS05SCOLOR=253
SetStringBlankS0171
SetStringBlankS0220
CALCVARHUMANNewValStr5=$STR(S0)
INCM11
;---------------------------------------------------------------------
#IF
CheckNewItemValue$HUMAN(装备部位)50
CHECKVARHUMANLock6=1
#ACT
MULM0$STR(M1)2
DECM01
MOVS0Img:4409:0:
INCS0$STR(M0)
INCS0:-1
MOVHUMANLockIMg6$STR(S0)
MULM0$STR(M1)2
MOVS0Img:4408:0:
INCS0$STR(M0)
INCS0:0@LockBtn6
MOVHUMANLockBtn6$STR(S0)
#IF
CheckNewItemValue$HUMAN(装备部位)50
CHECKVARHUMANLock6=0
#ACT
MULM0$STR(M1)2
DECM01
MOVS0Img:4411:0:
INCS0$STR(M0)
INCS0:-1
MOVHUMANLockIMg6$STR(S0)
MULM0$STR(M1)2
MOVS0Img:4410:0:
INCS0$STR(M0)
INCS0:0@LockBtn6
MOVHUMANLockBtn6$STR(S0)
;---------------------------------------------------------------------
;---------------------------------------------------------------------
#IF
CheckNewItemValue$HUMAN(装备部位)60
CheckNewItemValue$HUMAN(装备部位)65
#ACT
MOVS0增加体质
SetStringBlankS090
MOVS1
INCS1$STR(S0)
INCS1SCOLOR=254
CALCVARHUMANNewNameStr6=$STR(S1)
MOVS0$HUMAN(NewItemValue6)
INCS0(5)
SetStringBlankS0100
INCS0SCOLOR=116
CALCVARHUMANNewValStr6=$STR(S0)
INCM11
#IF
CheckNewItemValue$HUMAN(装备部位)6=5
#ACT
MOVS0增加体质
SetStringBlankS090
MOVS1
INCS1$STR(S0)
INCS1SCOLOR=254
CALCVARHUMANNewNameStr6=$STR(S1)
MOVS05SCOLOR=253
SetStringBlankS0171
SetStringBlankS0220
CALCVARHUMANNewValStr6=$STR(S0)
INCM11
;---------------------------------------------------------------------
#IF
CheckNewItemValue$HUMAN(装备部位)60
CHECKVARHUMANLock7=1
#ACT
MULM0$STR(M1)2
DECM01
MOVS0Img:4409:0:
INCS0$STR(M0)
INCS0:-1
MOVHUMANLockIMg7$STR(S0)
MULM0$STR(M1)2
MOVS0Img:4408:0:
INCS0$STR(M0)
INCS0:0@LockBtn7
MOVHUMANLockBtn7$STR(S0)
#IF
CheckNewItemValue$HUMAN(装备部位)60
CHECKVARHUMANLock7=0
#ACT
MULM0$STR(M1)2
DECM01
MOVS0Img:4411:0:
INCS0$STR(M0)
INCS0:-1
MOVHUMANLockIMg7$STR(S0)
MULM0$STR(M1)2
MOVS0Img:4410:0:
INCS0$STR(M0)
INCS0:0@LockBtn7
MOVHUMANLockBtn7$STR(S0)
;---------------------------------------------------------------------
;---------------------------------------------------------------------
#IF
CheckNewItemValue$HUMAN(装备部位)70
CheckNewItemValue$HUMAN(装备部位)75
#ACT
MOVS0附加经验
SetStringBlankS090
MOVS1
INCS1$STR(S0)
INCS1SCOLOR=254
CALCVARHUMANNewNameStr7=$STR(S1)
MOVS0$HUMAN(NewItemValue7)
INCS0(5)
SetStringBlankS0100
INCS0SCOLOR=116
CALCVARHUMANNewValStr7=$STR(S0)
INCM11
#IF
CheckNewItemValue$HUMAN(装备部位)7=5
#ACT
MOVS0附加经验
SetStringBlankS090
MOVS1
INCS1$STR(S0)
INCS1SCOLOR=254
CALCVARHUMANNewNameStr7=$STR(S1)
MOVS05SCOLOR=253
SetStringBlankS0171
SetStringBlankS0220
CALCVARHUMANNewValStr7=$STR(S0)
INCM11
;---------------------------------------------------------------------
#IF
CheckNewItemValue$HUMAN(装备部位)70
CHECKVARHUMANLock8=1
#ACT
MULM0$STR(M1)2
DECM01
MOVS0Img:4409:0:
INCS0$STR(M0)
INCS0:-1
MOVHUMANLockIMg8$STR(S0)
MULM0$STR(M1)2
MOVS0Img:4408:0:
INCS0$STR(M0)
INCS0:0@LockBtn8
MOVHUMANLockBtn8$STR(S0)
#IF
CheckNewItemValue$HUMAN(装备部位)70
CHECKVARHUMANLock8=0
#ACT
MULM0$STR(M1)2
DECM01
MOVS0Img:4411:0:
INCS0$STR(M0)
INCS0:-1
MOVHUMANLockIMg8$STR(S0)
MULM0$STR(M1)2
MOVS0Img:4410:0:
INCS0$STR(M0)
INCS0:0@LockBtn8
MOVHUMANLockBtn8$STR(S0)
;---------------------------------------------------------------------
;---------------------------------------------------------------------
#IF
EQUALM10
#ACT
GOTO@装备洗炼0
BREAK
#ELSEACT
GOTO@装备洗炼1
BREAK
;------------------------------------------------------------------------------------------------------------------
;------------------------------------------------------------------------------------------------------------------
[@装备洗炼0]
#IF
CHECKLEVELEX0
#ACT
CALCVARHUMAN装备穿戴=0
BREAK
#SAY
Img:4054:0:188:-20@EXITImg:0:0:0:0
Img:4305:0:-23:-12 Img:4402:0:20:-8$HUMAN(装备内观)
$HUMAN(ItemStr)
Img:4401:0:8:80@装备洗炼生成$HUMAN(装备强化发光图片)Img:4407:0:-203:11
花费:SCOLOR=1031颗洗炼石SCOLOR=116
或20元宝SCOLOR=116
;------------------------------------------------------------------------------------------------------------------
[@装备洗炼1]
#IF
CHECKVARHUMANLockNum=0
#ACT
CALCVARHUMANLockStr=1颗洗炼石SCOLOR=116
MOVS0或
SetStringBlankS040
INCS020元宝SCOLOR=116
CALCVARHUMANLockStr2=$STR(S0)
#IF
CHECKVARHUMANLockNum=1
#ACT
CALCVARHUMANLockGold=100
CALCVARHUMANLockStr=100元宝SCOLOR=116
CALCVARHUMANLockStr2=
#IF
CHECKVARHUMANLockNum=2
#ACT
CALCVARHUMANLockGold=300
CALCVARHUMANLockStr=300元宝SCOLOR=116
CALCVARHUMANLockStr2=
#IF
CHECKVARHUMANLockNum=3
#ACT
CALCVARHUMANLockGold=1000
CALCVARHUMANLockStr=1000元宝SCOLOR=116
CALCVARHUMANLockStr2=
#IF
CHECKLEVELEX0
#ACT
MOVS0
MOVS1
SetStringBlankS110
#IF
CHECKVARHUMANLockBtn1=
#ELSEACT
INCS0$HUMAN(LockIMg1)
INCS0$HUMAN(LockBtn1)
INCS0$STR(S1)
#IF
CHECKVARHUMANLockBtn2=
#ELSEACT
INCS0$HUMAN(LockIMg2)
INCS0$HUMAN(LockBtn2)
INCS0$STR(S1)
#IF
CHECKVARHUMANLockBtn3=
#ELSEACT
INCS0$HUMAN(LockIMg3)
INCS0$HUMAN(LockBtn3)
INCS0$STR(S1)
#IF
CHECKVARHUMANLockBtn4=
#ELSEACT
INCS0$HUMAN(LockIMg4)
INCS0$HUMAN(LockBtn4)
INCS0$STR(S1)
#IF
CHECKVARHUMANLockBtn5=
#ELSEACT
INCS0$HUMAN(LockIMg5)
INCS0$HUMAN(LockBtn5)
INCS0$STR(S1)
#IF
CHECKVARHUMANLockBtn6=
#ELSEACT
INCS0$HUMAN(LockIMg6)
INCS0$HUMAN(LockBtn6)
INCS0$STR(S1)
#IF
CHECKVARHUMANLockBtn7=
#ELSEACT
INCS0$HUMAN(LockIMg7)
INCS0$HUMAN(LockBtn7)
INCS0$STR(S1)
#IF
CHECKVARHUMANLockBtn8=
#ELSEACT
INCS0$HUMAN(LockIMg8)
INCS0$HUMAN(LockBtn8)。 |
![]() |
3.;-------------------------------------------------------------------- #IF EQUALM95 random3 #ACT MOVRM116 SetNewIteMValue$HUMAN(装备部位)$STR(M3)=$STR(M1) MOVRM116 SetNewIteMValue$HUMAN(装备部位)$STR(M4)=$STR(M1) MOVRM116 SetNewIteMValue$HUMAN(装备部位)$STR(M5)=$STR(M1) MOVRM116 SetNewIteMValue$HUMAN(装备部位)$STR(M6)=$STR(M1) MOVRM116 SetNewIteMValue$HUMAN(装备部位)$STR(M7)=$STR(M1) GOTO@装备洗炼H BREAK #IF EQUALM95 #ACT MOVRM116 SetNewIteMValue$HUMAN(装备部位)$STR(M3)=$STR(M1) MOVRM114 SetNewIteMValue$HUMAN(装备部位)$STR(M4)=$STR(M1) MOVRM113 SetNewIteMValue$HUMAN(装备部位)$STR(M5)=$STR(M1) MOVRM113 SetNewIteMValue$HUMAN(装备部位)$STR(M6)=$STR(M1) MOVRM112 SetNewIteMValue$HUMAN(装备部位)$STR(M7)=$STR(M1) GOTO@装备洗炼H BREAK ;-------------------------------------------------------------------- [@装备洗炼H] #IF CheckNewItemValue$HUMAN(装备部位)03 #ACT MOVRM116 SetNewIteMValue$HUMAN(装备部位)0=$STR(M1) #IF CHECKVARHUMANLockNum0 #ACT GOTO@装备洗炼I #ELSEACT GOTO@装备洗炼A BREAK [@装备洗炼I] #IF CHECKVARHUMANLock1=1 #ACT SetNewIteMValue$HUMAN(装备部位)0=$HUMAN(NewItemValue0) #IF CHECKVARHUMANLock2=1 #ACT SetNewIteMValue$HUMAN(装备部位)1=$HUMAN(NewItemValue1) #IF CHECKVARHUMANLock3=1 #ACT SetNewIteMValue$HUMAN(装备部位)2=$HUMAN(NewItemValue2) #IF CHECKVARHUMANLock4=1 #ACT SetNewIteMValue$HUMAN(装备部位)3=$HUMAN(NewItemValue3) #IF CHECKVARHUMANLock5=1 #ACT SetNewIteMValue$HUMAN(装备部位)4=$HUMAN(NewItemValue4) #IF CHECKVARHUMANLock6=1 #ACT SetNewIteMValue$HUMAN(装备部位)5=$HUMAN(NewItemValue5) #IF CHECKVARHUMANLock7=1 #ACT SetNewIteMValue$HUMAN(装备部位)6=$HUMAN(NewItemValue6) #IF CHECKVARHUMANLock8=1 #ACT SetNewIteMValue$HUMAN(装备部位)7=$HUMAN(NewItemValue7) #IF CHECKLEVELEX0 #ACT GOTO@装备洗炼A BREAK。 |
4.;---------------------------------- ;X2 MOVM40 MULM4$STR(M0)$STR(M3) INCM4$STR(M1) #IF SMALLM48 #ACT INCM48 #IF CHECKLEVELEX0 #ACT DIVM8$STR(M4)8 MULM8$STR(M8)8 DECM4$STR(M8) ;---------------------------------- ;X3 MOVM50 MULM5$STR(M0)$STR(M4) INCM5$STR(M1) #IF SMALLM58 #ACT INCM58 #IF CHECKLEVELEX0 #ACT DIVM8$STR(M5)8 MULM8$STR(M8)8 DECM5$STR(M8) ;---------------------------------- ;X3 MOVM60 MULM6$STR(M0)$STR(M5) INCM6$STR(M1) #IF SMALLM68 #ACT INCM68 #IF CHECKLEVELEX0 #ACT DIVM8$STR(M6)8 MULM8$STR(M8)8 DECM6$STR(M8) ;---------------------------------- ;X3 MOVM70 MULM7$STR(M0)$STR(M6) INCM7$STR(M1) #IF SMALLM78 #ACT INCM78 #IF CHECKLEVELEX0 #ACT DIVM8$STR(M7)8 MULM8$STR(M8)8 DECM7$STR(M8) ;---------------------------------- ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;-------------------------------------------------------------------- ;SENDMSG6;---------------------------------- ;SENDMSG6X1=$STR(M3) ;SENDMSG6X2=$STR(M4) ;SENDMSG6X3=$STR(M5) ;SENDMSG6X4=$STR(M6) ;SENDMSG6X5=$STR(M7) ;SENDMSG6;---------------------------------- ;-------------------------------------------------------------------- ;-------------------------------------------------------------------- #IF EQUALM91 random3 #ACT MOVRM116 SetNewIteMValue$HUMAN(装备部位)$STR(M3)=$STR(M1) GOTO@装备洗炼H BREAK #IF EQUALM91 #ACT MOVRM113 SetNewIteMValue$HUMAN(装备部位)$STR(M3)=$STR(M1) GOTO@装备洗炼H BREAK ;-------------------------------------------------------------------- #IF EQUALM92 random3 #ACT MOVRM116 SetNewIteMValue$HUMAN(装备部位)$STR(M3)=$STR(M1) MOVRM116 SetNewIteMValue$HUMAN(装备部位)$STR(M4)=$STR(M1) GOTO@装备洗炼H BREAK #IF EQUALM92 #ACT MOVRM116 SetNewIteMValue$HUMAN(装备部位)$STR(M3)=$STR(M1) MOVRM114 SetNewIteMValue$HUMAN(装备部位)$STR(M4)=$STR(M1) GOTO@装备洗炼H BREAK ;-------------------------------------------------------------------- #IF EQUALM93 random3 #ACT MOVRM116 SetNewIteMValue$HUMAN(装备部位)$STR(M3)=$STR(M1) MOVRM116 SetNewIteMValue$HUMAN(装备部位)$STR(M4)=$STR(M1) MOVRM116 SetNewIteMValue$HUMAN(装备部位)$STR(M5)=$STR(M1) GOTO@装备洗炼H BREAK #IF EQUALM93 #ACT MOVRM116 SetNewIteMValue$HUMAN(装备部位)$STR(M3)=$STR(M1) MOVRM114 SetNewIteMValue$HUMAN(装备部位)$STR(M4)=$STR(M1) MOVRM113 SetNewIteMValue$HUMAN(装备部位)$STR(M5)=$STR(M1) GOTO@装备洗炼H BREAK ;-------------------------------------------------------------------- #IF EQUALM94 random3 #ACT MOVRM116 SetNewIteMValue$HUMAN(装备部位)$STR(M3)=$STR(M1) MOVRM116 SetNewIteMValue$HUMAN(装备部位)$STR(M4)=$STR(M1) MOVRM116 SetNewIteMValue$HUMAN(装备部位)$STR(M5)=$STR(M1) MOVRM116 SetNewIteMValue$HUMAN(装备部位)$STR(M6)=$STR(M1) GOTO@装备洗炼H BREAK #IF EQUALM94 #ACT MOVRM116 SetNewIteMValue$HUMAN(装备部位)$STR(M3)=$STR(M1) MOVRM114 SetNewIteMValue$HUMAN(装备部位)$STR(M4)=$STR(M1) MOVRM113 SetNewIteMValue$HUMAN(装备部位)$STR(M5)=$STR(M1) MOVRM113 SetNewIteMValue$HUMAN(装备部位)$STR(M6)=$STR(M1) GOTO@装备洗炼H BREAK 。 |
5.#IF CHECKLEVELEX0 #ACT CALCVARHUMAN装备穿戴=0 BREAK #SAY Img:4054:0:188:-20@EXITImg:0:0:0:0 Img:4305:0:-23:-12 Img:4402:0:20:-8$HUMAN(装备内观) $HUMAN(ItemStr) Img:4401:0:8:80@装备洗炼生成$HUMAN(装备强化发光图片) $HUMAN(NewNameStr0)$HUMAN(NewNameStr1)$HUMAN(NewNameStr2)$HUMAN(NewNameStr3)$HUMAN(NewNameStr4)$HUMAN(NewNameStr5)$HUMAN(NewNameStr6)$HUMAN(NewNameStr7) $HUMAN(NewValStr0)$HUMAN(NewValStr1)$HUMAN(NewValStr2)$HUMAN(NewValStr3)$HUMAN(NewValStr4)$HUMAN(NewValStr5)$HUMAN(NewValStr6)$HUMAN(NewValStr7) $STR(S0) Img:4407:0:-3:-53 花费:SCOLOR=103$HUMAN(LockStr) $HUMAN(LockStr2) ;------------------------------------------------------------------------------------------------------------------ [@LockBtn1] #IF CHECKVARHUMANLockNum2 CHECKVARHUMANLock1=0 #ACT MESSAGEBOX最多只能锁定【3项】灵魂属性! BREAK #IF CHECKVARHUMANLock1=1 #ACT MOVHUMANLock10 CALCVARHUMANLockNum-1 GOTO@装备洗炼A BREAK #ELSEACT MOVHUMANLock11 CALCVARHUMANLockNum+1 GOTO@装备洗炼A BREAK [@LockBtn2] #IF CHECKVARHUMANLockNum2 CHECKVARHUMANLock2=0 #ACT MESSAGEBOX最多只能锁定【3项】灵魂属性! BREAK #IF CHECKVARHUMANLock2=1 #ACT MOVHUMANLock20 CALCVARHUMANLockNum-1 GOTO@装备洗炼A BREAK #ELSEACT MOVHUMANLock21 CALCVARHUMANLockNum+1 GOTO@装备洗炼A BREAK [@LockBtn3] #IF CHECKVARHUMANLockNum2 CHECKVARHUMANLock3=0 #ACT MESSAGEBOX最多只能锁定【3项】灵魂属性! BREAK #IF CHECKVARHUMANLock3=1 #ACT MOVHUMANLock30 CALCVARHUMANLockNum-1 GOTO@装备洗炼A BREAK #ELSEACT MOVHUMANLock31 CALCVARHUMANLockNum+1 GOTO@装备洗炼A BREAK [@LockBtn4] #IF CHECKVARHUMANLockNum2 CHECKVARHUMANLock4=0 #ACT MESSAGEBOX最多只能锁定【3项】灵魂属性! BREAK #IF CHECKVARHUMANLock4=1 #ACT MOVHUMANLock40 CALCVARHUMANLockNum-1 GOTO@装备洗炼A BREAK #ELSEACT MOVHUMANLock41 CALCVARHUMANLockNum+1 GOTO@装备洗炼A BREAK [@LockBtn5] #IF CHECKVARHUMANLockNum2 CHECKVARHUMANLock5=0 #ACT MESSAGEBOX最多只能锁定【3项】灵魂属性! BREAK #IF CHECKVARHUMANLock5=1 #ACT MOVHUMANLock50 CALCVARHUMANLockNum-1 GOTO@装备洗炼A BREAK #ELSEACT MOVHUMANLock51 CALCVARHUMANLockNum+1 GOTO@装备洗炼A BREAK [@LockBtn6] #IF CHECKVARHUMANLockNum2 CHECKVARHUMANLock6=0 #ACT MESSAGEBOX最多只能锁定【3项】灵魂属性! BREAK #IF CHECKVARHUMANLock6=1 #ACT MOVHUMANLock60 CALCVARHUMANLockNum-1 GOTO@装备洗炼A BREAK #ELSEACT MOVHUMANLock61 CALCVARHUMANLockNum+1 GOTO@装备洗炼A BREAK [@LockBtn7] #IF CHECKVARHUMANLockNum2 CHECKVARHUMANLock7=0 #ACT MESSAGEBOX最多只能锁定【3项】灵魂属性! BREAK #IF CHECKVARHUMANLock7=1 #ACT MOVHUMANLock70 CALCVARHUMANLockNum-1 GOTO@装备洗炼A BREAK #ELSEACT MOVHUMANLock71 CALCVARHUMANLockNum+1 GOTO@装备洗炼A BREAK [@LockBtn8] #IF CHECKVARHUMANLockNum2 CHECKVARHUMANLock8=0 #ACT MESSAGEBOX最多只能锁定【3项】灵魂属性! BREAK #IF CHECKVARHUMANLock8=1 #ACT MOVHUMANLock80 CALCVARHUMANLockNum-1 GOTO@装备洗炼A BREAK #ELSEACT MOVHUMANLock81 CALCVARHUMANLockNum+1 GOTO@装备洗炼A BREAK ;------------------------------------------------------------------------------------------------------------------ ;------------------------------------------------------------------------------------------------------------------ [@装备洗炼生成] #IF CHECKUSEITEM$HUMAN(装备部位) #ELSEACT GOTO@装备洗炼 messagebox请将你要洗炼的装备:〖$HUMAN(装备类型)〗带到身上! break #IF CHECKVARHUMAN装备穿戴=1 #ACT GOTO@装备洗炼 messagebox当前洗炼的装备:〖$HUMAN(装备类型)〗有变动! 警告:装备洗炼时不要进行装备穿戴,负责后果自负! break ;-------------------------------------------------------------------- #IF CHECKLEVELEX0 #ACT GetRandomText.QuestDiary装备系统装备洗炼等级.txtS0$HUMAN(装备强化等级) MOVM1$STR(S0) #IF EQUALM10 #ACT GOTO@装备洗炼 messagebox当前$HUMAN(装备类型)的〖装备等级〗太低,达不到洗炼要求! BREAK ;-------------------------------------------------------------------- #IF CHECKVARHUMANLockNum=0 checkitem洗炼石1 #ACT TAKE洗炼石1 GOTO@装备洗炼生成B BREAK #IF CHECKVARHUMANLockNum=0 CHECKGAMEGOLD19 #ACT GAMEGOLD-20 GOTO@装备洗炼生成B BREAK #IF CHECKVARHUMANLockNum=0 CHECKGAMEGOLD20 #ACT messagebox您的包裹中没有〖洗炼石〗! 当然,如果您有20元宝,也可以,但您的元宝也不够! BREAK #IF CHECKVARHUMANLockNum=1 CHECKGAMEGOLD99 #ACT GAMEGOLD-100 GOTO@装备洗炼生成B BREAK #IF CHECKVARHUMANLockNum=1 CHECKGAMEGOLD100 #ACT messagebox您的元宝不够! 锁定〖1项〗灵魂属性,需要消耗100元宝! BREAK #IF CHECKVARHUMANLockNum=2 CHECKGAMEGOLD299 #ACT GAMEGOLD-300 GOTO@装备洗炼生成B BREAK #IF CHECKVARHUMANLockNum300 CHECKVARHUMANLockNum=2 #ACT messagebox您的元宝不够! 锁定〖2项〗灵魂属性,需要消耗300元宝! BREAK #IF CHECKVARHUMANLockNum=3 CHECKGAMEGOLD999 #ACT GAMEGOLD-1000 GOTO@装备洗炼生成B BREAK #ELSEACT messagebox您的元宝不够! 锁定〖3项〗灵魂属性,需要消耗1000元宝! BREAK ;------------------------------------------------------------------------------------------------------------------ [@装备洗炼生成B] #IF CHECKLEVELEX0 #ACT SetNewIteMValue$HUMAN(装备部位)0=0 SetNewIteMValue$HUMAN(装备部位)1=0 SetNewIteMValue$HUMAN(装备部位)2=0 SetNewIteMValue$HUMAN(装备部位)3=0 SetNewIteMValue$HUMAN(装备部位)4=0 SetNewIteMValue$HUMAN(装备部位)5=0 SetNewIteMValue$HUMAN(装备部位)6=0 SetNewIteMValue$HUMAN(装备部位)7=0 ;-------------------------------------------------------------------- #IF EQUALM11 #ACT MOVM01 #IF EQUALM12 #ACT MOVRM013 #IF EQUALM13 #ACT MOVRM014 #IF EQUALM14 #ACT MOVRM025 #IF EQUALM15 #ACT MOVRM026 ;-------------------------------------------------------------------- #IF CHECKVARHUMANLockNum0 #ACT DECM0$HUMAN(LockNum) MOVM9$STR(M0) #ELSEACT MOVM9$STR(M0) #IF CHECKLEVELEX0 #ACT ;sendmsg6当前M1=$STR(M1) ;sendmsg6当前M9=$STR(M9) ;sendmsg6当前锁定$HUMAN(LockNum)项,还可以生成$STR(M0)项 ;sendmsg6当前锁定$HUMAN(LockNum)项,还可以生成$STR(M0)项 #IF SMALLM01 #ACT GOTO@装备洗炼H BREAK ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;------------------------------------- ;伪随机函数 ;混合同余法或乘加同余法 ;X_n+1=Mod(a*X_n+c,M) ;a,c,Xn,M0,分别叫乘子,增量,初值,模 ;c与M互素,则乘加同余方法所产生的伪随机数序列的..... ;------------------------------------- ;-------------------------------------------------------------------- ;------------------------------------- ;a=INT(RAND()*7)*4+5 ;c=INT(RAND()*16)*2+1 ;M=8 ;X=INT(RAND()*8) ;X=MOD((a*X+c),M) ;------------------------------------- #IF CHECKLEVELEX0 #ACT ;a MOVRM007 MULM0$STR(M0)4 INCM05 ;c MOVRM1016 MULM1$STR(M1)2 INCM11 ;X MOVRM208 ;-------------------------------------------------------------------- ;X1 MOVM30 MULM3$STR(M0)$STR(M2) INCM3$STR(M1) #IF SMALLM38 #ACT INCM38 #IF CHECKLEVELEX0 #ACT DIVM8$STR(M3)8 MULM8$STR(M8)8 DECM3$STR(M8) 。 |