SRL Archive - General

heres general \simba code dump…
for alllu willing 2 learn programing take a look at this working simba code….

program new;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i SRL/SRL/Misc/SmartGraphics.simba}

var
x,y,dx,dy,addybitmap:integer;
tpa_1,tpa_2,tpa_1_2:tpointarray;
 point1:tpoint;
   atpa_1:t2dpointarray;

 function dope:boolean;
 Begin


    findcolorsspiraltolerance(mscx,mscy,tpa_1,5395026,msx1,msy1,msx2,msy2,4);
    findcolorsspiraltolerance(mscx,mscy,tpa_2,6517603,msx1,msy1,msx2,msy2,4);
        SMART_DrawDotsEx(false,tpa_1,16777215);
        SMART_DrawDotsEx(false,tpa_2,16711680);
    Begin
       atpa_1:=TPAtoATPAEx(tpa_1,17,17);

          End;
           End;


function one:boolean;
begin
if FindSymbol(x,y,'altar') then
writeln('alter was found');
FindColorSpiralTolerance(x,y,6517603,msx1,msy1,msx2,msy2,4);
mmouse(x,y,5,5);
if IsUpTextMultiCustom(['ine','dam','ite']) then
clickmouse2(1);
repeat
until(FindBitmapSpiralTolerance(addybitmap,dx,dy,mix1,miy1,mix2,miy2,12));
wait(333+random(333));
mouse(736-50,234-50,5,5,1);
wait(333+random(333));
mouse(792-50,476-50,5,5,1);
wait(333+random(333));
mouse(dx,dy,5,5,1);
SMART_DrawDotsEx(false,tpa_1,16777215);

end;



begin
 wait(1+(random(1111)));
  SRL_SixHourFix := True;
SMART_FixSpeed := True;
  SetupSRL;
cleardebug;
SMART_ClearCanvas;
/////////////////////////
/// DTM/BITMAP LOADER ///
addybitmap := BitmapFromString(18, 10, 'meJxl0rEKwyAQBmAfpW4VMvQgQw' +
        '5cFBwScGigS1fHvv/e/3o2GiM/QRI/70zi/OaWzRhjbyTXydJCiOk' +
        'GHmlkPkdKuwu78025yYkKRL5aXU9LRGSB3ziXUT2q4sCIQiWqaH1T' +
        'LlquqfmvEmtQ9IAySTsUvz690kOpimuU5DhADCjwk/K/9lRliVQMD' +
        'WIlPwtabcq39no1QCikqVALXVX/LUTlqup5L/AgeFcakEHV3S7K3q' +
        '3+A7j5Bc3xW0E=');
/////////////////////////
/////////////////////////
dope;
//one;

end.

[banana] i do not plan on imposing but scar is much 22 simple srl [/banana]

I don't know what you mean, but if you need to clean up code, dg's parser extension can easily format code;
^ example from the op's code

program new;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i SRL/SRL/Misc/SmartGraphics.simba}

var
  x, y, dx, dy, addybitmap: integer;
  tpa_1, tpa_2, tpa_1_2: tpointarray;
  point1: tpoint;
  atpa_1: t2dpointarray;

function dope: boolean;
begin
  findcolorsspiraltolerance(mscx, mscy, tpa_1, 5395026, msx1, msy1, msx2, msy2, 4);
  findcolorsspiraltolerance(mscx, mscy, tpa_2, 6517603, msx1, msy1, msx2, msy2, 4);
  SMART_DrawDotsEx(false, tpa_1, 16777215);
  SMART_DrawDotsEx(false, tpa_2, 16711680);
  begin
    atpa_1 := TPAtoATPAEx(tpa_1, 17, 17);
  end;
end;

function one: boolean;
begin
  if FindSymbol(x, y, 'altar') then
    writeln('alter was found');
  FindColorSpiralTolerance(x, y, 6517603, msx1, msy1, msx2, msy2, 4);
  mmouse(x, y, 5, 5);
  if IsUpTextMultiCustom(['ine', 'dam', 'ite']) then
    clickmouse2(1);
  repeat
  until (FindBitmapSpiralTolerance(addybitmap, dx, dy, mix1, miy1, mix2, miy2, 12));
  wait(333 + random(333));
  mouse(736 - 50, 234 - 50, 5, 5, 1);
  wait(333 + random(333));
  mouse(792 - 50, 476 - 50, 5, 5, 1);
  wait(333 + random(333));
  mouse(dx, dy, 5, 5, 1);
  SMART_DrawDotsEx(false, tpa_1, 16777215);
end;

begin
  wait(1 + (random(1111)));
  SRL_SixHourFix := True;
  SMART_FixSpeed := True;
  SetupSRL;
  cleardebug;
  SMART_ClearCanvas;
  addybitmap := BitmapFromString(18, 10, 'meJxl0rEKwyAQBmAfpW4VMvQgQw' + '5cFBwScGigS1fHvv/e/3o2GiM/QRI/70zi/OaWzRhjbyTXydJCiOk' + 'GHmlkPkdKuwu78025yYkKRL5aXU9LRGSB3ziXUT2q4sCIQiWqaH1T' + 'LlquqfmvEmtQ9IAySTsUvz690kOpimuU5DhADCjwk/K/9lRliVQMD' + 'WIlPwtabcq39no1QCikqVALXVX/LUTlqup5L/AgeFcakEHV3S7K3q' + '3+A7j5Bc3xW0E=');
  dope;
end.

Don't have a clue what this would be used for.