游客您好
  • 点击联系客服

    在线时间: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里加
6 g9 }1 D$ \" Q8 z奖品兑换员,奖品兑换员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
3 Y+ a' I0 K& Ttgs1000\script文件加里创建一个文本 名字:奖品兑换员5 q& \3 l* M& w( W$ E. l0 \/ }
------------------------------------------------
- {2 Q, H1 i5 q5 f- Ounit 奖品兑换员;
: P8 i3 G  d/ y) Y4 r# E. K1 J$ H- R7 w! s6 I
interface  H1 \* k9 V5 x

) u7 i! R% ^. `) t( ]& hfunction  GetToken (aStr, aToken, aSep : String) : String;
- q# o& d2 E1 {function  CompareStr (aStr1, aStr2 : String) : Boolean;: Y$ N, \6 Z& D
function  callfunc (aText: string): string;
, q+ w1 Y0 c! y! Nprocedure print (aText: string);% z) ]7 a: D. G! R% y) Y5 }+ O; ?+ ]/ U
function  Random (aScope: integer): integer;) o, B* @* N$ y0 b" l
function  Length (aText: string): integer;4 b% r% c, Q: F0 k) i( Z
procedure Inc (aInt: integer);
4 j* w4 S# C5 [" y3 Dprocedure Dec (aInt: integer);, M" Y' f: ~, |1 h+ n" ~- ]
function  StrToInt (astr: string): integer;
# y* C' U( A( Y9 }function  IntToStr (aInt: integer): string;
2 B5 g2 f% a& h  w: p5 B0 ]( Tprocedure exit;% j( s1 H+ ^4 \1 r6 J
procedure OnGetResult (aStr : String);5 |8 _/ X/ O2 D" K, }$ j7 P
procedure OnLeftClick (aStr : String);; l/ H" W: g* F
procedure OnApproach (aStr : String);
( S1 }( V* N' W. _procedure OnAway (aStr : String);
  x- }, d3 m/ Q4 n" @9 Jprocedure OnArrival (aStr : String);
: H5 T/ p+ |0 Y; }$ nvar
) d7 a' ^" S/ i+ U( _iCallCount : Integer = 0;& w0 d) j( N- N7 q$ B
implementation
- @5 R2 K3 `& \) c; F: Aprocedure OnAway (aStr : String);
. D: `1 R: r, L0 U5 C$ B7 bvar" u: O5 h( c' v3 [1 v6 s
   Str : String;8 a8 r+ ]; a) g
   Race : Integer;
6 \" M- [* M. \, V0 R9 Ubegin2 ]+ C+ M  o3 F
   Str := callfunc ('getsenderrace');
( T. k+ F( c7 K$ u$ {   Race := StrToInt (Str);' R0 ]) ~& b/ ]  N2 k5 j7 `0 C
   if Race = 1 then begin6 `: T( O# M9 B9 O. I: }
      print ('say 拉拉拉拉,贪财老人来喽...');; }5 e& `( l# F; f) t" D* |$ r! o) F5 q
   exit;* Q& R$ q( `* Z) F# F! T
   end;
+ g. G3 `9 w' Y, s3 x; ~: oend;
( d5 g2 [% z1 ?procedure OnApproach (aStr : String);8 U) B$ r/ U/ Q+ O8 G0 g
var
' z2 w3 ?6 i, V" d( \   Str : String;
5 a: ^. o9 B6 j- b7 k3 {   Race : Integer;2 S! W: c  g8 N
begin  i& g. b6 U; K) D2 w, T
   Str := callfunc ('getsenderrace');
, Q4 l9 c& h! U# C) |+ W' v   Race := StrToInt (Str);# v/ L. M4 {( r$ h) }1 x& L
   if Race = 1 then begin1 O. a& ~' [0 ^7 U/ s: H) v- j+ A7 V
      print ('say 各位节日快乐...');
& }& c% w8 f5 O# C& {( H# x9 |! @   exit;: P( V( U& D$ W: l: q$ ]8 m
   end;0 X8 z6 S0 C6 Z. n, p9 G
end;
+ P% |# }8 H9 O1 m8 ?procedure OnLeftClick (aStr : String);
& P3 j8 q6 v3 }var
7 B9 i" ^9 M2 U  z8 g& l   Str : String;
$ J& _" J: P; c5 ?$ R# h6 ebegin$ ]" T. ~7 e  Z8 C( o- Q/ M, ?. l
   Str := 'showwindow .\help\奖品兑换员.txt 1';
( o: S! |) S- b   print (Str);
5 [8 J* Z+ |8 E. g9 G. u   exit;0 Z" m6 z* M: V* z( z  n4 [3 M$ b! D
end;
4 u; F: I4 f& X5 {6 \; ?# N3 x8 @procedure OnGetResult (aStr : String);
) P3 \9 X$ {+ M: Z, e; Ovar3 q' i  d: N9 d6 \' P" U0 [3 C! @
   Str, Name : String;
" i6 P9 b% v2 O2 H( W   iRandom, iKind : Integer;- B$ O6 s, i' u$ ~+ k5 a# [
begin- S: J, {: j1 f
   if aStr = 'jinyuan' then begin
8 d; a9 }' g1 k& L* U" U      Str := callfunc ('getsenderitemexistence 金元:5');
/ I9 W/ b( T3 J/ w/ O* T      if Str = 'false' then begin
6 q! C& s5 `' |+ t5 u         Str := 'say 哪有免费的午餐?拿5个金元来!';& ?' F( O) ?9 ^8 i/ B& X/ m3 R
         print (Str);1 x' ]4 K  c$ R6 m  I. [6 t
         exit;
: r! }: b8 w) J3 @) x% _      end;3 Z: a" }6 R9 y4 F) h
      if Str = 'true' then begin5 J; [: w$ K0 A; s( g8 U, ]  T9 p/ Y" A
         Str := 'getsenderitem 金元:5';. @0 @: K8 S: n0 N+ b( ?
         print (Str);
- Z" B6 ]. A) f/ v9 B7 G         Str := 'say 小子,你的金子是假的!哈哈^_^哈!';$ {) H, ?* t. ?; ^0 i5 A; L
         print (str);  t, ]" a' X& {6 Q
         iRandom := Random (5);
" B3 l5 R' r! V- S         if iRandom = 1 then begin" c* w3 L2 p& }& M/ ?! l5 K
            Str := callfunc ('checkenoughspace');
3 r5 x* N8 K, Y* U8 g8 N1 V  f            if Str = 'false' then begin
7 ]+ c- {+ I, N( x2 h               print ('say 物品栏已满~');
  x/ t) g6 Z. o0 c' ^  M* g6 E               exit;, @9 F) G- W# [6 w( C% i. Z3 s
            end;, A0 `; [* a2 J8 B: v2 A
            iKind := Random (29);
2 g' S9 B3 Z8 g4 o- n1 V1 x9 g            if iKind = 0 then begin
5 i+ [  {) \& _               Str := 'putsendermagicitem 男子英雄铠甲 @奖品兑换员 4';
/ U8 K3 w! @0 ^# g4 Y0 W- `               print (Str);" Z- e  \  B# T& }& M7 l: ?
            end;! m6 B3 c4 k6 t( p  g% X5 Z
            if iKind = 1 then begin- ?2 Y; L5 e1 a- m6 }- u
               Str := 'putsendermagicitem 女子英雄铠甲 @奖品兑换员 4';' a- L0 U! `. k
               print (Str);& T( W# @' `! s- B% ~5 J9 @. I
            end;1 [+ ]8 ^' K) b
            if iKind = 2 then begin/ {9 u2 I& }8 ^, `
               Str := 'putsendermagicitem 男子英雄头盔 @奖品兑换员 4';8 X# @7 t% {) f3 T
               print (Str);
( e" e" ]! {0 v( u; d            end;
' b! V, x' j- e  g9 U/ Y            if iKind = 3 then begin
2 C, m  |6 x/ k; v, C" q               Str := 'putsendermagicitem 女子英雄头盔 @奖品兑换员 4';" u- \7 P4 w' l+ E1 ]5 ]* o
               print (Str);2 Z9 `: z0 j1 r+ V
            end;
2 y3 p4 q: c4 w2 h/ b! v            if iKind = 4 then begin
; V# d% D" k2 A. ]+ L9 }2 l               Str := 'putsendermagicitem 男子英雄护腕 @奖品兑换员 4';
! o+ K3 U; w4 q4 F' e0 ]* X& @               print (Str);' n  d$ m' u" k/ C) ]6 a# t
            end;4 e4 j; t' t8 r
            if iKind = 5 then begin
4 b4 u7 L/ ?% [6 P               Str := 'putsendermagicitem 女子英雄护腕 @奖品兑换员 4';
7 v8 Q; z0 L. K  E               print (Str);6 b/ y) w" ~5 M7 [3 T( w
            end;  P, I" P- z( `' e
            if iKind = 6 then begin
$ Q8 t7 `5 s# X- |9 G               Str := 'putsendermagicitem 男子英雄战靴 @奖品兑换员 4';" z; R- y" g8 U, B
               print (Str);
3 |# d; W% K2 K3 M$ E/ E            end;2 X& A& n6 [& ^, c6 `7 |/ G
            if iKind = 7 then begin( w3 B7 f" O+ K& F3 J' P
               Str := 'putsendermagicitem 女子英雄战靴 @奖品兑换员 4';7 k# L7 ?! o% {/ q5 Y
               print (Str);
* E% x1 t$ [+ b' p" F$ b            end;) S9 A% H5 J0 V3 x( B- l" v
            if iKind = 8 then begin
, @, f9 L! r- y+ q               Str := 'putsendermagicitem 百炼三*戟 @奖品兑换员 4';
- N4 d0 L8 V9 n( b               print (Str);
! \4 y: m6 [1 T* w0 A& p            end;
$ t0 d  p' ], I5 v& O# m2 T4 ?            if iKind = 9 then begin
5 s9 o2 N5 D3 O5 p8 U, [' G0 f$ l               Str := 'putsendermagicitem 百炼日本刀 @奖品兑换员 4';
/ o7 r: ^: [  W1 V4 D               print (Str);0 y4 v& k! J" s
            end;! w% N6 M( l" X0 G% d" u
           if iKind = 10 then begin$ s. E3 j% e* A) c: k
               Str := 'putsendermagicitem 百炼忍者剑 @奖品兑换员 4';' O, u) Y6 s' b! _
               print (Str);1 |8 @# U( O# \* L& B, |) Q5 g
            end;; z/ v" U3 E5 C1 l
           if iKind = 11 then begin
9 I) M" `. |+ _8 j, R. a               Str := 'putsendermagicitem 白骨魔棒 @奖品兑换员 4';6 D8 s2 g1 }5 C6 o6 `9 D
               print (Str);
; W% D2 y+ h7 W9 {            end;8 k5 d6 \- W0 ]/ Z7 @9 J+ _* D8 }
           if iKind = 12 then begin
6 `- T3 B; ]: h* R$ p               Str := 'putsendermagicitem 生药 @奖品兑换员 4';
" m% C- g' D4 X4 B               print (Str);# u+ e6 @# x  v+ [, x4 }& E/ i
            end;7 s6 s  m8 [& W% P# m. X% A& [7 z
           if iKind = 13 then begin
( \# y( |% U% N8 {3 B& `; f               Str := 'putsendermagicitem 男子魔人护腕 @奖品兑换员 4';! d' i: D+ n6 H
               print (Str);
3 G: r* h% R/ s  U5 E            end;0 {6 i8 a2 _' `4 j- b
           if iKind = 14 then begin( O$ H; k( ]7 @: ^+ t: h: M+ x
               Str := 'putsendermagicitem 女子魔人护腕 @奖品兑换员 4';2 G1 o5 V$ Q/ X
               print (Str);
0 D$ p) b% e& f, ?  ]            end;
+ b$ n) J3 ?1 K7 a# b          if iKind = 15 then begin
2 c9 A# A% e3 S/ F% }- P; O( n  Q; C               Str := 'putsendermagicitem 金币 @奖品兑换员 4';4 U! N3 V9 u/ p0 P& Z
               print (Str);
5 a5 p9 L  H" q& n6 p" c2 e$ `            end;
4 K9 Q) F7 c& z1 u' B. q           if iKind = 16 then begin5 C, q9 j% b! m* h/ H' B
               Str := 'putsendermagicitem 千年水晶原石 @奖品兑换员 4';
( O) u4 Y5 B& y               print (Str);9 H7 U5 ~* E& u& U
            end;
; y6 u7 u) p% ?- v           if iKind = 17 then begin! q1 J- j" k9 Y# |7 R' m" v- q- M4 U
               Str := 'putsendermagicitem 千年水石 @奖品兑换员 4';
! b$ Q8 {! F0 R; q' B9 P9 O& x               print (Str);
4 \4 d. Y8 d8 A; l            end;# W' g' I7 G6 K" x) n
           if iKind = 18 then begin
/ R1 Z' F$ Q, l7 K               Str := 'putsendermagicitem 象牙十字镐 @奖品兑换员 4';
; u( s/ w( x$ u8 f( y               print (Str);
# k" \- D9 P, [. z0 b            end;
' M4 V, C3 _& d  e           if iKind = 19 then begin
& S7 n" i) Q0 }               Str := 'putsendermagicitem 男子黄金铠甲 @奖品兑换员 4';
& w4 T2 x) P6 T2 F) q               print (Str);
! Z, T, Z. x4 r5 P6 l9 P4 f( ^1 i+ H3 o            end;/ n9 ]2 k8 s0 ^. r' R+ C  s
           if iKind = 20 then begin
8 g( v1 e  H0 w6 X! f6 z# E               Str := 'putsendermagicitem 女子黄金铠甲 @奖品兑换员 4';
: w& S* j! A/ r               print (Str);2 F8 N( M9 f5 f8 D% k7 y
            end;
, Y3 f* ~; I9 Z# D4 Q           if iKind = 21 then begin5 x8 H) x' ~5 v( p$ u' Q
               Str := 'putsendermagicitem 男子桂林弓服 @奖品兑换员 4';- o" q3 |0 T, U: a# M: C
               print (Str);! W1 I6 `6 q8 v( s5 P" f/ N2 w
            end;
% u. d/ Z3 c$ x  Z: l+ s$ h           if iKind = 22 then begin8 ~6 R: ?* a) v1 r7 r3 X: Q0 B
               Str := 'putsendermagicitem 女子桂林弓服 @奖品兑换员 4';
, v3 u& k+ K0 Y$ U, k               print (Str);& V" s' v7 f$ |
            end;4 U, u$ }0 k1 }5 j
           if iKind = 23 then begin
+ K& k! Z0 ]# o% i. i8 C3 [1 i               Str := 'putsendermagicitem 太极明珠 @奖品兑换员 4';$ K6 c- u! Q2 H# n$ K" W2 w
               print (Str);6 E  H; D% H$ J/ e, g. ~
            end;
: J( N% `& O( D' j4 R9 Q; ~2 o  n6 ~           if iKind = 24 then begin0 V' V( G/ m  X3 G2 Z1 v
               Str := 'putsendermagicitem 狐狸内丹 @奖品兑换员 4';
; A) {( r/ J( m2 C5 s7 v8 Y               print (Str);
0 L2 \4 e% q; n" b. t- Y' @            end;
/ \$ d  o& i0 K) B  a$ L% I           if iKind = 25 then begin
1 g% u4 P" ]& V/ D% k+ h               Str := 'putsendermagicitem 白玫瑰 @奖品兑换员 4';
/ v4 }- B. O6 m               print (Str);
" O0 Z7 N1 R6 N& ]0 D# N$ |" n5 f  l            end;
' \" i0 X0 A* q4 q) n0 b8 B           if iKind = 26 then begin
# `7 I3 W% ~: p& l" B               Str := 'putsendermagicitem 红玫瑰 @奖品兑换员 4';* b0 ]) h" A- |+ o' }5 h
               print (Str);8 ^; A6 C" Q; l! X8 |# P
            end;2 v: T, b4 E" o8 u% B' G
           if iKind = 27 then begin+ @$ S8 r! Q2 T7 K$ o5 j" a
               Str := 'putsendermagicitem 灵动八方 @奖品兑换员 4';
& @& g) j" H6 C# C8 m( m               print (Str);& a! f8 c, ~$ w: Q8 Y# V4 f; n/ h
            end;
% C' ?& l0 U6 H8 h  J# r- w           if iKind = 28 then begin. M1 R: p7 c' o4 K- i, Q* c. T
               Str := 'putsendermagicitem 男子魔人战靴 @奖品兑换员 4';
: ~- O  {, _# U0 `               print (Str);
$ A, B% L6 G. \3 z9 ?            end;
8 T  V7 l' \2 t& I# E, t           if iKind = 29 then begin9 \0 U3 W" ]8 E6 y  C. n
               Str := 'putsendermagicitem 女子魔人战靴 @奖品兑换员 4';
; F7 z% d( u$ `: b7 I               print (Str);) `. t$ D, T- {- r1 p) K% n* N
            end;1 I8 m5 q$ H) x# B( r0 m
            Str := 'say 本想趁机摸你两把,可你身材太差了~';. N; U2 |# F9 U+ k
            print (str);
; ]( T! e$ H0 k# Z6 D- y. j  E         end;% ~' C1 e1 R/ ~' b2 s, m
         exit;8 e2 }6 P$ z. O0 i# s. c% e
      end;
( |- w2 y' C) ~  Y# Z, N% h9 u* B      exit;
& \4 a: P! l! U' L   end;
3 J: o+ L6 ^+ B+ wend;
  Q/ f, A3 @! J. U" K! S9 ?end.- U) ^5 P0 n- p* `
------------------------------------------------; q) `( K$ F) {) e6 ^% G& j$ U4 p
tgs1000\script文件夹里得script.sdb里
$ g3 S5 Y8 k5 B最后一行加入
2 Z3 s8 z8 j( q; x# Y% h. M--------------------) o: N2 _7 a. a4 D
130,奖品兑换员.txt,,  
: K4 M& }& V! H  w" f--------------------; V8 @4 o  ]# S
然后在tgs1000\help里建个文本文件 名字: 兑换员9 Z' M/ Y( Y' y' s% w
内容如下% T- m: {/ T9 p
------------------------------------------------( B( y4 I5 {1 O( P, v
<trade>
7 K' B' q! J& Q* W2 h6 c<title>奖品兑换员</title>/ I( ?0 L) A6 |, z2 V2 z
<image name=z81 value=235>& u0 G" q1 n8 f7 s; t' {7 p
<text>& \# e1 k- w! T5 J) B
天下没有免费的午餐,努力吧!
1 X) B/ B( z3 y) W2 ]</text>
1 r3 D: k( T/ F<command send='close'>关闭</command>
! h  \0 W, ]) @9 S% p<command send="jinyuan">天下没有免费的午餐,拿5个金元来!</command>
5 K) N% |0 C9 G3 E3 a, s. B</trade>mand send="jinyuan">交换好运来,祝您好运</command>
. \' v# Z' S% u( t8 c6 [% |</trade>
: m7 C& O' g: P- v. O- o-----------------------------------------------------4 X; x& g& s! k( d' B
然后在NpcSetting目录下建立一个.sdb文件,命名为:奖品兑换员
0 @+ `* R( T( c4 A  q9 A9 l( `$ u里面内容写成:: K$ v( r' P( i3 x9 \9 f
/ N+ C* q3 }* g6 ], a7 X
Name,boSelfSay,boMain,MainNumber,HearString,SayString,NeedItem,GiveItem,CountLimit,RecoverTime,DelayTime,
# x) c! B* |6 V+ }- z1,TRUE,,,,我可是可以换到英雄装备的噢^_^!,,,,,1800,% B  }! Z. K1 K
-----------------------------------------------------% H8 O9 @0 U  z5 e( G* r
tgs1000\Setting文件夹里得CreateNpc1.sdb里加8 b: B  `0 `5 x2 T
-----------------------------
9 ]* d" ]+ Y' J2 l3 m104,奖品兑换员,524,474,1,5,130,奖品兑换员.sdb,
9 {7 |' @  t3 R" g2 F7 F
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

三千游戏官方客服

扫一扫二维码

添加qq客服

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