New implementation of module Items, *.cfg files now deprecated

[cavecraft.git] / src / inv.mpsrc

diff --git a/src/inv.mpsrc b/src/inv.mpsrc
index 76ba270e824156e836d105be310f221b2610447f..740b8ee2e11d30b10947988ef16a0f3d0142688c 100644 (file)
--- a/src/inv.mpsrc
+++ b/src/inv.mpsrc
@@ -19,7 +19,7 @@ interface
  procedure loadData;\r
 \r
 implementation\r
  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
  var\r
   inv_item: array [0..INV_SIZE] of integer;\r
   inv_sum: array [0..INV_SIZE] of integer;\r


@@ -62,25 +62,26 @@ implementation
   //Добавить предмет в инвентарь, возващает количество не полученых предметов.\r
 function giveItem(ityp, isum:integer):integer;\r
  var\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
  begin\r
   //Ищем такой же предмет только если он имеет возможность делиться\r

-  if getItemDiv(ityp) then\r
+  if Items.IsDividable(ityp) then\r

   for i:=0 to INV_SIZE do\r
    begin\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
 \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
       begin\r
        sum:=sum+isum;\r
        isum:=0;\r
 \r

-       if sum>getItemMax(ityp) then\r
+       if sum > max then\r

         begin\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
         end;\r
 \r
        setSum(sum, i);\r


@@ -95,11 +96,12 @@ function giveItem(ityp, isum:integer):integer;
     begin\r
      sum:=isum;\r
      isum:=0;\r
     begin\r
      sum:=isum;\r
      isum:=0;\r

+     max := Items.GetMaximum(ityp);\r

 \r
 \r

-     if sum>getItemMax(ityp) then\r
+     if sum > max then\r

       begin\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
       end;\r
 \r
       setItem(ityp, i);\r