SCAR Code:
procedure BankIt;
var
FailSafe, Time: Integer;
begin
Time= 10*1000; //substitute the 10 with how many max seconds you want to loop the open bank
MarkTime(FailSafe); //starts the counter for the loop to see be able to know how long the loop has been going for
While(Not(BankScreen) and (TimeFromMark(FailSafe)<=Time)Do //I added the TimeFromMark as a failsafe so you don't have to worry about an inifinite loop, try to avoid those
begin
wait(100+random(100));
OpenBankFast('fwb');
end;
if(PinScreen) then
InPin(Players[CurrentPlayer].pin); //add to declare players under .nick a .pin, the pin should be wrapped in quotes, so if people have pins they can still use your script
Wait(20+Random(5)); //forgot a semicolon on this line
Withdraw(1, 1, 28);
wait(40+random(25)); //added a little wait here so it doesn't go directly from withdrawing to instantly closing bank, doesn't hurt to have a little wait
CloseBank;
end;
Just added some stuff to make it a bit more efficient, I commented on all the stuff I touched to let you know what I did and why, if you want me to explain anything further just ask
.
And I didn't compile this, but it looks like nothing's wrong with it to me.