三千论坛
标题: 神武奖品兑换员脚本 [打印本页]
作者: 异仟年 时间: 2022-9-5 17:33
标题: 神武奖品兑换员脚本
在 tgs1000\init\npc.sdb里加5 |$ f+ j9 s% {9 r6 T; |8 I
奖品兑换员,奖品兑换员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,6 n: h8 _' X4 i9 ?7 R
在tgs1000\script文件加里创建一个文本 名字:奖品兑换员
8 P+ T. q/ v2 U; \5 q5 ]------------------------------------------------9 K: {( `5 ~' {' I5 N2 ]. z5 A4 h
unit 奖品兑换员;
5 u/ ?% Q" { ]/ ^7 U
0 u6 T0 A" U) }# z+ g% x2 e- Y' i' Winterface( D4 j) `' K6 r- n+ T" l
( C* l& {2 `) E8 h; R- L7 j# x. wfunction GetToken (aStr, aToken, aSep : String) : String;2 Y/ `3 J6 @9 {: P& w
function CompareStr (aStr1, aStr2 : String) : Boolean;6 M R- [: F- H
function callfunc (aText: string): string;
: ]: t% `& p& U0 w5 a$ ^procedure print (aText: string);
2 L% o B7 ], l$ v3 ofunction Random (aScope: integer): integer;- w( I7 @4 s9 T2 D* x2 \- ~
function Length (aText: string): integer;& t, }6 U: s( t' ~2 h( y- V1 J
procedure Inc (aInt: integer);$ Y1 C. m4 }" Z$ n+ W8 i# d- y
procedure Dec (aInt: integer);( f4 c( d% r9 R) f1 q( s
function StrToInt (astr: string): integer;6 Q3 U6 d+ r% ^6 B
function IntToStr (aInt: integer): string;" |- ?3 J2 g6 E4 v. ]- Z7 B
procedure exit;
) \, _7 w! p6 m/ i u- K" b Aprocedure OnGetResult (aStr : String);
3 y8 M+ [* ~# ?) H! [procedure OnLeftClick (aStr : String);* t2 n- Z' J4 n2 C M5 ^6 L' r
procedure OnApproach (aStr : String);
# Q5 y6 C6 w3 B" m6 N# Bprocedure OnAway (aStr : String);# D* u0 C! `/ e$ f8 d; @9 A
procedure OnArrival (aStr : String);$ Y) S6 C6 l6 _
var
/ b4 D' r8 i* u2 B$ s! iiCallCount : Integer = 0;4 Z, O1 Q$ D6 e7 t0 ?
implementation
3 _( ?* L/ n! Cprocedure OnAway (aStr : String);" P8 x0 r" l9 I0 `3 s4 @ R0 C
var% ^+ I% v+ t+ u( v. {' E
Str : String;% N6 \4 l& C- p) x" J, M5 J
Race : Integer;
- A# u. r( {; N9 I0 g! N1 w$ c. mbegin
) Y' i P9 Q) l" e5 D7 }& |+ o- c Str := callfunc ('getsenderrace');! |* l4 o" `3 ~& i
Race := StrToInt (Str);. n) h: e4 f j+ T% D! H& l/ b
if Race = 1 then begin
- ^" R. t& m5 a% J3 x print ('say 拉拉拉拉,贪财老人来喽...');& k) T1 F5 r8 c# \( O/ s
exit;
5 g; u5 Z1 u2 D; k* ~3 \! X end;
# E% Q, F/ ~" ?2 x- q |end;
# @8 b& U) K! L, G u( aprocedure OnApproach (aStr : String);
$ ~/ s7 h* l: O& I5 svar2 g! @+ O% m; g1 {, p% M6 m, o' q
Str : String;
% Z7 }, I- M4 a& W" i# A3 R$ H Race : Integer;
7 p9 d# W. O/ _. r# cbegin
' f" m$ z$ h4 ~* O# H Str := callfunc ('getsenderrace');# K8 @; C; {7 a4 `6 P) E( g
Race := StrToInt (Str);
" N" q% ~' d$ |* h/ h2 q if Race = 1 then begin7 I. ~+ p/ P4 }) m5 M! z
print ('say 各位节日快乐...');! Z0 N$ Z; I- a8 e$ I& b
exit;
! S7 M) U5 i; X6 I+ B* P7 y2 N end;& r8 }. Q, a) y% f
end;' S! _1 X# k2 M4 ^6 e& b' k
procedure OnLeftClick (aStr : String);
1 ~/ M; m( y+ ~6 Jvar
5 n v& F4 h6 H8 p4 L3 r* Y Str : String;
5 _1 B* @ t; Nbegin
2 H6 J5 ]+ z3 T, y9 R) e2 P Str := 'showwindow .\help\奖品兑换员.txt 1';, e! ?' ?! V$ N' W0 g/ U0 S
print (Str);
2 ]. x0 C/ a. A7 b exit;6 u) C2 W! r6 s. ` \: e
end;7 J3 h& @3 a) t! N
procedure OnGetResult (aStr : String);
, ^. @% G' r/ F! B+ Z( g, \var# A5 k9 C" {* q
Str, Name : String;
% B, B+ X8 T* |% z U- { iRandom, iKind : Integer;0 e; a$ X# c) t) V u
begin9 p7 F2 n% {! m0 F& P8 ]9 m, r
if aStr = 'jinyuan' then begin5 P5 P/ b& r' n5 `
Str := callfunc ('getsenderitemexistence 金元:5');
& a" [ F4 ?- V1 K& O if Str = 'false' then begin/ E8 B) \* d$ m1 U
Str := 'say 哪有免费的午餐?拿5个金元来!'; ^' y* X1 J9 T7 s3 q
print (Str);( j3 d& r; x: c( L( [) o
exit;5 A8 Y4 s; a( [& {( p* F8 M
end;: y' q7 n) U; E- l
if Str = 'true' then begin
$ E8 m$ T$ r: l7 I t5 @ Str := 'getsenderitem 金元:5'; P, ] C, W% ]1 V5 E3 m2 m+ n
print (Str);' x5 \" l [8 F, i* g. k. k9 F
Str := 'say 小子,你的金子是假的!哈哈^_^哈!';
6 k& y3 O% I* ~8 C( {0 G print (str);
# l7 s" G+ T: n) f+ s& p! C iRandom := Random (5);
4 j9 C- j) ~( Y2 g. d if iRandom = 1 then begin
, a* i1 l4 Z" a+ ?( H Str := callfunc ('checkenoughspace');
x; q( R/ g# I, i# Z if Str = 'false' then begin
' M3 e. ]) r* r- O. _! b$ |; r print ('say 物品栏已满~');: q j) H7 J# t! v, l
exit;+ L6 y8 @: b( P/ w4 N
end;+ o) B3 O3 Z- {; Z0 d% ]: N, s
iKind := Random (29);
& l( c& c0 E0 Z4 Z$ |# m. p7 a if iKind = 0 then begin8 A6 g: H5 c8 }2 _2 N- X% `" L2 x
Str := 'putsendermagicitem 男子英雄铠甲 @奖品兑换员 4';4 z6 J4 e& k! u& z
print (Str);
$ n* V& i+ I( Y7 m' f4 R end;
0 }+ [. N W- o+ n1 [3 ]) \% g if iKind = 1 then begin
& y) H+ f3 c- L! }+ B, F. M Str := 'putsendermagicitem 女子英雄铠甲 @奖品兑换员 4';5 d) \6 s* L! Q2 v
print (Str);; V4 O1 p0 x' n$ G: d5 R" E# t5 s
end;
% z r+ D2 d: l/ I O8 S* h if iKind = 2 then begin& i* i, x, p1 \( i( s' T, w
Str := 'putsendermagicitem 男子英雄头盔 @奖品兑换员 4';2 X2 |6 |- g& p I- m4 e5 l& _5 Q( Q
print (Str);0 L b8 L) Q H, u! J
end;
* _2 v+ d2 \" [ c+ X if iKind = 3 then begin) F6 N1 ~* y2 Z
Str := 'putsendermagicitem 女子英雄头盔 @奖品兑换员 4';
e# u+ x$ W. o print (Str);2 I! l0 b% `; t$ _2 V5 f1 a
end;
/ w) M" B. u* P* a' Q if iKind = 4 then begin
b8 R) i6 H$ ]+ F$ k Str := 'putsendermagicitem 男子英雄护腕 @奖品兑换员 4';
1 C; r3 X2 h+ g- ~ print (Str);9 X1 X9 ~8 e+ Q4 d& C1 V1 r
end;4 x R6 v: H+ l
if iKind = 5 then begin
# w$ `3 W2 A0 s! T Str := 'putsendermagicitem 女子英雄护腕 @奖品兑换员 4';
8 ^0 j* T- X" }$ H& w: y0 b ]$ [7 r print (Str);; h3 W6 ^4 y1 ]3 J( g; z
end;
( H( Y9 p9 k- e9 y6 { if iKind = 6 then begin
2 d* K h9 f: K! D' A Str := 'putsendermagicitem 男子英雄战靴 @奖品兑换员 4';% K) d! D* }: m( b% S
print (Str);
; Z4 t; R+ h; @/ \" m/ }6 S end;
7 T; l/ E: j' Q8 n: m) }1 j4 P if iKind = 7 then begin: {# _- `+ _8 Y: M6 r+ M1 ~
Str := 'putsendermagicitem 女子英雄战靴 @奖品兑换员 4';
: H" O. Z7 F4 p* |- Z/ G print (Str);
3 a! P0 S, `; ?" q/ Y! p end;
/ `; l, K& |9 e8 u if iKind = 8 then begin( |8 O! J2 {/ E1 U
Str := 'putsendermagicitem 百炼三*戟 @奖品兑换员 4';. g( @: k( H C
print (Str);* ^9 Y& p! u4 @& ~
end;
* i$ L* [7 G6 e a; P5 H P if iKind = 9 then begin
$ P' @% a, o( f ~ Str := 'putsendermagicitem 百炼日本刀 @奖品兑换员 4';5 N) s8 y& w V! A. r, N
print (Str);' L: e$ J# W, d
end;
' x+ ?8 N( z/ t' | if iKind = 10 then begin7 v9 i* F; K b( N% x! T: u
Str := 'putsendermagicitem 百炼忍者剑 @奖品兑换员 4';* _" C, D; I/ m, `) O8 f
print (Str);9 f3 \& G* l9 n; e, G4 j
end;1 b4 U+ A* d8 [ F8 H% b
if iKind = 11 then begin( J/ V4 b- ~: l" ^5 r' @
Str := 'putsendermagicitem 白骨魔棒 @奖品兑换员 4';
2 z, R* ^+ y) N4 _ print (Str);
% g0 h' c% X. a% M end;' F9 U" L& ?6 L9 B
if iKind = 12 then begin
: L+ E6 [" q4 n8 T# D Str := 'putsendermagicitem 生药 @奖品兑换员 4';
" \8 v4 f' |6 H, ~/ k print (Str);
+ L- s7 {& R- z3 e. Z end;
. G0 i. G. T, k$ B6 H+ Z4 a% O if iKind = 13 then begin6 a+ B# g m% e+ r/ S, G$ [4 F8 B
Str := 'putsendermagicitem 男子魔人护腕 @奖品兑换员 4';
; q9 U: p$ t1 y print (Str);
8 p# m" k( W, V2 Z: t; } end;7 P6 y2 E- p7 A2 y8 r% T% \* a5 [
if iKind = 14 then begin
1 ?. }' Z6 n$ w4 E Str := 'putsendermagicitem 女子魔人护腕 @奖品兑换员 4';: a, }( R, q1 p( r8 x8 u
print (Str);0 C6 g3 N& e2 x( C" g, D0 I
end;
! c, a/ h! l2 w* h4 @) B a if iKind = 15 then begin8 [% `- b# h& S* B) F
Str := 'putsendermagicitem 金币 @奖品兑换员 4';
8 c( f C- ~& ~( E7 g8 x print (Str);
( U; X6 x( `7 }; j& a) [- T end;; {- V+ \, J0 N9 b3 k( D* t
if iKind = 16 then begin/ U. Z+ t- N) Z$ j
Str := 'putsendermagicitem 千年水晶原石 @奖品兑换员 4';
5 a+ j; Q& h* W6 F/ {$ Q- Q print (Str);
% T& K$ @( p, _8 D end;1 M( I3 }# q. j0 k/ b* `. B
if iKind = 17 then begin
0 v5 P4 H$ Y1 t8 w2 p( |) _ Str := 'putsendermagicitem 千年水石 @奖品兑换员 4';8 `7 ?% X3 e6 P& S7 d5 h
print (Str);
/ n2 y, z- B; O; J3 z' G end;
: r) o) \1 L- K0 P0 O- V. \. [ if iKind = 18 then begin
: H" s, v V3 Z* u/ A$ N: x: I Str := 'putsendermagicitem 象牙十字镐 @奖品兑换员 4';: g, y' H- n- J. w! _
print (Str);# i y7 r+ S% G2 y c3 _
end;
: R% `1 O# Q! k( F# z if iKind = 19 then begin
1 g$ [5 d u y+ q( X Str := 'putsendermagicitem 男子黄金铠甲 @奖品兑换员 4';
# g% ?1 A2 @1 Y+ h5 I print (Str);
5 ^( [5 ^& g: c4 U0 w" X: Z end;
/ |$ E1 n. q* o# ^. S& U) X if iKind = 20 then begin; u6 j4 ]& m' G; p. t& u3 b
Str := 'putsendermagicitem 女子黄金铠甲 @奖品兑换员 4';
8 O; |7 a* _9 u) C+ l print (Str);
+ u- B$ V; l. }8 V& j: J" D end;- S1 b; n9 \5 Q8 u9 \
if iKind = 21 then begin3 F% x( y( p' z
Str := 'putsendermagicitem 男子桂林弓服 @奖品兑换员 4';
3 D4 b, c5 }+ G print (Str);; U4 {% r6 U% e
end;7 P2 z# P. c+ B* ~. q/ V
if iKind = 22 then begin
' {$ I5 Z3 m% I1 p Str := 'putsendermagicitem 女子桂林弓服 @奖品兑换员 4';7 F$ h1 ]8 m( c( Y% I$ c
print (Str);
2 d0 J! J4 S2 N" i( v6 v' P9 I. D7 m end;
- j2 y9 v6 i( y3 g if iKind = 23 then begin9 O4 O$ S' L) N; D3 [
Str := 'putsendermagicitem 太极明珠 @奖品兑换员 4';
& c$ l5 b. y& n" E) l' X print (Str);- f& [ i0 B. n; B, ^( P1 I c6 i
end;
+ _9 Z% B# m% x0 J if iKind = 24 then begin; t3 x0 y/ ~8 n$ O! L" _6 U, J
Str := 'putsendermagicitem 狐狸内丹 @奖品兑换员 4';
1 Z3 p$ X d8 Y. p& K7 \ print (Str);/ g9 h) p* O) ]5 n9 M" F
end;6 P) z5 B9 U/ j/ q3 t9 }0 U# O
if iKind = 25 then begin
: Z/ G; D4 O/ z8 X- Q8 r0 L Str := 'putsendermagicitem 白玫瑰 @奖品兑换员 4';
8 B; m1 [) |# p1 k7 ~ print (Str);0 O1 m+ E$ o* m7 ]
end; l |8 B1 Y- O+ N% C8 G
if iKind = 26 then begin
3 L8 P) s: o+ s! z6 `* o. q! ? Str := 'putsendermagicitem 红玫瑰 @奖品兑换员 4';2 O0 V, q5 S+ Y0 V' q2 r6 Y
print (Str);
8 j6 m1 ^9 M4 c: y end;
: I$ J( g8 S4 l* Y3 ?$ S" l if iKind = 27 then begin, {' o3 T7 ^& g6 S
Str := 'putsendermagicitem 灵动八方 @奖品兑换员 4';6 _. Y- X- A# O9 F% R' L( [
print (Str);
" ~; r' ^# ]9 h( D5 v! a end;
6 c0 m$ ~4 Q- x8 P if iKind = 28 then begin4 Q7 f$ c9 q4 H9 a' ^3 t/ o- h3 e
Str := 'putsendermagicitem 男子魔人战靴 @奖品兑换员 4';
, O* k$ ^" k% [, f: k- |9 f print (Str);
# G, z0 h2 d4 y* S$ R ]# [ end;9 A4 ]4 r" K9 ~6 C
if iKind = 29 then begin
) {% J" A8 Y( c% G5 ~ Str := 'putsendermagicitem 女子魔人战靴 @奖品兑换员 4';
# u# `2 M, T9 V' Z e2 m% \) C print (Str);
0 z. W2 d0 E3 D/ i" `4 f# \# X# T, {( g end;3 n% m( _1 C7 u: u( R- G7 ^, K3 J5 B
Str := 'say 本想趁机摸你两把,可你身材太差了~';& R# M3 Y; U! ^7 m+ |7 _% V
print (str);7 K8 d2 z% f8 f7 U0 D, e7 Z. e; b
end;
8 D' F) M( f: F exit;
2 E. H, h5 b- P5 B W end;/ |/ q2 g* o0 M9 Z
exit;
4 ]! z' M" O/ H. H M' D9 b end;$ w' f# ~( Y% S( S8 P; k! _" Y
end;
% x+ X# P! T/ F6 G: kend.! W( i+ x6 w+ |0 O
------------------------------------------------9 o1 V9 v$ p9 J. R0 S! `& V; {6 Y
在tgs1000\script文件夹里得script.sdb里
6 ^5 G3 |( {& e4 z5 w1 R3 V最后一行加入
' q' N8 h: ~1 e, M7 B; \--------------------
( c% N3 o1 d+ R# V/ e/ J# y) S" F130,奖品兑换员.txt,,
0 i- t* Y/ d# f2 I) a--------------------% Z7 U& Y" Y, e' M+ f: g
然后在tgs1000\help里建个文本文件 名字: 兑换员* Y! C$ s8 G* g; O5 b5 t7 N& R1 A
内容如下 y3 ^; F2 \% Q1 y7 z9 p
------------------------------------------------
+ Z0 w# g9 N( m# W- v<trade>$ K2 F: Z. a! [2 Y2 }& k
<title>奖品兑换员</title>) e I3 } ]5 m% s# l* L
<image name=z81 value=235>: n/ g" L: y) E5 M: S
<text>
, W: G# Z2 u! N3 u. ?天下没有免费的午餐,努力吧!
) e3 ?! l5 Y1 X* g5 j% |) K5 l</text>- d: p) C3 y3 Z: {: U2 l+ s
<command send='close'>关闭</command>& v$ ]. j# s* i9 \# c! S% A2 l! ?7 [
<command send="jinyuan">天下没有免费的午餐,拿5个金元来!</command>
1 z' ~/ r3 ^" X( ^" V3 Q: \" f* b</trade>mand send="jinyuan">交换好运来,祝您好运</command>
4 y/ R. B7 `% I5 C: N# W+ x4 Z3 x</trade>
- Z1 i7 h% e! e# f( @8 ~-----------------------------------------------------$ W2 t5 R, X$ C8 g
然后在NpcSetting目录下建立一个.sdb文件,命名为:奖品兑换员
4 k9 S- C7 H9 {. R. {0 G: {; |0 @里面内容写成:
5 g- H+ Z7 X: f1 Z9 {6 b$ N& ]7 y1 b- E
Name,boSelfSay,boMain,MainNumber,HearString,SayString,NeedItem,GiveItem,CountLimit,RecoverTime,DelayTime,! e' f3 m; i; ^/ `0 M4 R
1,TRUE,,,,我可是可以换到英雄装备的噢^_^!,,,,,1800,9 e6 K9 _, Y( d# U: E: w U
-----------------------------------------------------. t3 r0 W- [( O3 x- y+ o5 x' R
在tgs1000\Setting文件夹里得CreateNpc1.sdb里加
# ]- N& @# D1 ~: q-----------------------------) ]' K: r1 u2 x) F0 b
104,奖品兑换员,524,474,1,5,130,奖品兑换员.sdb,
5 d% h$ a* r* B6 k
欢迎光临 三千论坛 (http://bbs.3000y.com.cn/) |
Powered by Discuz! X3.4 |