Jason2gs
2006-12-27 00:02:56
Made a small script for the game, Pirate-the-World.
It an search islands, attack towns, and buy upgrades for you. It does everything besides attack other pirates, if you can find a way to do this, please post it here ;)
Here's the link to the site:
http://www.piratetheworld.com
And here's the code:
Have fun, cheater!
It an search islands, attack towns, and buy upgrades for you. It does everything besides attack other pirates, if you can find a way to do this, please post it here ;)
Here's the link to the site:
http://www.piratetheworld.com
And here's the code:
{.Script Info:
# ScriptName = PTW Macro
# Author = Jason
# Description = Autos Pirate the World for you.
# Version = 2.0 (first one didn't have an upgrade picker on it)
# Date = 12-23-2006/21-24-2006
# Comments = Just bring up the game screen, target it, and run the script.
/Script Info}
program PirateTheWorld;
const
// Cannons = 1
// Hull = 2
// Radar = 3
// Crew = 4
// Observation = 5
// Navigation = 6
// Ship = 7
Upgrade='Place upgrade # here';
procedure Ptw;
begin
clickmouse(365, 427, True);
sleep(750)
clickMouse(569, 540, True);
sleep(750)
clickMouse(569, 555, True);
sleep(750)
// Upgrade picker- Start
begin
if(upgrade='1')then
clickMouse(576, 322, True);
begin
if(upgrade='2')then
clickMouse(576, 340, True);
begin
if(upgrade='3')then
clickMouse(576, 357, True);
begin
if(upgrade='4')then
clickMouse(576, 374, True);
begin
if(upgrade='5')then
clickMouse(376, 391, True);
begin
if(upgrade='6')then
clickMouse(576, 410, True);
begin
if(upgrade='7')then
clickMouse(576, 430, True);
end;
end;
end;
end;
end;
end;
end;
sleep(750)
// Upgrade picker- End
clickMouse(639, 193, True);
sleep(750)
clickmouse(365, 427, True);
sleep(750)
clickMouse(569, 540, True);
sleep(750)
clickMouse(569, 555, True);
sleep(750)
begin
if(upgrade='1')then
clickMouse(576, 322, True);
begin
if(upgrade='2')then
clickMouse(576, 340, True);
begin
if(upgrade='3')then
clickMouse(576, 357, True);
begin
if(upgrade='4')then
clickMouse(576, 374, True);
begin
if(upgrade='5')then
clickMouse(376, 391, True);
begin
if(upgrade='6')then
clickMouse(576, 410, True);
begin
if(upgrade='7')then
clickMouse(576, 430, True);
end;
end;
end;
end;
end;
end;
end;
sleep(750)
clickMouse(639, 193, True);
sleep(750)
clickMouse(437, 356, True);
sleep(750)
clickMouse(569, 540, True);
sleep(750)
clickMouse(569, 555, True);
sleep(750)
begin
if(upgrade='1')then
clickMouse(576, 322, True);
begin
if(upgrade='2')then
clickMouse(576, 340, True);
begin
if(upgrade='3')then
clickMouse(576, 357, True);
begin
if(upgrade='4')then
clickMouse(576, 374, True);
begin
if(upgrade='5')then
clickMouse(376, 391, True);
begin
if(upgrade='6')then
clickMouse(576, 410, True);
begin
if(upgrade='7')then
clickMouse(576, 430, True);
end;
end;
end;
end;
end;
end;
end;
sleep(750)
clickMouse(639, 193, True);
sleep(750)
end;
begin
repeat
Ptw;
until(false)
end.Have fun, cheater!