PDA

View Full Version : Pokemon Tower Defense MoneyFarmer V1.0



Prometheus
03-22-2012, 01:53 AM
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:
http://img835.imageshack.us/img835/8169/capp.png

ONLY USES THE TWO POKEMON ON THE FRONT ROW. Example Below:
http://img844.imageshack.us/img844/4066/ptd.png


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.

JN13
03-22-2012, 02:25 AM
well! Thanks for showing me where that game was, its quite entertaining!

Prometheus
03-22-2012, 03:59 AM
well! Thanks for showing me where that game was, its quite entertaining!
yes it is...but after a while it gets kinda boring. :)

JN13
03-22-2012, 04:13 AM
Sounds like the Real version then...

boobies
03-22-2012, 04:38 AM
cool game^^
you should make a range guilder that works now :D

P1nky
03-22-2012, 05:53 AM
well! Thanks for showing me where that game was, its quite entertaining!

^ Thanks for share! Will play at work :D

rice
03-22-2012, 05:58 AM
lmfao old school pokemon nice

alexes
03-22-2012, 07:57 AM
I'll ry it, thx for sharing ^^

The game seems fun :D

RISK
03-22-2012, 07:56 PM
You should have it zoom out by 50% and place all the pokemon it can on to the map. :)

Prometheus
03-22-2012, 10:26 PM
You should have it zoom out by 50% and place all the pokemon it can on to the map. :)
lol ikr sorry it only does the two pokemon on the first row but im planning on adding that :D

JN13
03-23-2012, 04:26 AM
If I failed my Calc test... I'm blaming this game.

Prometheus
03-23-2012, 04:52 AM
If I failed my Calc test... I'm blaming this game.
LOL thats why i made this bot :f: