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

haidargubbe

Members
  • Content count

    24
  • Joined

  • Last visited

Community Reputation

10 Good

About haidargubbe

  • Rank
    Junior Member
  1. 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!
  2. implementing keydown project script.scar project script.scar
  3. Help to make bitmaps.

    program Gopro; const ROUNDS = 5; // Before banking? var normal_path, bank_path, return_path: TPointArray; procedure Setup; var U, D, L, R: TPoint; begin U := Point(639, 702); D := Point(639, 780); L := Point(599, 739); R := Point(676, 738); normal_path := [D, D, L, D, D, R, R, U, U, L, U, U, R, U, U, U, U, L, L, U, U, U, D, D, D, L, L, L, U, U, U, U, D, D, D, D, R, R, R, R, D, D, D, D]; bank_path := [L, L, L, L, L, L, L, L, L, D, L, L, U, U, U, U, U, U, R, U, U, U, U, U, U, L, L]; return_path := [R, R, D, D, D, D, D, D, L, D, D, D, D, D, D, R, R, U, R, R, R, R, R, R, R, R, R]; 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, 8694737, 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(522, 773); Wait(500) ClickMouse(522, 773, mbLeft); Wait(500) MoveMouse(658, 565); Wait(500) ClickMouse(658, 565, mbLeft); Wait(500) MoveMouse(861, 43); Wait(500) ClickMouse(861, 43, 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; 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. can u put the bitmaps in right Place so i just change them? ive tried but dont know were to put them..
  4. Help to make bitmaps.

    So instead of procedure Detection1; var x, y: Integer; begin while FindColor(x, y, 790040, 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; i make this loop? var Procedure Detection; var bmp1, bmp2, bmp3: TScarBitmap; begin Bmp1 := TSCARBitmap.Create('deNpjZGBkCPb2AAAB6gDp'); Bmp2 := TSCARBitmap.Create('deNpjZGBkCPb2AAAB6gDp'); Bmp3 := TSCARBitmap.Create('deNpjZGBkCPb2AAAB6gDp'); if FindBitmapTol(X,Y,Bmp1, 94, 43, 171, 779, 10) then WriteLn('Found bitmap 1'); if FindBitmapTol(X,Y,Bmp2, 94, 43, 171, 779, 10) then WriteLn('Found bitmap 2'); if FindBitmapTol(X,Y,Bmp3, 94, 43, 171, 779, 10) then WriteLn('Found bitmap 3'); end. ??
  5. Need help finding cords to store for vars

    wich loop is it that you have a problem with? if it only clicks the colour or bitmap in one place it means you have set the cords in a small area try to increase top left corner and bottom right corner.
  6. Help to make bitmaps.

    how do i add several bitmaps?
  7. Help to make bitmaps.

    thank you!
  8. Help to make bitmaps.

    program Gopro; const ROUNDS = 3; // Before banking? var normal_path, bank_path, return_path: TPointArray; procedure Setup; var U, D, L, R: TPoint; begin U := Point(639, 702); D := Point(639, 780); L := Point(599, 739); R := Point(676, 738); normal_path := [L, L, L, L, L, L, L, D, R, R, R, R, R, R, R, R, D, L, L, L, L, L, L, L, L, L, L, D, R, R, R, R, R, R, R, R, R, R, R, R, R, D, L, L, L, L, L, L, L, L, L, L, L, L, L, D, R, R, R, R, R, R, R, R, R, R, R, R, D, L, L, L, L, L, L, L, L, L, L, L, D, R, R, R, R, R, R, R, R, U, U, U, U, U, U, U]; bank_path := [u, U, R, U, U, R, U, U, U, U, L, U, U, R, R, R, U, U, U, L, L, U, U, R, U, U, U, L, L, U, L, L, L, U, U, U, U, U, U, U]; return_path := [D, D, D, D, D, D, D, R, R, R, D, R, R, D, D, D, L, D, D, R, R, D, D, D, L, L, L, D, D, R, D, D, D, D, L, D, D]; 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 Detection1; var x, y: Integer; begin while FindColor(x, y, 790040, 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 Detectionnight; var x, y: Integer; begin while FindColor(x, y, 6348181, 206, 299, 597, 367) do begin Wait(500) MoveMouse(275, 776); Wait(500); ClickMouse(275, 776, mbLeft); end; end; procedure Detectionnightthistle; var x, y: Integer; begin while FindColor(x, y, 16719838, 206, 299, 597, 367) do begin Wait(500) MoveMouse(275, 776); Wait(500); ClickMouse(275, 776, mbLeft); end; end; procedure buff; begin Wait(1000) VKeyDown(VK_F1); Wait(500); VKeyUp(VK_F1); end; procedure Put; begin MoveMouse(525, 769); Wait(500) ClickMouse(525, 769, mbLeft); Wait(500) MoveMouse(659, 563); Wait(500) ClickMouse(659, 563, mbLeft); Wait(500) MoveMouse(860, 42); Wait(500) ClickMouse(860, 42, 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 Detection1; Detectionnight; Detectionnightthistle; Move(normal_path[i]); end; RunPath(bank_path); Put; RunPath(return_path); buff; until False; end; begin case (ROUNDS > 0) of True: begin Setup; Play; end; False: WriteLn('TERMINATING: Invalid rounds! Must be over 0...'); end; end. i got some help from jani last time to make a script and this is my own modificated and the only thing i need help with is instead of procedure Detection1; var x, y: Integer; begin while FindColor(x, y, 790040, 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; i want it to find bitmap and click the mouse like in Findcolor Bmp := TSCARBitmap.Create('deNpjZGBkCPb2AAAB6gDp'); How do i do that?
  9. Need a Script.

    hello
  10. My second script needs some help.

    procedure Detection; var x, y: Integer; begin while FindColor(x, y, 3094824, 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; can this procedure be changed so it detects text?
  11. My second script needs some help.

    I have to say that i LOVE YOU!!!!
  12. My second script needs some help.

    Thank you very much it works fine! But one more thing: when it finds the monster in one path it attacks but directly moves to next path after can u make it so it attacks all detected of that color?
  13. My second script needs some help.

    can i just copy-paste this?
  14. My second script needs some help.

    program Gopro; var U, D, L, R: TPoint; path: TPointArray; procedure Setup; begin U := Point(639, 702); D := Point(639, 780); L := Point(599, 739); R := Point(676, 738); path := [R, U, 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, U, R, R, R, D, L, L, L, L, D, R, R, R, R, R, R, D, L, L, L, L, L, L, L, L, D, R, R, R, R, R, R, R, R, D, L, L, L, L, L, L, L, D, R, R, D, R, R]; end; procedure gobank; begin U := Point(639, 702); D := Point(639, 780); L := Point(599, 739); R := Point(676, 738); path := [D, D, D, L, L, D, D, D, D, D, D, D, D, D, L, L]; end; procedure GOBACK; begin U := Point(639, 702); D := Point(639, 780); L := Point(599, 739); R := Point(676, 738); 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 Detection; var x, y: Integer; begin if FindColor(x, y, 3094824, 94, 43, 171, 779) then begin MoveMouse(x, y); Wait(350); ClickMouse(x, y, mbLeft); Wait(50 + Random(35)); ClickMouse(x, y, mbLeft); 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: Integer; begin h := High(path); repeat for i := 0 to h do begin Detection; Move(path[i]); end; until False; end; begin Setup; Play; end. What i want it to do is go the path procedure Setup; with Detection; so it detect and kill monsters 5 times around that path and then procedure gobank; ---->procedure Put; ---->procedure GOBACK; so gobank put and goback just once evry 5 rounds around the map and then start over.
×