千年脚本编写帮助

千年用的脚本是基于 Pascal语言，演化而来的，其中变量定义和函数的应用也十分的象，但不用为了写脚本而专门的去学 Pascal语言。
0 Y; c* K- |7 h
2 a6 u" F/ z( J( r3 h) h' Y千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。
" ?9 @& G4 Z; f5 N
) b5 s& p: C2 s$ e  v一个函数的基本结构是这样的：

procedure OnCreate (aStr : String);
+ t# L/ J6 a: K2 t  a" o4 [var
   定义变量
begin
   语句
end;

在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。
9 @3 P$ J) N2 ~$ c
) h' C- c; s% K6 j; {5 P1 P& G千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。
+ b9 j: s' F0 ]) k. [
4 X2 W/ z/ q! h- T/***********事件触发的函数**********/

//当有人*近时
procedure OnApproach (aStr : String);
' c) ~  J3 p$ @, Q3 r" a7 }& {) S
: [" v- ^6 \. G//当有人离开时
; k* V" ]% {6 Q" y5 rprocedure OnAway (aStr : String);
. o  }! M3 z6 d+ T/ H5 N- v
/ R0 B- b# c, x  R: ]# U//当受到掌风攻击时
procedure OnBow (aStr : String);

//当状态改变时
; G+ U0 Q0 p; A  _2 o; n3 nprocedure OnChangeState (aStr : String);

9 [& ?6 i4 W& u: e# J& B; h! k//当初始创建时
3 d2 G4 ]; R* T9 t: rprocedure OnCreate (aStr : String);
1 ]- y! b; m2 g1 m- X" |( y. p
4 v4 a( A& ^# i0 y" I) O9 [. g' O//当被双击时
7 R; m) r/ [- yprocedure OnDblClick(aStr : String);
: |3 x* X* e7 A9 A' @, M" ]+ S  q# N2 i4 A
: \8 B# a% q# w9 D3 m% S0 \& q//当死亡前
; e) _; h, G5 a# j3 a( g' ~+ Jprocedure OnDieBefore (aStr : String);

! [. c- G* c) }! e  Q" {//当死亡后
5 l8 r. ~; V" G4 X' z3 R5 Nprocedure OnDie (aStr : String);
& T! d# ~% @2 o. o0 v/ x& A  N
! W( p/ D2 a2 s5 c5 |//当被拖放物品时
procedure OnDropItem (aStr : String);

//当得到命令消息时
procedure OnGetResult (aStr : String);

& k5 ?, |: {* ~//当得到改变步长时
+ |; [5 O6 u7 c- e0 p" K( d* R; rprocedure OnGetChangeStep (aStr : String);
: O8 a# y- T7 s3 e" Q5 d% ^
//当受到攻击时
( I9 M) @+ b# X: Tprocedure OnHit (aStr : String);

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

" V$ b0 J+ t/ k& O1 K//
procedure OnRegen (aStr : String);

//
% `  n3 z" Y; s0 w  }+ V# D% @procedure OnTimer (aStr : String);
2 \4 H  x/ U, o) Y1 X2 ?& t& F
//当物件发生翻转打开时，一般是用于门
procedure OnTurnOn (aStr : String);
, ?6 b& v( x. f! @- c: L6 U) F: a! [
//当物件发生翻转关闭时，一般是用于门
! h  F/ z& A8 }1 g  U/ J( _procedure OnTurnOff (aStr : String);

/ ~9 P% U' }) g1 N1 f; V//当用户开始游戏时
procedure OnUserStart (aStr : String);

. _  B2 X! ^: L- `9 ]//当用户结束游戏时
3 K6 y1 Y$ Q2 I; ~5 Jprocedure OnUserEnd (aStr : String);
/ p9 s# I% a) g5 D% f- U
; J* j: w/ ]- ]% Y! I% Q//当移动时
function OnMove (aStr : String) : String;
0 s" h& C8 i* N! j
; S, m9 e6 ?& n) c4 \//
+ l; \8 [! `% S' C; V4 vfunction OnDanger (aStr : String) : String;
+ p3 y- u) \& b! [5 o" N
//产生一个随机数（系统函数）
function  Random (aScope: integer): integer;
- ]$ i; Y) i/ y, k' H
4 q) p& B3 Y$ X/ ^8 {. i//返回指定参数的消息（系统函数）
function  callfunc (aText: string): string;

5 ?0 p5 R: v$ g# @' T+ R" z//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
6 Y) {5 ^9 ?, V  y1 rprocedure print (aText: string);

具体参数（略），整理中...........
7 |2 K6 c# z; n& C7 j8 D. f
//转换字符串为整数（系统函数）
function  StrToInt (astr: string): integer;

//转换整数为字符串（系统函数）
7 @3 M, l& w% mfunction  IntToStr (aInt: integer): string;

; k) w8 G1 |+ g/***********事件触发的函数**********/




9 e% H" v9 i  k) t$ F
. f1 Z/ O7 J1 S1 C/ R, _3 _



% }% J" j; l! |/ O2 K6 E% B$ lfunction  callfunc (aText: string): string;   //以下为 aText参数的值

+ i6 b  ]8 b1 t: ?1 _% D/ B6 Hgetsysteminfo                    获得系统信息
! ^" G: H# S" E+ F( ^getname                          获得名字
1 m; L% T5 J( q* v( |getsendername                    获得消息发送者名字
7 Y, B$ R5 `& _0 w/ L0 B/ m# d- jgetage                           获得年龄
getsenderage                     获得消息发送者年龄
7 S8 u- G) l% a8 Mget***                           获得性别
) j/ p# j$ u0 C+ kgetsender***                     获得消息发送者性别
getid                            获得ID
getsenderid                      获得消息发送者ID
9 g3 |9 ~; l, f9 y. w1 Jgetserverid                      获得服务器ID
getsenderserverid                获得消息发送者服务器ID
findobjectbyname                 用名字查找物件
getposition                      获得位置
getsenderposition                获得消息发送者位置
& `& y& C3 S$ N, O$ y6 ]8 [getnearxy                        获得亲近的XY
9 g* s! n  m2 ^: @; E7 ~getmapname                       获得地图名字
7 V0 D/ m( I. L0 x/ g" C& igetsendermapname                 获得消息发送者地图名字
getmoveablexy                    获得移动能的XY
/ ?+ e# o' t! o5 q6 Z0 v( dgetrace                          获得种族
getsenderrace                    获得消息发送者种族
4 F0 m' a- L8 a
getmaxlife                       获得最大的生命值
, ~1 W4 \, Y% O5 Ugetsendermaxlife                 获得消息发送者最大的生命值
getmaxinpower                    获得最大的内功值
getsendermaxinpower              获得消息发送者最大的内功值
& j( I% t. A6 L7 A' Q. N( Zgetmaxoutpower                   获得最大的外功值
getsendermaxoutpower             获得消息发送者最大的外功值
getmaxmagic                      获得最大的武功值
  y% s5 v# X6 t/ B4 U) tgetsendermaxmagic                获得消息发送者最大的武功值
getlife                          获得生命值
getsenderlife                    获得消息发送者生命值

) |" W, @/ ~4 U' ~* C1 K& g( xgetinpower                       获得内功值
4 _( L2 h' I3 t; p% Kgetsenderinpower