PDA

View Full Version : hometeleport and radialroadwalk/ need testers



ShowerThoughts
08-20-2007, 01:37 PM
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' +
'00C05AFF46C4CE27EAA6DEE7FA4FA2A6C05D9253084715400 883E' +
'80560624B85A3A06358C2C64B6D79BB037657F94CC46FBB73 726C' +
'89DA7AE7CCEE5A46FFA9478FD87A937BE80934C01AF5EA3EC 1495' +
'6CD7CAE9791769322ECE3CDDFD6A763FF775FEF7BFFEBD014 21');
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

kodeejs
08-20-2007, 01:40 PM
I always have problems with radial waking, i can offer you my easy procedure DirWalkPerCoord(dir: string; howfar:integer);

ShowerThoughts
08-20-2007, 01:42 PM
it clicks random? that it dont clicks always the same pixel

kodeejs
08-20-2007, 01:45 PM
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...

hardman
08-20-2007, 01:46 PM
great idea would be good to add to a chicken killer

ShowerThoughts
08-20-2007, 01:59 PM
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

IEatJ00erBaybees
08-20-2007, 04:54 PM
I'm not that great with radialwalking, but anyway, why didn't you just use

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

Tails111
08-20-2007, 06:22 PM
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' +
'3210C44AF944493D84F75F5FE47EA8E5B4C410A55181EE14D 9488' +
'58E93ECCF94E6D6063014F4316A469D9AC23D8247C4B7D9B5 2D63' +
'6ED7BCFC75C5DD7894C17260DCF7BCBC1D2839DC27FC936F9 4297' +
'5AA5F5F739701F3E274953B6E1D5EB2C4FFED33ABBDFCE797 FB5D' +
'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.

ShowerThoughts
08-20-2007, 06:57 PM
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

Tails111
08-21-2007, 02:08 AM
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.

ShowerThoughts
08-21-2007, 07:53 AM
lol okay thanks for reformating

BobboHobbo
08-21-2007, 08:00 AM
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.

ShowerThoughts
08-21-2007, 08:07 AM
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

Tails111
08-22-2007, 01:42 AM
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.

ShowerThoughts
08-24-2007, 05:37 PM
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...

Dumpin
11-14-2007, 03:44 PM
08-24-2007, 01:37 PM

CLOSE