千年脚本编写帮助

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

% e4 g# E& @6 K千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。

一个函数的基本结构是这样的：
# y7 r* K6 o- S( g! ^0 ]* X
) K- U' x7 }/ i  u2 o2 `# S9 qprocedure OnCreate (aStr : String);
var
: n6 k& z8 _! s) N* _: d   定义变量
$ e9 d: I0 Y8 P! [1 |begin
! C/ f# b. e. O: a   语句
end;
7 o& x  _6 o. ?0 l- L) _1 r# |+ ^
5 }  r& }' K4 g- B: J6 z- ^) g在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。

' Q% B3 e( M& b6 a, u  L千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。
- I% Q# n" i5 {6 J! V
/ C2 d4 [6 I$ @* |8 g/***********事件触发的函数**********/
$ I& Z# C% T# L" V* r
# [( R7 D* Y2 X//当有人*近时
procedure OnApproach (aStr : String);

. y1 m0 {2 [6 n//当有人离开时
procedure OnAway (aStr : String);

: O/ R* ~; Q5 x# @//当受到掌风攻击时
procedure OnBow (aStr : String);

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

//当初始创建时
: l. c( b8 v8 G7 a% x/ fprocedure OnCreate (aStr : String);
' @0 J5 P) m! L5 @: B
7 E8 r$ l" I& w1 s//当被双击时
4 A( D) F6 ]8 }$ s( X5 r! D( Xprocedure OnDblClick(aStr : String);

//当死亡前
) v; S" ?, x9 S* q& n, O5 {procedure OnDieBefore (aStr : String);

2 r9 k' \- G+ I' b0 K4 ?2 |//当死亡后
procedure OnDie (aStr : String);
3 R& @' ~( ^, C1 K. E/ `
//当被拖放物品时
4 n; y  l& @3 e$ W! f  ^9 S/ q3 ^procedure OnDropItem (aStr : String);

$ g2 u; t  [5 J4 b2 {7 W//当得到命令消息时
/ E4 y& t; d2 J& a% {7 jprocedure OnGetResult (aStr : String);

//当得到改变步长时
3 y1 J( M. I) Jprocedure OnGetChangeStep (aStr : String);

! K4 y/ w. _! n% p' x' {//当受到攻击时
* a: Z" o$ S% x" [6 Uprocedure OnHit (aStr : String);

$ ?7 M* m( E% ?, c* W9 a& m//当被左鼠标键单击时
procedure OnLeftClick (aStr : String);

, E* r7 w4 _7 K2 L! x) j6 o2 W//
) t- B( `4 d- l) ~9 Pprocedure OnRegen (aStr : String);

//
4 S* ~, x5 k: x1 H9 \procedure OnTimer (aStr : String);
- X! B/ L4 p3 t+ f4 @; O- S! `- N
  [/ F8 N, S! W* G//当物件发生翻转打开时，一般是用于门
) n9 T" P- v' _+ iprocedure OnTurnOn (aStr : String);

, |; h3 ], X% ]8 U5 J( n. c//当物件发生翻转关闭时，一般是用于门
2 r: Y; H$ K, v' e  n- vprocedure OnTurnOff (aStr : String);

7 g* ?5 x( i9 d1 e; A, R- m1 s  }% i//当用户开始游戏时
, P3 b; O4 Z1 e$ lprocedure OnUserStart (aStr : String);

' B( N% Z9 U& r9 k& ?* D//当用户结束游戏时
1 Y9 Y2 ]% _7 mprocedure OnUserEnd (aStr : String);
1 m$ E/ [2 r8 b. \, \3 ~( @
//当移动时
function OnMove (aStr : String) : String;

//
- T: S" K: T, W( B/ Qfunction OnDanger (aStr : String) : String;
; O1 S. |- F/ c5 l! v
//产生一个随机数（系统函数）
: ]9 M0 K; d6 D* K- X2 s1 Wfunction  Random (aScope: integer): integer;
  l) I1 r4 }9 ]( Y
//返回指定参数的消息（系统函数）
  L. Q0 V; R" V* P! h1 sfunction  callfunc (aText: string): string;
/ N2 j. p; H: L% @/ q$ ]
//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
6 x& `: A0 q, l, S6 bprocedure print (aText: string);

: j2 h: F( O% n" k具体参数（略），整理中...........
( d: G: k8 o5 v! n/ s3 M
//转换字符串为整数（系统函数）
function  StrToInt (astr: string): integer;
; C5 G3 j2 z) z# i, h' n) z/ C
$ R6 @/ z" ]  B! d0 W8 M//转换整数为字符串（系统函数）
: }, y/ a6 I3 S# Ofunction  IntToStr (aInt: integer): string;

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

' g0 \& g5 ^) S4 z




* t# Q8 g( P- B5 u
2 |& F) ]8 _2 a2 b6 {
1 o5 I+ |" K0 h3 \3 o6 K
4 @! N3 n, c( h* Ifunction  callfunc (aText: string): string;   //以下为 aText参数的值

getsysteminfo                    获得系统信息
  `6 Q+ C6 n* e! Sgetname                          获得名字
getsendername                    获得消息发送者名字
2 V8 ~) R- P9 n2 R+ J. K; Tgetage                           获得年龄
6 }5 a' V* l4 l3 K  v3 e) i* T+ u! P: tgetsenderage                     获得消息发送者年龄
get***                           获得性别
& x# r/ y* {3 [# Ngetsender***                     获得消息发送者性别
getid                            获得ID
; G/ r7 s9 c! F7 p) C6 ygetsenderid                      获得消息发送者ID
7 o; D1 g* j) F7 ggetserverid                      获得服务器ID
getsenderserverid                获得消息发送者服务器ID
findobjectbyname                 用名字查找物件
6 t! p! m" }9 Ygetposition                      获得位置
getsenderposition                获得消息发送者位置
) d) d/ O4 r' Z) e; Hgetnearxy                        获得亲近的XY
getmapname                       获得地图名字
! |& m8 h% O% v+ T, K/ J, |3 x4 [getsendermapname                 获得消息发送者地图名字
getmoveablexy                    获得移动能的XY
getrace                          获得种族
' ~5 @' [; I& {1 bgetsenderrace                    获得消息发送者种族
, B' y1 b+ l0 ~
getmaxlife                       获得最大的生命值
5 Q% J. _5 W$ x0 a) j; p3 Jgetsendermaxlife                 获得消息发送者最大的生命值
getmaxinpower                    获得最大的内功值
2 S/ k+ ?+ L2 \! M* C% n+ igetsendermaxinpower              获得消息发送者最大的内功值
( J# r5 w6 y8 [# w2 J  ?; [getmaxoutpower                   获得最大的外功值
5 v# S+ p4 l  k; Lgetsendermaxoutpower             获得消息发送者最大的外功值
* J1 s1 v2 A/ Z* m' Egetmaxmagic                      获得最大的武功值
getsendermaxmagic                获得消息发送者最大的武功值
getlife                          获得生命值
getsenderlife                    获得消息发送者生命值

getinpower                       获得内功值
getsenderinpower

" Y' n" ?, _! }  e; e