Snazzy form
Log option if too many players around
Play a sound if it gets stuck
Rice, If you want to post your edited one here, you can. this Project has many people involved, and adding another isn't a problem.
ConGrats CorrectJE~
Oh, and a thought keeps occurring to me, that I should somehow make a script to do the talent scout challenges, do you guys think its worth it? It might get your character stuck in a loop or something. I was just wondering if it was worth the headache.
Last edited by JN13; 03-11-2012 at 11:40 PM.
Currently: Very busy
Future Goals: finish nursing school, RS later.
Ok, I didn't know if you would get offended if i posted some of my fixes for it
Thats fine with me~ I'm still learning, and I am not opposed to getting help![]()
Currently: Very busy
Future Goals: finish nursing school, RS later.
Simba Code:3:
begin
writeln('Going To Jump');
MakeCompass('280');
sleep(100 + random(50));
if FindColorSpiralTolerance(x, y, 9545384, 0, 0, 232, 189, 14) then
begin
MMouse(x, y, 0, 0);
wait(10)
clickmouse2(true);
flag;
sleep(3900 + random(50));
sleepWhileMoving();
ClickNorth(SRL_ANGLE_HIGH);
end;
end;
This is my fix for it. As for 4. i just removed it
Ah. I thought of doing this! off to try it
looks great, works great, Added~ TY man.
Edit: guy was wearing white... totally clicked on him a ton. maybe make it a DTM?
Last edited by JN13; 03-12-2012 at 01:34 AM.
Currently: Very busy
Future Goals: finish nursing school, RS later.
DTM is a good idea too, my end else is a dtm too
Im also experimenting with your method for 15
Currently: Very busy
Future Goals: finish nursing school, RS later.
there is too many similar colors if your gonna do that for 15 i say do a DTM
ya, and then it becomes a nightmare because the compass must be exactly right. its doable though.
Its in testing, It works well, but sometimes it misclicks.
Last edited by JN13; 03-12-2012 at 02:38 AM.
Currently: Very busy
Future Goals: finish nursing school, RS later.
let me know if you need some help. my fixes are running for 6hrs+
agreed! the rope fix is wayyyyy to hard to do. it misclicks more than succeeds.
Currently: Very busy
Future Goals: finish nursing school, RS later.
your first procedure for it was fine with the sps and loopback.
Just watched the script successfully do a maze and continue, I am happy leaving it over night now![]()
Currently: Very busy
Future Goals: finish nursing school, RS later.
did i misspell it somewhere :0 if you guys want to post your edits i'm all ears
BTW: it needs 4 to stay as a failsafe, a timer between the plate and ledge, and a DTM for the plate is needed.
The next update I'm going to do is fix the report to run with the Script manager and save reports as text files.
Last edited by JN13; 03-12-2012 at 02:02 PM. Reason: Engrish iz Hrd
Currently: Very busy
Future Goals: finish nursing school, RS later.
Simba Code:program AdvanceBarbarianAgility;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Developer Log:
Original Author: Anyhow
Rewritten by: Failed4life
Johnnimms13
A hattip to [Nathan] for his skeleton of this script
--------------------------------------------------------------------------------
Version History:
0: Original by Anyhow
v1.0 - Initial Release
v1.01 - DTMs added, antiban fixed
v1.02 - Progress Report added! Thanks RyGuy for the help :)
v1.021 - Pie Support Added!
v1.022 - Bug fixes and SMART Paint added
v1.023 - New gap DMT, Pie Toggle Switch added
v1.03 - Customizable Hp checker, logs out if Hp is low
v1.031 - Bug Fixes
v1.4 - Code Overhaul
v1.05 - faster leaner code and more randomness. TY FootballJDS
v1.05a - more failsafes.
v1.06 - Multiple DTM's and better failsafes.
v1.07 - Standards, StatsGuise, Breaks, Report, ShortCuts, better Pie & Random Support.
-------------------------------------------------------------------------------
Instructions:
Use the Setup and position your player in the agility course by the ropes.
If you wish to use Summer Pies to boost your Agility level, have them in your
inventory.
Note: This Script requires atleast 85 agility to run with boosts, 90 to run
Without boosts, and 93+ to run without mistakes.
I don't recommend you run this with 85 without constant supervision.
---------------------------------------SETUP-----------------------------------}
const
//User Options
SERVER = 23; //Replace with desired server number
Username = ''; //Enter your Username
Password = ''; //Enter your Password
Nickname = '';
mmdebug = 0; //Enter 3-4 digits of your Username
TakeBreaks = True; //Will you take breaks?
WhenBreakMin = 45; //won't take a break before this (In Minutes)
WhenBreakMax = 120; //Maximum time before a Break (In Minutes)
ar = 1; //AntiRandom switch, turn of at your own risk (0 to disable)
PieLevel = 0; //What level would u like to eat a summer pie at? (0 to disable)
PLogOut = False; //True logs out when summer pies are gone
HP = 20; //LogsOut if below this percentage of HP
var
x,y:LongInt;
TimeBegan, Exp, NorthFace, loads, BreakTime,
StartingXP, LedgeCount, PF, LogTime:Integer;
aFound:Extended;
myPos: TPoint;
DTM: array [0..11] of integer;
var // debug vars please run, post proggies, support the script :)
RF, RoF, SC, LC, S2, S3, PC: Integer;
procedure AntiBan;
begin
if not(LoggedIn)then
Exit;
case 20 of
0: HoverSkill('Agility', false);
1: PickUpMouse;
2: RandomMovement;
3: RandomRClick;
end;
end;
procedure LogPlayer;
begin
WriteLn('********************************************************************');
WriteLn('Thank you for using Abba! Due to something wrong we are logging out');
WriteLn(' ABBA V 1.07 Johnnimms13, Failed4Life, Anyhow ' + ToStr(NorthFace));
WriteLn('********************************************************************');
Logout;
TerminateScript;
end;
procedure SetDTMs;
begin
DTM[0] := DTMFromString('mggAAAHicY2NgYMhlhuAQIK4D4jggbgHiNYwMDHsYIfRaIN4AxOuAWE2Jm0FSjJ2hujgOjPU1pcA0P9AsbJgRB4YAAPyFDAs=');
DTM[1] := DTMFromString('mbQAAAHicY2VgYPgCxA+A+D2U/R+I+5gYGCYAcS0QLwbibiBeNn0Cg7m2KkNajDMc8wPVomNGLBgMAOHvDUI=');
DTM[2] := DTMFromString('mAAEAAHic42FgYNjNxMAwGYiXA/FXIH4IxFeBuBOIhZgZGL4B6Q9A/BuIs4D8RkYGhhQgdgbiKUCcAcT2QDwZiOuAuBQqnwDEfCD5OFeGcCdpBnsjZYZIH3UI302NIS3GBSjGyeBmwcVgY8DBEOutyeBiqMbAD3QTKZiRRIwMACJAFwk='); //DTMFromString('m6wAAAHic42ZgYOgF4gQgngrEX4GYjZGBoRJI7wViTiDbDEinAfFNILZhYmBQBmJmIOYHYncgFgRiRiA2AeJwIL7PCJGP9tVgsNLjYEiLcWao71nGEOlnCGYn+mkxRPsYgdmxIXZgPj/QbGIxIwkYCQAA6qUSjQ==');
DTM[3] := DTMFromString('mPwEAAHic42dgYHgMxIeA+BUQXwfis0D8B4ifA/E7IL4MxJ+BWIqRgeERkH4DxNJA9jkg3QCkc4C4AIgzgbgbiDuBuAOImxkh8jVAnADEYUC8AohXQbGplixDiLM+Q06YDUNWiDWDra4Ug6m6OIOtgRKDkaoYGFtpSzKkxTgzhDtJMbjbiTL4uSkxeDqIMfAD7SYXM1KA0QAApVUd/A==');
DTM[4] := DTMFromString('mlwAAAHicY2dgYDjCxMBwCIinA/FTID4AxC+BeB0QSzMyMPwFqlEE0m5AbA7Er4B8diB9aO8KhrJkJ4aiBAeGkkRHhivndzCkhDszZMQHMPAD1eDCjHgwFAAAHCMSZQ=='); //DTMFromString('mbQAAAHicY2VgYOgD4kogXgXEM4G4BYj3AvERID4GZe8B4jvX9jG0FXoz9JUHgOmuEl8GfqA4OmbCgsEAAPGVDn0=');
DTM[5] := DTMFromString('mlwAAAHicY2dgYLjHxMCwBojPAvFOIH4BxAeA+D0QqzBCMCcQywGxHhC7A/E/oL7mPC+GvvIAhr3zsxg6i30ZFnZEM1w4tYWhLNmJgR8ojwsz4sFQAAAOWBKh'); //DTMFromString('mlwAAAHicY2dgYJjJyMDgBcT7gXg1EHcCcQ0Q7wXiRiDuB+JnQNwGxM1A3APEE4H40Z0jDMEpugx+NhIMMxvDGdoKfRi6S/0Z1k9JZuAHmosLM+LBUAAA9ScSYg==');
DTM[6] := DTMFromString('mlwAAAHicY2dgYKhhZGCIAuLFQJwJxEFAHAnE5UCcDMRaUDofiL2BOA6IbYG4orSIYev6CoZIP2uGvBhbBidTHYboABuG7TPTGPiB5uLCjHgwFAAAQUIOMw==');
DTM[7] := DTMFromString('mwQAAAHic42RgYJjKyMDQCMTVQDwXiHcA8SIgngjEi4G4BYhToTgBiKcD8RQgXgnETlCsB8QBbqZgXFtdwRDrLsMQ4KDMkBzlxGBvpMxga6DEkOhnxsAPtI8QZiQCwwEAtkIRHA==');
DTM[8] := DTMFromString('m6wAAAHic42ZgYHBkYmBQAuI9jAwMl4DYGMjmBGIhJgj7IFDsIhBvA+IyIL4GxE+A2BGItYG4FIgFgVgLqPYPkH4IxMeAONzfmkFJToqBj4+Xwd1SgSHcWZohLtSewc9GgiHURY0h2FmVwcdWCYz5ge4gFjOSgJEAAGFaEp8=');
DTM[9] := DTMFromString('m1gAAAHic42JgYPgNxO+AmJ+RgeEJkOYF0h+gYqxA9h8ovRlIXwDiy0A8CYinAfFWIF4IxAuAeB8QbwTiikQXBj8HCTAOd5ZmiAu1ZyiLd2aYXRPBML0qjKEoxhHM5wfZSQRmJBIjAAAQ1BeE');
DTM[10] := DTMFromString('m6wAAAHic42ZgYFjAyMDgC8T2QDwJiOuAeDoQqwLxfCCOBuIjQHXaQPobkF4GxJ+A2B3IZwTi20B2KpDeBqRvAvF8IFYB8kN8LBhczNQYvG24GWysLMH8yEBrBj5eXgZPKwWGtBgXMB3uJM3AD9RDLGYkASMBAC+fE7E=');
DTM[11] := DTMFromString('mggAAAHicY2NgYPgFxD+B+DoQrwPifUC8EojvMTIwbALi+0B8FIiZmBgYpgDppdP6GZL8dRhMNJUZarqWMzT1LGeI9TdlwAUYcWAIAACXJRAn');
end;
(*procedure FreeDTMs; //Thank you Footballjds
var
i, TempInt :integer;
begin
TempInt := High(DTM);
for i := 0 to TempInt do FreeDTM(DTM[i]);
end; *)
procedure StatsGuise(wat:String);
begin //Ty YoHoJo
Status(wat);
Disguise(wat);
end;
procedure Report;
begin
ClearDebug;
Exp := (GetXPBarTotal - StartingXP);
WriteLn('******************************************************************');
WriteLn(' AdvancedBarBarianAgility v1.07 by Johnnimms13 & Co.');
WriteLn('Time: ' + TimeRunning + ' Laps ' + IntToStr(Loads));
WriteLn('We have gained ' + IntToStr(Exp) + ' Agility Experience!');
WriteLn('******************************************************************');
WriteLn('Debug Stats:');
WriteLn('Blind Rope Failure: ' + IntToStr(Rf));
WriteLn('Total Ledge Failures: ' + IntToStr(LC));
WriteLn('First Spring DTM Failure: ' + IntToStr(S2));
WriteLn('Second Spring DTM Failure: ' + IntToStr(S3));
WriteLn('Times Clicked Pole over laps: ' + IntToStr(PC) + '/' + IntToStr(Loads));
WriteLn('Roof Failure: ' + IntToStr(RoF));
WriteLn('SPS Start Count over Laps: ' + IntToStr(SC) + '/' + IntToStr(Loads));
WriteLn('******************************************************************');
end;
function OnPole: Boolean;
begin
If FindColorTolerance(x, y, SRL_BlackColor, 627, 82, 627, 82, 15) then
result := True;
end;
procedure AntiRandoms;
begin
if ((not LoggedIn) or (ar = 0) or (OnPole)) then
Exit;
FindNormalRandoms;
AntiBan;
end;
procedure ResetBreakTimer;
begin
BreakTime := GetSystemTime + RandomRange((WhenBreakMin) * 60000, (WhenBreakMax) * 60000);
end;
procedure TakeBreak;
var //ty Inception
H, M, S, T, BreakFor: Integer;
begin
if (GetSystemTime >= BreakTime) and TakeBreaks then
begin
Logout;
BreakFor := RandomRange(10 * 60000, 25 * 60000); // Between 10-25 minutes
ConvertTime(BreakFor, H, M, S);
Writeln('Break for: ' + IntToStr(M)+ 'm:' + IntToStr(S)+ 's');
MarkTime(T);
Repeat
Wait(1000);
until (BreakFor < TimeFromMark(T))
LogInPlayer;
ResetBreakTimer;
Wait(4000);
FindNormalRandoms;
end;
end;
function mmBlack:Boolean;
var blackSpot : array [0..7] of TPoint;
var color : array [0..7] of Integer;
var i,kk,res:Integer;
begin
result:= false;
blackSpot[0]:= Point(587,43);
blackSpot[1]:= Point(575,112);
blackSpot[2]:= Point(577,115);
blackSpot[3]:= Point(672,122);
blackSpot[4]:= Point(627,139);
blackSpot[5]:= Point(611,134);
blackSpot[6]:= Point(622,152);
blackSpot[7]:= Point(622,152);
color[0]:= 512;
color[1]:= 393990;
color[2]:= 198400;
color[3]:= 65537;
color[4]:= 131072;
color[5]:= 1797;
color[6]:= 459782;
color[7]:= 328705;
res := 0;
for i := 0 to 7 do
begin
for kk := 0 to 7 do
begin
if(FindColorTolerance(x,y,color[kk],blackSpot[i].x,blackSpot[i].y,blackSpot[i].x,blackSpot[i].y,7)) then
begin
res := res + 1;
//debug
if mmdebug = 1 then
writeln('i = ' + inttostr(i) + ' kk = ' + inttostr(kk));
end;
end;
end;
if(res > 7) then
result:= true;
end;
function Wfloor:Integer;
begin
result:= 99;
if((FindColorTolerance(x,y,2247007,633,56,633,56,15) or
FindColorTolerance(x,y,2247007,629,52,629,52,15) or
FindColorTolerance(x,y,2247007,628,60,628,60,15) or
FindColorTolerance(x,y,2247007,634,51,634,51,15) or
FindColorTolerance(x,y,2247007,633,60,633,60,15) or
FindColorTolerance(x,y,2247007,629,49,629,49,15)) and
FindColorTolerance(x,y,395009,634,84,634,84,15) and
(mmblack())) then
result:= 10;
if((FindColorTolerance(x,y,1655633,615,84,615,84,15) or
FindColorTolerance(x,y,1521998,621,57,621,57,15)) and
(mmblack())) then
result:= 11;
if((FindColorTolerance(x,y,1853268,630,113,630,113,15) or
FindColorTolerance(x,y,1853268,636,116,636,116,15)) and (mmblack())) then
result:= 12;
if(FindColorTolerance(x,y,4873321,530,184,530,184,15) and (mmblack())) then
result:= 13;
if((FindColorTolerance(x,y,2180188,621,113,621,113,15) or
FindColorTolerance(x,y,2180188,625,114,625,114,15) or
FindColorTolerance(x,y,2180188,627,112,627,112,15) or
FindColorTolerance(x,y,2180188,622,113,622,113,15)) and
FindColorTolerance(x,y,393218,643,114,643,114,15) and
FindColorTolerance(x,y,393218,632,114,632,114,15) and
not(FindColorTolerance(x,y,4873321,530,184,530,184,15))and
(mmblack())) then
result:= 14;
(*function Wfloor:Integer;
begin
result:= 99;
if((FindColorTolerance(x,y,2247007,633,56,633,56,15) or
FindColorTolerance(x,y,2247007,629,52,629,52,15) or
FindColorTolerance(x,y,2247007,628,60,628,60,15) or
FindColorTolerance(x,y,2247007,634,51,634,51,15) or
FindColorTolerance(x,y,2247007,633,60,633,60,15) or
FindColorTolerance(x,y,2247007,629,49,629,49,15)) and
FindColorTolerance(x,y,395009,634,84,634,84,15) and
(PercentBlackMM > 95)) then
result:= 10;
if((FindColorTolerance(x,y,1655633,615,84,615,84,15) or
FindColorTolerance(x,y,1521998,621,57,621,57,15)) and
(PercentBlackMM > 95)) then
result:= 11;
if((FindColorTolerance(x,y,1853268,630,113,630,113,15) or
FindColorTolerance(x,y,1853268,636,116,636,116,15)) and (PercentBlackMM > 95)) then
result:= 12;
if(FindColorTolerance(x,y,4873321,530,184,530,184,15) and (PercentBlackMM > 95)) then
result:= 13;
if((FindColorTolerance(x,y,2180188,621,113,621,113,15) or
FindColorTolerance(x,y,2180188,625,114,625,114,15) or
FindColorTolerance(x,y,2180188,627,112,627,112,15) or
FindColorTolerance(x,y,2180188,622,113,622,113,15)) and
FindColorTolerance(x,y,393218,643,114,643,114,15) and
FindColorTolerance(x,y,393218,632,114,632,114,15) and
not(FindColorTolerance(x,y,4873321,530,184,530,184,15))and
(PercentBlackMM > 95)) then
result:= 14;
end; *)
end;
function distanceTo(var point:TPoint): Extended;
var myLoc:TPoint;
begin
myLoc:= SPS_GetMyPos();
Result:= Distance(point.x, point.y, myLoc.x, myLoc.y);
end;
procedure sleepWhileMoving();
var t:Integer;
begin
t := 0;
while((IsMoving) and (t < 7)) do
begin
StatsGuise('Sleeping '+tostr(t));
sleep(250+random(5))
t:=t+1;
end;
end;
procedure EatPie;
var SPie, HPie, x, y: integer;
begin
if PieLevel > 0 then
begin
SPie := DTMFromString('mlwAAAHicY2dgYPjIxMDwFoi/I9FfgPgDEL9kZGB4xgih3wPxYyB+B8SPgDhLTxGOK9JMGVJCdRiyovQZov00GPiB5uLCjHgwFAAAE+UTaw==');
HPie := DTMFromString('mggAAAHicY2NgYHBhYmAwB2JHIHYCYmsg9gTiB0C5R0D8AojvAPFdIH4MxGGqUgyZkXoMEb7WDLkJtgwJQVoM5Rn+DPxAOWyYEQeGAAAW8Qy0');
if GetSkillInfo('agility', True) < (PieLevel+1) then
begin
StatsGuise('below 91 agility, trying to find pie');
if ExistsItemDTM(spie, x, y) then
begin
StatsGuise('found pie');
mouse(x, y, 2, 2, true);
end else
if ExistsItemDTM(hpie, x, y) then
begin
StatsGuise('found 1/2 pie');
mouse(x, y, 2, 2, true);
end else
begin
StatsGuise('no pies!')
if PLogOut = True then
begin
WriteLn('Logging out: Logout When Pies is ON');
logPlayer;
end;
end;
end else
begin
StatsGuise('No Pie for you!');
end;
freedtm(SPie);
FreeDtm(HPie);
end;
end;
function getLocation(): integer;
var First, Second, Third, Fourth: TPoint;
begin
result := 0;
if (mmblack = true) then
//if (blackmm > 96) then
result := Wfloor()
else
begin
First := Point(2045, 2430); //Beginning Point
Second := Point(2045, 2445); //After swinging the rope
Third := Point(2005, 2460); //After log balancing
Fourth := Point(1995, 2475); //Before running up the wall
if ((distanceTo(First) <= 6) and (myPos.y < 2435)) then
begin
result:=1;
exit;
end;
if (distanceTo(Second) <= 7) then
begin
result:=2;
exit;
end;
if (distanceTo(Third) <= 10) then
begin
result:=3;
exit;
end;
if (distanceTo(Fourth) <= 10) then
begin
result:=4;
exit;
end;
end;
end;
procedure handleObstacle(spot: integer);
begin
If NorthFace >= 10 then
begin
ClickNorth(SRL_ANGLE_HIGH);
DecEx(NorthFace, 10);
end;
case spot of
0:
(*if FindDTMRotated(DTM[10], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
Mouse(x, y, 3, 3, True);
StatsGuise('Walking to begin by DTM')
sleepWhileMoving();
exit;
end; *)
begin
LedgeCount := 0;
IncEx(SC, 1);
StatsGuise('Walk to beginning');
SPS_WalkToPos(Point(2045, 2430));
sleepWhileMoving();
end;
1:
begin
begin
StatsGuise('rope');
if IsUpTextMultiCustom(['ope', 'wing']) then
Begin
ClickMouse2(true);
sleep(2700+random(175));
sleepWhileMoving();
Report;
exit;
end else
if FindDTMRotated(DTM[0], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
WriteLn('Blind Method Failed... Trying DTM (this happens Most of the time dont worry)');
IncEx(RF, 1);
Mouse(x, y, 3, 3, True);
sleep(2300+random(175));
sleepWhileMoving();
end;
end
end;
2:
begin
StatsGuise('log');
if FindDTMRotated(DTM[1], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) or FindDTMRotated(DTM[11], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
Mouse(x, y, 3, 3, True);
sleep(1900+random(150));
sleepWhileMoving();
IncEx(NorthFace, 1);
end;
end;
3:
begin
StatsGuise('Walking To plate');
if FindDTMRotated(DTM[2], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
Mouse(x, y, 3, 3, True);
sleep(200 + random(50));
//sleepWhileMoving();
end;
end;
4:
begin
StatsGuise('hitting plate');
if FindDTMRotated(DTM[3], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
Mouse(x, y, 3, 3, True);
sleep(6000+random(150));
sleepWhileMoving();
end
end;
10:
begin
begin
MMouse(205, 120, 3, 3);
wait(100 + random(25));
StatsGuise('Climb up Ledge');
if isUptextEx('all') then
begin
ClickMouse2(true);
sleep(3300+random(150));
sleepWhileMoving();
exit;
end else
if FindObjEx(x, y, ['limb', 'up'], [3624802], 5, 40, 174, 78, 253, 247) then
begin
Mouse(x, y, 0, 0, True);
sleep(3300+random(150));
sleepWhileMoving();
end;
end
end;
11:
begin
begin
case random(5) of
1:
mmouse(142, 177, 3, 3);
2:
mmouse(134, 192, 3, 3);
3:
mmouse(160, 192, 3, 3);
4:
mmouse(147, 202, 3, 3);
5:
mmouse(132, 210, 3, 3);
end;
wait(100 + random(25));
if isuptext('pring') then
begin
StatsGuise('Firing Spring');
clickmouse2(true);
sleep(4500+random(150));
sleepWhileMoving();
exit;
end else
begin
WriteLn('blind spring Click Failed... trying first DTM');
if FindDTMRotated(DTM[4], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
IncEx(S2, 1);
Mouse(x, y, 3, 3, True);
sleep(4000+random(150));
sleepWhileMoving();
end else
begin
WriteLn('Second spring DTM failed... Trying second');
if FindDTMRotated(DTM[5], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
IncEx(S3, 1);
Mouse(x, y, 3, 3, True);
sleep(4000+random(150));
sleepWhileMoving();
end;
end;
end;
end;
end;
12:
begin
StatsGuise('Pole');
if FindDTMRotated(DTM[7], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
Mouse(x, y, 0, 0, True);
sleep(2500+random(150));
sleepWhileMoving();
end else
begin
writeln('Pole 2');
if FindDTMRotated(DTM[6], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
Mouse(x, y, 0, 0, True);
sleep(2500+random(150));
sleepWhileMoving();
end else
begin
If PF >= 10 then
LogPlayer;
IncEx(PF, 1);
exit;
end;
end;
IncEx(PC, 1);
end;
13:
begin
StatsGuise('Gap');
case random(3) of
1:
MMouse(267, 176, 5, 5);
2:
MMouse(276, 176, 5, 5);
3:
MMouse(267, 162, 5, 5);
end
PF := 0;
if isUptextEx('ump') then
begin
ClickMouse2(True);
wait(3000+random(100));
end else
exit;
end;
14:
begin
StatsGuise('WEEEEEE!');
IncEx(Loads, 1);
MMouse(330, 178, 10, 10);
wait(50 + random(50));
if isUptextEx('oof') then
begin
ClickMouse2(True);
Sleep(1300 + random(200));
wait(2500+random(100));
end;
begin
if FindDTMRotated(DTM[8], x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
StatsGuise('ShortCut');
Mouse(x, y, 1, 1, True);
sleep(600+random(70));
MMouse(255, 185, 5, 5);
sleep(200+random(70));
sleepWhileMoving();
end;
end;
Report;
end;
end;
MarkTime(LogTime);
end;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := Username;
Players[0].Pass := Password;
Players[0].Nick := Nickname;
Players[0].Active := True;
end;
procedure LogMeIn;
begin
LoginPlayerToLob;
OpenWorldScreen;
SelectWorld(SERVER);
LoginPlayer;
end;
{//////////////////////////////////Main Loop///////////////////////////////////}
begin
Smart_Server := SERVER;
Smart_Members := True;
SetupSRL;
DeclarePlayers;
SPS_Setup(RUNESCAPE_SURFACE, ['4_5','4_6']);
TimeBegan := GetSystemTime;
ToggleXPBar(True);
StartingXP := (GetXPBarTotal);
ResetBreakTimer;
SetDTMs;
if not(LoggedIn) then
LogMeIn;
while not(LoggedIn) do
sleep(1000);
ClickNorth(SRL_ANGLE_HIGH);
while(true) do //Main loop
begin
MarkTime(LogTime);
while not(LoggedIn) do
LoginPlayer;
// EatPie; //comment this to speed up your script! Disables pies.
//TakeBreak;
AntiRandoms;
handleObstacle(getLocation());
myPos := SPS_GetMyPos();
if TimeFromMark(LogTime) > 100000 Then
begin
WriteLn('Idle Too Long');
LogPlayer;
end;
end;
end.
Here it is, aint that fast 43k XP an hour but it is flawless. oh .. and i copy pasted the mmblack from another barbarian agility script.
Okay, I am a total noob to Simba. This script looks great and would like to use it. When I download it and open it in Simba and run the scrip, my character just stands there. What should I do?
************************************************** ****************
AdvancedBarBarianAgility v1.07 by Johnnimms13 & Co.
Time: 5 Hours, 3 Minutes and 21 Seconds Laps 342
We have gained 211034 Agility Experience!
************************************************** ****************
heres an awesome proggie I just racked up. I put a DTM on the plate procedure.
Currently: Very busy
Future Goals: finish nursing school, RS later.
Ah! ok, so u used the original mmblack (basically a custom autocolor). With the new random update they took out the mmblack functions I was using, but Harry put them back inAlso, the thing that probably cuts the speed, is in your version you have all the "fat" that can be simplified with srl procedures. That was my biggest problem.
my phone must hate me, sorry about the double post.
Last edited by JN13; 03-12-2012 at 07:13 PM.
Currently: Very busy
Future Goals: finish nursing school, RS later.
I've setup everything successfully. Im having problem with the script.
There are currently 1 users browsing this thread. (0 members and 1 guests)