SRL Archive - RS3 Outdated / Broken Scripts

BossDragon

Green Dragon killing script via chaos Tunnel
Progress:
[x]bank
[x]walk to tunnels
[/]fights dragon
[/]walks back to bank
[] progress report
[/]flawless

Hopefully i'll be SRLKING'S release by a few days

problems
* lvl 10 thugs prevents bot from entering rift(Fixed)
* chaos tunnel walking (Fixed)
* get dragons before the other bots
*sometimes sps doesn't do anything!
* only supports sharks
if you have any hints or pointers pls reply!

So FAR: It walks to dragons flawlessly except it messes up at the portal(Fixed) and it bank flawlessly only supports sharks right now i will probly change that to tuna later!

program BossDragons;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
//{$i ObjectDTM\ObjDTMInclude.simba}
{$i SRL/SRL/skill/fighting.simba}
const
{...Smart Setup....}
World = 0; // Leave 0 if u want a random world. I preferred world 89!
MEMBERS = True;
SIGNED = True;
Amt = '5';// The amount of food you want to withdraw for each dragon run!
{===B==O===S===S=====S=C=R=I=P=T=S=========}
// SPECIAL THANKS TO laakerules for setting a good example for smoothing scripting and YoHoJo
// for his excellent scripting tutorials!

var
  foodnumber, Kills, T:Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := ''; //Your Runescape username goes right here.
Players[0].Pass := ''; //Your Runescape password goes right here.
Players[0].Active := True; //Set to True if you want to use this player. Set to False to disable this player.
Players[0].Pin := ''; //Put your Bank PIN here. Leave blank if you don't have a Bank PIN.
end;

procedure Bank;
var  foodx, foody: integer;
begin

     ClickNorth(0);
    OpenBankNPC;
    if PinScreen then
    InPin(Players[0].Pin);
    if BankScreen then
    Writeln('In the Bank!');
        DepositAll;
        SearchBank('Shark');
        wait(2000);
        FindObjCustom(foodx, foody, ['Shark'], [3162453, 3623779], 4)
        Wait(1000);
        GetMousePos(foodx, foody);
        wait(200);
        Mouse(foodx, foody, 1, 1, false);
        WaitOption('X', 1000);
        Wait(1000);
        TypeSend(Amt);
        Wait(1000);
        CloseBank;
        ClickNorth(0);
  end;

Procedure DragonsTunnels;
Var
  myPath: TPointArray;
begin
 SPS_Setup(RUNESCAPE_SURFACE,['10_6','11_6']);
myPath := [Point(4189, 2644), Point(4189, 2625), Point(4197, 2659), Point(4194, 2651), Point(4192, 2648), Point(4189, 2635),
Point(4189, 2629), Point(4188, 2628), Point(4195, 2627), Point(4198, 2626), Point(4198, 2627),
Point(4202, 2627), Point(4205, 2626), Point(4205, 2626), Point(4209, 2625), Point(4211, 2625),
Point(4216, 2623), Point(4220, 2623), Point(4218, 2623), Point(4220, 2622), Point(4228, 2618),
Point(4224, 2621), Point(4224, 2616), Point(4235, 2612), Point(4235, 2611), Point(4242, 2608),
Point(4252, 2609), Point(4259, 2611), Point(4268, 2607), Point(4273, 2598), Point(4276, 2595),
Point(4283, 2589), Point(4283, 2586), Point(4286, 2583), Point(4292, 2580), Point(4293, 2575),
Point(4300, 2574), Point(4303, 2574), Point(4313, 2572), Point(4320, 2569), Point(4329, 2569),
Point(4327, 2568), Point(4335, 2569), Point(4335, 2569), Point(4339, 2569), Point(4343, 2570),
Point(4347, 2568), Point(4350, 2568), Point(4353, 2568), Point(4354, 2569), Point(4358, 2568),
Point(4360, 2569), Point(4364, 2563), Point(4369, 2563), Point(4378, 2561), Point(4375, 2562),
Point(4385, 2558), Point(4382, 2558), Point(4388, 2557), Point(4394, 2557), Point(4399, 2558),
Point(4405, 2558), Point(4410, 2554), Point(4412, 2557), Point(4417, 2557), Point(4422, 2557),
Point(4426, 2557), Point(4431, 2557), Point(4436, 2556), Point(4441, 2557), Point(4445, 2556),
Point(4450, 2554), Point(4454, 2554), Point(4458, 2554), Point(4463, 2554), Point(4468, 2553),
Point(4473, 2552), Point(4479, 2555), Point(4482, 2555), Point(4486, 2565)];
 SPS_WalkPath(myPath);
Writeln('Walking To The Wilderness!');
  end;
Procedure DragonsTunnels2;
var
x, y: integer;
Begin
Wait(2000)
If FindObjCustom(x, y, ['ross', 'all', 'wilderness'], [4345430], 4) THEN
Writeln('Found the Wilderness Wall');
GetMousePos(x, y);
Mouse(x, y, 1, 1, false);
wait(1000);
if WaitOption('ross', 500)  then
Writeln('Wilderness Wall Has Been Crossed!');
end;

Procedure DragonsTunnels3;
Var
  myPath: TPointArray;
begin
 SPS_Setup(RUNESCAPE_SURFACE,['11_6', '11_5']);
myPath := [Point(4496, 2542), Point(4495, 2533), Point(4495, 2519), Point(4494, 2521), Point(4496, 2511), Point(4493, 2507), Point(4493, 2503), Point(4491, 2498), Point(4492, 2494), Point(4493, 2489), Point(4493, 2486), Point(4496, 2480), Point(4496, 2468), Point(4496, 2465), Point(4495, 2462), Point(4496, 2458), Point(4498, 2452), Point(4498, 2447), Point(4499, 2441), Point(4498, 2432), Point(4499, 2429), Point(4501, 2422), Point(4500, 2415), Point(4500, 2409), Point(4503, 2401), Point(4500, 2397), Point(4500, 2393), Point(4500, 2380),Point(4530, 2330)];
    SPS_WalkPath(myPath);
    writeln('Walking through Wildy!');
    Setangle(2) ;
    Makecompass('E');
  end;
Procedure DragonsTunnels4;
var
x, y, t, z: integer;
Begin
Wait(2000)
repeat
if FindObjCustom(x, y, ['nter', 'E', 'Rift'], [4019820, 855566], 4)  THEN
Writeln('Rift Found!');
GetMousePos(x, y);
Mouse(x, y, 1, 1, false);
wait(200);
WaitOption('nter', 500);
wait(4000)
until(FindObjCustom(t, z, ['cave', 'bug'], [3955283], 4));
ClickNorth(0);
end;
Procedure DragonsTunnels5;
Var
 mypath: TPointArray;
Begin
SPS_Setup(RUNESCAPE_OTHER,['chaos_tunnels']);
myPath := [Point(687, 178), Point(684, 170), Point(684, 165),
Point(682, 161), Point(679, 153), Point(677, 149), Point(677, 145),
Point(676, 143), Point(673, 139), Point(671, 135), Point(667, 129),
Point(665, 125), Point(659, 120), Point(656, 110)];
if SPS_WalkPath(myPath)  then
Writeln('Walking to the Portal!');
 MakeCompass(270);
 wait(4000);
 end;


Procedure FindPortal;
Var //Variables are declared here
portal, X, Y:Integer; //Declare bitmaps as Integers


Begin
portal := BitmapFromString(48, 48, 'meJzt011PU0EQBuCfZqhQK1X/g4' +
        'GYYOTCIn5BqlhMPHxcqCDYaAIiN1K8FLjSFP1fTBgyzpmZ3bN7zp6' +
        'Cickb0jans0/fWdq377TzabVvJUlbTXbF861UmKg0b05SLh3j8lwW' +
        'xvRUHHjvyVNKRU8qhsgoPeLo2aWeSKyqtMdkzK+ti8SqYj2BjNKqc' +
        'I+W8BMXt7d1SqhCPC6JOP313lcRE8avVqynUKINZkyY2ZL2NFuTmO' +
        'n5x5gHL5cwc6trkIWtLcjylz2R1cF3HfEMfhcCc2AgzueGXFq5cAy' +
        'XcAw/+v3xiYgHhgM1abx5g6I9Hoxm9E9/i5gwtGFFmlToMXfEJXQ6' +
        'gTEeFe0OPZwU4nHVYjJ0hAphLhL3CBX3mLUUSlx1mVtDkgcDwYerY' +
        '3jMiugi6X4wohyOKS2holxbc3n0slJhPCR/P1Nzj+g/i8pJghE3nC' +
        '5S4b5qKkeTynmq3GE/KXBfnWzl+ebmysEh5N3RcX94Cm9DEnuRYj2' +
        'AgQRiogK/ESb3dnfh9f3uCzg00BNeTkVPY3yC8t/j9zSuT1wpj+gH' +
        'HhilBy+z6AdDHqyobg/8ZDjI9Ih++Mrq8OBwXBaea/YDGY0HJsOy4' +
        'BT05DDufdXkgWVROcay8v3oK1R3OYWeWkm8nBAPfXi305lZ7D58kz' +
        '3b2Hj74wj+Vs/H4TD7Nni1swNju58+R3nqIJFneX+fH3RtrEHxeBK' +
        'SuASaEaeEe5KQCPPh5y893+exHkYSqkqQ4HmU6FpKe7gKA78XEo6B' +
        'r3gmc8+FKsAjAnVh+sM/EHqbHRzS6/O3g8JRNibSkzC6n7+7uzKef' +
        '6ufXpbNeu9kQs8ZagSviQ==');


If (FindBitmap(portal, X, Y)) Then //This will search the screen for the bitmap
Writeln('Found the Dragon Tunnel Portal') ;
GetMousePos(x, y); //Gets us the Coordinates
Mouse(x, y, 1, 1, False);
ChooseOption('nter Portal');
End;
Procedure DragonsTunnels6;
 var
 mypath: TPointArray;

 Begin
ClickNorth(0);
 SPS_Setup(RUNESCAPE_OTHER,['chaos_tunnels']);
myPath := [Point(691, 117), Point(692, 124), Point(693, 129),
Point(696, 134), Point(701, 139), Point(707, 145), Point(711, 156),
Point(715, 161)];
SPS_WalkPath(myPath);
end;

Function FindDrag(Var X,Y: Integer): Boolean;
  var
    CTS,I,T: Integer;
    TPA: TPointArray;
    PBox: TPointArray;
    begin
  repeat
    Result := False;
    CTS := GetColorToleranceSpeed;
    PBox := TPAFromBox(IntToBox(240, 130, 290, 190));

    ColorToleranceSpeed(2);

    SetColorSpeed2Modifiers(0.20, 1.60);

     FindColorsSpiralTolerance(MSCX, MSCY, TPA,(4165230), MSX1, MSY1, MSX2, MSY2, 8); // colors wrong here but ill fix it!
     ColorToleranceSpeed(CTS);
     TPA := ClearTPAFromTPA(TPA, PBox);

    if (Length(TPA) < 1) then
      Exit;

    MMouse(TPA[0].X, TPA[0].Y, 5, 5);

    if WaitUpText('ck Gre', 50) then
    begin
      GetMousePos(X, Y);
      ClickMouse2(True);
      Result := True;
      If DidRedClick then
      MarkTime(T);
      Repeat
      wait(2 + Random(10));
      If (TimeFromMark(T) > 5000) Then Exit;
      Until Infight;
      Begin
      Inc(Kills);
      End;
      //Proggy;
      repeat
      wait(50);
      until Not(InFight)or (not OthersInFight) or (not LoggedIn);
      Exit;
    end;
    Until(Result)
    end;

procedure blah;
begin
  case random(2) of
    0 : begin
        KeyDown(VK_Tab);
        wait(35+random(100));

        wait(35+random(100));
        KeyUp(VK_Tab);
        wait(25+random(70));

        wait(35+random(100));
        end;
    1 : begin
        ExamineInv;
        end;
  end;
end;

Function Eat(What: String): Boolean;
  var
    I: Integer;
begin
  Result := False;
    If Not LoggedIn then Exit;
    if (foodnumber=1) then Exit;
    if (HPPercent < 70) then
  If InvEmpty then Logout
  else
    for i := 1 to 28 do
    begin
     if ExistsItem(i) then
      InvMouse(I, 3);
      if IsUpText(What) then
      begin
        ClickMouse2(True);
        Wait(RandomRange(350, 525));
          Result := True;
        Exit;
      end else
    end;
end;

procedure KillDrags;
var
sX,sY,X,Y: Integer;
label
fighting;
begin
 If FindDrag(X,Y) Then
  writeln('You are being a BOSS!');
  fighting:
  While IsMoving do
    MarkTime(T);
    wait(1);
    FindNormalRandoms;
  if FindBlackChatMessage('omeone else is fighting') then
  begin
    writeln('Noobs got there first!');
    case random(4) of
    0 : begin
          sX := MSX1;
          sY := MSY1;
        end;
    1 : begin
          sX := MSX1;
          sY := MSY2;
        end;
    2 : begin
          sX := MSX2;
          sY := MSY1;
        end;
    3 : begin
          sX := MSX2;
          sY := MSY2;
        end;
    end;
     If FindDrag(X,Y) Then
      blah;
      goto fighting;
  end else
  begin
    if InFight then
    begin
      repeat
      //Proggy;
     // DoThePainting;
      FindNormalRandoms;
      Eat('Eat');
      //RAntiBan;
      until (not InFight) or (not OthersInFight) or (not LoggedIn)
    end;
    wait(randomrange(200,300));
  end;
end;











begin
SMART_SERVER := 53;
SMART_MEMBERS := True;
SMART_SIGNED := True;
SMART_SUPERDETAIL := False;
CLEARDEBUG;
SETUPSRL;
DeclarePlayers;
LogInPlayer;
FindNormalRandoms;
Bank;
FindNormalRandoms;
PickUpMouse;
SetAngle(0);
DragonsTunnels;
DragonsTunnels2;
DragonsTunnels3;
DragonsTunnels4;
DragonsTunnels5;
FindPortal;
DragonsTunnels6;
KillDrags;
end.

LMFAO like rs needs more drag bots tbh hope it works out tho =)

rs doesn't but i feel bad simba doesn't have one

From: edmondc1
rs doesn't but i feel bad simba doesn't have one

simba doesn't have one because it's a goldfarming script

From: edmondc1
BossDragon

Green Dragon killing script via chaos Tunnel
Progress:
[x]bank
[x]walk to tunnels
[/]fights dragon
[x]walks back to bank
[] progress report
[/]flawless

Hopefully i'll be SRLKING'S release by a few days

problems
* lvl 10 thugs prevents bot from entering rift(UPDATE)* add wait to so that if your have autoretaliate u can kill lvl 10's and then it will try agian 07/09/12
* chaos tunnel walking
* get dragons before the other bots
*sometimes sps doesn't do anything!
* only supports sharks
if you have any hints or pointers pls reply!

Look forward to seeing your release! I can teach you how to support any food, deal with the thugs and fix SPS.

Currently mine has Custom SPS maps, deals with thugs, supports any foods walks to the rift and through the tunnels and beats other bots(; and supports summoning and super sets Pm if you would like some help

If you want help making this bot use mmtoms I could help you out. I made a ghouler using this guide Here and it is very effective and a ton faster than other bots

From: dude1994
If you want help making this bot use mmtoms I could help you out. I made a ghouler using this guide Here and it is very effective and a ton faster than other bots

Well i've posted my script just shoot me an email if u got something thats works be glad to add you name to the release

this seems interesting well done

This looks promising.

yay! lets crash green dragonhide!

Looked through this script, has many logic flaws, if i get time i'll fix it up for you.

From: John
Looked through this script, has many logic flaws, if i get time i'll fix it up for you.

thanks

Well… time to get some nice green gear that matches the color tolerance, and change my name to contain "ragon". :D

From: dweg
Well… time to get some nice green gear that matches the color tolerance, and change my name to contain "ragon". :D

hopefully he's preventing that.

if he's using mm dots then it will be avoided for the most part. a simpler way is to check if the uptext contains the correct level of the green dragon (79).

From: dweg
Well… time to get some nice green gear that matches the color tolerance, and change my name to contain "ragon". :D

Ha Ha Ha, too bad you would be wasting your money becuase its not a pvp area!!!