三千论坛

标题: 千年脚本编写帮助 [打印本页]
作者: 异仟年    时间: 2022-9-5 17:44
标题: 千年脚本编写帮助
千年用的脚本是基于 Pascal语言，演化而来的，其中变量定义和函数的应用也十分的象，但不用为了写脚本而专门的去学 Pascal语言。, f, E2 @- [+ W, @; y

( |& r4 W1 u5 ]9 V千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。8 x9 k$ V6 I6 Q3 ?

- v) a( T5 u, c( a一个函数的基本结构是这样的：! ^' m) ]1 A9 Y3 L' c) I: {5 d

+ z- F/ D3 p6 R% U- h+ uprocedure OnCreate (aStr : String);1 X1 ?; k; L, N; Y/ \" N' |% d( o
var& m1 S5 C8 s. p# ?! U
   定义变量3 \! B% o9 D( T% b/ I1 t) r
begin
; X- k- V1 {  d/ W" b* Q+ G   语句  `$ m, V$ a# `, l1 @* s+ Z4 T/ Q! \
end;
. |7 s8 X1 T# J+ A0 }& A: t. A0 X; E: I2 D3 {9 @
在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。
: _, Q  ~) h! {# x4 v0 N
) W# j8 D3 q* S  I* S1 y: W  i千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。9 ^/ Z7 T2 R5 h: S
& i! u  ?# W9 }0 H0 \' ]  A
/***********事件触发的函数**********/
2 `. L/ G. X. B5 R" G" ]* ?) p. S
//当有人*近时6 D/ M% @. |  ]* @
procedure OnApproach (aStr : String);
! U5 f( n, D$ V% [$ j. o
& v1 u" G2 V; c8 l; x4 r//当有人离开时
6 m4 n3 w+ W' Uprocedure OnAway (aStr : String);: {$ D5 K' i7 R! ~& a8 D6 x

& e% t( M/ G# d, o4 o. S& R7 r//当受到掌风攻击时
) n7 l' O6 ]2 A* O6 k2 zprocedure OnBow (aStr : String);
" i1 t4 p4 s1 K, D0 j0 P( |& x' _' N, r. N1 c
//当状态改变时, P. W9 ~- N0 u8 D8 [8 \+ n
procedure OnChangeState (aStr : String);
' B; e; y) S! X' X
0 s' a% D7 j5 Q3 M9 |//当初始创建时
) f8 i/ q( w7 K1 E- n" |% S3 wprocedure OnCreate (aStr : String);5 P) i5 \7 e- l2 V: c
" i- K8 P. x) Z
//当被双击时: H/ G0 o4 R5 p& i
procedure OnDblClick(aStr : String);
  X* B+ @1 t/ b# ]& U" R. u- z
  O1 G+ O8 S  N) g//当死亡前4 h* Z$ I  O0 a$ `) ~
procedure OnDieBefore (aStr : String);
- `" U1 E0 q; J% Q' Q! Y1 r" N+ G+ Y: x3 W" N/ v4 U2 i1 ~
//当死亡后9 y: H5 v8 G( Z
procedure OnDie (aStr : String);  W7 q5 m: m7 t# L2 h

8 @( b0 y& _. `3 n' X' v//当被拖放物品时
- g2 u; z1 m8 V3 `5 i" G! nprocedure OnDropItem (aStr : String);
. ?, A3 l" u$ c: l) w2 f2 A1 F# x$ t6 I' X" p- W6 i
//当得到命令消息时
6 ^, m& @2 m, U) ~* `% }procedure OnGetResult (aStr : String);7 c8 ~8 e5 K% O9 `
% A8 c, s8 Y; Q
//当得到改变步长时4 t* n9 N) Z6 ^7 P" G; {
procedure OnGetChangeStep (aStr : String);
3 h& J4 h. T$ F, l3 Y  }3 _) R$ k" e5 t; x# x' Y
//当受到攻击时
7 }! A. i9 Z6 a; b9 o8 Oprocedure OnHit (aStr : String);$ [, @' W# B9 X0 M- E/ c% W. p; i
# q, Z% y* N7 }. I+ g# [) r
//当被左鼠标键单击时
6 I& B+ C) F% Y" ]5 [8 Cprocedure OnLeftClick (aStr : String);
( l: {: a# z8 J% d: Q2 m
7 ~! E1 E/ `; i7 ?5 X7 e# @7 s//
2 g% }4 |3 |. _8 L/ t; Kprocedure OnRegen (aStr : String);3 N) C9 N& K) A3 [. K
2 ]6 y5 _( A, f. Y$ [% V7 A
//
7 c) }1 M; a; l. |3 `& ?8 _( \procedure OnTimer (aStr : String);
7 p. t/ t- y8 N% R& p6 i' k2 P' t) l: k7 [& M/ w6 o9 X4 `" H
//当物件发生翻转打开时，一般是用于门
( Z- V9 F6 R+ M' bprocedure OnTurnOn (aStr : String);
4 q& f9 J4 Q( m) F1 j+ {: g7 [. o5 Z8 i. r) E3 I  ?* S
//当物件发生翻转关闭时，一般是用于门
5 ~+ l1 R; B2 K3 P; e% \6 aprocedure OnTurnOff (aStr : String);
5 z8 w% C. x* i9 c8 h
8 g; Z) M4 I5 c//当用户开始游戏时
) n8 [6 @+ r! ~: U5 _procedure OnUserStart (aStr : String);
( r# n3 G& _6 L: \! A# V1 P+ v/ r
( C$ s+ p, a" B$ W4 V4 X, A, }. S, S//当用户结束游戏时: H6 k5 f9 i  q3 I0 Q' K0 R3 x
procedure OnUserEnd (aStr : String);
9 B, u* i3 F- }6 F9 o4 ~9 p9 Q; |6 ~+ Y
//当移动时" y( W1 [' B; j  P& S. S
function OnMove (aStr : String) : String;' \6 s0 i# ~, i" ]3 n7 ?

/ U2 l4 ]( w3 E" {$ ~: p0 p; {//
% Z! k0 g' p+ _0 p5 ufunction OnDanger (aStr : String) : String;
, g, @: K  Y4 g
+ K& }. E( O' ?6 A4 }//产生一个随机数（系统函数）
+ X  o' T! M, g  f4 cfunction  Random (aScope: integer): integer;
" X" Y4 ~8 [: Y9 a2 B  N3 w/ ?# T/ W. j6 Y; [# S. |
//返回指定参数的消息（系统函数）9 G- k2 [6 z3 S
function  callfunc (aText: string): string;
9 W% C" v+ X) L7 H3 c9 m% E6 R4 _6 o* q- P# t4 B. H
//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
4 ?' J- t# a  h( V7 w5 k' e5 L. b* Sprocedure print (aText: string);
- W6 z% r# K- t+ t1 x
5 K$ g# [6 o, N: W# q. ^具体参数（略），整理中...........3 f4 J1 q' c$ \

2 H# J' k1 i  _: V& l& \! |0 W: {//转换字符串为整数（系统函数）
) h& t& K$ {* |. [. p" cfunction  StrToInt (astr: string): integer;6 b$ i% f3 h7 y4 _4 C/ A4 q

4 e& E; o5 d9 |$ Q& D9 ?//转换整数为字符串（系统函数）) Q* p4 i8 s# Z) A5 {
function  IntToStr (aInt: integer): string;
2 @8 d% ]5 y, }3 E( S( W& o& ]  f( T" X: H: ]. n
/***********事件触发的函数**********/# D5 C1 C$ @9 b. Y

# V1 E4 g/ R% Q4 C- P
) t7 O$ }1 Z- f3 `$ b
( M( k5 @8 }3 G9 J  C" x+ C/ e5 b  ]/ ]' W1 x4 Q& p

) d/ c3 _* J: E' [$ _2 k9 t* G1 l8 L8 W8 o# p

0 m" ?8 z/ u8 `, E5 d2 d& o) E# T
- B9 K* @9 z) K
, @) F; U! g( c% ~' n7 A; d( k3 G3 i/ Tfunction  callfunc (aText: string): string;   //以下为 aText参数的值1 w" |& T% F% I2 \9 @1 i
/ z4 [( g  e7 V  V) t# Q0 z2 X
getsysteminfo                    获得系统信息
" V4 u4 T! m7 R; Agetname                          获得名字
3 z3 E% G: t7 r+ r$ L; egetsendername                    获得消息发送者名字% J( T2 ~9 ^- K$ z
getage                           获得年龄
9 ~$ o: ~0 X2 v9 z5 q, y7 @getsenderage                     获得消息发送者年龄# ?# @0 s: J! P" H
get***                           获得性别
/ P$ Q: q# ?' ?/ [9 L; Igetsender***                     获得消息发送者性别; P! j) }) {8 K+ C
getid                            获得ID- J* ]% ]7 s/ u4 q! Q
getsenderid                      获得消息发送者ID
! i# d7 D) [( D( i$ m  Ngetserverid                      获得服务器ID; r! G: [. l) }" o
getsenderserverid                获得消息发送者服务器ID
: {) E% Z1 C$ Q8 o# ]findobjectbyname                 用名字查找物件
4 \0 i& R4 h5 d0 L! \' j5 ?. ogetposition                      获得位置% [2 z  x6 U) l
getsenderposition                获得消息发送者位置
# y* M* T& v/ j8 z9 b- Q& @getnearxy                        获得亲近的XY
9 ]5 v% t# [' K# }9 N1 bgetmapname                       获得地图名字9 i( x, X. w# |: V8 G& G9 r. D
getsendermapname                 获得消息发送者地图名字6 F4 z+ S2 @, X% [1 ~1 J
getmoveablexy                    获得移动能的XY& V4 r' M* Y& F7 A
getrace                          获得种族
$ f. k+ k' L! T+ B+ kgetsenderrace                    获得消息发送者种族& Z2 f9 R( G9 a2 c; h, S

: R* m, z7 R" C) b' Xgetmaxlife                       获得最大的生命值& U& h7 _" n, E  o# d$ R/ t/ g
getsendermaxlife                 获得消息发送者最大的生命值
- G4 {7 E/ d  T3 O7 f: E$ Fgetmaxinpower                    获得最大的内功值5 _' l5 J. [) h
getsendermaxinpower              获得消息发送者最大的内功值
6 F! L7 S9 M' [4 zgetmaxoutpower                   获得最大的外功值
- _$ k; s; V: h+ _; s! W3 bgetsendermaxoutpower             获得消息发送者最大的外功值9 Z. f+ I# A2 k4 Y6 X
getmaxmagic                      获得最大的武功值
! v/ u, l5 d" k. d) Sgetsendermaxmagic                获得消息发送者最大的武功值4 l! c( p) _' e# K0 E; s
getlife                          获得生命值( e8 h/ Q/ a: C2 }; q2 `
getsenderlife                    获得消息发送者生命值
5 b& Y& G0 K' J- [
" j1 Q. y# }5 Ogetinpower                       获得内功值9 @$ C0 @( N7 f( C. `/ E
getsenderinpower

  f( {" E" E5 @# m' ~( h; u



欢迎光临 三千论坛 (http://www.3000y.vip/) Powered by Discuz! X3.4