hey guys ive been wondering if i can do this to my script in my declare players i use this
SCAR Code:
Players[0].Name := ''; //username
Players[0].Pass := ''; //password
Players[0].Nick := ''; //3-4 letters from your username
Players[0].Strings[0] := '' //type of bars eg Steel, Iron, Bronze
Players[0].Active := true;
and then i use the string[0] to withdraw the ores from the bank like this
SCAR Code:
procedure withdrawores;
Begin
SetAngle(True);
if not LoggedIn then Exit;
OpenBankFast('fwb');
if BankScreen then
begin
if LowerCase(Players[CurrentPlayer].Strings[0]) of
'Steel' then
Begin
If FindDtm(IronDTM, x, y, MSX1, MSY1, MSX2, MSY2) Then
Begin
Mouse(x, y, 5, 5, False);
ChooseOption('X');
wait(1000+Random(2000));
TypeSend('9');
wait(1000+Random(2000));
FindNormalRandoms;
end;
Begin
If FindDtm(CoalDTM, x, y, MSX1, MSY1, MSX2, MSY2) Then
begin
Mouse(x, y, 5, 5, False);
ChooseOption('X');
wait(1000+Random(2000));
TypeSend('18');
wait(1000+Random(2000));
CloseBank;
MakeCompass('N');
end;
end;
end;
FTWait(2+Random(3));
WriteLn('we have withdraw the ores to make steel bars!!');
end else
WriteLn('we have failed to withdraw the ores...');
'iron' then
Begin
If FindDtm(IronDTM, x, y, MSX1, MSY1, MSX2, MSY2) Then
Begin
Mouse(x, y, 5, 5, False);
ChooseOption('X');
wait(1000+Random(2000));
TypeSend('28');
wait(1000+Random(2000));
end;
end; //etc with all the rest of ores
can u please help me and tell me if i can do this thx!!! im making a smelter btw