任务策划介绍

任务策划：
7 G: _8 q# S5 T- U9 }出入江湖，当然要证明自己的实力。什么？？实力？还是先证明你的力量吧！
来到新手村杀牛，牛爆牛皮、牛肉、牛角（有点残忍）
& X& z5 ?, d! Z. |! j8 d6 f收集这些材料交给屠夫，他会奖励你东西
这里，我们设计用牛皮换金币，牛肉换银币，牛角换牛俊弓服。

! c# i9 a* O8 }" t# B  b目的：
( V8 i2 r; Z1 N. r体会最基本的活动都是怎么设计的
) T8 Z0 J4 z" v# X  g. v
: C$ W1 a8 V5 j0 l知识点：
1、检测包裹里的物品
2、检测包裹空间
3、给与物品
4 U2 Z3 G) q* a; a; {4、没收物品

//这部分先声明脚本的名字。如果脚本出错，tgs会做一个错误纪录，文件名就是我们声明的这个。
0 g% P; V' @0 u+ z" H4 ~
unit 屠夫;

. D3 |, \6 S5 L$ V, X//下面的是通用的调用程序内建的函数。每个脚本都有的。

. P/ w/ B  y# Y4 b; x$ ]9 A1 S* kinterface

function  GetToken (aStr, aToken, aSep : String) : String;
* m8 T4 c6 c5 A5 H8 U) {/ Dfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
0 C( J; N1 ?6 s6 o  zfunction  callfunc (aText: string): string;
procedure print (aText: string);
3 Z& ~. y, ^4 y+ J" }function  Random (aScope: integer): integer;
0 g! G3 D2 N1 V' G; V1 i6 Wfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
5 @( i! L/ h; B8 w$ k& hfunction  IntToStr (aInt: integer): string;
procedure exit;
1 R6 k3 Y4 b2 o! v3 V* f8 `2 {
//下面的就是针对本脚本的函数了。注意，用到什么就在这里声明什么

6 ]0 _, a# S7 }' t//第一句的意思是当反馈参数的时候响应，比如牛肉换东西，我们弄个参数niurou
/ t+ F! K  q( d
/ b4 O8 q8 w" h) p6 X2 T//第二句的意思是当左键单击的时候响应，

procedure OnGetResult (aStr : String);
! a. k6 I9 x6 C5 Oprocedure OnLeftClick (aStr : String);
& @  F0 Y9 x* J0 x" q+ P
//以上是脚本的头部，下面是脚本的主体部分

! z, |: y5 U2 P! c5 t# F( Wimplementation

//当左键单击时

procedure OnLeftClick (aStr : String);

//声明变量的类型
var

//Str变量为字符串型
   Str : String;

! G! b, J' l( c! B1 `//Race变量为整型
   Race : Integer;
7 u# A9 ?* u4 g# S5 E8 dbegin

//获取点击者的种族
1 M  ~: Y9 J; r+ b   Str := callfunc ('getsenderrace');
- c% b: O( }+ g9 m, n4 b) n
( s; _) b* ~5 w. S6 c8 Y9 s//将获取的值由字符串型转换成整型
+ i* ~' D3 f: B' R# @7 U   Race := StrToInt (Str);

- Y% c$ {& U& ^. X, c+ y" \) u//如果种族为1，这里种族为1代表是玩家
9 J$ W% E' H8 I7 |0 ?8 S' d' C   if Race = 1 then begin

//那么调出Help文件夹下的对话框 注意，这里对话框的类型是1 也就是不带滚动条的那种
      Str := 'showwindow .\help\屠夫.txt 1';
5 O( V' H' ^3 w+ F8 X4 I: z( G9 q: U      print (Str);

) A! {1 ~+ R* \//小判断结束
& o5 b, s. l5 M      exit;
   end;
0 H7 |# @* f5 D- ?. V
//一个语句段结束
end;
7 F: _2 {( Z& G5 @% t
//另一个语句段开始