任务策划介绍

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

目的：
体会最基本的活动都是怎么设计的

/ R* W* V5 Y5 E+ E- I$ ^知识点：
1、检测包裹里的物品
/ f! `& N9 @$ Q$ i9 D4 C2、检测包裹空间
1 @5 k/ p, |! T5 J$ w3、给与物品
4、没收物品

//这部分先声明脚本的名字。如果脚本出错，tgs会做一个错误纪录，文件名就是我们声明的这个。

unit 屠夫;

# J8 J1 u# e% K2 B6 D1 y//下面的是通用的调用程序内建的函数。每个脚本都有的。

interface
( h$ j% S3 g. _
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
0 M; J9 k, e" Z5 p* Dfunction  callfunc (aText: string): string;
procedure print (aText: string);
  e6 l6 S/ ^  Efunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
! x5 i, Z8 W7 N, E( J, P* Ifunction  StrToInt (astr: string): integer;
4 M* c$ c" u" t" Lfunction  IntToStr (aInt: integer): string;
9 S- }( n1 G2 k7 l9 m: M. V* _% Vprocedure exit;

//下面的就是针对本脚本的函数了。注意，用到什么就在这里声明什么
; h9 O: N. f$ l& s5 }  X% o
1 G1 ^! @0 e0 C+ Y) R& e# ?, g6 E//第一句的意思是当反馈参数的时候响应，比如牛肉换东西，我们弄个参数niurou
9 b/ P6 c+ ~5 L# O
//第二句的意思是当左键单击的时候响应，
1 q* V( ]6 g. L; b: c
% f$ j4 z! x2 [' Yprocedure OnGetResult (aStr : String);
4 k- x8 m% D+ x# ^* Mprocedure OnLeftClick (aStr : String);
" Y0 ~3 ?5 s9 a1 r' y5 E
2 G' g) D3 n& e: d4 o//以上是脚本的头部，下面是脚本的主体部分
2 U5 M. w; p+ v! j& |' ?/ H
# e- Z0 o8 h3 B3 R% F7 p) ~9 aimplementation
# f. i# s7 R6 a5 c& T& G( [
//当左键单击时
7 l% y7 A: [3 ]5 ]$ I9 v
procedure OnLeftClick (aStr : String);

5 d2 Q& V- F  X//声明变量的类型
var
) v* r" J1 Z9 f. R
//Str变量为字符串型
3 {$ D& g" q, S  G8 l+ b: G   Str : String;

  z- \& B. w) k; A//Race变量为整型
   Race : Integer;
% D0 a- }& D7 D1 H9 a9 {; ^begin

1 w- M* M- _+ ]9 ]1 n//获取点击者的种族
. Q4 r# }1 Z# U1 G& |0 y  E4 O+ h& k, J   Str := callfunc ('getsenderrace');

( ]7 O4 L0 e! X2 t3 G7 O4 E//将获取的值由字符串型转换成整型
   Race := StrToInt (Str);

//如果种族为1，这里种族为1代表是玩家
+ P2 t. o8 i9 g: p8 S* A   if Race = 1 then begin

//那么调出Help文件夹下的对话框 注意，这里对话框的类型是1 也就是不带滚动条的那种
4 d: C1 r. d) W9 o+ q      Str := 'showwindow .\help\屠夫.txt 1';
      print (Str);
' _, n$ v9 X$ S$ k- F& x5 f) e
; D& W; s5 h6 b0 ]; h- V3 Z//小判断结束
' S1 T) m- @/ H8 L( b5 N      exit;
) p- Y$ c: N: i! X   end;
- n: d2 Q* H- A' N  K
//一个语句段结束
end;

//另一个语句段开始
( ?/ E1 |  Z  k6 y

) }$ c$ ?. ]. z2 {' N- N) {