Page 3 of 3 FirstFirst 123
Results 51 to 54 of 54

Thread: SimpleNMZ (Lape - Reflection - AL)

  1. #51
    Join Date
    Dec 2015
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    This is great. It does not log out after dying in NMZ and it just stands there doing nothing... I added a logout feature after dying so if anyone needs it just let me know
    Last edited by sizzayin; 01-22-2017 at 04:28 AM.

  2. #52
    Join Date
    Jan 2017
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    How can I change the code so its not doing the toggle prayer thing and all I want is for it to drink overloads and when the 5 minutes expire it chooses randomly from 5-30 seconds to drink the next, drink absorptions to 900+ after going below a random number and logging out when I reach 70 prayer ( I will use prayer right before starting so when I die it means it will renew my prayer back to 70 soit should be time to log out.)
    Last edited by bustr12; 01-25-2017 at 05:57 AM.

  3. #53
    Join Date
    Dec 2015
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Quote Originally Posted by bustr12 View Post
    How can I change the code so its not doing the toggle prayer thing and all I want is for it to drink overloads and when the 5 minutes expire it chooses randomly from 5-30 seconds to drink the next, drink absorptions to 900+ after going below a random number and logging out when I reach 70 prayer ( I will use prayer right before starting so when I die it means it will renew my prayer back to 70 soit should be time to log out.)
    For the prayer, just comment out the checkpray; in the main function (located at the very bottom of the script:
    begin
    AntiBan;
    chancedrinkabsorb;
    //checkpray;
    end;
    As for overloads, the script already has that feature and the absorption pots is timer based which has been working fine for me. Adjust the time between drinking absorbs if necessary.

    For logging out based on prayer level, insert this in to the main function:

    if ply.GetSkillLevel(SKILL_PRAYER) = 70 then
    begin
    Writeln('Logging out');
    logoutPlayer;
    terminateScript;
    end
    Last edited by sizzayin; 01-27-2017 at 08:19 PM.

  4. #54
    Join Date
    Feb 2017
    Location
    The Netherlands
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    19 Post(s)

    Default

    For the ones who still use this script,

    I used the edit Hakishatakaki made and changed some things:

    -Log out future
    -More antiban (Checks strength and hitpoints xp)
    If you wish to change the strength xp check search for "SKILL_STRENGTH" and change it to your preferred skill
    - Tells you which antiban its using. I found this useful for myself because not all antiban's were working.

    Code:
    program dhnmz;
      {$DEFINE SMART}
      {$i AeroLib/AeroLib.Simba}
      {$i reflection/Reflection.simba}
    
    var
      skill1: Int64;
      ply: TReflectLocalPlayer;
      mouse1: TReflectionMouse;
      compass: TReflectionCompass;
      tab1: TReflectionGameTab;
      timer1:TReflectTimer;
      lastpraytime:Int64;
      lastdrinktime:Int64;
      lastadvancedantibantime:Int64;
      startingxp:Int64;
    
      //--------SETUP----------//
      //Set which skill you are training here
      //Ranged = 4
      //Attack = 0
      //Strengh = 2
      //Defence = 1
      //Magic = 6
    procedure setDebugVars;
      begin
      skill1 := ;
      end;
      //--------DONE----------//
    procedure drink(pot: String);
    var
      potion: TReflectInvItem;
      strings: TStringArray := ['(1)', '(2)', '(3)', '(4)'];
      index: Integer;
      invBox: TBox;
      mousePoint: TPoint;
    begin
    
      if (Reflect.Gametab.Current <> Gametab_Inventory) then
        Reflect.Gametab.Open(Gametab_Inventory);
      for index := 0 to high(strings) do
      begin
        if (potion.Find(pot + strings[index])) then
          break;
        if (index = high(strings)) then
          exit;
      end;
      invBox := potion.GetBox;
      mousePoint := middleBox(invBox);
      Reflect.Mouse.Move(mousePoint, 5, 7);
      sleep(150 + random(50));
      case randomRange(0, 7) of
        0..5: Reflect.Mouse.Click(MOUSE_LEFT);
        6:
        begin
          Reflect.Mouse.Click(MOUSE_RIGHT);
          Reflect.Text.ChooseOption('Drink', 500);
        end;
      end;
      sleep(2500 + random(1000));
    end;
    
    function QuickPray(Pray: Boolean): Boolean;
    var
      CCountPurple, CCountWhite: integer;
    
    begin
      Result := False;
      CCountPurple := CountColorTolerance(5056052, 550, 95, 565, 108, 45);
      CCountWhite := CountColorTolerance(9723486, 550, 95, 565, 108, 22);
    
      if ((CCountPurple < 1) and (CCountWhite < 1)) then
      begin
        Exit;
      end;
    
      if (Pray) then
      begin
        if (CCountWhite < 1) then
        TReflectionMouse.Move(550, 95, 565, 108, mouse_left);
        Result := True;
      end else
      begin
        if (CCountWhite > 1) then
        TReflectionMouse.Move(550, 95, 565, 108, mouse_left);
        Result := True;
      end;
    
    
    end;
    
    
    procedure antiban();
    begin
      case random(1000) of
        1..50:
          if (pointInBox(Reflect.Mouse.GetPoint, intToBox(0, 0, 763, 502))) then
            MMouseOffClient('rand');
      end;
    end;
    
    procedure chancedrinkabsorb;
    
    begin
    if (timer1.ElapsedTime() - lastdrinktime) > RandomRange(150000,200000) then
      begin
        Writeln('drinking absorb');
        lastdrinktime := timer1.ElapsedTime();
        drink('Absorption ');
        end;
    end;
    procedure togglepray;
    begin
    Writeln('TOTAL XP DONE: ' + IntToStr(ply.GetSkillExp(skill1) - startingxp) );
    Writeln('XP/HR: ' + ToString((ply.GetSkillExp(skill1) - startingxp)/(timer1.ElapsedTime()/(1000*60*60)) ) );
    lastpraytime := timer1.ElapsedTime();
          QuickPray(True);
          Wait(RandomRange(1400,1700));
          QuickPray(False);
    end;
    procedure checkpray;
    begin
    if (timer1.ElapsedTime() - lastpraytime) > 36000 then
      begin
        Wait(RandomRange(500,9000));
        togglepray;
        end;
    end;
    
    procedure advancedantiban;
    begin
    if (timer1.ElapsedTime() - lastadvancedantibantime) > RandomRange(50000,200000) then
      begin
        WriteLn('Doing advanced antiban');
        lastadvancedantibantime := timer1.ElapsedTime();
        case random(14) of
        1: begin
        WriteLn('Strength check');
        hoverSkill(SKILL_STRENGTH, false);
           end
        2: begin
        WriteLn('One tab change');
        randomTab(True);
        end
        3: begin
        WriteLn('Examine');
        examineInv();
        end
        4: begin
        WriteLn('Compass half');
        compassMovement(10, 80, true);
          end
        5: begin
        WriteLn('Compass Full');
           compassMovement(10, 150, false);
           end
        6: begin
        WriteLn('Pickup mouse movement');
           pickUpMouse();
           end
        7: begin
        WriteLn('HP check');
           hoverSkill(SKILL_HITPOINTS, false);
           end
        8: begin
        WriteLn('Right clicking');
           randomRClick;
           end
        end;
      end;
    end;
    
    procedure logout;
    begin
      if ply.GetSkillLevel(SKILL_HP) > 53 then
      begin
      WriteLn ('logging out');
      logoutplayer();
      end;
    end;
    
    
    begin
      InitAL;
      Reflect.Setup;
      LoginPlayer(False);
      ply.Create;
      timer1.Start;
      lastpraytime := 0;
      lastdrinktime := 0;
      lastadvancedantibantime := 0;
      setDebugVars;
      startingxp :=   ply.GetSkillExp(skill1)
      repeat
      begin
      if ply.GetSkillLevel(SKILL_HP) > 50 then
      begin
      //Writeln('Drinking overload');
      drink('Overload ');
      end
      if ply.GetSkillLevel(SKILL_HP) > 50 then
      begin
      //Writeln('Drinking overload');
      drink('Overload ');
      end
      else
      begin
        AntiBan;
        Advancedantiban;
        chancedrinkabsorb;
        checkpray;
        logout;
      end;
      end
      until(false);
    end;
    Last edited by uvlees; 02-19-2017 at 06:04 PM.

Page 3 of 3 FirstFirst 123

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
  •