千年脚本编写帮助

千年用的脚本是基于 Pascal语言，演化而来的，其中变量定义和函数的应用也十分的象，但不用为了写脚本而专门的去学 Pascal语言。
, }4 V$ r/ R1 K) s$ }/ k
* D; [' `6 P# m, d8 n! L千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。

一个函数的基本结构是这样的：
3 r3 e7 d. S9 y" T
! B) P4 N7 C* V0 J. vprocedure OnCreate (aStr : String);
7 a; U6 t) a0 `var
8 o' z9 [1 Q6 W) f& }  y3 U   定义变量
5 Y) M, M; H) X4 _begin
   语句
end;

# c" I) ?9 V( s( D3 ~2 c  p4 A! `在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。
! g. ?# ?- E+ T
千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。

/***********事件触发的函数**********/
( y/ Y$ m* o% {7 A; e
  s8 L7 C  Q, `$ X//当有人*近时
procedure OnApproach (aStr : String);

//当有人离开时
procedure OnAway (aStr : String);

//当受到掌风攻击时
procedure OnBow (aStr : String);

+ a5 |3 \# I+ |. ~3 p/ c//当状态改变时
2 k- z) a9 m, d' ~" qprocedure OnChangeState (aStr : String);

8 q, a1 W: S) s' i//当初始创建时
+ B) u& t, ~' b; lprocedure OnCreate (aStr : String);

//当被双击时
procedure OnDblClick(aStr : String);

' T/ e5 w9 @7 V3 p3 k- b  A  f8 f//当死亡前
& n3 F' X- O$ G7 w$ Eprocedure OnDieBefore (aStr : String);
; K; B( K2 i; `: Z# E# Y
//当死亡后
' E/ ]/ T" A9 m6 _procedure OnDie (aStr : String);
6 i( U6 d3 Q& C
//当被拖放物品时
procedure OnDropItem (aStr : String);

" s6 Q- c6 ^1 W4 n3 Z; P//当得到命令消息时
0 L, F& t- S/ @0 kprocedure OnGetResult (aStr : String);
* ]( x) Y, t4 i) u/ l8 k' T7 w  ~
* G* \- z9 L& w//当得到改变步长时
* o/ T5 w8 D" ^& k& p1 w; `procedure OnGetChangeStep (aStr : String);

+ X% j( `  V7 X" G# I" b//当受到攻击时
& f* g" z/ r2 r% K9 A! D/ v) @6 iprocedure OnHit (aStr : String);
8 o: \& Y& r3 b6 v9 K8 h. X4 O- {
//当被左鼠标键单击时
procedure OnLeftClick (aStr : String);
3 V7 q6 v5 `* U0 j8 b
) b4 u3 W. Z$ s; l//
procedure OnRegen (aStr : String);

( `; e! F( n- c: V+ k7 L, t( {//
2 Y/ b& Q  i. K0 `6 n- `procedure OnTimer (aStr : String);

//当物件发生翻转打开时，一般是用于门
8 a7 Y" m, F, t3 p; F( \& vprocedure OnTurnOn (aStr : String);
* s  A* @) ^! }! Q* q+ c
* f# J" x6 ^9 E, n: u- R//当物件发生翻转关闭时，一般是用于门
procedure OnTurnOff (aStr : String);

* t4 f* m' @5 @% T//当用户开始游戏时
procedure OnUserStart (aStr : String);
: U7 O7 U5 N9 c6 M0 w" @
) e% H0 N( o8 [. c+ Q' f//当用户结束游戏时
# E* x6 p7 x: u$ \# g) Mprocedure OnUserEnd (aStr : String);

//当移动时
function OnMove (aStr : String) : String;

+ x; a6 R  ?6 r0 U# ^//
% i8 o6 Q; G) W4 k; xfunction OnDanger (aStr : String) : String;

) D. y; f" p4 W# X, m' c//产生一个随机数（系统函数）
function  Random (aScope: integer): integer;

" P+ v# w" ~. c: j, T) P. b//返回指定参数的消息（系统函数）
+ K: S# C3 N  wfunction  callfunc (aText: string): string;
% }4 E: C  p) @6 v
//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
procedure print (aText: string);
, `1 j( u1 R# V7 [
& P5 v- p6 L+ A% r4 m7 E具体参数（略），整理中...........

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

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

0 `- n2 T; D- u) ~* a' _* K/***********事件触发的函数**********/
4 L" l. V) C8 y

8 R5 b: [2 b4 i. S1 X% o
+ [$ }; I" F( E" Y
3 V$ J5 ~7 `3 |

% G$ t1 l* o1 N6 p5 A6 g/ y
& X; ~+ `$ [, t0 R

function  callfunc (aText: string): string;   //以下为 aText参数的值
5 a* H$ Q2 ~) v/ I+ A+ A8 i
, ]' s+ M! X  m+ Dgetsysteminfo                    获得系统信息
getname                          获得名字
! Z$ W+ j5 a8 o$ i9 ~5 `% D2 Tgetsendername                    获得消息发送者名字
9 [/ P  r/ J+ D+ ]. i+ sgetage                           获得年龄
getsenderage                     获得消息发送者年龄
9 t7 k4 B3 m& u1 k$ h$ d* sget***                           获得性别
& d4 o) A  j+ E/ C: I! Fgetsender***                     获得消息发送者性别
  U' F$ Z2 x. S. Q$ y8 zgetid                            获得ID
getsenderid                      获得消息发送者ID
getserverid                      获得服务器ID
* X/ B# @8 R2 t8 C% e* U& [& ?getsenderserverid                获得消息发送者服务器ID
' s4 s8 i; K7 L0 {( Cfindobjectbyname                 用名字查找物件
3 J9 S! z' n6 @# m- o: g- egetposition                      获得位置
getsenderposition                获得消息发送者位置
  i# j8 t) b% K) n6 P* ^% Q0 tgetnearxy                        获得亲近的XY
0 k0 u! d3 k# e# m+ k6 j3 T1 B5 Jgetmapname                       获得地图名字
getsendermapname                 获得消息发送者地图名字
getmoveablexy                    获得移动能的XY
8 T: @0 T, P+ O  u+ Q/ r; Ggetrace                          获得种族
9 K/ R  k8 L- L  t$ Rgetsenderrace                    获得消息发送者种族
! k" m7 J+ j( p2 P8 g, `/ f# w
+ H1 `. W4 Q0 h5 t3 Ggetmaxlife                       获得最大的生命值
1 b1 @! U3 k6 s6 Q6 Igetsendermaxlife                 获得消息发送者最大的生命值
2 t$ ?' d9 u6 Lgetmaxinpower                    获得最大的内功值
% u+ D' R$ ?- t* N, ggetsendermaxinpower              获得消息发送者最大的内功值
getmaxoutpower                   获得最大的外功值
getsendermaxoutpower             获得消息发送者最大的外功值
getmaxmagic                      获得最大的武功值
getsendermaxmagic                获得消息发送者最大的武功值
6 B1 D% n- W( ^7 ^- B% lgetlife                          获得生命值
getsenderlife                    获得消息发送者生命值
7 d$ z) b- }. n. r8 {* O8 E
2 C% X6 j& a# g# Dgetinpower                       获得内功值
getsenderinpower