Results 1 to 7 of 7

Thread: First script: Powahcutt0r

  1. #1
    Join Date
    Dec 2006
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    First script: Powahcutt0r

    I hope you like it, i will be updating it alot and make it compatible with multi-user, it works pretty good, next update will be an autoresponder..

    SCAR Code:
    //This script uses pretty fast woodcutting, plus it does not have antirandoms
    //Dont have your axe in 1st inventory slot.
    //Thank you
    //~System79
    program PowahCutt0r;
    {.include srl\srl.scar}
    {.include srl\srl\skill\woodcutting.scar}
    var Clicks: Integer;
    Loads: Integer;
    procedure CheckRandom;
    begin
    FindTalk;
    FindNormalRandoms;
    if (FindFight = true) then
    begin
    RunAwayDirection('N');
    Wait(10000 + random(2000));
    RunBack;
    end;
    end;
    procedure ProgressReport;
    begin
    ClearDebug;
       Writeln('o.O ============================= o.O');
        Writeln('------>Powahch0pp0r by System79<-------');
        Writeln('  Did ' + IntToStr(Loads) + ' Loads' + '    ');
        Writeln('---------------------------------------------');
        Writeln('  Did ' + IntToStr(Clicks) + ' Clicks' + '        ');
        Writeln('o.O ============================  o.O');
    end;
     
    procedure Cuttree;
    begin
    repeat
    if(FindColor(x,y,3041376,5,5,515,340))then
    MMouse(x,y,3,3);
    wait(50);
    Mouse(x,y,0,0,true);
    Clicks:=Clicks+1;
    wait(6000);
    until(InvFull);
    end;
    Procedure Drop;
    begin
    DropTo(5,28);
    Loads:=Loads+1;
    end;
    begin
    SetupSRL;
    repeat
    activateclient;
    Cuttree;
    Drop;
    CheckRandom;
    until(false);
    end.

    Any tips are welcome, always.
    I think i did pretty good for a FIRST SCRIPT.

    ~System79
    Attachment 2534

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

    Default

    Pretty good for first script. May I suggest you to use FindObj function from SRL to find objects, it is easy way.

  3. #3
    Join Date
    Dec 2006
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ill have a look at it, thanks

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

    Default

    and if you want to get antirandoms work and if you want to add player setup, youll need this in script:
    SCAR Code:
    procedure DeclarePlayers;
    begin
    SetArrayLength(Players,2)
    CurrentPlayer:=0

    Players[0].Name:='Name';
    Players[0].Pass:='Pass';
    Players[0].Nick:='Nick';
    Players[0].Active:=True;

    Players[1].Name:='Name';
    Players[1].Pass:='Pass';
    Players[1].Nick:='Nick';
    Players[1].Active:=True;

    end.

  5. #5
    Join Date
    Dec 2006
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  6. #6
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Seems nice...could use axehead finding and ent detection; other than that, it seems pretty cool
    Interested in C# and Electrical Engineering? This might interest you.

  7. #7
    Join Date
    Feb 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok so looks nice add me on MSN my name is pwnt_by_pwnt@hotmail.com.. anyway, about the script :P so it looks like really nice for a first script but theres some things u should add/change. ok so first of all i would make in the const something that says something like
    SCAR Code:
    TreeColor = 3041376;//Set To The Color Of Tree
    and at the findcolor procedure change it to
    SCAR Code:
    if(FindColorSpiral(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2))then
    see i changed it to FindColorSpiral and changed those numbers to MSX and MSY (MainScreen X and Main Screen Y) so now it will find the colors better and the user can choose what color. Second, (I know u shouldnt worry about this and dont but read it later [once ur a better scripter, not that u arent pretty good already]) is that ur proggy does Clicks and Loads, i would change it to loads and Time Running, so u can change
    SCAR Code:
    procedure ProgressReport;
    begin
    ClearDebug;
       Writeln('o.O ============================= o.O');
        Writeln('------>Powahch0pp0r by System79<-------');
        Writeln('  Did ' + IntToStr(Loads) + ' Loads' + '    ');
        Writeln('---------------------------------------------');
        Writeln('  Did ' + IntToStr(Clicks) + ' Clicks' + '        ');
        Writeln('o.O ============================  o.O');
    end;
    to something like
    SCAR Code:
    procedure ProgressReport;
    begin
    ClearDebug;
        Writeln('o.O ============================  o.O');
        Writeln('------>Powahch0pp0r by System79<-------');
        Writeln('  Did ' + IntToStr(Loads) + ' Loads' + '    ');
        Writeln('---------------------------------------------');
        Writeln(' Time Worked: ' + (ScriptTime2(2)) +' ');
        Writeln('o.O ============================  o.O');
    end;
    lol so now it says how long it has been running (also u can take out the
    SCAR Code:
    Clicks: Integer;
    in the var
    3rd (and final for now[lol yay im gonna shut up soon ]) is in ur drop procedure u have
    SCAR Code:
    DropTo(5,28);
    for one, idk why u did 5,28 (most people do like 1,28 or 2,28) but this is a common mistake as i told someone else recently. You should change it to either
    SCAR Code:
    DropAllLogs;
    or u could make a DTM for them logs i have a DTM that works that u could use but i dont know if i still have it but ok im done with this post lol (YAY IM GONNA SHUT UP SOON ) but so remember what i said about those changes (theres also other things that are more advanced that i will tell u later though ) lol again really good for a first script

Thread Information

Users Browsing this Thread

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

Posting Permissions

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