[Runtime Error] : Out Of Range in line 303 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Login.scar // whats that error mean?
[Runtime Error] : Out Of Range in line 303 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Login.scar // whats that error mean?
your script?
You propably need to add this into your script:
Put DeclarePlayers; after SetUpSRL; in your scripts mainloop.SCAR Code:procedure DeclarePlayer;
begin
NumberOfPlayers(1);
CurrentPlayer:=0;
Players[0].Name :='User Name';
Players[0].Pass :='Password';
Players[0].Nick :='er Nam';
Players[0].Active:=True;
end;
Like this:
SCAR Code:begin
setupsrl;
DeclarePlayers;
logInPlayer;
end.
Wow thanks , Also Thanks for the fast reply.
Edit : oh my script is lagging bad to it keep doing this Rotating to position 2
Rotating to position 3
Rotating to position 4
tol = 10
Rotating to position 2
Rotating to position 3
Rotating to position 4
tol = 15
That text is propably for one random event...
Did you set your nickname on the DeclarePlayer correct?
Also, add this in the script down in the DeclarePlayers:
SCAR Code:NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
yeah its still spamming my thing with it like crazy
edit ; did not have nick set righ tlet me retry
edit : 2 aint fix it want me to post script?
i did use some commands from random scripts cause im still expirementing so credits go to fawki and buckindahouse i used soem of there commands and made it in to a range script well im just expirmenting
program RangeBang;
{.include srl/srl.scar}
{.include srl/srl/skill/Fighting.scar}
{.include SRL/SRL/Skill/Ranging.scar}
{.include SRL\SRL\extended\xObject.SCAR}
const
MonsterColor1 = 8635310; //Color of the monster
MonsterColor2 = 4372133; //Another color of the monster
MonsterColor3 = 6269056; //another color of the monster
MonsterColor4 = 3058586; //Another color of the monster
MonsterName = 'Gob'; //Name of the monster your fighting
Arrowcolor = 857195;
DoneFight = 6; //Time it takes to kill the monster in seconds
Speed = 12; //Mouse Speed
Pickarrows = True;
Procedure DeclarePlayers;
begin
HowManyPlayers:=3; //Change to the amount of players you use
NumberOfPlayers(HowManyPlayers);
Players[0].Name :=''; //Enter your Username here
Players[0].Pass :=''; //Enter your Password here
Players[0].Integer1 := 1000; //Enter you Monster Kills here
Players[0].Nick :='4kil'; //Enter your Nickname here
Players[0].Skill := '4kil'; //Skill for genie lamp
Players[0].Active := True;
Players[1].Name :=''; //Enter your Username here
Players[1].Pass :=''; //Enter your Password here
Players[1].Integer1 := 2000; //Enter you Monster Kills here
Players[1].Nick :='AutoFighter'; //Enter your Nickname here
Players[1].Skill := '4kil'; //Skill for genie lamp
Players[1].Active := True;
Players[2].Name :=''; //Enter your Username here
Players[2].Pass :=''; //Enter your Password here
Players[2].Integer1 := 2000; //Enter you Monster Kills here
Players[2].Nick :='4kil'; //Enter your Nickname here
Players[2].Skill := 'atk'; //Skill for genie lamp
Players[2].Active := True;
NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
end;
Var
s,Killed,eaten,Responded,fight,MonsterEXP: integer;
Procedure RandomClicker;
Begin
Case Random(7) of
0: begin
MouseSpeed:= Speed
Mouse(x,y,0,0,False);
wait(25+random(50));
ChooseOption(x,y,'Attack');
End;
1: Begin
MouseSpeed:= Speed
Mouse(x,y,0,0,True);
End;
2: Begin
MouseSpeed:= Speed
Mouse(x,y,1,1,False);
wait(50+random(75));
ChooseOption(x,y,'Attack');
End;
3: Begin
Mouse(x,y,1,1,True);
End;
4: Begin
MouseSpeed:= Speed
Mouse(x,y,2,2,True);
End;
5: Begin
MouseSpeed:= Speed
Mouse(x,y,2,2,False);
wait(15+random(75));
ChooseOption(x,y,'Attack');
End;
6: Begin
MouseSpeed:= Speed
Mouse(x,y,3,3,True);
End;
7: Begin
MouseSpeed:= Speed;
Mouse(x,y,3,3,False);
Wait(25+random(10));
ChooseOption(x,y,'Attack');
End;
End;
End;
Procedure DarnRandoms;
Begin
Loginplayer;
SolveBox;
SolveFrog;
FindFrogCave;
FindName;
FindLamp(Players[CurrentPlayer].Skill);
SolveBox;
FindTalk;
End;
Function FindFastRandoms: Boolean;
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;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
Procedure MyAntiBan;
var
DBanMe : Integer;
begin
if ( not ( LoggedIn )) then Exit;
DBanMe:= Random(50);
case DBanMe of
1: RandomRClickEvery(2 + Random(13));
2: hoverskill('random', false);
3: RandomChatEvery(10 + Random(5));
4: RotateEvery(20 + Random(10));
5: LeaveScreenEvery(5 + Random(5));
6: HoverEvery(15 + Random(5),'random');
8: PickUpMouse;
9: BoredEvery(9 + Random(24));
10: if ExistsItem ( 1 ) then
DragItem(1, 1+Random(18));
11: GameTab(1 + Random(12));
12: DoEmote(1 + Random(20));
end;
end;
function PutArrowsOn: Boolean; //By Freddy1990 .. Edited a bit.
var
xx, yy: Integer;
begin
if (Pickarrows=true) then
begin
GameTab(4)
Result := FindInvArrows(xx, yy);
Wait(100 + Random(250));
Mouse(xx, yy, 0, 0, True);
end;
end;
Procedure WeildArrow;
begin
if(FindColor(x,y,857195,MIX1,MIY1,MIX2,MIY2))then
begin
Mouse(x,y,2,2,true);
end;
end;
Procedure OpenDoor;
var XN,YN: Integer;
begin
If(IsUpText('Open')) Then
Mouse(x,y,0,0,True);
end;
Procedure FightIt;
Begin
repeat
MouseSpeed:= Speed
If(FindColorSpiralTolerance(x,y,MonsterColor1,MSX1 ,MSY1,MSX2,MSY2,15)) Or
(FindColorSpiralTolerance(x,y,MonsterColor2,MSX1,M SY1,MSX2,MSY2,15)) Or
(FindColorSpiralTolerance(x,y,MonsterColor2,MSX1,M SY1,MSX2,MSY2,15)) Or
(FindColorSpiralTolerance(x,y,MonsterColor3,MSX1,M SY1,MSX2,MSY2,15)) Then
MMouse(x,y,2,2)
DarnRandoms;
wait(150+random(250));
Until(IsUpTextMulti('Attack','tack',MonsterName))
Writeln('Found Monster >>> Now Attacking');
DarnRandoms;
RandomClicker;
PutArrowsOn;
OpenDoor;
If(InFight) Then
Begin
OutFight;
Killed:= Killed + 1;
End;
End;
begin
setupsrl;
DeclarePlayers;
logInPlayer;
Repeat
FightIt;
WeildArrow;
until(false);
end.
whoa posted my paassword on accident iwhoa lol i was scared
Edit: Talk About Shakeing! whew
Umm, I think that these gives you that "error":
I had same problem when I was using them.SCAR Code:SolveFrog;
FindFrogCave;
There are currently 1 users browsing this thread. (0 members and 1 guests)