游客您好
  • 点击联系客服

    在线时间: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:45:12 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题
tgs1000\init\npc.sdb里加
# ]% I' G) h9 u# W" a7 n奖品兑换员,奖品兑换员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,7 S  T3 _' i5 G4 P) {' \
tgs1000\script文件加里创建一个文本 名字:奖品兑换员( h/ y0 |. N! a+ H4 b0 }) C+ i$ ?" v
------------------------------------------------2 E! I6 }! w) W; L2 j* t
unit 奖品兑换员;
3 s% Z5 }6 v3 I- @* ]: N, f
- T; r+ [% B/ [interface
7 ?) X5 N  B8 c8 Q9 `" |- J" ~1 h2 W! k
function GetToken (aStr, aToken, aSep : String) : String;4 q* j% k3 p% T  \7 {7 \; h& H. Z7 F
function CompareStr (aStr1, aStr2 : String) : Boolean;
! O2 c; q6 [2 I; w' xfunction callfunc (aText: string): string;
- [. v" w  ~6 b) r8 C& Xprocedure print (aText: string);, Q9 b+ F0 k6 X! X$ e& `  ?
function Random (aScope: integer): integer;
2 ^; M0 v) \6 Z, Y8 Z: Nfunction Length (aText: string): integer;$ _: {! k& t8 K+ \8 T: \
procedure Inc (aInt: integer);2 W$ L$ @2 }9 `% n
procedure Dec (aInt: integer);
' ~3 ]8 [$ C. h! k* O- R$ ?& {function StrToInt (astr: string): integer;
( h3 C7 F2 w" R7 o  N- j! y; \function IntToStr (aInt: integer): string;
% A  H' e# K: i4 Rprocedure exit;
+ z( Q8 D* o  j: g( p6 N- J+ Nprocedure OnGetResult (aStr : String);
/ L: W* k1 ]3 q2 K5 `: [& ~& a$ f7 aprocedure OnLeftClick (aStr : String);4 ?3 @! x; c5 g4 h  |, w# P% d) F
procedure OnApproach (aStr : String);
* j/ j; K5 N# l& o& Z  a" y: @procedure OnAway (aStr : String);
; J7 x$ x" U, X3 }& f2 A2 g& n% I: hprocedure OnArrival (aStr : String);" Q5 A# A! A. l- y2 {" a4 r
var
' ]& C0 H, ^8 }  y7 a- ^, TiCallCount : Integer = 0;3 ]0 d5 v% S1 O7 C5 F' x, D! R
implementation
" Q1 p9 H# u% S2 L0 x; Zprocedure OnAway (aStr : String);! m; R* R4 |! T/ {, W
var; L) z/ H( q2 B
Str : String;  F$ `1 e* u& B9 D
Race : Integer;
6 Z* p, ^! i5 z' V7 n1 W) Jbegin
  S8 u' v4 m# uStr := callfunc ('getsenderrace');3 y6 G) v& q% w. r( V& K
Race := StrToInt (Str);* o1 v- N3 a* e( r: ]4 `  \
if Race = 1 then begin$ e+ s, n( o4 X8 ^9 c
  print ('say 拉拉拉拉,贪财老人来喽...');, b* W; G+ Q1 @. }
exit;
" w' R, J' @$ R% S% ~end;. {; L4 w. X1 t! `
end;
: Z* n* l- d+ E" i) O8 J. d) W. m* F/ @procedure OnApproach (aStr : String);
8 C. o+ H$ Q+ Z6 |3 {6 P/ Pvar
7 F$ C0 v" M4 }$ I0 [8 ]" IStr : String;1 Q5 o* C4 J3 J8 A
Race : Integer;
. k7 i7 x5 q. `4 Ibegin; V2 U' n4 |' }/ O$ w- f/ \, |, m
Str := callfunc ('getsenderrace');
6 F+ a+ V- N1 ~/ O* N! @/ S4 bRace := StrToInt (Str);/ U" c* q# m4 ^( Z+ [
if Race = 1 then begin
& L- r, b" A5 E" r' W7 j  print ('say 各位节日快乐...');
1 P! Q  M# ^+ g1 e& p. q* U& V. pexit;
' n& P7 H5 z9 {1 {3 A: oend;
( o/ U+ ]' t9 Z* p4 yend;5 i# h* J( ~0 t' U' K, d
procedure OnLeftClick (aStr : String);
; L; k  H- {! dvar5 w7 L7 E: x3 z/ p7 F7 X/ d
Str : String;
" A- \8 d/ F5 q7 L9 r; R8 E0 V) i8 @begin: q: I" l. L# {  o0 p: ^: f" C
Str := 'showwindow .\help\奖品兑换员.txt 1';. p2 S: N  x) ^1 ^0 a- K3 A
print (Str);$ X; N+ |+ m3 W" w& K3 p
exit;
/ O4 T* P8 R" M# d5 P5 hend;* T; B* |' ^2 y. G
procedure OnGetResult (aStr : String);1 n' @4 i5 X1 H
var* D  z, n) [3 i- d  W  w
Str, Name : String;, z* `% L- d: L& t( p; u8 J; T' E8 c
iRandom, iKind : Integer;
8 h% z" \6 M; Y# h7 ]begin" I) u: S) }! n
if aStr = 'jinyuan' then begin
5 U0 `' G5 b% \0 w" ]. Q  Str := callfunc ('getsenderitemexistence 金元:5');4 J% B9 V% d9 c- Q+ W( G% R
  if Str = 'false' then begin1 [- q0 Z+ z, u+ @" l5 j1 B
    Str := 'say 哪有免费的午餐?拿5个金元来!';$ f0 E! H1 @% O' H3 Y9 i
    print (Str);. b. f5 z3 U' T8 C( p
    exit;+ i% @9 z8 p/ s/ s' c0 p
  end;
4 w; s7 e. [- E) V  if Str = 'true' then begin
2 A1 e# B% v/ x4 [4 U9 d% i    Str := 'getsenderitem 金元:5';
' w  T' p9 P8 o9 y  B7 i    print (Str);
0 y2 Q( ~  }/ |! n+ g' y+ V    Str := 'say 小子,你的金子是假的!哈哈哈!';  D, |2 }# K, d  Z5 `4 K
    print (str);
5 [6 X% X" [" l1 O" Q2 s    iRandom := Random (5);! j8 S) \) c! ~. [  K
    if iRandom = 1 then begin
& @- l/ X1 B- E; u    Str := callfunc ('checkenoughspace');
/ W) f! A- Y5 p* N) U- s7 a    if Str = 'false' then begin
8 B& m" _& O( R; u- a$ @      print ('say 物品栏已满~');
1 k0 T& D: E# q0 D; {      exit;" I% o2 m4 N( O2 P) x
    end;
1 H: I0 C) Z- `+ Z    iKind := Random (29);
& @" v0 [3 P1 y8 A+ w% Y    if iKind = 0 then begin( Y9 p+ w* E5 l  g2 o4 ^, x" p- u
      Str := 'putsendermagicitem 男子英雄铠甲 @奖品兑换员 4';
3 j% V% m8 V7 z; I0 Z- q$ `) L      print (Str);
$ h4 ]4 g" [! T& K! p    end;9 J  k" _" h: ?. `
    if iKind = 1 then begin
8 l8 }" E! |/ ^- N& O3 ?      Str := 'putsendermagicitem 女子英雄铠甲 @奖品兑换员 4';
7 I5 k5 z0 Q2 @- c. Y      print (Str);
; G) K! C5 O) a/ e3 D/ [    end;
* t! b# E4 V$ R" M    if iKind = 2 then begin) v! s9 G3 t( ~0 d
      Str := 'putsendermagicitem 男子英雄头盔 @奖品兑换员 4';
+ t0 R; a$ k$ S/ P% U; _# U5 v      print (Str);
, d7 y) l1 e9 ]7 O$ {- u- z    end;# g) o, _. G, T
    if iKind = 3 then begin
! ~: Z* l; `1 n      Str := 'putsendermagicitem 女子英雄头盔 @奖品兑换员 4';5 l1 z- }6 N# P- @4 q
      print (Str);2 r+ }* H  a# F6 x2 {8 x
    end;. ?+ S! K' b2 R) r# ]
    if iKind = 4 then begin' \" ]6 @  ~% ~5 B" l3 p. ~
      Str := 'putsendermagicitem 男子英雄护腕 @奖品兑换员 4';/ Y; J1 Q5 h8 K0 ~
      print (Str);5 a# Z1 Z, o3 @2 c' h" L
    end;: m7 Q) o% D" L! z$ V
    if iKind = 5 then begin- I% @7 x+ l3 K4 A6 {
      Str := 'putsendermagicitem 女子英雄护腕 @奖品兑换员 4';7 o7 ^4 a% [$ h
      print (Str);
# V5 G8 K2 \+ t( S. j8 [# y3 o5 {    end;% n4 `0 Z7 L) w5 Z0 g
    if iKind = 6 then begin
% k, M' o/ U, ?' `      Str := 'putsendermagicitem 男子英雄战靴 @奖品兑换员 4';& \2 @& a3 X6 i+ P, N3 K% e
      print (Str);
+ b1 j/ y3 l2 F3 p    end;
) u" F4 E) y$ q0 G" N/ `( [    if iKind = 7 then begin: |# l1 m* a) }
      Str := 'putsendermagicitem 女子英雄战靴 @奖品兑换员 4';
$ s5 ^3 ~/ t$ r      print (Str);
# P) @# b$ q0 {" Z2 E    end;
2 M1 S: D: G$ ]- r: P; P: \. h    if iKind = 8 then begin6 K: Y  c# ~$ B" \, c0 Q. G
      Str := 'putsendermagicitem 百炼三*戟 @奖品兑换员 4';4 Q0 i7 M( _" K3 y
      print (Str);
2 \# L7 C1 R' {/ |$ T8 b9 V    end;" f9 v5 K8 n7 ~0 [
    if iKind = 9 then begin0 {* D* E$ F) u, P0 y8 f) j% P
      Str := 'putsendermagicitem 百炼日本刀 @奖品兑换员 4';/ L/ y2 b) N' s
      print (Str);9 J6 ]! d) y! I9 a" F, u5 l/ U$ L
    end;7 \3 F) v2 _2 y
    if iKind = 10 then begin
& N; ^, t8 f. L' p, |7 v* l      Str := 'putsendermagicitem 百炼忍者剑 @奖品兑换员 4';# B- Y8 z/ j+ H3 K1 l9 b
      print (Str);* J1 c+ v3 P: i- j: d" Z0 Q7 y8 G
    end;; u0 x, @0 ]+ o( B2 E% Q4 }
    if iKind = 11 then begin
, E6 O+ ^% Y9 P$ ^6 Z      Str := 'putsendermagicitem 白骨魔棒 @奖品兑换员 4';1 g, C# O( {! K# q8 L# G- B5 i# ~
      print (Str);
" P- @- m8 ?* v% N3 r4 d  y2 D$ A    end;7 o) b' i5 M. g, N
    if iKind = 12 then begin
( h' i1 a( Z2 R7 K+ R      Str := 'putsendermagicitem 生

8 i, _8 t2 D: }6 P/ h
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

三千游戏官方客服

扫一扫二维码

添加qq客服

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