彩虹3引擎法宝配套脚本

admin · 发表于 2022-4-2 11:04:39

物品DB：$ h6 m' w6 \$ ?+ M$ a5 L# `- W( ]
2343;无量飞剑;36;248;1;500;0;0;25900;1;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;17412;0
2344;八卦镜;36;248;1;500;0;0;25901;1;2;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;17413;0
2345;招魂幡;36;248;1;500;0;0;25902;1;3;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;18070;0
2346;紫金葫芦;36;248;1;500;0;0;25903;1;4;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;17415;0# B; R4 N" d% `4 c- [
2347;番天印;36;248;1;500;0;0;25904;1;5;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;17416;03 c4 {2 L/ f- M6 b- X9 U: K
2348;七宝玲珑塔;36;248;1;500;0;0;25905;1;6;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;18282;0
2349;无量飞剑碎片;46;6;1;0;0;256;25802;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1000;0;0;17417;524288
2350;八卦镜碎片;46;6;1;0;0;256;25803;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1000;0;0;17418;524288
2351;招魂幡碎片;46;6;1;0;0;256;25804;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1000;0;0;17419;524288
2352;紫金葫芦碎片;46;6;1;0;0;256;25805;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1000;0;0;17420;524288
2353;番天印碎片;46;6;1;0;0;256;25806;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1000;0;0;17421;524288
2354;七宝玲珑塔碎片;46;6;1;0;0;256;25804;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;10000;0;0;0;0
2355;仙灵精华;46;132;1;0;0;256;25819;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;1000;0;0;17422;524288# |* ?$ I6 |" ~, `+ X. A' Z2 L- F
2356;神灵精华;46;132;1;0;0;256;25820;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;1;1000;0;0;17423;524288% Q' U3 \( H( o4 c, I
2357;造化灵丹;46;6;1;0;0;256;25817;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;500;0;0;17424;5242886 I. E# ?% g' q. z: G
2358;造化仙丹;46;6;1;0;0;256;25818;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;500;0;0;17425;524288
2359;造化神丹;46;6;1;0;0;256;25818;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;500;0;0;17426;524288
2360;玄灵石;46;6;1;0;0;256;25800;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;500;0;0;17427;524288
2361;玄灵宝玉;46;6;1;0;0;256;25018;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;500;0;0;17428;5242887 w0 G  L/ B6 E; F* Y2 p
9 k0 \! l# e( n5 v  c5 m( w

3 D* l1 x& L+ [( G
; {# H( n( t- K! j" y
;法宝物品触发脚本
[@NewStdModeFunc500] PNEUMA  _- |- X: Z+ e: q* r. _7 q8 @
#IF
CHECKITEMID $PARAM(0)
#ACT! B* o$ ?( m; m3 W7 H
#ELSEACT  F. F2 h7 k$ Q/ J6 j3 T
break( p! }# ~7 e/ p" X+ d# a( t
#IF- a. G+ G) h7 u8 I% Z
SMALL $FABAO.ACTIVE 1" t0 B8 P  K" o* {
#ACT
SENDMSG 5 使用失败，未开启法宝功能9 L1 f) b- r- `+ d2 O
break
#IF( n; z% \3 U/ u; F4 U8 P2 W( |
CHECKGETFABAO $ITEMINFO[$PARAM(0)].AC1$ n3 H" l' G$ Q7 F" k+ N
#ACT& S- k& S* P0 a5 }% [" [
SENDMSG 5 你当前已经拥有了此法宝
break
#IF
RANDOM 1
#ACT: F8 h9 P- \3 A' U6 N$ d; s# p3 y/ b
MOV P10 $ITEMINFO[$PARAM(0)].AC1
#IF
EQUAL  P10 2: G8 ~( `2 y; t3 k- v# D& Q
#ACT" ?) {, j' o) ~1 b% D) w
MOV P10 3
#IF. M. f; Z5 h9 M4 ]2 B2 W
EQUAL  P10 3
#ACT
MOV P10 2
#IF! u2 q  \" C* ?5 d' W, A) q
RANDOM 1, s1 w+ c7 J& J9 m. K  N
#ACT
GETFABAO $ITEMINFO[$PARAM(0)].AC1/ {1 e$ |4 r. b3 ^: ~" \. a
SETCU**BAO $ITEMINFO[$PARAM(0)].AC1
SENDFABAOGETEFFECT $STR(P10)SETFABAOLOOK $FABAO.ID9 v  C  G0 Z5 }6 v% ^
TAKEM $PARAM(0), ^0 }# s% e- q3 l
SENDMSG 5 恭喜你获得“<$PARAM(2)>”！
break) U6 L) H$ u$ k

2 L1 U7 j0 J5 u3 S; l
;法宝升阶脚本) m% G! Z  `9 K& \  z4 w, e
[@主体_法宝_升阶]
#IF
SMALL $FABAOINFO[$PARAM(0)].LEVEL 100  D% {) n  m1 g2 a" Q/ j0 {6 V: @! k
#ACT4 B7 s  e" V; \* p6 ?8 `9 H7 i
MOV S20 $FABAOINFO[$PARAM(0)].LEVEL! Y( n. g/ x7 b% O5 J" T
#ELSEACT) r' ~0 e( V  X
SENDMSG 5 法宝等级已到达满级，无法升阶！0 q% e; L5 Q( }7 i
break
#IF- b' A! y; e  Z" y
POS $STR(S20) 0
#ACT
#ELSEACT
break
#IFONE" o) ^' J1 [, L) q6 S
LARGE $FABAOINFO[$PARAM(0)].EXP $FABAOINFO[$PARAM(0)].MAXEXP% |  ~8 J* V/ \$ r. e8 Z6 R" c
EQUAL $FABAOINFO[$PARAM(0)].EXP $FABAOINFO[$PARAM(0)].MAXEXP
#ACT" y' ^6 O% ~* G- `
#ELSEACT
SENDMSG 5 勇士，经验值未达到100%，无法升阶！, n! I2 u, q" n) T8 W6 l
break/ u6 O/ W5 J7 P4 h) ]
#IF
CHECKITEM $PARAM(1) $PARAM(2)2 ~. W$ K4 `0 i) Y$ C2 h, F
#ACT( u. X# M% t* M( e2 i4 b
CHANGEFABAOEXP $PARAM(0) - $FABAOINFO[$PARAM(0)].MAXEXP
CHANGEFABAOLV $PARAM(0) + 1
SENDMSG 5 升阶成功！! {1 V% K, K8 y7 V( e
break
#ELSEACT3 {% g% p/ X* f) s
SENDMSG 5 勇士，您包裹中<$PARAM(1)>不足<$PARAM(2)>个
break/ `. ]& [$ R6 V" G0 U
& L! O2 {' P; O' ~* f0 H$ X' g

;法宝继承功能脚本
[@主体_法宝_继承放入]6 N! |3 R& t+ G1 q
#IF
LARGE $PARAM(1) $PARAM(0)
#ACT4 J1 J; w  N1 G
MOV M0 $FABAOINFO[$PARAM(0)].EXP7 X) j/ j& Q5 g3 p8 U3 T0 |
MOV M20 $FABAOINFO[$PARAM(0)].LEVEL! v; P4 h" Z; v
MOV M21 $FABAOINFO[$PARAM(0)].UPGRADELV( |" D/ ?1 ~( K
MOV M1 $FABAOINFO[$PARAM(1)].EXP
MOV M22 $FABAOINFO[$PARAM(1)].LEVEL
MOV M23 $FABAOINFO[$PARAM(1)].UPGRADELV* Y$ F) c/ ?3 M* u5 U  j
#ELSEACT& j/ g# K* ~, P8 [/ s
SENDMSG 5 法宝传承只能由低级法宝向高级法宝传承！
break
#IFONE# A5 m! a$ l, j! `: U4 J
LARGE M0 $STR(M1)
LARGE M20 $STR(M22)
LARGE M21 $STR(M23)
#ELSEACT1 ~7 S0 C, R$ U; c' n% G  k0 Y
SENDMSG 5 目标法宝等级、经验和星数都不低于原法宝，无需传承！: w+ E0 K9 `* }# Z% l
break
#IF' r! p+ p3 B7 r2 X  v( c8 F- S
LARGE M20 $STR(M22)
#ACT* I. D, \0 l/ K: x( W
MOV M24 $STR(M20)
#ELSEACT
MOV M24 $STR(M22)
#IF% K1 H$ P+ q: Y9 [7 L! O* i- B
LARGE M21 $STR(M23)
#ACT
MOV M25 $STR(M21)! [1 }. S! x- E$ |2 e
#ELSEACT
MOV M25 $STR(M23)/ i7 G9 K0 z  W1 P- R( @
#IF
RANDOM 1
#ACT
SENDFABAOJCPREVIEW $PARAM(1) $STR(M24) $STR(M25)  x' G% r( G3 Q4 j* W$ P
break

[@主体_法宝_继承点击]
#IF
LARGE $PARAM(1) $PARAM(0)
#ACT
MOV M0 $FABAOINFO[$PARAM(0)].EXP% [* L# `4 {7 m3 g9 W, S3 \9 r
MOV M20 $FABAOINFO[$PARAM(0)].LEVEL. M# F9 }3 H0 p, G! w# D* o  x3 o+ `
MOV M21 $FABAOINFO[$PARAM(0)].UPGRADELV
MOV M1 $FABAOINFO[$PARAM(1)].EXP
MOV M22 $FABAOINFO[$PARAM(1)].LEVEL4 a+ p) o+ D. O$ {# S* D
MOV M23 $FABAOINFO[$PARAM(1)].UPGRADELV6 k2 r) G" ?/ \
#ELSEACT
SENDMSG 5 法宝传承只能由低级法宝向高级法宝传承！5 _6 p4 }/ s- F6 ]+ y
break, s3 l9 r. C1 U; S) N
#IFONE7 ?8 U3 ~8 H& j) y% [
LARGE M0 $STR(M1)2 P. H' B; r' i% n- n2 S2 j
LARGE M20 $STR(M22)
LARGE M21 $STR(M23)" P6 L; s3 s+ q, h9 f+ k% `
#ELSEACT
SENDMSG 5 目标法宝等级、经验和星数都不低于原法宝，无需传承！! }" \. H) D  Z7 V
break3 {/ ]' {4 D5 k" [
#IF
LARGE M0 $STR(M1)
#ACT% ~, R# }, K* ?! S0 r: q4 s
CHANGEFABAOEXP $PARAM(1) = $STR(M0)
CHANGEFABAOEXP $PARAM(0) = 00 A1 J; J! k0 |+ z3 [: d
#IF' C- N0 R, s% g5 K. `
LARGE M20 $STR(M22)$ q# z: ]4 ~) D! l" a
#ACT
CHANGEFABAOLV $PARAM(1) = $STR(M20)' N; ~" r! ]" r/ E3 {# ?  h9 r
CHANGEFABAOLV $PARAM(0) = 0( A' @) {/ r& z: D% k' P
#IF
LARGE M21 $STR(M23): {2 X" }, y: |8 _9 k2 z7 K1 o
#ACT
CHANGEFABAOUPGRADELV $PARAM(1) = $STR(M21)
CHANGEFABAOUPGRADELV $PARAM(0) = 0
#IF
RANDOM 12 l5 d, M% e1 }  L$ L
#ACT
SENDFABAOJCEFFECT- b) i. `6 c/ J! D! X
SENDMSG 5 勇士，您的法宝<$FABAOINFO[$PARAM(1)].NAME>继承成功！' [  d5 w$ V9 \) a8 D, Y( e6 X
break& e/ b/ \, z% ]( H2 O
1 {9 D; b3 J9 \1 M" k. m
8 O$ z, I! W4 t. N! S7 C8 s  u
;法宝合成功能脚本$ l! d6 y/ @& l, f( B
[@主体_法宝_合成]' ]# H4 h2 t. [
#IF
CHECKBAGSIZE 1' S' T' v% u+ q
#ACT- i. c' g9 f2 X  L: n* a0 l
#ELSEACT* Q2 {  L" A% ]" T* Q5 D1 n
SENDMSG 5 勇士，您没有足够的包裹空间，请清理一下！
break8 o- l2 q+ t0 q6 G
#IF( R$ ^4 @. e8 o1 M
CHECKITEM $PARAM(1) $PARAM(2)$ K0 e4 v& Y5 _7 P% W" G! ^! b
#ACT
MOV S20 $PARAM(1)
ReplaceText S20 碎片
take $PARAM(1) $PARAM(2)
give $STR(S20) 1& D) r3 M; k8 s
SENDFABAOHCEFFECT- K! |8 s" p2 y) k
SENDMSG 5 勇士，你已合成出<$STR(S20)>7 \7 q" T. S& C* i  y; ~% W
break& a9 V4 g7 B) T$ w1 ]" Y: U
#ELSEACT  _& J2 ^  N% z2 {8 E
SENDMSG 5 勇士，您包裹中<$PARAM(1)>不足<$PARAM(2)>个9 w- S3 m  d- ^/ K' a
break

;元神法宝强化功能脚本
[@元神_法宝_升阶] PNEUMA
#IF
SMALL $FABAOINFO[$PARAM(0)].LEVEL 100
#ACT  K+ B! Z: V* ]% h; W& m3 |' U
MOV S20 $FABAOINFO[$PARAM(0)].LEVEL
#ELSEACT
SENDMSG 5 法宝等级已到达满级，无法升阶！
break# C8 |; V# t- T9 [* L
#IF8 r# d4 T4 k* _2 b# L
POS $STR(S20) 0
#ACT) Q3 n1 c0 m. @* Q3 B1 u. l) z% b6 H% M
#ELSEACT2 `, v: P2 |; D1 Z: L: Z; e
break# z2 q5 B, g9 z/ Y1 t4 M
#IFONE
LARGE $FABAOINFO[$PARAM(0)].EXP $FABAOINFO[$PARAM(0)].MAXEXP& U9 E! A: n$ ?
EQUAL $FABAOINFO[$PARAM(0)].EXP $FABAOINFO[$PARAM(0)].MAXEXP' U* E' `/ p6 w- j8 \8 k
#ACT) g# q' p1 V+ r/ B/ [$ F
#ELSEACT& o% Z* Z4 l' P+ b
SENDMSG 5 勇士，经验值未达到100%，无法升阶！
break
#IF* i$ l4 a3 {) C$ ?5 f
CHECKITEM $PARAM(1) $PARAM(2)
#ACT
CHANGEFABAOEXP $PARAM(0) - $FABAOINFO[$PARAM(0)].MAXEXP
CHANGEFABAOLV $PARAM(0) + 1
SENDMSG 5 升阶成功！! n& c2 v' F" ?$ e% B  j/ [1 t
break
#ELSEACT
SENDMSG 5 勇士，您包裹中<$PARAM(1)>不足<$PARAM(2)>个
break

  n, b9 [+ t7 o) s! Z
;元神法宝继承功能脚本0 ]' S4 Z. H0 h/ V* |( u
[@元神_法宝_继承放入] PNEUMA' g& \% h) d2 K' v, p1 c
#IF8 @0 `- K+ s: C" {9 S0 ^3 j
LARGE $PARAM(1) $PARAM(0)
#ACT
MOV M0 $FABAOINFO[$PARAM(0)].EXP
MOV M20 $FABAOINFO[$PARAM(0)].LEVEL
MOV M21 $FABAOINFO[$PARAM(0)].UPGRADELV& {+ t- S& c8 U5 g2 ]/ S3 P0 m
MOV M1 $FABAOINFO[$PARAM(1)].EXP
MOV M22 $FABAOINFO[$PARAM(1)].LEVEL
MOV M23 $FABAOINFO[$PARAM(1)].UPGRADELV
#ELSEACT
SENDMSG 5 法宝传承只能由低级法宝向高级法宝传承！
break& l! q4 }7 P) c& Z" u! l3 y9 y0 t- j
#IFONE* Q/ N1 J% b1 ?, I9 B7 l: b4 L; U
LARGE M0 $STR(M1)& X( ?& s( w4 {9 `
LARGE M20 $STR(M22)+ i: E9 g6 N( i6 f4 j0 ^- f6 R
LARGE M21 $STR(M23)
#ELSEACT
SENDMSG 5 目标法宝等级、经验和星数都不低于原法宝，无需传承！& |( c1 B: e! v. r
break9 J& F7 K( O0 t0 i" w( ^, p
#IF8 q/ J% W3 q: E' j% D
LARGE M20 $STR(M22)# L. K$ _0 w8 s$ r. D
#ACT) G5 m; K7 v" J1 Q
MOV M24 $STR(M20)5 e+ \. U# f, n, K
#ELSEACT
MOV M24 $STR(M22); \% O9 t% X. S( H$ z1 j
#IF% o5 W3 l; y4 w
LARGE M21 $STR(M23)
#ACT( C) O& I. `3 I' V
MOV M25 $STR(M21)
#ELSEACT& E: F. G! W: A* ^) k( S
MOV M25 $STR(M23)
#IF
RANDOM 1
#ACT
SENDFABAOJCPREVIEW $PARAM(1) $STR(M24) $STR(M25)) n; C5 f. q4 H, H7 o6 R6 c* p
break0 t' X' C5 \% x+ _' G$ u

[@元神_法宝_继承点击] PNEUMA
#IF
LARGE $PARAM(1) $PARAM(0)
#ACT1 T! B3 D& D9 P" O) {
MOV M0 $FABAOINFO[$PARAM(0)].EXP
MOV M20 $FABAOINFO[$PARAM(0)].LEVEL
MOV M21 $FABAOINFO[$PARAM(0)].UPGRADELV
MOV M1 $FABAOINFO[$PARAM(1)].EXP+ f$ D4 }! r8 z" [# z; ^
MOV M22 $FABAOINFO[$PARAM(1)].LEVEL
MOV M23 $FABAOINFO[$PARAM(1)].UPGRADELV- S( E" z$ n: i# G% B+ t$ @) X) S3 N
#ELSEACT
SENDMSG 5 法宝传承只能由低级法宝向高级法宝传承！- i7 O, \8 z( B6 L8 `; J
break
#IFONE) h" I, [& h$ M
LARGE M0 $STR(M1)
LARGE M20 $STR(M22)- ~! I0 `- i4 @- \! @- ^% I$ |3 |' Y
LARGE M21 $STR(M23)/ O; q- o, f: ^0 D) v
#ELSEACT' g. V( \  B$ x4 {
SENDMSG 5 目标法宝等级、经验和星数都不低于原法宝，无需传承！
break
#IF
LARGE M0 $STR(M1)
#ACT& T) z, q. a: c4 R% Q4 T
CHANGEFABAOEXP $PARAM(1) = $STR(M0)
CHANGEFABAOEXP $PARAM(0) = 0! \# J/ F) U" o4 C+ e$ ]
#IF
LARGE M20 $STR(M22)8 n3 }+ \) M8 X/ t* E) \9 O
#ACT
CHANGEFABAOLV $PARAM(1) = $STR(M20)
CHANGEFABAOLV $PARAM(0) = 0
#IF! _' ^+ N. d& f& d& i$ I+ s
LARGE M21 $STR(M23)( r/ e8 W' R7 ~  ]. E
#ACT
CHANGEFABAOUPGRADELV $PARAM(1) = $STR(M21)
CHANGEFABAOUPGRADELV $PARAM(0) = 0
#IF
RANDOM 1
#ACT
SENDFABAOJCEFFECT8 H, u! A1 f) H# S: N& K# U
SENDMSG 5 勇士，您的法宝<$FABAOINFO[$PARAM(1)].NAME>继承成功！
break; {. M: a0 L  z. J; F

法宝系统中珍宝袋点击“切换”触发QF脚本[@法宝_法宝切换]；
[@法宝_法宝切换] PNEUMA& n( y. Y6 B9 g& E+ k% ?( i: D
#IF
ISPneuma7 n& R/ u7 i& q7 Z
#ACT( L/ F5 X3 o4 L  \$ r
SETFABAOLOOK $FABAO.ID% k1 V$ |' Y( u, G
#ELSEACT& O0 F: z. V" g; Y6 w3 O
SETFABAOLOOK $FABAO.ID$ A) ~1 k7 l& D0 l3 \
break: I9 X. d" P# f9 X

		自动登录	找回密码
密码			立即注册

[彩虹脚本] 彩虹3引擎法宝配套脚本

本帖子中包含更多资源