SRL Archive - Research & Development Lounge

i made a small snippet
a walker to the chicken pen and if your not in lumby
then it will cast hometeleport but i think there is somthing wrong because i used the walking 2 times i think i can use it 1 time if i make an extra procedure

but please test it the walking works not fully 100% but most of the time its works its goes wrong most of the rime the first 3 clicks and fflag(10); fflag is not working dont know why

really i need comments

program LumbyAllInOne;
{.include SRL/SRL.scar}

{.include SRL/SRL/skill/woodcutting.scar}

{.include SRL/SRL/skill/cooking.scar}
{.include SRL/SRL/skill/fighting.scar}
var
hometeleport, lx, ly:integer;

const
InChickenPen=false;
inlumby=true;

{=====================================================================================]
            DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
[=====================================================================================}

procedure loadbitmaps;
 begin
   HomeTelePort := BitmapFromString2(False, 'a647A478DA7D8D510AC42' +
       '00C05AFF46C4CE27EAA6DEE7FA4FA2A6C05D9253084715400883E' +
       '80560624B85A3A06358C2C64B6D79BB037657F94CC46FBB73726C' +
       '89DA7AE7CCEE5A46FFA9478FD87A937BE80934C01AF5EA3EC1495' +
       '6CD7CAE9791769322ECE3CDDFD6A763FF775FEF7BFFEBD01421');
 end;

Procedure casthometeleport;
 begin
  gametab(7)
  If(FindBitmap(HomeTelePort, lx, ly)) Then
   begin
    wait(100 + Random(150));
    Mouse(lx, ly, 5, 5, True);
    wait(15000);
    WriteLn('your in limbridge, have a nice day!');
  end
  else
  If Not(FindBitmap(HomeTelePort, lx, ly)) Then
    begin
      WriteLn('couldnt fin spell.');
    end;
   end;



procedure ToChickenPen;
begin
  if inchickenpen=true then
  begin
  exit;
  end
  else
  if inlumby=true and inchickenpen=false then
  begin
  HighestAngle;
  MakeCompass('N');
  FindRoadColor;
  SetRun(true);
  RadialRoadWalk(RoadColor, 75, 84, 60, 0, 0);
  FFlag(5);
  RadialRoadWalk(RoadColor, 70, 90, 57, 0, 0);
  FFlag(5);
  RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
  FFlag(5);
  RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
  FFlag(4);
  RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
  FFlag(6);
  RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
  FFlag(5);
  RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
  FFlag(5);
  RadialRoadWalk(RoadColor, 350, 360, 65, 1, 0);
  SetRun(false);
  end
  else
  loadbitmaps
  casthometeleport;
  HighestAngle;
  MakeCompass('N');
  FindRoadColor;
  SetRun(true);
  RadialRoadWalk(RoadColor, 75, 84, 60, 0, 0);
  FFlag(5);
  RadialRoadWalk(RoadColor, 70, 90, 57, 0, 0);
  FFlag(5);
  RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
  FFlag(5);
  RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
  FFlag(4);
  RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
  FFlag(6);
  RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
  FFlag(5);
  RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
  FFlag(5);
  RadialRoadWalk(RoadColor, 350, 360, 65, 1, 0);
  SetRun(false);
end;





begin
SetupSrl;
activateclient;
ToChickenPen;
end.

i need help pleasze

I always have problems with radial waking, i can offer you my easy procedure DirWalkPerCoord(dir: string; howfar:integer);

it clicks random? that it dont clicks always the same pixel

Yeah! But i make it like 5 minutes. So i will to it. But it`s easy to edit that. But its click so far on direction which big is your nummber. Like 65 is mm max then repeating…

great idea would be good to add to a chicken killer

this is the begin of a big script so…. just a begin
but i need people to test please test please test i really need it

I'm not that great with radialwalking, but anyway, why didn't you just use

Cast('1'); to cast the hometeleport?

OK Well I did a small Test and added some Scripting Standards and Debug Messages, first off.

Why do you teleport back if you are in the Chicken Pen? That is kind of what you have it doing, and it doesn't find the spell. Soo I will try and fix this up,

And you really shouldn't turn run on when walking, and may cause errors or miss a click.

And when walking you should add fail safes, I will implement them and show you.

Okay so here you go, this is what I would use instead.

program LumbyAllInOne;
{.include SRL/SRL.scar}

{.include SRL/SRL/skill/woodcutting.scar}

{.include SRL/SRL/skill/cooking.scar}
{.include SRL/SRL/skill/fighting.scar}
var
hometeleport, lx, ly:integer;

const
 Location = 'Lumbridge'; //You can use Chicken Pen, Lumbridge, or Other.

{=====================================================================================]
            DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
[=====================================================================================}

procedure loadbitmaps; //I made a new BMP, this one was out of date.
 begin
  hometeleport := BitmapFromString2(False, 'a84B1878DA8D8E510A0' +
       '3210C44AF944493D84F75F5FE47EA8E5B4C410A55181EE14D9488' +
       '58E93ECCF94E6D6063014F4316A469D9AC23D8247C4B7D9B52D63' +
       '6ED7BCFC75C5DD7894C17260DCF7BCBC1D2839DC27FC936F94297' +
       '5AA5F5F739701F3E274953B6E1D5EB2C4FFED33ABBDFCE797FB5D' +
       'E870');
 end;

Procedure casthometeleport;
 begin
  gametab(7);
  WriteLn('Opened Tab');
  wait(400+Random(600));
   If(FindBitmap(hometeleport, lx, ly)) Then
    Begin
    wait(100 + Random(150));
    Mouse(lx, ly, 5, 5, True);
    wait(15000);
    WriteLn('your in limbridge, have a nice day!');
  end
   else
    If Not(FindBitmap(HomeTelePort, lx, ly)) Then
     begin
      WriteLn('couldnt fin spell.');
   end;
end;


procedure Move;
begin
  if Location='Other' then
    begin
      casthometeleport;
      HighestAngle;
      MakeCompass('N');
      FindRoadColor;
      SetRun(true);
      RadialRoadWalk(RoadColor, 75, 84, 60, 0, 0);
      WriteLn('Clicked 1');
      FFlag(5);
      RadialRoadWalk(RoadColor, 70, 90, 57, 0, 0);
      WriteLn('Clicked 2');
      FFlag(5);
      RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
      WriteLn('Clicked 3');
      FFlag(5);
      RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
      WriteLn('Clicked 4');
      FFlag(4);
      RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
      WriteLn('Clicked 5');
      FFlag(6);
      RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
      WriteLn('Clicked 6');
      FFlag(5);
      RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
      WriteLn('Clicked 7');
      FFlag(5);
      RadialRoadWalk(RoadColor, 350, 360, 65, 1, 0);
      WriteLn('Clicked 8');
    SetRun(false);
    end
  if Location='Lumbridge' then
    begin
      HighestAngle;
      MakeCompass('N');
      FindRoadColor;
      SetRun(true);
      RadialRoadWalk(RoadColor, 75, 84, 60, 0, 0);
      WriteLn('Clicked 1');
      FFlag(5);
      RadialRoadWalk(RoadColor, 70, 90, 57, 0, 0);
      WriteLn('Clicked 2');
      FFlag(5);
      RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
      WriteLn('Clicked 3');
      FFlag(5);
      RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
      WriteLn('Clicked 4');
      FFlag(4);
      RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
      WriteLn('Clicked 5');
      FFlag(6);
      RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
      WriteLn('Clicked 6');
      FFlag(5);
      RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
      WriteLn('Clicked 7');
      FFlag(5);
      RadialRoadWalk(RoadColor, 350, 360, 65, 1, 0);
      WriteLn('Clicked 8');
    SetRun(false);
  end
    If Location='Chicken Pen' Then
     Begin
      Exit;
    end;
end;

begin
SetupSrl;
activateclient;
loadbitmaps; //Load your bitmaps here instead of in Procedure.
Move; //It is named Move because it takes care of everything not just chicken pen, doesn't really matter
end.

You should use a different Const than chickenpen = False, or lumbridge = True; because that may cause problems if the person does it wrong, so you can just add them all together to make 1 using something like Location = 'Other', or Location = 'Lumbridge', or Location = 'Chicken Pen'; and the reason they are in '' are because they are Words not numbers, or true, or false.

I saw the bug where it clicks in the wrong place, but it still got near the chicken pen.

dude if you set lumbridge on true then you set chicken pen on false and if your in the chicken pen that true both nice work its okay thanks
thanks

\
but the walking was okay?
i already fixed the walking forgot to save but now its okay thanks for help maybe you can add me on msn for talking and help me out somtimes and it really helped

I don't use MSN, or AIM, or any other instant messanger, sorry.

The walking will work just fine, the thing is with having to set lumbridge on true and the Chicken Pen on False it may just cause some kind of error, maybe an assignment expected… but anyways I would recommend putting them together in 1.

Well I am off to read 50 pages in the Harry Potter book and then go to sleep.

lol okay thanks for reformating

You know this part?

  else
  If Not(FindBitmap(HomeTelePort, lx, ly)) Then
    begin
      WriteLn('couldnt fin spell.');
    end;
   end;
 

What if it cant find the spell? You should add something like the nextplayer(i fogot the procedure name >.<) thing or somthing.

From: bobbohobbo
You know this part?

  else
  If Not(FindBitmap(HomeTelePort, lx, ly)) Then
    begin
      WriteLn('couldnt fin spell.');
    end;
   end;
 

What if it cant find the spell? You should add something like the nextplayer(i fogot the procedure name >.<) thing or somthing.

i know but that was not workingfor me maybe ill fix it later

still need help with forms

  else
  If Not(FindBitmap(HomeTelePort, lx, ly)) Then
    begin
      WriteLn('couldnt fin spell.'); 
      NextPlayer(False); //Is this what you are talking about?  
    end;
   end;
 

If that is what you are talking about, it will go to the next player and set the current player's .Active to False.

nope if you cant use the spell for like few mins he cant find it because theres no bitmap for it but i already fixed that so…

08-24-2007, 01:37 PM

CLOSE