diff --git a/src/inv.mpsrc b/src/inv.mpsrc
index 76ba270e824156e836d105be310f221b2610447f..740b8ee2e11d30b10947988ef16a0f3d0142688c 100644 (file)
--- a/src/inv.mpsrc
+++ b/src/inv.mpsrc
procedure loadData;\r
\r
implementation\r
- uses items_store, vars, jsr75i, items, func;\r
+ uses items_store, vars, jsr75i, func, Items;\r
var\r
inv_item: array [0..INV_SIZE] of integer;\r
inv_sum: array [0..INV_SIZE] of integer;\r
//Добавить предмет в инвентарь, возващает количество не полученых предметов.\r
function giveItem(ityp, isum:integer):integer;\r
var\r
- i, item, sum:integer;\r
+ i, item, sum, max:integer;\r
begin\r
//Ищем такой же предмет только если он имеет возможность делиться\r
- if getItemDiv(ityp) then\r
+ if Items.IsDividable(ityp) then\r
for i:=0 to INV_SIZE do\r
begin\r
- item:=getItem(i);\r
- sum:=getSum(i);\r
+ item :=getItem(i);\r
+ sum :=getSum(i);\r
+ max := Items.GetMaximum(ityp);\r
\r
if (item=ityp) and (isNull(i)=false) then\r
- if isum<getItemMax(ityp) then\r
+ if isum < max then\r
begin\r
sum:=sum+isum;\r
isum:=0;\r
\r
- if sum>getItemMax(ityp) then\r
+ if sum > max then\r
begin\r
- isum:=sum-getItemMax(ityp);\r
- sum:=sum-isum;\r
+ isum := sum - max;\r
+ sum := sum - isum;\r
end;\r
\r
setSum(sum, i);\r
begin\r
sum:=isum;\r
isum:=0;\r
+ max := Items.GetMaximum(ityp);\r
\r
- if sum>getItemMax(ityp) then\r
+ if sum > max then\r
begin\r
- isum:=sum-getItemMax(ityp);\r
- sum:=sum-isum;\r
+ isum := sum - max;\r
+ sum := sum - isum;\r
end;\r
\r
setItem(ityp, i);\r