任务策划介绍

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

9 e8 a3 o8 E4 A/ V5 ^" e- E+ T1 T目的：
' E+ P3 {: N6 D3 P: B9 \体会最基本的活动都是怎么设计的
6 S, F3 s: \; u% f
9 W# H: u$ h% [/ ^知识点：
1、检测包裹里的物品
3 D8 m4 I. N7 ?8 P+ Z2、检测包裹空间
3、给与物品
4 c* @0 k8 E) f4 L4、没收物品

//这部分先声明脚本的名字。如果脚本出错，tgs会做一个错误纪录，文件名就是我们声明的这个。
+ K2 s6 a* @. H9 A
unit 屠夫;
( ?* Y4 Y( p6 D' D, R
7 o! Z& w/ D. J, Q) l! Q) s0 p//下面的是通用的调用程序内建的函数。每个脚本都有的。
3 [2 D! e* ]; P% ~
interface

, r$ {' P9 `4 e: V: B0 Kfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
1 U4 j; `- D- J1 r) i6 c' p! kfunction  callfunc (aText: string): string;
procedure print (aText: string);
8 ]1 l4 ^( T- F7 Bfunction  Random (aScope: integer): integer;
" P% x1 i9 {; p! p! ^. }- _function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
: M- M. I; ]" `function  IntToStr (aInt: integer): string;
* ~, F$ z4 a' T) Z; h0 Gprocedure exit;
  n& U( q+ @1 r" i5 k* x1 ]1 i
//下面的就是针对本脚本的函数了。注意，用到什么就在这里声明什么

2 n/ K. K* O+ k/ [* Z2 u, k) ?3 x//第一句的意思是当反馈参数的时候响应，比如牛肉换东西，我们弄个参数niurou
* @5 f5 O: J# p
//第二句的意思是当左键单击的时候响应，

7 p( w- N3 d2 F: k, p% Y& Oprocedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);

//以上是脚本的头部，下面是脚本的主体部分

, Z+ a# {8 A4 G) @3 u! Aimplementation

7 e; e3 z0 u0 g3 P+ w* L1 c//当左键单击时

) N7 H8 X4 o  u. m) Kprocedure OnLeftClick (aStr : String);
3 }2 Z5 E, i3 N. R  n% b+ _
//声明变量的类型
var
6 {3 y4 t" c3 Z) L/ O  j5 W. \
2 S5 N/ m: D: T//Str变量为字符串型
" t' S; H3 I+ I, x+ x7 a- R   Str : String;

//Race变量为整型
   Race : Integer;
7 i: }% j) r# S4 `! ubegin

1 E+ C/ g) \. ~% m( ?( D//获取点击者的种族
9 h7 e3 W* \: ^& {' D" z  @$ u   Str := callfunc ('getsenderrace');

//将获取的值由字符串型转换成整型
4 `# l" n+ Z* @# i' G   Race := StrToInt (Str);

: ^* s' Z/ u: {3 y//如果种族为1，这里种族为1代表是玩家
: F, s( ^6 J7 L1 T   if Race = 1 then begin
  B  g& a$ B- A
7 p+ q/ r5 u. Y6 X" N1 h- u8 J//那么调出Help文件夹下的对话框 注意，这里对话框的类型是1 也就是不带滚动条的那种
$ D" n7 `/ N* e7 U4 b      Str := 'showwindow .\help\屠夫.txt 1';
      print (Str);

//小判断结束
      exit;
( X6 S/ c% p3 T1 I+ i2 v   end;

/ a; j8 z8 m# B' O, W2 J% |//一个语句段结束
8 \  _+ E) Q# V4 x: Oend;
' j5 J& Q# A3 O
//另一个语句段开始