SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
plaxlord - SRL Member Application Form
plaxlord

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
action script, htlm

Other Communitys


How Long have You Played Runescape
late 2003/early 2004 on and off

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

iv been makeing my own scripts from a while and thought i'd submit one to see how good it is. its a very basic script that i use for alking, however i dont see how you could make a super complicated alker unless you added more antiban and antirandoms. i'v run this script in pest control bank for 5hrs strait and alked aprox 4.5k yew longbows.

i started off leching scripts however i knew nothing about scar or srl so the scripts never worked( i didnt know how to setup players!). and so as i read some of the tut's out there i developed my own scripts, now i make basicly every script that i need. although i still have some trouble with makeing scripts that involve walking. i can also make forms but i wasnt shore if i should make one for this script or not?

all feedback is welcome/ needed ty :)

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program Plaxlords_alker;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Magic.scar}

//     set this up anywere - i'd sugest pest control bank as you never get randoms there
//     fill out how many alks you want to do and the players
//     place the item you wish to alk in inventroy slot 16 - exactly were the high alchemy spell is in the spells window
//     credit to the maker of RCompass i cannot find whos made it :(
//     also credit to Dankness,phantombmx,dark_sniper,Yakman,Krazy_Meerkat,WT-Fakawi for anti ban Procedures
//     press 'f6' to begin alking and 'f1' to pause alking and once paused you can stop the script by pressing 's'




const alks = 10;          //how many alks do you want to do
var  alked: Integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 2;              //how many players do you wish to use
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;               //start with player


  Players[0].Name := '';         //username for logins
  Players[0].Pass := '';         // password for login's
  Players[0].Nick := '';        //nick for random finding
  Players[0].Active := True;    //use this player?
  
  Players[1].Name := '';         //username for logins
  Players[1].Pass := '';         // password for login's
  Players[1].Nick := '';        //nick for random finding
  Players[1].Active := True;    //use this player?
  
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;



function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
end;


procedure RCompass(iFrom, iTo: integer);
var
  I: integer;
begin
  for i:= 0 to RandomRange(iFrom, iTo) do
  begin
    case random(2) of
      0: KeyDown(VK_Left);
      1: KeyDown(VK_Right);
      else
      KeyDown(VK_Right);
    end;
    wait(randomrange(100, 2000));
    KeyUp(VK_Left);
    KeyUp(VK_Right);
    wait(randomrange(250,1000));
  end;
end;

procedure alk;
begin
  case Random(10) of
    1: FindRandoms;
  end;
  wait(2100+random(700));
  Cast('High Level Alchemy');
  Mouse(714,336,3,3,true)
  alked:= alked + 1;
end;


procedure antiban;
begin
  case Random(200) of
    0: RandomRClick;
    1: Hoverskill('magic', false);
    2: PickupMouse;
    3: AlmostLogout;
    4: RCompass(3, 6);
    5, 6, 7: RandomMovement;
  end;
end;

begin
  SetupSRL;
  MouseSpeed := 10;
  alked:= 0
  ActivateClient;
  DeclarePlayers;
  repeat
  if IsFKeyDown(6) then repeat
  if not (LoggedIn) then
    begin
      Break;
      Exit;
    end else
    alk;
    antiban;
    writeln('alks'+IntToStr(alked));
    if(alks=alked)then
    begin
      NextPlayer(True);
      Writeln('Switched players successfully'+IntToStr(alked)+  'alks done :)');
      writeln('running for'+TimeRunning+'.');
      alked:=0;
    end;
  until(IsFKeyDown(1));
  until(IsKeyDown('s'));
end.

——————————————————
<!– END TEMPLATE: formanswers –>

It's a good start, but not enough for members. Read a few tutorial on what you need to get into members, and try with a more advanced script in a month.

AGH! FindFastRandoms. Get that out of there dude.

Somebody put it in a sticky to not use FindFastRandoms.

Sorry abit to simple for becoming members. like richk1693 said look at some tuts and find the member requirements.

Also, you can replace your FindFastRandoms procedure with just FindNormalRandoms it handles them all.
Your alk procedure can be remade with use of magic.scar, that way there won't be any coord clicking.

This is script is not advanced enough, sorry. Read some tutorials, expand your script and try again in one month :)