SRL Archive - Other Scripts

this script is for a game called adventure quest worlds:
Adventure Quest Worlds
I dont play this game often, i just needed a test game to write script.
It more for the structure so tell me what you think.

Where is the script?

omg wow…. i forgot to add it….

here

program new;
{.include srl/srl.scar}

var
inarea:string;
x,y,color1,color2,no:integer;

procedure setup;
begin
inarea:= 'yes';
color1:= 10783356;
color2:= 4153924;
no := BitmapFromString(41, 26, 'meJxjYBgFo2AUjIIRBDg5ORkZGf' +
        'GL0AIICQl9+PBh//79zMzMEBFhYWGgSEBAAH2s/vfvX0FBAR6rJSQ' +
        'kVFRUaGH1kiVLvnz5oq6ujmk1kHvkyJF/YPD06VN7e3vqWh0ZGXn5' +
        '8uXDhw+zsLCgWb1w4cLr169LSUkBpRYtWgRkc3NzU9HqoKAgc3Pzb' +
        '9++lZWVIVvNzs7+5MmT7OxsiGItLa2vX78aGhpS12ogu7m5GWiyhY' +
        'UF3GpxcfGPHz96e3sjKw4MDKS61WxsbOfOnTt+/Djcag4OjmfPnmV' +
        'lZUEUA339/ft3GxsbqlsNBMbGxkCPA1MUPK4XLFhw5coVMTExYO4D' +
        'sl+8eMHPz08Lq4GgpqYG2WppaWl4Cgeq9PDwoIq9EMDLy8vExIRfR' +
        'FJSUldXlw5F3CgYBcQDAKhZrYw=');
end;

Procedure main;
begin
  if inarea = 'no' then
    begin
      mouse(18,400,5,5,true);
      wait(500+random(1000));
      mouse(426,300,5,5,true);
      wait(6000+RANDOM(1000));
    end else if inarea = 'yes' then
    begin
      repeat
      if findcolortolerance(x,y,color1,0,0,959,549,5)and
      findcolortolerance(x,y,color2,0,0,959,549,5) then
        begin
          mouse(x,y,0,0,true);
            if findcolortolerance(x,y,1776605,304,36,416,63,5)then
              begin
                Repeat
                if findcolortolerance(x,y,1776605,304,36,416,63,5) then
                  begin
                    mouse(411,510,5,5,true);
                    wait(1500);
                  end;
                  if findcolortolerance(x,y,1776605,304,36,416,63,5) then
                    begin
                      mouse(457,510,5,5,true);
                    end;
                  wait(6000+random(500));
                until not(findcolortolerance(x,y,1776605,304,36,416,63,5))
                  repeat
                    if findbitmaptolerancein(no,x,y,0,0,959,549,5)then
                      mouse(x+5,y+5,0,0,true);
                    until not(findbitmaptolerancein(no,x,y,0,0,959,549,5))
                wait(6000+random(500));
              end;
          end;
      until false;
    end;
end;

begin
setupsrl;
wait(1500);
setup;
main;
end.  

that makes me feel stupid…
edit: added a fail safe.

Moved to other scripts.

~Home

From: austin2162
this script is for a game called adventure quest worlds:
Adventure Quest Worlds
I dont play this game often, i just needed a test game to write script.
It more for the structure so tell me what you think.

Just to let you know, SRL uses Simba now and SCAR is deprecated (I think).

Scar is still usable, it's still being maintained by freddy.

http://www.freddy1990.com/index.php?page=product&name=scar

That is simba.
Ive been using simba since reflection came out for simba. infact.
i wrote one of the first tutorials on how to setup reflection in simba.

Interesting… You know you can use cheatengine to hack flash? Way better/easier IMO.

I wanted to have people look at how uts written i know cheat engine worms betted but im not after a gain im just test writing code as stated in the first post.