Duplicate indentifier

[akash22]

Hello people! I'm trying to add banking to one of my scripts and i looked the command withdraw in function list and it showed me an example. i copyed it and when i try to compile the script it says

[Error] (76:10): Duplicate identifier 'WITHDRAW' at line 75
Compiling failed.

Here is the code


program Bonfire;
{$i SRL\SRL.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Active := True;
Players[0].Member := True;
Players[0].Pin := '1999';
end;// declare players


function OpenBankNPCEx :Boolean;
var
NPCBox :TBox;
Colors, NPCArray :TPointArray;
ATPA: T2DPointArray;
MSNPC, NPCPoint :TPoint;
TempCTS, C, HiNPC, II, I :Integer;
begin
Result := False;
Result := (BankScreen) or (PinScreen);
If Result then Exit;

NPCArray := GetMinimapDots('NPC');
HiNPC := High(NPCArray);

If Length(NPCArray) = 0 then Exit;
SortTPAFrom(NPCArray, Point(MMCX, MMCY));
for I := 0 to HiNPC do
begin
NPCPoint := MMToMS(NPCArray[I])
If NPCPoint = Point(-1, -1) then Continue;
NPCBox := IntToBox(NPCPoint.X - 40, NPCPoint.Y - 40, NPCPoint.X + 40, NPCPoint.Y + 40)
If PixelShift(NPCBox, 200) > 500 then Continue;

TempCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.13, 1.52);
FindColorsTolerance(Colors, 6067652, NPCBox.X1, NPCBox.Y1, NPCBox.X2, NPCBox.Y2, 13);
ATPA := TPAToATPAEx(Colors, 15, 20);
SortATPASize(ATPA, True);

for II := 0 to High(ATPA) do
begin
MSNPC := MiddleTPA(ATPA[II]);
MMouse(MSNPC.X, MSNPC.Y, 3, 3);
If WaitUpTextMulti(['ooth', 'anker'], 200) then
begin
Mouse(MSNPC.X, MSNPC.Y, 1, 1, False);
If WaitOptionMulti(['ank B', 'quick'], 300) then
MarkTime(c);
Begin
Repeat
Wait(RandomRange(50, 100));
Until (BankScreen) or (PinScreen) or (TimeFromMark(C) > 4500);
if (Players[CurrentPlayer].Pin <> '') then //
InPin(Players[CurrentPlayer].Pin);
Result := (BankScreen) or (PinScreen);
If Result then
begin
ColorToleranceSpeed(TempCTS);
Exit;
end
else
ColorToleranceSpeed(TempCTS);
end;
end;
end;
end;
end;
function Withdraw(2, 1, 5: Integer): Boolean; // This line is highlighted when it shows error in debug box
begin
Result := WithdrawEx(2, 1, 5,[]);
end;

begin
SetupSRL;
OpenBankNPCEx;
withdraw;
end.

[Jake]

Im not a scripter, but i searched up duplicate identifiers and found this by abu_jwka.

Duplicate Identifier '' at Line xx
There are a few reason why this may occur.

The first is because you have made two procedures/functions with the same name.

The second is because you have made a procedure/function with a name that already exists in the SRL Include.

The third is because you named a variable the same as a procedure or function that already exists in the SRL Include.
---

[CephaXz]

There's already a function name withdraw, you can't make another function with the same name. Maybe change the name to TakeItem, or WithdrawItem or something else.

EDIT: By looking at your script, its not neccesary to make a function for that. You could just use the Withdraw function at your main loop.

EDIT AGAIN: Where do you get that openbanknpcex function from? :O

[P1ng]

Get rid of your function 'Withdraw' from the script, it is trying to read that as a function as well as read the one in the SRL include this is where your duplicate identifier error is coming in.

With any functions found in the SRL include, if you have SRL included in your script {$i SRL\SRL.Simba} then you don't need to copy out the whole function.

For examplem, this is what you would have found in the SRL include when you searched withdraw -
(*
Withdraw
~~~~~~~~

.. code-block:: pascal

function Withdraw(Col, Row, Amount: Integer): Boolean; // This is a break down of each variable

Withdraws Amount at Column/Row.

.. note::

Author: Starblaster100, Town, Wizzup? and Narcle
Last Modified: Unknown

Example:

.. code-block:: pascal

Withdraw(1, 3, 28); // This line is an example of what you might enter into your script
*)
function Withdraw(col, row, Amount: Integer): Boolean; // This bit down here shows you how the function works
begin
Result := WithdrawEx(Col, Row, Amount,[]);
end;

Put this in your mainloop instead (in place of withdraw).
Withdraw(2, 1, 5);
That will withdraw 5 of the item in column 2 of row 1. Keep in mind that most functions work with 0,0 as the first point, so this would be 3 items across and one item down IIRC