Not starting for me.
Thanks for doing that, it is a pain when it is the same comments on all my scripts lol. Depending on how they decide to fix the include, I may or may not have to make a few adjustments to this script as it uses a lot of coordinate boxes and what not. Wouldn't take much time to update at all though.
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
Hey an no issue. I always see this "when is updated?" "mine doesn't work" "whats wrong" all in a row. if they just took some time to read they would notice there was an update and this probably isn't the only thing you do all day. It annoys me and im not even doing scripts.....
400k xp/hr!?! how did I not know about this! I've been settling for some crappy 170k xp/hr script on PB
will definitely wait for this script to be updated before i continue my road to 99 construction. cant wait!
99's achieved since using Simba
Runecrafting, Herblore, Magic, Prayer, Farming, Mining, Smithing, Dungeoneering, Construction, Crafting
Currently Training - Slayer **/99
Goal: Max Cape
I never managed to get this one to work, but the Larder Script is a masterpiece!
But yea guys you will have to wait for Wizzup to push an update to be official or use the CustomFix which Brandon came up with!
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
Is this currently working? I started it standing in front of the north door in a stairs room with a full invy of oak planks and the butler running to bank, and it doesn't do anything just stands there. It's extremely annoying because everytime I log out I have to keep luring the butler back to the dungeon.
Try reading through the last page posts, I'll copy and paste my last response:
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
Does that mean it works with the update that brought the little navigation bar at the top of the screen? Given that people did the temporary ghetto fix to get smart working.V1.9 - speedy gonzales, changed where you must stand for it to work, update to be compatible with RS interface update
Last edited by Gregbot; 07-24-2012 at 10:49 AM.
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
Oh alright thanks for the heads up ashaman
Never used this script before but after editting it to make it work with the new updates heres what I got.
=========AshamanDoorer==========
=========Version: 1.10==========
Mode: HyperDrive
Time Running: 19 Minutes and 33 Seconds
Experience Earned: 69600
Experience/Hour: 213432
Doors/H: 356
Is that good or bad?
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
Has this been updated to be used with the latest version of simba?
(I can never get it working when I do the editing myself...)
Sinking. Always. Sinking.
150kxp p/h :L dang help? or tips?
I don't know if this is ok or not but here is what I have and it works for me.
Sorry if I've over stepped the mark ashaman88, if you have a problem with this post just message me when you get back.
Simba Code:Program AshamanDoorer;
{$define SMART}
{$i srl/srl.simba}
{$I SRL/SRL/Misc/Debug.simba}
{
AshamanDoorer v1.10
-Make sure you have a full load of Oak Planks on you
-Make sure you are ONLY USING DEMON BUTLER
-Make sure you have already told the demon butler to go get 26 planks
-Make sure you are standing in the right place. The Door recess in the furthest room you have in the cardinal direction you chose.
}
///////////////////////////////////////////////////////////////////////
// //
// Begin of user setup //
// Fill in the fields below //
// //
///////////////////////////////////////////////////////////////////////
Const
SRLStats_Username = ''; // ***Leave blank if you don't have a stats account***
SRLStats_Password = '';
Direction = 'S'; // ***Set this to opposite whatever direction your door is (like the picture)***
HyperDriveMode = True; // ***Set this to true if you want super fast, might break with slower connections!!!***
//////////////////////////////////////////////////////////////////////////////////////////////////////
// //
// //
// Don't touch below this line unless you know what you're doing!! //
// //
//////////////////////////////////////////////////////////////////////////////////////////////////////
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Active := True;
End;
Const
DoorX1=248;
DoorY1=159;
DoorX2=278;
DoorY2=179;
ScriptVersion = '1.10';
Debug = False;
Var
DoorCount,XP,StartTime,StartingExperience,DoorsPH,XPH,Timeout: Integer;
Count,Start: Integer;
FirstMouse: Boolean;
{*******************************************************************************
All of these mouse movements are credited to benland100 and flight
*******************************************************************************}
//By Bandland100, modified to shift mouse speeds after every step
procedure SuperWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended);
var
veloX,veloY,windX,windY,veloMag,dist,randomDist,lastDist,step: extended;
lastX,lastY,MSP,W: integer;
sqrt2,sqrt3,sqrt5: extended;
begin
MSP := MouseSpeed;
sqrt2:= sqrt(2);
sqrt3:= sqrt(3);
sqrt5:= sqrt(5);
while hypot(xs - xe, ys - ye) > 1 do
begin
dist:= hypot(xs - xe, ys - ye);
wind:= minE(wind, dist);
if dist >= targetArea then
begin
windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
end else
begin
windX:= windX / sqrt2;
windY:= windY / sqrt2;
if (maxStep < 3) then
begin
maxStep:= random(3) + 3.0;
end else
begin
maxStep:= maxStep / sqrt5;
end;
end;
veloX:= veloX + windX;
veloY:= veloY + windY;
veloX:= veloX + gravity * (xe - xs) / dist;
veloY:= veloY + gravity * (ye - ys) / dist;
if hypot(veloX, veloY) > maxStep then
begin
randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
veloMag:= sqrt(veloX * veloX + veloY * veloY);
veloX:= (veloX / veloMag) * randomDist;
veloY:= (veloY / veloMag) * randomDist;
end;
lastX:= Round(xs);
lastY:= Round(ys);
xs:= xs + veloX;
ys:= ys + veloY;
case Random(50) of
1..25: W := (MSP + (Random((MSP/4))));
26..50: W := (MSP - (RandomRange((MSP/2), MSP-1)));
end;
if (W < 1) then
W := 1;
if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
MoveMouse(Round(xs), Round(ys));
step:= hypot(xs - lastX, ys - lastY);
//W := round((maxWait - minWait) * (step / maxStep) + minWait);
wait(W);
lastdist:= dist;
end;
if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
MoveMouse(Round(xe), Round(ye));
MouseSpeed := MSP;
end;
Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,j,Dist,MP: integer;
begin
j := MouseSpeed;
GetMousePos(X, Y);
Dist := Distance(X, Y, eX, eY);
MP := Round(Dist/150);
if MP < 0 then
MP := 1;
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
X2 := RandomRange(eX-(j*MP), eX+(j*MP));
Y2 := RandomRange(eY-(j*MP), eY+(j*MP));
SuperWindMouse(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
GetMousePos(X, Y);
MMouse(eX, eY, ranX, ranY);
MouseSpeed := j;
end;
Procedure FailSafe;
Var
T: Integer;
Begin
If Debug Then
Writeln('Misclicked, doing failsafe!');
If Not LoggedIn Then
Exit;
Mouse(259,189,4,4,True);
Wait(RandomRange(400,500));
MarkTime(T);
Repeat
Wait(100);
If TimeFromMark(T)>5000 Then
Exit;
Until (Not(Ismoving));
End;
Procedure TypeFast(Text: String);
Var
I: Integer;
Begin
For I:=1 to Length(Text) Do
{$IFDEF SIMBAMAJOR980}
SendKeys(Text[I], 10 + Random(2));
{$ELSE}
SendKeys(Text[I], 10 + Random(2), 10 + Random(2));
{$ENDIF}
End;
Function CheckDoor: Boolean;
Var
CTS: Integer;
TPA: TPointArray;
ATPA: T2DPointArray;
Begin
Result:=False;
If(Not(LoggedIn)) Then
Exit;
CTS:= GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.07,0.39);
FindColorsSpiralTolerance(MSCX,MSCY,TPA,4480367,215,160,267,186,17);
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
ATPA := TPAtoATPAEx(TPA,10,10);
If Debug Then
DebugATPABounds(ATPA);
If Debug Then
Writeln(Length(ATPA));
If (Length(ATPA) < 10) Then
Begin
If Debug Then
Writeln('Door is not present')
End Else
Begin
Result:=True;
If Debug Then
Writeln('Door is present.');
End;
End;
Function FindButler: Boolean; Forward;
Function FindDoor: Boolean;
Var
X,Y,H,H2,I,CTS,T,POSX,POSY: Integer;
TPA: TPointArray;
ATPA: T2DPointArray;
QuickClick: Boolean;
Begin
Result := False;
QuickClick:=False;
If Not LoggedIn Then
Exit;
If Not HyperDriveMode Then
If Start = 1 Then
Begin
If Debug Then
Writeln('Sending butler 1st time');
MarkTime(T);
Repeat
Wait(100);
If TimeFromMark(T) > 10000 Then
Begin
If Debug Then
Writeln('Took too long to find butler');
Break;
End;
Until FindButler;
End;
CTS:= GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.07,0.39);
FindColorsSpiralTolerance(MSCX,MSCY,TPA,4480367,DoorX1,DoorY1,DoorX2,DoorY2,17);
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
ATPA := TPAtoATPAEx(TPA,20,20);
If Debug Then
DebugATPABounds(ATPA);
If (Length(ATPA) = 0) Then
Begin
If Debug Then
Writeln('No door colors found.');
Exit;
End;
H := High(ATPA);
If H < 2 Then
H2 := H Else
H2 := 2;
For I := 0 To H Do
Begin
MiddleTPAEx(ATPA[I], X, Y);
GetMousePos(POSX,POSY);
If (Not PointInBox(Point(POSX,POSY),IntToBox(DoorX1,DoorY1,DoorX2,DoorY2))) Then
Begin
If Debug Then
Writeln('Moving Mouse to door');
HumanMMouse(X,Y,5,5);
End Else
If Debug Then
Writeln('Mouse already in POS, door');
If (WaitUpTextMulti(['Open','pen','Door','oor','utle','tler','Butl'],RandomRange(300,400))) Then
Begin
If Debug Then
Writeln('Found door, clicking');
ClickMouse2(False);
If (QuickClick) And (OptionsExist(['emove'],False)) Then
ClickMouse2(True) Else
Begin
If Debug Then
Writeln(GetChooseOptions('all'));
If Not WaitOption('emove',RandomRange(700,900)) Then
Exit;
End;
If Debug Then
Writeln('Clicked option to remove.');
If DidYellowClick Then
Begin
FailSafe;
FirstMouse:=True;
Exit;
End;
MarkTime(T);
Repeat
Wait(Random(200));
If (TimeFromMark(T) > 4000) Then
Begin
If Debug Then
Writeln('Yes did not popup, trying again.');
Exit;
End;
Until (FindNPCChatText('Yes',Nothing));
TypeFast('1');
MarkTime(T);
Repeat
If CountColor(37083,141,374,378,470)>0 Then
Break;
If TimeFromMark(T)>4000 Then
Begin
If Debug Then
Writeln('Didnt find orange highlight color for saying yes');
Exit;
End;
Until False;
If Count < 2 Then
MouseBox(DoorX1,DoorY1,DoorX2,DoorY2,Mouse_Move);
Result := True;
Exit;
End;
End;
End;
Function FindButler: Boolean;
Var
X,Y,H,H2,I,CTS,T,Inventory: Integer;
TPA: TPointArray;
ATPA: T2DPointArray;
Label
Jump;
Begin
Result := False;
Inventory:=0;
If Not LoggedIn Then
Exit;
FindNormalRandoms;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.30,1.21);
FindColorsSpiralTolerance(MSCX,MSCY,TPA,1580857,182,86,339,252,12);
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2,0.2);
ATPA := TPAtoATPAEx(TPA,20,20);
If Debug Then
DebugATPABounds(ATPA);
If (Length(ATPA) = 0) Then
Begin
If Debug Then
Writeln('No butler found.');
If (OptionsExist(['Exam','mine','Examine','Canc','ncel','Cancel'],False)) Then
Begin
If Debug Then
Writeln('Closing options menu');
MMouse(50,50,100,100);
End;
Exit;
End;
H := High(ATPA);
If H < 4 Then
H2 := H Else
H2 := 4;
For I:= 0 To H2 Do
Begin
MiddleTPAEx(ATPA[I],X,Y);
Jump:
If Not (IsUpTextMultiCustom(['utle','tler','Butl'])) Then
HumanMMouse(X,Y,4,4);
If (WaitUpTextMulti(['utle','tler','Butl'],RandomRange(250,300))) Then
Begin
If Debug Then
Writeln('Found Butler, Clicking.');
ClickMouse2(False);
If WaitOptionMulti(['etch','from','bank'],RandomRange(700,900)) Then
Begin
If Debug Then
Writeln('Found fetch option.');
If DidYellowClick Then
Begin
FailSafe;
FirstMouse:=True;
Exit;
End;
MarkTime(T);
Repeat
If CountColor(37083,141,374,378,470)=0 Then
Break;
If TimeFromMark(T)>4000 Then
Begin
If Debug Then
Writeln('Orange highlight color for paying butler didnt go away');
Exit;
End;
Until False;
MarkTime(T);
Repeat
Wait(Random(200));
If TimeFromMark(T) > 8000 Then
Begin
If Debug Then
Writeln('Didnt find butler chat option timeout');
Break;
End;
Until ((FindNPCChatText('coins',Nothing)) Or (FindNPCChatText('nother', Nothing)));
If FindNPCChatText('coins',Nothing) Then
Begin
If Debug Then
Writeln('Paying butler');
ClickContinue(True,True);
TypeFast('1');
MarkTime(T);
Repeat
If CountColor(37083,141,374,378,470)>0 Then
Break;
If TimeFromMark(T)>4000 Then
Begin
If Debug Then
Writeln('Didnt find orange highlight color for paying butler');
Exit;
End;
Until False;
MarkTime(T);
If Inventory=0 Then
Repeat
If TimeFromMark(T)>600 Then
Begin
HumanMMouse(X,Y,4,4);
ClickMouse2(True);
Inventory:=Inventory+1;
Break;
End;
Until InvFull;
If TimeFromMark(T)>600 Then
GoTo Jump;
If Debug Then
Writeln('Re-clicking butler');
GoTo Jump;
End;
MarkTime(T);
If Inventory=0 Then
Repeat
If TimeFromMark(T)>600 Then
Begin
HumanMMouse(X,Y,4,4);
ClickMouse2(True);
Inventory:=Inventory+1;
Break;
End;
Until InvFull;
If TimeFromMark(T)>600 Then
GoTo Jump;
If (FindNPCChatText('nother', Nothing)) Then
Begin
If Debug Then
Writeln('Sending for more planks.');
TypeFast('1');
MarkTime(T);
Repeat
If CountColor(37083,141,374,378,470)>0 Then
Break;
If TimeFromMark(T)>4000 Then
Begin
If Debug Then
Writeln('Didnt find orange highlight color for paying butler');
Exit;
End;
Until False;
MouseBox(DoorX1,DoorY1,DoorX2,DoorY2,Mouse_Move);
Count:= 0;
Result:= True;
If HyperDriveMode Then
If CheckDoor Then
If FindDoor Then
Begin
MarkTime(T);
Repeat
Wait(Random(200));
If TimeFromMark(T)>6000 Then
Break;
Until Not CheckDoor;
End;
Exit;
End;
End;
End;
End;
End;
Function FindEmpty:Boolean;
Var
H,H2,I,CTS,T,X,Y,POSX,POSY: Integer;
TPA: TPointArray;
ATPA: T2DPointArray;
QuickClick: Boolean;
Begin
Result := False;
QuickClick:=False;
If(Not(LoggedIn)) Then
Exit;
If TimeFromMark(Timeout) > 35000 Then
Begin
Writeln('Something went wrong, checking for open door');
If Not CheckDoor Then
Begin
Writeln('Didnt find open door, shutting down');
TerminateScript;
End Else
MarkTime(Timeout);
End;
If Not HyperDriveMode Then
Begin
If (Count >= 2) And (Not InvFull) Then
Begin
If Debug Then
Writeln('Count too high, sending for butler');
MarkTime(T);
Repeat
If TimeFromMark(T) > 10000 Then
Begin
If Debug Then
Writeln('Took too long to find butler');
Break;
End;
Until FindButler;
End;
End Else
Begin
If (InvFull) Or (Count >= 2) Or (InvCount<10) Then
Begin
If Debug Then
Writeln('Count too high, sending for butler');
MarkTime(T);
Repeat
If TimeFromMark(T) > 4000 Then
Begin
If Debug Then
Writeln('Took too long to find butler');
Break;
End;
Until FindButler;
End;
End;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.51,0.02);
FindColorsSpiralTolerance(MSCX,MSCY,TPA,7435639,DoorX1,DoorY1,DoorX2,DoorY2,17);
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.2, 0.2);
ATPA := TPAtoATPAEx(TPA, 20, 20);
If Debug Then
DebugATPABounds(ATPA);
If (Length(ATPA) = 0) Then
Begin
If Debug Then
Writeln('No empty door found');
Exit;
End;
H := High(ATPA);
If H < 2 Then
H2 := H Else
H2 := 2;
For I := 0 To H2 Do
Begin
MiddleTPAEx(ATPA[I],X,Y);
GetMousePos(POSX,POSY);
If (Not PointInBox(Point(POSX,POSY),IntToBox(DoorX1,DoorY1,DoorX2,DoorY2))) Then
Begin
If Debug Then
Writeln('Moving Mouse');
HumanMMouse(X,Y,5,5);
End Else
If Debug Then
Writeln('Mouse already in position');
If (WaitUpTextMulti(['Wal','alk','utle','tler','Butl'],300)) Then
Begin
If Debug Then
Writeln('Found empty door spot, clicking.');
ClickMouse2(False);
If InvCount<10 Then
Begin
If HyperDriveMode Then
Exit;
If Debug Then
Writeln('Count >=1, waiting for supplies');
If WaitOptionMultiEx(['uild','Buil'],'all',Move,RandomRange(700,900)) Then
Begin
If Debug Then
Writeln('QuickClick=True');
QuickClick:=True;
End Else
If Debug Then
Writeln(GetChooseOptions('all'));
MarkTime(T);
Repeat
Wait(100);
If (TimeFromMark(T)>6000) Then
Begin
If Debug Then
Writeln('No supplies for too long');
Break;
End;
Until (InvCount >= 10);
If InvCount < 10 Then
Begin
If Debug Then
Writeln('Still low on supplies, sending for butler.');
If (OptionsExist(['Exam','mine','Examine','Canc','ncel','Cancel'],False)) Then
Begin
If Debug Then
Writeln('Closing options menu');
MMouse(50,50,100,100);
End;
FindButler;
QuickClick:=False;
If Debug Then
Writeln('Re-clicking door.');
HumanMMouse(X,Y,5,5);
ClickMouse2(False);
Marktime(T);
Repeat
Wait(100);
Until ((InvCount >= 10) or (TimeFromMark(T) > 30000))
End;
If InvCount < 10 Then
Begin
Writeln('Out of supplies. Goodbye!');
Logout;
Terminatescript;
End;
End;
If (QuickClick) And (OptionsExist(['uild','Buil','Cance'],False)) Then
ClickMouse2(True) Else
Begin
If Debug Then
Writeln(GetChooseOptions('all'));
If Not WaitOptionMulti(['uild','Buil'],RandomRange(700,900)) Then
Exit;
End;
If Debug Then
Writeln('Clicked build option.');
If DidYellowClick Then
Begin
FailSafe;
FirstMouse:=True;
Exit;
End Else
Begin
FirstMouse:=True;
Result:= True;
Exit;
End;
End;
End;
End;
Procedure ProgressReport;
Var
Mode: String;
Begin
If Not Debug Then
ClearDebug;
XP := (GetXPBarTotal - StartingExperience);
XPH := Round(XP * (3600.0 / (GetTimeRunning / 1000.0)));
DoorCount := Round((XP) / (600));
DoorsPH := Round((DoorCount * (3600.0 / (GetTimeRunning / 1000.0))));
If HyperDriveMode Then
Mode:='HyperDrive' Else
Mode:='Normal';
Writeln('=========AshamanDoorer==========');
Writeln('=========Version: '+ScriptVersion+'==========')
Writeln('Mode: ' + Mode);
Writeln('Time Running: ' + TimeRunning);
Writeln('Experience Earned: ' + IntToStr(XP));
Writeln('Experience/Hour: ' + IntToStr(XPH));
Writeln('Doors/H: ' + IntToStr(DoorsPH));
Writeln('================================');
Stats_IncVariable('Oak Doors (Constructed)', 1);
Stats_Commit;
MarkTime(Timeout);
End;
Function FindBuild:Boolean;
Begin
Result := False;
If Not LoggedIn then
Exit;
If Debug Then
Writeln('Moving mouse to build door icon.');
MouseBox(188,60,242,100,Mouse_Move);
If WaitUpTextMulti(['uild','Bui','Bu'],RandomRange(2000,2200)) Then
Begin
If Debug Then
Writeln('Build icon is up, clicking.');
ClickMouse2(True);
If FlagPresent Then
Begin
FailSafe;
FirstMouse:=True;
FindEmpty;
End Else
Begin
Count:= Count + 1;
Start:= Start +1;
Result:=True;
MouseBox(DoorX1,DoorY1,DoorX2,DoorY2,Mouse_Move);
End;
End Else
Writeln(GetUpText);
End;
Procedure MainLoop;
Begin
If Debug Then
Writeln('WAITING ON FINDEMPTY FUNCTION');
If WaitFunc(@FindEmpty,100,15000) Then
Begin
If Debug Then
Writeln('WAITING ON FINDBUILD FUNCTION');
If WaitFunc(@FindBuild,100,7000) Then
Begin
If Debug Then
Writeln('WAITING ON FINDDOOR FUNCTION');
If WaitFunc(@FindDoor,100,7000) Then
ProgressReport;
End Else
FindDoor;
End Else
If FindBuild Then
Begin
If Debug Then
Writeln('WAITING ON FINDDOOR FUNCTION');
If WaitFunc(@FindDoor,100,7000) Then
ProgressReport;
End Else
FindDoor;
End;
Procedure Setup;
Begin
{$IFDEF SIMBAMAJOR980}
SMART_SERVER := 10;
SMART_MEMBERS := TRUE;
SMART_SIGNED := TRUE;
SMART_SUPERDETAIL := FALSE;
{$ELSE}
SRL_SIXHOURFIX := TRUE;
SMART_FIXSPEED := TRUE;
{$ENDIF}
SetupSRL;
If (SRLStats_Username = '') Then
SetupSRLStats(948, 'Anonymous', 'anon1337')
Else
SetupSRLStats(948, SRLStats_Username, SRLStats_Password);
ClearDebug;
DeclarePlayers;
If (Not LoggedIn) Then
Writeln('Please log in and setup the position as needed');
Repeat
Wait(RandomRange(500,1500));
Until (LoggedIn);
If InvCount < 28 Then
Repeat
Writeln('Please get a full inventory of planks');
Wait(RandomRange(3000,4000));
Until (InvCount = 28);
MakeCompass(Direction);
SetAngle(SRL_ANGLE_HIGH);
SmartSetRefresh(90);
FirstMouse:=True;
ToggleXPBar(True);
StartingExperience := GetXPBarTotal;
StartTime:=GetSystemTime;
MarkTime(Timeout);
End;
Begin
Setup;
Repeat
Mainloop;
Until (AllPlayersInactive);
End.
I just downloaded 1.10, only getting 200-250k xp an hour. Not the best but better than anything else...
There are currently 1 users browsing this thread. (0 members and 1 guests)