千年脚本编写帮助

千年用的脚本是基于 Pascal语言，演化而来的，其中变量定义和函数的应用也十分的象，但不用为了写脚本而专门的去学 Pascal语言。
2 W: N7 Q2 C0 ~2 S
千年有三个常用的数据类型，String 字符串型，Integer 整型，Boolean 布尔型。
8 P) Q( X* \; L3 M: n. o# b3 o
& C: [# ?$ v; s9 j- ~一个函数的基本结构是这样的：

! X4 q3 [  }2 ]7 Hprocedure OnCreate (aStr : String);
var
   定义变量
4 \# T' }2 r4 [7 [2 l3 Tbegin
5 B% g! H- ?1 ]  w3 J: x; S   语句
' k$ u* W* i+ Jend;
- H3 E0 M$ c7 G" K
, L9 L  F; w; E* \$ p! v$ Y) N, @在每个脚本的前面都会看到一堆函数，这些是千年的库函数，可以直接拿来使用的。例如：callfunc (aText: string) ，可以返回一些信息，具体返回什么由括号里面的 aText参数决定，这些参数在下面会给出。Random (aScope: integer)，可以产生 aScope范围内的随机整数。
2 f: h; p" N4 q) N9 `
3 D4 d# f9 p( F. {千年中有两个非常重要的函数，一个是 print，另外一个是 callfunc，用法和参数比较复杂。
* u0 }4 B, S0 w* v& \
4 V3 u: q: B( b' }* X/***********事件触发的函数**********/

* s3 R, C1 I+ h+ o//当有人*近时
# ?- H& l$ |5 [8 K5 cprocedure OnApproach (aStr : String);
. ]; W4 Z3 y2 @, g  j: Z8 q" G% |
//当有人离开时
1 l/ k# b4 [8 X$ `- m5 Tprocedure OnAway (aStr : String);

' f+ U9 X' t, u# ?7 h7 `/ c//当受到掌风攻击时
procedure OnBow (aStr : String);
2 y9 d" j; Z  g4 _, V4 a  f4 |( ~
; w1 Y4 w. o6 U0 m, _//当状态改变时
procedure OnChangeState (aStr : String);
+ M# D0 ~6 q7 U/ j& y) o
8 H  C2 ]6 r  q6 D5 _* i$ j//当初始创建时
procedure OnCreate (aStr : String);
: i/ @3 b2 o$ k* |
//当被双击时
procedure OnDblClick(aStr : String);

//当死亡前
procedure OnDieBefore (aStr : String);
  S9 L8 M' Z/ d, U) `
//当死亡后
: T' r( x# H2 s' Wprocedure OnDie (aStr : String);

//当被拖放物品时
) x5 f9 c" \4 Vprocedure OnDropItem (aStr : String);
6 s7 \/ a5 \5 s$ q
, w3 r/ W: z* W$ o% a7 t: T//当得到命令消息时
4 q% u# [4 s4 w' _procedure OnGetResult (aStr : String);
' i2 X9 O0 S$ h  H7 {! {- a* X
//当得到改变步长时
procedure OnGetChangeStep (aStr : String);

3 O0 ?1 r1 a' F//当受到攻击时
: ]" P# k& q+ Pprocedure OnHit (aStr : String);

/ C1 c' |" p8 b7 M//当被左鼠标键单击时
$ }! f% z  g6 W& ^procedure OnLeftClick (aStr : String);
% M8 E3 g" j+ l( B" u: O
//
4 C/ J8 d4 Q$ ^4 Q" {6 Yprocedure OnRegen (aStr : String);

//
/ ?7 C; g/ j% r& fprocedure OnTimer (aStr : String);
# c( E+ a% {7 a$ y6 J: f% k4 |9 h
//当物件发生翻转打开时，一般是用于门
8 _1 W1 m* J* u2 K3 R  J. Dprocedure OnTurnOn (aStr : String);

//当物件发生翻转关闭时，一般是用于门
procedure OnTurnOff (aStr : String);

- _; Y& ~# u- }/ H; M" A$ G1 z) f  D//当用户开始游戏时
procedure OnUserStart (aStr : String);
" J. p6 V' d8 q
//当用户结束游戏时
' ?1 r- u" \7 Nprocedure OnUserEnd (aStr : String);

//当移动时
function OnMove (aStr : String) : String;
0 k3 @7 j  r6 j" Q. H
% ]* `1 i( p/ Z) d5 D' @" u( i//
function OnDanger (aStr : String) : String;

//产生一个随机数（系统函数）
function  Random (aScope: integer): integer;
+ d' S. |$ j: V3 v6 F! C' X! J
//返回指定参数的消息（系统函数）
5 z5 W9 L3 \; B/ }9 Wfunction  callfunc (aText: string): string;
" E8 G' y+ @# y0 J) @" R5 r  f1 i
//执行一条命令，可以是说话、传送、获得玩家的物品等（系统函数）
5 a0 `# S- P( P+ k& ?+ C2 A: Zprocedure print (aText: string);

具体参数（略），整理中...........

) K) Y" F4 P" x4 s- t6 y- V//转换字符串为整数（系统函数）
7 \* L! R* ]1 g3 }function  StrToInt (astr: string): integer;
5 d- z" Y4 J7 N/ k
/ ]7 n" G/ v% Q. f+ N//转换整数为字符串（系统函数）
function  IntToStr (aInt: integer): string;
( I9 t# g, v7 G5 J$ w' H4 Z
$ K+ R+ _% `2 q* P+ E! `$ `' z( F/***********事件触发的函数**********/

, p: P# M% t. n$ Y4 I( w5 z
2 L4 [9 ]1 K2 {, h
6 K" @. c( I) d( h




0 {7 V$ v2 j) A. e' P/ g+ j2 M  w
: l5 R- B7 |# w1 }, N0 Rfunction  callfunc (aText: string): string;   //以下为 aText参数的值

getsysteminfo                    获得系统信息
1 @& V5 W! C) W" S1 Zgetname                          获得名字
getsendername                    获得消息发送者名字
getage                           获得年龄
& `8 V$ T; c$ X4 P+ z' c/ ^getsenderage                     获得消息发送者年龄
1 }9 m6 p& Q# ^5 _  s7 e( ^get***                           获得性别
; N) _1 [- i, T! Q( E* t4 U6 dgetsender***                     获得消息发送者性别
getid                            获得ID
9 O+ \- [; C6 B) x  ~8 Lgetsenderid                      获得消息发送者ID
getserverid                      获得服务器ID
8 q7 T4 [' c4 f4 G3 hgetsenderserverid                获得消息发送者服务器ID
findobjectbyname                 用名字查找物件
6 c5 M3 Z# G- Y! G$ ?8 fgetposition                      获得位置
getsenderposition                获得消息发送者位置
getnearxy                        获得亲近的XY
getmapname                       获得地图名字
0 s& ^( \: r! E$ S+ F0 _- U6 Jgetsendermapname                 获得消息发送者地图名字
getmoveablexy                    获得移动能的XY
getrace                          获得种族
- {& A2 I0 o: G! E# S5 k( Rgetsenderrace                    获得消息发送者种族

getmaxlife                       获得最大的生命值
8 y& \$ R* p# H1 Wgetsendermaxlife                 获得消息发送者最大的生命值
getmaxinpower                    获得最大的内功值
8 [$ q4 q  ~; o6 Vgetsendermaxinpower              获得消息发送者最大的内功值
7 B7 D! A! K8 N0 p% ?- h% @getmaxoutpower                   获得最大的外功值
* a! x) D. G7 {  z9 R2 lgetsendermaxoutpower             获得消息发送者最大的外功值
getmaxmagic                      获得最大的武功值
getsendermaxmagic                获得消息发送者最大的武功值
getlife                          获得生命值
getsenderlife                    获得消息发送者生命值

- T6 d8 i2 C7 @8 R$ M( }getinpower                       获得内功值
getsenderinpower

; ]: C1 v- T2 j! E