任务策划介绍

任务策划：
出入江湖，当然要证明自己的实力。什么？？实力？还是先证明你的力量吧！
来到新手村杀牛，牛爆牛皮、牛肉、牛角（有点残忍）
收集这些材料交给屠夫，他会奖励你东西
这里，我们设计用牛皮换金币，牛肉换银币，牛角换牛俊弓服。

& B1 t) _  A) E9 R目的：
+ Z2 h# `* C$ c" y体会最基本的活动都是怎么设计的

! M5 L& W0 q8 Y知识点：
1、检测包裹里的物品
# e; @1 `4 `, u6 D4 W2 y, |/ K* ]2、检测包裹空间
3、给与物品
" j" S( r0 @# ]0 S3 Y+ A$ S( r4、没收物品

//这部分先声明脚本的名字。如果脚本出错，tgs会做一个错误纪录，文件名就是我们声明的这个。
5 U* {7 a7 P% J
unit 屠夫;
9 A: F) a: n4 S- I1 W
( V8 E' _, ?( q! p1 ^' l//下面的是通用的调用程序内建的函数。每个脚本都有的。

interface
3 J* [" z$ s& n( p5 V
3 Q+ k/ }0 N, Efunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
% l( [' c* u( mprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
8 L, \, h5 N/ x2 B$ e: b4 Ffunction  IntToStr (aInt: integer): string;
procedure exit;

5 e" F+ ]; u/ u' s//下面的就是针对本脚本的函数了。注意，用到什么就在这里声明什么
$ S" Q0 T6 D  W+ m, t5 C) B
; e( ^: B1 y/ g5 t$ z//第一句的意思是当反馈参数的时候响应，比如牛肉换东西，我们弄个参数niurou
7 p5 }$ K; K! i- f; _# q! s. W
//第二句的意思是当左键单击的时候响应，

procedure OnGetResult (aStr : String);
9 r+ U( S. X; g0 L, ]. y1 jprocedure OnLeftClick (aStr : String);
; [) e+ f$ n# C$ A
, d. [4 B; e% r5 t  b/ g//以上是脚本的头部，下面是脚本的主体部分

implementation

//当左键单击时

2 c) ^7 j* x9 O* O6 \) ]3 k7 E9 ]procedure OnLeftClick (aStr : String);
1 }! J+ q* {$ H- a1 M; D
1 Y" C3 t* c% r8 j# {) E//声明变量的类型
var

* u6 b  H% _: W. r4 b' x% ~) Y//Str变量为字符串型
   Str : String;

. z4 v$ F( L# I$ Q  s! w8 u! O//Race变量为整型
& G, i0 b; i7 i# I   Race : Integer;
begin
  P5 ^: B" C$ K3 [- U
//获取点击者的种族
   Str := callfunc ('getsenderrace');

//将获取的值由字符串型转换成整型
; m2 y( Y" g# H: K: {5 w- n' l( E   Race := StrToInt (Str);
. r/ x0 V7 w2 _7 F/ t7 Y
//如果种族为1，这里种族为1代表是玩家
+ p, O6 H! d, f- s   if Race = 1 then begin
) ~+ Y8 h1 @1 Y, k; z8 y: y) q: W+ F: K+ X
- K2 u0 A2 O: l- M* f//那么调出Help文件夹下的对话框 注意，这里对话框的类型是1 也就是不带滚动条的那种
      Str := 'showwindow .\help\屠夫.txt 1';
6 j3 ?7 w' y8 P. n, ^) E5 D5 i1 a0 ?      print (Str);

//小判断结束
2 Z; Z, X7 `/ |6 g( q* T: W      exit;
2 z# i6 _/ P6 i' q" t1 H   end;

//一个语句段结束
# J" J4 o3 ^! uend;

( k; n7 E( R  Y4 ]3 q//另一个语句段开始
5 s: w3 g8 _' g