千年脚本编写帮助

千年用的脚本是基于 Pascal语言，演化而来的，其中变量定义和函数的应用也十分的象，但不用为了写脚本而专门的去学 Pascal语言。

千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。
5 N, E$ Y$ ^; z# l$ O
一个函数的基本结构是这样的：

procedure OnCreate (aStr : String);
var
   定义变量
begin
4 M2 s% s  {$ \2 C2 \   语句
end;

在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。

  `! g# _  S. W+ X/ f5 V0 d- y3 }千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。
8 ~  f6 ]) ?5 V# S) |9 s: Q# n
/***********事件触发的函数**********/

//当有人*近时
6 a8 l! I! A  P) }8 s5 a8 }* E( ?+ H( Eprocedure OnApproach (aStr : String);
0 G' n) [' O* Y* f
: ^/ Y$ o3 O5 U$ O" G/ T1 Q" Z//当有人离开时
procedure OnAway (aStr : String);
9 e$ G/ e, ~- t9 S, R( H7 L7 w" X! @
//当受到掌风攻击时
4 l8 }% h+ x) e0 |6 q; u5 aprocedure OnBow (aStr : String);

//当状态改变时
procedure OnChangeState (aStr : String);
  z9 R) q% s. a! Y2 R6 x
//当初始创建时
procedure OnCreate (aStr : String);

//当被双击时
procedure OnDblClick(aStr : String);
$ n0 d& G& E7 a" x5 S
//当死亡前
" E# M& ^9 P. `: ]7 W$ T- I& Iprocedure OnDieBefore (aStr : String);

; S3 e  n/ c) S9 j1 }4 e//当死亡后
6 J6 _* g' z3 I7 nprocedure OnDie (aStr : String);

//当被拖放物品时
* i. V2 [7 o# \8 Q. b2 F9 P# k# Lprocedure OnDropItem (aStr : String);
+ c4 ]8 k6 I3 {; t5 i1 y6 w. H
//当得到命令消息时
1 q) H1 w" z+ X/ c" x2 Jprocedure OnGetResult (aStr : String);
+ Z, m/ G; |0 k1 q* l+ h- q
( @* Z  w( _! n//当得到改变步长时
procedure OnGetChangeStep (aStr : String);
) }5 s$ O1 Q4 \' B6 f7 b1 {
/ _6 g8 p- B. }//当受到攻击时
procedure OnHit (aStr : String);
5 c% C8 W( g. g+ H  t# M
: c- _) ~4 {% `8 I! E5 H8 H//当被左鼠标键单击时
procedure OnLeftClick (aStr : String);
( _/ I: E! A* k/ Y$ F8 M
1 x, {& A; `: _5 @: ~//
$ L8 a. o  A4 L# ~2 @# w3 ~procedure OnRegen (aStr : String);

4 c' g) K5 L& P/ U3 R+ O1 Y//
procedure OnTimer (aStr : String);
0 A1 n  a* F+ t, f2 O' j
//当物件发生翻转打开时，一般是用于门
procedure OnTurnOn (aStr : String);
! z( [, q# I# d% J( Z, p
% s- k% z7 n/ U* z//当物件发生翻转关闭时，一般是用于门
procedure OnTurnOff (aStr : String);

//当用户开始游戏时
. W0 ?2 \  D/ A8 m! }3 @( uprocedure OnUserStart (aStr : String);

//当用户结束游戏时
# i4 R% ?8 v# ]  i) P9 Sprocedure OnUserEnd (aStr : String);
1 {3 |- }! P: @9 _6 ?7 j7 G1 F
//当移动时
" P/ R; U0 k6 `; v; D( n; tfunction OnMove (aStr : String) : String;
2 o. S5 {( e8 Z$ Q
$ F& D, y' [8 R" x; ]//
& p: h$ J- Z9 a9 C( H$ j6 S. zfunction OnDanger (aStr : String) : String;

//产生一个随机数（系统函数）
# }! g5 n# ?  h" p+ z9 cfunction  Random (aScope: integer): integer;

- Y$ j4 j8 d% j) v% c//返回指定参数的消息（系统函数）
6 Y, B" S& |+ V6 J4 W# k: Ufunction  callfunc (aText: string): string;
; b* s; c' |* `) J7 I% A$ \
& v! \0 @' i( A  a4 N- U//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
' z# |. [1 `* O! Sprocedure print (aText: string);

具体参数（略），整理中...........
' [. V& |1 X2 c5 s
* ^' q* Z& Z. _//转换字符串为整数（系统函数）
7 y; U, y$ O! [& A6 Z: s; H% wfunction  StrToInt (astr: string): integer;
0 Z9 b. }# X& i2 {+ J2 t: @& c
4 ]9 r/ w$ Y5 O9 B$ d. u9 s7 Z//转换整数为字符串（系统函数）
7 m% v* v" [9 \  g/ v+ gfunction  IntToStr (aInt: integer): string;

) u& l5 r9 X1 [5 X! q5 G/***********事件触发的函数**********/


( `5 F$ \7 P  r4 |* W

7 A, s. L7 v* S' [

! T* B8 p# \/ m! u* [: V! u

. e) q. ^1 h+ ?. I! k9 q; h! S
function  callfunc (aText: string): string;   //以下为 aText参数的值

" \, e: P# m3 X: o& tgetsysteminfo                    获得系统信息
* ^( p$ D& l, x/ z8 `getname                          获得名字
getsendername                    获得消息发送者名字
getage                           获得年龄
9 H4 Z9 }0 C# x- q% z  f# _getsenderage                     获得消息发送者年龄
get***                           获得性别
getsender***                     获得消息发送者性别
getid                            获得ID
getsenderid                      获得消息发送者ID
7 S& C- D0 W$ \. r) u! s4 @& cgetserverid                      获得服务器ID
getsenderserverid                获得消息发送者服务器ID
6 Q, a5 r4 `& w5 e6 v; G! Wfindobjectbyname                 用名字查找物件
0 ~( y4 W) m: X  J( c/ Xgetposition                      获得位置
getsenderposition                获得消息发送者位置
4 v" ~7 c4 I7 k/ ggetnearxy                        获得亲近的XY
- ^% y5 \5 k6 p$ bgetmapname                       获得地图名字
getsendermapname                 获得消息发送者地图名字
getmoveablexy                    获得移动能的XY
7 C" l3 S6 e8 ]0 [$ y+ O# wgetrace                          获得种族
getsenderrace                    获得消息发送者种族
/ J$ i6 Q, u9 y3 A) ?9 {* {, ^: b
getmaxlife                       获得最大的生命值
, E7 W( C: Z3 V7 g" ~getsendermaxlife                 获得消息发送者最大的生命值
getmaxinpower                    获得最大的内功值
) Y5 {; V2 F. b2 b# M3 wgetsendermaxinpower              获得消息发送者最大的内功值
getmaxoutpower                   获得最大的外功值
* e% ~, z% t, ?" L8 d* {getsendermaxoutpower             获得消息发送者最大的外功值
: z3 C) |$ Q% ]% ?getmaxmagic                      获得最大的武功值
getsendermaxmagic                获得消息发送者最大的武功值
, f( E/ d/ A# _, E& E; vgetlife                          获得生命值
getsenderlife                    获得消息发送者生命值
/ G4 c1 b/ v2 i1 e6 |
getinpower                       获得内功值
$ [( ]3 `: g6 o7 o% ?" q7 a# ]getsenderinpower