Angelo Posted January 18, 2013 Share Posted January 18, 2013 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. Quote Link to comment Share on other sites More sharing options...
Janilabo Posted January 18, 2013 Share Posted January 18, 2013 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 Quote Link to comment Share on other sites More sharing options...
Angelo Posted January 18, 2013 Author Share Posted January 18, 2013 T-T i can't find the words, you are AWESOME its working T-T thank you X 1 000 000 000 Quote Link to comment Share on other sites More sharing options...