PDA

View Full Version : Green Beret Castle Assault



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

davx
01-05-2012, 06:24 PM
Haha :) pretty cool

VillaVuFTW
01-05-2012, 08:10 PM
Haha funny... I attempted to see if the gun was automatic... this script really does work >.<... You should check out prizelive(not advertising) but there is a game that is sorta like this.. and you have to shoot targets super fast, and it's color coded.. I'm sure you might be able to work it out (:

redeclipse
01-07-2012, 09:20 PM
Nice script! Sad thing is that it dies eventually :(
I wish I could just code things like this in my free time :D

Mat
01-12-2012, 08:28 PM
lol just got board while help My Grandad on the phone about his pc :D

Erke
01-28-2012, 10:09 PM
It clicked up a website 'Games for Girls' and spam clicked all the games, froze my computer and eventually made windows crash :p

Wetish
02-15-2012, 01:58 AM
Sorry for my language but that thing fucking raped!! Killed everything in seconds. Great script for lulz

Mat
02-15-2012, 07:59 AM
Lol.