任务策划介绍

任务策划：
出入江湖，当然要证明自己的实力。什么？？实力？还是先证明你的力量吧！
1 o. m$ C8 O+ B3 \来到新手村杀牛，牛爆牛皮、牛肉、牛角（有点残忍）
收集这些材料交给屠夫，他会奖励你东西
这里，我们设计用牛皮换金币，牛肉换银币，牛角换牛俊弓服。
& |6 P5 i5 y! l+ r& O
) X4 q7 [$ {3 X' J2 J# E4 `  C目的：
体会最基本的活动都是怎么设计的
) |; O+ d; _' }2 J5 f) c3 S
知识点：
1、检测包裹里的物品
' q" `0 f- @& y  a# i$ W2、检测包裹空间
3、给与物品
$ @7 h) i. a- Q5 H3 ]. b# M: \. |4、没收物品

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

- G4 E: Y6 p2 I# Tunit 屠夫;

//下面的是通用的调用程序内建的函数。每个脚本都有的。

9 j" ?( b' w3 ^2 binterface
! N0 k$ e3 p* l7 N
: Z' Z' x# k) Y' X' d: G8 D! Vfunction  GetToken (aStr, aToken, aSep : String) : String;
. H9 |, T; n1 o, t) Afunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
5 ~' E" V% [# g3 kfunction  Random (aScope: integer): integer;
0 g1 M/ \9 M! K$ d7 r! [6 jfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
6 L! Y& o& q! R: Ifunction  IntToStr (aInt: integer): string;
procedure exit;

//下面的就是针对本脚本的函数了。注意，用到什么就在这里声明什么
# P' t0 s0 H. e+ F5 N5 s- W) Z: c
//第一句的意思是当反馈参数的时候响应，比如牛肉换东西，我们弄个参数niurou
, g* d0 ]( [2 P( H2 q; J- k
//第二句的意思是当左键单击的时候响应，

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

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

6 F6 P# Z7 V2 m, ?implementation

* J0 r9 N% C. d  {0 b6 g//当左键单击时
( Z! }! K' j: S# l
& y- D! c. s8 W# e  v! U5 n7 wprocedure OnLeftClick (aStr : String);
* [3 Z3 w, A5 Y. ]& Z7 k; ]
//声明变量的类型
var

//Str变量为字符串型
- U: S0 l9 S/ m4 G   Str : String;
( [, L' Z3 d( s" ]" }$ V/ L
% b* k4 U4 C# n- l5 V/ {+ Z, z5 n# G" L//Race变量为整型
1 a1 B0 U1 C+ f, Z0 v   Race : Integer;
) R* e7 A) X7 L+ ~( f* lbegin
8 l& n7 Y$ V3 d7 L. b+ }
//获取点击者的种族
   Str := callfunc ('getsenderrace');
4 j4 _& B5 J0 y, y1 a, e. F
4 j0 j& J% o+ Z- |: t% T. Z6 I//将获取的值由字符串型转换成整型
   Race := StrToInt (Str);
0 f* F0 H+ H& Z, z( b/ A! m2 ~; ^
//如果种族为1，这里种族为1代表是玩家
   if Race = 1 then begin

//那么调出Help文件夹下的对话框 注意，这里对话框的类型是1 也就是不带滚动条的那种
      Str := 'showwindow .\help\屠夫.txt 1';
      print (Str);
4 h2 e' n8 `3 P. g* c' T7 M' F
//小判断结束
      exit;
# }% Y4 P6 [8 m* D+ w   end;

//一个语句段结束
, b2 [9 V5 D4 s7 q/ `! Mend;
* U) J: Y; e6 A. f* P
//另一个语句段开始
7 B/ y. [, Q3 y+ O4 [" ~0 e, F