umm, you should create ur own man finding functions, OR i could even create one for you.
SCAR Code:
function BrutalFindMSColorTolerance(dx,dy,Color,EndTolerance: integer): boolean;
var toler: integer;
begin
for toler := 0 to endtolerance do
begin
repeat
Status(inttostr(toler));
wait(50);
if findcolorspiraltolerance(dx,dy,Color,MSX1,MSY1,MSX2,MSY2,Toler)then
break
else
Toler := Toler + 5;
until(Toler>endtolerance);
if(Toler > endtolerance)then exit;
if findcolorspiraltolerance(x,y,Color,dx-10,dy-10,dx+10,dy+10,toler)then
begin
result := true;
Status(inttostr(toler));
exit; //we can safely exit now.
end;
end;
end;
const MissedColor = 16728128;
const HitColor = 192;
Function InFightAt(x, y: Integer):Boolean;
var
dx, dy: Integer;
begin
Result:= (FindColor(dx, dy, GreenStatusColor, x - 20, y - 10, x + 20, y + 10) or
FindColor(dx, dy, RedStatusColor, x - 20, y - 10, x + 20, y + 10) or
FindColor(dx, dy, MissedColor, x - 20, y , x + 20, y + 20) or
FindColor(dx, dy, HitColor, x - 20, y, x + 20, y + 20));
end;
Procedure ManClick;
var
ManColor: array[0..4] of integer;
var
I: Integer;
begin
if not loggedin then exit;
ManColor[0] := 2116697;
ManColor[1] := 2307381;
ManColor[2] := 1785937;
ManColor[3] := 13995395;
ManColor[4] := 6311245;
repeat
if not loggedin then break;
if TimeFromMark (PR) > 60*1000*5 then
ProgressReport;
for i := 0 to 4 do
begin
if(BrutalFindMSColorTolerance(x,y,ManColor[i],15))then
begin
if InFightAt(x,y)then exit;
MMouse(x,y,5,5)
WWait(50+random(25));
if isuptext('Man')then
begin
Getmousepos(x,y)
case 1+random(2) of
1: begin
Mouse(x,y,0,0,true);
end;
2: begin
Mouse(x,y,0,0,false);
WWait(50+random(25));
Chooseoption(x,y,'ttack');
end;
end
FFlag(2);
Wait(500+random(500));
end;
end;
end;
until(InFight);
if InFight then
begin
Status('In Fight');
repeat
if not loggedin then break;
FindNormalRandoms;
AntiBan;
Wait(20+random(50))
Until(not(InFight))
Status('Not In Fight');
MenKilled := MenKilled + 1;
end;
end;
here this shouldnt check for men that are in fight
SCAR Code:
{.Script Info:
# ScriptName = ManKiller
# Author = I Karma I
# Description = Kills the Men at Edgeville
# Version = 1.00
# Date = 5 May
Script Info}
program ManKiller;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Magic.scar}
{.include SRL/SRL/Skill/Fighting.scar}
{==================================================================}
var
MenKilled, StartTime, PR : integer;
{==================================================================}
const PlayerTime = 30;
const Version = '1.00';
{==================================================================}
Procedure DeclarePlayers;
begin
HowManyPlayers:=4;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active := True;
Players[0].Skill := 'strength';
Players[0].Integer1 := 5
end;
{===================================================================}
Procedure ProgressReport;
begin
WriteLn('Edgeville ManKiller version '+Version+' created by I Karma I');
WriteLn('Worked for: ' + TimeRunning);
WriteLn('Attempted to attack: '+inttostr(MenKilled)+' Men.');
WriteLn('Died: ' +inttostr(Deaths)+' times.');
SRLRandomsReport;
MarkTime(PR);
end;
{==================================================================}
procedure SetPlayerStats;
begin
if ( not ( LoggedIn )) then Exit;
GameTab(1);
begin
if Players[CurrentPlayer].Skill = 'attack' then SetFightMode(1);
if Players[CurrentPlayer].Skill = 'strength' then SetFightMode(2);
if Players[CurrentPlayer].Skill = 'defence' then SetFightMode(4);
LampSkill := LowerCase ( Players[CurrentPlayer].Skill );
end;
Wait(1000 + Random(1263));
FindTalk;
end;
{==================================================================}
Procedure ScriptSetup;
begin
SetupSRL;
MarkTime(PR);
DeclarePlayers;
BenMouse := False;
MouseSpeed := 12;
LoginPlayer;
SetPlayerStats;
end;
{==================================================================}
function BrutalFindMSColorTolerance(dx,dy,Color,EndTolerance: integer): boolean;
var toler: integer;
begin
for toler := 0 to endtolerance do
begin
repeat
Status(inttostr(toler));
wait(50);
if findcolorspiraltolerance(dx,dy,Color,MSX1,MSY1,MSX2,MSY2,Toler)then
break
else
Toler := Toler + 5;
until(Toler>endtolerance);
if(Toler > endtolerance)then exit;
if findcolorspiraltolerance(x,y,Color,dx-10,dy-10,dx+10,dy+10,toler)then
begin
result := true;
Status(inttostr(toler));
exit; //we can safely exit now.
end;
end;
end;
const MissedColor = 16728128;
const HitColor = 192;
Function InFightAt(x, y: Integer):Boolean;
var
dx, dy: Integer;
begin
Result:= (FindColor(dx, dy, GreenStatusColor, x - 20, y - 10, x + 20, y + 10) or
FindColor(dx, dy, RedStatusColor, x - 20, y - 10, x + 20, y + 10) or
FindColor(dx, dy, MissedColor, x - 20, y , x + 20, y + 20) or
FindColor(dx, dy, HitColor, x - 20, y, x + 20, y + 20));
end;
Procedure ManClick;
var
ManColor: array[0..4] of integer;
var
I: Integer;
begin
if not loggedin then exit;
ManColor[0] := 6325164;
ManColor[1] := 2702910;
ManColor[2] := 1257530;
ManColor[3] := 2771553;
ManColor[4] := 13995909;
repeat
if not loggedin then break;
if InFight then break;
if TimeFromMark (PR) > 60*1000*5 then
ProgressReport;
for i := 0 to 4 do
begin
if(BrutalFindMSColorTolerance(x,y,ManColor[i],15))then
begin
if InFightAt(x,y)then exit;
MMouse(x,y,5,5)
WWait(50+random(25));
if isuptext('Man')then
begin
Getmousepos(x,y)
case 1+random(2) of
1: begin
Mouse(x,y,0,0,true);
end;
2: begin
Mouse(x,y,0,0,false);
WWait(50+random(25));
Chooseoption(x,y,'ttack');
end;
end
Flag;
Wait(1000+random(500));
end;
end;
end;
until(InFight);
if InFight then
begin
Status('In Fight');
repeat
if not loggedin then break;
FindNormalRandoms;
Wait(250+random(250));
Until(not(InFight))
Status('Not In Fight');
MenKilled := MenKilled + 1;
end;
end;
{==================================================================}
Procedure IntroText;
begin
ClearDebug;
WriteLn('[ ManKiller By I Karma I ]');
Wait(200);
WriteLn(' [ ManKiller By I Karma I ]');
Wait(200);
WriteLn(' [ ManKiller By I Karma I ]');
Wait(200);
WriteLn(' [ ManKiller By I Karma I ]');
Wait(200);
WriteLn(' [ ManKiller By I Karma I ]');
Wait(200);
WriteLn(' [ ManKiller By I Karma I ]');
Wait(200);
WriteLn(' [ManKiller By I Karma I]');
Wait(1000);
WriteLn('Thank you for using ManKiller by I Karma I!')
WriteLn('Please post Progress Reports in the forum!')
WriteLn('NOTE: I am not responsible for banned accounts.')
WriteLn(' ENJOY! ')
Wait(500);
end;
{==================================================================}
Begin
IntroText;
ScriptSetup;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
repeat
ManClick;
if(not(LoggedIn))then
NextPlayer(False)
Until(ScriptTime(1)>=24)
End.
theres the whole script, i removed the antiban it wasent very good.
u should try to make a door opening procedure just incase someone closes it.