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 OnDblClick (aStr : String);

implementation

procedure OnDblClick (aStr : String);
var
Str : String;
iRandom : Integer;
begin

Str := callfunc ('getsenderitemexistence 道具名称:1');
if Str = 'true' then begin
print ('getsenderitem 道具名称:1');
print ('sendsenderchatmessage 物品已使用 2');

 iRandom := Random (28);
  if iRandom = 0 then begin
  print ('putsendermagicitem 金元:10 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 1 then begin
  print ('putsendermagicitem 生药:10 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 2 then begin
  print ('putsendermagicitem 溜金双龙:10 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 3 then begin
  print ('putsendermagicitem 金铜弥勒菩萨:10 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 4 then begin
  print ('putsendermagicitem 圣灵卷轴:10 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 5 then begin
  print ('putsendermagicitem 狮吼剑:1 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 6 then begin
  print ('putsendermagicitem 幻魔身法:1 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 7 then begin
  print ('putsendermagicitem 罗汉体:1 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 8 then begin
  print ('putsendermagicitem 交易币:50 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 9 then begin
  print ('putsendermagicitem 男子火洲宝甲:1 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 10 then begin
  print ('putsendermagicitem 女子火洲宝甲:1 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 11 then begin
  print ('putsendermagicitem 男子火洲上束发:1 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 12 then begin
  print ('putsendermagicitem 女子火洲花辫:1 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 13 then begin
  print ('putsendermagicitem 火洲三角裤:1 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 14 then begin
  print ('putsendermagicitem 火洲蕾丝裙:1 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 15 then begin
  print ('putsendermagicitem 男子百炼桂林弓服:1 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 16 then begin
  print ('putsendermagicitem 女子百炼桂林弓服:1 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 17 then begin
  print ('putsendermagicitem 男子百炼雨中客道袍:1 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 18 then begin
  print ('putsendermagicitem 女子百炼雨中客道袍:1 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 19 then begin
  print ('putsendermagicitem 男子百炼雨中客斗笠:1 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 20 then begin
  print ('putsendermagicitem 女子百炼雨中客斗笠:1 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 21 then begin
  print ('putsendermagicitem 天外飞石:1 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 22 then begin
  print ('putsendermagicitem 炙阳宝箱:1 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 23 then begin
  print ('putsendermagicitem 天炼手札:1 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 24 then begin
  print ('putsendermagicitem 小丸丹一:10000 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 25 then begin
  print ('putsendermagicitem 高级箱子:5 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 26 then begin
  print ('putsendermagicitem 金刚石:8 @火洲千年提供 4');
    exit;
 end;
  if iRandom = 27 then begin
  print ('putsendermagicitem 冰玉:4 @火洲千年提供 4');
    exit;
 end;

end;
end;
end;
end;
end.
分享：