Dicaste Posted May 15, 2012 Share Posted May 15, 2012 Firstly Hi; I was bored and i wrote this script. This bot (or aimbot w/e) works with this game. Click HERE! and you should use select client button(Getting client position with findcolor is so bad i think.). Then run it and you will won [scar] program AngryBirdsHunting; var w,h :Integer; Menu_Y: Integer; Target: Array [1..5] of Integer; Target_X, Target_Y: Integer; i :Integer; begin ClearDebug; GetClientDimensions(w,h); Menu_Y := h - (h div 3); Target[1] := 12164698; // Blue Bird Target[2] := 2492104; // Red Bird Target[3] := 6002953; // Green Bird Target[4] := 2777005; // Black Bird Target[5] := 2943481; // Yellow Bird repeat for i := 1 to High(Target) do begin if FindColor(Target_X,Target_Y,Target,5,5,w,Menu_Y) then ClickMouse(Target_X,Target_Y,True); end; until false; end. [/scar] PS: You should click "NEXT" button after level. Quote Link to comment Share on other sites More sharing options...
Janilabo Posted May 15, 2012 Share Posted May 15, 2012 (edited) Nice script, Dicaste. You should change "for i := 1 to High(Target) do" to "for i := 1 to Length(Target) do", because right now your code ignores the yellow bird. See, the loop goes from 1 to 4. High(Target) = 4. If you are interested, your code can be shortened a lot: [scar]program AngryBirdsHunting; var i, w, h, bH, Menu_Y, Target_X, Target_Y: Integer; Target: TIntArray; begin GetClientDimensions(w, h); Menu_Y := (h - (h div 3)); // Birds: Blue Red Green Black Yellow Target := [12164698, 2492104, 6002953, 2777005, 2943481]; bH := High(Target); repeat for i := 0 to bH do if FindColor(Target_X, Target_Y, Target, 5, 5, w, Menu_Y) then ClickMouse(Target_X, Target_Y, True); until False; end.[/scar] -Jani Edited May 15, 2012 by Janilabo Quote Link to comment Share on other sites More sharing options...
Dicaste Posted May 16, 2012 Author Share Posted May 16, 2012 Firstly Hi;I was bored and i wrote this script. This bot (or aimbot w/e) works with this game. Click HERE! and you should use select client button(Getting client position with findcolor is so bad i think.). Then run it and you will won [scar] program AngryBirdsHunting; var w,h :Integer; Menu_Y: Integer; Target: Array [1..5] of Integer; Target_X, Target_Y: Integer; i :Integer; begin ClearDebug; GetClientDimensions(w,h); Menu_Y := h - (h div 3); Target[1] := 12164698; // Blue Bird Target[2] := 2492104; // Red Bird Target[3] := 6002953; // Green Bird Target[4] := 2777005; // Black Bird Target[5] := 2943481; // Yellow Bird repeat for i := 1 to High(Target) do begin if FindColor(Target_X,Target_Y,Target,5,5,w,Menu_Y) then ClickMouse(Target_X,Target_Y,True); end; until false; end. [/scar] PS: You should click "NEXT" button after level. Thanks too much. I dont know the "lenght" function. Thanks again Quote Link to comment Share on other sites More sharing options...
Janilabo Posted May 16, 2012 Share Posted May 16, 2012 Yeah, Length() will give the length of an array, whereas High() will give the highest index of an array. You can also use High for that loop, you just need to add +1 to it.. Like this: [scar]for i := 1 to (High(Target) + 1) do[/scar] (High + 1 = length of an array) -Jani Quote Link to comment Share on other sites More sharing options...
Dicaste Posted May 16, 2012 Author Share Posted May 16, 2012 (edited) Yeah, Length() will give the length of an array, whereas High() will give the highest index of an array. You can also use High for that loop, you just need to add +1 to it.. Like this: [scar]for i := 1 to (High(Target) + 1) do[/scar] (High + 1 = length of an array) -Jani I get right now. Thanks for help. Edited May 16, 2012 by Dicaste Quote Link to comment Share on other sites More sharing options...
Elliotdex Posted Monday at 12:10 PM Share Posted Monday at 12:10 PM https://эльдорадо.рус Quote Link to comment Share on other sites More sharing options...