View difference between Paste ID: Mu7xXe6c and X8t8aLcJ
SHOW: | | - or go back to the newest paste.
1
{Start next to a bank with DragonBones in bank, Make sure nothing close to the color of dragonbones is visible when the bank is opened.}
2
3
4
program BuryBones;
5
{.include SRL/SRL.scar}
6
7
const
8
Bones = 11316663;
9
Bank = 2314598;
10
11
var
12
x,y, quick,All : integer;
13
acc : Extended;
14
15
Function InBank : Boolean;
16
Var
17
  a, b : Integer;
18
Begin
19
  If(FindColorSpiralTolerance(a,b,2070783,0,0,516, 337,3))
20
  Then
21
      result:= true;
22
End;
23
24
procedure AccessBank;
25
  Begin
26
quick := BitmapFromString(44, 14, 'meJzlklkKACAIBbv/pQ2CoEWftm' +
27
        'gfzVeIyTwrpctQwVL0I8BBnbbtQBX2FphADUOzNAE3L93CkY2JQIQ' +
28
        'rDnMx3sG+B/Zw7oA7qUeVB4nsy2Rt2brU6cfPDviBwvYwf7PnZJTV' +
29
        '6iQ=');
30
Begin
31
repeat
32
 If(FindColorSpiralTolerance(x,y,Bank,0,0,516, 337,3)) then
33
 MMouse(x,y,0,0);
34
 Begin
35
 If(IsUpText('Bank')) then
36
 Mouse(x,y,0,0,false);
37
 end;
38
 if(FindDeformedBitmapToleranceIn(quick, X, Y, 0, 0, 515, 336, 30, 0, false, acc)) then
39
    Begin
40
    Mouse(x,y,0,0,True);
41
    WriteLn('Accessing Bank');
42
    end;
43
Until(InBank)
44
FreeBitmap(quick);
45
FreeSRLBitmaps;
46
end;
47
end;
48
49
Procedure GetBones;
50
Begin
51
52
All := BitmapFromString(15, 11, 'meJxjYCAZ/IcBTEE0NiYDl2KCCi' +
53
        'hUjAYGyhkDrhgA57r1Cw==');
54
55
Begin
56
If(FindColorSpiral(x,y,Bones,0,0,516, 337)) then
57
MMouse(x,y,0,0)
58
end;
59
Begin
60
If(IsUpText('Drag')) then
61
Mouse(x,y,0,0,false);
62
end;
63
Begin
64
if(FindDeformedBitmapToleranceIn(All, X, Y, 0, 0, 515, 336, 30, 0, false, acc)) then
65
    Begin
66
    Mouse(x,y,0,0,True);
67
    WriteLn('Getting Bones');
68
    end;
69
end;
70
end;
71
72
Procedure CloseBankCustom;
73
Begin
74
If(InBank) then
75
begin
76
repeat
77
Mouse(488, 26,0,0,true);
78
Wait(1000);
79
until(Not(InBank))
80
end;
81
end;
82
83
Procedure BuryBones;
84
Begin
85
repeat
86
If(FindColorSpiralTolerance(x,y,Bones,549, 206,733, 460,3)) then
87
Mouse(x,y,0,0,true);
88
until(Not(FindColorSpiralTolerance(x,y,Bones,549, 206,733, 460,3)))
89
end;
90
91
begin
92
SetupSRL;
93
Repeat
94
AccessBank;
95
GetBones;
96
CloseBankCustom;
97
BuryBones;
98
Until(false);
99
end.