双击获得某些物品、会员卷轴制作(自动辨别男女)

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;
var
implementation
procedure OnDblClick (aStr : String);
var
   Str, Name : String;
begin
   Str := callfunc ('checkenoughspace 21');              //你要给多少件东西这里的10就改成你的数
   if Str = 'false' then begin
      print ('sendsenderchatmessage 物品栏已满.需要21个空格.. 14');            
      exit;
   end;
   Str := callfunc ('getsenderedu');                               //判断玩家是男是女
   if Str = '1' then begin                                          //这是代表男的就执行下面的动作
   print ('putsendermagicitem 小丸丹一:20000');             // 为给予的物品以及数量!你自己要加什么复制多行这行改自己要给的东西  
   print ('putsendermagicitem 男子血魔道袍4:1');
   print ('putsendermagicitem 男子血魔头盔4:1');
   print ('putsendermagicitem 男子血魔护腕4:1');
   print ('putsendermagicitem 男子血魔战靴4:1');
   print ('putsendermagicitem 金元:10000');
   print ('putsendermagicitem 血光手4:1');
   print ('putsendermagicitem 血魔剑4:1');
   print ('putsendermagicitem 血风刃4:1');
   print ('putsendermagicitem 血化戟4:1');
   print ('putsendermagicitem 血皇斧4:1');
   print ('putsendermagicitem 血雨弓4:1');
   print ('putsendermagicitem 罗汉体:1');
   print ('putsendermagicitem 金钟罩:1');
   print ('putsendermagicitem 风神掌:1');
   print ('putsendermagicitem 乾坤掌:1');
   print ('putsendermagicitem 月影掌:1');
   print ('putsendermagicitem 破心掌:1');
   print ('putsendermagicitem 冰裂掌:1');
   print ('putsendermagicitem 烈火掌:1');
   print ('putsendermagicitem 雷霆掌:1');
     print (Str);
     print ('getsenderitem 血魔会员卷轴1:1');                   //这里就是使用后删除会员卷轴

   print ('sendsenderchatmessage [系统提示]_:_恭喜你使用会员功能成功 2');
   print (Str);
   exit;
   end;
   if Str = '2' then begin                                         //这是代表女的就执行下面的动作
   print ('putsendermagicitem 小丸丹一:20000');          // 为给予的物品以及数量!你自己要加什么复制这行改自己要给的东西
   print ('putsendermagicitem 女子血魔道袍4:1');
   print ('putsendermagicitem 女子血魔头盔4:1');
   print ('putsendermagicitem 女子血魔护腕4:1');
   print ('putsendermagicitem 女子血魔战靴4:1');
   print ('putsendermagicitem 金元:10000');
   print ('putsendermagicitem 血光手4:1');
   print ('putsendermagicitem 血魔剑4:1');
   print ('putsendermagicitem 血风刃4:1');
   print ('putsendermagicitem 血化戟4:1');
   print ('putsendermagicitem 血皇斧4:1');
   print ('putsendermagicitem 血雨弓4:1');
   print ('putsendermagicitem 罗汉体:1');
   print ('putsendermagicitem 金钟罩:1');
   print ('putsendermagicitem 风神掌:1');
   print ('putsendermagicitem 乾坤掌:1');
   print ('putsendermagicitem 月影掌:1');
   print ('putsendermagicitem 破心掌:1');
   print ('putsendermagicitem 冰裂掌:1');
   print ('putsendermagicitem 烈火掌:1');
   print ('putsendermagicitem 雷霆掌:1');
     print (Str);
     print ('getsenderitem 血魔会员卷轴1:1');              //这里就是使用后删除会员卷轴
   print ('sendsenderchatmessage [系统提示]_:_恭喜你使用会员功能成功 2');
   print (Str);
   exit;
   end;  
  end;
end.
商业版发布站程序下载：发布站程序下载：

Tags：

作者：佚名