任务策划介绍

任务策划：
出入江湖，当然要证明自己的实力。什么？？实力？还是先证明你的力量吧！
来到新手村杀牛，牛爆牛皮、牛肉、牛角（有点残忍）
收集这些材料交给屠夫，他会奖励你东西
6 O0 G3 z8 ?$ u7 g$ y. ?  W这里，我们设计用牛皮换金币，牛肉换银币，牛角换牛俊弓服。
3 y/ s& K2 C/ O' ~4 V# h
目的：
体会最基本的活动都是怎么设计的

- N6 S9 U( W3 j- |& v6 C; Q# k知识点：
- b+ z3 R9 c- E; D1、检测包裹里的物品
2、检测包裹空间
# [  u* ~* J1 c, u3、给与物品
4、没收物品

//这部分先声明脚本的名字。如果脚本出错，tgs会做一个错误纪录，文件名就是我们声明的这个。
: a1 g8 U; J; h3 w
! _/ B/ p  s2 Y; c1 yunit 屠夫;
8 F3 l5 |! t, A9 p  Q- p
2 z1 K( s2 r: J7 I8 f6 {: V4 N  b//下面的是通用的调用程序内建的函数。每个脚本都有的。

  x2 D: z( A) U- \1 S. u3 h8 \8 {interface
4 w8 H7 d: u, y* N
3 x; ~5 r- H" C0 Pfunction  GetToken (aStr, aToken, aSep : String) : String;
, |8 k. T) A1 W6 ifunction  CompareStr (aStr1, aStr2 : String) : Boolean;
! b3 e$ }2 m, v& ]. ~3 o7 Ifunction  callfunc (aText: string): string;
procedure print (aText: string);
9 l2 B! \& i# \+ X$ D5 `* Y4 \2 ofunction  Random (aScope: integer): integer;
$ _# D9 Z$ K1 c1 U5 _function  Length (aText: string): integer;
- q' n; h6 \3 r  _$ x" h2 o3 ]: Zprocedure Inc (aInt: integer);
  S6 C, }/ ~5 D7 Q6 C. G. z- }5 \procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
0 k& k0 }' o( {/ v% f! N5 c# d& \function  IntToStr (aInt: integer): string;
procedure exit;

//下面的就是针对本脚本的函数了。注意，用到什么就在这里声明什么
: {+ N, l) b- M1 k
//第一句的意思是当反馈参数的时候响应，比如牛肉换东西，我们弄个参数niurou
, w- P$ ^, W: Q/ i, i4 h
5 @& k, P1 \& H- U$ g//第二句的意思是当左键单击的时候响应，

procedure OnGetResult (aStr : String);
8 G+ J9 x8 _. r+ Q* V! Uprocedure OnLeftClick (aStr : String);

" R$ m( o4 p+ u4 Q8 U  A1 C" v( ]//以上是脚本的头部，下面是脚本的主体部分
2 C) w6 O  C  [' U/ G) |
implementation

//当左键单击时
# Y8 G$ o! D0 k
/ F" D& b; J  T0 |& {& S: Xprocedure OnLeftClick (aStr : String);
7 J0 J8 C" c2 [( N6 \; A. B
//声明变量的类型
& A2 L! z& Q$ b$ jvar

+ U" w$ o4 b0 p- y  H4 F0 y  G//Str变量为字符串型
/ |+ e! A% H4 H! ^   Str : String;
3 c% H+ Z8 R$ G  `7 }
//Race变量为整型
   Race : Integer;
begin

3 n3 i7 `8 }- U3 C: A% ^; T//获取点击者的种族
( O1 o( r# L9 C- X! T+ r& _( `/ i   Str := callfunc ('getsenderrace');

% y* N: `4 N) U& y//将获取的值由字符串型转换成整型
1 R: Z! K7 X" k1 k   Race := StrToInt (Str);

2 i3 z' y4 c# X) Z& u9 C# C& `//如果种族为1，这里种族为1代表是玩家
% ^4 }$ X- W. Q1 j+ o4 u; _   if Race = 1 then begin

//那么调出Help文件夹下的对话框 注意，这里对话框的类型是1 也就是不带滚动条的那种
+ d5 f# K6 c% ?+ U" ~      Str := 'showwindow .\help\屠夫.txt 1';
" S. A& U: E. A  l      print (Str);
$ s$ f- E; j' `7 @9 ?' I
//小判断结束
      exit;
   end;
# U0 u8 s5 P" ^
8 Y& y/ \, X; k* M3 |//一个语句段结束
' z( U- w8 z5 ~1 m6 g6 y0 A/ G, R+ kend;
# O5 f  r6 @0 x. T  ?! b* o( H
/ g  _6 ~9 a& `! `4 r- Q" A' P//另一个语句段开始