Results 1 to 21 of 21

Thread: Need help do not know anything about how to make scripts

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

    Need help do not know anything about how to make scripts

    Plz help me i dont know how to make my own scripts and i really want to make a good yew cutter/banker for edge ville. plz tell me how to get started, and the basics ty

  2. #2
    Join Date
    Jul 2006
    Posts
    189
    Mentioned
    1 Post(s)
    Quoted
    19 Post(s)

    Default

    hi, its great that your trying to learn, but first try reading through some tuts, then i would suggest getting any simple script out of the srl free scripts section and reading through it to understand how things work!

    then see if you can rewrite the script and maybe make it better!

    any problems you get, you can just post on here and get some help from other people to understand!

    p.s
    personally the tuts dont do anything for me, as i found them too confusing, but just read and understand as much as you can!

    **EDIT**

    to be honest your best to try and write a simple powerchopper first, with all the randoms and some antibans, if you achieve that then you could simply add the walking procedurs etc

  3. #3
    Join Date
    Nov 2006
    Location
    Bel Air, Maryland, USA
    Posts
    207
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    honestly, drigers scar tutorial helped me out big time, if u have a high speed connection i seriously suggest that u get this, as it helped me,

    http://www.villu-reborn.com/showthread.php?t=1155

    and i dont know about modifying a script thats allready in existance, that would sound pretty hard and pretty overwhealming for a begginning scripter, id say try to do something that involves very little walking and you should be fine.

    edit:: oh and look through the srl manual after u get done with drigers tut, bunch of stuff in there that works way better then scars origional functions, and much ezier :-) good luck

  4. #4
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    see part 1 of my FAQ (link in sig)

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

    Default

    Ok thnx guys ill see what i can do . hopefully ill get better .

  6. #6
    Join Date
    Jan 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Hey i need help editing this script

    How do i fix this so it will bank the yews?

    Procedure WalktoBank;
    begin
    If (FindSymbol(x,y,'bank'))then
    begin
    MMouse(x,y,2,1)
    Mouse(x,y,1,1,true)
    end
    If (not(FindSymbol(x,y,'bank')))then
    begin
    Mouse(789,173,2,1,true)
    wait(10000);
    If (FindSymbol(x,y,'bank'))then
    begin
    MMouse(x,y,2,1)
    Mouse(x,y,2,1,true)
    end
    end
    end;

    Plz post back if u can help. Thnx again:wink: .

  7. #7
    Join Date
    Jul 2006
    Posts
    189
    Mentioned
    1 Post(s)
    Quoted
    19 Post(s)

    Default

    i dont know about modifying a script thats allready in existance, that would sound pretty hard and pretty overwhealming for a begginning scripter
    i dont agree because he could find a very good powerChopper or Woodcutter/banker, and find out how it all works... and even with the script writers permission he could take snipets of it and put into his own script if you see what i mean?

    just keep trying to learn and you will soon be making great scripts

    p.s if you need any help, just PM me because in the past week ive been on here quite alot and will help you as much as i can.

    HTYA

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

    Default

    Hey well thnx for sticking up for me . But ii would like some help on this script im editing and im going to test it soon so plz help with this part(banking)and post back if u can help thnx and i hope u all do post back

  9. #9
    Join Date
    Jan 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)
    Ok i think this is a good edit ive done but i still cant make it bank the yews :/. So look at this and tell me what u think andreport any errors to me plz .

    {
    ~~~~~~~Fetheroth~~~~~~~~~
    ~~~~~~~~~~~§§~~~~~~~~~~~~
    ~~~~~~~~~~~§§~~~~~~~~~~~~
    ~~~~~~~~Presents~~~~~~~~~
    ~~~~~~~~~~~~~~~~~~~~~~~~~

    ~ Fetheroths Edgeville Yew Cutter!
    ~ Edited by me, Fetheroth.
    ~ Credits to all the SRL team for the wonderful SRL include.
    ~ Setup line 44,45 and 50-95


    Instructions:
    Setup Account
    Stand in Edgeville bank in the southmost booth
    Watch it once to make sure that all is well
    Enjoy!

    Update Info:
    Alpha: Just cut and bank
    Beta: Added Login
    V 1.0: Added Antirandoms, Antiban, and fixed bugs
    V 1.1: Took away WelcomeScreen include
    V 1.2: Added Progress Report, changed some procedures
    V 1.3: Fixed Login bug
    V 1.4: Added Multiple players
    }


    program _Fetheroths_Edgeville_Yew_Cutter;

    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\WoodCutting.scar}
    {.include SRL\SRL\extended\xAntiBan.scar}

    var
    Trips:integer;


    ///////Set Wieldaxe! Don't Touch Version #//////
    const //
    WieldAxe = 2; //1 for wielding, 2 for no //
    Tripstodo = 0; // # of trips for each player //
    VersionNumber = ' 1.3'; //Don't Touch! //
    /////////////////////////////
    Procedure DeclarePlayers; //
    begin //
    HowManyPlayers :=6; // Set Number of Players here. //
    NumberOfPlayers(HowManyPlayers); // Leave alone //
    CurrentPlayer:=0; // The blue # of the player wanted //
    //
    Players[0].Name :=''; // Your RS Name //
    Players[0].Pass :=''; // Your RS Password //
    Players[0].Nick :=''; // The first 3 lowercase letters of your name //
    // eg. If your name is Zezima, put in ezi. //
    Players[0].Loc :='Loc1'; //Not needed //
    Players[0].Skill:=''; //Not needed //
    Players[0].Active:=True; //Leave at true //
    //
    Players[1].Name :=''; //
    Players[1].Pass :=''; //
    Players[1].Nick :=''; //
    Players[1].Loc :='Loc1'; //
    Players[1].Skill:=''; //
    Players[1].Active:=True; //
    //
    Players[2].Name :=''; //
    Players[2].Pass :=''; //
    Players[2].Nick :=''; //
    Players[2].Loc :='Loc1'; //
    Players[2].Skill:=''; //
    Players[2].Active:=True; //
    //
    Players[3].Name :=''; //
    Players[3].Pass :=''; //
    Players[3].Nick :=''; //
    Players[3].Loc :='Loc1'; //
    Players[3].Skill:=''; //
    Players[3].Active:=True; //
    //
    Players[4].Name :=''; //
    Players[4].Pass :=''; //
    Players[4].Nick :=''; //
    Players[4].Loc :='Loc1'; //
    Players[4].Skill:=''; //
    Players[4].Active:=True; //
    //
    Players[5].Name :=''; //
    Players[5].Pass :=''; //
    Players[5].Nick :=''; //
    Players[5].Loc :='Loc1'; //
    Players[5].Skill:=''; //
    Players[5].Active:=True; //
    //
    //
    //
    writeln(inttostr(HowManyPlayers)+'1'); //
    ///////////////////////////////////////////////////////////////////////////
    end;

    function IsWelcomeScreen: Boolean;
    begin
    if(GetColor(271, 292) = 8356779)and
    (GetColor(499, 292) = 8356779)and
    (GetColor(271, 381) = 8356779)then
    Result := True;
    end;

    procedure WelcomeScreen;
    begin
    if(not(IsWelcomeScreen))then Exit;
    MouseBox(275, 296, 495, 377, 1);
    end;
    //-----------------------------------------------//

    Procedure Setup;
    begin
    SetupSRL;
    ActivateClient;
    ChatsOff;
    If (LoggedIn) then
    begin
    HighestAngle;
    MakeCompass('n');
    end;
    If (not(LoggedIn)) then
    LoginPlayer;
    WelcomeScreen;
    HighestAngle;
    MakeCompass('n');
    end;
    //-----------------------------------------------//

    Procedure ProgReport;
    begin
    ClearReport;
    Writeln('===============================')
    Writeln('= You Are Using =');
    Writeln('= =');
    Writeln('= The Fetheroth Edgeville =');
    Writeln('= =');
    Writeln('= YEW CUTTER! =');
    Writeln('= =');
    WriteLn('= Version ' + VersionNumber + ' =');
    Writeln('= =');
    Writeln('= ' + inttostr(Trips) + ' Trips done =');
    Writeln('= =');
    Writeln('= Happy Cutting =');
    Writeln('===============================');
    end;
    //-----------------------------------------------//

    Procedure WalktoTrees;
    begin
    If (FindSymbol(x,y, 'rare trees')) then
    begin
    SetRun(true)
    Mouse(x,y,1,1,true)
    wait(10000)
    end
    If (not(FindSymbol(x,y, 'rare trees')))then
    begin
    SetRun(true)
    Mouse(747,280,1,1,true)
    wait(5000)
    If (FindSymbol(x,y, 'rare trees')) then
    begin
    Mouse(x,y,1,1,true)
    wait(10000)
    end
    end
    end;

    //-----------------------------------------------//

    Procedure ChoptheTrees;
    begin
    repeat
    if (FindMSColor(x,y,3438704))or
    (FindMSColor(x,y,3887184))or
    (FindMSColor(x,y,1925200))then
    MMouse(x,y,1,1)
    If IsUpText('Chop') then
    Mouse(x,y,1,1,true)
    wait(5000+Random(5000)+Random(5000)+Random(5000))
    until (invfull = true)
    if (invfull = true) then
    Trips := Trips + 1;
    end;
    //-----------------------------------------------//

    Procedure WalktoBank;
    begin
    If (FindSymbol(x,y,'bank'))then
    begin
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
    end
    If (not(FindSymbol(x,y,'bank')))then
    begin
    Mouse(789,173,1,1,true)
    wait(10000);
    If (FindSymbol(x,y,'bank'))then
    begin
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
    end
    end
    end;
    //-----------------------------------------------//

    Procedure BanktheLogs;
    begin
    OpenBank;
    If WieldAxe = 1 then
    begin
    DepositAll;
    end
    If WieldAxe = 2 then
    begin
    Deposit(2,27,2);
    end
    end;
    //-----------------------------------------------//

    Procedure AntiRandomsandAntiBan;
    begin
    SRLRandomsReport;
    FindNormalRandoms;
    FindAxeHeadColor;
    AttachHead;
    DontBanMe(2);
    If (FindEnt (3438704)) then
    begin
    Logout;
    Wait(30000)
    LoginPlayer;
    end
    end;
    //-----------------------------------------------//

    begin
    DeclarePlayers;
    Setup;
    repeat
    repeat
    ProgReport;
    WalktoTrees;
    ChoptheTrees;
    WalktoBank;
    BanktheLogs;
    AntiRandomsandAntiBan;
    until (trips = Tripstodo);
    If (trips = Tripstodo) then
    Logout;
    Nextplayer(true);
    until (false);
    end.

  10. #10
    Join Date
    Jul 2006
    Posts
    189
    Mentioned
    1 Post(s)
    Quoted
    19 Post(s)

    Default

    please use the SCAR button when showing scripts and codes etc

  11. #11
    Join Date
    Jan 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok.. where is that?

  12. #12
    Join Date
    Jul 2006
    Posts
    189
    Mentioned
    1 Post(s)
    Quoted
    19 Post(s)

    Default

    SCAR Code:
    {
    ~~~~~~~Fetheroth~~~~~~~~~
    ~~~~~~~~~~~§§~~~~~~~~~~~~
    ~~~~~~~~~~~§§~~~~~~~~~~~~
    ~~~~~~~~Presents~~~~~~~~~
    ~~~~~~~~~~~~~~~~~~~~~~~~~

    ~ Fetheroths Edgeville Yew Cutter!
    ~ Edited by me, Fetheroth.
    ~ Credits to all the SRL team for the wonderful SRL include.
    ~ Setup line 44,45 and 50-95


    Instructions:
    Setup Account
    Stand in Edgeville bank in the southmost booth
    Watch it once to make sure that all is well
    Enjoy!

    Update Info:
    Alpha: Just cut and bank
    Beta: Added Login
    V 1.0: Added Antirandoms, Antiban, and fixed bugs
    V 1.1: Took away WelcomeScreen include
    V 1.2: Added Progress Report, changed some procedures
    V 1.3: Fixed Login bug
    V 1.4: Added Multiple players
    }



    program _Fetheroths_Edgeville_Yew_Cutter;

    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\WoodCutting.scar}
    {.include SRL\SRL\extended\xAntiBan.scar}

    var
    Trips:integer;


    ///////Set Wieldaxe! Don't Touch Version #//////
    const //
    WieldAxe = 2; //1 for wielding, 2 for no //
    Tripstodo = 0; // # of trips for each player //
    VersionNumber = ' 1.3'; //Don't Touch! //
    /////////////////////////////
    Procedure DeclarePlayers; //
    begin //
    HowManyPlayers :=6; // Set Number of Players here. //
    NumberOfPlayers(HowManyPlayers); // Leave alone //
    CurrentPlayer:=0; // The blue # of the player wanted //
    //
    Players[0].Name :=''; // Your RS Name //
    Players[0].Pass :=''; // Your RS Password //
    Players[0].Nick :=''; // The first 3 lowercase letters of your name //
    // eg. If your name is Zezima, put in ezi. //
    Players[0].Loc :='Loc1'; //Not needed //
    Players[0].Skill:=''; //Not needed //
    Players[0].Active:=True; //Leave at true //
    //
    Players[1].Name :=''; //
    Players[1].Pass :=''; //
    Players[1].Nick :=''; //
    Players[1].Loc :='Loc1'; //
    Players[1].Skill:=''; //
    Players[1].Active:=True; //
    //
    Players[2].Name :=''; //
    Players[2].Pass :=''; //
    Players[2].Nick :=''; //
    Players[2].Loc :='Loc1'; //
    Players[2].Skill:=''; //
    Players[2].Active:=True; //
    //
    Players[3].Name :=''; //
    Players[3].Pass :=''; //
    Players[3].Nick :=''; //
    Players[3].Loc :='Loc1'; //
    Players[3].Skill:=''; //
    Players[3].Active:=True; //
    //
    Players[4].Name :=''; //
    Players[4].Pass :=''; //
    Players[4].Nick :=''; //
    Players[4].Loc :='Loc1'; //
    Players[4].Skill:=''; //
    Players[4].Active:=True; //
    //
    Players[5].Name :=''; //
    Players[5].Pass :=''; //
    Players[5].Nick :=''; //
    Players[5].Loc :='Loc1'; //
    Players[5].Skill:=''; //
    Players[5].Active:=True; //
    //
    //
    //
    writeln(inttostr(HowManyPlayers)+'1'); //
    ///////////////////////////////////////////////////////////////////////////
    end;

    function IsWelcomeScreen: Boolean;
    begin
    if(GetColor(271, 292) = 8356779)and
    (GetColor(499, 292) = 8356779)and
    (GetColor(271, 381) = 8356779)then
    Result := True;
    end;

    procedure WelcomeScreen;
    begin
    if(not(IsWelcomeScreen))then Exit;
    MouseBox(275, 296, 495, 377, 1);
    end;
    //-----------------------------------------------//

    Procedure Setup;
    begin
    SetupSRL;
    ActivateClient;
    ChatsOff;
    If (LoggedIn) then
    begin
    HighestAngle;
    MakeCompass('n');
    end;
    If (not(LoggedIn)) then
    LoginPlayer;
    WelcomeScreen;
    HighestAngle;
    MakeCompass('n');
    end;
    //-----------------------------------------------//

    Procedure ProgReport;
    begin
    ClearReport;
    Writeln('===============================')
    Writeln('= You Are Using =');
    Writeln('= =');
    Writeln('= The Fetheroth Edgeville =');
    Writeln('= =');
    Writeln('= YEW CUTTER! =');
    Writeln('= =');
    WriteLn('= Version ' + VersionNumber + ' =');
    Writeln('= =');
    Writeln('= ' + inttostr(Trips) + ' Trips done =');
    Writeln('= =');
    Writeln('= Happy Cutting =');
    Writeln('===============================');
    end;
    //-----------------------------------------------//

    Procedure WalktoTrees;
    begin
    If (FindSymbol(x,y, 'rare trees')) then
    begin
    SetRun(true)
    Mouse(x,y,1,1,true)
    wait(10000)
    end
    If (not(FindSymbol(x,y, 'rare trees')))then
    begin
    SetRun(true)
    Mouse(747,280,1,1,true)
    wait(5000)
    If (FindSymbol(x,y, 'rare trees')) then
    begin
    Mouse(x,y,1,1,true)
    wait(10000)
    end
    end
    end;

    //-----------------------------------------------//

    Procedure ChoptheTrees;
    begin
    repeat
    if (FindMSColor(x,y,3438704))or
    (FindMSColor(x,y,3887184))or
    (FindMSColor(x,y,1925200))then
    MMouse(x,y,1,1)
    If IsUpText('Chop') then
    Mouse(x,y,1,1,true)
    wait(5000+Random(5000)+Random(5000)+Random(5000))
    until (invfull = true)
    if (invfull = true) then
    Trips := Trips + 1;
    end;
    //-----------------------------------------------//

    Procedure WalktoBank;
    begin
    If (FindSymbol(x,y,'bank'))then
    begin
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
    end
    If (not(FindSymbol(x,y,'bank')))then
    begin
    Mouse(789,173,1,1,true)
    wait(10000);
    If (FindSymbol(x,y,'bank'))then
    begin
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
    end
    end
    end;
    //-----------------------------------------------//

    Procedure BanktheLogs;
    begin
    OpenBank;
    If WieldAxe = 1 then
    begin
    DepositAll;
    end
    If WieldAxe = 2 then
    begin
    Deposit(2,27,2);
    end
    end;
    //-----------------------------------------------//

    Procedure AntiRandomsandAntiBan;
    begin
    SRLRandomsReport;
    FindNormalRandoms;
    FindAxeHeadColor;
    AttachHead;
    DontBanMe(2);
    If (FindEnt (3438704)) then
    begin
    Logout;
    Wait(30000)
    LoginPlayer;
    end
    end;
    //-----------------------------------------------//

    begin
    DeclarePlayers;
    Setup;
    repeat
    repeat
    ProgReport;
    WalktoTrees;
    ChoptheTrees;
    WalktoBank;
    BanktheLogs;
    AntiRandomsandAntiBan;
    until (trips = Tripstodo);
    If (trips = Tripstodo) then
    Logout;
    Nextplayer(true);
    until (false);
    end.

    when inserting scripts always have them in between the scar script tags!

    p.s I thought you said that you was new at scripting!!!!


    **EDIT**

    what part of the banking are you haivng problems with?

  13. #13
    Join Date
    Jan 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I am i was editing this script is it good?

  14. #14
    Join Date
    Jan 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    when i tested it, it would just go on the square and not bank it. so.. i dont know what the problem is.

  15. #15
    Join Date
    Jul 2006
    Posts
    189
    Mentioned
    1 Post(s)
    Quoted
    19 Post(s)

    Default

    i just had a quick try and it didnt even get into the bank :P

    try using a different banking procedure... and also a different procedure to find and get into the bank!

  16. #16
    Join Date
    Nov 2006
    Posts
    117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    look man just go to the tut island and read some guides it will really help you progress in scripting if you still have problems with scripting then post her ebut dont go on here and say i need help i dont noe anythin all u had to do was read a guide
    im back----took a long break away but im back and im gonna get into scripting

  17. #17
    Join Date
    Jan 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok this is the part im having trouble with on the banking part

    Procedure WalktoBank;
    begin
    If (FindSymbol(x,y,'4047310'))then
    begin
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
    end
    If (not(FindSymbol(x,y,'4047310')))then
    begin
    Mouse(789,173,1,1,true)
    wait(10000);
    If (FindSymbol(x,y,'4047310'))then
    begin
    MMouse(x,y,1,1)
    Mouse(x,y,1,1,true)
    end
    end
    end;


    i changed 'bank' to 4047310 for the symbol color

  18. #18
    Join Date
    Jul 2006
    Posts
    189
    Mentioned
    1 Post(s)
    Quoted
    19 Post(s)

    Default

    and your having trouble with it because ... whats happening??

  19. #19
    Join Date
    Jan 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by hello to you all View Post
    and your having trouble with it because ... whats happening??
    It keeps moving on a square on the floor in the bank and wont find the bank booth or the booth guy plz help

  20. #20
    Join Date
    Jan 2007
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by hello to you all View Post
    and your having trouble with it because ... whats happening??
    Ok this is whats happening, when it goes to the bank it find a tile (square) in the bank and just moves around on it and wont find the booth or the guy behind it plz help and im trying this atm.


    Procedure walktothebank;
    begin
    If GetColor('4047310');//////////dont mess with this
    Then MoveMouse('1,1');////////////dont mess with this
    If GetColor('540244');////////dont mess with this
    Then MoveMouse('1,1');////////dont mess with this eatheir
    end;

    do u think this will work?

  21. #21
    Join Date
    Apr 2007
    Posts
    224
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yo yo lol i don't no just make your own skript i'm going to make a wood cutting one for starters

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. What Type of Scripts do you make?
    By P1nky in forum NOTA
    Replies: 19
    Last Post: 12-16-2008, 10:35 PM
  2. Update this scripts and make this one :D
    By you won in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 06-06-2008, 10:21 PM
  3. I'm new to SRL and I don't know what to do to make scripts
    By sk8r in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 08-15-2007, 07:24 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
  •