千年脚本编写帮助

千年用的脚本是基于 Pascal语言，演化而来的，其中变量定义和函数的应用也十分的象，但不用为了写脚本而专门的去学 Pascal语言。
: y& V2 @+ ?1 \( r/ C" e$ H
千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。

+ b0 h" ^5 t! c4 ]; r2 _, m一个函数的基本结构是这样的：
: m: t% c; |4 B* |3 K7 K) e( J
procedure OnCreate (aStr : String);
var
   定义变量
begin
   语句
end;

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

, A7 Y7 Z3 P  z) ^0 t2 b- f7 p千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。
1 b6 R; C1 E& v. |: J' B
. A& i7 {) p- f0 h0 B0 h$ r/***********事件触发的函数**********/
1 E# ], v0 p8 }1 E6 {
9 a/ E# ~. @" b$ I, A6 x  T' n7 ~! N( m//当有人*近时
procedure OnApproach (aStr : String);
- ^7 m6 p& v- K; I: r
//当有人离开时
$ Y6 C* Z/ c: I. p/ dprocedure OnAway (aStr : String);
1 X. X+ E# ?" |% {7 ?
//当受到掌风攻击时
3 e0 {4 z9 M# F- ]! cprocedure OnBow (aStr : String);

//当状态改变时
procedure OnChangeState (aStr : String);

//当初始创建时
+ P& s+ W' h3 nprocedure OnCreate (aStr : String);

( e" a' ^0 i) N3 j//当被双击时
" U9 Z$ e2 \4 F+ C6 r# ^; p+ A6 Cprocedure OnDblClick(aStr : String);

//当死亡前
procedure OnDieBefore (aStr : String);
  j4 `" F/ T6 U" H3 D
# X2 e& J5 k* t, Z+ @9 E//当死亡后
procedure OnDie (aStr : String);

//当被拖放物品时
procedure OnDropItem (aStr : String);
  P! C4 o1 a$ @2 m' _7 L% S
//当得到命令消息时
3 X* l! @( b) J5 |) P: Q+ _procedure OnGetResult (aStr : String);

//当得到改变步长时
: P+ t4 Y" |7 A( B' ?" i2 \procedure OnGetChangeStep (aStr : String);
* O/ M! b" @& p" p* v: z
//当受到攻击时
: D8 u  h* m* V. }( O7 G3 mprocedure OnHit (aStr : String);

//当被左鼠标键单击时
- Z0 y: ]/ B! L! G: Q4 iprocedure OnLeftClick (aStr : String);

8 j' S8 ~7 D8 K7 f/ `//
2 [0 f! m# M5 q# O- Sprocedure OnRegen (aStr : String);

, i- G% b# J$ ?; }0 w. d' U/ M//
  U5 E+ z9 K" ?procedure OnTimer (aStr : String);
, n6 |0 G! Y' a  N% ~
//当物件发生翻转打开时，一般是用于门
4 [* J9 D0 ~5 N7 {" Z% iprocedure OnTurnOn (aStr : String);
/ ^$ t7 S7 ~) e3 z
( ?4 D4 Z+ z; {' q//当物件发生翻转关闭时，一般是用于门
procedure OnTurnOff (aStr : String);

# L, D# d+ N  e//当用户开始游戏时
procedure OnUserStart (aStr : String);
' I1 t, H* c2 k( G
//当用户结束游戏时
procedure OnUserEnd (aStr : String);

7 X4 H4 i2 o) l: v6 Z9 J. y% V$ v4 E//当移动时
function OnMove (aStr : String) : String;

  J; L1 C5 E. s) _4 J+ J9 j//
function OnDanger (aStr : String) : String;

( z  D" U3 o* u6 J4 r+ Z6 T; q//产生一个随机数（系统函数）
, g/ m" K# O& }1 X3 \function  Random (aScope: integer): integer;

$ k: p# h9 h3 ^3 _- N/ K' X//返回指定参数的消息（系统函数）
9 v3 v4 Y/ A: B% A3 W2 q! ufunction  callfunc (aText: string): string;
) y  \! ^4 ^5 V* m% ]! V9 O$ {+ S
//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
procedure print (aText: string);
: D1 E7 B1 X8 `* _
" z6 R( q& W3 @* |- `/ x; Y具体参数（略），整理中...........

//转换字符串为整数（系统函数）
; H3 A. |$ k5 p7 v, \function  StrToInt (astr: string): integer;

//转换整数为字符串（系统函数）
function  IntToStr (aInt: integer): string;
! L% K) V% `6 s4 _8 T+ k
# `! m( F; I* }- ?- a/***********事件触发的函数**********/

) ]& R6 m7 X( g' W$ e, T  r3 Z, ?






7 J$ C& j; V, \* b" c& G7 O
function  callfunc (aText: string): string;   //以下为 aText参数的值

getsysteminfo                    获得系统信息
( O' i* |& L4 B+ B* sgetname                          获得名字
, U2 B9 S# a' R% W( m  }* L$ Ugetsendername                    获得消息发送者名字
& k! [) T5 {' g( B0 ^2 L, F  Fgetage                           获得年龄
getsenderage                     获得消息发送者年龄
get***                           获得性别
getsender***                     获得消息发送者性别
- E9 g; j! J4 U& K8 dgetid                            获得ID
+ V; X# m7 k" u6 I) ngetsenderid                      获得消息发送者ID
& y3 P5 _: o5 d1 F# [getserverid                      获得服务器ID
getsenderserverid                获得消息发送者服务器ID
findobjectbyname                 用名字查找物件
. C) g" I* D& K$ _" |- ggetposition                      获得位置
  f7 K, i9 x# z5 H4 ]getsenderposition                获得消息发送者位置
! h4 p$ ~# S. i0 `+ Y: m' _3 j/ Tgetnearxy                        获得亲近的XY
& j$ ]0 N! w! }getmapname                       获得地图名字
getsendermapname                 获得消息发送者地图名字
. _" F8 G7 h, X' Bgetmoveablexy                    获得移动能的XY
! D# h; z0 s8 y7 d$ C7 Rgetrace                          获得种族
. B0 w. M1 v- e- f) J! E2 F! Y( Cgetsenderrace                    获得消息发送者种族
9 D, S* l& o7 w1 D1 I
8 L% T5 d4 ]3 K% B! N$ z, Qgetmaxlife                       获得最大的生命值
getsendermaxlife                 获得消息发送者最大的生命值
  B8 w8 q0 h" N/ N' dgetmaxinpower                    获得最大的内功值
7 S6 @0 G7 r4 U) Ngetsendermaxinpower              获得消息发送者最大的内功值
; ?5 ]8 l. n2 j* W3 B# tgetmaxoutpower                   获得最大的外功值
getsendermaxoutpower             获得消息发送者最大的外功值
getmaxmagic                      获得最大的武功值
getsendermaxmagic                获得消息发送者最大的武功值
2 }, H9 |- k: c9 w! _, Agetlife                          获得生命值
& \8 x6 A/ N# ?$ igetsenderlife                    获得消息发送者生命值
9 ?, G: H; H9 ~
getinpower                       获得内功值
getsenderinpower

% L7 a4 `3 [* @