Mat
01-05-2012, 06:18 PM
Okay I got bored while on the phone to my grandad and made this.
program CastleAssulat;
Var
X,Y, Continuebut:Integer;
Procedure Continuebutton;
Begin
Continuebut := BitmapFromString(11, 12, 'meJzb8ObRxrePN7x5tP71QyBj8/' +
'uncDaQXPvyfkxZERAVTe5b/vjm2md3gAy4yOqnd4CCPPx8DAwMutY' +
'Wi+5cWnjn0qont7s2roaIbHh2d8Gti0AGhDvj0omZV07NuXFu 44v7' +
'EJF1T+9Mu3AMrqDvyO7Jpw9Nv3h83bO7EJHVD250H9wBV1CxY kH7n' +
's39x/aueXwLIrLs9qXqdUvhCooXzWretrbrwPY1D29ARJbeOl+yZA' +
'5cQeGCGfWbVrXv3QJXsOTG+Zw5U+AKChbMqNuwAqTgEVTB4hv ns2Z' +
'NhChQ0tHKnTetasPy/pP71j27A1Vw83zG7MnAMGEAgykn9s+6eHzN' +
'/euukaEQLcvuXG7ZsW7hhRMQBQEZKUAkJisz9cBOuAgwPAF58Li Z');
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.html
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+5cWnjn0qont7s2roaIbHh2d8Gti0AGhDvj0omZV07NuXFu 44v7' +
'EJF1T+9Mu3AMrqDvyO7Jpw9Nv3h83bO7EJHVD250H9wBV1CxY kH7n' +
's39x/aueXwLIrLs9qXqdUvhCooXzWretrbrwPY1D29ARJbeOl+yZA' +
'5cQeGCGfWbVrXv3QJXsOTG+Zw5U+AKChbMqNuwAqTgEVTB4hv ns2Z' +
'NhChQ0tHKnTetasPy/pP71j27A1Vw83zG7MnAMGEAgykn9s+6eHzN' +
'/euukaEQLcvuXG7ZsW7hhRMQBQEZKUAkJisz9cBOuAgwPAF58Li Z');
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.html
Play it there it starts the game for you and runs on hard :P
Mat
Its a epic game! Lol