Code:
//Screen coords (1, 42, 518, 389)
//Prodigy-X dragon stone craft/bank bot
//M ^
//U /_\
//S //|\\
//T <^^^^^^^>
//A \ ( o ) /
//_|__|__\\
//_|__|__|_\\
//_SETTINGS:_\\
//|__|__|__|__|\\
//_PM IN CHATBOX_\\
//_|XP DISPLAY OFF|\\
//|__|FRONT OF NPC__|\\
//__|_RELOG FOR VIEW|__\\
//__|ZOOM IN ALL THE WAY|\\
program craftBot;
{$I RSPS/srlRSPS.Simba}
var
X, Y:Integer;
Full:Boolean;
SkillShopBitmap:Integer;
CloseX:Integer;
Deposit:Integer;
ActionButton:Integer;
InvyFull:Integer;
function checkInstance:boolean;
begin
if (Full = true) then
begin
wait(3000);
If findBitmapToleranceIn (InvyFull, X, Y, 683, 476, 732, 551, 5) then
begin
Full = true;
//Click deposit box, wait to walk
if findColorTolerance(X, Y, 10338767, 230, 450, 300, 490, 5) then
begin
mmouse(X, Y);
wait(250);
mouse(X, Y, mouse_Left);
wait(2000);
end;
end;
Full := false;
end;
if (Full = false) then
begin
//Clicks the shops npc
if findColorTolerance(X, Y, 2968470, 1, 42, 518, 389, 5) then
begin
mmouse(X, Y);
wait(250);
mouse(X, Y, mouse_Left);
wait(750);
end;
//Clicks the skilling shop button
if findBitmapToleranceIn(SkillShopBitmap, X, Y, 257, 313, 469, 356, 50) then
begin
mmouse(X, Y);
wait(250);
mouse(X, Y, mouse_Left);
wait(250);
end;
//Right-click dragon stones
if findColorTolerance(X, Y, 6098246, 435, 117, 482, 167, 5) then
begin
mmouse(X, Y);
wait(250);
ClickMouse(X, Y, mouse_Right);
wait(250);
end;
//Buy 50x dragon stones
mmouse(454, 225);
wait(250);
mouse(454, 225, mouse_Left);
wait(250);
//Close out of skilling shop
if findBitmapToleranceIn(CloseX, X, Y, 482, 52, 515, 83, 5) then
begin
mmouse(X, Y);
wait(250);
mouse(X, Y, mouse_Left);
wait(250);
end;
//Click dstone in invy
if findColorTolerance(X, Y, 6098246, 551, 259, 637, 330, 5) then
begin
mmouse(X, Y);
wait(250);
mouse(X, Y, mouse_Left);
wait(250);
end;
//Click action button, wait for them to finish
if findBitmapToleranceIn(ActionButton, X, Y, 198, 438, 317, 513, 5) then
begin
mmouse(X, Y);
wait(250);
mouse(X, Y, mouse_Left);
wait(1500);
end;
//Click deposit invy
if findBitmapToleranceIn(Deposit, X, Y, 291, 313, 332, 344, 5) then
begin
mmouse(X, Y);
wait(250);
mouse(X, Y, mouse_Left);
wait(250);
end;
//Close out of deposit box
if findBitmapToleranceIn(CloseX, X, Y, 482, 52, 515, 83, 5) then
begin
mmouse(X, Y);
wait(250);
mouse(X, Y, mouse_Left);
wait(250);
end;
//Walk back infront of shops npc, wait to walk
checkInstance;
end;
end;
procedure loadBitmaps;
begin
SkillShopBitmap := BitmapFromString(69, 12, 'meJy1lVsKQjEMRLsB/ej+l+NeBF' +
'ehEBwOM2lv/bCUgGOa5yR3zv48nq9Ebvd7yvamwZVmq7w5excVJ6+' +
'CH2OY8gcpvGQhmzjpdIPoZg1/zasqPHBU+QrVnjOdn0p3EtjK7N4F' +
'kdaCBVxFY5qSKqmay9h4216QEqncckaaQsxISxilU2pGM5NsMXNkx' +
'81LskJOaYc/mQjB5NVqdmQz+2JS0dpw0Rq50ZaRr4w25ivNTqyvdn' +
'aUe8aZ0kJqwZwUFtCoskmHYNuLnCbJ1uBhOvZ2xiFn2nROqmS9oP1' +
'8mPRr5eq5atimY8kedme1CXOl2OCb2mU6Fpu2RKaTHonnZuNXb7Ue' +
'BVrLxASy4lLOL2nlkRwQaEyrw78sBtMZsUBS5+SSkIZcnnYV/OO+A' +
'bfeSJM=');
CloseX := BitmapFromString(13, 13, 'meJw9kEtPwkAUhduZAqWtktAB03' +
'Yk9gHyKI1AfPAQI7oBVjW6YGfYaDDuXLqRvW4k0YU/wj9Ewg9x4YF' +
'JmJxMbu58c87c6fXWK4qiMDwOw7N6vR1FnSBo2naFc9eyLM4d7MPh' +
'sNM5j6I2gHL5qlK5LhYvPa9TKDRzudCyvNns+W0+3zWMWu0UQO3pJ' +
'2xMXH/sBWPOR9jtyQdjQSaTj+PbYhAia838/lW/VtWjR8+7s/x71O' +
'hYk3fDcCjVfb/huW34VL9Xgjw4eRVM6XOpsgGlDiGmbZcd+8JxRm7' +
'wIEih0mKp5+NEoqUovsA4b2zIm3ztZYuh1vWBqm4wajLmM1Y1zTZz' +
'JnAQTH2TuHWjlGlaVtOCNBugL7LgI/j128wuIbYs62pqh1IbE6F/u' +
'Fgae7FhDOAjbqEvy/Ax9y2TEB3j4JfSrJtMthAEwUcwsqT1+32Xs7' +
'SqwZaQLGBF8SD4b7LWjCwp0+lUliQolVQoAawBxvgQallKi1Ng/8P' +
'BcH4=');
Deposit := BitmapFromString(31, 21, 'meJy1lc9KAlEUxluEoKWCLrKIyo' +
'GEWoX2b1EUlQuRBiKCoGIgCCEiiDYRLaJlqx7AoBfpSXqZfuNHp8t' +
'o4y0IPi7Hc2d+95tzzjhhdBX+p1rHF0PVPumg0UzmJ+ULxcQta822' +
'J1yE2YPnmf0n1urpqysyExuXCb4nHGx2arm4EAqrI3QKmty5RQTT7' +
'XuX/yt4vhRUNs8FFBwmhsuNiHPZIuP694FD5l4EnCNkUnCAZHLV9f' +
'FgF3EKu/GVPf5QuMjl+mG8NiLxsSc4dWBrJFdjdy68VsXiyzzg8Qy' +
'UAi4GKGOgyBCDRao2+cWzByR4XEA/ODfu1Y4I9OzUQfVhFZmnWLl5' +
'2XrsyjkZz5qrJqyK4atxBGou5sngufP2Xr/rxuRS4A8vNMdNMs+zG' +
'J+f6gIZyNr1aaiAzY9tRCDn4mv8NJygCOgpeWI9C3BeZ4OPrWYHYk' +
'W2skgaOR1BoIFE/KShA+GCuFiRsad33+DqJibtJVU1SJKJa9UHFyp' +
'B1jSKn4CLbANvw6NR7IcnyNZWSspamV9KwF2sBt6G3G1oCtwK7sJx' +
'aEzi7xb3PKfDXbL732VwUOIbNkH2d+7Wx5zH/waNiPYJm/KxAD5Q+' +
'gBJra9Phnya236swf8gAaX0Kz8Bw+v1kg==');
ActionButton := BitmapFromString(94, 12, 'meJztU0EOwzAIy32P2Bf2hDxzv1' +
'2rISFkDFmTle6wKgdKHePaSX/cesm6P181g07SfJ7+nbm1dvnPTmt' +
'e0Z+7Wu/MespfdCbZe4kzixOpM3shC5DaoQWNSamUubsrnAyinURe' +
'pOdzhqEz7f2AA9L0SLsFZsku8FyaAPBbkk4iz+s5xAAY6gwthkh6I' +
'BMD/aGaKA4lHhU+Nfupxpn8UM05s5i4RuZTmwjFOqy/6c2hnkeApE' +
'PTjBIHPUMGILFuC0BhvrAw+gpggFFCCoBTFI32Ra5nyBCR/Mii1+G' +
'/1BO4F/VrA+SNsfI=');
InvyFull := BitmapFromString(12, 44, 'meJx9kc0rhFEUxoekSNmR5CtNiq' +
'GXMtEb+ehVkyL5yCSaECGmLBRKKZNkSj5CWRjGQmJjIzYWsrCRkoX' +
'yB9j4Hzx66nS713vr13TmPL9zOnfmfCeV3j0Dm26cNGQHSWYgUF7u' +
'gPOdlAAhmtcBNEfG4VAQzXRUQYAGLEIou1QcP0Eci2BxRPBzVEGwC' +
'Fyi7jEF/jjA7wamdc3twBRkHGmoqRXM5Pf6jQteTp02Xu92clz2qO' +
'NMOcu0prEFyDg6cIA4mglkAyN2zJRNFBLVhtsAm+pOXiWaiXaAirr' +
'fMmvfbz7BLlvgA/0orKwVSkLhf6lxI6Cq5Q8UjtfvRKIaXcNT3aOz' +
'AEVPbKFvcnFobmVwcWNsbU9AyiY+WcweXO4+vICFk2vUAP2R5SSAD' +
'4EytqlAXrq4jS5t8SvWagKIrR9ikCeZKZneTpkCjmcTBcABqDMCAR' +
'UKAq4tKi7eunu7+fq5ev8GR48fA/FVdQR7WKSfPwE1FPv3rwJfBAf' +
'jap/MJU+BOJOJ48TNEyMUJCc3F4jjjUxI9K9DrWdoLJ7YV52CiiDg' +
'3wQB6Wr6TmgdiCHlc+iUZZVqgvZ2bU/3+Dy+Ol4EL6oOu+AX6xKwNw==');
end;
begin
loadBitmaps;
writeln('Prodigy-X Crafting Bot!');
FreeBitmap(SkillShopBitmap);
FreeBitmap(CloseX);
FreeBitmap(Deposit);
FreeBitmap(ActionButton);
FreeBitmap(InvyFull);
end.