View Poll Results: Am i Right or am i right?

Voters
10. This poll is closed
  • yes

    5 50.00%
  • yes

    8 80.00%
Multiple Choice Poll.
Page 1 of 5 123 ... LastLast
Results 1 to 25 of 104

Thread: MaGEE AreNaAA EnChaNtR

  1. #1
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default MaGEE AreNaAA EnChaNtR

    MaGEE AreNaAA EnChaNtR


    Intro


    NAME: ]MaGEE AreNaAA EnChaNtRR
    WRITER : Nicbaz.
    CATEGORY : Mage
    DESCRIPTION : Enchants At Mage Arena
    USAGE : Start Inside Enchant chamber at middle
    AUTOCOLOR : Yes.
    SRL Used : 4.0, Revision 24.
    SCAR Used : 3.15b.
    SMART :Yes.

    Features


    * FlawLess Reflection Finding
    * Is still BETA
    * Runtime

    Instructions.


    * 1. Use RuneScape with Low Detail, Very Bright.
    * 2. Set your Screen to 32 bit TRUE color.
    * 3. Setup lines below.
    * 4. Start in Mage Arena Enchanting Chamber middle
    * 5. Start script Logged Out.
    * 6.SMART only
    * 7.Set In cost how many cosmics you have because the script WILL not stop until it has done the amount of comics you set it to do, il add a failsafe or that later
    * 8. POST ALL PROGGIES IN THE THREAD!
    * 9. Fill In const
    * 10 Where your Pizza point hat and use staffs when possible.

    Future Updates


    * 1. Sleeping
    * 2. More failSafes

    Updates




    Notice

    Do not abuse please , its kinda stable but please do not run over night yet !!!




    Thanks to sp0rky i used some stuff from his script so big creds.


    Enjoy










    SCAR Code:
    program MageArena;
    {.include SRL\SRL\Misc\Smart.scar}
    {.include SRl/SRl.scar}
    {.include srl/srl/reflection/reflection.scar}


    {===================================================================]
    [                NicBaz MaGEE AreNaAA EnChaNtR                      ]
    [                                                                   ]
    [          NAME        : NicBaz MaGEE AreNaAA EnChaNtR              ]
    [          WRITER      : Nicbaz.                                    ]
    [          CATEGORY    : Magic                                      ]
    [          DESCRIPTION : Does the mage erna                         ]
    [          USAGE       : Start in Enchantment                       ]
    [          AUTOCOLOR   : Yes.                                       ]
    [          SRL Used    : 4.0, Revision 22.                          ]
    [          SCAR Used   : 3.15b.                                     ]
    [                                                                   ]
    [===================================================================]
    [                           Instructions.                           ]
    [===================================================================]
    [ 1. Use RuneScape with Low Detail, Very Bright.                    ]
    [ 2. Set your Screen to 32 bit TRUE color.                          ]
    [ 3. Setup lines below.                                             ]
    [ 4. Start script Logged Out.                                       ]
    [ 5. POST ALL PROGGIES IN THE THREAD!                               ]
    [                                                                   ]
    [===================================================================]
    [                         Some more info:                           ]
    [ 1. This script is not the fastest one out there it is made to run ]
    [    for a long time so dw if its not that fast.                    ]
    [===================================================================]
    [===================================================================]
    [                           Future Updates.                         ]
    [===================================================================]
    [ 1. Sleeping                                                       ]
    [ 2. More Random Walking                                            ]
    [ 3. Better Banking                                                 ]
    [===================================================================]
    [                           Const                                   ]
    [===================================================================]
    [===================================================================]
    }
    const                                                            //]
                                SmartWorld = 'world{yourworldhere}';// eg 'world31']
                                StatsUser = '';                    //]
                                StatsPass = '';                 //]
                                Spell     = '5';                      //] what enchant spell
                                NumberOfCosmics = 5714;               //]  // how  many comics you have
    {===================================================================]
    [1.0- Relesed To Public                                             ]
    [===================================================================}



    var
      LoadsLeft,cooks: integer;
      Color: string;
      Xp,x,y: integer;
      Enchanted: integer;


    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    procedure DeclarePlayers;
    By: Nicbaz
    Description: Declare The Players for the login Array.
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}


    procedure DeclarePlayers;
    begin
      HowManyPlayers:= 3; // number of players
      CurrentPlayer:= 0; // starting player

      {Green out or Delete unused slots}

      NumberOfPlayers(HowManyPlayers);

      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='ack';
      Players[0].Active:= True;
      Players[0].Integers[2]:= 2;
      Players[0].Integers[3]:= 2;  // 1 All herbs, 2 Herbs + laws, 3 All Runes + Herbs

    end;


    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    procedure DeclarePlayers;
    By: Nicbaz
    Description: Declare The Players for the login Array.
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}


    function AllPlayersInactive1: boolean;
    var
      p: integer;
    begin
      for p:= 0 to HowManyPlayers - 1 do
        if Players[p].Active then exit;
      result:= true;
    end;

    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    procedure SetupLvl;
    By: Nicbaz    / Sp0rk
    Description: Sets the lvl + Xp;
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}

    procedure SetupLvl;
    var
      MageLevel: integer;

    begin
      MageLevel :=  GetSkillInfo('magic',false);
      Writeln('Your magic level is ' + IntToStr(MageLevel));
      if (MageLevel <= 26) and (MageLevel > 5)  then
        Xp := 13;
      if (MageLevel <= 48) and (MageLevel > 26) then
        Xp := 28;
      if (MageLevel <= 56) and (MageLevel > 48) then
        Xp := 44;
      if (MageLevel <= 67) and (MageLevel > 56) then
        Xp := 50;
      if (MageLevel <= 86) and (MageLevel > 67) then
        Xp := 58;
      if (MageLevel > 86) then
        Xp := 72;
    end;

    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    procedure SetupLvl;
    By: Nicbaz  % hy
    Description: AntiBan
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}

    procedure AntiBan;
    var
      I: integer;
    begin
      case Random(100) of
        0: MMouse(random(MSX2), random(MSY2), 0, 0);
        1: MouseSpeed := 9 + Random(3);
        2: HoverSkill('random', false);
        5: PickupMouse;
        6:
        begin
          SetRun(True);
          GameTab(4);
        end;
        7: MouseSpeed := 9 + Random(3);
        8: MMouse(random(MSX2), random(MSY2), 0, 0);
        9: Wait(1 + Random(100));
        10:
        begin
          GameTab(1 + random(12));
          for I := 0 to 6 do
            Wait(300 + Random(200));
          GameTab(4);
        end;
      end;
    end;


    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    procedure DeclarePlayers;
    By: Nicbaz
    Description: Declare The Players for the login Array.
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}

    procedure SwitchPlayers(Active:boolean);
    var

      thenextplayer,thelastplayer:integer;
      Start: boolean;
    begin
      Logout;
      Players[CurrentPlayer].Active:= Active;
      TheNextPlayer:= CurrentPlayer + 1;
      TheLastPlayer:= HowManyPlayers - 1;
      if (TheNextPlayer <= TheLastPlayer)then
      begin
        CurrentPlayer:= CurrentPlayer + 1;
      end else
      begin
        CurrentPlayer:= 0;
      end;
      if not(Players[CurrentPlayer].Active)then
      begin
        repeat
          CurrentPlayer:= random(HowManyPlayers);
        until(Players[CurrentPlayer].Active)or(AllPlayersInactive1);
      end;
     // Proggy;
      if AllPlayersInactive1 then
      begin
        writeln('All Players False');
        TerminateScript;
      end;
      start:= true;
      LoginPlayer;
      wait(random(500));
      SetAngle(True);
      wait(random(500));
    end;

    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    function XpGained: integer;
    By: Nicbaz
    Description: Returns Ex gained in a Integer;
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}

    function XpGained: integer;
    begin
      Result:= Xp* Enchanted;
    end;
    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    procedure Proggie;
    By: Nicbaz % fr0zen
    Description: Proggie
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}

    procedure Proggie;
    var
      s: string;
      i, File: integer;
      MageLevel : integer;
    begin
      MageLevel :=  GetSkillInfo('magic',false);
      Writeln('');
      s := '-––•(·-><-·)•–––';
      for i := 1 to Length(TimeRunning) + 16 do
        Insert('¤', s, 9);
      Writeln(s);
      Writeln('-––•(·->' + PadL(PadR('MaGeR AreNa EncHaNteRR', Length(s)/2 + 2), Length(s) - 16) + '<-·)•–––');
      Writeln('-––•(·->' + PadL(PadR('¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯', Length(s)/2 + 3), Length(s) - 16) + '<-·)•–––');
      If Enchanted > 0 then
        Writeln(PadR('-––•(·-> Enchanted Colected: ' + IntToStr(Enchanted), Length(s) - 9) + ' <-·)•–––');
      If Cooks > 0 then
        Writeln(PadR('-––•(·-> Loads Done: ' + IntToStr(Cooks), Length(s) -  9) + ' <-·)•–––');
      If Cooks > 0 then
        Writeln(PadR('-––•(·-> Xp Gained: ' + InttoStr(XpGained), Length(s) -  9) + ' <-·)•–––');
      If MageLevel > 0 then
        Writeln(PadR('-––•(·-> Magic Lvl: ' + InttoStr(MageLevel), Length(s) -  9) + ' <-·)•–––');
      Writeln('-––•(·-> Time Running: ' + TimeRunning + ' <-·)•–––');
      Writeln(s);
      Disguise(PadR('-•(·-> Loads Done: ' + IntToStr(Cooks), Length(s) -  9) + '                       <-·)•–––');
        if FileExists(ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt') then
      Begin
        File := OpenFile(ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt', false);
        ReadFileString(File, s, FileSize(File));
        CloseFile(File);
        File := LastPos(TheDate(1), s);
        if File > 0 then
          Begin
            File := RewriteFile(ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt', false);
            Delete(s, LastPos(TheDate(1), s) - 1, Length(s));
            WriteFileString(File, s);
            CloseFile(File);
          end;
      end;
      s := '-––•(·-><-·)•–––';
      for i := 1 to Length(TimeRunning) + 16 do
        Insert('¤', s, 9);
      WriteINI(TheDate(1) + ', ' + TheTime, s, '', ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt');
      WriteINI(TheDate(1) + ', ' + TheTime, '-––•(·->' + PadL(PadR('MaGeR AreNa EncHaNteRR', Length(s)/2 + 2), Length(s) - 16) + '<-·)•–––', '', ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt');
      WriteINI(TheDate(1) + ', ' + TheTime, '-––•(·->' + PadL(PadR('¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯', Length(s)/2 + 3), Length(s) - 16) + '<-·)•–––', '', ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt');
      If Enchanted > 0 then
         WriteINI(TheDate(1) + ', ' + TheTime, PadR('-––•(·-> Enchanted: ' + IntToStr(Enchanted), Length(s) - 9) + ' <-·)•–––', '', ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt');
      If Cooks > 0 then
         WriteINI(TheDate(1) + ', ' + TheTime, PadR('-––•(·-> Loads Done: ' + IntToStr(Cooks), Length(s) - 9) + ' <-·)•–––', '', ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt');
      WriteINI(TheDate(1) + ', ' + TheTime, '-––•(·-> Time Running:', TimeRunning + ' <-·)•–––', ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt');
      Delete(s, 1, 1);
      WriteINI(TheDate(1) + ', ' + TheTime, '', s, ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt');
      File := OpenFile(ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt', false);
      ReadFileString(File, s, FileSize(File));
      CloseFile(File);
      s := Replace(s, '=', ' ');
      File := RewriteFile(ScriptPath + 'MaGeR AreNa EncHaNteRR Reports.txt', false);
      WriteFileString(File, s);
      CloseFile(File);
    end;


    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    function AreWeEnchnting: Boolean;
    By: Nicbaz
    Description: Are we enchanting?
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}

    function AreWeEnchnting: Boolean;
    begin
      Result := GetMe.Animation = 931;
    end;

    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    function WhereWalk;
    By: Nicbaz      / sp0rk-eh
    Description: Finds Bonus;
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}

    procedure Enchant;
    var
      X,Y: Integer;
      Enchanted1: integer;
    begin
      GameTab(7);
      repeat
        case Spell of
          '1': begin  x := 691 + random(8); y := 239 + random(8); end;
          '2': begin  x := 619 + random(8); y := 286 + random(8); end;
          '3': begin  x := 595 + random(8); y := 334 + random(8); end;
          '4': begin  x := 619 + random(8); y := 358 + random(8); end;
          '5': begin  x := 642 + random(8); y := 405 + random(8); end;
          '6': begin  x := 691 + random(8); y := 413 + random(8); end;
        end;
        if (not (LoggedIn)) then Exit;
        wait(50+random(20));
        wait(50+random(20));
        Mouse(x, y, 1, 1, True);
        wait(100 + random(50))
        if FindColorSpiralTolerance(x, y, 15395565, 694, 434, 717, 454, 20) then
        begin
          Writeln('color found');
          Exit;
        end;
        x := 693 + random(20)
        y := 435 + random(20)
        Mouse(x, y, 1, 1, True);
        wait(250+random(200));
        if not AreWeEnchnting then
          Wait(50);
        Enchanted:= Enchanted + 1;
        Enchanted1:= Enchanted1 + 1;
        if Enchanted1 > 50 then
        begin
          Writeln('Over 35');
          Exit;
        end;
        wait(500+random(200));
        case random(4) of
          0,1,2: wait(2);
          3:GameTab(7);
        end;
      until FindColorSpiralTolerance(x, y, 15395565, 694, 434, 717, 454, 12);
      GameTab(4);
      FindNormalRandoms;
    end;


    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    function WalkToPath(Path: TPointArray; DoTile: Integer): Boolean;
    By: Nicbaz
    Description: Walks the path.
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}

    function WalkToPath(Path: TPointArray; DoTile: Integer): Boolean;
    var
      I: integer;
    begin
      for I := DoTile to High(Path) do
      if not (WalkToTile(Path[i],3 , 3)) then
        Exit;
      FFlag(0);
      Result := True;
      FindNormalRandoms;
    End;

    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    function WalkThroughPath(Path: TPointArray): Boolean;;
    By: Nicbaz
    Description: Walks the path.
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}

    function WalkThroughPath(Path: TPointArray): Boolean;
    begin
      if not (WalkToPath(Path, 0)) then
      begin
        writeln('path some how is off');
        Result:= False;
        Exit;
      end;
      Result := True;
      FindNormalRandoms;
    End;

    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    function Walk(where: string): boolean;
    By: Nicbaz
    Description: Loads the tiles and walks.
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}

    function Walk(where: string): boolean;
    var
      Tiles: TPointArray;

    begin
      if InvFull then
       Enchant;
      case where of
        'Blue':Tiles :=   [Point(3373, 9631) , Point(3377, 9623)]; //done
        'Red':Tiles :=    [Point(3356, 9632) , Point(3349, 9624)]; //done
        'Yellow':Tiles := [Point(3356, 9647) , Point(3348 ,9654)]; //done
        'Green':Tiles :=  [Point(3373, 9648) , Point(3378, 9654)]; //done
      end;
      if not WalkThroughPath(Tiles) then
      begin
        Tiles:= [Point(3362,9639)];
        WalkThroughPath(Tiles)
        Exit;
      end;
      Result:= True;

      FindNormalRandoms;
      SetRun(true);
    end;

    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    function WalkBak(where: string): boolean;
    By: Nicbaz
    Description: Loads the tiles and walks.
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}

    function WalkBak(where: string): boolean;
    var
      Tiles: TPointArray;

    begin
      case where of
        'Blue':  Tiles := [Point(3373, 9631), Point(3362,9639)];  //done
        'Red':   Tiles := [Point(3356, 9632), Point(3362,9639)];  //done
        'Yellow':Tiles := [Point(3356, 9647), Point(3362,9639)];  //done
        'Green': Tiles := [Point(3371, 9646), Point(3362,9639)];  //done
      end;
      if not WalkThroughPath(Tiles) then
      begin
        Tiles:= [Point(3362,9639)];
        WalkThroughPath(Tiles)
        Exit;
      end;
      FindNormalRandoms;
      Result:= True;
    end;

    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    function WhereWalk;
    By: Nicbaz
    Description: Finds Bonus;
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}

    procedure WhereWalk;
    var
      X,Y: integer;

    begin
      if FindColorTolerance(x,y,1864334,468,312,498,315,30) then
      begin
        Color:= ('Yellow');
        Exit;
      end;
      if FindColorTolerance(x,y,1055870,468,312,498,315,30) then
      begin
        Color:= ('Red');
        Exit;
      end;
      if FindColorTolerance(x,y,10098964,468,312,498,315,30) then
      begin
        Color:= ('Blue');
        Exit;
      end;
     if FindColorTolerance(x,y,1543442,468,312,498,315,30) then
      begin
        Color:= ('Green');
        Exit;
      end;
       FindNormalRandoms;
    end;


    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    function Find(where : string): boolean;
    By: Nicbaz
    Description: Find Obects with reflection.
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}

    function FindMiddle(where : string; chooseop: string): boolean;
    var
      Tiles: TPointArray;
      xx   : TPoint;
    begin
      case where of
        'Middle'    : Tiles:= [Point(3363,9640)];
        'Out'       :Tiles:=  [Point(3360,3318)];
      end;
      if (DistanceFrom(Tiles[0]) > 1) then
      begin
        WalkToTile(Tiles[0], 0, 0);
        FFlag(0);
        Wait(100+random(20));
      end;
      XX:= TileToMS(Tiles[0], 0);
      Mouse(xX.X, xX.Y, 4, 4, False);
      Wait(80 + Random(120));
      Result:= ChooseOption(chooseop);
      Flag;
      FindNormalRandoms;
      AntiBan;
    end;

    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    function Find(where : string): boolean;
    By: Nicbaz
    Description: Find Obects with reflection.
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}

    function FindShape(where : string): boolean;
    var
      xx   : TPoint;
      ZZ   : Integer;
      obj  : Integer;
    begin
      case where of
        'Blue':  Obj := 10801;
        'Red':   Obj := 10802;
        'Yellow':Obj := 10799;
        'Green': Obj := 10800;
      end;
      MarkTime(zz);
      GameTab(4);
      repeat
        if FindObject(xX,Obj) then
        XX:= TileToMS(XX, 0);
        Mouse(xX.X, xX.Y, 5, 5, True);
        Wait(30 + Random(10));
        if TimeFromMark(zz) > 200000 then
          Exit;
        if InvFull then
          Exit;
         FindNormalRandoms;
      until InvFull;
      AntiBan;
      Result:= True;
    end;

    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    function AreWeOutSide: boolean;
    By: Nicbaz
    Description: Returns if your outside or not
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}

    function AreWeOutSide: boolean;
    begin
      Result:= FindSymbol(x, y, 'minigame');
    end;

    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    Procedure Getinside;
    By: Nicbaz
    Description: Returns if your outside or not
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}

    Procedure Getinside;
    var
      Tiles: TpointArray;

    begin
      if not AreWeOutSide then
        Exit;
      wait(200+random(100));
      Tiles:= [Point(3363,3312),Point(3362,9639)];
      if WalkToTile(Tiles[0],3,3) then
      FindMiddle('Out','nch');
      wait(500+random(400));
      if WalkToTile(Tiles[1],3,3) then
      wait(500+random(400));
    end;


    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    procedure MiniLoop;
    By: Nicbaz
    Description: Find Obects with reflection.
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}

    procedure MiniLoop;
    var
      ZZ,x,y: integer;

    begin
      repeat
        SetAngle(true);
        if AreWeOutSide then
          Getinside;
        WhereWalk;
        if Walk(Color) then
          FindShape(color);
        case random(2) of
          0:
          begin
            if WalkBak(Color) then
            Writeln('Walked Back');
            Enchant;
          end;
          1:
          begin
            Enchant;
            if WalkBak(color) then
            Writeln('Walked Back');
          end;
        end;
        MarkTime(zz);
        sendsrlreport;
        repeat
          if FindMiddle('Middle','ole') then
            Break;
          if FindMiddle('Middle','ans') then
            wait(1000+random(200));
          wait(50+random(20));
          if timefromMark(zz) > 30000 then
            Break;
          wait(1);
        until False;
        Cooks:= Cooks + 1;
        Proggie;
        if not LoggedIn then
        begin
          LoginPlayer;
          if FindSymbol(x, y, 'minigame') then
            Writeln('OutSide Chamber');
          wait(2);
        end;
        FindNormalRandoms;
        sendsrlreport;
      until Enchanted >= NumberOfCosmics;
    end;



    {-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    procedure Signature;
    By: Nicbaz
    Description: ASCII sig
    Status: Good
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-}

    procedure Signature;
    begin
      Writeln(' _______   .__        __________         __________    .____                      __      __     _________                ___________  __          __________ ');
      Writeln(' \      \  |__|  ____ \______   \_____   \____    /    |    |    _____  __  _  __/  \    /  \    \_   ___ \_______ _____  \_   _____/_/  |_   ____ \______   \ ');
      Writeln(' /   |   \ |  |_/ ___\ |    |  _/\__  \    /     /     |    |    \__  \ \ \/ \/ /\   \/\/   /    /    \  \/\_  __ \\__  \  |    __)  \   __\_/ __ \ |       _/ ');
      Writeln('/    |    \|  |\  \___ |    |   \ / __ \_ /     /_     |    |___  / __ \_\     /  \        /     \     \____|  | \/ / __ \_|     \    |  |  \  ___/ |    |   \ ');
      Writeln('\____|__  /|__| \___  >|______  /(____  //_______ \    |_______ \(____  / \/\_/    \__/\  /       \______  /|__|   (____  /\___  /    |__|   \___  >|____|_  / ');
      Writeln('      \/          \/        \/      \/         \/            \/     \/                \/               \/             \/     \/                \/        \/    ');
    end;

    procedure writemypos;
    var
      Tx:Tpoint;

    begin
      Tx:= GetMyPos;
      Writeln('Point('+Inttostr(tx.x)+','+Inttostr(tx.y)+'),');
    end;

    begin
      SmartSetUp(SmartWorld,true,true,false);
      wait(2000);
      SetTargetDC(SmartGetDC);
      SetupSRL;
      writemypos;
      ScriptID := '889';
      DeclarePlayers;
      SRLID := StatsUser;
      SRLPassword :=StatsPass;
      LoginPlayer;
      SetupLvl;
      MiniLoop;
    end.

  2. #2
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Proggies

    It saves proggies to file so post them!

    SCAR Code:
    [September 11th, 2008, 06:14:35 AM]
    -––•(·->¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤<-·)•–––
    -––•(·->               MaGeR AreNa EncHaNteRR             <-·)•–––
    -––•(·->              Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯Â¯              <-·)•–––
    -––•(·-> Enchanted: 5724                                  <-·)•–––
    -––•(·-> Loads Done: 253                                  <-·)•–––
    -––•(·-> Time Running: 8 Hours, 50 Minutes and 21 Seconds <-·)•–––
     â€“–•(·->¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤<-·)•–––

  3. #3
    Join Date
    Jun 2008
    Posts
    122
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice, how much exp could this gain in a hour?

  4. #4
    Join Date
    Apr 2007
    Location
    Finland
    Posts
    335
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by firefoxx View Post
    nice, how much exp could this gain in a hour?
    i get +90k.

  5. #5
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    coneX you going 2 use?

  6. #6
    Join Date
    Dec 2007
    Location
    Middle of Here and There
    Posts
    417
    Mentioned
    6 Post(s)
    Quoted
    25 Post(s)

    Default

    Aww man! Reflection!

    My computer fails with SMART. Wish I could use, though.

    Ehm. Any chance of a non-SMART version? I'll post proggies if you do =P

  7. #7
    Join Date
    Apr 2007
    Location
    Finland
    Posts
    335
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  8. #8
    Join Date
    May 2008
    Posts
    52
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    -––•(·->¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â ¤<-·)•–––
    -––•(·-> MaGeR AreNa EncHaNteRR <-·)•–––
    -––•(·-> ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ <-·)•–––
    -––•(·-> Enchanted Colected: 3018 <-·)•–––
    -––•(·-> Loads Done: 136 <-·)•–––
    -––•(·-> Xp Gained: 0 <-·)•–––
    -––•(·-> Magic Lvl: 59 <-·)•–––
    -––•(·-> Time Running: 4 Hours, 43 Minutes and 15 Seconds <-·)•–––
    -––•(·->¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â ¤<-·)•–––

    great job, went from 54 to 59 magic, but ran out of cosmics - used 3k

  9. #9
    Join Date
    Dec 2006
    Location
    SC
    Posts
    692
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Uses tile walking . Nice.

  10. #10
    Join Date
    Feb 2007
    Location
    SparklesProd.com
    Posts
    2,406
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Looks sick dude, =)

    Will hopefully overtake my outdated version.

    Reflection will make this script 100% flawless. Wish reflection was out when I made mine :P

    I'll be sure to use this/test it for you and post a proggie.

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

    Default

    Shouldn't this
    Code:
    begin
      SmartSetUp('world59',true,true,false);
      wait(2000);
      SetTargetDC(SmartGetDC);
      SetupSRL;
      writemypos;
      ScriptID := '962';
      DeclarePlayers;
      SRLID := StatsUser;
      SRLPassword :=StatsPass;
      LoginPlayer;
      SetupLvl;
      MiniLoop;
    end.
    be this
    Code:
    begin
      SmartSetUp(SmartWorld,true,true,false);
      wait(2000);
      SetTargetDC(SmartGetDC);
      SetupSRL;
      writemypos;
      ScriptID := '962';
      DeclarePlayers;
      SRLID := StatsUser;
      SRLPassword :=StatsPass;
      LoginPlayer;
      SetupLvl;
      MiniLoop;
    end.
    Or does relection affect it some how?
    P.S Just wondering

  12. #12
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by BlueWorld View Post
    Shouldn't this
    Code:
    begin
      SmartSetUp('world59',true,true,false);
      wait(2000);
      SetTargetDC(SmartGetDC);
      SetupSRL;
      writemypos;
      ScriptID := '962';
      DeclarePlayers;
      SRLID := StatsUser;
      SRLPassword :=StatsPass;
      LoginPlayer;
      SetupLvl;
      MiniLoop;
    end.
    be this
    Code:
    begin
      SmartSetUp(SmartWorld,true,true,false);
      wait(2000);
      SetTargetDC(SmartGetDC);
      SetupSRL;
      writemypos;
      ScriptID := '962';
      DeclarePlayers;
      SRLID := StatsUser;
      SRLPassword :=StatsPass;
      LoginPlayer;
      SetupLvl;
      MiniLoop;
    end.
    Or does relection affect it some how?
    P.S Just wondering

    Yes thank you and thanks for the proggies.

    btw guys... My druid killer is comming to jnr members soon it is a++ money, also Im planning to make a Pcer with my m8 on the weekend.

  13. #13
    Join Date
    Apr 2007
    Posts
    374
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Im Gonna Try This Out For Yaaaaaaa

    ok this is very nicely done. love reflection.
    but i have to at least fill up my inventory with 4 items or the enchant part will screw off.(like cannot have inventory starting with cosmic.must start with cosmic+other 3 stuff to fill the inventory)

    maybe u can add buy cosmic procedure with the points earned?

    proggies soon

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

    Default

    I'll check this out.

  15. #15
    Join Date
    Oct 2007
    Location
    If (Online) then Loc := ('On comp') else Loc := ('Somewhere else!');
    Posts
    2,020
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    aww man i don't feel like using this now it is released to the pulic... bigger chance of getting the ban hammer is there anything different to this one and the one in members??

  16. #16
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nope this is newer, use if you like not a very high chance of the ban hamer keep in mind ive had this for 2 months and gotten to 96 mage from 55

  17. #17
    Join Date
    Apr 2007
    Posts
    374
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    -–¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â ¤–•(·-><-·)•–––
    -––•(·-> MaGeR AreNa EncHaNteRR <-·)•–––
    -––•(·-> ˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉˉ <-·)•–––
    -––•(·-> Enchanted Colected: 1083 <-·)•–––
    -––•(·-> Loads Done: 45 <-·)•–––
    -––•(·-> Xp Gained: 62814 <-·)•–––
    -––•(·-> Magic Lvl: 85 <-·)•–––
    -––•(·-> Time Running: 1 Hours, 37 Minutes and 29 Seconds <-·)•–––
    -–¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â¤Â ¤–•(·-><-·)•–––
    color found
    Successfully executed

  18. #18
    Join Date
    Sep 2007
    Location
    Inside Your Mother
    Posts
    109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Edit: everything works fine until the last 8 it has to enchant, then its gets stuck. It misses the spell book then keeps clicking an orb and using it on the shape and it keeps doing that over. It doesnt seem to be able to find the spell back in the spell book.

  19. #19
    Join Date
    Feb 2007
    Location
    SparklesProd.com
    Posts
    2,406
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    You didn't ask my permission to use my concept or coding, but, I DONT CARE =DDDDDD

    Gl with this nic :P

  20. #20
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You didn't ask my permission to use my concept or coding, but, I DONT CARE =DDDDDD

    Gl with this nic :P
    Sorry i credited i should of asked.

  21. #21
    Join Date
    Sep 2007
    Location
    Inside Your Mother
    Posts
    109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok..got it

    MaGeR AreNa EncHaNteRR <-·)•–––
    -––•(·-> ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ <-·)•–––
    -––•(·-> Enchanted Colected: 916 <-·)•–––
    -––•(·-> Loads Done: 38 <-·)•–––
    -––•(·-> Xp Gained: 53128 <-·)•–––
    -––•(·-> Magic Lvl: 73 <-·)•–––
    -––•(·-> Time Running: 1 Hours, 23 Minutes and 22 Seconds

  22. #22
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by unrealman View Post
    ok..got it

    MaGeR AreNa EncHaNteRR <-·)•–––
    -––•(·-> ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ <-·)•–––
    -––•(·-> Enchanted Colected: 916 <-·)•–––
    -––•(·-> Loads Done: 38 <-·)•–––
    -––•(·-> Xp Gained: 53128 <-·)•–––
    -––•(·-> Magic Lvl: 73 <-·)•–––
    -––•(·-> Time Running: 1 Hours, 23 Minutes and 22 Seconds
    thanks did it mess up or you stop?


    Exit: Small update in enchanting.

  23. #23
    Join Date
    Aug 2007
    Location
    irc://irc.rizon.net:6667/srl
    Posts
    1,566
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    ¿WhY Dont YoU MaKe NoRmAL ThREad TiTLEs oR sCRipT nAMeS?

    "Far better it is to dare mighty things, to win glorious triumphs, even though checkered by failure, than to take rank with those poor spirits who neither enjoy much nor suffer much because they live in the gray twilight that knows neither victory nor defeat."
    — Theodore Roosevelt

  24. #24
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    CaUUsEE IMM L33TT

  25. #25
    Join Date
    Aug 2007
    Location
    irc://irc.rizon.net:6667/srl
    Posts
    1,566
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by NiCbaZ View Post
    CaUUsEE IMM L33TT

    "Far better it is to dare mighty things, to win glorious triumphs, even though checkered by failure, than to take rank with those poor spirits who neither enjoy much nor suffer much because they live in the gray twilight that knows neither victory nor defeat."
    — Theodore Roosevelt

Page 1 of 5 123 ... LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. MaGEE AreNaAA EnChaNtR gametab problem
    By imlvl127 in forum OSR Help
    Replies: 3
    Last Post: 10-09-2008, 04:59 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
  •