SRL Archive - RS3 Outdated / Broken Scripts

Kyleinkmans action bar Alcher

V 1.0

Have fire staff in hand

procedure alch();
begin
keydown(56);
    wait(20+random(20));
    keyup(56);
    wait(25+random(15));
    mouseitem(1,mouse_left);
    wait(3000+random(200));
end;   
 

9 lines of coding lol

grats on your first release but you need to work

compare this to your version

 program Alcheasy;
{$define smart8}
{$i srl/srl.simba}

/////////////////////////////////////////////////////////////////////////////////////////////////////
                // A VERY SIMPLE ALCHER THAT GETS THE JOB DONE USING THE ACTION BAR
                // Have the high alch spell on slot 8 of the action bar
                // Have the item you want to alch in the first slot of your bag
                //                v1.0 by kyleinkman
/////////////////////////////////////////////////////////////////////////////////////////////////////
const
    AlchSlot = 1;// what slot is the item to be alched in 1-28

Procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Active := True;
End;

procedure DoSomeAntiban;      //this is just a quick antiban just to show you
begin
  case RandomRange(0,200) of //play with these ranges to how often you want the antiban to perform
    1..5:MakeCompass(RandomRange(0,360));
    30:begin
        HoverSkill(skill_magic,False);
        FTab(tab_Inv);
       end;
   end;
end;

procedure alch();
var
IB:TInvenItem; //hold coords for item box
begin
    IB:=GetInven(AlchSlot); //this gets the coords of given inventory slot(item box)
    TypeByte(56);//this is how i would use the action bar does same thing yours did just less lines
    MouseBox(IB.ItemBox.X1, IB.ItemBox.Y1, IB.ItemBox.X2, IB.ItemBox.Y2, Mouse_Left);//this then clicks within that box
    wait(1800+RandomRange(200,600));
end;

begin
    setupsrl;
    declareplayers();
  if(not(loggedin))then loginplayer();
  repeat
    alch();
    DoSomeAntiban;
  until(not ExistsItem(AlchSlot))//Failsafe Added instead of repeating forever
    LogOut;                      // so it now repeats until no items left and logs out
end.

From: CRU1Z1N
grats on your first release but you need to work

compare this to your version

 program Alcheasy;
{$define smart8}
{$i srl/srl.simba}

/////////////////////////////////////////////////////////////////////////////////////////////////////
                // A VERY SIMPLE ALCHER THAT GETS THE JOB DONE USING THE ACTION BAR
                // Have the high alch spell on slot 8 of the action bar
                // Have the item you want to alch in the first slot of your bag
                //                v1.0 by kyleinkman
/////////////////////////////////////////////////////////////////////////////////////////////////////
const
    AlchSlot = 1;// what slot is the item to be alched in 1-28

Procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Active := True;
End;

procedure DoSomeAntiban;      //this is just a quick antiban just to show you
begin
  case RandomRange(0,200) of //play with these ranges to how often you want the antiban to perform
    1..5:MakeCompass(RandomRange(0,360));
    30:begin
        HoverSkill(skill_magic,False);
        FTab(tab_Inv);
       end;
   end;
end;

procedure alch();
var
IB:TInvenItem; //hold coords for item box
begin
    IB:=GetInven(AlchSlot); //this gets the coords of given inventory slot(item box)
    TypeByte(56);//this is how i would use the action bar does same thing yours did just less lines
    MouseBox(IB.ItemBox.X1, IB.ItemBox.Y1, IB.ItemBox.X2, IB.ItemBox.Y2, Mouse_Left);//this then clicks within that box
    wait(1800+RandomRange(200,600));
end;

begin
    setupsrl;
    declareplayers();
  if(not(loggedin))then loginplayer();
  repeat
    alch();
    DoSomeAntiban;
  until(not ExistsItem(AlchSlot))//Failsafe Added instead of repeating forever
    LogOut;                      // so it now repeats until no items left and logs out
end.

Woah! thanks for the awsome tips! ive learned alot from this :D