游客您好
  • 点击联系客服

    在线时间:8:30-18:00

    客服微信

    Wkr-3000y-kf

    电子邮件

    3000y@wenkeruan.com
  • 手机版

    随时掌握游戏动态

  • 扫一扫二维码

    添加微信客服

Lv.7 版主
8号会员,9活跃值,2022.09.01 加入
  • 127发帖
  • 123主题
  • 0关注
  • 0粉丝
这个人很懒,什么也没有留下。
独家推荐 更多>

神武奖品兑换员脚本

[复制链接]
异仟年认证商人 发表于 2022-9-5 17:33:01 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题
tgs1000\init\npc.sdb里加0 R( O+ U" R! e8 ]$ ]1 m! w- G
奖品兑换员,奖品兑换员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
/ o5 U5 M. j* b; Mtgs1000\script文件加里创建一个文本 名字:奖品兑换员
7 u& j4 V" c7 A: e# L* [& S------------------------------------------------- h, O0 M: a: N" V8 S" g
unit 奖品兑换员;) A2 K$ u- o5 S0 \5 v8 J
* Q8 ~( C9 z% p1 a$ M+ `
interface
1 g3 `2 {) S( Y* z  E' t& e* L" W3 I1 B$ l( {
; X0 d& E: ]; f1 Q5 b4 Vfunction  GetToken (aStr, aToken, aSep : String) : String;% l: f9 }# ?% B0 N% e  o
function  CompareStr (aStr1, aStr2 : String) : Boolean;% B1 N, S, Z- l! \4 y
function  callfunc (aText: string): string;" Q( N, H% {  m8 r' g7 _
procedure print (aText: string);
: b" c7 q& s3 `- I% D- `  rfunction  Random (aScope: integer): integer;6 U  Q! m! Q2 S( H3 r1 u# F
function  Length (aText: string): integer;; R  g* k3 ?0 z9 J
procedure Inc (aInt: integer);" q3 f0 Z) f& x5 o
procedure Dec (aInt: integer);. h/ s0 T5 r8 ^  k( F
function  StrToInt (astr: string): integer;' K( T+ f, H7 y  T% p: Q2 @
function  IntToStr (aInt: integer): string;7 D5 q7 {+ M/ n  j8 q3 F
procedure exit;
8 b! f5 T, I# g/ qprocedure OnGetResult (aStr : String);& i+ |8 x! E3 H( C7 I
procedure OnLeftClick (aStr : String);
- N, K" e1 c$ ?0 G. c+ A, c' Rprocedure OnApproach (aStr : String);4 G4 M% Q$ J8 k1 K  _
procedure OnAway (aStr : String);
7 ^: u/ o5 G0 N4 G  Z2 v$ b3 }; U  Rprocedure OnArrival (aStr : String);
7 y* E' y5 o$ ~5 Q1 O; H( Q, gvar2 i6 N% U4 ]+ W6 V
iCallCount : Integer = 0;
  ?  u7 \1 U% u2 ~2 L, P* r0 u# ]implementation  t. d* y  w0 V+ I9 X9 w% F
procedure OnAway (aStr : String);9 f- ^6 ]- r8 a* w' l/ l
var
+ C% N; {* P! i( p+ `8 A   Str : String;
2 k* O- T; A; G   Race : Integer;
5 S2 u# a/ u* }: D2 C  Ubegin
! Z. H7 T& l7 e, \6 j  I   Str := callfunc ('getsenderrace');
8 i0 j6 x. Q* Z! G2 p; C   Race := StrToInt (Str);: v; }1 }4 O1 a+ l# l
   if Race = 1 then begin, S$ J! }$ o8 o5 x$ @
      print ('say 拉拉拉拉,贪财老人来喽...');
9 g. {! I% C6 I! }2 l: t/ m# |   exit;
' K3 U# U9 ]: f- i   end;8 ]. l/ g: Z+ H# ?4 i- ^
end;! X1 M# T$ X& y
procedure OnApproach (aStr : String);
* y' {% {2 x; j  ]  B2 A6 |. mvar1 w- W- `' q+ @) l& L- t$ N% A* f
   Str : String;
# Z6 h$ y3 z; w" m, O; y& Y# F, _( A   Race : Integer;
, X1 t' s6 G2 J3 T/ Kbegin7 y! k& ?8 y* M( G
   Str := callfunc ('getsenderrace');3 _4 C3 O. Q3 R0 t; z! f
   Race := StrToInt (Str);% x/ d3 J; Z( t$ C4 s5 @
   if Race = 1 then begin, a1 c* B# n1 O7 r* i2 ]
      print ('say 各位节日快乐...');
' b+ y( Z& R; S: x8 d2 ?5 e, e   exit;
0 F2 a- i0 y; K3 z4 S) K   end;3 z" z: n5 K+ j% D. c
end;) x. n2 o, B7 a
procedure OnLeftClick (aStr : String);* f* l: q: U. r- K! N' o
var! K* L% _5 i/ Y  o1 w; E
   Str : String;
' s+ i2 R1 p0 V0 W0 ]$ Lbegin) T) ~! S# C" E" o7 A/ z
   Str := 'showwindow .\help\奖品兑换员.txt 1';  H  x6 J, E% c1 |1 p) t
   print (Str);
2 g  [6 {7 R0 k4 k- F   exit;
6 d* C. O0 y0 d" T2 ^% e, j! n4 Hend;
' w0 K2 l( _+ z0 @6 B. S- zprocedure OnGetResult (aStr : String);- i1 T0 b  N* P/ q2 m
var+ |& w, Q1 G+ r$ V! e9 q7 E
   Str, Name : String;4 ?% Q$ c' v. c
   iRandom, iKind : Integer;
2 a$ I  y+ I; N2 N2 J5 [7 Abegin
" s7 f- N; ^/ Y' i  w1 }, t   if aStr = 'jinyuan' then begin
9 k$ n( e: ~7 T  `/ |3 Z      Str := callfunc ('getsenderitemexistence 金元:5');! o' v4 ~, t! C3 f" J* w; h
      if Str = 'false' then begin
/ B4 B5 I9 m" j3 }1 V  r         Str := 'say 哪有免费的午餐?拿5个金元来!';
9 Q8 O- P; l& w% }% k2 |         print (Str);
; L7 w" c9 ~: s; {% t         exit;
: ?7 N' n; X1 B  h/ t: ]0 n      end;/ l3 F2 q0 Z( o# @# ?6 _9 G
      if Str = 'true' then begin; I" v! z( S  s* I% C
         Str := 'getsenderitem 金元:5';/ ]! k9 b, l/ q+ s$ \# A3 ^* X* m
         print (Str);
  I0 k! n1 v% C0 n& W         Str := 'say 小子,你的金子是假的!哈哈^_^哈!';
& j4 m7 `  x9 F; k# C         print (str);0 I+ X) G5 r2 t1 p7 |4 {
         iRandom := Random (5);9 M! T( f3 g3 R0 d  m
         if iRandom = 1 then begin
" V1 G3 {3 a: E            Str := callfunc ('checkenoughspace');
5 f% d% ^6 [! x& I            if Str = 'false' then begin. W: p6 l+ F& E; @
               print ('say 物品栏已满~');
. \2 J: `1 A3 {( _& f; z6 e7 d. R) L8 E               exit;* ^7 ?$ e8 U) ]! \0 X# t# ~
            end;
9 D* C1 F+ C4 D( a) W            iKind := Random (29);
* q& e. R. t, D: g2 Z) Q            if iKind = 0 then begin
; C8 D  I! t2 f" x4 J               Str := 'putsendermagicitem 男子英雄铠甲 @奖品兑换员 4';
$ @6 O  i& X* h7 Q0 g/ o               print (Str);
% Q3 T& v7 E7 @$ F  n5 r            end;
7 O/ l  J- S0 h            if iKind = 1 then begin
, n$ e1 X1 {$ r. Q% ?               Str := 'putsendermagicitem 女子英雄铠甲 @奖品兑换员 4';
: r% ]( d1 k$ B* Q               print (Str);% N6 i- f) k3 d% \& |" P) i
            end;
9 d4 H6 a( ~& z' P+ p            if iKind = 2 then begin* T4 V/ S% ~. Y8 f
               Str := 'putsendermagicitem 男子英雄头盔 @奖品兑换员 4';! J. A5 j! m: ?) F/ t
               print (Str);4 k6 t0 W; u. l" G* y
            end;
6 }/ ~* m, j$ f+ n9 Q. i9 A3 i6 D            if iKind = 3 then begin
2 I/ T' u9 w: O. @  @) M# Z3 _               Str := 'putsendermagicitem 女子英雄头盔 @奖品兑换员 4';* W" ~! \8 ?9 e9 x
               print (Str);
" t, ?  c- e" ~' }( t, A            end;
9 m5 l" P$ P8 I1 ?1 O1 Z" a            if iKind = 4 then begin
. p* C" X0 r! Z/ d8 f/ v2 t               Str := 'putsendermagicitem 男子英雄护腕 @奖品兑换员 4';
9 H$ u& q, S( w, }4 F0 m               print (Str);5 S: {" `7 \6 C+ M" {' e, S2 y
            end;
4 n' \8 O7 j, n7 ~6 N- V, `            if iKind = 5 then begin
6 }( a) D  t  b+ d               Str := 'putsendermagicitem 女子英雄护腕 @奖品兑换员 4';, L! r$ Y# _3 N/ y# C. F$ V% i+ i
               print (Str);3 X' @5 Y7 o) m' d
            end;' y1 I; Y# C# z; w7 l9 u5 I. ^( u( W
            if iKind = 6 then begin
/ K* e* C3 N' F% [               Str := 'putsendermagicitem 男子英雄战靴 @奖品兑换员 4';& b6 W5 T. ^( h8 h. B- n
               print (Str);
' ]9 V$ v4 x$ i5 h4 Q% Q$ @% L2 F            end;3 Y3 ~8 Y! O! g+ ~- a4 H
            if iKind = 7 then begin9 g6 Z4 l8 @, V0 S
               Str := 'putsendermagicitem 女子英雄战靴 @奖品兑换员 4';! y( G0 `# P  e/ |! ~7 k
               print (Str);
; O3 y+ C! e5 c7 Q$ |# F0 {1 a            end;
- j2 q" v8 g6 b' C            if iKind = 8 then begin# ^% V8 t" E/ h) i0 p
               Str := 'putsendermagicitem 百炼三*戟 @奖品兑换员 4';
' }9 W2 ?7 z; X7 E! E! z% I. g               print (Str);  F, a; ^0 h" b
            end;8 v0 v2 u1 r* V2 h$ |
            if iKind = 9 then begin- v- V8 o0 u( Q4 q
               Str := 'putsendermagicitem 百炼日本刀 @奖品兑换员 4';3 J7 k7 d: J/ B
               print (Str);
# @0 X& q7 B  B  A/ R            end;' I! t) }  h( t8 m
           if iKind = 10 then begin
' q! Z; p: m- n- V3 y3 b& B2 Y               Str := 'putsendermagicitem 百炼忍者剑 @奖品兑换员 4';0 }, {2 ?3 K3 {% i
               print (Str);
: G( r( ?# J# L: P            end;' k, @, F, Y% q3 P* b+ R
           if iKind = 11 then begin
* S6 S  N* i! l               Str := 'putsendermagicitem 白骨魔棒 @奖品兑换员 4';, V+ v* T) w! `$ `2 L2 z+ i
               print (Str);1 c. ]) i6 x2 x; N
            end;
# y$ l. o' {% U8 m           if iKind = 12 then begin5 I7 j+ |; N; N3 s1 f6 M# ]
               Str := 'putsendermagicitem 生药 @奖品兑换员 4';
: h) F4 }3 r! x- ?- l+ l               print (Str);
9 V2 v) x! `$ Z3 _4 V* N            end;
: \' z2 Z: a& b" V- f, Y           if iKind = 13 then begin
  D5 m) U  w9 l; T               Str := 'putsendermagicitem 男子魔人护腕 @奖品兑换员 4';9 R, B( ^' B( N! l9 z; w
               print (Str);" e1 p; z) m& M0 T; S
            end;( i" N& G: \8 n1 e
           if iKind = 14 then begin7 `( W) n1 L# M
               Str := 'putsendermagicitem 女子魔人护腕 @奖品兑换员 4';
4 X  r& a- c) l. ?  I1 G               print (Str);! |  |! j" t6 y
            end;
5 T) o9 B: s: x- o3 W* E          if iKind = 15 then begin5 X7 T; G9 b4 f  t) ^! X, C
               Str := 'putsendermagicitem 金币 @奖品兑换员 4';2 Y. y$ _7 p; o- Y3 `$ H  b
               print (Str);% Q! g! W# T, X) E
            end;1 [1 J+ }2 Q- j" k
           if iKind = 16 then begin
4 H5 r' n8 f( ]4 v  S: x9 Y1 V8 J               Str := 'putsendermagicitem 千年水晶原石 @奖品兑换员 4';6 |; x; ?5 P3 M/ |7 w6 K
               print (Str);
5 }: j, }6 p. b* Y2 i% e            end;
4 @* @: c& S7 c5 f" o" |+ q! G           if iKind = 17 then begin
6 w3 S5 _$ E. G( f) l0 S+ l               Str := 'putsendermagicitem 千年水石 @奖品兑换员 4';4 o5 \) @, g0 _. C1 C% G
               print (Str);
3 @9 N. M( j( J            end;& C" q5 U  a$ f
           if iKind = 18 then begin
! q6 m3 [" X3 S               Str := 'putsendermagicitem 象牙十字镐 @奖品兑换员 4';" Q  h; O% \) A: ~  g( u$ x0 b2 r3 B
               print (Str);
1 {( C5 h1 X, E# q% G/ k            end;+ h' r0 r1 h6 F4 q3 e) g0 l
           if iKind = 19 then begin7 t7 }4 I) u- @
               Str := 'putsendermagicitem 男子黄金铠甲 @奖品兑换员 4';
% A2 ?" t9 C5 _, B               print (Str);9 ?- o" L: M, Q
            end;5 }8 J: c  {- g3 o- i- e0 y
           if iKind = 20 then begin
/ X5 K% Q+ ?& ]; ~. j* ?' _3 d               Str := 'putsendermagicitem 女子黄金铠甲 @奖品兑换员 4';8 ^9 w' f' |& Q% u0 Q# z% X
               print (Str);
$ t8 H/ O! [) Y4 n6 r+ G1 D- @            end;* T) K- j5 s# b: t2 ~2 t: \
           if iKind = 21 then begin
$ _' [/ l5 A6 S- Z# a               Str := 'putsendermagicitem 男子桂林弓服 @奖品兑换员 4';: v6 \( U/ B* ~, p
               print (Str);& R8 i' J/ `, j1 W; z4 z
            end;
  }* |4 n' l: T/ J           if iKind = 22 then begin; a5 g6 f+ }/ S: M7 V5 }4 [
               Str := 'putsendermagicitem 女子桂林弓服 @奖品兑换员 4';3 F4 B4 O6 @- J- d# R) r
               print (Str);
+ c/ D) {1 ~2 \2 g4 l4 t2 n5 x4 w* b            end;
/ d. R9 T* E2 j8 }8 A1 @           if iKind = 23 then begin' k; g. B4 G" r& O4 [. K
               Str := 'putsendermagicitem 太极明珠 @奖品兑换员 4';/ y0 Y8 P- G( |8 r8 W6 }# _
               print (Str);
! t* J( d' a1 @5 m; \; e2 O- o1 V! n( P            end;- s- c; ]: S8 S3 X
           if iKind = 24 then begin$ t2 z7 f7 }: g8 v. \. s7 T/ D
               Str := 'putsendermagicitem 狐狸内丹 @奖品兑换员 4';5 K0 ^/ Z8 C3 n3 A  ?! C% c, ^* Y
               print (Str);$ P  H/ P+ _- Q3 l. {) v3 M8 M! M; c
            end;
- a0 z0 R0 J# Y) q' g           if iKind = 25 then begin
  @, C; q- w. N' z& W& \' C               Str := 'putsendermagicitem 白玫瑰 @奖品兑换员 4';
5 r( |% x8 L1 J& Q  d               print (Str);
( I( h1 B- v# Z# E. o            end;0 ~2 l5 N: u" b" K- G9 k. @+ f, p" p
           if iKind = 26 then begin, B$ s: X6 `  \
               Str := 'putsendermagicitem 红玫瑰 @奖品兑换员 4';4 y: {/ d+ \4 V; B! j$ |1 ^3 {
               print (Str);
$ i8 ?6 _+ F' ?* V6 B  t; G( j            end;3 g( B! b0 t8 }3 n  `
           if iKind = 27 then begin3 e0 \) m( V( d# |
               Str := 'putsendermagicitem 灵动八方 @奖品兑换员 4';9 X% `& X6 P0 Q, F" H9 P9 }
               print (Str);- F4 D8 G9 o! A7 P5 j6 E
            end;/ P6 i6 s' ?$ |% z
           if iKind = 28 then begin" r3 {' j; ~' d
               Str := 'putsendermagicitem 男子魔人战靴 @奖品兑换员 4';
1 Z7 q1 _* B% O" T" e               print (Str);
$ g5 Z2 C5 \& B" j& G            end;
0 R, |: R' A: i  ]           if iKind = 29 then begin, F5 f$ K8 P+ a& {! \
               Str := 'putsendermagicitem 女子魔人战靴 @奖品兑换员 4';
" R- u" w* b8 W7 f5 |9 o4 ~               print (Str);  H3 e+ k$ K& Y+ I
            end;
: ^* u$ l& {- N# q; t            Str := 'say 本想趁机摸你两把,可你身材太差了~';) Z. W$ U6 Z5 x/ I! P
            print (str);2 E' o: |+ K0 l% a2 p. h
         end;
- G7 x, L" I# G+ x5 o         exit;+ ]% l) O; q6 t7 H4 z/ n
      end;8 C; }# F. w8 [. R
      exit;, A: B' l' Z3 e* `
   end;1 f& U( T  c; ]
end;
& Y2 j+ s4 e% G1 Z. lend.0 ?0 f- W$ ^0 q1 L# u- n7 [
------------------------------------------------2 A8 C/ U6 z+ y
tgs1000\script文件夹里得script.sdb里6 A, \% S3 Z7 m) K
最后一行加入! I6 |; }! _! I, j  d
--------------------, f& n8 V/ k0 B+ J( z3 I
130,奖品兑换员.txt,,  
+ T  r/ X% J3 @) r2 v& W8 z--------------------5 A. `! s6 g8 L. b
然后在tgs1000\help里建个文本文件 名字: 兑换员
$ u" l& T" t0 e6 b3 c3 Z内容如下
9 V4 H( u' |" F; o% A/ k------------------------------------------------
9 U' W; Q$ P# v+ g) l<trade>6 g2 P8 C5 X" R. [; m/ R5 J
<title>奖品兑换员</title>
/ ~  j* ?$ S, N( z* c* r2 f4 b$ q<image name=z81 value=235>
7 G' D9 b- h" _( w7 [<text>7 ?% m; \' d$ z+ S8 H
天下没有免费的午餐,努力吧!' I" s: E2 v0 y8 w8 _1 H& `
</text>
3 L% {4 P, x: b1 Z0 B5 P  X4 L<command send='close'>关闭</command>; Y) u; n8 O- D, m, _6 G: h
<command send="jinyuan">天下没有免费的午餐,拿5个金元来!</command>
% f& W; \9 W; K# N9 R6 p& W% P! X0 [</trade>mand send="jinyuan">交换好运来,祝您好运</command>7 n+ i# n  d6 f; D7 e: k* j* B5 t
</trade>
! V0 U2 m9 r/ F9 t; z3 `. h* ~0 s-----------------------------------------------------
6 c+ u( x" ~, C2 P' H% E4 k1 Y然后在NpcSetting目录下建立一个.sdb文件,命名为:奖品兑换员8 U4 d7 T8 @# |3 w. h2 B: ~. v
里面内容写成:" V6 p& Q9 F: j7 V/ d

8 r% f( j- D/ {Name,boSelfSay,boMain,MainNumber,HearString,SayString,NeedItem,GiveItem,CountLimit,RecoverTime,DelayTime,
/ L9 S/ a/ V( n3 O1,TRUE,,,,我可是可以换到英雄装备的噢^_^!,,,,,1800,
& j( \- }- P# O9 |-----------------------------------------------------/ G% R( L5 y9 p8 I/ Z+ i( Y) X
tgs1000\Setting文件夹里得CreateNpc1.sdb里加  T$ g, j+ ?6 F8 S6 E$ e8 O+ Q
------------------------------ H, d# N  t$ H) K7 c8 U" T
104,奖品兑换员,524,474,1,5,130,奖品兑换员.sdb,
2 F/ r( k1 s- a  j* F: X
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

三千游戏官方客服

扫一扫二维码

添加qq客服

Powered by Discuz!X3.4 ©2001-2013 Comsenz Inc.闽公网安备 35099902000100号增值电信业务经营许可证 闽B2-20220593 闽ICP备2023014375号