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