i dont know how to do for open a trap door and then go in(at edgville),
im currently doing my first script so im very noob, ill accept all help.
its an auto air orb charger
and it can use reflection.
thanx
i dont know how to do for open a trap door and then go in(at edgville),
im currently doing my first script so im very noob, ill accept all help.
its an auto air orb charger
and it can use reflection.
thanx
if it can use reflection then get the tile of the trapdoor and just use TileToMs to get the position
then use if(IsUptext('pen'))then
easiest and simplest way
~shut
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
To expand away from Shuttleu's way it would be better to use if(getobjectat(Tile) = closed trapdoor ID)) that way you will only move your mouse towards the trapdoor if its closed.
for now my script look like this;
PHP Code:program AutoAirOrbCharger;
{.Include SRL\SRL\Misc\Smart.Scar}
{.Include SRL\SRL.Scar}
{.Include SRL\SRL\Reflection\Reflection.Scar}
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
function LoadPath: TPointArray;
begin
SetLength(Result, 4);
Result[0] := Point(3093, 3489);
Result[1] := Point(3093, 3483);
Result[2] := Point(3094, 3475);
Result[3] := Point(3095, 3470);
end;
Procedure WalkThePath;
Var
I: Integer;
Path: TPointArray;
Begin
Path := LoadPath;
for i := 0 to High(Path) do
Begin
WalkToTile(Path[i], 0, 0);
end;
Wait(500+Random(300));
end;
function openTrapDoor (id :integer; left: boolean): boolean;
var
xx : TPoint;
begin
if FindObject(xX,id) then
begin
Result:= True;
XX:= TileToMS(XX, 0);
Mouse(xx.x, xx.y, 2, 2, Left);
Wait(30 + Random(10));
end;
end;
function EnterTrapDoor (id :integer; left: boolean): boolean;
var
xx : TPoint;
begin
if FindObject(xX,id) then
begin
Result:= True;
XX:= TileToMS(XX, 0);
Mouse(xx.x, xx.y, 2, 2, Left);
Wait(30 + Random(10));
end;
end;
Procedure SetupSmart;
Begin
SMARTSetupEx(145, True, True, False);
Wait(5000);
SetTargetDC(SmartGetDC);
repeat
wait(100);
until(SmartGetColor(253, 233)<>1118604);
end;
procedure mainLoop;
Begin
SetupSRL;
SetupSmart;
DeclarePlayers;
LoginPlayer;
SetAngle(True);
SetRun(True);
WalkThePath;
if opentrapDoor(26933, true) then
Wait(100 + Random(10)); EnterTrapDoor(26934,true);
EnterTrapDoor(26934,true);
end;
Begin
mainLoop;
end.
//trapdoor//
//Location X = 3097Location Y = 3468
//Object I.D is 26934
//The object's UID is 269341076206137
//The Object's type is 26934(whene open) --26933 (whene close)
-----------------------------
edit
-----------------------------
i found sumthing
and it work thanx![]()
Formerly known as FrancisHelie
There are currently 1 users browsing this thread. (0 members and 1 guests)