Why doesn't my bank method work?
Here's what I have for my DeclarePlayers procedure:Code:procedure Bank; begin MakeCompass('E'); SetAngle(SRL_ANGLE_HIGH); MMouse(223,168,5,12); if IsUpText('ank') then begin Mouse(223,168,5,12,True); end else begin Writeln('Could not find bank!'); FailSafe('No bank found'); end; Writeln('Banking..'); if PinScreen then InPin(Players[CurrentPlayer].Pin); Wait(800+random(200)); DepositAll; Withdraw(0,0,14); Withdraw(1,0,14); CloseBank; end;
Code:procedure DeclarePlayers; var i:integer; begin NumberOfPlayers(NumbOfPlayers); CurrentPlayer := StartPlayer for i := 0 to NumbOfPlayers-1 do Players[i].BoxRewards := ['XP']; With Players[0] do begin Name := 'name'; //Username. Pass := 'pass'; //Password. Active := True; Pin := 'pin' // Bank Pin end; end;


Reply With Quote










