Jump to content
  • Sky
  • Blueberry
  • Slate
  • Blackcurrant
  • Watermelon
  • Strawberry
  • Orange
  • Banana
  • Apple
  • Emerald
  • Chocolate
  • Charcoal

All Activity

This stream auto-updates     

  1. Earlier
  2. no soy tan habilidoso en las pc no se como enviarte un video asi xd
  3. Sube un video en algún lugar de esto en acción
  4. tengo el programa el cual quisiera que fuera mas rapido sacar todo su potencial ya que muchos me han dicho que puede ser mas rapido de lo que es, un programa de recoleccion automatica y en el ambito donde lo uso no solo yo uso este tipo de programas si no otros usuarios ......... este es el programa del cual te hablo, te agradeceria que lo editaras por mi. const Resource1 = 13679268; // Color de tu Recurso - Pega el color del recurso Nº1 Resource2 = 13680040; // Color de tu Recurso - Pega el color del recurso Nº2 Resource3 = 11970197; // Color de tu Recurso - Pega el color del recurso Nº3 CollectTime = 20000; // 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(700 + Random(700)); MouseBtnDown(x, y, mbLeft); Wait(1 + Random(1)); MouseBtnUp(x, y, mbLeft); Wait(1 + Random(1)); MoveMouse((x + 1), (y + 1)); Wait(1 + Random(1)); MouseBtnDown((x + 25), (y + 25), mbLeft); Wait(1+ Random(1)); MouseBtnUp((x + 25), (y + 25), mbLeft); Wait(1 + Random(1)); Wait(CollectTime); end; end; function NoResource: Boolean; begin Result := not FindColor(x, y, 1683891, 0, 0, 800, 600); end; begin Collect; repeat if NoResource then Collect; if (NextResource1 or NextResource2 or NextResource3) then Collect; until False; end.
  5. Do you have a video of the actions you're trying to replicate?
  6. Do you have an image of what you're talking about? It's likely you'll need something like color TPA functions to find the center etc.
  7. Hola gente un saludo, espero puedan ayudarme tengo un programa el cual uso en dofus para recolectar mineral un bot en pocas palabras el cual me gustaria poner mas rapido por favor si alguien puede ayudarme se lo agradeceria
  8. I'm writing a simple script to search for a color, click it, and wait a fixed amount of time. This seemed very simple, but it has proven the exact opposite! Occasionally my target is quite small, and ClickMouse seems to occasionally click up to 20 pixels away from my target colored pixel. What can I do to fix this and make the click a little more consistent? Code follows: Const Color = 3160642; // color you wish to click Procedure Rotate; Begin; VKeyDown(39); // Holds the "W"-key. Wait(700); // Teh wait... VKeyUp(39); // Releases the "W"-key. end; Procedure FindClick; Var X,Y,W,H: Integer; begin If FindColor(X,Y,Color,0,0,500,340) then Begin MoveMouse(X,Y); ClickMouse(X,Y,False); end else Begin // end; end; begin; Repeat // Repeats for ever.. or until program is stopped. FindClick; Wait(5000); Until False; end. Thanks in advance, I hope people still use this service.
  9. Wanted

    OSI Wiki and Manual

    https://github.com/OSI1/OfficialSCARInclude it's here now
  10. Dizzy

    OSI Wiki and Manual

    Is there a backup of the Wiki somewhere? The Github is offline at this point.
  11. Wanted

    Richard

    Try reinstalling? Run as administrator? Check for other installed software differences?
  12. richard

    Richard

    1 is win7 other is win10 But it's works on other pc under win10, that's why I don't get it.
  13. Wanted

    Richard

    What's different between your two computers?
  14. richard

    Richard

    Hi I have got a problem with Scar Divi Currently using it for a game to do tasks for me. It has Bitmap, iffindcolor ect commands, works on one pc, but for some reason wouldn't do anything on an other pc, even a simple clickmouse would not work! The program starts to run, no error in debug , just wouldnt click or anything! Any ideas , or is there any settings within scar that is could be off ? thanx for help
  15. https://wiki.scar-divi.com/Category:Functions The functions and syntax you are looking for can be found in the manual. They should be easy for you to understand. Let me know if you need further help Wait, FindColor, GetColor, TypeSend,
  16. I need a script for this puzzle In another program I used this code: begin Function.Execute with timeout("take", "5000") Keyboard.Press key("{<space>}") Macro.Pause("100") end function("take") begin begin loop() if Color.Can be located on screen (RGB)("0", "255", "206", "0") begin Color.Find coordinate of first occurrence (RGB)("0", "255", "206", "0", "x", "y") begin loop() Variable.Add (Math)("x", "{Displacement}") if Color.Near coordinate is within (RGB range)("209", "139", "0", "1", "{x}", "{y}", "10") begin Macro.Break from loop("no") end end Macro.Break from loop("no") end end end function
  17. You almost got it with that pseudocode. The coding 'rules' haven't changed, the wrappers for built in functions and been re-arranged slightly since ~10yrs ago. You can find the built in arrangements in code hints in SCAR or here https://wiki.scar-divi.com/SCAR_Divi_Online_Manual If you have specific questions I can help answer them. It's much easier than it sounds Welcome back
  18. Hi there, I used to do a bit of scripting on SCAR over 10 years ago, but it seems like I have become very rusty and some of the coding rules have been changed??? Is that any right? Either way I have seen some of you have been exceptionally helpful, and since mine is no biggie, I was HOPING someone would take their time helping me out. SO READ BELOW 👨‍⚕️ What I need should be real simple (not for me lol). Basically once a bitmap appear (SCAR-0.bmp attached), there should be a mouseclick on x,y coordinates and then a waiting time of 10 minutes, and after those 10 minutes, the same x,y coordinates will be clicked again. However, if the same bitmap appears within the 10 minutes, it should start the 10 minutes waiting time over from scratch and first click the coordinates after a full 10 minutes have passed without the BMP appearing on screen. So like: CreateBItmap(bmp1) .... if findbitmap(bmp1) then clickmouse(x,y); Wait(600000); clickmouse(x,y); ^^ i know that is nowhere near correct coding but just to explain in another way :P SCAR-0.bmp
  19. var x, y:integer; w: THwndArray; procedure Pot; begin w := FindWindows('Endless Online'); if (High(w) > -1) then begin ActivateWindow(w[0]); SetLength(w, 0); Wait(500); end; repeat if FindColorSpiral(0, 0, x, y, 1579032, 185, 38, 185, 38) then begin clickmouse(78, 360, true); wait(50) clickmouse(464, 376, true); wait(15) clickmouse(464, 376, true); wait(500) end; until FindColorSpiral(0, 0, x, y, 1579032, 185, 38, 185, 38)= false end; begin repeat Pot until(false) end. You need to include the start points in FindColorSpiral (SE, SY) I put in 0, 0 for you and added some semicolons where needed to get the compilation errors to go away.
  20. I have tried this var x, y:integer; w: THwndArray; procedure Pot; begin w := FindWindows('Endless Online'); if (High(w) > -1) then begin ActivateWindow(w[0]); SetLength(w, 0); Wait(500); end; repeat if FindColorSpiral(x, y, 1579032, 185, 38, 185, 38) then begin clickmouse(78, 360, true); wait(50) clickmouse(464, 376, true); wait(15) clickmouse(464, 376, true); wait(500) end untilFindColorSpiral(x, y, 1579032, 185, 38, 185, 38)= false end; begin repeat Pot until(false) end. But I get compile error in line 13 variable expected I have a working script works fine. but this one i cant get it to work
  21. What game is it? Does it have bot detection? What operating system do you have? How difficult is the task your trying to do? Don't know much about V/Simb these days. Your question probably requires a lot of benchmarking and consideration to answer properly. We can offer some support on this platform if you give us more details.
  22. Hi, I've been reading forums here and on villa vu.... like 7 years ago, I used SCAR on a game.... quit playing for a long time... now I'm back and need to start over. It's not any version of RS. Which is better suited these days, SCAR, or Simba? I know neither are really maintained, and Simba was meant to be the 'next gen', but I'm not sure how far it made it. Thoughts?
  23. MoveMouse instead of setmouse.
  1. Load more activity
×
×
  • Create New...