千年脚本编写帮助

千年用的脚本是基于 Pascal语言，演化而来的，其中变量定义和函数的应用也十分的象，但不用为了写脚本而专门的去学 Pascal语言。
6 p1 c8 N6 e6 i4 A8 U6 A
千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。

一个函数的基本结构是这样的：
5 q6 d8 d' F  j1 t
procedure OnCreate (aStr : String);
/ h% N% ^0 h- z/ [# x! K/ V5 Mvar
, C0 h. w; X, a2 w) c" Z) S   定义变量
begin
. o' p4 s' o! W# I4 r0 G" ~6 E   语句
end;

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

, U& Y1 I" Q$ ]2 s( w2 g千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。

/***********事件触发的函数**********/

3 s0 @7 @- q  b6 c' e+ }; Z1 S: A3 O//当有人*近时
procedure OnApproach (aStr : String);

5 r8 U8 z+ K/ {//当有人离开时
) \8 B( K. g8 x" r) yprocedure OnAway (aStr : String);

) E. e* M. s  g& P5 T//当受到掌风攻击时
4 Q. W- O" A9 O1 xprocedure OnBow (aStr : String);
* z5 B. V; l9 F9 V' ]) y$ o
2 O# C3 |8 z6 K6 T! s//当状态改变时
, r& G3 v, v. e9 ]9 S! T! N- [5 z7 eprocedure OnChangeState (aStr : String);

$ f& @# J" E$ K* e5 D0 ?//当初始创建时
. \0 C5 V6 }1 K. Y: s2 k; L; yprocedure OnCreate (aStr : String);

! V& I. t) }' x; |//当被双击时
procedure OnDblClick(aStr : String);

//当死亡前
procedure OnDieBefore (aStr : String);

( a" N& ^$ c% C& B0 D3 r1 U& u- r+ G6 N//当死亡后
3 a1 t3 ^1 L0 Y; G% L# bprocedure OnDie (aStr : String);

//当被拖放物品时
; I' e1 s6 s  g- c' s7 Rprocedure OnDropItem (aStr : String);

//当得到命令消息时
procedure OnGetResult (aStr : String);
, W  r0 g/ n2 o( Q5 l. u- ~
6 k3 R; w% P( k. O  z//当得到改变步长时
procedure OnGetChangeStep (aStr : String);

//当受到攻击时
) C4 D# E* U% ?7 @: pprocedure OnHit (aStr : String);

//当被左鼠标键单击时
9 A4 M  o+ J/ h* c; `$ o, kprocedure OnLeftClick (aStr : String);

//
procedure OnRegen (aStr : String);
3 u- A) ]$ f/ i. ^" o' l3 `
3 t- u. P& Z+ a3 r" \3 ^& N//
# O4 Z+ x! r2 _procedure OnTimer (aStr : String);
/ D  C6 X" s$ e8 a$ i2 H: Z% O
//当物件发生翻转打开时，一般是用于门
procedure OnTurnOn (aStr : String);

//当物件发生翻转关闭时，一般是用于门
! X3 W$ i; {' |, Q1 {procedure OnTurnOff (aStr : String);

//当用户开始游戏时
procedure OnUserStart (aStr : String);

6 m3 h. e8 \+ }//当用户结束游戏时
procedure OnUserEnd (aStr : String);
* {3 F. ]7 Q8 h" l
: R5 R* b: u- s  M) G2 M% \1 k7 J  v//当移动时
" x0 e, g# p. d' `+ ?function OnMove (aStr : String) : String;

//
function OnDanger (aStr : String) : String;

//产生一个随机数（系统函数）
function  Random (aScope: integer): integer;
% ]4 V8 Q6 G- J0 n2 s: V5 w
//返回指定参数的消息（系统函数）
! o% `9 q9 a, X0 }function  callfunc (aText: string): string;
1 n# \" k( R) E4 m1 [, Y
" [( [: l7 U  O( L//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
procedure print (aText: string);

具体参数（略），整理中...........

//转换字符串为整数（系统函数）
function  StrToInt (astr: string): integer;

//转换整数为字符串（系统函数）
& K0 ~) B8 i2 A  Yfunction  IntToStr (aInt: integer): string;
5 S5 K2 Z2 q/ ^" p4 x7 D
( G# I/ W. W' k: V/***********事件触发的函数**********/
/ Y9 X# A  E, U

4 F' Z$ \* j5 ]& O$ c1 A' ]
- m8 U5 b" T1 i# p8 m! Z

7 R9 x0 o; v% G" K

  A" x& d8 H# r$ b
3 [/ k' C2 L% g9 B# j
, ~6 K9 z7 v/ zfunction  callfunc (aText: string): string;   //以下为 aText参数的值

) U% M' D, K8 sgetsysteminfo                    获得系统信息
% J1 i0 X  c! M' [3 v( ygetname                          获得名字
- W/ H& a* M7 z; ]8 V4 ]getsendername                    获得消息发送者名字
# l; t( l% D2 F; Y0 W5 vgetage                           获得年龄
getsenderage                     获得消息发送者年龄
5 ?4 q9 M3 x' V$ }' tget***                           获得性别
getsender***                     获得消息发送者性别
: z5 C+ V$ h. W" A! B% Xgetid                            获得ID
getsenderid                      获得消息发送者ID
( ~& s5 n, U0 {2 Q) kgetserverid                      获得服务器ID
& ~0 N& D& V7 t, j: t9 sgetsenderserverid                获得消息发送者服务器ID
9 P* J! ?! x" M, w8 f8 Sfindobjectbyname                 用名字查找物件
getposition                      获得位置
getsenderposition                获得消息发送者位置
2 }, c* t' z4 g* Kgetnearxy                        获得亲近的XY
getmapname                       获得地图名字
getsendermapname                 获得消息发送者地图名字
getmoveablexy                    获得移动能的XY
0 T9 d' o+ b; h) P8 }+ Wgetrace                          获得种族
# z8 R) U; }+ l% z: `' m1 P! S4 y$ ngetsenderrace                    获得消息发送者种族

0 t" W) a0 W" ]8 D* cgetmaxlife                       获得最大的生命值
0 @' m7 M8 T( o" Igetsendermaxlife                 获得消息发送者最大的生命值
getmaxinpower                    获得最大的内功值
getsendermaxinpower              获得消息发送者最大的内功值
getmaxoutpower                   获得最大的外功值
getsendermaxoutpower             获得消息发送者最大的外功值
getmaxmagic                      获得最大的武功值
getsendermaxmagic                获得消息发送者最大的武功值
& W! F% ]8 c. P+ bgetlife                          获得生命值
getsenderlife                    获得消息发送者生命值
+ Y3 R8 c9 z3 y6 E( b' y7 v
getinpower                       获得内功值
/ }: k/ W' [+ w: y3 _getsenderinpower

2 i4 Q$ a! a- H+ F