Hey321
11-11-2006, 10:52 PM
As title says first SRL Script and i need some pointers . So if any1 as any then go ahead and post em :). Help me make this an ownage script. Yay i got it working. Guess what the problem was. It's kinda sad but i forgot to put Until(false) at the end of the script :P only reason it didnt work.
pprogram Hey321sNoobFighter;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fighting.scar}
{.include SRL/SRL/extended/xAntiRandoms.scar}
var
MColor1, MColor2, MColor3: Integer;
var
MonsterName: string;
var
MonstersFought: Integer;
Const
Tolerance=5;
fightmode=0;
NumLoops=5;
waittime=1000;
procedure Colours;
begin
MonsterName:='Cow';//name of monster to fight.
MColor1:=000000;//first colour on the monster.
MColor2:=000000;//second colour.
MColor3:=000000;//self explanotory.
end;
Procedure DeclarePlayers;
begin
HowManyPlayers:=4;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active :=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active :=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active :=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active :=True;
end;
procedure Login;
begin
if(not loggedin)then
loginplayer
end;
procedure NoBan;
begin
AntiBan;
BoredHuman;
RandomMovement;
FindMod;
RotateEvery(10);
FindNormalRandoms;
if (not (loggedin)) then;
begin
NextPlayer(true);
end;
end;
procedure Setup;
begin
SetupSRL;
SetUpDemon;
SetupSandWich;
declareplayers;
Login;
SetFightMode(FightMode);
end;
procedure ProgressReport;
begin
Writeln('[]---////////////////////\\\\\\\\\\\\\\\---[]');
Writeln(' Thanks for using Hey321s');
Writeln(' Auto-Fighter ');
Writeln(' Worked for:' +ScriptTime2(2));
Writeln(' Monsters Fought: '+IntToStr(MonstersFought)+'');
Writeln('[]---////////////////////\\\\\\\\\\\\\\\---[]');
end;
Procedure Fighting;
begin if not (InFight) then begin;
FindMonster(MColor1, MColor2, MColor3,tolerance, MonsterName);
KAttackMonster(MColor1,MColor2,MColor3,tolerance, MonsterName);
while InFight do
wait(waittime);
end;
end;
begin
Setup;
Colours;
repeat
NoBan;
Fighting;
NoBan;
ProgressReport;
if (MonstersFought=NumLoops) then
NextPlayer(true);
until(false)
end.
pprogram Hey321sNoobFighter;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fighting.scar}
{.include SRL/SRL/extended/xAntiRandoms.scar}
var
MColor1, MColor2, MColor3: Integer;
var
MonsterName: string;
var
MonstersFought: Integer;
Const
Tolerance=5;
fightmode=0;
NumLoops=5;
waittime=1000;
procedure Colours;
begin
MonsterName:='Cow';//name of monster to fight.
MColor1:=000000;//first colour on the monster.
MColor2:=000000;//second colour.
MColor3:=000000;//self explanotory.
end;
Procedure DeclarePlayers;
begin
HowManyPlayers:=4;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active :=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active :=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active :=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active :=True;
end;
procedure Login;
begin
if(not loggedin)then
loginplayer
end;
procedure NoBan;
begin
AntiBan;
BoredHuman;
RandomMovement;
FindMod;
RotateEvery(10);
FindNormalRandoms;
if (not (loggedin)) then;
begin
NextPlayer(true);
end;
end;
procedure Setup;
begin
SetupSRL;
SetUpDemon;
SetupSandWich;
declareplayers;
Login;
SetFightMode(FightMode);
end;
procedure ProgressReport;
begin
Writeln('[]---////////////////////\\\\\\\\\\\\\\\---[]');
Writeln(' Thanks for using Hey321s');
Writeln(' Auto-Fighter ');
Writeln(' Worked for:' +ScriptTime2(2));
Writeln(' Monsters Fought: '+IntToStr(MonstersFought)+'');
Writeln('[]---////////////////////\\\\\\\\\\\\\\\---[]');
end;
Procedure Fighting;
begin if not (InFight) then begin;
FindMonster(MColor1, MColor2, MColor3,tolerance, MonsterName);
KAttackMonster(MColor1,MColor2,MColor3,tolerance, MonsterName);
while InFight do
wait(waittime);
end;
end;
begin
Setup;
Colours;
repeat
NoBan;
Fighting;
NoBan;
ProgressReport;
if (MonstersFought=NumLoops) then
NextPlayer(true);
until(false)
end.