Author Topic: Dar-Blat!  (Read 574 times)

Offline uncfan1119

  • Leecher
  • Posts: 4
  • Rep: 0
    • View Profile
    • Email
Dar-Blat!
« on: October 29, 2009, 04:07:03 pm »
A quick note: Please read the script directions. The script loses the first "run" to get the correct colors!  Also, note: The script is sometimes to slow.  I'm not sure if it's my coding, or scar finding color speed, but it misses often :mad:

[scar]
{ DIRECTIONS: Load game, specify target, don't press "Start Game",
After game loads, start the script.}
program DarBlat;  //by uncfan1119
var
x,y,beakcolor:Integer;

begin
  ClickMouse(327,430,true);
  ClearDebug;
  repeat
    Wait(50);
  until(GetColor(359,428)=0);
    Wait(200);
    Wait(200+random(200));
    beakcolor:=getColor(541, 319);
    Wait(200);
    ClickMouse(359,428,true);
   Wait(25);
    ClickMouse(327,430,true);
    Wait(200);
  repeat;
    if findColor(x,y,beakcolor,9,42,53,176) then
      begin
        KeyDown(32);
        Wait(16);
        KeyUp(32);
        TerminateScript;
      end;
  until(False);
end.
[/scar]
« Last Edit: October 29, 2009, 04:14:09 pm by uncfan1119 »

Freddy1990.com

Dar-Blat!
« on: October 29, 2009, 04:07:03 pm »