hey people i am thinking of making my very first edgeville yewcutter and i was wondering what is the best way to make a banker... if anyone could help i would really appreciate it and can u pls give am example? thx!!
hey people i am thinking of making my very first edgeville yewcutter and i was wondering what is the best way to make a banker... if anyone could help i would really appreciate it and can u pls give am example? thx!!
something like this, just change the dtm it searches for and the uptext, if u need help i can help u out just pm me
SCAR Code:procedure BankBars;
var
Bar, time: Integer;
begin
Bar := DTMFromString('78DA63946660601062400113DBDB19B880342' +
'310FF0702460520839B010D302291401A648E0C01353C40429880' +
'1A652021825F0D00B24D0699');
MarkTime(time);
repeat
if (not (Loggedin)) then break;
OpenBankQuiet('feb')
until (BankScreen or (TimeFromMark(time) > 120000));
if Bankscreen then
else exit;
begin
IsUpText('Bar')
Deposit(2, 3, 2);
CloseBank;
loads := l + 1;
AntiRandoms;
ReportVars[0] := ReportVars[0] + 1;
SRLRandomsReport;
end;
FreeDTM(Bar);
end;
You can make DDTM walking procedure
SCAR Code:Procedure OpenBank;
Var
MyTemporaryColor, i: Integer;
Begin
If Not LoggedIn Then Exit;
OpenBankFast('eb');
Repeat
MyTemporaryColor := GetColor(490, 76); // this color is always thesame
Until (MyTemporaryColor = 3358280);
If PinScreen Then
If Not InPin(Players[CurrentPlayer].Strings[0]) Then
Begin
Writeln('Wrong pin. Logging Out.');
Wait(900 + Random(500));
CloseBank;
Players[CurrentPlayer].Active := False;
Players[CurrentPlayer].Loc := 'Wrong PIN';
LogOut;
Exit;
End;
For I := 1 To 28 Do // storing procedure
Begin
If ExistsItem(I) Then
Begin
MouseItem(I, False);
Wait(RandomRange(400, 500));
ChooseOption('All');
Wait(1200 + Random(500));
End;
End;
End;
hey thx guys and i think i will pm u bonfield if i ever need help
thanks =[)
There are currently 1 users browsing this thread. (0 members and 1 guests)