游客您好
  • 点击联系客服

    在线时间: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里加% B5 Q9 e' n- v- Q, ?
奖品兑换员,奖品兑换员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
% R4 j! v  f5 W/ }; Q, Ltgs1000\script文件加里创建一个文本 名字:奖品兑换员
6 h& x5 G, s; }6 O8 L' Z9 g------------------------------------------------
. w, s- u+ Q5 A3 D4 C; v2 n1 u1 Y' xunit 奖品兑换员;7 \0 s7 X" m# L# n! C% e

5 X# U6 r! L8 ~; kinterface1 }! E' S3 d3 s- K6 f
% [6 q& \0 i4 R0 T) \
function  GetToken (aStr, aToken, aSep : String) : String;
0 M, J  W) a( `function  CompareStr (aStr1, aStr2 : String) : Boolean;9 E0 E2 |1 g/ U# |8 q5 `! P
function  callfunc (aText: string): string;
/ Y( O% h; [2 z: [procedure print (aText: string);+ u% u8 m0 q" B( r
function  Random (aScope: integer): integer;
! c6 }2 @$ t5 b" x! Mfunction  Length (aText: string): integer;
6 P# _% L$ N6 |5 `2 X& oprocedure Inc (aInt: integer);0 M9 F/ M4 b, _" V3 u
procedure Dec (aInt: integer);/ n$ \" T  X& [
function  StrToInt (astr: string): integer;0 y8 l. @0 S" c/ J# Y3 l0 S4 c/ j
function  IntToStr (aInt: integer): string;
; _" Q0 U1 T) D) R* Kprocedure exit;- ]- P* o# o1 B* e
procedure OnGetResult (aStr : String);) I; K* b( f4 L2 s
procedure OnLeftClick (aStr : String);
8 j6 F6 X4 ~6 r/ f1 O( `procedure OnApproach (aStr : String);4 z: s* G! o8 [" M' G" K
procedure OnAway (aStr : String);
: @; G6 C1 e- t+ r6 `procedure OnArrival (aStr : String);/ S7 ?% q& M- k* {* t7 u
var
3 D! o3 M5 ^& g7 B: N" }0 `+ Q* CiCallCount : Integer = 0;
* s" p- H+ Q% ~& e% o, Kimplementation3 w1 H( l4 n+ w& u% i$ o5 M
procedure OnAway (aStr : String);
4 w8 }! z2 O" R9 B6 Kvar: O! O$ u8 ], Q7 `6 c
   Str : String;3 F: f7 b: m# I  j: ~. T0 D& }7 J/ _
   Race : Integer;( q1 f: A0 d  x- _
begin, A1 J, l+ V! j' F9 v: _. W
   Str := callfunc ('getsenderrace');
2 S: V. @8 {8 D3 ?! M$ r  o   Race := StrToInt (Str);% y) z2 ^/ w' Y! s* A* x
   if Race = 1 then begin3 h' {& x6 Y  L
      print ('say 拉拉拉拉,贪财老人来喽...');
, N6 U/ Q$ E' N: o2 r. X   exit;
$ V" C- n! g% u& I   end;
& |& e4 x! @1 m8 W# u5 o0 f& A9 nend;
/ {6 T9 r& ?* s: H2 V5 I" }% ~$ uprocedure OnApproach (aStr : String);* r- ?& Q$ Y. j: C' Z9 u
var1 ]$ B' U. ]8 m, `3 y4 e( t
   Str : String;" o- `0 x: X% Y; P# V8 ^0 Q3 o
   Race : Integer;$ l+ d/ ^5 T+ o. V; F+ j3 w
begin
' e* T( k4 v, P8 M* [   Str := callfunc ('getsenderrace');
) N( X. b, I$ E0 Z" m* J4 [   Race := StrToInt (Str);: ?2 e! O; L7 H# G" \1 j
   if Race = 1 then begin4 ^4 c  [+ A$ z6 X; p  P
      print ('say 各位节日快乐...');8 Z" H3 Z6 p6 w" J  a+ O8 ~7 G
   exit;
' v7 J7 s9 [- z9 z- @$ e   end;
0 n  \4 N/ G* e. k7 {end;" G- V2 Q8 d: L2 S( u2 K
procedure OnLeftClick (aStr : String);8 G* z7 I3 ?" W" a% R% h/ c
var
* v0 W3 Z! x* E2 D6 p2 D6 I   Str : String;
/ q: O% \% g/ k9 J) _8 Ubegin
* ~: z) l- |9 `3 `   Str := 'showwindow .\help\奖品兑换员.txt 1';# i* c; k/ v! e" ~5 e
   print (Str);
  t$ o6 T: C9 |% H" D0 U   exit;0 A9 V/ \! r4 {: u
end;& Y- q' Q7 U  y1 Z0 [
procedure OnGetResult (aStr : String);
. C6 l: s4 j3 N0 J' P) x" Mvar
+ G) R3 @6 `6 R   Str, Name : String;
1 N4 d# o; q* S/ O1 X( I   iRandom, iKind : Integer;
) b# d  N" [1 n% I9 cbegin
+ D: r5 k7 v8 ~6 [1 A   if aStr = 'jinyuan' then begin. y. Q6 p4 G4 f" O( O
      Str := callfunc ('getsenderitemexistence 金元:5');4 h3 `) p' N* J* S
      if Str = 'false' then begin% N6 w3 T, O# \4 d- P" z
         Str := 'say 哪有免费的午餐?拿5个金元来!';7 `4 b$ E; n" j
         print (Str);
/ M! q' j# g* L2 I$ O; F# c! j         exit;
5 Y' y  k/ h" w" L- V' s6 S/ K/ j      end;' |, t1 _/ v4 x3 b" h
      if Str = 'true' then begin# o( ?% k$ r6 x2 y8 y
         Str := 'getsenderitem 金元:5';5 a& k' E8 t) N( n5 Y/ R* N
         print (Str);
1 y6 J6 ^4 ]2 m, j& }5 u         Str := 'say 小子,你的金子是假的!哈哈^_^哈!';
  J: t; D9 x6 H4 y. a5 W6 l         print (str);- `& H2 ?8 n' r/ u# z
         iRandom := Random (5);
$ N/ s8 t( ?$ ~1 Q$ F         if iRandom = 1 then begin
3 H9 z9 k% Q1 h7 e2 X            Str := callfunc ('checkenoughspace');
0 c9 q- U. t! E6 x' Y            if Str = 'false' then begin! ^6 l8 o- V: H) v. H/ l6 W  X
               print ('say 物品栏已满~');- L7 W. O  @6 Z- h6 C) t
               exit;9 t& N! @7 C- {) K+ r! T$ Q
            end;
+ N: e8 [3 S: E' ]* B, E            iKind := Random (29);' q- S- e4 K! Y# d* L0 E5 c! w
            if iKind = 0 then begin$ t9 k* i5 L& s* L, M
               Str := 'putsendermagicitem 男子英雄铠甲 @奖品兑换员 4';0 p* ]- O" t& t+ @3 C* q
               print (Str);6 n- c2 }6 B0 I- W
            end;/ H. x+ |8 r; |5 O- B2 K0 X
            if iKind = 1 then begin
0 g5 h7 O+ @* k4 p, w" x/ i; a7 |               Str := 'putsendermagicitem 女子英雄铠甲 @奖品兑换员 4';0 e0 ^. c2 W! k- z) m
               print (Str);5 ~5 t8 Q  E6 q$ |
            end;
5 A9 }- Y$ C) U) C% ]            if iKind = 2 then begin5 {0 a+ j8 H% D* _
               Str := 'putsendermagicitem 男子英雄头盔 @奖品兑换员 4';. X$ U# g; v! @4 g( s) C- y
               print (Str);
' W7 `3 C  I$ e- w5 h4 g            end;
/ [) I# a# [2 `: f4 o            if iKind = 3 then begin
1 d" x, U! A+ E( @; Q; @6 Z" V* L               Str := 'putsendermagicitem 女子英雄头盔 @奖品兑换员 4';
6 v# Z* J; u0 c8 w  m4 r               print (Str);4 X. |2 {/ l0 g  S+ r
            end;
# Q. \9 ~  a3 [3 [* ^6 I            if iKind = 4 then begin9 _" H: x6 T; c" k+ C
               Str := 'putsendermagicitem 男子英雄护腕 @奖品兑换员 4';
) |$ ]. K9 v5 U) ^4 b( F               print (Str);; D7 [8 p9 G8 @; m* a
            end;
9 X) d- j# X$ `! S* @! b            if iKind = 5 then begin) W7 [! {1 g; N0 G  \; }; ^
               Str := 'putsendermagicitem 女子英雄护腕 @奖品兑换员 4';- C1 T) x9 j! y
               print (Str);
) A7 b; `5 O0 A( J( b, w5 v  o            end;) w) s$ C$ o/ \7 I2 P$ h
            if iKind = 6 then begin
; R& O$ L+ c$ K4 z               Str := 'putsendermagicitem 男子英雄战靴 @奖品兑换员 4';
2 ?3 C( {# W" ?1 h8 v9 [) X9 E               print (Str);2 q, E* `" l& G: e# I
            end;3 o9 t# {; F' `
            if iKind = 7 then begin" Z  E. r. u! L, K
               Str := 'putsendermagicitem 女子英雄战靴 @奖品兑换员 4';- ~0 B& J7 B# f" Z+ A
               print (Str);3 [; l/ @7 b' F
            end;0 {1 o3 w, ]0 v, c) _
            if iKind = 8 then begin
' [* H  K; g1 N2 M9 C' w               Str := 'putsendermagicitem 百炼三*戟 @奖品兑换员 4';& z/ x  }& h2 u5 U" h
               print (Str);
+ o/ P! e' }/ g3 W/ D            end;
3 z2 K9 T/ k& |            if iKind = 9 then begin- p8 M2 i2 U9 j* ^  m& \1 f
               Str := 'putsendermagicitem 百炼日本刀 @奖品兑换员 4';
) {6 c, E" n9 F               print (Str);1 T) z; W8 h* F! |$ t8 y* n" S" {
            end;
( F7 ]3 f: Q/ x  }           if iKind = 10 then begin; U) m$ Y2 i) ~: o' J- F
               Str := 'putsendermagicitem 百炼忍者剑 @奖品兑换员 4';
" |) I; r+ u4 F+ z0 S$ w5 j( ^* ]; K3 s( `               print (Str);3 ]; `$ c6 B- T% \' T+ i) T
            end;3 e+ m0 K" T0 o# G- ~8 l
           if iKind = 11 then begin
- D2 g5 c! R, ?+ k2 a               Str := 'putsendermagicitem 白骨魔棒 @奖品兑换员 4';
; W- {1 P( [3 _$ T1 d4 Z               print (Str);: B; ^# `3 v0 k, M% ~0 \
            end;4 ]: p0 q/ Y  @  A- l  d
           if iKind = 12 then begin
8 l9 N  o/ F' M" _               Str := 'putsendermagicitem 生药 @奖品兑换员 4';
6 a8 Y8 f( k: X1 v               print (Str);
+ a2 y1 @" A9 j" N6 a            end;4 E# m7 R; a* S8 X( |) Q3 Q/ x8 I
           if iKind = 13 then begin0 U8 A0 F  \' O; S' r* v
               Str := 'putsendermagicitem 男子魔人护腕 @奖品兑换员 4';
& d  L1 r" G: O# ~               print (Str);
" [! a! X4 ]$ n2 [# D            end;
4 s; P( F6 O' r; W           if iKind = 14 then begin
) b8 _# _1 ~4 W3 a( d               Str := 'putsendermagicitem 女子魔人护腕 @奖品兑换员 4';1 H# u9 y* h7 g$ g- l; W- s1 j
               print (Str);
" w! K- j7 x$ d! c2 T+ ?/ T            end;8 \: I' ?% h- V! W6 G) f
          if iKind = 15 then begin
# c/ s' Q! _' b" {9 T9 v               Str := 'putsendermagicitem 金币 @奖品兑换员 4';
8 O* `  U( M: c2 I4 {2 @+ k2 u               print (Str);
' f  A) K; r5 u' `3 Z            end;
$ L3 ?* c+ m0 S; e9 a: C           if iKind = 16 then begin6 k; b6 u6 c' X2 o/ ^8 H
               Str := 'putsendermagicitem 千年水晶原石 @奖品兑换员 4';) G; I! `; E& u, n
               print (Str);0 \* P5 O2 n7 B5 D( ]9 F! i
            end;0 _7 S( |7 x; \9 W0 h7 _
           if iKind = 17 then begin$ `3 @$ X% V  f8 m8 q8 p
               Str := 'putsendermagicitem 千年水石 @奖品兑换员 4';
8 t' V5 V$ G  Q0 c$ i' m5 }               print (Str);  {: j0 O! U0 R: c$ e& Y
            end;
6 B$ `! a) {9 p" H# A# t$ d: Y           if iKind = 18 then begin
$ S! F1 O  U2 d% U               Str := 'putsendermagicitem 象牙十字镐 @奖品兑换员 4';
8 _* h! T4 J: k               print (Str);/ O2 ^0 B2 l+ d
            end;$ c# I" F+ p% E2 p& q2 a
           if iKind = 19 then begin
) `& O: X: A  ]$ {- ~               Str := 'putsendermagicitem 男子黄金铠甲 @奖品兑换员 4';
; p" u* @6 x% ~- S8 Z               print (Str);
% f+ G/ }! n( p- \9 t3 F0 `            end;7 U/ M2 X/ C+ i8 h  o4 _8 i
           if iKind = 20 then begin8 [/ u" \: v: A
               Str := 'putsendermagicitem 女子黄金铠甲 @奖品兑换员 4';
$ d7 f( `2 @; o               print (Str);1 }1 }1 l: |! Z, W
            end;
, K1 b/ |7 E# I1 L" b; H           if iKind = 21 then begin
+ U( Z& t5 X5 O8 R. W, L               Str := 'putsendermagicitem 男子桂林弓服 @奖品兑换员 4';, j9 r: u; R7 R9 y9 z7 [
               print (Str);- d; l. [+ A- \+ ]5 b. o2 g) x
            end;# Q+ U5 O# F7 F  w1 ^4 y; i, f
           if iKind = 22 then begin- }+ h  e) T' i. N- @3 C
               Str := 'putsendermagicitem 女子桂林弓服 @奖品兑换员 4';
8 j# [# P- a+ u; b" E               print (Str);( w. B+ l8 G8 g- i0 P* \. n
            end;
$ w2 u+ X! S6 S4 H8 g  F' x           if iKind = 23 then begin
% ~$ k! f2 |- Y! P* p2 D               Str := 'putsendermagicitem 太极明珠 @奖品兑换员 4';3 r) c- J9 K6 l
               print (Str);+ q, |4 d( v' S4 X& ?7 c- f
            end;2 u* ]' ?5 r7 `& H
           if iKind = 24 then begin
6 x8 f- M% Z$ R/ J. v' T               Str := 'putsendermagicitem 狐狸内丹 @奖品兑换员 4';
! p  f- o6 E( P2 O" o* |               print (Str);
: w% g7 ]: u: W/ n: Z7 T; S1 ?            end;
( \; |' k+ g: E- M8 r- T           if iKind = 25 then begin6 E& R" m- x6 Y. q2 I1 Q+ d
               Str := 'putsendermagicitem 白玫瑰 @奖品兑换员 4';
4 v5 @4 |  n' H  r               print (Str);, n+ U: n! x" m/ C
            end;
' B, g. M  z& A! D9 C8 [# n& z5 _2 n           if iKind = 26 then begin. J/ z1 h, U# Q! b0 P9 f+ z* n
               Str := 'putsendermagicitem 红玫瑰 @奖品兑换员 4';3 P9 s( `( l2 O
               print (Str);' k! Y- b' R" R* w! {* Q! T7 P8 u
            end;
0 k" B; I9 D7 ^3 K/ `, y9 x           if iKind = 27 then begin
; R* U: `- S" x  d0 ^               Str := 'putsendermagicitem 灵动八方 @奖品兑换员 4';! \; n" A1 x5 o& R4 O0 k
               print (Str);
6 F: }1 y- K) G9 M            end;7 Q/ k7 ^6 D  K' U
           if iKind = 28 then begin
/ `4 {8 X7 M: ?               Str := 'putsendermagicitem 男子魔人战靴 @奖品兑换员 4';- U. M% L0 {0 X+ `" l) \/ T+ ]7 Z1 _5 P
               print (Str);
8 j: |9 c+ I6 o3 ~7 }            end;- o  X6 k& n  c9 Y' ~9 {
           if iKind = 29 then begin
" K7 Y% v7 P% k6 d: U) A               Str := 'putsendermagicitem 女子魔人战靴 @奖品兑换员 4';
# U! w% `3 L6 b$ @               print (Str);5 C, s9 [$ [9 r2 o3 H1 k
            end;$ b: x- w' a- @1 `7 {$ a6 b: ?
            Str := 'say 本想趁机摸你两把,可你身材太差了~';8 Z/ V  S& W) K6 O
            print (str);8 d+ }& u" ^6 a0 j% P) a
         end;
3 h. a. V9 S( B  S5 }         exit;
  a$ }% h- U+ C/ w4 R      end;) ~2 C4 g" T2 v0 z" i1 k
      exit;
" a! o- i; U, n7 d% F# `' E   end;# ?' }6 Y8 j6 n! |% x  ~# ~- B' z
end;
" h& Z- q/ S( J2 T- O# F$ m, Dend.
3 e# r' \& g9 q$ c------------------------------------------------7 V" f0 S3 ^% _. U. {
tgs1000\script文件夹里得script.sdb里4 x% }* F' g. F1 M2 s2 s
最后一行加入
2 ?. [% {" ?. f6 U6 _--------------------  ?! F" ^6 m- i
130,奖品兑换员.txt,,  
( S2 b4 `  Q; k9 {7 U--------------------0 K2 O; {0 @& n. T) i- {/ o; u
然后在tgs1000\help里建个文本文件 名字: 兑换员! d+ |( E  B% I
内容如下% u" v& J$ u; N( T+ m* Z3 F7 Q" D
------------------------------------------------/ q, T$ H2 o5 f, E3 f
<trade>. p% A- N# H# i& V6 @6 S
<title>奖品兑换员</title>, z8 W9 S# [0 i( ~
<image name=z81 value=235>
% f; t3 P% t; f7 j; `6 w<text>6 G& |2 W% }$ Z2 h
天下没有免费的午餐,努力吧!
: Y. X. s& ~8 ]$ s4 U2 ?</text>
- c7 s' x' n  d$ I- u! I<command send='close'>关闭</command>, e. h- R) L/ n0 l
<command send="jinyuan">天下没有免费的午餐,拿5个金元来!</command>8 k2 R" A8 @( Q3 }
</trade>mand send="jinyuan">交换好运来,祝您好运</command>
# y! ^- ]4 }5 J: M, i* k</trade>+ o- I# B' n4 p) z, Z9 I
-----------------------------------------------------; |/ t: w; q0 L: E, s1 \
然后在NpcSetting目录下建立一个.sdb文件,命名为:奖品兑换员
8 _+ S4 A5 w/ G) J1 z里面内容写成:
# k1 K4 M2 L# r  j! Q! C: r
9 K/ X8 N. V/ ]4 C5 u) _! aName,boSelfSay,boMain,MainNumber,HearString,SayString,NeedItem,GiveItem,CountLimit,RecoverTime,DelayTime,
  O) p# }$ @; n8 N* q5 g3 \1,TRUE,,,,我可是可以换到英雄装备的噢^_^!,,,,,1800,
3 Q+ T* h) ?: G! P% K* b-----------------------------------------------------5 d( C8 W. W$ y/ _/ z1 r- a9 _
tgs1000\Setting文件夹里得CreateNpc1.sdb里加% w7 ]3 [1 e# b, g: |, z% d
-----------------------------8 T3 n) E) J6 a; J
104,奖品兑换员,524,474,1,5,130,奖品兑换员.sdb,

! f  U2 ]% M! H' B1 P
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

三千游戏官方客服

扫一扫二维码

添加qq客服

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