千年脚本编写帮助

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

千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。

一个函数的基本结构是这样的：
4 d) Z5 W3 @0 k. H1 s
" L" v0 z$ Z6 [  Aprocedure OnCreate (aStr : String);
, q- j! w8 ]3 u! R1 k' R& d! Kvar
1 C2 |+ F% k  d+ S% x9 D   定义变量
8 c* Q5 Y/ j% O+ n% Dbegin
   语句
3 Z& G) p0 U$ l+ q7 V, d4 g" Aend;
; t- H5 J. z4 [, k7 o5 F! ?& Z% i7 U
在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。

9 G3 }+ V3 z' H7 k+ i" Q! u/ l& F千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。

/***********事件触发的函数**********/
6 }& _# N$ E$ K& C( a" ^1 k
//当有人*近时
procedure OnApproach (aStr : String);

9 t2 x/ X0 j6 E1 C//当有人离开时
procedure OnAway (aStr : String);
( h) H( q1 T1 v4 r. Q0 ~
//当受到掌风攻击时
procedure OnBow (aStr : String);

//当状态改变时
6 E2 z2 e5 [, K2 z. gprocedure OnChangeState (aStr : String);

  o$ O! W& P+ q( ~, W! l5 U' {; M//当初始创建时
8 l, t) k) {# i4 l" h- f6 Z0 Zprocedure OnCreate (aStr : String);
! a4 j5 o! b( ^, e7 @4 q+ [. V
//当被双击时
procedure OnDblClick(aStr : String);

( A: m$ }& D5 z//当死亡前
procedure OnDieBefore (aStr : String);

2 i4 O. c. _2 N1 \2 L$ q  |0 i//当死亡后
, S/ F+ i+ x, @& I" Rprocedure OnDie (aStr : String);
4 m4 i$ J+ Q1 I" z) x, I& B
//当被拖放物品时
0 L$ ]- P2 b; F( J$ V4 Jprocedure OnDropItem (aStr : String);

) l  D( R- C- n/ c) ^) o//当得到命令消息时
procedure OnGetResult (aStr : String);
# a, \9 k/ _1 Q' W8 Y
2 _6 ^: j% x0 R+ x0 F4 c//当得到改变步长时
! Z7 l: K% r& C9 \procedure OnGetChangeStep (aStr : String);
" x$ v) j" x2 Y; ?+ P, z% ?
//当受到攻击时
* K( ?" S1 H8 u" Z5 jprocedure OnHit (aStr : String);

//当被左鼠标键单击时
procedure OnLeftClick (aStr : String);

) l, V% H; L% w8 J# A# ^7 E//
procedure OnRegen (aStr : String);

% V. k9 d! \' ^; O//
procedure OnTimer (aStr : String);

* A# G7 K1 [& w9 @/ U5 p$ U//当物件发生翻转打开时，一般是用于门
, D; p( @' O' y* B" iprocedure OnTurnOn (aStr : String);

//当物件发生翻转关闭时，一般是用于门
, O2 s* r6 I$ h' E0 yprocedure OnTurnOff (aStr : String);
% w3 g! i+ e2 I- ~3 `
//当用户开始游戏时
1 P& @! M9 _& C$ ]; Oprocedure OnUserStart (aStr : String);

' v) V0 J  \+ C% _5 X8 Q* P4 F% b6 n+ O//当用户结束游戏时
procedure OnUserEnd (aStr : String);
4 J$ n+ ~# `8 T8 V- f, U
//当移动时
function OnMove (aStr : String) : String;
2 n. E; T- q( x
  z6 h) q! x! h//
. i9 X3 T. ~+ A9 N: Bfunction OnDanger (aStr : String) : String;

; l, M5 q3 c( Q+ }, a& l//产生一个随机数（系统函数）
function  Random (aScope: integer): integer;

1 B' B. E& H5 z( R; V//返回指定参数的消息（系统函数）
function  callfunc (aText: string): string;
5 |4 u- k- s8 \" r9 e
, z' L" r6 p; K( N: g# c//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
procedure print (aText: string);
  N0 A& _5 R. Y3 t
! U, s: n7 E$ a4 ^: R/ N5 t具体参数（略），整理中...........
& M& P; ^" B. T" ]& w: p
//转换字符串为整数（系统函数）
; w. r' x( T) }7 S% ffunction  StrToInt (astr: string): integer;

//转换整数为字符串（系统函数）
2 a6 T- X4 R  K. a6 z, bfunction  IntToStr (aInt: integer): string;

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


* G- B/ X. h) j, `: j




" O1 n- |5 u7 G6 P1 G- Q$ l- Y

3 X3 e3 v8 t/ g: F! c( m# g' n: ]function  callfunc (aText: string): string;   //以下为 aText参数的值
! h/ _) a1 ~  d
' a% b8 F# o% J% [6 A  Cgetsysteminfo                    获得系统信息
getname                          获得名字
getsendername                    获得消息发送者名字
getage                           获得年龄
getsenderage                     获得消息发送者年龄
get***                           获得性别
: r: @1 f: S# ^4 `: u4 K" Z" {! |getsender***                     获得消息发送者性别
# [9 Y  V2 h5 Zgetid                            获得ID
% o9 J4 i- N# d. C$ K  \  ~4 V9 pgetsenderid                      获得消息发送者ID
" x7 A: a7 D) o4 T" R$ X8 D4 P: [0 ?getserverid                      获得服务器ID
getsenderserverid                获得消息发送者服务器ID
: o: i* [5 j6 k$ @9 `8 t7 O7 C, nfindobjectbyname                 用名字查找物件
) o9 K. s" b2 |5 qgetposition                      获得位置
& d1 t+ _: D! p! c! Z1 L( Agetsenderposition                获得消息发送者位置
getnearxy                        获得亲近的XY
getmapname                       获得地图名字
getsendermapname                 获得消息发送者地图名字
getmoveablexy                    获得移动能的XY
getrace                          获得种族
$ F5 [8 H( a0 @5 r, w( @* [getsenderrace                    获得消息发送者种族
( E$ Y9 u% t  L, o, ^9 w
4 V& H  v! d4 j+ L' T: z1 F; [! fgetmaxlife                       获得最大的生命值
getsendermaxlife                 获得消息发送者最大的生命值
0 E, A: }' y% c4 y$ @/ N8 [0 pgetmaxinpower                    获得最大的内功值
getsendermaxinpower              获得消息发送者最大的内功值
8 j9 e0 p, Z# g& U- ugetmaxoutpower                   获得最大的外功值
) s- }6 ]! j% i  [9 B% p9 Jgetsendermaxoutpower             获得消息发送者最大的外功值
getmaxmagic                      获得最大的武功值
3 S& d- H& S4 \" k+ X, ygetsendermaxmagic                获得消息发送者最大的武功值
* U" c3 a& U+ Igetlife                          获得生命值
, N9 g4 P( D1 F: h8 ]1 Pgetsenderlife                    获得消息发送者生命值
4 s9 K, y! T# {6 V5 b( v# }
& l4 L7 u- @2 z( J1 F2 P9 F1 Bgetinpower                       获得内功值
' m1 v$ J- u  {$ ^  h% }getsenderinpower

$ r7 Y1 s/ }# \; P. a. I7 v# l