Results 1 to 5 of 5

Thread: wat 1 of my scripts is beter

  1. #1
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default wat 1 of my scripts is beter

    2 versions of a power miner the new 1 i rewrite most of it

    well heres version 1
    SCAR Code:
    program PoWeRmInEr;
    {.include SRL/SRL.scar}
    {.include SRL\SRL\Skill\Mining.scar}
    {.include SRL\SRL\Misc\Trade.scar}


    //The Scar Noobs Antiban Modded By Me.
    //Reads JADS And Pwnaz0rs tut they pwn.
    //The Rest Of The Script Was Made By Me.
    //Drop Procedure Is Really Slow.
    //Will Add Better AutoColor.
    //Start Logged Out For Better Results.
    //Edited Wizzups Proggie Changed Some Bits.


    Const
    Loads = 2;//How Many Loads.
    NumberOfUsers = 1;//How Many Players Are You Using.
    StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
    ClickRock = 5000;//How Long To Click Again
    Run = 'N';// The direction to run when a fight is found
    PickE = True;//Is The Pick Equiped
    Responder = True;//Do You Want To AutoTalk.


    //-------------------------Leve Please---------------------
    Const
      CopperColor       = 3824768;
      TinColor          = 8553356;
      ClayColor         = 4553880;
      IronColor         = 2569045;
      SilverColor       = 12434885;
      CoalColor         = 2834753;
      GoldColor         = 1881051;
      MithrilColor      = 7359564;
      AdamantColor      = 6322272;
      RuniteColor       = 0;//POWERMINNING RUNE WTF


    Procedure DeclarePlayers;
    //If Not Using Any Left Over Players Delete There Forms.


      Begin
         HowManyPlayers:= NumberOfUsers;
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := StartPlayer;


         Players[0].Name :='Username';
         Players[0].Pass :='Password';
         Players[0].Nick :='3 Leters Of Youre Name';
         Players[0].String1 :='Tin';  //Will be mined mostly.
         Players[0].Skill    := '';       //Skill for genie lamp
         Players[0].Active:=True;
         
         
         Players[1].Name :='Username';
         Players[1].Pass :='Password';
         Players[1].Nick :='3 Leters Of Youre Name';
         Players[1].String1 :='Tin';  //Will be mined mostly.
         Players[1].Skill    := '';       //Skill for genie lamp
         Players[1].Active:=True;
         
         
         Players[2].Name :='Username';
         Players[2].Pass :='Password';
         Players[2].Nick :='3 Leters Of Youre Name';
         Players[2].String1 :='Tin';  //Will be mined mostly.
         Players[2].Skill    := '';       //Skill for genie lamp
         Players[2].Active:=True;
         

         Players[3].Name :='Username';
         Players[3].Pass :='Password';
         Players[3].Nick :='3 Leters Of Youre Name';
         Players[3].String1 :='Tin';  //Will be mined mostly.
         Players[3].Skill    := '';       //Skill for genie lamp
         Players[3].Active:=True;


         Players[4].Name :='Username';
         Players[4].Pass :='Password';
         Players[4].Nick :='3 Leters Of Youre Name';
         Players[4].String1 :='Tin';  //Will be mined mostly.
         Players[4].Skill    := '';       //Skill for genie lamp
         Players[4].Active:=True;
         
         
         Players[5].Name :='Username';
         Players[5].Pass :='Password';
         Players[5].Nick :='3 Leters Of Youre Name';
         Players[5].String1 :='Tin';  //Will be mined mostly.
         Players[5].Skill    := '';       //Skill for genie lamp
         Players[5].Active:=True;
    end;


    Procedure PowerMinerReport;


    Var
    Ores, Gasses, Talked: integer;


    Begin
      ClearDebug;
      WriteLn('----------------------------------------------')
      WriteLn('               Rudebois Powerminer            ')
      WriteLn('----------------------------------------------')
      WriteLn('Ores Mined and Dropped : '+IntToStr(Ores));
      If Gasses > 0 Then WriteLn('Number of avoided gasses: '+IntToStr(Gasses))
      Writeln('You have reponded about '+IntToStr(Talked)+'times');
      Writeln('Worked for '+ TimeRunning);
      Writeln('----------------------------------------------')
      WriteLn('                Post Proggies Please          ')
      WriteLn('----------------------------------------------')
      WriteLn('          Thanks For Using My PowerMiner      ')
      WriteLn('            ---www.srl-forums.com---          ')
      WriteLn('----------------------------------------------')
     SRLRandomsReport;
    End;


    Procedure Start;
    Begin
    Writeln('----------------------------------------------------------')
    Writeln('                 _      _           _       _             ')
    Writeln('                | |    | |         (_)     | |            ')
    Writeln(' _ __ _   _  __ | | ___| |__   ___  _  __ _| | _____  __  ')
    Writeln(' |  __| | | |/ _` |/ _ \  _ \ / _ \| |/ _  | |/ _ \ \/ /  ')
    Writeln(' | |  | |_| | (_| |  __/ |_) | (_) | | (_| | |  __/>  <   ')
    Writeln(' |_|   \__,_|\__,_|\___|_.__/ \___/|_|\__,_|_|\___/_/\_\  ')
    Writeln('----------------------------------------------------------')
    Writeln('             You Are Using Rudebois PowerMiner            ')
    Writeln('                 "£$%^Please Enjoy^%$£"                   ')
    Writeln('               ---Post Proggies Please---                 ')
    Writeln('----------------------------------------------------------')
    If(Not(Loggedin)) then
    LoginPlayer;
    setChat('hide',1);
    setChat('friends',2);
    setChat('off',3);
    SetRun(True);
    HighestAngle;
    PerfectNorth;
    End;


    procedure SetOreColor;
    begin
      case LowerCase(Players[CurrentPlayer].String1) of
        'copper'  :  OreColor1 := CopperColor;
        'tin'     :  OreColor1 := TinColor;
        'clay'    :  OreColor1 := ClayColor;
        'iron'    :  OreColor1 := IronColor;
        'silver'  :  OreColor1 := SilverColor;
        'coal'    :  OreColor1 := CoalColor;
        'gold'    :  OreColor1 := GoldColor;
        'mithril' :  OreColor1 := MithrilColor;
        'adamant' :  OreColor1 := AdamantColor;
        'runite'  :  OreColor1 := RuniteColor;
      end;
    end;


    Procedure Mineing;
    Begin
    if
    (findColorSpiral(x,y,OreColor1,2,2,418,304)) Then
    MMouse(x,y,3,3)
    IsUpText('ine');
    Mouse(x,y,2,2,True)
    Wait(ClickRock + Random(1000))
    end;


    procedure Inventory;
    begin
    repeat
    Mineing;
    Until (InvFull)
    end;


    procedure checkforgas; //The Scar Noob Gas Procedure
    var
      XX, YY :Integer;
      gas :Integer;
    begin
      if(GasColors(XX, YY))then
      begin
        RunAwayDirection('N');
        wait(9500+random(700));
        RunBack;
      end;
    gas:= gas + 1
    end;


    procedure Randoms;
    begin
    If(FindFight) then
    Runawaydirection(Run);
    wait(15000+random(2500));
    RunBack;
    FindMod;
    FindDemon;
    FindMime;
    FindScapeRune;
    SolvePinball;
    Dwarfitem;
    FindName;
    FindLamp(Players[CurrentPlayer].Skill);
    FindTalk;
    SolveBox;
    //SolveFrog;
    FindFrogCave;
    FindNormalRandoms;// For the sandwich lady
    end;


    procedure AutoTalk;
    Var
    Talked: integer;
    begin
    if(InChat('Mining lvls?')) or
      (inChat('Mining levels?')) or
      (InChat('Mining lvl')) or
      (inChat('Mining level')) or
      (InChat('Mining level?')) or
      (inChat('Mining lvls')) or
      (inChat('Mining levels')) or
      (InChat('Mine lvl?')) or
      (InChat('Mine lvls?')) or
      (InChat('Mine lvl')) or
      (InChat('Mine lvls'))then
      begin
      TypeSend(IntToStr(GetSkillLevel('mining')))
      Talked:= Talked + 1;
      end;
      end;


    procedure AutoResponder;
    Var
    Talked: integer;
    begin
    if(Responder = True)then
    begin

      if (InChat('Wc lvls') or
        InChat('Wc lvls?') or
        InChat('Woodcut lvls') or
        InChat('Woodcut lvls?') or
        InChat('Woodcutting lvls') or
        InChat('Woodcutting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
        Talked:= Talked + 1;
      end;

      if (InChat('Attack lvls') or
        InChat('Attack lvls?') or
        InChat('Atack lvls') or
        InChat('Atack lvls?') or
        InChat('Attac lvls') or
        InChat('Attac lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Attack')))
       Talked:= Talked + 1;
      end;

      if (InChat('Defenc lvls') or
        InChat('Defenc lvls?') or
        InChat('Defence lvls') or
        InChat('Defence lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Defence')))
        Talked:= Talked + 1;
      end;

      if (InChat('Hp lvls') or
        InChat('Hp lvls?') or
        InChat('Hitpoint lvls') or
        InChat('Hitpoint lvls?') or
        InChat('Hitpoints lvls') or
        InChat('Hitpoints lvls?') or
        InChat('Hitp lvls') or
        InChat('Hitp lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
        Talked:= Talked + 1;
      end;

      if (InChat('Range lvls') or
        InChat('Range lvls?') or
        InChat('Rangin lvls') or
        InChat('Rangin lvls?') or
        InChat('Ranged lvls') or
        InChat('Ranged lvls?') or
        InChat('Ranging lvls') or
        InChat('Ranging lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Ranged')))
        Talked:= Talked + 1;
      end;

      if (InChat('Pray lvls') or
        InChat('Pray lvls?') or
        InChat('Prayer lvls') or
        InChat('Prayer lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Prayer')))
        Talked:= Talked + 1;
      end;

      if (InChat('Mage lvls') or
        InChat('Mage lvls?') or
        InChat('Mag lvls') or
        InChat('Mag lvls?') or
        InChat('Magic lvls') or
        InChat('Magic lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Magic')))
        Talked:= Talked + 1;
      end;

      if (InChat('Cook lvls') or
        InChat('Cook lvls?') or
        InChat('Cookin lvls') or
        Inchat('Cookin lvls?') or
        InChat('Cooking lvls') or
        InChat('Cooking lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Cooking')))
        Talked:= Talked + 1;
      end;

      if (InChat('Fletch lvls') or
        InChat('Fletch lvls?') or
        InChat('Fletching lvls') or
        InChat('Fletching lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Fletching')))
        Talked:= Talked + 1;
      end;

      if (InChat('Firemaking lvls') or
        InChat('FireMaking lvls?') or
        Inchat('Fire making lvls') or
        InChat('Fire making lvls')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Firemaking')))
        Talked:= Talked + 1;
      end;

      if (InChat('Craft lvls') or
        InChat('Craftt lvls?') or
        InChat('Craftin lvls') or
        InChat('Crafting lvls?') or
        InChat('Crafting lvls') or
        InChat('Crafting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Crafting')))
        Talked:= Talked + 1;
      end;

      if (InChat('Smelt lvls') or
        InChat('Smelt lvls?') or
        InChat('Smelting lvls') or
        InChat('Smelting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Smelting')))
        Talked:= Talked + 1;
      end;

      if (InChat('Rc lvls') or
        InChat('Rc lvls?') or
        InChat('Runecraft lvls') or
        InChat('Runecraft lvls?') or
        InChat('Runecrafting lvls') or
        InChat('Runecrafting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Runecraft')))
        Talked:= Talked + 1;
      end;

      if (InChat('Wna b freinds?') or
        InChat('Wna be freinds?') or
        InChat('Wana b freinds?') or
        InChat('Wana be freinds?') or
        InChat('Want 2 b freinds?') or
        InChat('Want 2 be freinds?') or
        InChat('Want to b freinds?') or
        InChat('Want to be freinds?')) then
      begin
        TypeSend('No ty')
        Talked:= Talked + 1;
      end;

       if (InChat(Players[CurrentPlayer].Name)) then
      begin
        TypeSend('Yeah?')
        Talked:= Talked + 1;
      end;

      if (InChat('lol') or
        InChat('lmao') or
        InChat('rofl') or
        InChat('haha'))then
      begin
        TypeSend('lolz')
        Talked:= Talked + 1;
      end;

      if (InChat('Hi' + (Players[CurrentPlayer].Name)) or
        InChat('Hey' + (Players[CurrentPlayer].Name)) or
        InChat('Hello' + (Players[CurrentPlayer].Name))) then
      begin
        TypeSend('Hi')
        Talked:= Talked + 1;
      end;
      end;

    if(not(Responder = True))then
    end;


    procedure AntiBanActions;


    var
      DBanMe: Integer;


    begin
    DBanMe:= Random(14);

     case DBanMe of


        0: RandomRClickEvery(2 + Random(13));
        1: HoverSkill('Mining', False);
        2: RandomChatEvery(10 + Random(5));
        3: RotateEvery(20 + Random(10));
        4: LeaveScreenEvery(5 + Random(5));
        5: HoverEvery(15 + Random(5), 'Attack');
        6: PickUpMouse;
        7: BoredEvery(9 + Random(24));
        8: DragItem(1, 1 + Random(18));
        9: GameTab(1 + Random(12));
       10: RotateEvery(7 + random(4));


      end;
    end;



    Procedure DropOres;
    Begin
    if
    PickE = True Then
    Mousespeed := 5;
    DropTo(1,28);
    mouseSpeed := 25;
    If
    PickE = False then
     Mousespeed := 5;
     DropTo(2,28);
     mouseSpeed := 25;
    end;


    Begin
    SetupSRL;
    Repeat
    DeclarePlayers;
    Start;
    PowerMinerReport;
    SetOreColor;
    Mineing;
    Inventory;
    checkforgas;
    Randoms;
    AutoTalk;
    AntiBanActions;
    DropOres;
    PowerMinerReport;
    if (not(Loggedin)) then NextPlayer(False);
    Until(False);
    end.

    heres no 2

    SCAR Code:
    {-Script Info:
    # ScriptName  = PowerMiner 3.03
    # Author      = Rudeboialex
    # Description = SRL PowerMiner
    # Build       = 3.03
    # Released    = 27/04/07
    # Comments    = Will Powermine Any Rocks Except Rune
    # Thanks to Rkroxpunk For Inspireing Me To Do This Update
    # Thanks Pentti For Dropping procedure
    # Thanks sumilion for gas procedure
    }


    program Powerminer;
    {.include SRL/SRL.scar}
    {.include SRL\SRL\Skill\Mining.scar}
    {.include srl/srl/skill/Fighting.scar}

    Const
    Loads = 10;//How Many Loads To Do Per Player.
    NumberOfUsers = 8;//How Many Players Are You Using.
    StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
    RunDir = 'N';//Direction To Run For Fights And Gas.
    {-------------------------------------------------------------------------------------
                                      AutoColor Levae Please
    ----------------------------------------------------------------------------------------}

    Const
      CopperColor       = 3824768;
      TinColor          = 8553356;
      ClayColor         = 4553880;
      IronColor         = 2569045;
      SilverColor       = 12434885;
      CoalColor         = 2834753;
      GoldColor         = 1881051;
      MithrilColor      = 7359564;
      AdamantColor      = 6322272;
      RuniteColor       = 0;//POWERMINNING RUNE WTF


      Procedure DeclarePlayers;
    //If Not Using Any Left Over Players Delete There Forms.


      Begin
         HowManyPlayers:= NumberOfUsers;
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := StartPlayer;


         Players[0].Name :='Username';
         Players[0].Pass :='Password';
         Players[0].Nick :='3 Leters Of Youre Name';
         Players[0].String1 :='Iron';  // What Ore To Mine.
         Players[0].String2 :='Tin';  // Another Ore To Mine.
         Players[0].String1 :='Copper';// A Third Ore To mine.
         Players[0].Skill    := '';       //Skill for genie lamp .
         Players[0].Active:=True;


         Players[1].Name :='Username';
         Players[1].Pass :='Password';
         Players[1].Nick :='3 Leters Of Youre Name';
         Players[1].String1 :='Iron';  // What Ore To Mine.
         Players[1].String2 :='Tin';  // Another Ore To Mine.
         Players[1].String1 :='Copper';// A Third Ore To mine.
         Players[1].Skill    := '';       //Skill for genie lamp
         Players[1].Active:=True;


         Players[2].Name :='Username';
         Players[2].Pass :='Password';
         Players[2].Nick :='3 Leters Of Youre Name';
         Players[2].String1 :='Iron';  // What Ore To Mine.
         Players[2].String2 :='Tin';  // Another Ore To Mine.
         Players[2].String1 :='Copper';// A Third Ore To mine.
         Players[2].Skill    := '';       //Skill for genie lamp
         Players[2].Active:=True;


         Players[3].Name :='Username';
         Players[3].Pass :='Password';
         Players[3].Nick :='3 Leters Of Youre Name';
         Players[3].String1 :='Iron';  // What Ore To Mine.
         Players[3].String2 :='Tin';  // Another Ore To Mine.
         Players[3].String1 :='Copper';// A Third Ore To mine.
         Players[3].Skill    := '';       //Skill for genie lamp
         Players[3].Active:=True;


         Players[4].Name :='Username';
         Players[4].Pass :='Password';
         Players[4].Nick :='3 Leters Of Youre Name';
         Players[4].String1 :='Iron';  // What Ore To Mine.
         Players[4].String2 :='Tin';  // Another Ore To Mine.
         Players[4].String1 :='Copper';// A Third Ore To mine.
         Players[4].Skill    := '';       //Skill for genie lamp
         Players[4].Active:=True;


         Players[5].Name :='Username';
         Players[5].Pass :='Password';
         Players[5].Nick :='3 Leters Of Youre Name';
         Players[5].String1 :='Iron';  // What Ore To Mine.
         Players[5].String2 :='Tin';  // Another Ore To Mine.
         Players[5].String1 :='Copper';// A Third Ore To mine.
         Players[5].Skill    := '';       //Skill for genie lamp
         Players[5].Active:=True;


         Players[6].Name :='Username';
         Players[6].Pass :='Password';
         Players[6].Nick :='3 Leters Of Youre Name';
         Players[6].String1 :='Iron';  // What Ore To Mine.
         Players[6].String2 :='Tin';  // Another Ore To Mine.
         Players[6].String1 :='Copper';// A Third Ore To mine.
         Players[6].Skill    := '';       //Skill for genie lamp
         Players[6].Active:=True;


         Players[7].Name :='Username';
         Players[7].Pass :='Password';
         Players[7].Nick :='3 Leters Of Youre Name';
         Players[7].String1 :='Iron';  // What Ore To Mine.
         Players[7].String2 :='Tin';  // Another Ore To Mine.
         Players[7].String1 :='Copper';// A Third Ore To mine.
         Players[7].Skill    := '';       //Skill for genie lamp
         Players[7].Active:=True;
    end;


    {-------------------------------------------------------------------------------
                           Logs in Player And Write My Name In Debug Box
    --------------------------------------------------------------------------------}

    Procedure Start;
    Begin
    Writeln('----------------------------------------------------------')
    Writeln('                 _      _           _       _             ')
    Writeln('                | |    | |         (_)     | |            ')
    Writeln(' _ __ _   _  __ | | ___| |__   ___  _  __ _| | _____  __  ')
    Writeln(' |  __| | | |/ _` |/ _ \  _ \ / _ \| |/ _  | |/ _ \ \/ /  ')
    Writeln(' | |  | |_| | (_| |  __/ |_) | (_) | | (_| | |  __/>  <   ')
    Writeln(' |_|   \__,_|\__,_|\___|_.__/ \___/|_|\__,_|_|\___/_/\_\  ')
    Writeln('----------------------------------------------------------')
    Writeln('             You Are Using Rudebois PowerMiner            ')
    Writeln('                 "£$%^Please Enjoy^%$£"                   ')
    Writeln('               ---Post Proggies Please---                 ')
    Writeln('----------------------------------------------------------')
    if (not(Loggedin)) then LoginPlayer;
    SetChat('hide', 1);
    End;


    procedure SetOreColor;
    begin
      case LowerCase(Players[CurrentPlayer].String1) of
        'copper'  :  OreColor1 := CopperColor;
        'tin'     :  OreColor1 := TinColor;
        'clay'    :  OreColor1 := ClayColor;
        'iron'    :  OreColor1 := IronColor;
        'silver'  :  OreColor1 := SilverColor;
        'coal'    :  OreColor1 := CoalColor;
        'gold'    :  OreColor1 := GoldColor;
        'mithril' :  OreColor1 := MithrilColor;
        'adamant' :  OreColor1 := AdamantColor;
        'runite'  :  OreColor1 := RuniteColor;
      end;
      case Lowercase(Players[CurrentPlayer].String2) of
        'copper'  :  OreColor2 := CopperColor;
        'tin'     :  OreColor2 := TinColor;
        'clay'    :  OreColor2 := ClayColor;
        'iron'    :  OreColor2 := IronColor;
        'silver'  :  OreColor2 := SilverColor;
        'coal'    :  OreColor2 := CoalColor;
        'gold'    :  OreColor2 := GoldColor;
        'mithril' :  OreColor2 := MithrilColor;
        'adamant' :  OreColor2 := AdamantColor;
        'runite'  :  OreColor2 := RuniteColor;
       end;
       case Lowercase(Players[CurrentPlayer].String3) of
        'copper'  :  OreColor3 := CopperColor;
        'tin'     :  OreColor3 := TinColor;
        'clay'    :  OreColor3 := ClayColor;
        'iron'    :  OreColor3 := IronColor;
        'silver'  :  OreColor3 := SilverColor;
        'coal'    :  OreColor3 := CoalColor;
        'gold'    :  OreColor3 := GoldColor;
        'mithril' :  OreColor3 := MithrilColor;
        'adamant' :  OreColor3 := AdamantColor;
        'runite'  :  OreColor3 := RuniteColor;
      end;
    end;



    procedure HandleGas; //Ty Sumillion
    var
    TempMouseSpeed, GasTime: Integer;
    begin
    Writeln('Gas found!');
    TempMouseSpeed := MouseSpeed;
    MouseSpeed := 5;
    Mouse(MMCX, MMCY, 5, 5, true);
    MarkTime(GasTime);
    MouseSpeed := TempMouseSpeed;
    while(TimeFromMark(GasTime) < 35000)do
    if(Random(20) > 15)then
      IdleTime(500, 500, 0.4)
    else
      Wait(1000);
    ReportVars[3] := ReportVars[3] + 1;
    end;


    Procedure PowerMinerReport;
    Var
    Ores, Gasses: integer;
    Begin
      ClearDebug;
      WriteLn('----------------------------------------------')
      WriteLn('               Rudebois Powerminer            ')
      WriteLn('----------------------------------------------')
      WriteLn('Ores Mined and Dropped : '+IntToStr(Ores));
      If Gasses > 0 Then WriteLn('Number of avoided gasses: '+IntToStr(Gasses))
      Writeln('Worked for '+ TimeRunning);
      WriteLn('Fights Ran Away From: '+IntToStr(Fights));
      Writeln('----------------------------------------------')
      WriteLn('                Post Proggies Please          ')
      WriteLn('----------------------------------------------')
      WriteLn('          Thanks For Using My PowerMiner      ')
      WriteLn('            ---www.srl-forums.com---          ')
      WriteLn('----------------------------------------------')
    End;


    Procedure SolveFight;
    begin
    if(InFight)then
     begin
      if(GetHp<GetSkillLevel('hitpoints'))then
       begin
        RunAwayDirection(RunDir)
        Fights:=Fights+1
        wait(40000+random(10000))
        if(not(loggedIn))then
        LogInPlayer;
        wait(1000)
        RunBack;
       end;
     end;
    end;


    Procedure Randoms;
    begin
    FindMod;
    FindDemon;
    FindMime;
    FindScapeRune;
    SolvePinball;
    Dwarfitem;
    FindName;
    FindTalk;
    SolveBox;
    SolveFrog;
    FindFrogCave;
    FindNormalRandoms;// For the sandwich lady
    end;


    procedure AutoTalk;
    Var
    Talked: integer;
    begin
    if(InChat('Mining lvls?')) or
      (inChat('Mining levels?')) or
      (InChat('Mining lvl')) or
      (inChat('Mining level')) or
      (InChat('Mining level?')) or
      (inChat('Mining lvls')) or
      (inChat('Mining levels')) or
      (InChat('Mine lvl?')) or
      (InChat('Mine lvls?')) or
      (InChat('Mine lvl')) or
      (InChat('Mine lvls'))then
      begin
      TypeSend(IntToStr(GetSkillLevel('mining')))
      Talked:= Talked + 1;
      end;
      end;


    Procedure AntiBanActions;
    var
      DBanMe: Integer;
    begin
    DBanMe:= Random(10);
     case DBanMe of

        0: RandomRClickEvery(2 + Random(13));
        1: HoverSkill('Mining', False);
        2: RandomChatEvery(10 + Random(5));
        3: RotateEvery(20 + Random(10));
        4: LeaveScreenEvery(5 + Random(5));
        5: HoverEvery(15 + Random(5), 'Attack');
        6: PickUpMouse;
        7: BoredEvery(9 + Random(24));
        8: DragItem(1, 1 + Random(18));
        9: GameTab(1 + Random(12));
        10: RotateEvery(7 + random(4));
      end;
    end;


    Procedure DropOres;
    var
      OreBmp:Integer;
      Mspeed:Integer;
    begin
      DwarfItem;
      OreBmp := BitmapFromString(11, 11, 'z78DA73730301033070436' +
      '2238B60024C35B84CC0A5923C13F0BB937813F0EB22DE04CC5022' +
      'CF04CADD404CC890EA0BFCE2F85D4E4C6A212FF470998FCC0600F' +
      'B599CC1');
    Mspeed:=MouseSpeed;
    MouseSpeed:=2
    repeat
    SolveFight;
    Randoms;
    AntiBanActions;
    AutoTalk;
    If(FindBitMapMaskTolerance(OreBmp,x,y,MIX1,MIY1,MIX2,MIY2,20,25))then
     begin
     MMouse(x,y,15,15)
     getmousepos(x,y)
     wait(50+random(50))
      if(IsUpText('ore'))then


      begin
       Mouse(x,y,0,0,False)
       ClickOption('Drop',2)
      end
     else


      begin
       Mouse(MIX1+4,MIY1-60,7,7,True)
      end;
     end;
     wait(500+random(500))


    until(not(FindBitMapMaskTolerance(OreBmp,x,y,MIX1,MIY1,MIX2,MIY2,20,25)))
    MouseSpeed:=MSpeed;
    end;


    Procedure MainMineing;
    Begin
     Repeat
    Randoms;
    AntiBanActions;
    AutoTalk;
    HandleGas;
    SolveFight;
    Begin
    If
    (findColorSpiral(x,y,OreColor1,2,2,418,304)) or
    (findColorSpiral(x,y,OreColor2,2,2,418,304)) or
    (findColorSpiral(x,y,OreColor3,2,2,418,304)) Then
    MMouse(x,y,3,3)
    IsUpText('ine');
    Mouse(x,y,2,2,True)
    End
    Until (InvFull)
    If (InvFull) Then
    DropOres;
    End;






    begin
    SetupSRL;
    Repeat
    DeclarePlayers;
    MainMineing;
    PowerMinerReport;
    if (not(Loggedin)) then NextPlayer(False);
    Until (False);
    End.

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

    Default

    The first one is better but is there much difference?

  3. #3
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    u sure cause i think the whole auto talk thing was pretty lame and ive noticed a problem it wont wait until mined the rock it wqill click every where since theres no time limits i will fix tht now

  4. #4
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    yea that was way to intodetail with the auto talking thing...not needed and i would change FindColorSpiral to FindColorTolerance and make the tolerance 3-5....2nd 1 is better

  5. #5
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    tyvm

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Add ranging to chicken killing scripts, or the cow killing scripts
    By canu44 in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 12-18-2007, 07:37 AM
  2. where do i put my scripts??
    By bilbobaggins in forum OSR Help
    Replies: 1
    Last Post: 02-24-2007, 05:46 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
  •