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

All Activity

This stream auto-updates     

  1. Earlier
  2. I've been searching for some old rs-classic SCAR scripts for v1.13 or so. All I can find is "scar,scriptpack,by,super" on rscdump.com but that is it.... I though there use to be an abundance of rsc scar scripts available. Not sure if this site was whiped clean awhile back or what. Thanks
  3. SCAR 1.13 or 2.03 Download request

    Very possible. I may have a copy of 2.03 laying around. Contact me via skype/msn
  4. SCAR 1.13 or 2.03 Download request

    I am also looking for 1.13 and 2.03 to run some old scripts. Or is it possible to recode the old scripts to work with the current 3.41?
  5. Upgrade

    Use VKeyDown / VKeyUp with left arrow: 37, up arrow: 38, right arrow: 39, down arrow: 40. The documentation for Bitmap functions https://wiki.scar-divi.com/Category:Bitmap_Functions https://wiki.scar-divi.com/FindBitmap
  6. Upgrade

    program Gopro; const ROUNDS = 500; // Before banking? var normal_path, bank_path, return_path: TPointArray; procedure Setup; var U, D, L, R: TPoint; begin U := Point(636, 586); D := Point(635, 669); L := Point(595, 627); R := Point(676, 626); normal_path := [L, U, R, R, R, U, L, L, L, L, L, U, R, R, R, R, R, R, R, R, U, L, L, L, L, L, L, L, L, U, R, R, R, R, R, R, U, L, L, L, L, L, D, L, D, D, D, D, D, R, R, D]; bank_path := [D, D, D, L, L, D, D, D, D, D, D, D, D, D, L, L]; return_path := [R, R, U, U, U, U, U, U, U, U, U, R, R, U, U, U]; end; procedure Move(coordinates: TPoint); begin MoveMouse(coordinates.X, coordinates.Y); Wait(2000); ClickMouse(coordinates.X, coordinates.Y, mbLeft); Wait(3000); end; procedure RunPath(path: TPointArray); var h, i: Integer; begin h := High(path); for i := 0 to h do begin MoveMouse(path[i].X, path[i].Y); Wait(2000); ClickMouse(path[i].X, path[i].Y, mbLeft); Wait(3000); end; end; procedure Detection; var x, y: Integer; begin while FindColor(x, y, 3489840, 94, 43, 171, 779) do begin MoveMouse(x, y); Wait(350); ClickMouse(x, y, mbLeft); Wait(50 + Random(35)); ClickMouse(x, y, mbLeft); Wait(2000); end; end; procedure Detection1; var x, y: Integer; begin while FindColor(x, y, 5262417, 94, 43, 171, 779) do begin MoveMouse(x, y); Wait(350); ClickMouse(x, y, mbLeft); Wait(50 + Random(35)); ClickMouse(x, y, mbLeft); Wait(2000); end; end; procedure Detection2; var x, y: Integer; begin while FindColor(x, y, 7508129, 94, 43, 171, 779) do begin MoveMouse(x, y); Wait(350); ClickMouse(x, y, mbLeft); Wait(50 + Random(35)); ClickMouse(x, y, mbLeft); Wait(2000); end; end; procedure Put; begin MoveMouse(525, 769); Wait(500) ClickMouse(525, 769, mbLeft); Wait(500) MoveMouse(775, 654); Wait(500) ClickMouse(775, 654, mbLeft); Wait(500) MoveMouse(974, 128); Wait(500) ClickMouse(974, 128, mbLeft); end; procedure Play; var h, i, c: Integer; begin h := High(normal_path); repeat for c := 1 to ROUNDS do for i := 0 to h do begin Detection; Detection1; Detection2; Move(normal_path[i]); end; RunPath(bank_path); Put; RunPath(return_path); until False; end; begin case (ROUNDS > 0) of True: begin Setup; Play; end; False: WriteLn('TERMINATING: Invalid rounds! Must be over 0...'); end; end. Hello! this seems to be working ,but now i want to upgrade it so that all commands is keydown but i cant seem to get it to work. i want all the runpatchs to use the arrowkeys so(keydown:up, down, left, right). and if possible to get the Detection; to click on bitmaps instead of colors. if someone can help me ill be grateful. Thank you!
  7. Need ideas to find the Fishing Spot

    Find the whole TPA (FindColor(s) ) and split it into boxes (ATPA) or SplitTPA and then look at the width/height of the (A)TPA(s) with TPA sorting and Length() probably use one of the TPA sorting functions by size https://wiki.scar-divi.com/Category:TPA_Functions Here's some generalized implementation https://github.com/OSI1/OfficialSCARInclude/blob/master/RS07/Extended/Object.scar
  8. Need ideas to find the Fishing Spot

    Hey guys... I need some ideas on how I can find this fishing spot. Unfortunately I'm having some trouble. The color is extremely similar to a lot of other colors in the area. To be frank, this is the barb village in 07OSRS. Trying to make a fly fishing bot. Any ideas to help me out? Tried to look for the fishing poles which works WONDERS, but with the problem of if I'm already standing right next to the spot, you see my character and no fishing poles anymore. Any ideas to help me out?
  9. 07's InvCount

    Okay. If those colors needs it set to 1. Then that is the problem. I am using 2. Thanks for the info!
  10. 07's InvCount

    Does your code reset ColorToleranceSpeed? ColorToleranceSpeed(1); The 'bug' is not with InvCount it is with TabExists/GetCurrentTab which rely on ColorToleranceSpeed 1 not 2. You need reset ColToleranceSpeed immediately after changing it to 2 and using it it with FindColor etc. . If your code is for sure doing (not missing it in an early exit loop or something) this then try adding it to the test script, if it is still doing this then osrs has updated and I need to change the tolerance parameters. If it stops after you reset it then you need to make your code incorporate the reset. This should be done in any function or produce etc. in your entire script when switching from 1 to 2 CTS
  11. 07's InvCount

    Solved the situation, changed the checkit parameter to false; all is well now. Although, I believe that still is a bug.
  12. 07's InvCount

    Hello wanted... Not sure whats going on here. This prints absolutely correct: repeat writeln(inttostr(InvCount(true))); until false; However... when I do something like this: repeat FindOre; writeln(inttostr(InvCount(true))); waitRR(333,666); until (InvCount(true) = 28); It always prints 0. Any ideas??? P.S. if I were to remove the FindOre; it works properly again. MY FindOre procedure contains a color finding: ColorToleranceSpeed(2); SetColorspeed2Modifiers(0.03, 0.38); if FindColorTol(x, y, 4028566, 60, 50, 450, 310, 16) then click on object..... Sooo maybe the colrTolSpeed an ColorMods need to be changed back before checking the InvCount ??? Not sure.... Please help
  13. Show script running time?

    Alternatively: // Returns the current script execution time in milliseconds function GetTimeRunning(): LongInt;
  14. [C#] OSRS blocking my mouse clicks??

    Oof, can't edit my post. I was really sleepy, I see the code. My question would be how user32.dll handles mouse clicks. Or you could just look for something open-source which actually works, and see how they do mouse clicks.
  15. [C#] OSRS blocking my mouse clicks??

    It's probably the way the clicks are done. I believe there's a way to simulate a mouse click in a control, which fails for many 3D applications (DirectX), but SCAR's controls simulate a global mouse click. I can't see your code though, so I couldn't say for sure.
  1. Load more activity
×