千年脚本编写帮助

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

: U+ Q" m  j8 S- ^# [8 y8 O) |' O2 @千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。

' e& O: g2 X' L7 n( G; b一个函数的基本结构是这样的：

+ i$ P. c/ K  z1 R; @: ~9 p! iprocedure OnCreate (aStr : String);
, x, |3 e9 a' _% l* ]# q- o! h8 X  \+ dvar
3 h& V: ~3 [! b2 |9 T) R   定义变量
begin
! r& x% ?6 D9 I) s" O: ^   语句
end;

在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。
3 {; W2 i6 a$ r& S; x4 Y
千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。

/***********事件触发的函数**********/
( d; K. l6 s$ x) ]5 X" w# W
//当有人*近时
) F) D1 m, x8 G6 j# o7 @procedure OnApproach (aStr : String);

6 M& l) ?) m' L: c- b//当有人离开时
procedure OnAway (aStr : String);

4 q% R  r: X* ~//当受到掌风攻击时
procedure OnBow (aStr : String);

$ M' i8 K8 g! D5 U9 F//当状态改变时
procedure OnChangeState (aStr : String);
3 P/ x+ [. Q# f9 {" ?0 m8 Y! o
//当初始创建时
procedure OnCreate (aStr : String);

//当被双击时
6 b/ U+ @0 p2 P7 c; Nprocedure OnDblClick(aStr : String);
8 u) ^6 b7 K7 R, N( P5 w, |+ P) N
//当死亡前
procedure OnDieBefore (aStr : String);
' O( j. J4 a" J4 f4 k; F
9 }' I! N) T$ S6 G6 D. Q2 U) d//当死亡后
$ T5 F  d: U' T2 ^" Vprocedure OnDie (aStr : String);
: V! r' z6 c; o0 W% j
/ r4 F9 w, p" ]//当被拖放物品时
procedure OnDropItem (aStr : String);
0 t, @, k4 ~; `! y
7 h3 x% V; x, u! N! f4 g//当得到命令消息时
6 p, M! T3 O$ o* |6 Tprocedure OnGetResult (aStr : String);

//当得到改变步长时
procedure OnGetChangeStep (aStr : String);

//当受到攻击时
procedure OnHit (aStr : String);

' b9 ]1 E# t3 ~8 ?//当被左鼠标键单击时
procedure OnLeftClick (aStr : String);

* S6 X$ x: }  a0 I+ w' C+ r//
$ J& ]9 L2 P$ [procedure OnRegen (aStr : String);
/ d% U; }+ k- H6 K
//
procedure OnTimer (aStr : String);
$ t* a. |: X" p0 s) ~
) E9 h( P* Q, z//当物件发生翻转打开时，一般是用于门
procedure OnTurnOn (aStr : String);
4 O$ [+ r  e7 N- H3 m
//当物件发生翻转关闭时，一般是用于门
: l, o+ ?* p# x. iprocedure OnTurnOff (aStr : String);

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

+ x+ o: V8 \8 K//当用户结束游戏时
procedure OnUserEnd (aStr : String);
! S" f0 |( g% R# J$ {' Q) ~$ d& s
//当移动时
function OnMove (aStr : String) : String;

: |! l3 U& o$ \' X$ R2 g//
& e6 U% h$ p5 F% Q5 e6 |3 ^function OnDanger (aStr : String) : String;
2 i! y5 P! x, e8 U$ M
//产生一个随机数（系统函数）
function  Random (aScope: integer): integer;

//返回指定参数的消息（系统函数）
! i, I# q+ [* J+ C) |8 hfunction  callfunc (aText: string): string;

# q6 s$ L* A, F//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
) C% T2 j- p. n6 \0 y/ S5 Bprocedure print (aText: string);
7 p" d( m( i) q# T2 y% P4 w
具体参数（略），整理中...........

' k& w' Y: k* e* l) d//转换字符串为整数（系统函数）
5 `  J5 y6 M: k' b% M' b+ p$ |function  StrToInt (astr: string): integer;

, c+ v$ _1 n! D. n//转换整数为字符串（系统函数）
" C: q9 b9 g0 O; ]. \0 q3 m! Gfunction  IntToStr (aInt: integer): string;

- A) E2 ?/ d. h/***********事件触发的函数**********/

% k6 O9 M  q) a0 b5 E

( i9 c% q/ n2 ?# z  A/ M  _

9 V0 g- ]* [2 R$ U# N

4 t6 l+ \4 X: i# ]. l' b2 j

function  callfunc (aText: string): string;   //以下为 aText参数的值
# K$ \" V* _3 G6 K, {+ D$ O9 |) `1 P
, }1 v( m. q$ F- s( N( @getsysteminfo                    获得系统信息
getname                          获得名字
& ^4 C4 B6 K, Z0 c. V! k4 mgetsendername                    获得消息发送者名字
3 Y% j4 S* V3 o5 K" E. }) P* kgetage                           获得年龄
getsenderage                     获得消息发送者年龄
get***                           获得性别
getsender***                     获得消息发送者性别
# E. D4 T4 o" T, Q1 ?getid                            获得ID
( c* x6 p( B) h2 Sgetsenderid                      获得消息发送者ID
9 c2 N8 w5 a3 K- ]getserverid                      获得服务器ID
: N: ^+ y- m. rgetsenderserverid                获得消息发送者服务器ID
findobjectbyname                 用名字查找物件
/ G0 o! [7 o; U7 K6 N2 ngetposition                      获得位置
getsenderposition                获得消息发送者位置
getnearxy                        获得亲近的XY
getmapname                       获得地图名字
& R) |% @. I4 \4 Fgetsendermapname                 获得消息发送者地图名字
$ _6 M& F4 S- U7 @& Y/ mgetmoveablexy                    获得移动能的XY
# k0 H1 Z# l# H/ W1 x; R# F1 ~. K1 tgetrace                          获得种族
getsenderrace                    获得消息发送者种族

getmaxlife                       获得最大的生命值
- o& B* i7 E6 h% [getsendermaxlife                 获得消息发送者最大的生命值
4 M% W6 A. }0 P( y8 `& bgetmaxinpower                    获得最大的内功值
getsendermaxinpower              获得消息发送者最大的内功值
( w0 ~( Z" k7 J7 b* ?) e4 r  Tgetmaxoutpower                   获得最大的外功值
getsendermaxoutpower             获得消息发送者最大的外功值
1 t2 }  _9 p& R: |; H, j( Mgetmaxmagic                      获得最大的武功值
9 d1 x" Y6 C/ M4 igetsendermaxmagic                获得消息发送者最大的武功值
getlife                          获得生命值
* y3 x3 J' X6 ]+ v2 C6 E" m  lgetsenderlife                    获得消息发送者生命值

getinpower                       获得内功值
getsenderinpower

7 Y2 r$ R+ n6 T  }% x" T8 G/ M- @3 x