SRL Archive - First Scripts

my first script (useless but it works)

Magiic

2008-07-12 07:34:56

ok well what this script basically does is opensup the inventory from any gametab and equips a rune axe from any invo spot it then opens up the worn equipment and unequips it told you it was useless but it was my first try so here it is (for some reason i cant't attach it oh well i'll just post it)

program firstscript;
{.include SRL/SRL.scar}//must be on full brightness on any tab
var
rune_axe: integer;
invo: integer;
invo_opened: integer;
armour: integer;
unequip_axe: integer;
procedure signature;
begin
wait(3000);
writeln('sandos1234s first script');
end;
procedure ending;
begin
wait(3000)
writeln('thanks sandos1234')
end;


procedure LoadBitmap;
begin
rune_axe := BitmapFromString(18, 27, 'beNqdlMtKw1AURXOnatra' +
       'ik77CZ1KEaRIUWl9a7VYSyQ0GILFIgoOBAeCA8GBIPi3XfFo87gm5' +
       'ro5g4bclb2zc6hlaVKxKSh1fVh6OC+/+tXP26XkE3KepiYnpcdhRa' +
       'iuN9m+DDb67vrxBdPqOQyXGqjuzspPTuUtqO4H9x13zAAym8Or9sA' +
       'D8VfsJKX8PZt4z+4iFEac5BjDeUHw0imMiPfihZRkWzvoN3d7HM6h' +
       'MCIeL5V6fVhBNEqNujZGEo/LRr0uw+/VzpEgo2Wb+QKjzmdGP+ejG' +
       'NhRo1Bxr1kPQukfRajYXeVsLWBED+/jWgb1vTaxGGHnGGXEi5S8Fa' +
       '6EFJ5tlPY9bc3LFn3c1IpTdJ4qvOCeY5TbQ1o7zTkWydDIGrTDzo2' +
       'MEJ3TnkkPoejcNB5ikUyNEJ3LX4QR9ecW/SrT9kT/iCe7YRpPW/5i' +
       'mgI7u4If');
end;

procedure loadbitmap2;
Begin
invo := BitmapFromString(36, 35, 'beNrtlt1KVFEYhseDsKJMrQE1' +
       'B9TBqUGltDQzkyiR8udkxpMspP+ChMDMIIooCirqJDrqrIvoIrqEu' +
       'oYuokffeFmutWc7F+DmZbP3mrW+Z76f/a1VKHx89RB9ffeE++c3a+' +
       'j9i/tvn93ilbu1ubYiPb5Tu3tjEd1cvsZ9pTZbW7y8dHV6fnbqyoX' +
       'Ri+NDB/fv6y629fYcPdZ5qLDzwrhYlujWy/VVJND6g/qj1SWBpB2g' +
       '82Pjo4Mj1XLH4VbETykL+9+/bKBvn56muEKhJVX7kXY8Cp2anZmUX' +
       '9VKP04h/lLEEgWJIjSmbPP1Qi/6UOu3NKIJUOYunYEi4RosxXBXli' +
       'zIeEqJcCIqgGhq4nTIwuuU5UyxsNrZOldua4SIQMbZKWJYKfftyhL' +
       'oXN8BBC4HtDHXZYW4mclhaiMnhsoRslOZrtkLIfSXzLo3U2S5/Boc' +
       '6G7EMuj22U5RMBLhDAodZz4PUCBy5xUjpCzHLxWeWLIQ4SIxPn+qy' +
       'E8hjgexSqVes/j6Ipa+IE3WH2Yt1jJxciHE/flR/nW9zqCyFrLS2q' +
       'AjMUcWFB/shDgnxfWgaP/9+RwQz783KwwyIlZOHQqkCOTgLCUIkLM' +
       'GyyDk2qgvTGeyuNPuuE+c6I4iaZwoclAs+8V8saiNfFZ9uCNipYmz' +
       'X0oTLMeQX1VRLOf7ymdhjTs9PGVFdaKvT3Ip8sw0u9YMi41JrEycK' +
       'SaGIPkbsdI9JYflInHoTA9ZqtIm/VIRZrJkPG2AzbDo/ylLjcKgiI' +
       'VBI8K9RiF1P0xZdOOItN21tig5rLB1RHuKvoUmWWRwu3G1KHGNWJn' +
       'd3l3XzRD1l4qNYgjLOLPCUoximFLsEeJgk5MvRoTLZ0VtSpQIpENU' +
       'jl+MWGkYxQpxoTspKGSxdaYsn4K2s/k/cRELpZQURABLx7vEYjBih' +
       'ccSPbPWuJCF6JwRJQSxc7Gh2C9GIhYzoaCtE9f4kF6F06cXSudGUz' +
       'RfIARIfnG6hsVrxGLO2PAAS9DoyEkvRCZapoTT7JFAUDjSI14jFtO' +
       'ihZFsP5Nij8QigFCqgz2Ih8LetXc1c/0D3NA6Ig==');
end;
procedure loadbitmap3;
Begin
 invo_opened := BitmapFromString(32, 34, 'beNqtls1qU1EUheugN' +
       'i1tTFJTkpqUNLGxoVGxtIqggiAd2Fk70oEgdOZI0ApOnPoaPoQP4S' +
       'PoM/gQfnHR1c2+N5ciwuJw7sk539pnn79Mh2fD7rvbt6T3436s6Cd' +
       'K6/VWh/LNoEPlpLdx3L0pvei00JN2Ax0063v11YWFa912vbe5nvhW' +
       'tLMLWAl45D/faKLH63Xg4o9WV7Bori2ZD+3j7haKFhadi2rcaChyB' +
       'y8L8dtLi4of1OfJAEU4Yrg5X4576OvJtqUWdTDZinywgpuvUQIWyc' +
       'lCLubfa6xFPnM/350F77DpPGktHY3q87AJbgsHH/Pj5Cj/gj8aLCM' +
       'sKuAfjjpWsoj8uG20jgq+dAqOVliFYf7Zs7Ys0vp6K/Lr24OWyAxM' +
       'FobHCdKfCmRcKPkEEvkcFu9P8TUqWSTR/vJ+m5+iBRXx+/2e+TqSD' +
       'l6dGUV/CKUWCjVa/Po2+vHqlEatQuRzDM3XKM2dsdHCSfaaKpO/v3' +
       '8CTv3n+ZhGWkr5gmt2FRaWEg7cqwDf8JmWa0U+JemifHinm7JkC5E' +
       '1EfEdP/3FZwuZz+0k5um0Sclym19cCMevtMN3fvhVu0L7J/KZAo0Q' +
       'Uvzmp7XW6ZC8hajTzVOI+Yl81eGXWphslwjXvBJfF3gF3wvttNgx8' +
       'rW7inyubvG1eUr5AhYvnAp+t3Y98XVgDU98IMbGe1vp8v0zjy8LmB' +
       'X8eITT/ax9W7q+PD164GShhZjHL71FfbP58onxw9frbAvz4xZK+Sm' +
       'SLyP/ezkkvl2q+emKEDnBdTmbz1n206+ymCLxo0UMO8HFd/75xCK9' +
       '/l6IxEdFchEe41djfJpVob8tIh9xUyWy02KZr0+7qCLJQkcjSv+LI' +
       'jnBSU7i28K67HzhYpkcmQmO6LlSW+SztFsedcGsIEf+7J3a2URXgV' +
       '9RCtXBz/jjbU1Zjf9FAir4u5PR/nSISv8e/5vMlJ4e7h0+2IktUak' +
       'zn6WaN3z/D4dG7Lo=');
end;
procedure loadarmourbitmap;
Begin
 armour := BitmapFromString(33, 33, 'beNp1lktrVlcUhuNAWkQLbR' +
       'Vq6gdqiDQkgcb6lTReSDUtWs0kaQemEqStl2IgrRIFSS0t7UAJQkQ' +
       '7KR04dybOpH+gjqQ/oz/CJz72ZbGPgZfDOfvs8z57rbUvZ3hw5MC+' +
       'PYPv7t711tyZ49eXFq59/xXiRl29OJ/71auL3tCBdnTlm7lvvz5z7' +
       'stTC3MzXtEXM1Nv73gDDe/ffWxy7Gh/dOc722n//eaFrn5dOY+84T' +
       'owsAUFhEBcXpzFHBBikPOnj4A4cXgC521vbmXwCARf4XD7p0vo3m/' +
       'LXNd+WUJB0AHzf58/v7XyIzfxNwSFP8K/IjBHtOOgrQjlI3L8jx89' +
       'xP/T6c+kkCXGnywhfGZP/h/CJwf7E8PjI0NQyBjdGKrDjr8II0J44' +
       'ry+fBZB4bHX25MQ9E8UM8cmjYIqU2ISRU+iwPD+nWuoIqRwNYr/nt' +
       'xAP6/+IMJEIRExVwQSBB1AYFX9g1AG8uzBFaS/USRRtQpo6uMPGwS' +
       'Jwt8JkxQhW1IUUoT0JwTf1kTZYghNokyFebCb+vufp4ib41P9GoWP' +
       'vCJ7tX8cLPeBob1BOGd0cOZ4v/Td2b/+/APhSWPEo+3pyQ0f1kyCY' +
       'OkF4Yyq41FYQUHcOGYl0fbuV2aSciRRJJN15LrwbZSvmEUmTYRLox' +
       'o2shxJFMUC4Sq2rNk0mGmCGHDMHX81r4si86pGAYLp4R5SzbMNIgN' +
       'Zu7tu/uNfF11WdxCJgo1LhOr6U6zXIqq5ziDQyelDn09/xKRNuUGw' +
       '25grKdnD3a55m+qnvpshuIogiopgnF2E/llijJ8oUgjURdRa1EkrQ' +
       'opbdJVLzIUQhHO4UmLO+Dey9HLpBUEH/E1IPcsqwuWWdcdVhOmq4x' +
       'dBFBPjH9QoPLZANCE0iFRkM0T8iaIieJVAzBgscc6lZqJ6dtBoS6o' +
       'sIjv5wbH9QdAioirHZYNwO20Q3RCYTkSxr7erInLEV/8gEkI27S7C' +
       'uZrzokkUkfptDsqKiL/dTEvamxBycJOoRFERyLNeWWsHXBeXUVjxp' +
       'goJgX+Diqhzuy4orbo5adpj/upI7Y82COLiVVZlneRNZePTzIHkB3' +
       '9SpD9KLWzUvI5HqzpdN3vVIKiC/r333xPBIwheGY6RxscVhw8/MJq' +
       'o+iofZvycFOzkQXBvOx0w1wFikw2DjWoON4bXH/X3L/4UAgR/myCI' +
       'iBbaeUuMWsU/CD+PRISS9uqP+OFUleLn3eO+QXS7pcRK/5HhQSRCi' +
       'iDUHPc2OsL06XaLv1G8QrwARUdc5Q==');
end;
procedure loadunequipbitmap;
 begin
      unequip_axe := BitmapFromString(22, 24, 'beNptlF1LlFEUhe0uq' +
       'lGzqFt/ghAGoVFOkzTpq43OqDOkw8Tg0DAoSRR0EXgheCF0EQj925' +
       '7hicVBg83hPR97nbXX2ufttquq2em0GBuNtWbz7UG33dqpZmbunOz' +
       'O/vg4dzVe+PP1MdP/BieP+j1SyAWBKSMgTNk925v92Z8XoRqdvf80' +
       'afSGrztHRH1/QDDlGOkSYBTBYOtbd+58MP9rstCafN8cnhKAEO/6n' +
       '9cPR6SPn9Y4trS46L1EPlgff6hRwsXwIQgQIIsUglzT4RAEaMgcGm' +
       'ury4oAAUq4HE0R5P9yp7eyvU/ibQTvVUBACNYhQAmIcEM6cEwvEUx' +
       'kjAvHVQ0CluAZg+8Xm23Tj5/UCEHkL0h8DAFzWdcvaWCHCFFShHCI' +
       'hiGpTd7CogjBZ4uuYNc2GDQfQAANf58+yhWpMTxLehKwIfURAmUJZ' +
       'b+le90yUf5BoBU1saxRu0MGzn6nQNenLVq/bydff/lXgoneWz4BME' +
       '23FUsfb5houkKlBDkobAmojxCIhpYmQxGYisOK4B7Qha2VezTzbQK' +
       'pN8/QLPkYEjhcn/oYApZmmbnUMc8wSsZHXIiGcs57N1fM6K8IuvDm' +
       '2V18LEvQ5RSblI36c2mriebqI80cAqptpaFR6mYrSkAONDM++kuMh' +
       'lpmD9h75XrK8Yegj2W3RyhrgZVTCZSOkLX7aupjXMg7spZSw/SDOG' +
       'UzI0JKSAN4IHo69Y3kn3bwF2V/lM0=');
end;
procedure fbtmapunequip;

var
x, y :integer;


begin;
if (findbitmaptolerancein(unequip_axe, x, y, 526, 168, 760, 488, 25)) then
begin
   WriteLn('Bitmap found. Attempting to click');
    Mouse(x, y, 1, 1, true);
    if (IsUpText('emov')) then
    mouse(x, y, 1, 1, true);
  end else
    WriteLn('Bitmap not found.');
end;



procedure openarmour;
var
x, y :integer;

begin;
if (FindBitmapToleranceIn(armour, x, y, 526, 168, 760, 488, 25)) then
begin
   WriteLn('Bitmap found. Attempting to click');
    Mouse(x, y, 1, 1, true);
    if (IsUpText('orn')) then
    mouse(x, y, 1, 1, true);
  end else
    WriteLn('Bitmap not found.');
end;






procedure FBtmaprune;

var
x, y :integer;

begin;
if (FindBitmapToleranceIn(rune_axe, x, y, 526, 168, 760, 488, 25)) then
begin
   WriteLn('Bitmap found. Attempting to click');
    Mouse(x, y, 1, 1, true);
    if (IsUpText('une')) then
    mouse(x, y, 1, 1, true);
  end else
    WriteLn('Bitmap not found.');
end;

procedure fbtmapinventory;

var
x, y :integer;


begin;
if (findbitmaptolerancein(invo, x, y, 526, 168, 760, 488, 25)) then
begin
  WriteLn('Bitmap found. Attempting to click');
    Mouse(x, y, 1, 1, true);
    if (IsUpText('nven')) then
    mouse(x, y, 1, 1, true);
  end else
    WriteLn('Bitmap not found.');
end;




procedure fbtmapinventoryopened;

var
x, y :integer;


begin;
if (findbitmaptolerancein(invo_opened, x, y, 526, 168, 760, 488, 25)) then
begin
    WriteLn('Bitmap found. Attempting to click');
    Mouse(x, y, 1, 1, true);
    if (IsUpText('nven')) then
    mouse(x, y, 1, 1, true);
  end else
    WriteLn('Bitmap not found.');
end;



procedure loadbitmaps;
begin
loadBitmap;
loadbitmap2;
loadbitmap3
loadarmourbitmap;
loadunequipbitmap;
end;

procedure releasebitmaps;
begin
releasebitmaps;
end;


begin
setupSRL;
signature;
loadbitmaps;
wait(2000);
fbtmapinventoryopened;
wait(2000);
fbtmapinventory;
wait(2000);
FBtmaprune;
wait(2000);
openarmour;
wait(2000);
fbtmapunequip;
wait(2000);
fbtmapinventory;
wait(2000)
releasebitmaps;
ending;
end.

Bobzilla69

2008-07-12 10:12:13

program first script;
{.include SRL/SRL.scar}
//must be on full brightness on any tab
var
x, y, rune_axe, invo, invo_opened, armour, unequip_axe: integer;

procedure signature;
begin
  wait(3000);
  writeln('sandos1234s first script');
end;

procedure ending;
begin
  wait(3000)
  writeln('thanks sandos1234')
end;


procedure LoadBitmaps;
begin
  rune_axe := BitmapFromString(18, 27, 'beNqdlMtKw1AURXOnatra' +
         'ik77CZ1KEaRIUWl9a7VYSyQ0GILFIgoOBAeCA8GBIPi3XfFo87gm5' +
         'ro5g4bclb2zc6hlaVKxKSh1fVh6OC+/+tXP26XkE3KepiYnpcdhRa' +
         'iuN9m+DDb67vrxBdPqOQyXGqjuzspPTuUtqO4H9x13zAAym8Or9sA' +
         'D8VfsJKX8PZt4z+4iFEac5BjDeUHw0imMiPfihZRkWzvoN3d7HM6h' +
         'MCIeL5V6fVhBNEqNujZGEo/LRr0uw+/VzpEgo2Wb+QKjzmdGP+ejG' +
         'NhRo1Bxr1kPQukfRajYXeVsLWBED+/jWgb1vTaxGGHnGGXEi5S8Fa' +
         '6EFJ5tlPY9bc3LFn3c1IpTdJ4qvOCeY5TbQ1o7zTkWydDIGrTDzo2' +
         'MEJ3TnkkPoejcNB5ikUyNEJ3LX4QR9ecW/SrT9kT/iCe7YRpPW/5i' +
         'mgI7u4If');
  invo := BitmapFromString(36, 35, 'beNrtlt1KVFEYhseDsKJMrQE1' +
         'B9TBqUGltDQzkyiR8udkxpMspP+ChMDMIIooCirqJDrqrIvoIrqEu' +
         'oYuokffeFmutWc7F+DmZbP3mrW+Z76f/a1VKHx89RB9ffeE++c3a+' +
         'j9i/tvn93ilbu1ubYiPb5Tu3tjEd1cvsZ9pTZbW7y8dHV6fnbqyoX' +
         'Ri+NDB/fv6y629fYcPdZ5qLDzwrhYlujWy/VVJND6g/qj1SWBpB2g' +
         '82Pjo4Mj1XLH4VbETykL+9+/bKBvn56muEKhJVX7kXY8Cp2anZmUX' +
         '9VKP04h/lLEEgWJIjSmbPP1Qi/6UOu3NKIJUOYunYEi4RosxXBXli' +
         'zIeEqJcCIqgGhq4nTIwuuU5UyxsNrZOldua4SIQMbZKWJYKfftyhL' +
         'oXN8BBC4HtDHXZYW4mclhaiMnhsoRslOZrtkLIfSXzLo3U2S5/Boc' +
         '6G7EMuj22U5RMBLhDAodZz4PUCBy5xUjpCzHLxWeWLIQ4SIxPn+qy' +
         'E8hjgexSqVes/j6Ipa+IE3WH2Yt1jJxciHE/flR/nW9zqCyFrLS2q' +
         'AjMUcWFB/shDgnxfWgaP/9+RwQz783KwwyIlZOHQqkCOTgLCUIkLM' +
         'GyyDk2qgvTGeyuNPuuE+c6I4iaZwoclAs+8V8saiNfFZ9uCNipYmz' +
         'X0oTLMeQX1VRLOf7ymdhjTs9PGVFdaKvT3Ip8sw0u9YMi41JrEycK' +
         'SaGIPkbsdI9JYflInHoTA9ZqtIm/VIRZrJkPG2AzbDo/ylLjcKgiI' +
         'VBI8K9RiF1P0xZdOOItN21tig5rLB1RHuKvoUmWWRwu3G1KHGNWJn' +
         'd3l3XzRD1l4qNYgjLOLPCUoximFLsEeJgk5MvRoTLZ0VtSpQIpENU' +
         'jl+MWGkYxQpxoTspKGSxdaYsn4K2s/k/cRELpZQURABLx7vEYjBih' +
         'ccSPbPWuJCF6JwRJQSxc7Gh2C9GIhYzoaCtE9f4kF6F06cXSudGUz' +
         'RfIARIfnG6hsVrxGLO2PAAS9DoyEkvRCZapoTT7JFAUDjSI14jFtO' +
         'ihZFsP5Nij8QigFCqgz2Ih8LetXc1c/0D3NA6Ig==');
   invo_opened := BitmapFromString(32, 34, 'beNqtls1qU1EUheugN' +
         'i1tTFJTkpqUNLGxoVGxtIqggiAd2Fk70oEgdOZI0ApOnPoaPoQP4S' +
         'PoM/gQfnHR1c2+N5ciwuJw7sk539pnn79Mh2fD7rvbt6T3436s6Cd' +
         'K6/VWh/LNoEPlpLdx3L0pvei00JN2Ax0063v11YWFa912vbe5nvhW' +
         'tLMLWAl45D/faKLH63Xg4o9WV7Bori2ZD+3j7haKFhadi2rcaChyB' +
         'y8L8dtLi4of1OfJAEU4Yrg5X4576OvJtqUWdTDZinywgpuvUQIWyc' +
         'lCLubfa6xFPnM/350F77DpPGktHY3q87AJbgsHH/Pj5Cj/gj8aLCM' +
         'sKuAfjjpWsoj8uG20jgq+dAqOVliFYf7Zs7Ys0vp6K/Lr24OWyAxM' +
         'FobHCdKfCmRcKPkEEvkcFu9P8TUqWSTR/vJ+m5+iBRXx+/2e+TqSD' +
         'l6dGUV/CKUWCjVa/Po2+vHqlEatQuRzDM3XKM2dsdHCSfaaKpO/v3' +
         '8CTv3n+ZhGWkr5gmt2FRaWEg7cqwDf8JmWa0U+JemifHinm7JkC5E' +
         '1EfEdP/3FZwuZz+0k5um0Sclym19cCMevtMN3fvhVu0L7J/KZAo0Q' +
         'Uvzmp7XW6ZC8hajTzVOI+Yl81eGXWphslwjXvBJfF3gF3wvttNgx8' +
         'rW7inyubvG1eUr5AhYvnAp+t3Y98XVgDU98IMbGe1vp8v0zjy8LmB' +
         'X8eITT/ax9W7q+PD164GShhZjHL71FfbP58onxw9frbAvz4xZK+Sm' +
         'SLyP/ezkkvl2q+emKEDnBdTmbz1n206+ymCLxo0UMO8HFd/75xCK9' +
         '/l6IxEdFchEe41djfJpVob8tIh9xUyWy02KZr0+7qCLJQkcjSv+LI' +
         'jnBSU7i28K67HzhYpkcmQmO6LlSW+SztFsedcGsIEf+7J3a2URXgV' +
         '9RCtXBz/jjbU1Zjf9FAir4u5PR/nSISv8e/5vMlJ4e7h0+2IktUak' +
         'zn6WaN3z/D4dG7Lo=');
   armour := BitmapFromString(33, 33, 'beNp1lktrVlcUhuNAWkQLbR' +
         'Vq6gdqiDQkgcb6lTReSDUtWs0kaQemEqStl2IgrRIFSS0t7UAJQkQ' +
         '7KR04dybOpH+gjqQ/oz/CJz72ZbGPgZfDOfvs8z57rbUvZ3hw5MC+' +
         'PYPv7t711tyZ49eXFq59/xXiRl29OJ/71auL3tCBdnTlm7lvvz5z7' +
         'stTC3MzXtEXM1Nv73gDDe/ffWxy7Gh/dOc722n//eaFrn5dOY+84T' +
         'owsAUFhEBcXpzFHBBikPOnj4A4cXgC521vbmXwCARf4XD7p0vo3m/' +
         'LXNd+WUJB0AHzf58/v7XyIzfxNwSFP8K/IjBHtOOgrQjlI3L8jx89' +
         'xP/T6c+kkCXGnywhfGZP/h/CJwf7E8PjI0NQyBjdGKrDjr8II0J44' +
         'ry+fBZB4bHX25MQ9E8UM8cmjYIqU2ISRU+iwPD+nWuoIqRwNYr/nt' +
         'xAP6/+IMJEIRExVwQSBB1AYFX9g1AG8uzBFaS/USRRtQpo6uMPGwS' +
         'Jwt8JkxQhW1IUUoT0JwTf1kTZYghNokyFebCb+vufp4ib41P9GoWP' +
         'vCJ7tX8cLPeBob1BOGd0cOZ4v/Td2b/+/APhSWPEo+3pyQ0f1kyCY' +
         'OkF4Yyq41FYQUHcOGYl0fbuV2aSciRRJJN15LrwbZSvmEUmTYRLox' +
         'o2shxJFMUC4Sq2rNk0mGmCGHDMHX81r4si86pGAYLp4R5SzbMNIgN' +
         'Zu7tu/uNfF11WdxCJgo1LhOr6U6zXIqq5ziDQyelDn09/xKRNuUGw' +
         '25grKdnD3a55m+qnvpshuIogiopgnF2E/llijJ8oUgjURdRa1EkrQ' +
         'opbdJVLzIUQhHO4UmLO+Dey9HLpBUEH/E1IPcsqwuWWdcdVhOmq4x' +
         'dBFBPjH9QoPLZANCE0iFRkM0T8iaIieJVAzBgscc6lZqJ6dtBoS6o' +
         'sIjv5wbH9QdAioirHZYNwO20Q3RCYTkSxr7erInLEV/8gEkI27S7C' +
         'uZrzokkUkfptDsqKiL/dTEvamxBycJOoRFERyLNeWWsHXBeXUVjxp' +
         'goJgX+Diqhzuy4orbo5adpj/upI7Y82COLiVVZlneRNZePTzIHkB3' +
         '9SpD9KLWzUvI5HqzpdN3vVIKiC/r333xPBIwheGY6RxscVhw8/MJq' +
         'o+iofZvycFOzkQXBvOx0w1wFikw2DjWoON4bXH/X3L/4UAgR/myCI' +
         'iBbaeUuMWsU/CD+PRISS9uqP+OFUleLn3eO+QXS7pcRK/5HhQSRCi' +
         'iDUHPc2OsL06XaLv1G8QrwARUdc5Q==');
      unequip_axe := BitmapFromString(22, 24, 'beNptlF1LlFEUhe0uq' +
       'lGzqFt/ghAGoVFOkzTpq43OqDOkw8Tg0DAoSRR0EXgheCF0EQj925' +
       '7hicVBg83hPR97nbXX2ufttquq2em0GBuNtWbz7UG33dqpZmbunOz' +
       'O/vg4dzVe+PP1MdP/BieP+j1SyAWBKSMgTNk925v92Z8XoRqdvf80' +
       'afSGrztHRH1/QDDlGOkSYBTBYOtbd+58MP9rstCafN8cnhKAEO/6n' +
       '9cPR6SPn9Y4trS46L1EPlgff6hRwsXwIQgQIIsUglzT4RAEaMgcGm' +
       'ury4oAAUq4HE0R5P9yp7eyvU/ibQTvVUBACNYhQAmIcEM6cEwvEUx' +
       'kjAvHVQ0CluAZg+8Xm23Tj5/UCEHkL0h8DAFzWdcvaWCHCFFShHCI' +
       'hiGpTd7CogjBZ4uuYNc2GDQfQAANf58+yhWpMTxLehKwIfURAmUJZ' +
       'b+le90yUf5BoBU1saxRu0MGzn6nQNenLVq/bydff/lXgoneWz4BME' +
       '23FUsfb5houkKlBDkobAmojxCIhpYmQxGYisOK4B7Qha2VezTzbQK' +
       'pN8/QLPkYEjhcn/oYApZmmbnUMc8wSsZHXIiGcs57N1fM6K8IuvDm' +
       '2V18LEvQ5RSblI36c2mriebqI80cAqptpaFR6mYrSkAONDM++kuMh' +
       'lpmD9h75XrK8Yegj2W3RyhrgZVTCZSOkLX7aupjXMg7spZSw/SDOG' +
       'UzI0JKSAN4IHo69Y3kn3bwF2V/lM0=');
end;

procedure fbtmapunequip;
begin;
  if (findbitmaptolerancein(unequip_axe, x, y, 526, 168, 760, 488, 25)) then
  begin
    WriteLn('Bitmap found. Attempting to click');
    Mouse(x, y, 1, 1, true);
    if (IsUpText('emov')) then
    mouse(x, y, 1, 1, true);
  end else
  WriteLn('Bitmap not found.');
end;

procedure openarmour;
begin;
  if (FindBitmapToleranceIn(armour, x, y, 526, 168, 760, 488, 25)) then
  begin
    WriteLn('Bitmap found. Attempting to click');
    Mouse(x, y, 1, 1, true);
    if (IsUpText('orn')) then
    mouse(x, y, 1, 1, true);
  end else
  WriteLn('Bitmap not found.');
end;

procedure FBtmaprune;
begin;
  if (FindBitmapToleranceIn(rune_axe, x, y, 526, 168, 760, 488, 25)) then
  begin
    WriteLn('Bitmap found. Attempting to click');
    Mouse(x, y, 1, 1, true);
    if (IsUpText('une')) then
    mouse(x, y, 1, 1, true);
  end else
  WriteLn('Bitmap not found.');
end;

procedure fbtmapinventory;
begin;
  if (findbitmaptolerancein(invo, x, y, 526, 168, 760, 488, 25)) then
  begin
    WriteLn('Bitmap found. Attempting to click');
    Mouse(x, y, 1, 1, true);
    if (IsUpText('nven')) then
    mouse(x, y, 1, 1, true);
  end else
  WriteLn('Bitmap not found.');
end;

procedure fbtmapinventoryopened;
begin;
  if (findbitmaptolerancein(invo_opened, x, y, 526, 168, 760, 488, 25)) then
  begin
    WriteLn('Bitmap found. Attempting to click');
    Mouse(x, y, 1, 1, true);
    if (IsUpText('nven')) then
    mouse(x, y, 1, 1, true);
  end else
  WriteLn('Bitmap not found.');
end;

procedure releasebitmaps;
begin
  FreeBitmap(rune_axe); //use this for free bitmaps
  FreeBitmap(invo);     //just enter bitmap name in brackets
  FreeBitmap(invo_opened);
  FreeBitmap(armour);
  FreeBitmap(unequip_axe);
end;


begin
  SetupSRL;
  signature;
  LoadBitmaps;
  wait(2000);
  fbtmapinventoryopened;
  wait(2000);
  fbtmapinventory;
  wait(2000);
  FBtmaprune;
  wait(2000);
  openarmour;
  wait(2000);
  fbtmapunequip;
  wait(2000);
  fbtmapinventory;
  wait(2000)
  releasebitmaps;
  ending;
end.

made some changes now its a bit shorter but the same, also fixed some standars but not all.

it ok for first script, but you can add most of the openarmour and fbtmapunequip into once procedure instead of calling each sepratly.

just read more tutorials to become a bit better

Magiic

2008-07-12 18:07:45

ok thanks i'll look through the script nd have a look at some more tuts :)

KyleKenney

2008-07-22 05:50:40

Failed when compiling
Line 1: [Error] (1:15): Semicolon (';') expected in script C:\Documents and Settings\Owner\Local Settings\Temporary Internet Files\Content.IE5\SVD0JSEV\SYCBCutter%20V1.05%20beta[1].scar

Magiic

2008-07-22 12:36:27

yeah i just realised if you use the script again it will work now

H20Effect

2008-07-26 00:51:34

Haha, well nice try! At least it works eh? (;

Magiic

2008-07-30 12:48:11

yup :P

Dgby714

2008-08-01 22:49:47

your program name "program first script;" can't have a space in it and you forgot a cuple ";"s


program First_Script;
{.include SRL/SRL.scar}
//must be on full brightness on any tab
var
x, y, rune_axe, invo, invo_opened, armour, unequip_axe: integer;

procedure LoadBitmaps;
begin
  rune_axe := BitmapFromString(18, 27, 'beNqdlMtKw1AURXOnatra' +
         'ik77CZ1KEaRIUWl9a7VYSyQ0GILFIgoOBAeCA8GBIPi3XfFo87gm5' +
         'ro5g4bclb2zc6hlaVKxKSh1fVh6OC+/+tXP26XkE3KepiYnpcdhRa' +
         'iuN9m+DDb67vrxBdPqOQyXGqjuzspPTuUtqO4H9x13zAAym8Or9sA' +
         'D8VfsJKX8PZt4z+4iFEac5BjDeUHw0imMiPfihZRkWzvoN3d7HM6h' +
         'MCIeL5V6fVhBNEqNujZGEo/LRr0uw+/VzpEgo2Wb+QKjzmdGP+ejG' +
         'NhRo1Bxr1kPQukfRajYXeVsLWBED+/jWgb1vTaxGGHnGGXEi5S8Fa' +
         '6EFJ5tlPY9bc3LFn3c1IpTdJ4qvOCeY5TbQ1o7zTkWydDIGrTDzo2' +
         'MEJ3TnkkPoejcNB5ikUyNEJ3LX4QR9ecW/SrT9kT/iCe7YRpPW/5i' +
         'mgI7u4If');
  invo := BitmapFromString(36, 35, 'beNrtlt1KVFEYhseDsKJMrQE1' +
         'B9TBqUGltDQzkyiR8udkxpMspP+ChMDMIIooCirqJDrqrIvoIrqEu' +
         'oYuokffeFmutWc7F+DmZbP3mrW+Z76f/a1VKHx89RB9ffeE++c3a+' +
         'j9i/tvn93ilbu1ubYiPb5Tu3tjEd1cvsZ9pTZbW7y8dHV6fnbqyoX' +
         'Ri+NDB/fv6y629fYcPdZ5qLDzwrhYlujWy/VVJND6g/qj1SWBpB2g' +
         '82Pjo4Mj1XLH4VbETykL+9+/bKBvn56muEKhJVX7kXY8Cp2anZmUX' +
         '9VKP04h/lLEEgWJIjSmbPP1Qi/6UOu3NKIJUOYunYEi4RosxXBXli' +
         'zIeEqJcCIqgGhq4nTIwuuU5UyxsNrZOldua4SIQMbZKWJYKfftyhL' +
         'oXN8BBC4HtDHXZYW4mclhaiMnhsoRslOZrtkLIfSXzLo3U2S5/Boc' +
         '6G7EMuj22U5RMBLhDAodZz4PUCBy5xUjpCzHLxWeWLIQ4SIxPn+qy' +
         'E8hjgexSqVes/j6Ipa+IE3WH2Yt1jJxciHE/flR/nW9zqCyFrLS2q' +
         'AjMUcWFB/shDgnxfWgaP/9+RwQz783KwwyIlZOHQqkCOTgLCUIkLM' +
         'GyyDk2qgvTGeyuNPuuE+c6I4iaZwoclAs+8V8saiNfFZ9uCNipYmz' +
         'X0oTLMeQX1VRLOf7ymdhjTs9PGVFdaKvT3Ip8sw0u9YMi41JrEycK' +
         'SaGIPkbsdI9JYflInHoTA9ZqtIm/VIRZrJkPG2AzbDo/ylLjcKgiI' +
         'VBI8K9RiF1P0xZdOOItN21tig5rLB1RHuKvoUmWWRwu3G1KHGNWJn' +
         'd3l3XzRD1l4qNYgjLOLPCUoximFLsEeJgk5MvRoTLZ0VtSpQIpENU' +
         'jl+MWGkYxQpxoTspKGSxdaYsn4K2s/k/cRELpZQURABLx7vEYjBih' +
         'ccSPbPWuJCF6JwRJQSxc7Gh2C9GIhYzoaCtE9f4kF6F06cXSudGUz' +
         'RfIARIfnG6hsVrxGLO2PAAS9DoyEkvRCZapoTT7JFAUDjSI14jFtO' +
         'ihZFsP5Nij8QigFCqgz2Ih8LetXc1c/0D3NA6Ig==');
   invo_opened := BitmapFromString(32, 34, 'beNqtls1qU1EUheugN' +
         'i1tTFJTkpqUNLGxoVGxtIqggiAd2Fk70oEgdOZI0ApOnPoaPoQP4S' +
         'PoM/gQfnHR1c2+N5ciwuJw7sk539pnn79Mh2fD7rvbt6T3436s6Cd' +
         'K6/VWh/LNoEPlpLdx3L0pvei00JN2Ax0063v11YWFa912vbe5nvhW' +
         'tLMLWAl45D/faKLH63Xg4o9WV7Bori2ZD+3j7haKFhadi2rcaChyB' +
         'y8L8dtLi4of1OfJAEU4Yrg5X4576OvJtqUWdTDZinywgpuvUQIWyc' +
         'lCLubfa6xFPnM/350F77DpPGktHY3q87AJbgsHH/Pj5Cj/gj8aLCM' +
         'sKuAfjjpWsoj8uG20jgq+dAqOVliFYf7Zs7Ys0vp6K/Lr24OWyAxM' +
         'FobHCdKfCmRcKPkEEvkcFu9P8TUqWSTR/vJ+m5+iBRXx+/2e+TqSD' +
         'l6dGUV/CKUWCjVa/Po2+vHqlEatQuRzDM3XKM2dsdHCSfaaKpO/v3' +
         '8CTv3n+ZhGWkr5gmt2FRaWEg7cqwDf8JmWa0U+JemifHinm7JkC5E' +
         '1EfEdP/3FZwuZz+0k5um0Sclym19cCMevtMN3fvhVu0L7J/KZAo0Q' +
         'Uvzmp7XW6ZC8hajTzVOI+Yl81eGXWphslwjXvBJfF3gF3wvttNgx8' +
         'rW7inyubvG1eUr5AhYvnAp+t3Y98XVgDU98IMbGe1vp8v0zjy8LmB' +
         'X8eITT/ax9W7q+PD164GShhZjHL71FfbP58onxw9frbAvz4xZK+Sm' +
         'SLyP/ezkkvl2q+emKEDnBdTmbz1n206+ymCLxo0UMO8HFd/75xCK9' +
         '/l6IxEdFchEe41djfJpVob8tIh9xUyWy02KZr0+7qCLJQkcjSv+LI' +
         'jnBSU7i28K67HzhYpkcmQmO6LlSW+SztFsedcGsIEf+7J3a2URXgV' +
         '9RCtXBz/jjbU1Zjf9FAir4u5PR/nSISv8e/5vMlJ4e7h0+2IktUak' +
         'zn6WaN3z/D4dG7Lo=');
   armour := BitmapFromString(33, 33, 'beNp1lktrVlcUhuNAWkQLbR' +
         'Vq6gdqiDQkgcb6lTReSDUtWs0kaQemEqStl2IgrRIFSS0t7UAJQkQ' +
         '7KR04dybOpH+gjqQ/oz/CJz72ZbGPgZfDOfvs8z57rbUvZ3hw5MC+' +
         'PYPv7t711tyZ49eXFq59/xXiRl29OJ/71auL3tCBdnTlm7lvvz5z7' +
         'stTC3MzXtEXM1Nv73gDDe/ffWxy7Gh/dOc722n//eaFrn5dOY+84T' +
         'owsAUFhEBcXpzFHBBikPOnj4A4cXgC521vbmXwCARf4XD7p0vo3m/' +
         'LXNd+WUJB0AHzf58/v7XyIzfxNwSFP8K/IjBHtOOgrQjlI3L8jx89' +
         'xP/T6c+kkCXGnywhfGZP/h/CJwf7E8PjI0NQyBjdGKrDjr8II0J44' +
         'ry+fBZB4bHX25MQ9E8UM8cmjYIqU2ISRU+iwPD+nWuoIqRwNYr/nt' +
         'xAP6/+IMJEIRExVwQSBB1AYFX9g1AG8uzBFaS/USRRtQpo6uMPGwS' +
         'Jwt8JkxQhW1IUUoT0JwTf1kTZYghNokyFebCb+vufp4ib41P9GoWP' +
         'vCJ7tX8cLPeBob1BOGd0cOZ4v/Td2b/+/APhSWPEo+3pyQ0f1kyCY' +
         'OkF4Yyq41FYQUHcOGYl0fbuV2aSciRRJJN15LrwbZSvmEUmTYRLox' +
         'o2shxJFMUC4Sq2rNk0mGmCGHDMHX81r4si86pGAYLp4R5SzbMNIgN' +
         'Zu7tu/uNfF11WdxCJgo1LhOr6U6zXIqq5ziDQyelDn09/xKRNuUGw' +
         '25grKdnD3a55m+qnvpshuIogiopgnF2E/llijJ8oUgjURdRa1EkrQ' +
         'opbdJVLzIUQhHO4UmLO+Dey9HLpBUEH/E1IPcsqwuWWdcdVhOmq4x' +
         'dBFBPjH9QoPLZANCE0iFRkM0T8iaIieJVAzBgscc6lZqJ6dtBoS6o' +
         'sIjv5wbH9QdAioirHZYNwO20Q3RCYTkSxr7erInLEV/8gEkI27S7C' +
         'uZrzokkUkfptDsqKiL/dTEvamxBycJOoRFERyLNeWWsHXBeXUVjxp' +
         'goJgX+Diqhzuy4orbo5adpj/upI7Y82COLiVVZlneRNZePTzIHkB3' +
         '9SpD9KLWzUvI5HqzpdN3vVIKiC/r333xPBIwheGY6RxscVhw8/MJq' +
         'o+iofZvycFOzkQXBvOx0w1wFikw2DjWoON4bXH/X3L/4UAgR/myCI' +
         'iBbaeUuMWsU/CD+PRISS9uqP+OFUleLn3eO+QXS7pcRK/5HhQSRCi' +
         'iDUHPc2OsL06XaLv1G8QrwARUdc5Q==');
      unequip_axe := BitmapFromString(22, 24, 'beNptlF1LlFEUhe0uq' +
       'lGzqFt/ghAGoVFOkzTpq43OqDOkw8Tg0DAoSRR0EXgheCF0EQj925' +
       '7hicVBg83hPR97nbXX2ufttquq2em0GBuNtWbz7UG33dqpZmbunOz' +
       'O/vg4dzVe+PP1MdP/BieP+j1SyAWBKSMgTNk925v92Z8XoRqdvf80' +
       'afSGrztHRH1/QDDlGOkSYBTBYOtbd+58MP9rstCafN8cnhKAEO/6n' +
       '9cPR6SPn9Y4trS46L1EPlgff6hRwsXwIQgQIIsUglzT4RAEaMgcGm' +
       'ury4oAAUq4HE0R5P9yp7eyvU/ibQTvVUBACNYhQAmIcEM6cEwvEUx' +
       'kjAvHVQ0CluAZg+8Xm23Tj5/UCEHkL0h8DAFzWdcvaWCHCFFShHCI' +
       'hiGpTd7CogjBZ4uuYNc2GDQfQAANf58+yhWpMTxLehKwIfURAmUJZ' +
       'b+le90yUf5BoBU1saxRu0MGzn6nQNenLVq/bydff/lXgoneWz4BME' +
       '23FUsfb5houkKlBDkobAmojxCIhpYmQxGYisOK4B7Qha2VezTzbQK' +
       'pN8/QLPkYEjhcn/oYApZmmbnUMc8wSsZHXIiGcs57N1fM6K8IuvDm' +
       '2V18LEvQ5RSblI36c2mriebqI80cAqptpaFR6mYrSkAONDM++kuMh' +
       'lpmD9h75XrK8Yegj2W3RyhrgZVTCZSOkLX7aupjXMg7spZSw/SDOG' +
       'UzI0JKSAN4IHo69Y3kn3bwF2V/lM0=');
end;

procedure fbtmapunequip;
begin;
  if (findbitmaptolerancein(unequip_axe, x, y, 526, 168, 760, 488, 25)) then
  begin
    WriteLn('Bitmap found. Attempting to click');
    Mouse(x, y, 1, 1, true);
    if (IsUpText('emov')) then
    mouse(x, y, 1, 1, true);
  end else
  WriteLn('Bitmap not found.');
end;

procedure openarmour;
begin;
  if (FindBitmapToleranceIn(armour, x, y, 526, 168, 760, 488, 25)) then
  begin
    WriteLn('Bitmap found. Attempting to click');
    Mouse(x, y, 1, 1, true);
    if (IsUpText('orn')) then
    mouse(x, y, 1, 1, true);
  end else
  WriteLn('Bitmap not found.');
end;

procedure FBtmaprune;
begin;
  if (FindBitmapToleranceIn(rune_axe, x, y, 526, 168, 760, 488, 25)) then
  begin
    WriteLn('Bitmap found. Attempting to click');
    Mouse(x, y, 1, 1, true);
    if (IsUpText('une')) then
    mouse(x, y, 1, 1, true);
  end else
  WriteLn('Bitmap not found.');
end;

procedure fbtmapinventory;
begin;
  if (findbitmaptolerancein(invo, x, y, 526, 168, 760, 488, 25)) then
  begin
    WriteLn('Bitmap found. Attempting to click');
    Mouse(x, y, 1, 1, true);
    if (IsUpText('nven')) then
    mouse(x, y, 1, 1, true);
  end else
  WriteLn('Bitmap not found.');
end;

procedure fbtmapinventoryopened;
begin;
  if (findbitmaptolerancein(invo_opened, x, y, 526, 168, 760, 488, 25)) then
  begin
    WriteLn('Bitmap found. Attempting to click');
    Mouse(x, y, 1, 1, true);
    if (IsUpText('nven')) then
    mouse(x, y, 1, 1, true);
  end else
  WriteLn('Bitmap not found.');
end;

procedure releasebitmaps;
begin
  FreeBitmap(rune_axe); //use this for free bitmaps
  FreeBitmap(invo);     //just enter bitmap name in brackets
  FreeBitmap(invo_opened);
  FreeBitmap(armour);
  FreeBitmap(unequip_axe);
end;


begin
  SetupSRL;
  wait(3000);
  writeln('sandos1234s first script');
  LoadBitmaps;
  wait(2000);
  fbtmapinventoryopened;
  wait(2000);
  fbtmapinventory;
  wait(2000);
  FBtmaprune;
  wait(2000);
  openarmour;
  wait(2000);
  fbtmapunequip;
  wait(2000);
  fbtmapinventory;
  wait(2000)
  releasebitmaps;
  wait(3000);
  writeln('thanks sandos1234');
end.

Pure1993

2008-08-02 05:59:16

Little hint for the future: make the Bitmaps only 2 pixels in height and however long you need it in length. That way, you have a very small area for which it looks for, but the pc can look for things faster better and more accurate than the human eye, so it will still find it ^^
But, to the script: not bad for your first one! finally something different than an autotalker ^^

Crozling

2008-08-03 13:04:16

Nice better than my 1st atempt not even worth posting I had a friend look at it and im working on something similar to this useless, but good practice.

Magiic

2008-08-03 13:09:38

yup well every script you do must give some form of experience right :P i still can't seem to get dtms working though maybe im putting in to many lines lol
and about the name thing i thought i fixed that when the guy said it had failed when compiling..maybe i haven't though
anyway atm im working on an ess miner…i got to know a lot better features and such eg i can now add a simple progress report showing how long it has run and the current level you are at and i started using radial walk :P

deadman2

2008-08-03 15:29:15

A good way to start scripting in my opinion. It may be useless but if it works it's a start. Good luck on future scripts.

Magiic

2008-08-03 17:15:19

thanks same to you started reading up arrays now lol seem complicated..

Dgby714

2008-08-05 07:16:40

im working on my first script it will buy vials of water at the one general store in Arduge (cant spell) and bank them

Magiic

2008-08-05 14:29:04

fair enough :P just post it in the first script forum where this is and you'll get loads of feedback :)

Waddo

2008-08-05 16:14:32

tip
gametab(put a number here) will open a game tab =p

but wd with bitmaps but dont rely on them i suggest you learn dtms

INuKe

2008-08-05 18:38:35

Nice for a first try :D

Magiic

2008-08-06 07:15:11

yeah i know that now i just made this after reading bebes guide it's a really crap script