Results 1 to 2 of 2

Thread: need autofisher plz

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

    Default need autofisher plz

    hi, i need an autofisher for karamja that gets swordies.Can someone email me one on mdu_ntr@hotmail.com ? thanks

    EDIT:
    i rearraned this a bit because it didn't want to work for me. It has a bit of trouble finding the ladder to get up though.

    {================================================= ========================]
    [ SRL Guildminer 0.39. ]
    [ ]
    [ NAME : SRL Guildminer 0.39 ]
    [ WRITER : by Wizzup and WT-Fakawi (by Stupid3ooo) ]
    [ CATEGORY : Miner ]
    [ DESCRIPTION : See below. ]
    [ USAGE : Miner/banker for coal ]
    [ AUTOCOLOR : YES ]
    [ SRL REV. : SRL Version 3. ]
    [ NOTES : STAND @ LEFTMOST BANKSLOT ]
    [ FACE MM PERFECT NORTH. ]
    [================================================== =======================]
    | Description: |
    | A macro that mines a full load of coal and mith in the miner's guild, |
    | then banks it in the east Falador bank. | |
    | Instructions: |
    | 1.Set the Runescape brightness to V-bright, and your computer's |
    | resolution to 32bit resolution. |
    | 2.Need SCAR version 2.0.3. |
    | 3.Start script in the Falador eastern bank. |
    | 4.Start with a pickaxe in your fist inventory slot or equiped. |
    | 5.Recomended to have extra pickaxes in your first bank slot. |
    | 6.Click and drag the crosshair over the Runescape client. |
    Then press the green arrow. |
    | 7.START @ FALADOR EASTBANK LEFTMOST BANKSLOT FACE MM PERFECTLY NORTH |
    [================================================== =======================}


    program SRLGuildMiner;

    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/Mining.scar}
    {.include SRL/SRL/misc/FaladorColorFinder.scar}
    {.include SRL/SRL/extended/xMapWalk.scar}

    Const
    Loads = 2; // Number of loads before switching user.
    OreTol = 4;
    StartPlayer = 0;

    Const
    CoalColor = 2438711; // CoalColor is a constant
    MithrilColor = 7425100; // MithrilColor is a constant

    //----------------------------------------------------------------------------//
    Const VersionNumber = '0.39';
    //----------------------------------------------------------------------------//

    Var MapPickColor,MapOreColor,LadderColor,
    TotalOres,SecondsToWait,H,G:integer;

    Var FB1,FB2,FB3: Integer; // BankerDTMs (Yellow dots at three angles: -10,0,+10 degrees)
    // For use with DTM3Flag that plants a flag when any of 3 DTM's is found


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

    Procedure DeclarePlayers;
    begin
    HowManyPlayers:=2;
    NumberOfPlayers(HowManyPlayers);
    Players[0].Name :='';
    Players[0].Pass :='';
    Players[0].Nick :='';
    Players[0].Loc :='Falador';
    Players[0].Boolean1 := True; // EquipPick.
    Players[0].String1 := 'Mithril'; // Coal = coal only. Mithril = both.
    Players[0].Active := True;

    Players[1].Name :='';
    Players[1].Pass :='';
    Players[1].Nick :='';
    Players[1].Loc :='Falador';
    Players[1].Boolean1 := True; // EquipPick.
    Players[1].String1 := 'Coal'; // Coal = coal only. Mithril = both.
    Players[1].Active := True;
    end;

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

    Procedure FillMem; // 3 yellow dot bankers @ different angle
    begin

    FB1 := DTMFromString('78DA636C66626008634001972E5E66F80FA 41' +
    '981F83F1030B601D5C4A0AAF9F38789810BAA0604189B8850 D345' +
    '580D00CA7B110D');
    FB2 := DTMFromString('78DA63EC61626008614001478F1E65F80FA 41' +
    '981F83F1030F602D544A1AAF9F38789810BAA0604182712A1 662A' +
    '504D247E3500C2961107');
    FB3 := DTMFromString('78DA636C646260086140038C0CFFC12403C 37' +
    'F206004A9894255F1E70F130317540D58472B504D3401359D 4035' +
    '31F8D50000978B0E8E');
    end;

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

    Procedure SetOres;

    Begin
    Case Lowercase(Players[CurrentPlayer].String1) Of
    'coal' : Begin OreColor1 := CoalColor OreColor2 := OreColor1 End;
    'mithril': Begin OreColor1 := MithrilColor ; OreColor2 :=CoalColor ; End;
    End;
    End;

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

    Function FindOre(MaxTol:Integer):Boolean;

    Var Tol,Ex,Ey:Integer;

    Begin

    H:=H+1;
    For G := 1 to H do
    Begin
    Case G Of

    1: Begin OreColor:= OreColor1; SecondsToWait := 5; End;
    2: Begin OreColor:= OreColor2; SecondsToWait := 10; End;

    End;
    End;

    While (Not (FindColorTolerance(Ex, Ey, OreColor, MSX1, MSY1, MSX2, MSY2, Tol))
    And Not (Tol > MaxTol)) Do
    Begin
    Tol:=Tol+1;
    End;
    If ((FindColorTolerance(Ex, Ey, OreColor, MSX1,MSY1 ,MSX2, MSY2, Tol))
    And Not (Tol > MaxTol)) Then Result:=True;
    Tol:=1;
    Wait(10);

    End;

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

    procedure PlayerStats;

    var PSActive: string;
    var i: Integer;
    begin
    WriteLn(' ');
    WriteLn(' ');
    WriteLn(' ');
    writeln('***************************************** *****');
    writeln('Name : '+ Players[CurrentPlayer].Name);
    writeln('Number : '+inttostr(CurrentPlayer));
    writeln('Mining Level : '+ inttostr(Players[CurrentPlayer].level[15]));
    writeln('Worked for : '+IntToStr(Players[CurrentPlayer].Worked)+' minutes.');
    writeln('Banked : '+ inttostr(Players[CurrentPlayer].Banked) + ' times.');
    if Players[CurrentPlayer].Active=True then PSActive:='True' else PSActive:='False';
    writeln('Active : '+ PSActive);
    writeln('Location : '+ Players[CurrentPlayer].loc);
    writeln('***************************************** *****');

    for i := 0 to HowManyPlayers-1 do
    begin
    if Players[i].Active=True then PSActive:='True' else PSActive:='False';
    writeln( (inttostr(i))+' : '+Players[i].name+ ' = '+PSActive+
    '.- Lvl : '+inttostr(Players[i].level[15])+
    '.- B :'+inttostr(Players[i].Banked)+' Times.'+
    '.- A: '+IntToStr(Players[i].Worked)+' mins.'+
    '.- Loc: '+Players[i].loc);
    end
    writeln('***************************************** *****');
    end;

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

    procedure ProgressReport;
    begin
    WriteLn(' ');
    WriteLn(' ');
    WriteLn(' ');
    WriteLn('<============== -'+VersionNumber+'- Progress Report ===============>');
    writeln('Worked for '+ TimeRunning);
    WriteLn('Banked '+IntToStr(banks)+' loads[s].');
    WriteLn('Banked '+IntToStr(TotalOres)+' Ores.');
    WriteLn('<======================================== =============>');
    PlayerStats;
    SRLRandomsReport;
    end;

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

    function FindMapOreColor:integer;
    var
    MapOre,MapOre2:integer;
    begin
    MapOre := BitmapFromString(3, 3,
    '3D2C345948546D5D624A39416D5D626D5D625948546D5D626 D5D62' +
    '');
    MapOre2 := BitmapFromString(3, 3,
    '061115222D35364243131E22364243364243222D353642433 64243' +
    '');
    if(FindBitmapsProgressiveTol(MapOre,MapOre2,0,0,0, 65,5,587,41,705,118))then
    Result:=GetColor(x+1,y+1);
    Freebitmap(MapOre);
    Freebitmap(MapOre2);
    end;

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

    Function FindFaladorLadderColor: Integer;
    var C,TX,TY,FaladorLadder:integer;

    begin
    FaladorLadder:= BitmapFromString(2, 2, '4F1F004F1F004F1F00' +
    'A4A298');

    while (C<100) do
    begin
    C:=C+5;
    If FindBitMapToleranceIn(FaladorLadder,TX,TY,650,144, 664,156,C) then
    begin
    LadderColor:=GetColor(TX,TY);
    Players[CurrentPlayer].Loc:='Falador';
    Result:=LadderColor;
    writeln('LadderColor = '+IntToStr(LadderColor));
    break;
    end
    end
    FreeBitMap(FaladorLadder);
    if Result = 0 then begin writeln('ERROR: LadderColor NOT Found'); TerminateScript end;
    end;

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

    function Underground:boolean;
    begin
    if((FindColoredAreaTolerance(x,y,256,570,5,725,162 ,50,1)))then
    begin
    Result:=true;
    end;
    end;

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

    procedure ToCenter;
    begin
    if(FindColorSpiral(x,y,MapPickColor,570,63,725,160 ))then
    begin
    Mouse(x-10,y-10,20,20,true);
    FFlag(20);
    Wait(1000+Random(100));
    end else
    begin
    RoadWalk(MapOreColor,'S');
    if(FindColorSpiral(x,y,MapPickColor,570,63,725,160 ))then
    begin
    Mouse(x-10,y-10,20,20,true);
    FFlag(20);
    Wait(1000+Random(100));
    end;
    end;
    end;

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

    procedure RunAway;
    begin
    if(UnderGround)then
    begin
    RoadWalk(MapOreColor,'W');
    ClickMMColor(LadderColor);
    FFlag(10);
    RoadWalk(MapOreColor,'E');
    end else
    RunTo('N',False);
    end;

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

    function HandleGas(Gx,Gy:Integer):Boolean;
    begin
    if FindGas(gx,gy) then
    begin
    ToCenter;
    Result:=True;
    end;
    end;

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

    Function ClimbLadderDown:Boolean;
    var
    c:integer;
    begin
    for c:=1 to 50 do
    begin
    If FindColor(x,y,0,MSX1+10,MSY1+10,MSX2-10,MSY2-10) then
    begin
    Wait(100);
    Mouse(x,y,0,0,false);
    if ChooseOption(x,y,'Climb') then
    begin
    MarkTime(Mark);
    repeat
    Wait((1000)+Random(1000));
    until ((GetColor(580,80)=0) and (GetColor(648,142)=0));
    Result:=True;
    Exit;
    end;
    end;
    c:=C+1;
    SendArrowSilentWait((Random(2)*2)+1, 20 + Random(10));

    end;
    end;

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

    Function ClimbLadderUp:Boolean;
    var
    c:integer;
    begin
    for c:=1 to 50 do
    begin
    Wait(100);
    if FindObj(x,y,'adder',2775161,21) then
    begin
    Wait(100);
    Mouse(x,y,0,0,false);
    if ChooseOption(x,y,'Climb') then
    begin
    MarkTime(Mark);
    repeat
    Wait((1000)+Random(1000));
    until FindColor(x,y,WaterColor,MMX1,MMY1,MMX2,MMY2);
    Result:=True;
    Exit;
    end;
    end;
    c:=C+1;
    SendArrowSilentWait((Random(2)*2)+1, 20 + Random(10));
    end;
    end;

    //----------------------------------------------------------------------------//
    // -- To the Guild in Three Clicks! --//
    //----------------------------------------------------------------------------//

    procedure BankToGuild;
    var xblack,yblack:Integer;
    begin
    PerfectNorth;
    MouseFindFlag(690,110,1,-1);
    Flag;
    FindColor(xblack,yblack,0,MMX1,MMCY,MMX2,MMY2);
    Mouse(xblack-5,yblack+10,0,0,true);
    Flag;
    ClimbLadderDown;
    Players[CurrentPlayer].loc:='Guild';
    end;


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

    procedure GuildToBank;
    var
    c:integer;
    begin

    repeat
    c:=c+1;
    RadialWalk(MapOreColor,210,270,50,-1,0);
    if FindColor(x,y,LadderColor,MMX1,MMY1,MMX2,MMY2) then break;
    until( FindColor(x,y,LadderColor,MMX1,MMY1,MMX2,MMY2))
    IdleTime(3000, 1000, 1.0);
    If FindColor(x,y,LadderColor,MMX1,MMY1,MMX2,MMY2) Then Mouse(x,y,2,2,True);
    Wait(1500+Random(500));
    FFlag(0);
    ClimbLadderUp;

    MouseFindFlag(666,45,-1,-1);
    Flag;
    MakeCompass('N');
    If FindColor(x,y,BankColor,MMX1,MMY1,MMX2,MMY2) then
    begin
    Mouse(x,y,0,0,True);
    FFlag(10);
    DTM3Flag(FB1,FB2,FB3,True);
    FFlag(3);
    end
    else
    begin
    DTM3Flag(FB1,FB2,FB3,True);
    FFlag(3);
    end;
    Players[CurrentPlayer].loc:='Falador';
    end;
    //----------------------------------------------------------------------------//

    Function SimpleBank:Boolean;
    var sx,sy,dx,dy,Mark2,Tries:integer;
    begin
    SX:=MSCX; SY:=MSCY;
    repeat
    sx:=Sx+1;
    sy:=sy+3;
    MMouse(sx, sy, 0, 0);
    if IsUpTextMulti('e Bank','Booth','ooth') then
    begin
    GetMousePos(Dx, Dy);
    Mouse(Dx, Dy, 0, 0, False);
    if ChooseOption(Dx, Dy, 'uickly') then
    begin
    MarkTime(Mark2);
    repeat
    Wait(10);
    if TimeFromMark(Mark2) > 20000 then
    begin
    Result:=False;
    Exit;
    end;
    until BankScreen;
    if BankScreen then
    begin
    Result := True;
    Exit;
    end;
    end;
    end
    else
    begin
    wait(1);
    Tries:=Tries+1;
    end;
    until(tries >9);
    end;

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

    procedure Bank;

    var LocalOres:integer;
    begin
    if (NoPick and EquipPick) then
    begin
    if InventoryFull then
    begin
    if(FindBitmapSpiralTolerance(Ore,x,y,559,210,735,4 60,25))then
    begin
    Mouse(x,y,5,5,false);
    ChooseOption(x,y,'Drop');
    end;
    end;
    GameTab(5);
    Mouse(593,303,0,0,true);
    Wait(Random(1000)+2000);
    GameTab(4);
    end;

    LocalOres:=CountItemBmpTol(Ore,50);
    MarkTime(Mark);

    if not BankScreen then
    begin
    repeat
    if (not(Loggedin)) then Exit;
    if not SimpleBank then OpenBankQuiet('feb');
    until(BankScreen or (TimeFromMark(Mark)>60000));
    end;
    if(BankScreen)then
    begin
    Wait(Random(2000)+200);
    FixBank;
    if(NoPick=true)then
    begin
    ClickAllItemsColorWait('All',65536,1000+Random(100 ));
    Wait(Random(2000)+200);
    Withdraw(1,1,1);
    Wait(Random(2000)+200);
    end else
    begin
    if(EquipPick=false)then Deposit(2,28,2);
    Wait(Random(2000)+200);
    if(EquipPick=true)then
    begin
    ClickAllItemsColorWait('All',65536,1000+Random(100 ));
    Wait(Random(2000)+200);
    end;
    end;
    CloseBank;
    if(NoPick=true)and(EquipPick=true)then
    begin
    FindPickHeadColor;
    Wait(Random(1000)+200);
    ClickItemColor(hc1,true);
    end;
    Banks:=Banks+1;
    TotalOres:=TotalOres+LocalOres;
    Players[CurrentPlayer].Banked:=Players[CurrentPlayer].Banked+1;
    NoPick:=false
    end;
    end;

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

    Procedure ChangeGasPixels(Var Gasx,GasY:Integer);

    Var
    TempX, TempY: Integer;

    Begin
    Wait(100);
    If FlagPresent Then
    Begin
    FFlag(0);
    If FindColorSpiralTolerance(x,y,OreColor,MSX1,MSY1,MS X2,MSY2,4) Then
    Begin
    x := TempX;
    y := TempY;
    If CheckOre(x,y,OreColor,4) > 2 Then
    Begin
    If Distance(MSCX,MSCY,TempX,Tempy) < 40 Then
    Begin
    GasX := x;
    GasY := y;
    End;
    End;
    End;
    End;
    End;

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

    Procedure WizzupMine;

    Var Dx,Dy,Ex,Ey:Integer;

    Begin

    If FindOre(OreTol) Then
    Begin
    If FindObjOre(Dx, Dy, 'Mine', OreColor, 10, 4) Then
    Begin
    H:=0;
    If Not HandleGas(Dx, Dy) Then
    Begin
    If Random (9) < 7 Then Mouse(Dx, Dy, 0, 0, True)
    Else
    Begin
    Mouse(Dx, Dy, 0, 0, False);
    ChooseOption(Ex, Ey, 'ine');
    End;
    ChangeGasPixels(Dx,Dy);
    MarkTime(Mark);
    Repeat
    HandleGas(Dx, Dy);
    Wait(100);
    FindTalk;
    FindPick;
    If NoPick Then Break;
    If FindFight Then RunAway;
    Until ((TimeFromMark(Mark) > (1000 * SecondsToWait))
    Or (FindColor(X, Y, 0,51, 421, 51, 421)))
    End;
    End;
    End
    Else
    Begin
    If H>1 Then H:=0;
    If Random(9) < 7 Then if not FindColorTolerance(x,y,CoalColor, MSX1,MSY1,MSX2,MSY2,OreTol) then ToCenter;
    FindNormalRandoms;
    If FindFight Then RunAway;
    Wait(500+Random(500));
    End;
    End;

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

    Procedure DoChats;

    Begin
    SetChat('On', 1);
    SetChat('On', 1);
    SetChat('Off', 2);
    SetChat('Off', 2);
    SetChat('On', 3);
    SetChat('On', 3);
    End;

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

    procedure Setup;
    begin
    SetupSRL;
    SetUpSRLMining;
    FillMem;
    DeclarePlayers;
    CurrentPlayer:=StartPlayer;
    EquipPick:= Players[CurrentPlayer].Boolean1; // Wielding.
    PickUpItems:=True; // to pick up random items when pickhead is gone.
    BenMouse:=False;
    MouseSpeed:=10;
    LoginPlayer; // logs in the first player.
    SetOres;
    end;

    //----------------------------------------------------------------------------//
    //*************************** Main Loop***************************************//
    //----------------------------------------------------------------------------//

    begin
    Setup;
    FindFaladorLadderColor;
    SymbolAccuracy:=0.4; // temporarily reduce symbolaccuracy for better symbol spotting
    FindFaladorBasicColors;
    SymbolAccuracy:=0.8; // set symbolacc. to default
    NickNameBMP:=CreateBitmapMaskFromText(Players[CurrentPlayer].Nick,UpChars) // in case we started logged in aot logged out

    repeat
    GetAllLevels;
    if not FindPickHeadColor then Logout;

    Dochats;
    if Players[CurrentPlayer].loc='Falador' then
    begin
    SetRun(true);
    BankToGuild;
    end

    if Players[CurrentPlayer].loc='Guild' then
    begin
    if(MapOreColor=0) then MapOreColor:=FindMapOreColor;

    if FindMMColor(x, y, LadderColor) then RoadWalk(MapOreColor,'E');
    FFlag(10);

    MarkTime(Mark);
    if(MapPickColor=0) then MapPickColor:=GetSymbolColor(x,y,'mining spot');
    repeat
    WizzupMine;
    Wait(100);
    until(InventoryFull)or(NoPick=true)or(TimeFromMark (Mark)>1800000)
    end

    if Players[CurrentPlayer].loc='Guild' then
    begin
    GuildToBank;
    Bank;
    ProgressReport;
    end;
    Until(False)
    end.

  2. #2
    Join Date
    Jun 2006
    Location
    Australia
    Posts
    435
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    get a life kid... why are you even posting here?
    Part of the Scar/SRL community since may 05'

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Guild AutoFisher Please?
    By MysticEvil in forum OSR Help
    Replies: 5
    Last Post: 06-09-2008, 10:04 PM
  2. First script...autofisher!!! NEED HELP!
    By tomwatson14 in forum First Scripts
    Replies: 15
    Last Post: 02-07-2008, 06:39 PM
  3. Autofisher
    By tomwatson14 in forum First Scripts
    Replies: 4
    Last Post: 02-06-2008, 09:43 PM
  4. Need help with autofisher
    By newton1 in forum OSR Help
    Replies: 2
    Last Post: 10-29-2007, 11:11 PM
  5. AutoFisher help?
    By codx1 in forum OSR Help
    Replies: 7
    Last Post: 06-02-2007, 05:46 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
  •