Results 1 to 18 of 18

Thread: my first script:willowkiller

  1. #1
    Join Date
    Oct 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default my first script:willowkiller

    i made my first script
    i used some things from other people when i was stressed (like when i had to much homework)

    if there are some bugs or stuff that dont work post here plz than i will try to fix or some other people do ^^ plz help me to with the bugs cause this is just my first 1 so i dont know real if evrything works
    i attach it but you can copy to or look it over so you can help me with the wrong stuff ^^

    here the script ^^ i hope it works

    program willowkiller;
    {.include SRL\SRL.scar}
    //---------------------------------------------------------------------
    // stroeks willow cutter and banker
    //1. Start at Draynor Bank
    //2. Start With an axe Equipped or Wielded.
    //4. Fill Out Setup from lines 21 to 66
    //5.
    //
    //---------------------------------------------------------------------
    var
    Tries, Mark, x, y: Integer;
    Const
    WillowColor = 3119232;
    BankScreenColor = 7763582;
    TimePerHit = 5; //in seconds
    TimePerLoad = 6; //in minutes

    //-------------------------Declare Players-----------------------------

    Procedure DeclarePlayers;
    begin
    HowManyPlayers :=1; // Leave at 6
    NumberOfPlayers(HowManyPlayers); // Sets the Players
    CurrentPlayer:=0; // Starting Player

    Players[0].Name :='name';
    Players[0].Pass :='password';
    Players[0].Nick :='om';
    Players[0].Active:=True;
    Players[0].Booleans[1]:=True; //True if axe is equiped








    writeln(inttostr(HowManyPlayers)+' Players');
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    //--------------------------Dont Change Below--------------------------


    //----------------------------Progress Report--------------------------
    procedure ProgressReport;

    var Active: string;
    begin
    WriteLn(' ');
    WriteLn('<----------------> Version 1 - Progress Report <------------>');
    SRLRandomsReport;
    Writeln(' ');
    writeln('-----------------------------------------------');
    writeln('Name : '+ Players[CurrentPlayer].Name);
    writeln('Number : '+ inttostr(CurrentPlayer));
    writeln('Woodcutting : '+ Players[CurrentPlayer].Skill);
    writeln('Worked for : '+ inttostr(Players[CurrentPlayer].Worked)+' minutes.');
    writeln('Banked : '+ inttostr(Players[CurrentPlayer].Banked) + ' times.');
    if Players[CurrentPlayer].Active=True then Active:='True' else Active:='False';
    writeln('Active : '+ Active);
    writeln('-----------------------------------------------');
    end;
    //---------------------------Anti-Randoms------------------------------

    function FindFastRandoms: Boolean; //By WT-Fakawi.
    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;
    7: begin
    if InBlack then
    begin
    Result := True;
    Players[CurrentPlayer].loc := 'InBlack';
    Logout;
    Exit;
    end;
    end;
    8: RC;
    end;
    wait(1);
    end;
    end;

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

    procedure FindRandoms;
    begin
    FindFastRandoms;
    FindNormalRandoms;
    end;

    //----------------------------Anti-Ban---------------------------------

    Procedure AntiBanning;
    begin
    if(not(LoggedIn)) then
    exit;
    case random(7) of
    0: PickUpMouse;
    1: begin
    HoverSkill('Strength',false)
    wait(354 + random(823))
    GameTab(4);
    end;
    2: SleepAndMoveMouse(2000+random(2000))
    3: Typesend('WC lvls?')
    4: begin
    MakeCompass('E')
    MakeCompass('N')
    end;
    5: Typesend('woodcutting 4 life lol')
    6: begin
    case random(3) of
    0: MakeCompass('W')
    1: MakeCompass('E')
    2: MakeCompass('S')
    end;
    MakeCompass('N')
    end;
    end;
    end;


    //-------------------------Walk to willows------------------------

    Procedure GoToWillows;
    begin
    MakeCompass('N')
    RadialWalk(FindWaterColor, 242, 211, 65, 0, 0);
    Flag;
    Wait(400+random(300));
    if(not(FindSymbol(x,y,'fish'))) then
    begin
    Tries:=0
    repeat
    Wait(345+random(634));
    if(Tries=25) then break;
    Tries:=Tries+1
    until FindSymbol(x,y,'fish');
    end;
    MMouse(x,y,2,2);
    Mouse(x,y,2,2,true);
    end;

    //---------------------------Cut willows--------------------------

    Procedure WillowCutter;
    begin
    if(not(LoggedIn)) then Exit;
    MarkTime(Mark);
    repeat
    if(not(FindObj(x,y,'illow',WillowColor,30))) then
    begin
    Tries:=0
    repeat
    Wait(345+random(634));
    if(Tries=25) then
    begin
    Writeln('not right no tree founded')
    NextPlayer(false)
    end;
    Tries:=Tries+1
    until FindSymbol(x,y,'fish');
    end;
    Mouse(x,y,2,2,true)
    FindFastRandoms;
    Wait(TimePerHit*1000-500+random(1000));
    until(InvFull or (TimeFromMark(Mark)>TimeperLoad*60000));
    end;

    //--------------------------Bank Willows---------------------------

    Procedure BankWillows;
    begin
    if(not(FindSymbol(x,y,'bank'))) then
    begin
    Tries:=0
    repeat
    Wait(345+random(634));
    if(Tries=25) then
    begin
    Writeln('where is that bank')
    NextPlayer(false)
    end;
    Tries:=Tries+1
    until FindSymbol(x,y,'bank');
    end;
    MMouse(x,y,2,2);
    Mouse(x,y,2,2,true);
    AntiBanning;
    Flag;
    wait(100+random(300));
    MakeCompass('W');
    if(not(FindObj(x,y,'booth',BankScreenColor,30))) then
    begin
    Tries:=0
    repeat
    Wait(345+random(634));
    if(Tries=25) then
    begin
    Writeln('Couldnt find bank')
    NextPlayer(false)
    end;
    Tries:=Tries+1
    until FindObj(x,y,'booth',BankScreenColor,30);
    end;
    Mouse(x,y,2,2,false)
    flag;
    Wait(200+random(500));
    ChooseOption('quickly')
    if(Players[CurrentPlayer].Booleans[1] = true) then
    begin
    DepositAll;
    end else Deposit(2,28,2);
    CloseBank;
    end;

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

    Procedure SetUp;
    begin
    SetupSRL;
    DeclarePlayers;
    LoginPlayer;
    ActivateClient;
    end;

    //---------------------------------------------------------------------
    // Main EventLoop
    //---------------------------------------------------------------------
    begin
    Setup;
    repeat
    if(not(LoggedIn)) then exit;
    HighestAngle;
    MakeCompass('N')
    GoToWillows;
    WillowCutter;
    BankWillows;
    ProgressReport;
    until(false);
    end.

  2. #2
    Join Date
    Dec 2006
    Location
    UK!!
    Posts
    910
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    this is good or a first scipt ill check it later wen i have more fre time... well done

    [edi]w00t first post

  3. #3
    Join Date
    Oct 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by spaztaz666 View Post
    this is good or a first scipt ill check it later wen i have more fre time... well done

    [edi]w00t first post
    ty

  4. #4
    Join Date
    Sep 2007
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Very nice. Browsed through the code and everything looked lovely. Good job.

  5. #5
    Join Date
    Oct 2007
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    everything here looks good...ill post report after use

  6. #6
    Join Date
    Oct 2007
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice it worked well

  7. #7
    Join Date
    Oct 2007
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    its good

  8. #8
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    so all happy? spammers?! use scar tags [(nothing here)scar] [/scar]
    ~Hermen

  9. #9
    Join Date
    Jul 2007
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    very good for fiirst script.

  10. #10
    Join Date
    Oct 2007
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice it works well

  11. #11
    Join Date
    Oct 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    idk, can't get to work

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

    Default

    looks alright but it doesnt work

  13. #13
    Join Date
    Oct 2007
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thaaaaaaaank You Man ! :d

  14. #14
    Join Date
    Oct 2007
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Best Script Ever :d Woorked Very Well :d

  15. #15
    Join Date
    Oct 2007
    Location
    australia
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    its not banking idk y?

  16. #16
    Join Date
    Jun 2007
    Location
    Drugs are bad mkay?
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i get this error what should i do Include file D:\Program Files\SCAR 3.14\includes\SRL\SRL.scar does not exist.
    Failed when compiling
    Include file D:\Program Files\SCAR 3.14\includes\SRL\SRL.scar does not exist.
    Failed when compiling get it at almost every script

  17. #17
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by 2pacfan View Post
    i get this error what should i do Include file D:\Program Files\SCAR 3.14\includes\SRL\SRL.scar does not exist.
    Failed when compiling
    Include file D:\Program Files\SCAR 3.14\includes\SRL\SRL.scar does not exist.
    Failed when compiling get it at almost every script
    Hey gravedigging isnt allowed here. Your problem is becouse you dont have SRL...


  18. #18
    Join Date
    Apr 2008
    Posts
    223
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    edit:
    when i try it says:

    Failed when compiling
    Line 40: [Error] (12683:1): Unknown identifier 'NickNameBMP' in script C:\Users\Chris\Downloads\SCAR stuff\wood (filled out).scar

    help?

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
  •