Prometheus
2012-03-21 21:53:56
Hello guys!!! I'm so excited since this is my first script that was handmade and took me about 2 hours to make (carpal tunnel here I come!) :D:D:D:D:D
I WOULD LIKE TO THANK YOHOJO FOR MAKING THE TUTORIAL ON YOUTUBE, WHICH MADE SCRIPTING EASIER FOR ME :)
What this script does:
-Currently only gathers money on Pokemon Tower Defense and doesn't level up your Pokemon.
-Only Supports Mt. Moon 2
Don't know what Pokemon Tower Defense is, :google:
JK here is the link: http://samdangames.blogspot.com/p/play-ptd_03.html
Start the script on this page:
ONLY USES THE TWO POKEMON ON THE FRONT ROW. Example Below:
I WOULD LIKE TO THANK YOHOJO FOR MAKING THE TUTORIAL ON YOUTUBE, WHICH MADE SCRIPTING EASIER FOR ME :)
What this script does:
-Currently only gathers money on Pokemon Tower Defense and doesn't level up your Pokemon.
-Only Supports Mt. Moon 2
Don't know what Pokemon Tower Defense is, :google:
JK here is the link: http://samdangames.blogspot.com/p/play-ptd_03.html
Start the script on this page:
ONLY USES THE TWO POKEMON ON THE FRONT ROW. Example Below:
program PokemonTowerDefense;
procedure StartGame;
begin
MoveMouse(241,64);
ClickMouse(241,64,1);
Wait(1000);
MoveMouse(275,222);
ClickMouse(275,222,1);
Wait(1000);
ClickMouse(275,222,1);
Wait(1000);
MoveMouse(116,264);
HoldMouse(116,264,1);
Wait(1000);
MoveMouse(64,118);
Wait(1000);
ReleaseMouse(64,118,1);
Wait(1000);
MoveMouse(116,260);
HoldMouse(116,260,1);
Wait(1000);
MoveMouse(172,114);
Wait(1000);
ReleaseMouse(172,114,1);
Wait(1000);
MoveMouse(726,37);
Wait(1000);
ClickMouse(726,37,1);
End;
procedure Fight;
var
x,y:Integer;
begin
MoveMouse(53,30);
Wait(500);
ClickMouse(53,30,1);
Wait(1500);
MoveMouse(125,370);
HoldMouse(125,370,1);
Wait(500);
MoveMouse(269,241);
Wait(500);
ReleaseMouse(269,241,1);
MoveMouse(220,372);
Wait(500);
HoldMouse(220,372,1);
MoveMouse(555,228);
Wait(500)
ReleaseMouse(555,228,1);
Wait(500);
MoveMouse(262,454);
Wait(250);
ClickMouse(262,454,1);
Wait(95000); //Change if your time to finish is different
MoveMouse(558,282);
Wait(250);
ClickMouse(558,282,1);
MoveMouse(260,253);
Wait(250);
ClickMouse(260,253,1);
Wait(250);
MoveMouse(731,36);
Wait(250);
ClickMouse(731,36,1);
End;
begin
StartGame;
Fight;
repeat
Fight;
until (false);
end.