ok thanks ill get it to work properly then i will fix my standards
i fixed my script
someone tell me how it goes
SCAR Code:
program Autofighter;
{.include SRL/srl.scar}
{.include SRL/srl/skill/Fighting.scar}
{.include SRL/SRL/Extended/xDTM.scar}
{.include SRL/SRL/extended/xObject.scar}
{.include SRL/SRL/Extended/xAutoTalk.scar}
{.include SRL/SRL/extended/xAntiBan.Scar}
{this is an autofighter that i made
all u have to do is fill out lines 19-28 and run}
const StartPlayer = 0;
var m, monsters, Att,Str,Def:Integer; Goal : String;
const
mColor1 = 3312517; {colour of monster}
mcolor2 = 7118212; {colour of monster}
mcolor3 = 3444360; {colour of monster}
Monster = 'Goblin'; {name}
tol = 5;
mode = 2; {1 att 2 str 3 controlled 4 defence}
EvenSkills = False; {true or false}
Eat = 'No'; {yes/no}
Eathp = 5; {when you want to eat}
Foodname = 'shrimp'; {name}
Foodcolor = 1; {colour of food}
VerNumber = '2.5'; // Version Number
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := StartPlayer;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active := True;
end;
procedure WriteLns(Text: string);
begin
WriteLn(Text);
Wait(200);
end;
procedure Credits;
begin
WriteLns(' [ B ]');
WriteLns(' [ B o ]');
WriteLns(' [ B o n ]');
WriteLns(' [ B o n f ]');
WriteLns(' [ B o n f i ]');
WriteLns(' [ B o n f i e ]');
WriteLns(' [ B o n f i e l ]');
WriteLns(' [ B o n f i e l d ]');
WriteLns(' [ B o n f i e l d s ]');
WriteLns(' [ B o n f i e l d s A ]');
WriteLns(' [ B o n f i e l d s A u ]');
WriteLns(' [ B o n f i e l d s A u t ]');
WriteLns(' [ B o n f i e l d s A u t o ]');
WriteLns(' [ B o n f i e l d s A u t o F ]');
WriteLns(' [ B o n f i e l d s A u t o F i ]');
WriteLns(' [ B o n f i e l d s A u t o F i g ]');
WriteLns(' [ B o n f i e l d s A u t o F i g h ]');
WriteLns(' [ B o n f i e l d s A u t o F i g h t ]');
WriteLns(' [ B o n f i e l d s A u t o F i g h t e ]');
WriteLns(' [ B o n f i e l d s A u t o F i g h t e r]');
ClearDebug;
WriteLn('tell me how my script goes =] =]') ;
end;
procedure ProgressReport;
Begin
ClearDebug;
Writeln('<|----------------------------------------------|>');
Writeln(' AutoFighter v'+VerNumber+' by Bonfield ');
Writeln(' Worked for: '+ScriptTime2(2));
Writeln(' Attacked ' + IntToStr(Monsters));
Writeln('<|----------------------------------------------|>');
end;
procedure Mode2name;
begin
if(Mode = 1) then begin
Goal := 'Attack';
end;
if(Mode = 2) then begin
Goal := 'Strength';
end;
if(Mode = 3) then begin
Goal := 'Strength';
end;
if(Mode = 4) then begin
Goal := 'Defence';
end; end;
procedure EatFood;
begin
repeat
if(eat = 'Yes')then begin if(gethp < Eathp) then begin
Gametab(4)
findobjarea(x,y,foodname,557,211,734,458,foodcolor,5,true);
isuptext(foodname);
Mouse(x,y,5,5,true);
end;
end;
until(gethp > eathp);
end;
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
procedure AntiBanage; {made by JAD and i changed a little}
begin
if(not(LoggedIn))then
Exit;
case Random(13) of
0: RandomRClickEvery(3 + Random(3));
1: begin if mode=1 then
HoverSkill('Attack', false);
wait(2000+random(1000));
GameTab(4);
end;
2: begin if mode=2 then
HoverSkill('Strength', false);
wait(500+random(1000));
GameTab(4);
end;
3: begin if mode=4 then
HoverSkill('Defence', false);
wait(500+random(1000));
GameTab(4);
end;
4: LeaveScreenEvery(10 + Random(4));
5: PickUpMouse;
6: BoredEvery(10 + Random(5));
7: begin
GameTab(1 + Random(12));
wait(1000+random(1000));
GameTab(4);
end;
8: MouseBox(MSX1,MMY1,MMX2,MMY2,3);
9: AntiBan;
10: SleepAndMoveMouse(600000+random(300000));
end;
end;
procedure FindRandoms;
begin
FindFastRandoms;
FindNormalRandoms;
end;
procedure SkillCheck;
begin if(Mode = 1) then begin
HoverSkill('Attack',false);
end; if(Mode = 2) then begin
HoverSkill('Strength',false);
end; if(Mode = 3) then begin
HoverSkill('Attack',false);
wait(1000 + random(500));
HoverSkill('Strength',false);
end; if(Mode = 4) then begin
HoverSkill('Defence',false);
end;
end;
procedure EvenSkill;
var Att,Str,Def:Integer;
begin
ProgressReport;
if(EvenSkills=True)
then begin
Att:=GetSkillLevel('Attack')
Str:=GetSkillLevel('Strength')
Def:=GetSkillLevel('Defence')
writeln('Att: '+inttostr(Att))
writeln('Str: '+inttostr(Str))
writeln('Def: '+inttostr(Def))
if(Att>Str)
then begin
ProgressReport;
writeln('Att greater than Str')
if(mode=2)
then begin
ProgressReport;
exit;
end;
if(Att<Str)
then begin
ProgressReport;
writeln('Att less than Str')
if(mode=1)
then begin
ProgressReport;
exit;
end;
if(Att>Def)
then begin
ProgressReport;
writeln('Att greater than Def')
if(mode=3)
then begin
ProgressReport;
exit;
end;
if(Att<Str)
then begin
ProgressReport;
writeln('Attless than Str')
if(mode=1)
then begin
ProgressReport;
exit;
end;
end;
end;
end;
end;
end;
end;
procedure Fighter;
begin
m:= 0;
antiBanage;
if (not(findattackablenpc(mcolor1, mcolor2, mcolor3, tol, monster))) then begin end;
KAttackMonster(mcolor1, mcolor2, mcolor3, tol, monster);
wait(1000 + random(120));
outfight;
Monsters := m + 1;
ProgressReport;
end;
procedure Setup;
begin
Declareplayers;
Credits;
SetupSRL;
ActivateClient;
SRLRandomsReport;
end;
begin
setup;
repeat if (not (loggedin)) then begin
loginplayer;
SetRun(true);
wait(2000 + random(1000));
highestangle;
end;
antiBanage;
FindNormalRandoms;
wait(200 + random(200));
fighter;
wait(200 + random(200));
antiBanage;
until (false);
ProgressReport;
Logout;
End.