SRL Archive - Help

appreciate those who helped

apologize for posting in wrong section if a mod gets a chance plz move 2
http://villavu.com/forum/forumdisplay.php?f=70

alright so im really really new like 2 hours ago new to trying to do anything besides copy paste

so i have this,

program SupaHeata;
  {$I SRL/SRL.SIMBA}

var
  x,y,IronOre,Coal,Bag: Integer;

begin

  SetupSRL;
  ActivateClient;

  Coal := DTMFromString('mlwAAAHicY2dgYBAAYkYGCOAEYlEglgZiBSBmBWJmIOYFYiEozQFVq6ggwYALcOHBjHgwFAAAgcgBVA==');

  if FindDTM(Coal, x, y, MBX1, MBY1, MBX2, MBY2) then
  begin
    WriteLn('Yes! we have Coal!');
    MMouse(x, y, 5, 5);
    if IsUpText('Coal') then
    Wait(RandomRange(400, 500));
    begin
      Mouse(x, y, 0, 0, false);
      ChooseOption('All but one');
      FreeDTM(Coal);
    end;
  end;
end.

only knowledge i have is yohjo's youtube guides which were amazing, so i made this well something like this and it didnt compile n whatnot so looked at other scripts and things and now i have this and it compiles and works all the way till it right clicks my DTM it doesnt choose the option to withdrawl it? help plz tryed putting in wait times thought maybe was because of lag but no luck and also maybe a shorter way to write this ?? please and thank you

but this works perfect… why
this also defeats the purpose of a dtm..

program SupaHeata;
  {$I SRL/SRL.SIMBA}

var
  x,y,IronOre,Coal,Bag: Integer;

begin

  SetupSRL;
  ActivateClient;

  Coal := DTMFromString('mlwAAAHicY2dgYBAAYkYGCOAEYlEglgZiBSBmBWJmIOYFYiEozQFVq6ggwYALcOHBjHgwFAAAgcgBVA==');

  if FindDTM(Coal, x, y, MBX1, MBY1, MBX2, MBY2) then
  begin
    WriteLn('Yes! we have Coal!');
    MMouse(x, y, 5, 5);
    if IsUpText('Coal') then
    Wait(RandomRange(400, 500));
    FreeDTM(Coal);
    begin
      Mouse(x, y, 0, 0, false);
      Mouse(447, 240, 2, 2, true)
    end;
  end;
end.  

current progress of script… still need help plz guys still defeats purpose of dtms
also i could use some help creating my function to actually superheat useing EOC
and im not really sure if im doing this right at all could use some advice but in a very basic language so i can understand plz
but it does work so far =? and very smooth id say imo

program SupaHeata;
  {$I SRL/SRL.SIMBA}

//procedure Ore;

var
  x,y,IronOre,Coal,Bag: Integer;

begin

  SetupSRL;
  ActivateClient;

  Coal := DTMFromString('mlwAAAHicY2dgYBAAYkYGCOAEYlEglgZiBSBmBWJmIOYFYiEozQFVq6ggwYALcOHBjHgwFAAAgcgBVA==');
  Bag := DTMFromString('m1gAAAHic42JgYOAEYi4gFgBiESjmA2J2BghgBGJWIBaE8mFqxYFYGoolgJgfatac0iAGYoAkUaog9hODEQAAd2ACnw==');
  IronOre := DTMFromString('mlwAAAHicY2dgYBAAYgUglgZiUSDmZIAARiBmhbI5gJgXiIWgNDMQGypIMOACXHgwIx4MBQCKzAFk');

  begin
    if FindDTM(Coal, x, y, MBX1, MBY1, MBX2, MBY2) then
    WriteLn('Yes! we have Coal!');
    MMouse(x, y, 5, 5);
    if IsUpText('Coal') then
    Wait(RandomRange(400, 500));
    Mouse(x, y, 0, 0, false);
    Wait(RandomRange(400, 500));
    Mouse(447, 240, 17, 3, true);
  end;

  begin
    if FindDTM(Bag, x, y, MIX1, MIY1, MIX2, MIY2) then
    WriteLn('Dungeoneering blows!');
    MMouse(x, y, 5, 5);
    if IsUpText('bag') then
    Wait(RandomRange(400, 500));
    Mouse(x, y, 0, 0, False);
    Wait(RandomRange(400, 500));
    Mouse(621, 305, 17, 3, true);
    FreeDTM(Bag);
  end;

  begin
    if FindDTM(IronOre, x, y, MBX1, MBY1, MBX2, MBY2) then
    WriteLn('Yes! we have iron ore!');
    MMouse(x, y, 5, 5);
    if IsUpText('Iron') then
    Wait(RandomRange(400, 500));
    Mouse(x, y, 0, 0, False);
    Wait(RandomRange(400, 500));
    Mouse(400, 200, 17, 3, true);
    FreeDTM(IronOre);
  end;

  begin
    if FindDTM(Coal, x, y, MBX1, MBY1, MBX2, MBY2) then
    WriteLn('Yes! we have Coal!');
    MMouse(x, y, 5, 5);
    if IsUpText('Coal') then
    Wait(RandomRange(400, 500));
    Mouse(x, y, 0, 0, false);
    Wait(RandomRange(400, 500));
    Mouse(447, 240, 17, 3, true);
    FreeDTM(Coal);
  end;
//end;
end.

try using chooseoptionmulti

Try WithdrawItem(Coal, 'dtm', -1, ['oal'], []);

From: riwu
Try WithdrawItem(Coal, 'dtm', -1, ['oal'], []);

can u give me a example plz of how this would be used in what i have up top not having much luck with it trying to get it to compile n wahtnot

  SetupSRL;
  if BankScreen then
  begin
    Coal := DTMFromString('mlwAAAHicY2dgYBAAYkYGCOAEYlEglgZiBSBmBWJmIOYFYiEozQFVq6ggwYALcOHBjHgwFAAAgcgBVA==');
    WithdrawItem(Coal, 'dtm', -1, ['oal'], []);
    FreeDTM(Coal);
  end else
    writeln('Bank not opened');

From: riwu

  SetupSRL;
  if BankScreen then
  begin
    Coal := DTMFromString('mlwAAAHicY2dgYBAAYkYGCOAEYlEglgZiBSBmBWJmIOYFYiEozQFVq6ggwYALcOHBjHgwFAAAgcgBVA==');
    WithdrawItem(Coal, 'dtm', -1, ['oal'], []);
    FreeDTM(Coal);
  end else
    writeln('Bank not opened');

sry i keep bugging ya im still playing with it trying to get it to compile but no matter what i do it seems i get this

[Error] (14:48): Type mismatch at line 13
Compiling failed.

hmmm i took the brackets off uptext callout n it compiled but now it says bank not opened when i try to run?

nvm got it to run but still similar prob cept now it just goes to the dtm and sits doesnt even right click

if the bank is not open when you run it it does: end else writeln('Bank not opened');

if you manually open the bank and then run the script it should find the coal and withdraw it.

im not sure what bank you are at but you could try this:

SetupSRL;
  if Not(BankScreen) Or (PinScreen) then //if the bankscreen or pinscreen is not open then
  OpenBankFast('veb'); //opens varrock east bank
  if BankScreen then
  begin
    Coal := DTMFromString('mlwAAAHicY2dgYBAAYkYGCOAEYlEglgZiBSBmBWJmIOYFYiEozQFVq6ggwYALcOHBjHgwFAAAgcgBVA==');
    WithdrawItem(Coal, 'dtm', -1, ['oal'], []);
    FreeDTM(Coal);
  end else
    writeln('Bank not opened');

You can change 'veb' to any of the below:
'feb', 'falador east bank'
'fwb', 'falador west bank'
'veb', 'varrock east bank'
'vwb', 'varrock west bank'
'db' , 'draynor bank'
'akb', 'al-kharid bank'
'eb' (Edgeville Bank)
'ctb', 'catherby bank'
'clt', 'camelot bank'
'nab', 'north ardougne bank'
'sab', 'south ardougne bank'
'ynb', 'yanille bank'
'ngb', 'north gnome bank'
'sgb', 'south gnome bank'
'wgb', 'warrior guild bank'
'fgb', 'fishing guild bank'
'tavb', 'taverly bank'

From: tasmania
if the bank is not open when you run it it does: end else writeln('Bank not opened');

if you manually open the bank and then run the script it should find the coal and withdraw it.

im not sure what bank you are at but you could try this:

SetupSRL;
  if Not(BankScreen) Or (PinScreen) then //if the bankscreen or pinscreen is not open then
  OpenBankFast('veb'); //opens varrock east bank
  if BankScreen then
  begin
    Coal := DTMFromString('mlwAAAHicY2dgYBAAYkYGCOAEYlEglgZiBSBmBWJmIOYFYiEozQFVq6ggwYALcOHBjHgwFAAAgcgBVA==');
    WithdrawItem(Coal, 'dtm', -1, ['oal'], []);
    FreeDTM(Coal);
  end else
    writeln('Bank not opened');

You can change 'veb' to any of the below:
'feb', 'falador east bank'
'fwb', 'falador west bank'
'veb', 'varrock east bank'
'vwb', 'varrock west bank'
'db' , 'draynor bank'
'akb', 'al-kharid bank'
'eb' (Edgeville Bank)
'ctb', 'catherby bank'
'clt', 'camelot bank'
'nab', 'north ardougne bank'
'sab', 'south ardougne bank'
'ynb', 'yanille bank'
'ngb', 'north gnome bank'
'sgb', 'south gnome bank'
'wgb', 'warrior guild bank'
'fgb', 'fishing guild bank'
'tavb', 'taverly bank'

thank you for your help but i think im making a stupid choob mistake somewhere i manually opened bank with both of ur guys suggestions and still no luck even with bank manually opened says

Compiled successfully in 1030 ms.
SRL Compiled in 15 msec
Bank not opened
Successfully executed.

do i have to be in a smart client for these functions to work properly? because im just in rs client letting it take over my mouse?

Is this for the official RS? Did you target the client with the green crosshair?

From: riwu
Is this for the official RS? Did you target the client with the green crosshair?

yup ive been kinda watching this over n over but has the choose options box always had a little change in it if u watch it long enough the text refreshes every 10-15 secs or so and it gets a little bigger then a little smaller barely able to tell a diff but it flashes a lil i dunno maybe its just my eye havent crashed yet to into trying to figure this out :duh:

EDIT: if you have a moment plz just try running what i have up top in rs client while being targeted by simba
in my eyes it looks like perf basic newby 1 o 1 of a dtm( with my astounding amount of knowledge that i dont have but still) i need a smoke brb…

are you using the reccomended settings?

EG fixed screen?

Are you 100% sure you made the DTM correctly?

i know this coalore dtm works 100%: coal:= DTMFromString('mggAAAHicY2NgYMhjYmAoAuIkIM4C4gogLgHiJ0C52wwQ+g0QPwTiF0Csri4HxuGuBgzRnsYMWSHWDJKSwgz8QDlsmBEHhgAAKPUMHA==');

From: tasmania
are you using the reccomended settings?

EG fixed screen?

of course my friend =)

i believe mine does aswell works perfect i think i compared it to just about anything i could find in my bank =? the problem is not right clicking it its after the right click getting it to withdrawl

Sorry, i edited my post as you replied, basically replace the DTM your using with the one above. The DTM above works i used it in my script.

From: tasmania
Sorry, i edited my post as you replied, basically replace the DTM your using with the one above. The DTM above works i used it in my script.

all good