zenma
08-29-2007, 08:31 AM
2 questions..
1: wont runto get you banned cause it clicks coordinates. heres the code
{************************************************* ******************************
procedure RunTo(dir: String; runfar: Boolean);
By: Mutant Squirrle
Description: Runs to direction
************************************************** *****************************}
procedure RunTo(dir: string; runfar: Boolean);
begin
SetRun(True);
if (runfar) then
begin
case UpperCase(dir) of
'N': MouseFlag(648, 83 - 63, 0, 0)
'S': MouseFlag(648, 83 + 63, 0, 0)
'E': MouseFlag(648 + 63, 83, 0, 0)
'W': MouseFlag(648 - 63, 83, 0, 0)
end;
end else
if (not runfar) then
begin
case UpperCase(dir) of
'N': MouseFlag(648, 83 - 30, 0, 0)
'S': MouseFlag(648, 83 + 30, 0, 0)
'E': MouseFlag(648 + 30, 83, 0, 0)
'W': MouseFlag(648 - 30, 83, 0, 0)
end;
end;
Wait(6500);
IdleTime(6000, 500, 1.0);
if (runfar) then
begin
case UpperCase(dir) of
'N': MouseFlag(648, 83 + 63, 0, 0)
'S': MouseFlag(648, 83 - 63, 0, 0)
'E': MouseFlag(648 - 63, 83, 0, 0)
'W': MouseFlag(648 + 63, 83, 0, 0)
end;
end else
if (not runfar) then
begin
case UpperCase(dir) of
'N': MouseFlag(648, 83 + 30, 0, 0)
'S': MouseFlag(648, 83 - 30, 0, 0)
'E': MouseFlag(648 - 30, 83, 0, 0)
'W': MouseFlag(648 + 30, 83, 0, 0)
end;
end;
SetRun(False);
GameTab(4);
end;
as far as i can tell theres no randomness in that. if it cant get you banned why not?
2: how does runback know which direction to runback to? and also it says in the specified direction all i see is this. no parameters or anything saying itd know what direction to run back to automatically
{************************************************* ******************************
procedure RunBack;
By: Stupid3ooo
Description: Runs back in specified direction
************************************************** *****************************}
procedure RunBack;
Var
x, y: integer;
begin
MouseFindFlag((648 - x) + 648, (83 - y) + 83, 1, 1);
SetRun(True);
Flag;
end;
1: wont runto get you banned cause it clicks coordinates. heres the code
{************************************************* ******************************
procedure RunTo(dir: String; runfar: Boolean);
By: Mutant Squirrle
Description: Runs to direction
************************************************** *****************************}
procedure RunTo(dir: string; runfar: Boolean);
begin
SetRun(True);
if (runfar) then
begin
case UpperCase(dir) of
'N': MouseFlag(648, 83 - 63, 0, 0)
'S': MouseFlag(648, 83 + 63, 0, 0)
'E': MouseFlag(648 + 63, 83, 0, 0)
'W': MouseFlag(648 - 63, 83, 0, 0)
end;
end else
if (not runfar) then
begin
case UpperCase(dir) of
'N': MouseFlag(648, 83 - 30, 0, 0)
'S': MouseFlag(648, 83 + 30, 0, 0)
'E': MouseFlag(648 + 30, 83, 0, 0)
'W': MouseFlag(648 - 30, 83, 0, 0)
end;
end;
Wait(6500);
IdleTime(6000, 500, 1.0);
if (runfar) then
begin
case UpperCase(dir) of
'N': MouseFlag(648, 83 + 63, 0, 0)
'S': MouseFlag(648, 83 - 63, 0, 0)
'E': MouseFlag(648 - 63, 83, 0, 0)
'W': MouseFlag(648 + 63, 83, 0, 0)
end;
end else
if (not runfar) then
begin
case UpperCase(dir) of
'N': MouseFlag(648, 83 + 30, 0, 0)
'S': MouseFlag(648, 83 - 30, 0, 0)
'E': MouseFlag(648 - 30, 83, 0, 0)
'W': MouseFlag(648 + 30, 83, 0, 0)
end;
end;
SetRun(False);
GameTab(4);
end;
as far as i can tell theres no randomness in that. if it cant get you banned why not?
2: how does runback know which direction to runback to? and also it says in the specified direction all i see is this. no parameters or anything saying itd know what direction to run back to automatically
{************************************************* ******************************
procedure RunBack;
By: Stupid3ooo
Description: Runs back in specified direction
************************************************** *****************************}
procedure RunBack;
Var
x, y: integer;
begin
MouseFindFlag((648 - x) + 648, (83 - y) + 83, 1, 1);
SetRun(True);
Flag;
end;