任务策划介绍

任务策划：
) h, {) C  {5 p出入江湖，当然要证明自己的实力。什么？？实力？还是先证明你的力量吧！
9 c* t. t# J7 @来到新手村杀牛，牛爆牛皮、牛肉、牛角（有点残忍）
收集这些材料交给屠夫，他会奖励你东西
. k1 z8 Q. r7 c' @2 m这里，我们设计用牛皮换金币，牛肉换银币，牛角换牛俊弓服。

目的：
! }3 j8 Y7 `, x体会最基本的活动都是怎么设计的

知识点：
1、检测包裹里的物品
* U# I9 m: y+ e7 T4 `2、检测包裹空间
( t4 M# Q  `- q4 p& A3、给与物品
4、没收物品

//这部分先声明脚本的名字。如果脚本出错，tgs会做一个错误纪录，文件名就是我们声明的这个。
+ t7 P$ O" D+ g/ f, g
unit 屠夫;

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

, X; ^" B0 v; j! X; E0 V- e: Rinterface
4 z: [) z& W& N  M
- @2 r4 {: p8 _5 M! Z! \6 p) Cfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
6 E3 M  H1 y4 D/ H2 Hfunction  callfunc (aText: string): string;
procedure print (aText: string);
1 m/ v+ K: Q& k5 O( |function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
9 C% j+ Y4 o; g& N0 [( {* d2 Dprocedure Inc (aInt: integer);
: {  e% X* a* l2 hprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
; C& _: V0 V  A7 m% I+ X/ x
//下面的就是针对本脚本的函数了。注意，用到什么就在这里声明什么

) T; ?0 I1 y% [  O( G//第一句的意思是当反馈参数的时候响应，比如牛肉换东西，我们弄个参数niurou
" O" }/ D* u9 E& a! y2 a+ |7 ?( j
//第二句的意思是当左键单击的时候响应，
* b" q$ A! T+ v: t, P* [
1 i8 \  V. A0 f7 S  Yprocedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);
; ]/ x6 q% f" }* u% n0 I6 U
  m) Z1 ~. x+ [//以上是脚本的头部，下面是脚本的主体部分

$ G% B; H# `# p, A6 d: Mimplementation

: @" S& Q9 @2 m) X) c% D! [//当左键单击时
) v4 K, v1 \4 W" Y
procedure OnLeftClick (aStr : String);
# R7 G: r. X: k
//声明变量的类型
var

7 |* G6 M  c( B! A' S5 b//Str变量为字符串型
   Str : String;

//Race变量为整型
   Race : Integer;
begin
2 ~" s' {) u6 ]% D8 ?! E& T
//获取点击者的种族
  H* d8 @  Z% `   Str := callfunc ('getsenderrace');
" J5 j" D, r& z' t( E7 S2 T& I5 l% ]
; n- o7 {, p8 L" I5 Y# A; Z//将获取的值由字符串型转换成整型
+ }% H4 N( W' O0 `& W! s: I7 V   Race := StrToInt (Str);
" |" m6 V: J* h/ @9 _
. }& C8 X1 h# [% i4 W' u, g//如果种族为1，这里种族为1代表是玩家
5 Y' k7 ^6 T' O   if Race = 1 then begin

' n, }/ o/ D# j- T7 v: Y$ G2 n( X//那么调出Help文件夹下的对话框 注意，这里对话框的类型是1 也就是不带滚动条的那种
" k; Y; Z) d. V3 F, ^  d      Str := 'showwindow .\help\屠夫.txt 1';
- V9 `& S% d8 S- G- a! ]: Y! X      print (Str);
, _! C4 ?% i6 o- m
. X0 D. G) k* E; }% s% ~' p//小判断结束
      exit;
9 I4 Z9 u' d# |   end;

! M% F1 p4 [9 I//一个语句段结束
end;

//另一个语句段开始

' f! a+ ]" X$ o3 a' }( \4 ~& W