Troll
2010-12-24 13:31:42
First of i want to say thanks as you guys have been very helpful and most my posts seems to be here asking for help.
Well im getting Invalid number of parameters and proberly a number of other errors as i get to the end of my first scirpt, its only a small 175 line scirpt.
Thanks :D
Well im getting Invalid number of parameters and proberly a number of other errors as i get to the end of my first scirpt, its only a small 175 line scirpt.
program new;
//{$DEFINE SMART}
{$i srl\srl.scar}
//{$i reflection\reflection.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;//Change this accordingly
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] do
begin
Name :=''; //Name
Pass :=''; //Pass
Active := True; //True if you want this player to be used
Integers[0] := 0;//Time To run before breaking
end;
{
With Players[1] do //copy and change number accordingly to add players
begin
Name :='';
Pass :='';
Active:=True;
Booleans[0] := false;//Are you ranging?
Integers[0] := 0;//1st color of monster
Integers[1] := 0;//2nd color of monster
Integers[2] := 0;//3rd color of monster
Strings[0] := '';//monster name
end;
}
end;
Procedure MyWait(TimeToWait:Integer);
Var Time:Integer;
Begin
MarkTime(Time);
FindNormalRandoms;
Repeat
Case Random(5000) Of
1: RandomRClick;
2: HoverSkill('attack',False);
3: HoverSkill('defence',False);
4: HoverSkill('strength',False);
5: HoverSkill('hitpoints',False);
6: PickUpMouse;
7: RandomMovement;
8: BoredHuman;
9: LevelUp;
End;
Until(TimeFromMark(Time)>=TimeToWait)
End;
Function FindChicken:Boolean;
Var x,y,i,tol:Integer;
Begin
I := 0
tol := 41
If Not LoggedIn Then Exit;
If srl_InFight Then Exit;
Repeat
If FindColorSpiralTolerance(x,y,3655910,MSX1,MSY1,MSX2,MSY2,41) Then
Begin
MMouse(x,y,2,2);
MyWait(Random(50));
writeln('Moving Mouse');
If IsUpText('ick') Then
Begin
GetMousePos(x,y);
writeln('Getting mouse pos');
MyWait(Random(100));
If Random(20) = 1 Then
Begin
MyWait(Random(10));
Mouse(x,y,0,0,True);
writeln('Clicking');
Result := True;
Break;
End Else Begin
Mouse(x,y,0,0,False);
ChooseOption('ttac');
writeln('Right clicking');
Result := True;
Break;
End;
End Else Begin
writeln('Couldnt not find uptext');
Inc(I);
End;
End Else Begin
writeln('Did not find colour');
Inc(I);
Inc(Tol);
End;
Until(I>20)
If I > 20 Then
Begin
writeln('Could not find chicken');
Exit;
End;
End;
Function FindLoot:Boolean;
Var x,y:Integer;
Begin
If Not LoggedIn Then Exit;
If IsMoving Then Exit;
SetColorToleranceSpeed(2);
SetColorspeed2Modifiers(0.10,0.89);
If IsMoving Then
Mywait(RandomRange(1000,2000));
If FindColorSpiralTolerance(x,y,10921922,MSX1,MSY1,MSX2,MSY2,6) Then
Begin
MMouse(x,y,3,3);
If WaitUptext('ake',RandomRange(250,650)) Then
Begin
GetMousePos(X,Y);
Mouse(x,y,0,0,False);
If ChooseOption('eathe') Then
writeln('Found feathers');
MyWait(RandomRange(400,950));
End;
End Else writeln('Not found colour, this is normaly as im loop it at least 4 times to check we have everything :)');
End;
Procedure MainLoop;
Var I,Time:Integer;
Begin
Repeat
Time := 0
MarkTime(Time);
LogInPlayer;
Repeat
If FindChicken Then
Begin
I := 0
MyWait(RandomRange(750,2200));
While srl_InFight Do
MyWait(Random(250));
FindLoot;
End Else Inc(I);
Until((I > 50) Or Not LoggedIn Or (TimeFromMark > CurrentPlayer.Integer[0]))
If I > 50 Then
Begin
writeln('Could not find monsters : Player now inactive');
If LoggedIn Then
Logout;
NextPlayer(False);
End;
If Not LoggedIn Then
Begin
writeln('Not Logged in : Player now inactive');
NextPlayer(False);
End;
If (TimeFromMark > CurrentPlayer.Integer[0]) Then
Begin
If Not HowManyPlayers = 1 Then
Begin
writeln('Only one player breaking for time you set');
Logout;
NextPlayer(True);
Wait(CurrentPlayer.Integer[1]);
End Else Begin
writeln('More then one player moving onto next player');
Logout;
NextPlayer(True);
End;
Until(AllPlayersInactive);
End;
begin
SetupSRL;
end.
Thanks :D