千年脚本编写帮助

千年用的脚本是基于 Pascal语言，演化而来的，其中变量定义和函数的应用也十分的象，但不用为了写脚本而专门的去学 Pascal语言。
2 C& S' i* H- B( A* f2 Z) M
千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。

一个函数的基本结构是这样的：

. J" x! F$ Z! R, ?+ Q4 Cprocedure OnCreate (aStr : String);
var
   定义变量
begin
   语句
" H" ~# {% j, _# A0 @end;

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

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

//当有人*近时
procedure OnApproach (aStr : String);

4 z3 {8 K0 `6 z& m. c. @//当有人离开时
procedure OnAway (aStr : String);
7 [4 d9 Y4 T0 M( X
//当受到掌风攻击时
procedure OnBow (aStr : String);

//当状态改变时
  g" f0 i: B) z/ u% l( Oprocedure OnChangeState (aStr : String);
8 Q6 T! }: x0 L& k  y
8 F' j. f  t; C, z//当初始创建时
procedure OnCreate (aStr : String);

: H" \0 j7 _5 F1 r' w//当被双击时
procedure OnDblClick(aStr : String);
  f0 \5 h. J4 [
& N* v7 V, a' d% S6 _! \1 Z, W6 p2 }; T//当死亡前
+ X. E! @+ J! z, O! q4 bprocedure OnDieBefore (aStr : String);

//当死亡后
procedure OnDie (aStr : String);
& q9 t$ z5 p1 {- Y: l3 F  E; m
//当被拖放物品时
procedure OnDropItem (aStr : String);

//当得到命令消息时
1 e4 I/ c( x2 ^% l: _procedure OnGetResult (aStr : String);

# t5 P- t7 w- K9 V* x//当得到改变步长时
: t, r# D  F6 Y; S+ nprocedure OnGetChangeStep (aStr : String);

//当受到攻击时
procedure OnHit (aStr : String);
( c0 W5 F$ h/ R# V& N" e! P1 ]' Q+ S
& y; b& p# R! p//当被左鼠标键单击时
procedure OnLeftClick (aStr : String);
7 p$ N+ d# [7 \
. N1 u) S4 M3 q3 [/ ?//
procedure OnRegen (aStr : String);
1 x4 D6 L5 S  k9 f3 Z4 }
% P3 E& ]" p8 G# K: {- M//
procedure OnTimer (aStr : String);

//当物件发生翻转打开时，一般是用于门
' n5 n& z5 Y0 n" {procedure OnTurnOn (aStr : String);
6 a' T) G( |$ J% |, W
//当物件发生翻转关闭时，一般是用于门
procedure OnTurnOff (aStr : String);
! }  U5 r$ h1 C* e' I, `6 `
3 Z, H7 G5 T! x# A! M1 C+ s; S- u//当用户开始游戏时
" h( p6 @5 Z! t  x% |' E; Hprocedure OnUserStart (aStr : String);

//当用户结束游戏时
  D! e: D; R9 _3 {. xprocedure OnUserEnd (aStr : String);

; z$ b' s& `% M//当移动时
! Q: {0 ]  v1 |4 P# J; ufunction OnMove (aStr : String) : String;

0 Y" s. y; d# f! N- A4 u//
1 P9 d' H7 ]1 N. @, Mfunction OnDanger (aStr : String) : String;

) E; L% Y2 o3 }, S//产生一个随机数（系统函数）
function  Random (aScope: integer): integer;
! Z0 [' y$ ]( @) i8 `# v
3 z. u; g4 R* r//返回指定参数的消息（系统函数）
function  callfunc (aText: string): string;

, j: e" Q2 D9 V//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
: Z  \1 E$ Y/ s7 q! ]/ ~: rprocedure print (aText: string);

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

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

3 J1 H" B+ f& X- D: X& b0 h# u//转换整数为字符串（系统函数）
function  IntToStr (aInt: integer): string;
4 q1 b# B  P6 ^7 U/ F" ?
/***********事件触发的函数**********/
! A2 m1 G: A0 }! z# g: @2 n# h! n7 r. M


  V) T& `" d' I/ v; }+ ^( M


0 j1 r% g0 C7 R$ K
- j' ?: P' o+ g, L" Z/ T( }
2 K1 I( V2 Q; y
function  callfunc (aText: string): string;   //以下为 aText参数的值

" N- n1 s% t' U9 @$ P) Agetsysteminfo                    获得系统信息
, Y5 \( ]: i2 T6 P- P! H% @7 W& igetname                          获得名字
* f9 i" l0 I; y1 c) u1 tgetsendername                    获得消息发送者名字
1 N) a/ E: C1 ?  ^getage                           获得年龄
getsenderage                     获得消息发送者年龄
; N1 d1 B. a' q* R, G0 n3 J2 L- sget***                           获得性别
3 G# {5 v5 T6 o/ }' W8 h8 A/ Ygetsender***                     获得消息发送者性别
getid                            获得ID
getsenderid                      获得消息发送者ID
) B. h' m5 V$ _. ^getserverid                      获得服务器ID
getsenderserverid                获得消息发送者服务器ID
1 b# e' S, f- w/ Wfindobjectbyname                 用名字查找物件
getposition                      获得位置
getsenderposition                获得消息发送者位置
$ u$ Y3 D3 N7 k! [5 mgetnearxy                        获得亲近的XY
getmapname                       获得地图名字
) p, z$ p- t6 `% ]" |2 Q" x' Kgetsendermapname                 获得消息发送者地图名字
getmoveablexy                    获得移动能的XY
  w$ }2 x% j' {$ \7 {) D+ }$ Ygetrace                          获得种族
getsenderrace                    获得消息发送者种族

getmaxlife                       获得最大的生命值
getsendermaxlife                 获得消息发送者最大的生命值
5 z, i7 X1 G: c; V6 G% ?getmaxinpower                    获得最大的内功值
/ b) g% @" h7 ^2 dgetsendermaxinpower              获得消息发送者最大的内功值
' h4 T4 l  G; ?- n5 Z! o/ Xgetmaxoutpower                   获得最大的外功值
4 P9 W% m! e& M" r4 N9 X' f- O; M) Dgetsendermaxoutpower             获得消息发送者最大的外功值
. H$ x$ B7 w9 l/ t5 kgetmaxmagic                      获得最大的武功值
getsendermaxmagic                获得消息发送者最大的武功值
( n+ H0 n% Z5 [8 p$ R2 X% pgetlife                          获得生命值
3 P$ t% ~4 |" Q5 \  }" fgetsenderlife                    获得消息发送者生命值

& L5 l  _! r' kgetinpower                       获得内功值
getsenderinpower

# [' b6 I- ^" x