SCAR Code:
program zOMGbotBETA;
var i, x, y, teflon, bitmap : Integer;
fire, bandage, divinity : Integer;
sphere : Integer;
procedure LoadBitmaps;
begin
fire := BitmapFromString(16, 12, 'beNpNkV1I0wEUxX9t2txg/+na' +
'FN3a5iCRSW5gpYwKyxIibA/2VERhIqyICIqKQUREhVpuWcqcE/yoI' +
'VNIRbJI+6AJg0W++JQPrZIK+vAhqAi5/bWIDufhwj3n3nO5Jt7scY' +
'7CfCUyWS9h23s/2TKS8LmxSC6YZLymt4RuE1MbkbbKb8dLonp6DCw' +
'dtchgpYQMPw4UD+uZr0cueT8eLJgqZ9DEqAu5aZfrjsQGTkCfXfVW' +
'ydmCbIChIl7sRm54pN2XKKRHy4AZCTklsSW9nyu5nDKibpTTjuVm1' +
'7iLV4eQuFvaHYkKOnLpK2QxiCQ3L53zhNfRmsNJC8vny+SYZdzCUx' +
'8y6JC4OXuELoWhUl63FMj9WomUx+xcy6HTzPfIVrnonXEz40Au22T' +
'AKh3Ks1IeFfOyEZneIYmGEQ+da+kykA4Qqss/41MCOcz51djrpcf5' +
'qXlNSs+Can++Tx5uv+clrOEqxHSkapFMVCWrkFi1tNVOW3lr4qt6V' +
'H/DEx9xPd2QyDPeYqXIRKsk0/LHIrFNi3uts2bmNSwofNjJ3DYkuO' +
'uxu3jUaOyHB1r+Tl7V/wxpfzU5p82klLwxHWMVSK9/qck3YdfF4a7' +
'6Vqf+f72KTA1TFpIGxtQ84bp3QVtM4Tao7VlXftq6kucfVX1Ez7CJ' +
'SfuK+Mvh6gi0woiiuZPLEMz8Bp9d0Q4=');
bandage := BitmapFromString(14, 10, 'beNo9zM0vw3AAxnF/iT/Bh' +
'ZC4uRNOSCQOIi7inVAmi4uXhIWglBjd1lnbdVsXHSPzErLMWrq2W7' +
'PZZjhIvMTYRruR/TSW+OY5fvJMNLrhAe+2jtmCXPDQM2fNirgiWCQ' +
'cAiKqBtau0MF7Zto51fTg0nvgPudSt2d9+InFMqL90qYHN7TKm9Ur' +
'E0i5gUyCKMXvDB7MttKGzkOk/yWIKjL1cW0DSUYRCJBgilHavz2Wv' +
'UQVziRaoYuVTri/jsd1Qctoht2R6RmNJbzLR8hwRnB9xzwgdQAipL' +
'bH/bmOhqr6mvKAsbfAmwohK4jv5SN0TnIrMV86RL8HMR6bLEp4GIM' +
'Ah5T9FTT2gPDu7b6BI2a+b0/fZV8udvwpUEB2FHgMRHDAdZXwRndN' +
'nNI9eBfufKuFxOFX8sRPGnKi8yfi0D5vSL1mSjIAt611VbyezQvke' +
'Opk8U2yqQkmF3bkJUcxbFdZ9F9qsUi7aaQ2L24WkzY/Mf4qWFTZJV' +
'Gzn6w5Sk5xSGVpmjxfajYOVDOGlvQ1kpbMStwO7jw/IhEyQ8QvNdo' +
'aGQ==');
divinity := BitmapFromString(14, 13, 'beNpFkc1rE0EYh/2f/Fs8' +
'9ObFUBLFUA20WlsEexCpp1LpRXoSEUQjRYM0opFKbTf9QAulBNvar' +
'BuzSXaT2dnsZx5ndhVfXoY5PPN7n5nZYQLSw5U8WtkvlupXp2rXrr' +
'ybnno7U/78cLkpQ/wEqRrGMYla4czm9mzjerFZnm6Wi42bt15bLq5' +
'PAF7CIEBEyCgVCHWqvkVl7nuptHt3Yb/2qeehMTnRq+ngxHrjI1Rs' +
'2+XjLveWjj9s0w3oRWmQwc6YlsmNymJlfjEENwpHcPCT6hbGKUMyN' +
'yKRJm07NY48jLVLWfkpA8JjTz5Y3z4Z4So9JkFGnlts1H9gFHJYxT' +
'rILsnqxp6FJpXPKIkvesL45igBxeSkmtWdpB1lG2hsmCJSLWC6XAz' +
'4evSfVDXMojohdqQxlWkL5YDyt7Tm5bwVOVBYxEk38vLROexz3tfv' +
'+Y/UmaMss3HY7si/2Jv3h0+f7Tx+0piZf5XdqLBW0GQ/pGVR3Wyd/' +
'c4yY/2VPcHS8uad+7U8MyfbNi+q5txC7flL07IZJ3gxfY/TX3z5Aw' +
'3ns9g=');
teflon := BitmapFromString(15, 15, 'beNo90MlrE2EYBnD/Ai8qQV' +
'DxItqoFY1ibRNMDdUszb42k8xMFpNMZkkySSaZyWSPTWvSlJqLKdX' +
'QQ0V6EU8ePCgILhBPnmoPIh6KUItHBWF820E/Xj7m8Hsfnm+2v3/7' +
'LW28fE/We83BExgs3whk6yqj74zaqBhXHzt/46Rq+vgljeLilEI5w' +
'XVXSyuPiWoX55rp+T7TWkHzzTsodeqaDjDIE1e0R8auA1Zbg0R1KX' +
'XvQVRoo7k6xMLtz1SDuYYtnr+gsx9VToBUai2uZBFhxAjfBhkTF0E' +
'GszXACFuDCfNtc5SdDaf1KGUKpcyRDMbW4uVOhJ9PVDqhQgs+AEMN' +
'NyXAQHl/ujKXKoN0EoVSby1R6YKEcOgcYKuuZAFqAPMyIngwEOulS' +
'zMIcXZSf1mtu3pzRq7hJov+dNlBFJzJIqzA7aEEWWo90VCuIY0Ghw' +
'4O1PDSAqzYExxISHaRvAGjjTjjSHA410qUFqVRTPbQZC4lWu+ycDc' +
'ebmD5JlSFnwA1fKRAVpZuuSPAZCwuP4oLCz6S760/6ww3bZGMPcrC' +
'WMNpA0KYgiTMfwxne+/P609ff0qSNUQbkLgZI2/7YhprcBaldO6I2' +
'hIYDVTyAK7113cl6fPuL6bWdcVYWAH2bmtn2hk6fHr83KT+H95Pfr' +
'u1sydJ+XZ/48UbotQ2BQkIhA4fv/wYmzJEudbBA2OD2D5m6st4tm7' +
'BKTQt1vtDLFNG6JInwd1f21xYfap14HKyjDU21IwzOndI60D9VNEd' +
'z5oxOsCIw+ev+M7gw1/lVhrk');
sphere := BitmapFromString(16, 16, 'beNo9z11MUnEYBvC/iCio82' +
'OrprZZdtEsXVpzrbxotrWumm1d19pabn3MavMjP9eMTEOxY4mBaJr' +
'SVCxCW9PM1EQpPAgeOYiCH8BARVHwIJYhbySrZ+/l73m2N3WsNmiu' +
'jmXEGHO5wZ925UB2Ocz1zq3X8EsKnnGwz4FpzmVf3LFqKRvpMak8f' +
'IatMWKjAhnY+8Y9A0AIl6zYuqcZNt8AjMKGlnKY1xyGZWrWvqZaXV' +
'FSohC7kG6pQvPFLNmOFKztXgtGuYVerwRcfbsuYosyONbIlQ3SQZH' +
'bTsLbgXRNaLKJZS2gDYmu6GEQlgQwW726IXbbup2WPteWBtx6cOrA' +
'oQHbOPQEzXQzF3kB02wmfj+sU3rNBD1gEniNreu6FpNbBtPvtk0ys' +
'E2B4RvYccDQUA0a4SCcjb6XMgbywz6ILy0ADktiIBotC52ba1/B6G' +
'sNgVML5Hu4gG5ksrI5gapymqoEyfNoA6Uxw6LLCyCD5Xb4/Rk2ewF' +
'IICUwgFH1VycA56O95KMfBYFTRSztnaDhorjRVxnq5TqgmkD/DGxt' +
'wMtU1WYouKlywLP8lVykKKRpH9KnS8LJwkhFbkRfflT3o2gp51C/p' +
'Rx4Z1TcRCU/ecYn/T4PycsQURagZtOV5WGqyhjyeaxaFKfuTdGtF0' +
'NjmqIuaZ6TMP/f+1JB13AYU4/RWE3IZAWTqA2dbAtXSOLk1tue5pN' +
'yTjz5IsmO80/5z+cL0QQ3wsBlaBrC9YLgmY6oeXHkhDLdSuVDU8qo' +
'MNn49ODsP7+3z9RWhmiqApXCULItRCfdv/jlmFmSpP5ZCdjx/qoEJ' +
'TuW2Ps3i5/11wujZ/hRJC9c2RW/KDlg6D1qrYsbE19cWMaAd34cS9' +
'NyEnX+fb9/Ga1oODJVfRhvOWt8e86qfgDGeljqAL0I7p3+mJM09OQ' +
'E4ZP+80Vx3UuUAi6A/lbobIWREci5a86+qVPKQITBrfTB3D8vGdKo' +
'');
end;
procedure FireRain;
begin
repeat
Wait(2 * 250+random(50));
Writeln('Casting Fire Rain.');
FindBitmapToleranceIn(bitmap, x, y, 0, 0, 436, 539, 1);
MoveMouseSmooth(x, y)
HoldMouse(x, y, True);
Wait(2 * 500+random(50));
ReleaseMouse(x, y, True);
Wait(6 * 1500+random(50));
Writeln('Healing with Bandage.');
FindBitmapToleranceIn(bitmap, x, y, 0, 0, 491, 540, 1);
MoveMouseSmooth(x, y)
Wait(2 * 150+random(50));
ClickMouse(x, y, True);
Wait(2 * 2000+random(50));
Inc(i);
until(i = 10);
end;
procedure BandageProc;
begin
repeat
Wait(2 * 500+random(50));
Writeln('Healing with Bandage.');
FindBitmapToleranceIn(bitmap, x, y, 0, 0, 491, 540, 1);
MoveMouseSmooth(x, y)
Wait(2 * 150+random(50));
ClickMouse(x, y, True);
Wait(2 * 2000+random(50));
Inc(i);
until(i = 1);
end;
procedure DivinityProc;
begin
Wait(2 * 500+random(50));
Writeln('Casting Divinity.');
FindBitmapToleranceIn(bitmap, x, y, 0, 0, 577, 540, 1);
MoveMouseSmooth(x,y)
HoldMouse(x, y, True);
Wait(2 * 1000+random(50));
ReleaseMouse(x, y, True);
Wait(2 * 2500+random(50));
end;
procedure TeflonSpray;
begin
Wait(2 * 250+random(50));
Writeln('Casting Teflon Spray.');
FindBitmapToleranceIn(bitmap, x, y, 0, 0, 604, 540, 1);
MoveMouseSmooth(x,y)
HoldMouse(x, y, True);
Wait(2 * 1000+random(50));
ReleaseMouse(x, y, True);
Wait(2 * 1000+random(50));
end;
procedure SphereProc;
begin
Wait(2 * 250+random(50));
Writeln('Casting Sphere');
FindBitmapToleranceIn(bitmap, x, y, 0, 0, 630, 537, 1);
MoveMouseSmooth(x, y)
HoldMouse(x, y, True);
Wait(2 * 1000+random(50))
ReleaseMouse(x, y, True);
Wait(2 * 1000+random(50));
end;
begin
LoadBitmaps;
repeat
FireRain;
DivinityProc;
FireRain;
TeflonSpray;
FireRain;
SphereProc;
until(False);
end.