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
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