顯示界面的普通倉庫


實際腳本如下
procedure xianshi_PTCK(Npc: TNormNpc; Player: TPlayObject);



procedure CWPRPTCK_QWP(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);   
begin
  player.TakebackStorageItem(Args.Int[0]);
  cangku.xianshi_PTCK(npc,player);
end;
procedure xianshi_PTCK(Npc: TNormNpc; Player: TPlayObject);
var
        s : string;
  CSITEM:TUserItem;
  I: Integer;   //物品定位
  III: Integer;   //行數定位 單行最高7個
  X: Integer; //x坐標
  Y: Integer; //Y坐標
begin         
     X:=34; Y:=55; 
     III:=0;
     FOR I := 0 to 44 DO
           begin                 
              IF III < 7 THEN
               BEGIN  
                 CSITEM:=Player.StorageItem[I];
                 IF CSITEM <> NIL THEN
                  begin
                    s := s + '<{U=' + Player.StorageItem[I].MakeString + ';x=' + IntToStr(X) + ';y='+ IntToStr(Y) + ';H=40;W=42}/@CWPRPTCK_QWP(' + IntToStr(I) +')>' ;
                    X:=X + 42;
                    III:=III + 1;  
                  end; 
                  IF III = 7 THEN
                   BEGIN
                      X := 34;
                      Y :=Y + 40;
                      III:= 0;
                   end;
               end;
           end;
  npc.SayEx(player,'可視化普通倉庫',s); 
end;

本腳本未附帶存入功能
需在UI設計處 設置自定義UI的時候添加 界面道具控制組件
存入的命令為
Player.AddItemToStorage(Player.CustomItem[0]);
顯示的界面UI看附件

 


注意!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。



 
  © 2014-2022 ITdaan.com 联系我们: