Jump to content
Angelo

Help with script for dofu please

Recommended Posts

hello im new and i dont speak enlglish but i can understand all... im triying so go easy please.

I used to use this script when i played dofus.

Now 2013, i downloaded scar but have this problem when run scar

 

"Unknown identifier ‘MovemouseSmoth’"

at

 

"MoveMouseSmooth(x, y);"

 

i need help, and i want to learn script too, if can tell me where...

 

AGAIN SORRY MY BAD ENGLISH i dont know nothing -.-

Of course scar divi is a niceee program :33

------------------------------------------------------------------------

var

x, y, lvlx, lvly: integer;

 

const

Resource1= Color de tu Recurso; // Pega el color del recurso Nº1

Resource2= Color de tu Recurso; // Pega el color del recurso Nº2

Resource3= Color de tu Recurso; // Pega el color del recurso Nº3

CollectTime= Tiempo en recolectar; // Tiempo de recoleccion (11000 = 11 Segundos)

 

function Targetresource1 : Boolean;

begin

if(FindColor(x, y, Resource1, 0, 0, 800, 600))then result:= true

end;

 

function Targetresource2 : Boolean;

begin

if(FindColor(x, y, Resource1, 0, 0, 800, 600))then result:= true

end;

 

function Targetresource3 : Boolean;

begin

if(FindColor(x, y, Resource3, 0, 0, 800, 600))then result:= true

end;

 

function Nextresource1 : Boolean;

begin

if(FindColor(x, y, Resource1, 0, 0, 800, 600))then result:= true

end;

 

function Nextresource2 : Boolean;

begin

if(FindColor(x, y, Resource2, 0, 0, 800, 600))then result:= true

end;

 

function Nextresource3 : Boolean;

begin

if(FindColor(x, y, Resource3, 0, 0, 800, 600))then result:= true

end;

 

Procedure Collect;

begin

if (Targetresource1)or(Targetresource2)or(Targetresource3) then

MoveMouseSmooth(x, y);

Wait(100+random(200));

HoldMouse(x, y, true);

Wait(20+random(50));

ReleaseMouse(x, y, true);

Wait(100+random(200));

MoveMouseSmooth(x+25, y+25);

 

Wait(100+random(200));

HoldMouse(x+25, y+25, true);

Wait(20+random(50));

ReleaseMouse(x+25, y+25, true);

Wait(3000+random(500));

Wait(CollectTime);

end;

 

function noresource : Boolean;

begin

if(FindColor(x, y, 1683891, 0, 0, 800, 600))then result:= false

end;

 

function FindLevel : boolean;

begin

result := false;

If(FindColor( lvlx, lvly, 25087,0,0,500,500))then result := true

end;

 

Procedure LevelUp;

begin

If(FindLevel= true)then

MoveMouseSmooth(lvlx, lvly+2);

Wait(100+random(100));

ClickMouse(lvlx, lvly+2, true);

Wait(100+random(100));

end;

 

begin

Collect;

repeat

if (noresource) then

Collect;

if(nextresource1)or(nextresource2)or(nextresource3)then

Collect;

if(FindLevel)then

LevelUp;

until(false);

end.

Link to comment
Share on other sites

const
 Resource1 = 0; // Color de tu Recurso - Pega el color del recurso Nº1
 Resource2 = 0; // Color de tu Recurso - Pega el color del recurso Nº2
 Resource3 = 0; // Color de tu Recurso - Pega el color del recurso Nº3
 CollectTime = 0; // Tiempo en recolectar - Tiempo de recoleccion (11000 = 11 Segundos)

var
 x, y, lvlx, lvly: Integer;

function TargetResource1: Boolean;
begin
 Result := FindColor(x, y, Resource1, 0, 0, 800, 600);
end;

function TargetResource2: Boolean;
begin
 Result := FindColor(x, y, Resource1, 0, 0, 800, 600);
end;

function TargetResource3: Boolean;
begin
 Result := FindColor(x, y, Resource3, 0, 0, 800, 600);
end;

function NextResource1: Boolean;
begin
 Result := FindColor(x, y, Resource1, 0, 0, 800, 600);
end;

function NextResource2: Boolean;
begin
 Result := FindColor(x, y, Resource2, 0, 0, 800, 600);
end;

function NextResource3: Boolean;
begin
 Result := FindColor(x, y, Resource3, 0, 0, 800, 600);
end;

procedure Collect;
begin
 if (TargetResource1 or TargetResource2 or TargetResource3) then
 begin
   MoveMouse(x, y);
   Wait(100 + Random(200));
   MouseBtnDown(x, y, mbLeft);
   Wait(20 + Random(50));
   MouseBtnUp(x, y, mbLeft);
   Wait(100 + Random(200));
   MoveMouse((x + 25), (y + 25));
   Wait(100 + Random(200));
   MouseBtnDown((x + 25), (y + 25), mbLeft);
   Wait(20 + Random(50));
   MouseBtnUp((x + 25), (y + 25), mbLeft);
   Wait(3000 + Random(500));
   Wait(CollectTime);   
 end;
end;

function NoResource: Boolean;
begin 
 Result := not FindColor(x, y, 1683891, 0, 0, 800, 600);
end;

function FindLevel: Boolean;
begin
 Result := FindColor(lvlx, lvly, 25087, 0, 0, 500, 500);
end;

procedure LevelUp;
begin
 if FindLevel then
 begin
   MoveMouse(lvlx, (lvly + 2));
   Wait(100 + Random(100));
   ClickMouse(lvlx, (lvly + 2), mbLeft);
   Wait(100 + Random(100)); 
 end;
end;

begin
 Collect;
 repeat
   if NoResource then
     Collect;
   if (NextResource1 or NextResource2 or NextResource3) then
     Collect;
   if FindLevel then
     LevelUp;  
 until False;
end.

 

Does that work for you?`(Edited it a bit)

 

-Jani

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
  • Create New...