mr. pali
2006-06-01 20:23:59
It completes haplan 1 which is found here : //http://www.foon.co.uk/farcade/hapland/
A fun little game that I fucking hate. So I looked at a guide and made a script.
A fun little game that I fucking hate. So I looked at a guide and made a script.
program Hapland1Script;
//http://www.foon.co.uk/farcade/hapland/
//Completes the game.
//Select the client.
procedure v(X,Y : integer);
begin;
movemousesmoothex(x,y,1,5,3000,1,1)
clickmouse(x,y,true)
end;
procedure MC;
begin
v(478,264)
end;
procedure step1;
//Opens trapdoor, Brings man up, fires all cannons
begin ;
v(586, 321) //door
wait(1000)
v(581,360) //man
wait(2400)
v(508, 272) //first fire
wait(3000)
MC //Move cannon up
wait(200)
v(85, 328)//arrow "right"
wait(200)
v(19, 387) //window "open"
wait(200)
v(508,272) //fire rock to bell
wait(200)
MC //cannon "down"
wait(2000)
v(507, 274)//fire first bomb)
wait(700)
v(159, 412) //Hit plank JUST in time.
wait(2000)
v(507, 274)//fire second bomb)
wait(700)
v(159, 412) //Hit plank JUST in time.
wait(2000)
v(506, 270) //Shoot blue thing
wait(9000) //wait for the guy to use blue thing
end;
Procedure Step2; //All the way to bell drop
begin;
v(506, 272) //Put man in cannon
wait(2500)
v(583, 358) //new man
wait(100)
MC //Cannon "up"
wait(2600)
wait(500)
v(506, 271) //fires man
wait(1200)//wait to bend spike
v(208, 182) //Bend spike
wait(2500)
v(151, 184)//hit bell over first time
wait(3000)
v(191, 135)//hit bell 1
wait(700)
v(191, 135) //hit bell 2
wait(700)
v(191, 135) //hit bell 3
wait(1500) //bell falls, mine blows.
end;
procedure step3;
begin;
v(62, 400) //Gets man out of house
wait(10000) //Wait for man to get into right house
v(399, 403)//Clicks man
wait(1300) //dog coming
v(469, 322) //Clicks window, rocks fall, bye bye doggy!
end;
begin
Step1
Step2
wait(1000)
step3
cleardebug;
Writeln('OMGAZ!! HAPLAN 1 IS SOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO')
Writeln('BEATTTTTTTTTTTTTT!!!YAY! THANKS MR. PALI!!!!! ')
Writeln('ZOMGAZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ')
end.