Mat
2012-01-05 13:18:37
Okay I got bored while on the phone to my grandad and made this.
Play it there it starts the game for you and runs on hard :P
Mat
Its a epic game! Lol
program CastleAssulat;
Var
X,Y, Continuebut:Integer;
Procedure Continuebutton;
Begin
Continuebut := BitmapFromString(11, 12, 'meJzb8ObRxrePN7x5tP71QyBj8/' +
'uncDaQXPvyfkxZERAVTe5b/vjm2md3gAy4yOqnd4CCPPx8DAwMutY' +
'Wi+5cWnjn0qont7s2roaIbHh2d8Gti0AGhDvj0omZV07NuXFu44v7' +
'EJF1T+9Mu3AMrqDvyO7Jpw9Nv3h83bO7EJHVD250H9wBV1CxYkH7n' +
's39x/aueXwLIrLs9qXqdUvhCooXzWretrbrwPY1D29ARJbeOl+yZA' +
'5cQeGCGfWbVrXv3QJXsOTG+Zw5U+AKChbMqNuwAqTgEVTB4hvns2Z' +
'NhChQ0tHKnTetasPy/pP71j27A1Vw83zG7MnAMGEAgykn9s+6eHzN' +
'/euukaEQLcvuXG7ZsW7hhRMQBQEZKUAkJisz9cBOuAgwPAF58LiZ');
If FindBitMapTolerancein(Continuebut,x,y,0,0, 630, 479, 45) then
Begin
MoveMouse(X,y);
ClickMouse(X,y,1);
End;
FreeBitMap(Continuebut);
end;
procedure startgame;
Begin
MoveMouse(350, 190);
ClickMouse(350,190,1);
Wait(2000);
MoveMouse(340, 250);
ClickMouse(340,250,1);
Wait(1200);
MoveMouse(330, 360);
ClickMouse(330,360,1);
Wait(2200);
End;
begin
startgame;
Repeat
If IsKeyDown(VK_F4) Then
TerminateScript;
Continuebutton;
If findColorSpiralTolerance(X,Y,5223897,290,200, 630, 479,5) then
Begin
MoveMouse(X,y);
ClickMouse(X,Y,1);
End;
If findColorSpiralTolerance(X,Y,15461355,290,200, 630, 479,5) then
Begin
MoveMouse(X,y);
ClickMouse(X,Y,1);
End;
If findColorSpiralTolerance(X,Y,15941,0,0, 630, 479,5) then
Begin
MoveMouse(X,y);
ClickMouse(X,Y,1);
End;
Until(False);
end.http://www.flashgames247.com/play/14162.htmlPlay it there it starts the game for you and runs on hard :P
Mat
Its a epic game! Lol