实际脚本如下 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看附件
时间: 2024-10-13 23:31:32