千年脚本编写帮助

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

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

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

procedure OnCreate (aStr : String);
( `  u& k+ R; a4 w' w! D1 Nvar
7 T7 l5 @* M; `4 g   定义变量
begin
   语句
0 U; k1 F5 f- x7 h- G8 b# `+ ?end;

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

千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。

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

//当有人*近时
procedure OnApproach (aStr : String);
+ h% L# M+ T) m6 c5 n6 F$ a
//当有人离开时
procedure OnAway (aStr : String);

% K9 [8 ], B- c3 M- L# Z//当受到掌风攻击时
+ B2 d9 O5 c6 j/ Y/ V$ E, @: T% X( a9 Bprocedure OnBow (aStr : String);
) U! Y8 G* t/ G$ N, E
& a- l' F* L; }* e* {, B//当状态改变时
4 Y0 J' B7 `# a6 b; O8 Fprocedure OnChangeState (aStr : String);
1 D; ~8 W3 r+ \/ R$ r
//当初始创建时
* a6 h! Z. n, J9 k+ ?3 Fprocedure OnCreate (aStr : String);
. Q4 _% d( `* q( n
//当被双击时
procedure OnDblClick(aStr : String);
( J' ]; J. z" W
% c" L, n0 b- N//当死亡前
6 G, r* _0 N; w! m8 n6 _procedure OnDieBefore (aStr : String);

//当死亡后
procedure OnDie (aStr : String);

* t( B# \% M% D6 B% ~: X//当被拖放物品时
) ]9 W2 f, O8 V0 Y+ O* S; eprocedure OnDropItem (aStr : String);
& d- X1 {& P/ o* W! R, e
//当得到命令消息时
procedure OnGetResult (aStr : String);
* H1 P" i0 I0 c. F2 F
//当得到改变步长时
; r* z8 I* I/ p% N0 lprocedure OnGetChangeStep (aStr : String);
; t2 i4 ^" z  t( u9 D" X/ s
8 A4 h0 P6 l+ ]* r( R( O- ]2 @//当受到攻击时
( G$ [0 p, z$ R/ ]$ rprocedure OnHit (aStr : String);
) x  w& V; }$ i
//当被左鼠标键单击时
+ s& M8 l8 m" C  Lprocedure OnLeftClick (aStr : String);
& a% D) x1 ~, C! s4 U% m1 J7 I
//
procedure OnRegen (aStr : String);

//
  Q- M0 U; R- {' H9 P' Yprocedure OnTimer (aStr : String);
" `' \/ C' {* J; g
# P: ?2 ]! O# L" \! x  i//当物件发生翻转打开时，一般是用于门
' C0 G4 z9 z7 F% U" j0 ~procedure OnTurnOn (aStr : String);

//当物件发生翻转关闭时，一般是用于门
4 m4 N* K$ `# oprocedure OnTurnOff (aStr : String);

9 K6 v7 h" K5 F2 f( ]//当用户开始游戏时
procedure OnUserStart (aStr : String);

//当用户结束游戏时
2 y2 I3 [# Q; U2 {) j! oprocedure OnUserEnd (aStr : String);
1 w  ]5 R4 J2 ^7 x0 h
//当移动时
function OnMove (aStr : String) : String;

1 m" N5 Q& G! E2 M) u6 \//
function OnDanger (aStr : String) : String;
3 w- K3 K* w+ `  x7 h# V. `
//产生一个随机数（系统函数）
function  Random (aScope: integer): integer;

' ^; P" L  z+ L- b. Q. c//返回指定参数的消息（系统函数）
function  callfunc (aText: string): string;
' U4 d6 B, S/ s' x8 `  [8 n" h
$ _: B8 L$ i  b. t//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
/ T" Z. c! M% B/ [procedure print (aText: string);

( ?& E( U* w4 W* Z' e6 B具体参数（略），整理中...........
. O% E" f( L- L' v
2 V. A/ ~9 _8 \//转换字符串为整数（系统函数）
function  StrToInt (astr: string): integer;

; Z; M1 }6 i9 {/ g+ ~# o9 [//转换整数为字符串（系统函数）
function  IntToStr (aInt: integer): string;
  R# g+ G+ v3 ^5 p
, |9 L( W; A# w- H# M1 r* R4 Z/***********事件触发的函数**********/
6 |( Q9 w: P' N
$ {" C) q  H+ b" c3 o
; D( C# [+ w6 n9 G+ n# D- w( Z
8 z+ E/ a$ E; `
6 g2 J* p0 v8 i( c6 k/ c



" c/ F- A) d+ ?( w' e9 I
function  callfunc (aText: string): string;   //以下为 aText参数的值
% r+ z5 }2 l+ P8 m% V
- Z6 Q5 H0 A  Hgetsysteminfo                    获得系统信息
getname                          获得名字
getsendername                    获得消息发送者名字
getage                           获得年龄
4 F% k6 Z% H/ L* q) Dgetsenderage                     获得消息发送者年龄
$ b9 Q6 N6 {: Rget***                           获得性别
getsender***                     获得消息发送者性别
getid                            获得ID
getsenderid                      获得消息发送者ID
getserverid                      获得服务器ID
8 H8 c8 u. q9 z( o* R$ Bgetsenderserverid                获得消息发送者服务器ID
findobjectbyname                 用名字查找物件
9 b, |. h0 b4 B' d; [/ egetposition                      获得位置
5 d1 m# o' `1 U8 O  jgetsenderposition                获得消息发送者位置
getnearxy                        获得亲近的XY
& M2 R; }, u2 S$ w0 }$ u7 Dgetmapname                       获得地图名字
7 o1 Z2 M6 F7 S: L' o# l4 tgetsendermapname                 获得消息发送者地图名字
getmoveablexy                    获得移动能的XY
getrace                          获得种族
getsenderrace                    获得消息发送者种族

getmaxlife                       获得最大的生命值
& l3 ~6 e; J% Bgetsendermaxlife                 获得消息发送者最大的生命值
getmaxinpower                    获得最大的内功值
' m! v9 \1 {* l1 C0 o- m+ xgetsendermaxinpower              获得消息发送者最大的内功值
3 H2 `) N2 g& t- f% Rgetmaxoutpower                   获得最大的外功值
, h. o+ `$ p# qgetsendermaxoutpower             获得消息发送者最大的外功值
% T1 H. s3 s9 `getmaxmagic                      获得最大的武功值
getsendermaxmagic                获得消息发送者最大的武功值
getlife                          获得生命值
& F& B5 G/ Y; D2 \, Agetsenderlife                    获得消息发送者生命值

2 Q9 l% [* ?9 {8 agetinpower                       获得内功值
+ ~# ]0 Q' S' E! Q  \8 c4 zgetsenderinpower