仿千年一的口令买卖脚本语句

unit 韦小宝;

interface

function  GetToken (aStr, aToken, aSep : String) : String;

function  CompareStr (aStr1, aStr2 : String) : Boolean;

function  callfunc (aText: string): string;

procedure print (aText: string);

function  Random (aScope: integer): integer;

function  Length (aText: string): integer;

procedure Inc (aInt: integer);

procedure Dec (aInt: integer);

function  StrToInt (astr: string): integer;

function  IntToStr (aInt: integer): string;

procedure exit;

procedure OnLeftClick (aStr : String);

procedure OnHear (aStr : String);

var

okname : string = ' ';

implementation

procedure OnHear (aStr : String);

var

   pstr, Str, rdStr, xStr, yStr, Name : String;

begin

      if astr = '买什么' then begin;

     print ('say 肉块，肉，皮，金元，银元');

         exit;

         end;

      if astr = '卖什么' then begin;

     print ('say 金元，银元，冥狼战甲，染发剂，男女衣物');

         exit;

         end;

      if astr = '买_金元_1个' then begin;

        Str := callfunc ('getsenderitemexistence 钱币:10000');

         if Str = 'false' then begin

         print ('say 你没有足够的钱币。');

         exit;

         end;

            Str := 'putsendermagicitem 金元:1 @韦小宝 4';

         print (Str);

            Str := 'getsenderitem 钱币:10000';

            print (Str);

     print ('say 卖出了金元');

    exit;

  end;

      if astr = '买_金元_10个' then begin;

        Str := callfunc ('getsenderitemexistence 钱币:100000');

         if Str = 'false' then begin

         print ('say 你没有足够的钱币。');

         exit;

         end;