SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Java

Other Communitys
www.sythe.org, www.rs-resources.com

How Long have You Played Runescape
a little over 2 and a half years

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

I am a human from the planet Earth, I enjoy playing this MMORPG, this Runescape, and have found that it is very interesting, not to mention more fun, to use scripts to play the game for me. It's like playing even when I'm not playing. When i realized some of these scripts had problems, i printed them out, brought them to school, and throughout the course of a few days, I was able to figure out what most everything meant, and was soon able to repair the scripts. To make a long story short, I started tweaking scripts quite a bit so there was a better chance i wouldn't get banned, wanted to give a bit back to the community, don't want 100 views of a script with 1 comment of "nice i will test it laterz pl0x" and I would like access to better scripts to learn from. A bit of experience, still learning, same goes for java, i know a bit more about pascal, or w\e u guys call the language SCAR uses, because it is, for the most part, self explanatory…

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

ok, i know the chances of becoming a member with my first script are small, but, hey, i figure it's worth a shot…

meaning to life: 42
couldn't find the slot in the form for that, sorry… here you are…

program Thing;
begin
end.

sorry, just kidding, here…

Ashur mainly just added antirandom and antiban btw, i dunno if that is still considered 90% mine or not, but…

program SpinMyFlaxLumby;
{.Include srl/srl.scar}
{.include srl/srl/extended/xmapwalk.scar}

//Start in 3rd floor of Lumby castle, at the bank, with a full load of
//flax already in ur inventory

//guess there's multiplayer now to make it easier on anyone with
//that many members accounts... but w\e, ashur thinks it's a good
//idea and he is a member, so, works for me...

//IMPORTANT: I DID USE SOME PROCEDURES MADE BY THE SCAR NOOB
//THEY WERE FROM HIS WOOL SPINNER, I CHANGED THEM TO MAKE FLAX
//BUT MOST WERE BY ME...
//Edited by Ashur2good :)
//-Warbeak1245

const

amounttrips=400;//number of flax you have divided by 28

var

tripsdone:Integer;


var
  TmpRoad, loads : Integer;

procedure GetRoadColor;
begin
  TmpRoad := FindRoadColor;
  WriteLn('Road Color := '+IntToStr(TmpRoad));
end;



procedure DeclarePlayers;
begin
HowManyPlayers := 6; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;

Players[0].Name :='User Name';//Name Goes Here
Players[0].Pass :='Password';//Password Goes Here
Players[0].Nick :='ser nam';//nothing new :/
Players[0].Active:=True;//True If Using, False If Not

Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;

Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=True;

Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=True;

Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Active:=True;

Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Active:=True;

End;

procedure LoggingIn;

begin
 SetUpSRL;
 DeclarePlayers;
 LoginPlayer;
end;

function FindFastRandoms: Boolean; //By WT-Fakawi.
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 DoAntiRandoms;
begin
 FindTalk;
 FindFastRandoms;
 FindNormalRandoms;
 PopUp('ontinue')
if (FindFight = true) then
begin
 RunAwayDirection('N');
  Wait(10000 + random(2000));
 RunBack;
end;
end;

  procedure AntiBans;
begin
 case Random(10) of
  2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
  4: HoverSkill('Fishing', False);
  5: HoverSkill('Strength', False);
  6: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
  7: HoverSkill('Cooking', False);
  9: BoredHuman;
 end;
end;

procedure ToBank;
begin
  wait(300);
  if(BankColor <> 0)then
  begin
    if FindColor(x,y,5689579,MMX1,MMY1,MMX2,MMY2) then
    begin
      Mouse(x,y,0,0,True);
      DoAntiRandoms;
      Flag;
    end;
  end else
  begin
    GetRoadColor;
    DoAntiRandoms;
    RadialWalk(TmpRoad,354,360,38,0,0);
    DoAntiRandoms;
    Flag;
  end;
end;

procedure ToStairs;
begin
  makecompass('N')
  RadialWalk(roadcolor,190,200,53,0,0);
  DoAntiRandoms;
  flag;
  DoAntiRandoms;
end;

procedure downstairs;
begin
  repeat
    FindObj(x, y, 'Staircase', 604499, 30);
    Mouse(x, y, 5, 5, false);
  until
   PopUp('Climb-down');
   Wait(100+Random(500));
   Mouse(461, 178, 10, 10, true);
   Wait(100+Random(500));
   DoAntiRandoms;
end;

Procedure OpenDoor;
begin
  makecompass('e')
  If(FindObj(x, y ,'Door', 2515048, 2) or FindObj(x, y ,'Door', 2240608, 5)) then
  begin
    if IsUpText('Close') then
     exit;
    if IsUpText('Open') then
    begin
      Mouse(x,y,0,0,True);
      Flag;
      DoAntiRandoms;
    end;
  end
end;

procedure upstairs;
begin
  repeat
    FindObj(x, y, 'Staircase', 603212, 30);
    DoAntiRandoms;
    Mouse(x, y, 5, 5, false);
  until
    PopUp('Climb-up');
    Wait(1000+Random(500));
    Mouse(461, 178, 10, 10, true);
    Wait(1000+Random(500));

       if (not(Loggedin)) then NextPlayer(false);
end;

var
  i: Integer;

procedure spin;
begin
  wait(300+random(100));
  repeat
    FindObj(x, y, 'Spin', 1204365, 5);
    Mouse(x, y, 5, 5, false);
  until
    PopUp('Spin');
    flag;
    DoAntiRandoms;
    Mouse(261, 138, 5, 5, false);
    wait(1000 + random(300));
    PopUp('Make X');
    DoAntiRandoms;
    wait(1000 + random(300));
    TypeSend('99');
  repeat
    Wait(6400 + random(500));
    DoAntiRandoms;
    AntiBans;
    i:= i + 1;
  until(i = 7)
If (FindFight) then begin
  opendoor;
  tostairs;
  upstairs;
  Wait(6000+Random(500));
  DoAntiRandoms;
  downstairs;
  DoAntiRandoms;
  opendoor;
  DoAntiRandoms;
  spin;
  DoAntiRandoms;
     if (not(Loggedin)) then NextPlayer(false);
  end;
end;


procedure bankstuffz;
begin
makecompass('N')
  repeat
  DoAntiRandoms;
    OpenBank3;
  until(BankScreen)
    wait(700+random(600))
    Depositall;
    FixBank;
    Mouse(98, 81, 10, 10, false);
    wait(100+random(50))
    PopUp('All');
    CloseBank;
    DoAntiRandoms;
    tripsdone:=tripsdone+1;
    DoAntiRandoms;
end;

begin
ActivateClient;
  SetupSRL;
   DeclarePlayers;
     LoginPlayer;
  repeat
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    DoAntiRandoms;
    ToStairs;
    DoAntiRandoms;
    downstairs;
    DoAntiRandoms;
    OpenDoor;
    DoAntiRandoms;
    spin;
    DoAntiRandoms;
    OpenDoor;
    DoAntiRandoms;
    ToStairs;
    DoAntiRandoms;
    upstairs;
    DoAntiRandoms;
    ToBank;
    DoAntiRandoms;
    bankstuffz;
    AntiBans;
    DoAntiRandoms;
       if (not(Loggedin)) then NextPlayer(false);
  until
    (tripsdone=amounttrips);
    logout;
end.

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

Looks good, pending Yoho's cobybust check i'm voting yes ;).

Ill vote some other time.. Cant bother to check if thats really made by u.

Don't you find it a bit odd that the first part of the script has 1 space after each begin/repeat, and 1 back for ends/untils.. then near the end its for the most part correct except for a few wild spaces. Very strange.. YoHoJo! We need you! :p

Ashur2good edited it, would it help if i showed you guys what it looked like before he edited it? he added the find fast randoms by WT-Fakawi, and the do antirandoms procedure, then he replaced my random finding procedures with that one, but other than that it is by me.

    DoAntiRandoms;
    ToStairs;
    DoAntiRandoms;
    downstairs;
    DoAntiRandoms;
    OpenDoor;
    DoAntiRandoms;
    spin;
    DoAntiRandoms;
    OpenDoor;
    DoAntiRandoms;
    ToStairs;
    DoAntiRandoms;
    upstairs;
    DoAntiRandoms;
    ToBank;
    DoAntiRandoms;
    bankstuffz;
    AntiBans;
    DoAntiRandoms;

I don't like this. Could be more organized. I have no real doubt that this is his script, yet It could be done better. I just won't vote this time becuase I don't think it's worth a membership, but you did actually try wich is alot more than I can say for some other apps.

well, i dunno, if you have ever tried flax spinning in lumby u will understand, u literally get a random every 20 minutes, although, it could just be my account, but everyone else there seems to get it too… its a good way to get full camo, but annoying to auto there, so have to have a lot of checks for randoms

Recomendation:

for i:= 1 to 4 do
begin
  case i of
    1: thingone;
    2: thingtwo;
    3: thingthree;
    4: thingfour;
  end;
AntiRandoms;
end;

Not bad compared to many of the application scripts, but I think it could use a few improvements.

never mind, i see what you mean, how many votes are required for member status?

Uh ohh…. (one second)

Edit:
Whats Goin On!?
SILLY GOOSE
http://www.villavu.com/forum/showthread.php?t=4039?t=4820

Wow, this was a hard one!

Ouch BUSTED! lol learn to script, leach or GTFO

Closed.