Simba Code:
program VEWAlker;
//{$DEFINE SMART} (Remove // to open smart)
{$i srl/srl.simba}
{$i sps/sps.simba}
Const
SERVER = 61; // Enter "0" to pick a random server.
MEMBERS = False; // Set to True if using a RS-Members account. False if F2P.
SRLStats_Username = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
NumbOfPlayers= 1; //How many players are you using
StartPlayer= 0; //Player to start auoting with! (0 means first char)
Version= '1.0'; //Change back to 1 if new script
/////////// {Credits for the DTM walking go to DemiseScythe all the DTM stuff
////////// came from the tut!}
Var
X, Y, I:Integer;
Q: Array [0..4] of Integer;//DTM Declaring procedure.
aFound: Extended;
procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
Players[i].BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];
with Players[0] do
begin
Name := ''; //Player username.
Pass := ''; //Player password.
Nick := ''; //Player nickname - 3-4 letters of Player username.
Active := True;
end;
end;
{Writes lines in the dbug box}
Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
Procedure Antiban;
Begin
Case Random(192) Of
0: HoverSkill('Mining', False);
1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
2: ExamineInv;
3: RandomAngle(1);
4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
5: HoverSkill('random', False);
End;
End;
Procedure FailSafe(Reason:String);
Begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_commit;
Terminatescript;
End;
Procedure Bankit; //Credits to Trickyy and Marpis
Var
i : Integer;
Begin
If (Not(LoggedIn)) Then Exit;
For i:=1 To 4 Do
If OpenBank('veb', True, True) Then
Break;
End;
procedure SetDTM;//DTM Defining procedure.
begin
Q[0] := DTMFromString('mrAAAAHichcqhDkBQGIbhzxTX47YkSRUpTHALprgKii6qNmcz/38OgeYr8nm3p70RgDwEUsqooJY6aiihmc9IA/U00UoPLVTVJUQ2uNviUgPRHacYvC6G2gO+Ao+/D6oKHyA=');
Q[1] := DTMFromString('mlwAAAHicY2dgYJjBzMDQCcTrmSHsYiBeAMRxQLwGKL8ciNcC8TEgfgTFh4G4u6uN4efXNwxfP35i+PL5HQMjEwPD10+PGd59AKnADRjxYCgAABRQGPk=');
Q[2] := DTMFromString('mggAAAHicY2NgYJjMzMAwC4g3A/EKIO4F4iwgXg+UWw7EG4H4NBCfAuLdQBwUEszw6fM7hp8/3zJ8+/6R4dO7pwzfPr9iwAUYcWAIAAAVdxcW');
Q[3] := DTMFromString('mlwAAAHicY2dgYJjNzMDQAcRLgXgLEM8F4h4g7gbiY0D5TUC8FYgfAfEDIL4LxEcYQICRIdpLlyEvM4fhz/MPcPybkZ0BH2DEg6EAAP13FXY=');
end;
procedure FrDTM;//DTM Freeing procedure.
begin
FreeDTM(Q[0]);
FreeDTM(Q[1]);
FreeDTM(Q[2]); StatsGuise('Walking to point' + InToStr(I));
FreeDTM(Q[3]);
end;
begin
Smart_Server := 30;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
SetupSRLStats(439, SRLStats_Username, SRLStats_Password);
DeclarePlayers;
LoginPlayer;
SetDTM; //Set DTM's before code.
MouseSpeed := 18;//This makes it move faster but still undetectable, it makes DTM walking even more human-like.
MakeCompass('n');//We agreed we'd have camera facing North.
If FindDTMRotated(Q[0], X, Y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) Then
Begin
Mouse(x, y, 3, 3, True);
StatsGuise('Walking to point');
FFlag(6);
Repeat
Wait(50 + Random(25));
Until FindDTMRotated(Q[1], X, Y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound);
End;
If FindDTMRotated(Q[1], X, Y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) Then
Begin
Mouse(x, y, 3, 3, True);
StatsGuise('Walking to point');
FFlag(6);
Repeat
Wait(50 + Random(25));
Until FindDTMRotated(Q[2], X, Y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound);
End;
If FindDTMRotated(Q[2], X, Y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) Then
Begin
Mouse(x, y, 3, 3, True);
StatsGuise('Walking to point');
FFlag(6);
Repeat
Wait(50 + Random(25));
Until FindDTMRotated(Q[3], X, Y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound);
End;
If FindDTMRotated(Q[3], X, Y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) Then
Begin
Mouse(x, y, 3, 3, True);
StatsGuise('Reached Tree');
FFlag(6);
End;
FrDTM;
end.
DTM Walking
Reply With Quote
