千年脚本编写帮助

千年用的脚本是基于 Pascal语言，演化而来的，其中变量定义和函数的应用也十分的象，但不用为了写脚本而专门的去学 Pascal语言。
. z8 H8 V' x( ~# i  z
千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。
6 l' W4 v, s# z$ o. o* n
; d5 A# L- d: M) p7 Y+ V一个函数的基本结构是这样的：
3 h% N4 q  G  R! f
: a  ^3 X. D( gprocedure OnCreate (aStr : String);
var
& M0 r! H6 p& D, T+ `  d   定义变量
6 i6 K3 p% T. M" `begin
   语句
end;
* x8 F/ r! J" m5 i# F: V
在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。
( L- E' e7 {8 U  J7 u/ J
4 r  T! m; \. z+ {千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。

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

//当有人*近时
procedure OnApproach (aStr : String);
& _# y* K7 V6 ~3 v
) ^1 F4 l( \( V. m- A  e//当有人离开时
procedure OnAway (aStr : String);
; K0 F) O3 X* b7 D' [% C% R* `
//当受到掌风攻击时
6 Q2 Y' H; M* `+ zprocedure OnBow (aStr : String);
7 R  b* E' @& Z' Y0 q+ J; Z
//当状态改变时
% X# s6 I8 `$ P- [procedure OnChangeState (aStr : String);
8 j+ L4 W) p; z! e" v
# n$ ^! v* r8 E: }//当初始创建时
procedure OnCreate (aStr : String);

# i5 F% [; J# k3 y//当被双击时
procedure OnDblClick(aStr : String);

% f6 Q6 w  U/ i: t//当死亡前
procedure OnDieBefore (aStr : String);
# I0 d; t; Y/ k; f
//当死亡后
( ?, g- N( S, r: M) ]& Rprocedure OnDie (aStr : String);
7 e% J+ k' J1 _' i
1 i9 w# a# U$ c* d: @- v6 T! N//当被拖放物品时
procedure OnDropItem (aStr : String);

//当得到命令消息时
. O# f7 B; O- [6 D, C3 ]procedure OnGetResult (aStr : String);
" P8 D* Q" o- H+ P9 `. d
//当得到改变步长时
procedure OnGetChangeStep (aStr : String);
3 V1 v9 `6 T. n* N) j& U& w
//当受到攻击时
9 g0 y) m/ s. s* W& Zprocedure OnHit (aStr : String);

. O: T6 K, n3 N& p- T+ l//当被左鼠标键单击时
% S! k, Y- R% J8 c4 x2 E2 y" mprocedure OnLeftClick (aStr : String);

3 \4 U! t& l' F( G* c, j' ?//
, J. Z0 n- }/ `0 @& B& f* eprocedure OnRegen (aStr : String);

" u8 ?+ l2 ?2 Y8 |//
3 X: W& F5 t/ K+ Oprocedure OnTimer (aStr : String);

//当物件发生翻转打开时，一般是用于门
# Y. L9 g+ v% U1 P, b) C7 oprocedure OnTurnOn (aStr : String);

+ e2 K7 R, }4 T1 l* k! j" f//当物件发生翻转关闭时，一般是用于门
# {* [# U- N% ^& q0 ]+ |procedure OnTurnOff (aStr : String);
: y& F: A7 g  M
//当用户开始游戏时
procedure OnUserStart (aStr : String);

//当用户结束游戏时
procedure OnUserEnd (aStr : String);
7 R' d8 J6 R4 S" r* F0 w+ P5 l
//当移动时
function OnMove (aStr : String) : String;
* S& M$ o0 g! Q
( ~/ H  e% V2 @9 q  D8 m//
function OnDanger (aStr : String) : String;
# v, a' E4 G# e+ F4 t5 y
! _( l  _- g& ]( W+ p! [# ]+ t//产生一个随机数（系统函数）
function  Random (aScope: integer): integer;
8 ?* q1 M8 o  Q$ E0 ^
$ N5 h7 i% f7 \! ]8 k//返回指定参数的消息（系统函数）
8 P1 `8 w! t& g1 I9 j# F/ sfunction  callfunc (aText: string): string;
) V  M$ F# o- Q* e
//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
, t& Q: J2 s* n. dprocedure print (aText: string);
$ o2 D3 P( e' g
( J# S7 r( I- U1 {具体参数（略），整理中...........

//转换字符串为整数（系统函数）
  i9 O, X& {* u( `# W0 }function  StrToInt (astr: string): integer;

' Y3 r$ V! i) U- ~# ~//转换整数为字符串（系统函数）
, o5 {7 Q4 X' x) B1 f! O* H* Sfunction  IntToStr (aInt: integer): string;

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

1 Y% v( c. ~- J: \( ~


% k7 p+ q* N4 D
# Q9 O! N$ v+ O1 j/ \
/ i* f: F' _. ^, M* z! |
8 ?5 D( @2 h, I. M- t+ u
' r- A* ^2 U2 Q/ B
function  callfunc (aText: string): string;   //以下为 aText参数的值

" V0 `8 Z+ A! X: g1 E: q; q& Lgetsysteminfo                    获得系统信息
getname                          获得名字
getsendername                    获得消息发送者名字
getage                           获得年龄
getsenderage                     获得消息发送者年龄
% Y% r  s1 i  n" \get***                           获得性别
getsender***                     获得消息发送者性别
4 Z0 ?) n& J& T( U% dgetid                            获得ID
( l6 q) s/ E, B: P1 l8 r  Wgetsenderid                      获得消息发送者ID
6 P- ~( o3 \( S- e  N6 C. Dgetserverid                      获得服务器ID
: c/ R3 e+ h9 j+ }- Y# zgetsenderserverid                获得消息发送者服务器ID
8 L5 E6 d8 s6 R" f8 L; W7 Efindobjectbyname                 用名字查找物件
) M' ]  K2 v; V9 `# Rgetposition                      获得位置
getsenderposition                获得消息发送者位置
% D1 H; x7 Q, ], q) I. Pgetnearxy                        获得亲近的XY
( `, ~; x4 ?# i7 g  k9 J1 ~getmapname                       获得地图名字
getsendermapname                 获得消息发送者地图名字
getmoveablexy                    获得移动能的XY
' f- S2 D; Q9 N2 ngetrace                          获得种族
9 r/ F- r/ C' g9 d' e+ Vgetsenderrace                    获得消息发送者种族
9 U7 p5 |- B, Z
getmaxlife                       获得最大的生命值
& X4 p- u/ S4 p; u6 }( w8 Qgetsendermaxlife                 获得消息发送者最大的生命值
" Q9 ^' T  h! E- g3 A. agetmaxinpower                    获得最大的内功值
2 t$ Y$ V' V+ L6 {+ Hgetsendermaxinpower              获得消息发送者最大的内功值
getmaxoutpower                   获得最大的外功值
. T" i1 P5 ]3 q. ogetsendermaxoutpower             获得消息发送者最大的外功值
getmaxmagic                      获得最大的武功值
getsendermaxmagic                获得消息发送者最大的武功值
getlife                          获得生命值
) _# u5 m8 {, o* ^getsenderlife                    获得消息发送者生命值

getinpower                       获得内功值
getsenderinpower