游客您好
  • 点击联系客服

    在线时间: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:29:14 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题
本帖最后由 异仟年 于 2022-9-5 17:33 编辑
2 Y  N1 ~* g# o7 v8 b; D! k" _) z! J6 Z
此设置是用特定物品找相应的NPC换取相应的真气.解决真气不涨,怪物给的真气不稳定和真气上限问题.具体设置如下:分三种物品,每种物品加的真气不同* V/ u7 ?4 D! i0 Z+ o  v  M; {% c

7 X! d: X+ D" v9 W3 v1,tgs1000\Init\Npc.sdb
9 J$ z" x/ Y1 e
% I' t6 j7 k, ^6 y/ h真气,真气兑换员,0,,,TRUE,,TRUE,TRUE,,,TRUE,8,24,144,1400,400,,,,10000,0,0,0,0,,4,,,,,,,,,,,,,,,,
! {) _! ?: g; O$ S" E. q4 d
3 O5 T# D# {$ Q7 O( X) \建立一个NPC用来交换真气用,名字自己取,前边的真气不要动,如果改了不能用千万别找我,后边有颜色的部分改了就行,我用的老侠客的外观
; c0 R9 R0 I: j0 G8 {: T% p% y7 L! ~4 `
2,tgs1000\Help\真气.txt' A. i$ X6 ?* n8 B
# f& P) ]$ `0 i# F' h& h& X
<trade>
0 ]2 N5 O. A7 H0 b7 W7 M<title>真气交</title>8 @) t0 t3 [/ P) ]
<image name=z24 value=144>
3 N" ~2 G* Y# \6 z) G) e<text>+ O* y. {3 l. d3 h9 \( e, e
红色真珠兑换真气比例1:10;绿色真珠兑换真气比例1:100;蓝色真珠兑换真气比例1:1000;. f% D2 t. Y* v9 J' p4 v
</text>- h" N+ _, `( l. O
<command send='close'>关闭</command>
. h8 G' v! U3 `, m' b7 w. x# S<command send="jh10">红色真珠换真气</command>" Z8 Z. b- l) Z( N3 G
<command send="jh100">绿色真珠换真气</command>2 I9 b8 p8 b* T( b
<command send="jh1000">蓝色真珠换真气</command>
' ^% u' o! g9 j; F& `8 N% p6 Q</trade>
+ C/ P: W1 ^, Y& t& t' M9 g) U3 |. f  D- s* _" H3 b# f
3,tgs1000\Script\Script.sdb4 P- B6 ?( U; h/ U1 V# |1 V

2 f' M. Q- M/ R4 a) R) {142,真气.txt,,
5 a9 B6 @  J3 G% W/ r# {. i1 W3 L' J7 {3 d2 g8 ^
4,tgs1000\Script\真气.txt5 c+ U2 O, ]1 g  E+ q( C9 [
unit 真气;
$ O2 ]6 a+ l* J# E- X2 _
% I* s2 q) h6 C- k) ~# W5 Uinterface
& u: a1 J1 A& Y/ b" e4 H# Z2 ^7 e- M7 F  ~
function  GetToken (aStr, aToken, aSep : String) : String;
% P9 o& B# E) H: |3 H+ cfunction  CompareStr (aStr1, aStr2 : String) : Boolean;$ A3 j0 d" A. Y2 i% D# J
function  callfunc (aText: string): string;
2 j: E. c5 C9 l/ r+ I5 X; eprocedure print (aText: string);# l/ O2 m+ n6 n' {3 H5 c
function  Random (aScope: integer): integer;2 p# [# D5 d. _
function  Length (aText: string): integer;; H0 T& }% |! @3 ~/ |, s  S  x6 T
procedure Inc (aInt: integer);
* ]$ d4 a7 s& g6 y: t. cprocedure Dec (aInt: integer);
; m, u- V0 ?) R! @8 Ffunction  StrToInt (astr: string): integer;
6 b, ]* H; q7 A" Zfunction  IntToStr (aInt: integer): string;5 ]- s* u6 Z) }# x1 ^+ C0 G
procedure exit;/ Z! v8 G0 P3 i/ s) }1 \# d4 {
- W. R5 W1 F/ F
procedure OnGetResult (aStr : String);* e  q* P3 G  y; I( d' c& w" L
procedure OnLeftClick (aStr : String);
( K' ?  E3 e$ _$ A2 s4 ^
5 o9 m# U' F  S) }implementation( r( \2 l+ s; s+ _4 ^  ~/ l
; s( K" [4 b/ I  Z; |, z* n
procedure OnLeftClick (aStr : String);( P5 f$ f" w1 d0 O. H6 l
var
# p/ X$ L- a& g0 I3 }   Str : String;7 |5 z7 R: g! G& V% h& L* C
   Race : Integer;5 f7 U1 v# l" ?+ `
begin
/ K& v! O- P/ X& b) s+ l   Str := callfunc ('getsenderrace');6 q0 X5 _3 u, \4 d3 T7 F$ A
   Race := StrToInt (Str);
2 g4 d0 R/ H% Q+ I* q   if Race = 1 then begin- j" `! x0 R! M' z2 |+ a8 m
      Str := 'showwindow .\help\真气.txt 1';6 `! ~( Y% ~0 \, @) L
      print (Str);2 o* s( n+ X4 x6 ~4 |, w+ o
      exit;
, |( T, Y* ^9 N/ |   end;5 |  V3 P  N% F# K' S/ d( O% Q8 Z( X
end;7 i0 Z7 z$ d- }8 h3 b# p
5 r; n  \, ^% D& ]
procedure OnGetResult (aStr : String);3 j5 e, g/ A' L! d, ^& _. |  E0 U
var
9 G5 Z$ F6 X' k, T7 `   Str, Name : String;+ d% ^, p- D7 T, k" E$ E0 V
begin( q; c# f) f/ T# i7 ^+ X
   if aStr = 'close' then begin
& b+ f8 o& v! b4 d1 ]( V7 w! B      exit;- ?1 N* F: K' o# U: B
   end;, S# S! B/ m$ [& y7 ]2 I7 F* T
   if aStr = 'jh10' then begin
: y& ]* t8 `, n' }      Str := callfunc ('getsenderitemexistence 真珠10:1');# y9 @+ O+ M. o/ d7 Y5 s: F. q
      if Str = 'false' then begin& s! o9 Z6 M- N7 i
         Str := 'say 没有红色真珠,不能增加真气!!';
: c5 n6 e: ^8 t8 h, j. p         print (Str);
' ~9 h0 U5 U5 o& ~1 f& _* `         exit;* n3 }3 o- ~3 H! h" I- c  n5 B4 c
      end;7 n/ y) B9 D0 Y" t
      if Str = 'true' then begin9 r) h, u$ V2 ]
         Str := 'getsenderitem 真珠10:1';/ k; K' b% @- u! R
         print (Str);
/ Y/ i7 U( W4 t" t         Str := 'addaddablestatepoint 10';: {% p7 C  r, e# u  `
         print (Str);0 S+ U& d& @2 T
         Str := 'say 恭喜大侠!交换10点真气成功。';/ ~# L+ H/ \" J3 ?+ ?
         print (Str);
/ B. [3 Q% i! @) o( r         exit;( \2 v' P3 i5 {, M/ |$ D! m6 `  j+ \
      end;0 C# K0 n8 r) j2 x9 ^) I: E0 k1 X
   end;
% ?1 @0 e3 ^1 K, b   if aStr = 'jh100' then begin
0 ^! `: c+ i2 e* V      Str := callfunc ('getsenderitemexistence 真珠100:1');- l6 g( Q6 Y+ s; z
      if Str = 'false' then begin5 U7 p, y) N+ k* `2 [1 u
         Str := 'say 没有绿色真珠,不能增加真气!!';
$ [( `6 R; t5 M: m* h" `/ l, y         print (Str);
9 o: e8 K% L- R0 R" c, i         exit;0 Q1 a' A# j! W* d: X
      end;2 B4 d  q% J. x% p8 B
      if Str = 'true' then begin
* Y5 q! f) r7 h- B& t         Str := 'getsenderitem 真珠100:1';
2 n# R& i8 t. f) T( b         print (Str);7 G' W0 u3 `; J- |  C! Q; A
         Str := 'addaddablestatepoint 100';, M( F$ g* M8 I# w# n8 W+ i. N
         print (Str);
5 Z( g6 m! f* M! `' y$ X         Str := 'say 恭喜大侠!交换100点真气成功。';
7 R" Z' y0 t! n4 O: B         print (Str);
6 a/ w  ?  g' Y) o2 p* W; q         exit;
! Q: U' I6 c; G, l; B( Q4 O6 N      end;
1 x( O, X& ~) r) g8 O) N# S5 p" }   end;  T% k" t, s/ b, v( q7 ?# T; p
   if aStr = 'jh1000' then begin+ ^. `1 t3 Z: D& n. o0 P
      Str := callfunc ('getsenderitemexistence 真珠1000:1');
1 H( y2 n* C8 Q+ `; @! u( l: o      if Str = 'false' then begin
7 W# ~0 O, o0 n3 b         Str := 'say 没有蓝色真珠,不能增加真气!!';
/ X( y8 H7 m* A" ?7 V1 ]$ O         print (Str);
0 P. f- {9 e' O+ \% Z+ D         exit;
* G0 x* q  v) }  w+ E      end;
3 }3 W! V! ]8 j      if Str = 'true' then begin
" p3 _5 m: d; i7 p; o% }' l         Str := 'getsenderitem 真珠1000:1';( V, t, K# V( p( J4 q0 L9 y( Y  ^
         print (Str);6 [- ]5 T2 d: }1 x+ X
         Str := 'addaddablestatepoint 1000';
' T$ @0 `7 ]# u- C) r$ K         print (Str);
* }1 `7 ]/ _, R         Str := 'say 恭喜大侠!交换1000点真气成功。';
, f; L& L$ t; ^( S- ]         print (Str);
# r9 A1 e- T- B9 Z# [! ?) h$ g9 W         exit;
# g& d( k$ T  o3 [4 i      end;
2 X3 i1 L2 S3 Z) O8 f4 l   end;
( u: p& {: g2 _end;* t( ^  D/ s" f3 l

6 x2 M; Z9 s. b* P# Yend.: j1 H& H$ M, ~4 r  x

+ T  n! f- P) I* ]: F5,tgs1000\Setting\CreateNpc1.sdb
# R/ V2 v5 y! C+ e- D102,真气,500,500,1,5,142,,
9 q7 N7 Q  ^6 Q1 [4 r" `7 [5 g: C2 R& r' O3 R& |  U5 f
到中央市场500,500找NPC"真气"用真珠交换,地图坐标自己定.2 u% |' _4 P2 E5 I7 p6 _5 ]
3 X; R  h9 ?$ p" ~
6,tgs1000\Init\Item.sdb
/ f  M, F! ]% d# u5 W1 F0 ]8 H真珠10,真珠,4,交换真气的凭证、可以交换10点真气,,,,,,,TRUE,FALSE,88,,,,,,12,,,,300,300,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,1000,2 M* ]& x8 Z% c8 E" o
真珠100,真珠,4,交换真气的凭证、可以交换100点真气,,,,,,,TRUE,FALSE,88,,,,,,13,,,,3000,3000,,,,,,,,,,,,,,,,,,,,,,,,,,真珠10:8:金元:10,,,,,,,,,,,,,,,,,,,,,,100,
* K7 P% F8 c$ |! D% V3 f真珠1000,真珠,4,交换真气的凭证、可以交换1000点真气,,,,,,,TRUE,FALSE,88,,,,,,14,,,,30000,30000,,,,,4429,4828,,,,,,,,,,,,,,,,,
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

三千游戏官方客服

扫一扫二维码

添加qq客服

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