Note: Not yet working. If you try to leech and then complain that it doesn't work I will ignore you.
Notes:
-You must start in the square in front of the left most banker in Lletya.
-You must have done some of Regicide to get to Lletya.
Simba Code:
4/20/2012 I updated this. Currently, it will walk from the bank to next to the flax, and then back after a few seconds. That's all I've gotten done tonight. I'm trying to wrap my head around FindColorsSpiralTolerance and TPAs, and then I will finish it.
Simba Code:
program new;
//{$DEFINE SMART}
{.include SRL\SRL.simba}
{$i ObjectDTM\ObjDTMInclude.simba}
{$i SRL/SRL\Misc\Debug.simba}
{$i sps/sps.simba}
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3-4 lowercase letters from username; used for random event detection
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;
procedure AntiRandoms;
begin
FindNormalRandoms; // Whenever this is called, the script will check to see if your character is in a random event
LampSkill := 'prayer'; // If you set the script to choose an experience lamp from a random event box, it will use the exp on the prayer skill
LevelUp;
end;
procedure WalkToBank;
var cx,cy:Integer;
begin
WriteLn('Starting WalkToBank');
WriteLn('Trying to find way to bank');
if ObjDTM_Find('65:49:4:10:7:67:30:10:7:75:30:1:7:86:62:1:7:30:75', cx,cy, True) then
begin
WriteLn('Found way to bank');
end else
WriteLn('Couldnt find way to bank');
if ObjDTM_Walk('65:49:4:10:7:67:30:10:7:75:30:1:7:86:62:1:7:30:75', 2, 3000, 5, True) then
begin
WriteLn('Wooooooot we made it back to the bank!');
end else
WriteLn('Son of a..we didnt make it back to the bank..');
WriteLn('WalkToBank is ending now');
end;
procedure WalkToFlax;
var cx,cy:Integer;
begin
WriteLn('Starting WalkToFlax');
WriteLn('Trying to find way to flax');
if ObjDTM_Find('95:108:3:1:7:102:93:1:7:48:106:1:7:106:120',cx,cy, True) then
begin
WriteLn('Found way to flax');
end else
WriteLn('Couldnt find way to flax');
if ObjDTM_Walk('95:108:3:1:7:102:93:1:7:48:106:1:7:106:120', 2, 3000, 5, True) then
begin
WriteLn('Woooot we made it to flax');
end else
WriteLn('We didnt make it to flax');
WriteLn('WalkToFlax is ending now');
end;
procedure MainLoop;
begin
SetAngle(SRL_ANGLE_HIGH);
WalkToFlax;
Wait(2000);
WalkToBank;
end;
procedure PickFlax(x,y,xs,ys,color,xe,ye:Integer);
var
TPA:TPointArray;
I:Integer;
begin
FindColorsSpiralTolerance(x,y,TPA,color,xs,ys,xe,ye,0);
end;
//The real deal is below.
begin
// These 4 lines HAVE to be set BEFORE you call SetupSRL;
Smart_Server := 0;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
ObjDTM_Setup;
DeclarePlayers;
LoginPlayer;
MainLoop;
end.
Lletya Flax Picker
Reply With Quote
, just a heads up lemme know if u get it up n rolling n need a tester
