在 tgs1000\init\npc.sdb里加
( }8 F3 b/ P9 o _奖品兑换员,奖品兑换员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
' C3 G0 X# g5 [' j; Z( p在tgs1000\script文件加里创建一个文本 名字:奖品兑换员
+ v3 } l, X1 w- L s! t5 B------------------------------------------------
0 w t6 t0 u8 o. w( q O& B6 sunit 奖品兑换员;
, x7 A+ ?7 k! }/ e8 X9 h H: b5 }8 t. W& v8 f+ J& W' X, B
interface
3 X! [5 I: S$ @5 e# z
2 A4 ^( Q) y; xfunction GetToken (aStr, aToken, aSep : String) : String;* Z8 r+ T( y7 e- V
function CompareStr (aStr1, aStr2 : String) : Boolean;% E) a8 {3 H' z
function callfunc (aText: string): string;
: `8 Z2 x. |5 k) E7 n& U4 s& ?procedure print (aText: string);! I1 e6 N7 _5 y. E9 E) z
function Random (aScope: integer): integer;' B7 ^$ t9 }; Z1 @' i: k. L3 q( |
function Length (aText: string): integer;
0 I1 @6 x _* q C& [ H7 }procedure Inc (aInt: integer);
t, ~' v2 K F. w, lprocedure Dec (aInt: integer);
- P" b% ~/ v1 p7 kfunction StrToInt (astr: string): integer;
8 l" o ], ]9 kfunction IntToStr (aInt: integer): string;
% D7 g& S1 R1 _! h" |procedure exit;3 {* Q, s& y9 B7 G3 }
procedure OnGetResult (aStr : String);
7 b, g) H* @: E, M. x5 Gprocedure OnLeftClick (aStr : String);( p2 V+ G2 a/ H0 N; B
procedure OnApproach (aStr : String);
9 E6 H, ]+ g, ?2 P5 \1 Bprocedure OnAway (aStr : String);
) T" D" F, K9 h( e1 R% mprocedure OnArrival (aStr : String);
( [/ N1 T8 B: i, ?' ~' Ivar" o1 F! s' F% v/ u5 `- t6 ~
iCallCount : Integer = 0;
* F' H: P5 h6 |9 C% m, |implementation
) h8 y; c/ S8 ]7 Z6 X) z0 K- Dprocedure OnAway (aStr : String);
) o0 i' ^# c! |+ uvar2 v5 l3 J' E/ G0 ]" J- G7 ~
Str : String;) g& s( [. t, Q, N% K
Race : Integer;
. d0 a# S- O* U8 O, x* Cbegin
6 u! f2 I: u$ J' NStr := callfunc ('getsenderrace');) Z7 g0 `0 Y/ c; P# i7 D4 V
Race := StrToInt (Str);
0 O# G U( {+ y x: Qif Race = 1 then begin# A3 q+ n+ _5 W) p# H7 A# A2 T) j
print ('say 拉拉拉拉,贪财老人来喽...');
5 r9 u; z% Q4 w9 u; Qexit;
. H. R' V, L- m4 q% Wend;
9 H3 ]5 v; V% x9 r, P; cend;
# {9 u* W! q8 cprocedure OnApproach (aStr : String);
1 H/ S8 C: o! Evar
5 l) R/ K5 l/ v* o9 z/ m2 ]. I. YStr : String;
, J/ j6 G2 x; Z" ]. R8 o/ HRace : Integer;
5 k6 _5 e0 s3 Ybegin; \$ p& }- d) u1 q
Str := callfunc ('getsenderrace');
8 C0 q) D: `% L. s# \5 Q, dRace := StrToInt (Str);
9 h" O% r: I+ X- N' {$ S1 A3 aif Race = 1 then begin
+ z1 H+ ?4 z1 W" S print ('say 各位节日快乐...');- p/ P7 H5 S# |+ u* n2 i: R
exit;$ d+ E, J5 U3 a& R
end;: k# u; L0 b+ }" o& s* ^
end;' _: o4 N: Z g4 ^# m) _
procedure OnLeftClick (aStr : String);
) s+ _/ ~/ q3 y5 @0 }/ kvar2 h" q2 N/ a- N! p3 o$ W
Str : String;
8 C$ q& W0 e Q* Tbegin& D* \0 h1 o+ ]1 c( Q4 W0 q
Str := 'showwindow .\help\奖品兑换员.txt 1';" Y u K: j/ d; `$ O% C w8 S
print (Str);2 d4 Y4 o" S( Y3 g. Z% p. q/ s
exit;
; Y$ l5 q' G. ^8 l6 o1 ~! f& I/ B* \end;% a9 N- g) r0 R
procedure OnGetResult (aStr : String);
9 T# e) z5 y' f- K. r( j) Bvar n1 }, }2 g. \; g: s# B* l
Str, Name : String;) X/ M3 E5 \. j N- L8 u; @% X
iRandom, iKind : Integer;
) Q; N7 t0 P4 V) ubegin
5 x6 e5 I9 }4 Y' Xif aStr = 'jinyuan' then begin3 b5 K3 Z9 F0 R8 l, b+ u2 m+ S
Str := callfunc ('getsenderitemexistence 金元:5');5 A* [$ k1 Q6 _' N
if Str = 'false' then begin4 }/ Z0 E0 N( a' A
Str := 'say 哪有免费的午餐?拿5个金元来!';% x+ [1 u- ]' o- T3 E } n
print (Str);
6 ]- n" V: G2 W: s" O exit;
/ L( O& _4 E1 t, c end;1 F% w+ ~& c/ G% Y& h
if Str = 'true' then begin
) J* `. Q1 g- W Str := 'getsenderitem 金元:5';
& H7 ^) Y" ?6 u; L! t print (Str);; F' N) G7 H* @" R& R. X% X1 R
Str := 'say 小子,你的金子是假的!哈哈哈!';
! ?- O/ G& \" J* ], Y print (str);$ s' g, q# e1 m1 ^$ d
iRandom := Random (5);7 E' y+ `5 C J0 Y' S/ A; S
if iRandom = 1 then begin
4 K# { o# H6 T" ^3 q Str := callfunc ('checkenoughspace');* |- U" ^5 U# I) H
if Str = 'false' then begin
$ b6 g& W( G7 ?: U9 Y; O, \ print ('say 物品栏已满~');
" N1 {. f: f# k3 ]& l5 r1 q exit;
) B4 E o( n& Y end;
" q" j& p1 u0 |3 B iKind := Random (29);$ q9 o; e7 [6 j+ |- X# V2 i$ R
if iKind = 0 then begin
$ a9 y1 \. F' J. } Str := 'putsendermagicitem 男子英雄铠甲 @奖品兑换员 4'; I5 O% Y6 G; o4 E
print (Str);/ D0 l3 U; c( _8 }# D
end;
! `! y8 C, K6 T# O+ O/ E. v! P if iKind = 1 then begin
0 ~* {; U2 u, N' ?# R Str := 'putsendermagicitem 女子英雄铠甲 @奖品兑换员 4';! _9 s6 L+ ~. T% ]0 \
print (Str);# g% `1 ]- {, w6 q' W
end;; y" Z; V& i% S0 }4 c3 X
if iKind = 2 then begin
, ^- A' I- y" E& @) I Str := 'putsendermagicitem 男子英雄头盔 @奖品兑换员 4';
; M5 a* e! ]4 X/ }* P9 p print (Str);. C4 r" S6 h# w, Z8 P5 y Y8 N3 z
end;) |& X8 r, N) O2 Z" r
if iKind = 3 then begin
$ S" x. M! l1 K! ]9 L Str := 'putsendermagicitem 女子英雄头盔 @奖品兑换员 4';- p5 |8 J7 V5 ~) k' R
print (Str);, T: l) O. P7 N* Y) O5 n
end;- ?. y; z* o/ e* W: A, K8 ?
if iKind = 4 then begin
, [( t' D e, E Str := 'putsendermagicitem 男子英雄护腕 @奖品兑换员 4';7 l2 s5 I( m" a" l2 I" V
print (Str);! _7 U5 t! p4 f/ d( X v
end;
' k0 l$ f9 m0 { if iKind = 5 then begin
' p% n) p) q( Y8 ?/ z Str := 'putsendermagicitem 女子英雄护腕 @奖品兑换员 4';/ O3 y, P# _2 D! e( ^
print (Str);* [, T- F2 P: R% a. J2 c7 Y( a
end;
( V' }8 N/ h. k: r0 V( g, L1 Y7 e if iKind = 6 then begin3 R) U" F) }5 {, I( K0 N$ g
Str := 'putsendermagicitem 男子英雄战靴 @奖品兑换员 4';2 b0 k8 K# S; N# |! } ? A2 r
print (Str);. c4 U0 o# I' q4 v& j1 n" P
end;
/ y( F9 b( F0 k0 S0 @2 i' s2 T if iKind = 7 then begin
3 W4 I& e& [! H+ u Str := 'putsendermagicitem 女子英雄战靴 @奖品兑换员 4';2 c. H1 I( e1 M& ? ]7 D
print (Str);
5 u* w; {5 J' q& e1 X( e end;
& N! t6 a" z8 K# @: D3 ~0 e if iKind = 8 then begin
: g+ @% o! ^/ _: v9 G Str := 'putsendermagicitem 百炼三*戟 @奖品兑换员 4';
p/ l6 C9 s. A" w9 _1 U print (Str);
" I ]; Q! r' q$ @6 q" @ end;
^0 m9 G% ~3 P% e2 O- r7 W) ^( q* D if iKind = 9 then begin7 H: U0 X# F7 u
Str := 'putsendermagicitem 百炼日本刀 @奖品兑换员 4';; z; [$ A) W* Y+ b+ Q2 _% f, l
print (Str);( ?6 B& ?& e- _" G
end;
. V0 D3 }3 d/ V2 ~7 G% E9 p if iKind = 10 then begin* F1 h& V" l. j- o. J
Str := 'putsendermagicitem 百炼忍者剑 @奖品兑换员 4';1 R" j( N0 Y$ }" {. a# k8 q8 ?
print (Str);
# K2 N2 |! T" e( D, e% Q7 h end;
6 }; y5 X' R; `% T4 ` if iKind = 11 then begin/ f2 C- V- A n Y; n5 W" x
Str := 'putsendermagicitem 白骨魔棒 @奖品兑换员 4';
0 x5 w, ^, U* \9 ~; X& L print (Str);
: H+ a P1 P0 ~+ B% U end;. s6 u7 G1 J( X
if iKind = 12 then begin
& M" B; ~2 \' C: o% E) w Str := 'putsendermagicitem 生 ) R( Z" v/ j0 t! ~8 O
|