Results 1 to 10 of 10

Thread: Working High Alchemy

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

    Default Working High Alchemy

    PHP Code:
    program SimbAlcher;
    {
    $define SMART}
    {
    $i srl/srl.scar}
    {
    $i srl/srl/misc/reports.scar}

    Const
      
    CanISleep False// Want to take breaks?
      
    SleepEvery 10// Time to wait to sleep + 0-10 minutes
      
    SleepFor 1// Time to sleep + 0-10 minutes
      
    SMARTSERVER 29//World number
      
    SMARTMEMBERS True//Member's world?

    Var
      
    TC Integer;

    procedure DeclarePlayers;
    begin
      HowManyPlayers 
    := 1;
      
    NumberOfPlayers(HowManyPlayers);
      
    CurrentPlayer := 0;

      
    with Players[0] do
      
    begin
        Name 
    := '';
        
    Pass := '';
        
    Nick := '';
        
    Active := True;
        
    Integers[0] := 2500// Times to alch
        
    Integers[1] := 8// Items' slot. 1-28 depends on your magic's organization
        
    Booleans[0] := True// True to high alchemy, False to low alchemy
      
    end;
                                                                                              {
      
    with Players[1] do
      
    begin
        Name 
    := '';
        
    Pass := '';
        
    Nick := '';
        
    Active := True;
        
    Integers[0] := 2500// Times to alch
        
    Integers[1] := 8// Items' slot. 1-28 depends on your magic's organization
        
    Booleans[0] := True// True to high alchemy, False to low alchemy
      
    end;

      
    with Players[2] do
      
    begin
        Name 
    := '';
        
    Pass := '';
        
    Nick := '';
        
    Active := True;
            
    Integers[0] := 1000// Times to alch
        
    Integers[1] := 5// Items' slot. 1-28 depends on your magic's organization
        
    Booleans[0] := False// True to high alchemy, False to low alchemy
      
    end;            }
    end;

    Procedure Debug(String);
    Begin
      WriteLn
    ('[' TheTime '] ' S);
    End;

    Procedure MouseAntiBan;
    Var
      
    XInteger;
    Begin
      Debug
    ('Performing AntiBan');
      Case 
    Random(15Of
        0
    MMouse(Random(500), Random(500), Random(MIX2), Random(MIX2));
        
    1SleepAndMoveMouse(Random(500));
        
    2IdleTime(Random(500), 25.2);
        
    3Begin
             MMouse
    (Random(500), Random(500), Random(MIX2), Random(MIX2));
             
    Wait(200 Random(100));
             If 
    IsUpText('xamine'Then
             Begin
               GetMousePos
    (XY);
               
    Mouse(XY00False);
               
    Wait(200 Random(100));
               
    ChooseOption('xamine');
             
    End;
          
    End;
        
    4PickUpMouse;
        
    5RandomRClick;
        
    6: If MouseSpeed 15 Then
             IncEx
    (MouseSpeedRandom(5))
           Else
             
    DecEx(MouseSpeedRandom(5));
        
    7BoredHuman;
      
    End;
    End;

    Function 
    StuckInRandomBoolean;
    Begin
      Debug
    ('Checking randoms');
      
    Result := FindNonInventoryRandoms;
      If 
    Result Then
        Result 
    := Not LoggedIn;
    End;

    Function 
    _Cast(HLA Boolean): Boolean;
    Var
      
    XYLoHi Integer;
    Begin
      Lo 
    := DTMFromString('78DA634C6066606064624006B2403E3F90668' +
        
    '4F21953816AFE32E257930254C34AC09C74A09ADFA8E6B00BB1A3AA2' +
        
    '904AAF98FAA8609DD9C2CA09A6F04CCC905AAF94C849A1FF8D50000D' +
        
    '4B00AB3');
      
    Hi := DTMFromString('78DA632C6166606060624006B28C4C0CFC409' +
        
    'A11CA67AC00AAF9CB48580D2BAA394CE86AEA8830A78E08735A8930A' +
        
    '79508735A806A7E30E257D30654F319BF1A00D9340AC0');
      
    Gametab(tab_Magic);
      
    Wait(150 Random(250));
      If 
    HLA Then
      Begin
        
    If (Not FindDTM(HiXYMIX1MIY1MIX2MIY2)) Then
        Begin
          Debug
    ('Could not find Low Level Alchemy or High Level Alchemy! Make sure it''s visible');
          
    FreeDtm(lo);
          
    FreeDtm(hi);
          Exit;
        
    End;
        
    Mouse(XY55True)
      
    End
      
    Else
        
    Begin
          
    If (Not FindDTM(LoXYMIX1MIY1MIX2MIY2)) Then
          Begin
            Debug
    ('Could not find Low Level Alchemy or High Level Alchemy! Make sure it''s visible');
            
    FreeDtm(lo);
            
    FreeDtm(hi);
            Exit;
          
    End;
          
    Mouse(XY55True);
        
    End;
      
    Result := True;
      
    FreeDtm(lo);
      
    FreeDtm(hi);
    End;

    Function 
    AlchBoolean;
    Var
      
    HLA Boolean;
      
    Box TBox;
      
    Integer;
    Begin
      
    If Not LoggedIn Then
        
    Exit;
      If 
    Players[CurrentPlayer].Booleans[0Then
        HLA 
    := True
      
    Else
        
    HLA := False;
      If 
    Not _Cast(HLAThen
      Begin
        Players
    [CurrentPlayer].Loc := 'Can''t cast.';
        
    Debug('Could not cast!');
        Exit;
      
    End;
      
    := 0;
      while 
    GetCurrentTab tab_Magic do
      
    begin
        Wait
    (150+random(150));
        
    inc(c);
        if 
    >= 10 then
          
    If Not _Cast(HLAThen
          Begin
            Players
    [CurrentPlayer].Loc := 'Can''t cast.';
            
    Debug('Could not cast!');
            Exit;
          
    End;
      
    end;
      
    Box := InvBox(Players[CurrentPlayer].Integers[1]);
      
    MouseBox(Box.X1Box.Y1Box.X2Box.Y21);
      
    Debug('Alching...');
      
    Players[CurrentPlayer].Loc := 'Alching';
      
    := 0;
      while 
    not (GetCurrentTab tab_Magic) do
      
    begin
        Wait
    (150+random(150));
        
    inc(c);
        if 
    >= 65 then
          MouseBox
    (Box.X1Box.Y1Box.X2Box.Y21);
      
    end;
      
    Inc(Players[CurrentPlayer].Integers[3]);
      If 
    Random(4) = 0 Then
        MouseAntiBan
    ;
      If 
    StuckInRandom Then
        
    Exit;
      
    Result := True;
    End;

    begin
      SMART_Server 
    := SMARTSERVER;
      
    SMART_Signed := True;
      
    Smart_SuperDetail := False;
      
    Smart_Members := SMARTMEMBERS;
      
    SetupSRL;
      
    DeclarePlayers;
      
    LoginPlayer;
      
    Wait(2000 Random(1000));
      
    Repeat
        TC 
    := GetTickCount;
        
    Repeat
          
    If Not Alch Then
            
    Break;
          
    SRLProgressReport(ResultDebugBox'Ultimate Alcher''Cazax''1.05', ['Alches done:''Location:'], [Players[CurrentPlayer].Integers[3], Players[CurrentPlayer].Loc]);
          If (
    GetTickCount TC >= (SleepEvery 60000) + Random(10 60000)) And CanISleep Then
          Begin
            Debug
    ('Sleep time');
            
    Logout;
            
    Wait((SleepFor 60000) + Random(10 60000));
            
    LoginPlayer;
            
    Wait(2500 Random(2000));
            
    TC := GetTickCount;
            
    Debug('Back to work');
          
    End;
        
    Until Players[CurrentPlayer].Integers[0] = Players[CurrentPlayer].Integers[3];
        
    NextPlayer(False);
        
    Wait(2000 Random(1000));
      
    Until AllPlayersInactive;
    end
    Last edited by Home; 05-27-2011 at 11:14 AM. Reason: Added Magic Prefix. ~Home

  2. #2
    Join Date
    Aug 2007
    Location
    Colorado
    Posts
    7,421
    Mentioned
    268 Post(s)
    Quoted
    1442 Post(s)

    Default

    Oh is this your first script? I think there's a section here in the 'Scrpts' section you could put this. Also as another tip, instead of wrapping your code in 'PHP', you could wrap it in the 'Simba' format or even add it as an attachment to your thread.

    Nice job on the first script Maybe you could post what features it has, or some progress reports?

    Current projects:
    [ AeroGuardians (GotR minigame), Motherlode Miner, Blast furnace ]

    "I won't fall in your gravity. Open your eyes,
    you're the Earth and I'm the sky..."


  3. #3
    Join Date
    Mar 2011
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OMG TY!
    For some reason I couldn't get the MSI Alcher to work so I was using my alcher. (which isn't very good ) But this seems to work much better. Hopefully will post a proggie soon .

    --Edit--
    So Far so good. Preformed over 2k Alches! <3
    Last edited by Santa; 03-19-2011 at 04:28 PM.

  4. #4
    Join Date
    Aug 2010
    Posts
    165
    Mentioned
    2 Post(s)
    Quoted
    39 Post(s)

    Default

    Its good, but why move the mouse so much? If someones alching manually, he/she/it:

    1. uses keyboard mouse, so mouse always stays at same spot
    2. uses mouse itself, and it keeps on same spot for like 5 alchs, then changes a bit

    I never saw anyone alch this way :P

    For the rest it works great, does it have antirandom?

    gr, super

  5. #5
    Join Date
    Dec 2010
    Posts
    808
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I am guessing this is Cazax's :/
    Simba Code:
    'Ultimate Alcher', 'Cazax'

  6. #6
    Join Date
    Oct 2006
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah, its not mine.. ^^ i just found it and used it and saw some people here needed high alch script

  7. #7
    Join Date
    Oct 2009
    Location
    Stockton, CA
    Posts
    2,040
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by nhawkesn View Post
    Yeah, its not mine.. ^^ i just found it and used it and saw some people here needed high alch script
    Then give credit to him bro? You shouldn't have even posted this without getting permission from him. If you saw it, it is obviously still on the forum.
    Join the IRC! irc.rizon.net:6667/srl | SQLite (0.99rc3+) | SRL Doc | Simba Doc | Extra Simba Libraries (openSSL & sqlite3)
    Quote Originally Posted by #srl
    10:45 < Toter> daphil when can get sex anyday I want
    10:45 < Toter> he is always on #SRL
    "A programmer is just a tool which converts caffeine into code"

  8. #8
    Join Date
    Oct 2006
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeh my bad, didnt give credit.

    It wasnt on this forum, i found it somewhere else.

  9. #9
    Join Date
    Oct 2007
    Location
    0UT2K1LL U
    Posts
    92
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by nhawkesn View Post
    Yeh my bad, didnt give credit.

    It wasnt on this forum, i found it somewhere else.
    Edit in credits that it is his, and ask him. Next time ask first tho =P
    I’m better than you. Nah nah nuh boo boo. Stick your head in doo doo.

    http://i533.photobucket.com/albums/e...urses/1337.png

  10. #10
    Join Date
    Oct 2009
    Location
    Stockton, CA
    Posts
    2,040
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by nhawkesn View Post
    Yeh my bad, didnt give credit.

    It wasnt on this forum, i found it somewhere else.
    http://villavu.com/forum/showthread.php?t=58187
    http://villavu.com/forum/showthread.php?t=55070
    Join the IRC! irc.rizon.net:6667/srl | SQLite (0.99rc3+) | SRL Doc | Simba Doc | Extra Simba Libraries (openSSL & sqlite3)
    Quote Originally Posted by #srl
    10:45 < Toter> daphil when can get sex anyday I want
    10:45 < Toter> he is always on #SRL
    "A programmer is just a tool which converts caffeine into code"

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
  •