游客您好
  • 点击联系客服

    在线时间: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里加  C5 T4 n9 ~& Z; V3 u' p
奖品兑换员,奖品兑换员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,0 o  c; ~9 R- P$ J0 X
tgs1000\script文件加里创建一个文本 名字:奖品兑换员3 n8 r& `8 V* D: H  @) [3 h; r
------------------------------------------------0 z+ K) d+ S2 q6 n
unit 奖品兑换员;
3 d% y6 \! {/ i* v5 n  n9 Z
5 ~4 e; _) O; {interface
8 I# b/ y& E! r9 _' H8 ]. G  v
4 R, z, D) _( Y  d7 G: c' l0 `function  GetToken (aStr, aToken, aSep : String) : String;
  x8 A( m+ T( C  q6 h6 m7 qfunction  CompareStr (aStr1, aStr2 : String) : Boolean;5 W1 P1 _7 d9 g# n% x6 ]; O
function  callfunc (aText: string): string;
% v/ r$ b- y% g" p" T- }procedure print (aText: string);9 V, E+ p8 N! [) e: F1 P1 f
function  Random (aScope: integer): integer;
) W: @4 t- V6 S$ Y' _2 l6 C2 Dfunction  Length (aText: string): integer;
8 c" W3 b% i) |% M3 |  Kprocedure Inc (aInt: integer);) b! e/ o: M9 H8 j( k& P5 K
procedure Dec (aInt: integer);6 ?2 _- F: T8 ~, V9 I' o
function  StrToInt (astr: string): integer;" h% I$ k! r# ]6 C& u
function  IntToStr (aInt: integer): string;% a- l+ F, J; [
procedure exit;
) x: L- D: _: S# v. iprocedure OnGetResult (aStr : String);# O9 ~6 }( K1 Z( |
procedure OnLeftClick (aStr : String);8 j4 N# ?' H% T6 |
procedure OnApproach (aStr : String);) y3 t8 x3 ]' {
procedure OnAway (aStr : String);. K/ t4 S# H; W7 O( p% b
procedure OnArrival (aStr : String);) k! N# [- A" d9 e% q
var/ S# |( w" F  J
iCallCount : Integer = 0;
4 w6 `0 \2 {  v) Z. M0 |implementation
) R. o; S  c, b1 c& I! k4 Zprocedure OnAway (aStr : String);
  [3 s" `0 h1 Vvar, G# h" E2 Z! z2 P8 C5 W$ U: F8 N
   Str : String;0 @! w3 _2 U9 e6 g. U
   Race : Integer;
# v- Y0 {8 S" w: J+ a6 E% }begin1 I  E* {( q- g3 E# f$ h
   Str := callfunc ('getsenderrace');
2 p# a# N9 J! j; C; s* ~, J   Race := StrToInt (Str);* Q. v. I1 q. X" f! ]+ _2 g( K
   if Race = 1 then begin2 y+ X! U# p4 C  w
      print ('say 拉拉拉拉,贪财老人来喽...');8 G# H4 A* [5 d0 Y5 a
   exit;' u+ z3 k; j% R& W4 c
   end;
; @1 ~. L5 i+ a/ y7 }0 Wend;
% Y9 j) a4 M4 c) b6 @procedure OnApproach (aStr : String);( t) T, a7 d9 B9 ^5 s
var
" S, n6 w' t, D& ?( J6 ^   Str : String;$ }  T1 B, u$ r. f9 ~
   Race : Integer;
# x; p+ z; v! |1 ^begin7 n1 x! a% o2 w- y3 h; V- w
   Str := callfunc ('getsenderrace');
6 w/ p% w; E. z+ S8 ~% d   Race := StrToInt (Str);9 X. r- R) k; P! ^0 \' v. z
   if Race = 1 then begin9 D0 ]! Z0 b! W* H/ t: P
      print ('say 各位节日快乐...');' R4 O; G- m; Q) ^
   exit;
$ v* I1 C4 L6 J. }5 V   end;. d% L1 d+ R5 W8 B3 ?
end;
4 G; k9 n! Z9 S3 J( f! Vprocedure OnLeftClick (aStr : String);. A* d3 @/ F9 \4 X
var- o& a8 S1 @0 L9 w$ f! L3 e
   Str : String;
' d( Z" ^; L7 Nbegin5 e3 p9 f. s2 n2 T  p
   Str := 'showwindow .\help\奖品兑换员.txt 1';! C3 R1 ~' f% W) q
   print (Str);
# P. V' S( {. @7 `* r, o   exit;1 |2 I$ Q, J' a7 Y+ C6 o4 o
end;
% U$ w* j/ r1 i2 G! cprocedure OnGetResult (aStr : String);
& o8 J/ g' J4 G# @* ?. X0 Y; A  w$ evar9 F9 l/ P+ x$ m' F3 {6 X% ~# T
   Str, Name : String;
5 P& t7 R' f* o' j! b: B   iRandom, iKind : Integer;! J" M% k' f/ m: c9 P
begin
( M% K/ }% G1 h, A   if aStr = 'jinyuan' then begin
. m0 V% w" r4 z* L! ~& ^      Str := callfunc ('getsenderitemexistence 金元:5');
" T) o0 U9 e+ v      if Str = 'false' then begin
9 n: W7 ^9 E4 D9 q3 U8 s         Str := 'say 哪有免费的午餐?拿5个金元来!';$ m* g. C& j( V
         print (Str);  a5 s* |/ W( K/ v$ e. |. Z6 j
         exit;0 p3 q# O  [6 _- ], y8 _, ^
      end;! O8 t# f' C- ~: l! z/ A0 O
      if Str = 'true' then begin
. i  E6 }9 c  \2 c         Str := 'getsenderitem 金元:5';
% Q2 Q5 L/ ~- x% d: G! s% h. V         print (Str);
- A  `5 I+ h7 g( Q8 H2 O4 i         Str := 'say 小子,你的金子是假的!哈哈^_^哈!';
) _5 i2 d% b/ f  n% e         print (str);
7 ^" i, S, B0 W         iRandom := Random (5);
# P; E' C9 P3 {, Z4 w* ?$ i2 B         if iRandom = 1 then begin
* d3 L* _  s, b4 i7 C$ R2 X% V+ c            Str := callfunc ('checkenoughspace');
3 M% j6 r& i% y            if Str = 'false' then begin
" P: {) f& R# }7 }' {8 `+ w3 ^               print ('say 物品栏已满~');$ ]) L4 ?4 C! C4 W7 [
               exit;
8 H% G0 S/ U& d            end;9 i. S/ M( R8 ]- ~
            iKind := Random (29);/ Z: y- W/ O( N, B1 n
            if iKind = 0 then begin
3 M  U" V8 [: M) v4 S: ]& ^               Str := 'putsendermagicitem 男子英雄铠甲 @奖品兑换员 4';
$ s! ]& \( F  z               print (Str);
2 g* W3 y/ q3 z9 R+ R3 H            end;- h& c2 I8 R5 F* O% |8 m/ {
            if iKind = 1 then begin4 A, b. N) P1 ?! {7 Y
               Str := 'putsendermagicitem 女子英雄铠甲 @奖品兑换员 4';
; V; v  q& ]: y               print (Str);
8 R) L0 p% \+ h: K) p' A0 N7 c/ }4 Q            end;
) k0 W. D' K% q8 q            if iKind = 2 then begin, D& F- }" U7 E8 B
               Str := 'putsendermagicitem 男子英雄头盔 @奖品兑换员 4';
4 g$ o0 J8 e# y7 a               print (Str);
: h5 ?$ Z) Z" [( r- ~, a7 @            end;3 a: Z2 W- r( F2 k9 w
            if iKind = 3 then begin& P) p; }' x- b' v6 w- |/ x- x
               Str := 'putsendermagicitem 女子英雄头盔 @奖品兑换员 4';
, Z3 E- {& {% a               print (Str);6 D- _  z3 m: @' C4 Z/ t# ~
            end;
' G+ |/ f0 a/ |            if iKind = 4 then begin
9 i5 l! j& u. u# D               Str := 'putsendermagicitem 男子英雄护腕 @奖品兑换员 4';2 y# I* ~& g! [0 Z) i8 L
               print (Str);
2 j: N. H# y7 Q0 ]( k  O            end;
1 d6 ^' A4 G% [$ }            if iKind = 5 then begin
# u8 k# b5 U: f, X8 o' o               Str := 'putsendermagicitem 女子英雄护腕 @奖品兑换员 4';
9 w6 u* \% V+ l( k$ {5 w               print (Str);
, {( r1 Y  `& B! b. ~5 F+ `            end;
5 s( Z+ |* a8 j) B, c0 A0 X1 B& s            if iKind = 6 then begin
9 }' s& H  x7 f3 b0 c               Str := 'putsendermagicitem 男子英雄战靴 @奖品兑换员 4';
8 p( `3 l3 [1 \9 M5 Q5 s4 b, g               print (Str);# S6 O* v" M; [; G2 t
            end;
+ D, \& N7 y, t4 y! t9 W            if iKind = 7 then begin# U9 |# _8 U9 L/ h  A: p
               Str := 'putsendermagicitem 女子英雄战靴 @奖品兑换员 4';9 Y- {, b" c6 M8 n% G
               print (Str);: D& u/ _) e% U: s( j
            end;
; d3 P& @- S+ _( M+ P/ N            if iKind = 8 then begin7 h" B8 c1 [  [
               Str := 'putsendermagicitem 百炼三*戟 @奖品兑换员 4';0 D' V+ i& Q3 N* N& e  ?2 c
               print (Str);$ S9 S9 c1 T6 u4 g5 D" w0 F7 x
            end;: M5 i* z- E9 ~2 t5 e/ p
            if iKind = 9 then begin
, f0 k( y8 _% o5 T               Str := 'putsendermagicitem 百炼日本刀 @奖品兑换员 4';7 e5 A' m9 s7 K
               print (Str);
% d: p# }; C% |( y5 `            end;
2 _  N, p6 w1 q- f, H           if iKind = 10 then begin1 i  c% ?! `3 [2 M: J5 O4 r
               Str := 'putsendermagicitem 百炼忍者剑 @奖品兑换员 4';5 B6 i0 y; k: I0 Z
               print (Str);+ }4 I9 v" O; R" [% P6 `% _  r  N
            end;* D) Y2 l9 d2 C
           if iKind = 11 then begin
3 E5 H) t' P5 l' L               Str := 'putsendermagicitem 白骨魔棒 @奖品兑换员 4';! _; [, A7 u7 }! q) T
               print (Str);# F% G  l" ^9 e4 q$ U
            end;
8 x& M( m& C. I$ X8 i           if iKind = 12 then begin
8 @9 H2 d; F* S, t7 g. M               Str := 'putsendermagicitem 生药 @奖品兑换员 4';1 P& t7 a4 O& o
               print (Str);+ _* P: R, G1 E8 T
            end;) Y. B* x. ?6 ^, T
           if iKind = 13 then begin
- G  x9 \/ d0 \4 W               Str := 'putsendermagicitem 男子魔人护腕 @奖品兑换员 4';
/ o' O$ e7 M* p6 W# q  V4 g, Z               print (Str);; k* G% J  y6 w6 w& s
            end;
, f1 [& }5 o4 B           if iKind = 14 then begin
- U! _; L7 g: m1 ]9 x4 @4 @; E               Str := 'putsendermagicitem 女子魔人护腕 @奖品兑换员 4';
( |  X" a6 ~6 l- \3 h7 }               print (Str);4 d: o( e" l; n! H
            end;' q  \3 @  e2 Q
          if iKind = 15 then begin3 V9 O- Y7 x) Q$ ~, m' l: S
               Str := 'putsendermagicitem 金币 @奖品兑换员 4';. u" e6 z; T- t, s7 q
               print (Str);
( ^4 ~% N" g" w! I. M2 g) P9 w7 ^            end;6 l( K4 k5 q: m  Q& \' ]
           if iKind = 16 then begin$ y2 O/ H2 n8 ^. ^) Y* G" m
               Str := 'putsendermagicitem 千年水晶原石 @奖品兑换员 4';
, M+ t2 f3 A2 B! v7 ^               print (Str);
" G% L, S2 J5 ^1 u            end;
) c* O0 I1 y) I2 L; Y% r0 @6 X& S6 m& ?           if iKind = 17 then begin
: G" r0 b8 K* E+ i5 O  I               Str := 'putsendermagicitem 千年水石 @奖品兑换员 4';& A# j) A3 v# e- M, C
               print (Str);; [( u- u  C: j% x5 R2 L* }
            end;
' u+ J$ B+ b: l/ w* s+ P+ j% _2 S           if iKind = 18 then begin& e3 r3 `& |* _7 J. N) j
               Str := 'putsendermagicitem 象牙十字镐 @奖品兑换员 4';
5 h! F' Z5 v$ T" J               print (Str);
6 D2 U* j7 V, S; \" |- e            end;% v* C- N, u: g4 ~4 T" r4 G
           if iKind = 19 then begin" {* U% O6 N& T# K9 _% j; s- `# f
               Str := 'putsendermagicitem 男子黄金铠甲 @奖品兑换员 4';
7 {. ^" n% Q2 R- z9 }               print (Str);
* @- G/ r5 {- V8 W1 ?; {) \' w4 c            end;! H% G* f7 E2 s1 m9 L: j
           if iKind = 20 then begin' s; W0 |1 X8 Q9 V+ U! J6 H
               Str := 'putsendermagicitem 女子黄金铠甲 @奖品兑换员 4';( b# \' v1 X) H- \( n* u# O; t) b
               print (Str);! l% v% S8 [, {1 Q" G4 H, l- m
            end;; d, A  c/ E1 i3 c3 o) ]
           if iKind = 21 then begin' T/ o4 q- a* r5 B: @, c
               Str := 'putsendermagicitem 男子桂林弓服 @奖品兑换员 4';* P5 p5 G, q6 s4 B
               print (Str);
  L, `& b* T0 M            end;  \7 h8 I( [; K4 {0 y8 X
           if iKind = 22 then begin
7 e( q6 U- \4 B7 S1 }, y               Str := 'putsendermagicitem 女子桂林弓服 @奖品兑换员 4';! K# p7 K8 S. @5 Y0 b! j' D
               print (Str);
0 Z+ b$ o2 Z7 o2 o            end;2 G3 z! t4 T$ M4 C4 s+ m/ X
           if iKind = 23 then begin
3 B/ H: M1 e4 H& Q% q               Str := 'putsendermagicitem 太极明珠 @奖品兑换员 4';5 r7 x8 A' w* K7 v# ~
               print (Str);/ |4 P" R( L0 N0 e2 ^7 \, Z; u
            end;
0 Y1 W! }8 W8 k! [6 L           if iKind = 24 then begin
; Q4 f  j# e) ]4 N               Str := 'putsendermagicitem 狐狸内丹 @奖品兑换员 4';# V( s' W& R$ c. c
               print (Str);
) f5 O* k; ^) P; n& d# X3 t# A            end;
' q$ v; D) E5 K% D; `" M/ A           if iKind = 25 then begin6 u0 B  p! |5 U; x7 C1 h
               Str := 'putsendermagicitem 白玫瑰 @奖品兑换员 4';
* F4 V/ m  G* `( p               print (Str);/ t2 u  ]8 K7 z2 ^0 ], y, D0 d
            end;! u/ `2 K7 ?6 G# [$ U6 u! i
           if iKind = 26 then begin5 |" {4 h( O5 {# a) A9 _
               Str := 'putsendermagicitem 红玫瑰 @奖品兑换员 4';
9 Z. X% n9 }9 _; |7 ^2 {6 p* D               print (Str);/ d1 K: U  W( b1 N
            end;/ \& ]7 Z: m7 H* F
           if iKind = 27 then begin
2 @  ?! R3 U; V+ ?9 H) u/ }               Str := 'putsendermagicitem 灵动八方 @奖品兑换员 4';
( X. n6 N1 r, ?  i               print (Str);2 L4 K5 g4 I& P' g/ N7 W. x7 N
            end;
% Y: V. ]2 d& V# J7 ]" _           if iKind = 28 then begin* G" u* S, j) `, N5 N2 y& Y: x! p
               Str := 'putsendermagicitem 男子魔人战靴 @奖品兑换员 4';$ t  p7 C# k9 Q
               print (Str);
1 d9 z0 E& V8 U% W( @$ o5 Q0 C            end;
3 Z4 t- z' h- ~1 h           if iKind = 29 then begin
7 C6 R. d  c. D; f2 g5 v/ F" y               Str := 'putsendermagicitem 女子魔人战靴 @奖品兑换员 4';: v) B/ w) d8 [7 r
               print (Str);
6 _4 U' x! ^8 |. A! L- j            end;
9 m; A5 o1 H3 ~, x% R            Str := 'say 本想趁机摸你两把,可你身材太差了~';
  _* o$ K. D2 I6 _7 A6 v            print (str);
  g/ ~+ i5 e' h  l( O         end;' H# c: N9 v+ _$ L) w( M
         exit;9 q3 e9 v: o* ]- w/ {$ K- U- F
      end;$ ]7 d( C2 N1 F, S1 a% ~
      exit;- m" j. r! S, \7 \
   end;
# ]( c$ j) H* N- ~6 ^( Vend;4 l) }+ @! a! ~1 j' P/ n& g
end.. j2 j& U2 l1 W) t' D+ U
------------------------------------------------
6 s$ x5 S6 v$ K1 k+ c; X: _- z& [. xtgs1000\script文件夹里得script.sdb里
3 x  \: E- K# v最后一行加入% ]7 Z) u$ K  S: m$ |' a
--------------------
( A6 w0 [1 D9 v. H- j) n130,奖品兑换员.txt,,  3 ^  f% o* K1 \
--------------------
- ?- `9 ]/ l3 ^* X" {' L然后在tgs1000\help里建个文本文件 名字: 兑换员
3 ?8 j! o0 z4 P: u内容如下
- R6 T: j# m, L/ S1 |. {+ ^, j------------------------------------------------
4 R- N* J& T. Y9 h1 Q<trade>
- O  e& h, E) X9 Z* V<title>奖品兑换员</title>: {$ `" c& |) k. ]7 u( C
<image name=z81 value=235>1 w$ i* C' q$ C- e+ R+ f
<text>  k4 Z0 N6 o7 M$ W
天下没有免费的午餐,努力吧!
1 s2 Q6 Z2 v1 t</text>2 y. J6 e6 i/ ^$ C
<command send='close'>关闭</command>" c" M6 c! b' @9 S: Z1 y/ }+ j
<command send="jinyuan">天下没有免费的午餐,拿5个金元来!</command># S: h; |8 g$ x( |/ c
</trade>mand send="jinyuan">交换好运来,祝您好运</command>
9 Z5 D% F" t$ U# b' b  N</trade>
' r" P6 }! l3 v9 h3 I- W# U4 [-----------------------------------------------------4 o% R) @# C0 V! u% B: e. \/ J
然后在NpcSetting目录下建立一个.sdb文件,命名为:奖品兑换员$ @1 b- V9 F; w) p/ A4 {0 K2 t2 y' h
里面内容写成:
! Y/ F& t/ Q. ~: W! H; h, N1 @& m$ I
Name,boSelfSay,boMain,MainNumber,HearString,SayString,NeedItem,GiveItem,CountLimit,RecoverTime,DelayTime,% J3 K$ A+ T! ]2 [
1,TRUE,,,,我可是可以换到英雄装备的噢^_^!,,,,,1800,/ X6 l% @; h  p6 o
-----------------------------------------------------1 R+ i; q5 j( B6 L' v' _- h2 ?' i' l
tgs1000\Setting文件夹里得CreateNpc1.sdb里加/ h, m$ z) Z! O9 n2 o& D6 a
-----------------------------
$ W* h# E6 t; h/ Z104,奖品兑换员,524,474,1,5,130,奖品兑换员.sdb,

5 a9 r3 b4 D. x. f; a
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

三千游戏官方客服

扫一扫二维码

添加qq客服

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