SRL Archive - NOTA

Not sure if someone already made a thread about this but I don't give a fuck.

Program TakeOutTrash;
{.include life/life.scar}
{.include srl/srl.scar}

procedure Findtrash;
var
  MyTPA : TPointArray;
  x, y, i, H : Integer;
  ATPA : T2DPointArray;
Trashcolor;= 545974
begin
    FindColorsSpiralTolerance(KitchenCC, KitchenCD,MyTPA, TrashColor, KitchenC1, KitchenC2, KitchenC3, KitchenC4, 5);
    ATPA := TPAtoATPA(MyTPA, 4);
    if Length(MyTPA) = 0 then
    begin
      writeln('No trash? Not my problem.');
      exit;
    end;
    H := High(ATPA);
    For I := 0 To H Do
    begin
      MiddleTPAEx(ATPA[i], X, Y);
      Move(x, y, 0, 0,True); //x, y : var 0, 0 : how many minutes to idle for. True: Take a break on the way?
      Grabtrash;
    end;
  end;
end;

procedure walkoutside;
Doorcolor:= 4574597
DoorWalkDTM:= DTMFromString('78DA637464626078C680026A4B4B18E480342' +
       '310FF070246909AEB103926B82A460636A81A300FA4E613013501' +
       '08BB70AA3121428D0F50E6160135664099B74498F39E801A4BC27' +
       '60100B1831046');
begin
if not radialwalk(Doorcolor, 103, 340, 1, 1) then
if find DTMRotated(DoorWalkDTM, x, y, MVX1, MVY1, MVX2, MSY2)Then
begin
move(x, y, 0, 0, true);
end;
end;

procedure OpenDoor;
begin
DoorDTM:= DTMFromString('78DA637464626078C680026A4B4B18E480342' +
       '310FF070246909AEB103926B82A460636A81A300FA4E613013501' +
       '08BB70AA3121428D0F50E6160135664099B74498F39E801A4BC27' +
       '60100B1831046');

If DTMRotated(DoorDTM, x, y, MVX1, MVY1, MVX2, MVY2)Then //Main View X1, Y1, X2, Y2
begin
writeln('Fuck I got to the door. I need a break.');
end;
end;

procedure break;
begin
wait(50000+random(5000));
end;

procedure Loosefocus;
begin
if FindSquirrel(MVX1, MVY1, MVX2, MVY2) then
begin
repeat
Followsquirrel;
until(false);
end;
end;

procedure FindGirls;
begin
GirlsDTM:= DTMFromString('78DA637464626078C680026A4B4B18E480342' +
       '310FF070246909AEB103926B82A460636A81A300FA4E613013501' +
       '08BB70AA3121428D0F50E6160135664099B74498F39E801A4BC27' +
       '60100B1831046');

If DTMRotated(GirlsDTM, x, y, MVX1, MVY1, MVX2, MVY2)Then
begin
move(x, y, 0, 0, false);
case random(5) of
1: say('Do you have 99 mage? Because you put a spell on me');
2: say('Do you have 99 range? Because you shot an arrow through my heart');
3: say('Do you have 99 firemaking? Because you're smoking!');
4: say('Do you have 99 smithing? Because you're melting my heart');
5: say('Do you have 99 hunter? I've got a beast that needs to be tamed');
end;
if infight then
begin
repeat
radialrun(anywhere, 0, 360, 1, 1);
until(infight=false);
end;
end;
end;



procedure GoPking;
begin
LaptopDTM:= DTMFromString('78DA637464626078C680026A4B4B18E480342' +
       '310FF070246909AEB103926B82A460636A81A300FA4E613013501' +
       '08BB70AA3121428D0F50E6160135664099B74498F39E801A4BC27' +
       '60100B1831046');
If DTMRotated(LaptopDTM, x, y, MVX1, MVY1, MVX2, MVY2)Then
move(x, y, 0, 0, false);
Logontorunescape;
if FindBlackChatMessage('dear') then
if FindBlackChatMessage('dead') then
case random(3) of
1: Throwlaptop;
2: Yellatlaptop;
3: Punchlaptop;
end;
repeat
quitrunescape;
until(bored);
end;
end;




procedure FreeDTMs;
begin
if mindboggled then
begin
freedtm(GirlsDTM);
freedtm(DoorDTM);
freedtm(DoorWalkDTM);
freedtm(LaptopDTM);
end;
end;

begin
setupsrl;
setuplife;
repeat
findtrash;
walkoutside;
opendoor;
break;
loosefocus;
FindGirls;
GoPking;
freeDTMs;
until(dinnertime);
end.

MMkay?

Waste to write that lol. Not that funny.

From: Da 0wner
Waste to write that lol. Not that funny.

Go —- yourself ;) It's supposed to be interesting not funny.

:eek: you dont free your DTMs

~shut

Not interesting either.

From: Da 0wner
Not interesting either.

—- off

i wanted to compile it
but it wont compile (crys)

~shut

Lol funny. You get mad so easily. It was a joke so gtfo noob.

Dude, calm the —- down. Who cares what he says. It isnt interesting and it is a waste of time. Sorry to say it, but shut up, yeh? Not everyone will enjoy it, live with it.

Well i don't find it that amusing OR interesting to be honest..

Lol; If findsquirrel then follow squirrel until(false);

Guy's stop provoking him. You've had your fun with him but stop now okay?

Lol this is funny :p
though dont like that useless F Bomb :p

I hope you faked those DTMs…

Lol n3ss. I hope so ;)

your standards are crap. This script might get you srl members tho.

also, your missing repeat:

if FindSquirrel(MVX1, MVY1, MVX2, MVY2) then
begin // should be a repeat here
Followsquirrel;
until(false);

~RM

From: Rasta Magician
your standards are crap. This script might get you srl members tho.

also, your missing repeat:

if FindSquirrel(MVX1, MVY1, MVX2, MVY2) then
begin // should be a repeat here
Followsquirrel;
until(false);

~RM

u saying we are crap?

Hes saying the standards are crap, but he could get SRL Members. I have no idea where you got the idea of SRL Members being crap :p

he said "your standards are crap. This script might get you srl members tho."
he says his standards are crap, but could still get srl members…

No. It's wrong. You need to add a failsafe too go into action if the door closes if you outside like UseKey.

@Rm - he won't get members with it, surely not when Nava's on the case!

writeln('No trash? Not my problem.');
terminatescript;

script = life.
you terminate script.
-> you kill your self?

i lol'd at the squirrel thing :P

Where can I download the life include? I seem to not have 1 :p

I apoligize for the swearing. I was having a bad day yesterday.

Anyways, I updated it with a FindGirls proc :p

My standards are off, but it really doesn't matter unless you're totally incapable of reading a script without spaces after begins and ends :)

I lol'ed at FindGirls :p
You'd so fffked to say those thing though :p

FindGirls; <333
I laughed really hard!
Good job.
~Eerik~

ahhh…
you still havent freed the DTM's

if MemoryFullWithDTM then
begin
  Writeln('Uh oh my brain is too full with DTM''s :(');
  TerminateScript;
end

:)

~shut

Do you have 99 prayer? Because you look like you're from heaven
Do you have 99 hitpoints? Because I can feel your strong heart
Do you have 99 mining? Because you sure just made a good pick
Do you have 99 construction? Because you're build like a queen
Do you have 99 agility? Because you'll sure need your energy tonight!

I lol'ed at:
''if infight then''

what happened? you tried to come onto her? :p
quite funny actually

T~M

From: Shuttleu
ahhh…
you still havent freed the DTM's

if MemoryFullWithDTM then
begin
  Writeln('Uh oh my brain is too full with DTM''s :(');
  TerminateScript;
end

:)

~shut

procedure FreeDTMs;
begin
if mindboggled then
begin
freedtm(GirlsDTM);
freedtm(DoorDTM);
freedtm(DoorWalkDTM);
freedtm(LaptopDTM);
end;
end;

Happy? :p

From: jakeyboy29
he said "your standards are crap. This script might get you srl members tho."
he says his standards are crap, but could still get srl members…

will u chill already? this is a spam forum. It's a joke.

besides, he could get members! if someone applied with a script to take the trash out and it actually worked i wouldn't give a … over him using DDTMs or RadialWalk as long as i wouldn't have to take care of my own trash :)

~RM

Need to invent SCAR 3D, need 3 no. TPoints :p x, y, z. Then a 3DTBox, ahhh 9 figures!

my contribution:

Function BeatIt: Boolean;
var Parents, Siblings, PoppedOne, Finished: Boolean;
begin
  if Inrange(Computer, 25, 25) and
    (Parents = False) and
      (Siblings = False) then
  begin
    repeat
      begin
        GetPage('www.redtube.com');
        PoppedOne := True;
        case Random(6) of
          0: BeatTheMeat;
          1: TugYourPud;
          2: TickleYourPickle;
          3: FluffyourStuff;
          4: ChokeTheChicken;
          5: GagtheOneEyedGopher; // Credits to Method: <Method^> gag the one-eyed gopher
        end;
        if Finished then
        begin
          Cleanup;
          getpage('www.villavu.com');
          PostOnThread('ReadLifeScripts');
          Result := True;
          Exit;
        end else
        begin
          GetPage('MyFreePaySite.com');
          Continue;
        end;
      end;
    until Finished;
  end else
  DoSomethingElse;
end;

feel free to use in one of your scripts, as long as you credit :p

Rofls…

add skinthesnake(howmanytimes:integer); to that list.

Loool very funny Blumble :)

CreamSqueezeTheTwinkie;
TameTheTrouserSnake;

function DinnerTime: boolean;
begin
  if players[currentplayer].Loc = 'outdoors' then
   if players[currentplayer].Hungry then
    if players[currentplayer].Integers[euros] > 0 then
     begin
      GoToCandyShop;
      BuyItem('ChocolateBar');
     end 
    else
     begin
      CastSpell('Home Teleport');
      TypeSend('MOOOM IM HOOOME');
      if GetLastChatMessage = 'dinner is served honey!' then
      begin
       SetRun(true);
       GoToKitchen;
       case food of
        'spaghetti': 
          begin 
           if InRange(Cheese, 9, 12) then TakeCheese;
           Eat(TooMuch);
           Vomit;
           exit;
          end;
       'fish':
        begin
         if Distance(MyRoom, CurrentPos) < 14 then
         begin 
          RunAway(fast);
          Eat(Cookies);
          exit;
         end;
       end;      
      end;
 if InvFull then result:= true;
end;

From: marpis

function DinnerTime: boolean;
begin
  if players[currentplayer].Loc = 'outdoors' then
   if players[currentplayer].Hungry then
    if players[currentplayer].Integers[euros] > 0 then
     begin
      GoToCandyShop;
      BuyItem('ChocolateBar');
     end 
    else
     begin
      CastSpell('Home Teleport');
      TypeSend('MOOOM IM HOOOME');
      if GetLastChatMessage = 'dinner is served honey!' then
      begin
       SetRun(true);
       GoToKitchen;
       case food of
        'spaghetti': 
          begin 
           if InRange(Cheese, 9, 12) then TakeCheese;
           Eat(TooMuch);
           Vomit;
           exit;
          end;
       'fish':
        begin
         if Distance(MyRoom, CurrentPos) < 14 then
         begin 
          RunAway(fast);
          Eat(Cookies);
          exit;
         end;
       end;      
      end;
 if InvFull then result:= true;
end;

I lol at that :p

From: marpis

function DinnerTime: boolean;
begin
  if players[currentplayer].Loc = 'outdoors' then
   if players[currentplayer].Hungry then
    if players[currentplayer].Integers[euros] > 0 then
     begin
      GoToCandyShop;
      BuyItem('ChocolateBar');
     end 
    else
     begin
      CastSpell('Home Teleport');
      TypeSend('MOOOM IM HOOOME');
      if GetLastChatMessage = 'dinner is served honey!' then
      begin
       SetRun(true);
       GoToKitchen;
       case food of
        'spaghetti': 
          begin
            repeat           
            EatItem('ChocolateBar');  
            until (ToTall)
           exit;
          end;
       'fish':
        begin
         if Distance(MyRoom, CurrentPos) < 14 then
         begin 
          RunAway(fast);
          Eat(Cookies);
          exit;
         end;
       end;      
      end;
 if InvFull then result:= true;
end;

You made a little mistake.
IMO you should the chocolate bar if you buy one.
/facepalm :p