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. |