Peanuts
2013-05-23 01:05:30
BLAGH!… CANT SEEM TO FIGURE OUT WHAT IM DOING WRONG..
i WANT TO COUNT THE ORE N GEM IN MY INV BEFORE I DEPOSIT INTO BOX.
CURRENTLY HOLDING 2 MITHS AND 4 ADDYS, BUT ALL I GET IS… 6 MITHS, 6 ADDYS, IN THE RETURN.
PRESSES PLAY.
we mined 6 Adamantite ore this load!
We mined 6 Mithril ore this load!
Should've being 4 addy and 2 miths.. I have different dtms etc..
hmm..
i WANT TO COUNT THE ORE N GEM IN MY INV BEFORE I DEPOSIT INTO BOX.
CURRENTLY HOLDING 2 MITHS AND 4 ADDYS, BUT ALL I GET IS… 6 MITHS, 6 ADDYS, IN THE RETURN.
procedure CountStuff;
var
AdamCnt: Integer; //This is reset to 0 every time this procedure is called
MithCnt: Integer;
begin
//WalkToBank;
AdamCnt := CountItems('dtm', DTM_Adamantite, []);
if (AdamCnt > 0) then
Writeln('We mined '+ToStr(AdamCnt)+' Adamantite ore this load!');
IncEx(Adamantite_count, AdamCnt);
MithCnt := CountItems('dtm', DTM_Mithril, []);
if (MithCnt > 0) then
Writeln('We mined '+ToStr(MithCnt)+' Mithril ore this load!');
IncEx(MithrilCount, MithCnt);
end;
PRESSES PLAY.
we mined 6 Adamantite ore this load!
We mined 6 Mithril ore this load!
Should've being 4 addy and 2 miths.. I have different dtms etc..
hmm..