Results 1 to 9 of 9

Thread: hey whats this mean.

  1. #1
    Join Date
    Jan 2007
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default hey whats this 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?

  2. #2
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    your script?
    You propably need to add this into your script:
    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;
    Put DeclarePlayers; after SetUpSRL; in your scripts mainloop.

    Like this:
    SCAR Code:
    begin
      setupsrl;
      DeclarePlayers;
      logInPlayer;
      end.

  3. #3
    Join Date
    Jan 2007
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

  4. #4
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    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)

  5. #5
    Join Date
    Jan 2007
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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?

  6. #6
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by fugate View Post
    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?
    Alright, post, ill look whats wrong.

  7. #7
    Join Date
    Jan 2007
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  8. #8
    Join Date
    Jan 2007
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    whoa posted my paassword on accident iwhoa lol i was scared

    Edit: Talk About Shakeing! whew

  9. #9
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Umm, I think that these gives you that "error":
    SCAR Code:
    SolveFrog;
    FindFrogCave;
    I had same problem when I was using them.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. New, Whats up?
    By Vengeful in forum Who Are You ? Who ? Who ?
    Replies: 4
    Last Post: 03-14-2008, 10:35 PM
  2. Replies: 8
    Last Post: 03-23-2007, 04:20 PM
  3. Hey Whats up
    By marioeschido in forum Who Are You ? Who ? Who ?
    Replies: 1
    Last Post: 01-17-2007, 02:34 AM
  4. Hey whats up
    By Silent ninja in forum Who Are You ? Who ? Who ?
    Replies: 1
    Last Post: 01-14-2007, 01:24 AM
  5. Whats Up?
    By royalsman in forum Who Are You ? Who ? Who ?
    Replies: 0
    Last Post: 01-05-2007, 10:12 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •