任务策划介绍

任务策划：
8 R+ I3 \/ O' b出入江湖，当然要证明自己的实力。什么？？实力？还是先证明你的力量吧！
来到新手村杀牛，牛爆牛皮、牛肉、牛角（有点残忍）
6 F; P' K5 B1 U" @" f收集这些材料交给屠夫，他会奖励你东西
1 v1 p4 \; S6 b# {/ c这里，我们设计用牛皮换金币，牛肉换银币，牛角换牛俊弓服。

5 p  U6 i- X5 U+ i, ^1 G目的：
体会最基本的活动都是怎么设计的
( V( c6 M3 j  O' }6 B6 ?
知识点：
1、检测包裹里的物品
2、检测包裹空间
3、给与物品
4、没收物品

//这部分先声明脚本的名字。如果脚本出错，tgs会做一个错误纪录，文件名就是我们声明的这个。
* K( ?- W7 Y2 {1 ~9 `( o5 I
unit 屠夫;
: F# V" K5 s# I3 Q1 E0 k2 v) k  @* a
//下面的是通用的调用程序内建的函数。每个脚本都有的。

! S: `" U( O7 dinterface

function  GetToken (aStr, aToken, aSep : String) : String;
- z9 ~/ l3 C! ?! qfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
8 p& x9 n8 b4 m' ?6 `function  callfunc (aText: string): string;
* K6 P; |% J, `$ E; {procedure print (aText: string);
function  Random (aScope: integer): integer;
  a9 M% U. r6 {9 Y* p- pfunction  Length (aText: string): integer;
: b( n- j  I, v& c% m7 aprocedure Inc (aInt: integer);
  d* k3 Q7 Y9 c% j# lprocedure Dec (aInt: integer);
7 c' M& v: |0 J3 ~* x+ \) z3 zfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

//下面的就是针对本脚本的函数了。注意，用到什么就在这里声明什么

4 I! w" z' i& t0 M, i, b# z. c) {. g//第一句的意思是当反馈参数的时候响应，比如牛肉换东西，我们弄个参数niurou
' Z) t# Z6 x6 E* N& x. j
) P* R8 B9 M) F6 o# {6 X3 W//第二句的意思是当左键单击的时候响应，

procedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);

2 }, S0 N1 `. g$ F6 f/ Y2 T5 j* n//以上是脚本的头部，下面是脚本的主体部分

implementation
* e; F: e6 u& A% W1 V/ g0 A
* Z/ @4 v1 J- g2 d9 t, Q, }//当左键单击时

procedure OnLeftClick (aStr : String);
: l4 h6 W# e; ~+ M1 q
7 q: g- s+ C4 f5 J3 s  q2 \6 V; m3 D//声明变量的类型
5 d. X1 b1 o$ |8 F/ A7 I) G6 {var
; e, f4 q. S7 K' a0 E1 I+ I
//Str变量为字符串型
' C6 y% y6 S0 f8 d3 X, }, n# Z/ m" X   Str : String;

" D- @7 Z& A; U" D0 ?. n4 q3 Y//Race变量为整型
   Race : Integer;
* C$ o7 k$ `& `+ {begin

//获取点击者的种族
   Str := callfunc ('getsenderrace');
: h4 z, |+ h: i; V) V9 ?
//将获取的值由字符串型转换成整型
   Race := StrToInt (Str);

9 S2 r* }: G" _' `/ Y/ m//如果种族为1，这里种族为1代表是玩家
9 S. N" Q0 S. R- J) @# d0 \   if Race = 1 then begin

//那么调出Help文件夹下的对话框 注意，这里对话框的类型是1 也就是不带滚动条的那种
      Str := 'showwindow .\help\屠夫.txt 1';
      print (Str);

" d9 V7 H, {1 |" L% B+ [//小判断结束
5 B+ b* m; V0 n9 C8 }  g* O' N/ B      exit;
# w9 R) m! `+ i0 x   end;

2 D! p) c# [0 }9 |  }4 P//一个语句段结束
end;

//另一个语句段开始
. Y6 u0 }9 T+ ~* n0 h: a, i  U