显示界面的普通仓库

实际脚本如下
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看附件