Results 1 to 8 of 8

Thread: not working

  1. #1
    Join Date
    Aug 2007
    Posts
    113
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default not working

    This is my first script i have ever made and it is a power cutter. I think i have alot of stuff down, but when i enter my user and pass click run it does nothing but, my mouse just goes to the corner of the runescape page and just stays there, even when i try doing it logged in it does the same, well here it is.please post what is wrong and anything i can do to fix it thanks very much


    SCAR Code:
    program Treekiller;
    //This is my frist script, so please post proggies an such.
    //fill out tree color and direction to run away, if attacked
    //if anyone has any suggestions or anything to make this better please post
    //can use for any tree as long as you pick the color
    //has antirandoms but haven't had the time to check if they work. but they should
     
     
    {.include SRL/SRL.scar}
     
     
    //Variables
     
    var
    Loads: integer;
    x,y  : integer;
     
    //Constants
    Const
    TreeColor = 531741; //Set the Tree Color
    StartPlayer = 0;
    NumberOfUsers = 1;
    WaitTime  = 5000; //5 Seconds to Wait
     
    procedure DeclarePlayers;
    begin
     HowManyPlayers:= 1;
     NumberOfPlayers( HowManyPlayers );
     CurrentPlayer :=0;
     
      Players[0].Name :='username';
      Players[0].Pass :='password';
      Players[0].Nick :='3-4 letter from your username';
      NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
     end;
     
    Procedure AntiRandoms;
    Begin
    FindTalk;
    FindNormalRandoms;
    if (FindFight = True) then
    begin
         RunAwayDirection('N');   //choose wisely
         Wait(10000 + random(3000));
         RunBack;
         end;
    end;
     
    Procedure Cut;
    Begin
      Repeat
       if(FindColorSpiralTolerance(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2,5)) then
       begin
        MMouse(x,y,0,0);
        Wait(250+random(50));
        Mouse(x,y,0,0,true);
        Wait(500 + random(250));
        AntiRandoms;
        Wait(WaitTime +(random(500)))
       end;
      until(InvFull);
    end;
     
    Procedure Drop;
    Begin
    DropAll;
    Loads:=Loads+1;
    End;
     
    Procedure Prog;
    Begin
    ClearDebug;
         WriteLn('----->Welcome to the killer of trees :D<-----');
         WriteLn('                                            ');
         WriteLn('--------------------------------------------');
         WriteLn('------------->Progress Report<--------------');
         WriteLn('You have cut down' +IntToStr(Loads)+ 'loads!');
         WriteLn('---------->End of Progress Report<----------');
         WriteLn('--------------------------------------------');
    end;
     
    begin
    ActivateClient;
    SetupSRL;
    DeclarePlayers;
     repeat
       NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars);
       Cut;
       Drop;
       ClearDebug;
       Prog;
     until(IsFKeyDown(12));
    end.

    P.S. can someone tell me how to get rid of the attatched file?

  2. #2
    Join Date
    Aug 2007
    Location
    Australia
    Posts
    133
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    procedure DeclarePlayers;

    begin
     HowManyPlayers:= 1;
     NumberOfPlayers( HowManyPlayers );
     CurrentPlayer :=0;

      Players[0].Name :='username';
      Players[0].Pass :='password';
      Players[0].Nick :='3-4 letter from your username';
      NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
      if (not(LoggedIn)) then LoginPlayer;
     end;
    Quote Originally Posted by The Un-Named View Post
    You can do this a few times before mods catch on...

    "oh fuck, I think the icecream truck just knocked a kid over, brb".

  3. #3
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by HairyDuncan2 View Post
    SCAR Code:
    procedure DeclarePlayers;

    begin
     HowManyPlayers:= 1;
     NumberOfPlayers( HowManyPlayers );
     CurrentPlayer :=0;

      Players[0].Name :='username';
      Players[0].Pass :='password';
      Players[0].Nick :='3-4 letter from your username';
      NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
      if (not(LoggedIn)) then LoginPlayer;
     end;
    Shouldn't make any difference since he has said that it still does it when logged in.

    Script looks ok, did you target the RS window?

    Try this also..

    SCAR Code:
    program Treekiller;
    //This is my frist script, so please post proggies an such.
    //fill out tree color and direction to run away, if attacked
    //if anyone has any suggestions or anything to make this better please post
    //can use for any tree as long as you pick the color
    //has antirandoms but haven't had the time to check if they work. but they should


    {.include SRL/SRL.scar}


    //Variables

    var
    Loads: integer;
    x,y  : integer;

    //Constants
    Const
    TreeColor = 531741; //Set the Tree Color
    StartPlayer = 0;
    NumberOfUsers = 1;
    WaitTime  = 5000; //5 Seconds to Wait

    procedure DeclarePlayers;
    begin
     HowManyPlayers:= 1;
     NumberOfPlayers( HowManyPlayers );
     CurrentPlayer :=0;

      Players[0].Name :='username';
      Players[0].Pass :='password';
      Players[0].Nick :='3-4 letter from your username';
      NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
     end;
     
    Procedure AntiRandoms;
    Begin
    FindTalk;
    FindNormalRandoms;
    if (FindFight = True) then
    begin
         RunAwayDirection('N');   //choose wisely
         Wait(10000 + random(3000));
         RunBack;
         end;
    end;

    Procedure Cut;
    Begin
      Repeat
       if(FindColorSpiralTolerance(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2,5)) then
       begin
        MMouse(x,y,0,0);
        Wait(250+random(50));
        Mouse(x,y,0,0,true);
        Wait(500 + random(250));
        AntiRandoms;
        Wait(WaitTime +(random(500)))
       end;
      until(InvFull);
    end;

    Procedure Drop;
    Begin
    DropAll;
    Loads:=Loads+1;
    End;

    Procedure Prog;
    Begin
    ClearDebug;
         WriteLn('----->Welcome to the killer of trees :D<-----');
         WriteLn('                                            ');
         WriteLn('--------------------------------------------');
         WriteLn('------------->Progress Report<--------------');
         WriteLn('You have cut down' +IntToStr(Loads)+ 'loads!');
         WriteLn('---------->End of Progress Report<----------');
         WriteLn('--------------------------------------------');
    end;

    begin
    ActivateClient;
    SetupSRL;
    DeclarePlayers;
     repeat
       NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars);
       Cut;
       Drop;
       ClearDebug;
       Prog;
     until(IsFKeyDown(12));
    end.

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  4. #4
    Join Date
    Sep 2007
    Location
    Australia
    Posts
    143
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Have you double posted?
    [IMG]file:///C:/Documents%20and%20Settings/damn/My%20Documents/My%20Pictures/Vluv.html[/IMG]

  5. #5
    Join Date
    Aug 2007
    Posts
    113
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks alot roger uk, it woks now, but still doesn't logg in on its own you must start the script logged in,any one know how to fix this?

  6. #6
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program Treekiller;
    //This is my frist script, so please post proggies an such.
    //fill out tree color and direction to run away, if attacked
    //if anyone has any suggestions or anything to make this better please post
    //can use for any tree as long as you pick the color
    //has antirandoms but haven't had the time to check if they work. but they should


    {.include SRL/SRL.scar}


    //Variables

    var
      Loads: integer;
      x,y  : integer;

    //Constants
    Const
      TreeColor = 531741; //Set the Tree Color
      StartPlayer = 0;
      NumberOfUsers = 1;
      WaitTime  = 5000; //5 Seconds to Wait

    procedure DeclarePlayers;
    begin
     HowManyPlayers:= 1;
     NumberOfPlayers( HowManyPlayers );
     CurrentPlayer :=0;

      Players[0].Name :='username';
      Players[0].Pass :='password';
      Players[0].Nick :='3-4 letter from your username';
      NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
     end;

    Procedure AntiRandoms;
    Begin
      FindTalk;
      FindNormalRandoms;
      if (FindFight = True) then
      begin
        RunAwayDirection('N');   //choose wisely
        Wait(10000 + random(3000));
        RunBack;
      end;
    end;

    Procedure Cut;
    Begin
      Repeat
        if(FindColorSpiralTolerance(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2,5)) then
        begin
          MMouse(x,y,0,0);
          Wait(250+random(50));
          Mouse(x,y,0,0,true);
          Wait(500 + random(250));
          AntiRandoms;
          Wait(WaitTime +(random(500)))
        end;
      until(InvFull);
    end;

    Procedure Drop;
    Begin
      DropAll;
      Loads:=Loads+1;
    End;

    Procedure Prog;
    Begin
      ClearDebug;
      WriteLn('----->Welcome to the killer of trees :D<-----');
      WriteLn('                                            ');
      WriteLn('--------------------------------------------');
      WriteLn('------------->Progress Report<--------------');
      WriteLn('You have done' +IntToStr(Loads)+ 'loads!');
      WriteLn('---------->End of Progress Report<----------');
      WriteLn('--------------------------------------------');
    end;

    begin
      ActivateClient;
      SetupSRL;
      DeclarePlayers;
      repeat
        if not loggedin then
        begin
          loginplayer;
        end;
        Cut;
        Drop;
        ClearDebug;
        Prog;
      until(IsFKeyDown(12));
      Logout;
    end.

  7. #7
    Join Date
    Aug 2007
    Posts
    113
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    EDIT: never mind all is fixed

  8. #8
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    Players[0].Active:= True;

    Put this in your DeclarePlayers procedure, just under Players[0].Nick

    That should do it

    -Knives

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. is srl working yet.
    By th3ko in forum NOTA
    Replies: 2
    Last Post: 10-20-2008, 08:06 PM
  2. ~~~~Working Edge cooker WORKING~~~
    By NiCbaZ in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 10-29-2007, 11:16 PM
  3. [Working on].:Autoseller:.[/Working on]
    By dritar in forum First Scripts
    Replies: 10
    Last Post: 10-07-2007, 06:13 AM

Posting Permissions

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