We already solved that matter through PM.
We already solved that matter through PM.
SRL is a Library of routines made by the SRL community written for the Program Simba.We produce Scripts for the game Runescape.
This is the best goblin muncher I've seen so far!!! Works flawlessly, but one of the most annoying things is that it picks up bones.
Anyhow, I ran the script overnight, and its still running (writing this from a school comp). I'll post a report soon.
lemme say this again, only louder: AWESOME SCRIPT!!!
This is kickass stuff...
Note: small bug, when unarmed the script fails to even out stats because the button for defense isn't there. I think thats a problem with SRL thou...Will post in bug forums.
EDIT: Report:
Code:/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\ | --> Goblin GoblinScheduler -> v.42 <- Progress Report --> by WT-Fakawi <-- | <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~> Worked for 8 Hours, 37 Minutes and 28 Seconds Attacked 200 Goblins. Cast 0 Spells. Died 0 Times. Opened 14 Doors. <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~> Name : _ Number : 1 Active : True Worked : 173 Location : Lumbridge <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~> 0 : _ = T. - Lvl : 6 6 6 3 12. W : 202 min. K : 44 Goblins. L: Lumbridge 1 : _ = T. - Lvl : 12 3 2 5 12. W : 173 min. K : 108 Goblins. L: Lumbridge 2 : _ = F. - Lvl : 10 4 1 1 12. W : 92 min. K : 44 Goblins. L: Frog Random 3 : _ = F. - Lvl : 3 2 1 1 10. W : 19 min. K : 4 Goblins. L: Lumbridge <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~> /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\ | --> Goblin GoblinScheduler -> v.42 <- Progress Report --> by WT-Fakawi <-- | <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~> Worked for 8 Hours, 39 Minutes and 27 Seconds Attacked 201 Goblins. Cast 0 Spells. Died 0 Times. Opened 14 Doors. <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~> Name : _ Number : 1 Active : True Worked : 173 Location : Lumbridge <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~> 0 : _ = T. - Lvl : 6 6 6 3 12. W : 202 min. K : 44 Goblins. L: Lumbridge 1 : _ = T. - Lvl : 12 3 2 5 12. W : 173 min. K : 109 Goblins. L: Lumbridge 2 : _ = F. - Lvl : 10 4 1 1 12. W : 92 min. K : 44 Goblins. L: Frog Random 3 : _ = F. - Lvl : 3 2 1 1 10. W : 19 min. K : 4 Goblins. L: Lumbridge <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~> /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\ | --> Goblin GoblinScheduler -> v.42 <- Progress Report --> by WT-Fakawi <-- | <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~> Worked for 8 Hours, 40 Minutes and 56 Seconds Attacked 203 Goblins. Cast 0 Spells. Died 0 Times. Opened 14 Doors. <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~> Name : _ Number : 1 Active : True Worked : 173 Location : Lumbridge <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~> 0 : _ = T. - Lvl : 6 6 6 3 12. W : 202 min. K : 44 Goblins. L: Lumbridge 1 : _ = T. - Lvl : 12 3 2 5 12. W : 173 min. K : 111 Goblins. L: Lumbridge 2 : _ = F. - Lvl : 10 4 1 1 12. W : 92 min. K : 44 Goblins. L: Frog Random 3 : _ = F. - Lvl : 3 2 1 1 10. W : 19 min. K : 4 Goblins. L: Lumbridge <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~> /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\ | SRL Randoms Report | | www.villu-reborn.com | |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~| | Logged in : 35 | | Trade[s] Made : 5 | | Talking Random[s] : 1 | | Frog[s] Missed : 1 | | Certer[s] Solved : 1 | \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
It's been a while... but I'm BACK!!!
Hey i was wondering if anyone could help me what do i put in for the "remote Master"? and also wen it gets to the goblin house it will attack one goblin then turn off privat chat and wait till it logs off to switch to next player? could anyone be of some assistance?
[Runtime Error] : Out Of Range in line 42 in script C:\Documents and Settings\Troy\Desktop\My documents\g\ChickenKiller + Feather Collector.scar
help me
ur old goblin killer worked fine for me but now i get this error Failed when compiling
Line 152: [Error] (16453:34): Invalid number of parameters in script C:\Program Files\SCAR 2.03\Scripts\Goblin Scheduler 0[1].42 PUB.scar
and yes i have srl 3.5
here is the fixed version. and make sure that you have replaced your player form with the new one. here is the link if you havent http://www.villu-reborn.com/showthread.php?t=3861 and here is the updated version
SCAR Code:{.Script Info:
# ScriptName = Goblin Scheduler
# Author = WT-Fakawi
# Description = Kills Goblins at GoblinHouse NE of LumCastle
# Version = 0.39
# Date = 08/20/06
# Comments = SRL 3.0 upwards compatible.
/Script Info}
//----------------------------------------------------------------------------//
// * SRL 3.0 Goblin Scheduler 0.42
// *
// * by WT-Fakawi
// *
// *
// *
// * It's been 11 Months now since I released my first SCAR script.
// * Below is my latest creation. It resembles in no way it's original, except
// * for the concept. That has stayed the same.
// *
//----------------------------------------------------------------------------//
// *
// * This script kills Goblins @ the GoblinHouse NE of Lumbridge Castle.
// * If is designed for MultiPlayer i.e. one at a time, many in a row.
// * Provided with enough noob-players, it will easily run 24+ hours,
// * WITHOUT GETTING YOU BANNED.
// *
// * --------------------------- [ ABOUT SRL ] --------------------------- * //
// *
// * -----The SRL-Library is managed and maintained by the SRL-Community.-----//
// * ----------------It is deviced to emulate human behaviour.----------------//
// *
{/ * ----------------- [ 7 Golden rules of SRL autoing ] ------------------ * //
Rule #1. Respect Jagex.
- SRL users RESPECT Jagex. We enjoy playing Runescape, not for the game,
but for the intellectual challenge. We play somewhat different than legitimite
players, but we try to act natural. SRL IS NOT INVOLVED INTO ANYTHING ILLEGAL.
The Include is free for everyone to use. Yes we play against Jagex Rules, but
all within LEGAL and MORAL boundaries.
Rule #2. Make sure you have over 20 players.
- Tutorial Island only takes about 5 minutes to finish. It will take you 4 hours.
Try making them in batches of 6, thats only 30 minutes. Give them PROPER names.
Refer to the SRL-Manual for further info.
Rule #3. Switch players once every half hour.
- Switching players once every 30-50 minutes drastically reduces the amount
of Randoms you will encounter. You will hardly get any.
Rule #4. Cherish your players.
- Don't use Lvl-3 'mules'. That is very disrespectful and utterly stupid.
Lvl-3 'mules' have "BAN ME" written all over their default face.
Treat your players with respect, treat them as individuals. They are your Army,
they work for you. Don't leave them unattended. Level them up.
Switch scripts. Don't rape 'm...
Play legit with them once and a while.
If you manage to archieve an outstanding ranking (81+) on one of them,
QUIT autoing on that particular Player. He has become to valuable.
Rule #5.Break out of every loop.
- Endless loop are strictly forbidden. Build failsafes into ALL your loops.
Preferably:
If not Loggedin then Break;
Make sure your LAST LINE says:
if (not(Loggedin)) then NextPlayer(False);
Why? Because we dont want our program to "hang" when we wake up,
return from school or work.
Rule #6. Use the regular RuneScape Client(!) and always auto unsigned.
- Make sure you get a unique UID each period you auto.
Rule #7. Try to stay online 24/7.
- This is my favourite rule. Just love those 24 hour reports.
<=================Progress Report================>
Worked for 102 Hours, 26 Minutes and 57 Seconds
Attacked 15888 Goblins.
Random Event Report:
Talked to 17 random event[s].
Opened 410 door[s].
Logged in 346 Time[s].
<================================================>
ENJOY!
WT-Fakawi.
}
//----------------------------------------------------------------------------//
// *
// * NAME : Goblin Scheduler 0.39
// * WRITER : WT-Fakawi
// * CATEGORY : Fighting
// * DESCRIPTION : Kills Goblins at Goblinhouse NE of Lumby Castle
// * USAGE : Start @ Lumbridge Castle Square of @ Goblin House
// * AUTOCOLOR : Yes
// * NOTES : First SRL-script ever made.
// * : COMPLETE REMAKE FOR SRL 3.0
//----------------------------------------------------------------------------//
// 1. USE the DEFAULT Runescape Client with Low Detail, Very Bright.
// 2. Set your Screen to 32 bit TRUE color.
// 3. Find yourself a quiet World.
// 4. Position your char at Lumbridge Castle, with ONLY three wieldable
// pieces of armour.
//-----------------------------------------------------------------------
program GoblinScheduler;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Magic.scar}
{.include SRL/SRL/Skill/Runecrafting.scar}
{.include SRL/SRL/Misc/Playerform.scar}
var
CastleFloor, NewDoor, Doors: integer;
var
StartTime, PlayTime, RunningTime, CallibrateTime, BoneTime: LongInt;
var
TheBone, Bone1, Bone2, Bone3, Bone4, Bone5, Goblins, GoblinAttempts, CastCount: integer;
var
BeerMask : integer;
var
GoblinColors: array[1..8] of integer;
var
GCIndex: integer;
var
CastEnabled: Boolean;
var
SST1, SST2, FindNorMalRandomsTime, FindFastRandomsTime: LongInt;
//----------------------------------------------------------------------------//
const PlayerTime = 600; // Time for Each Player In Seconds.
const RandomPlayerTime = 600; // Random Amount added to PlayerTime
const DebugInfo = False; // set True if you want Debug Reports
const GoblinTimeOut = 30000; // milliseconds before clicking next goblin.
const AutoLevels = True ; // Set True to even Skills (Recommended...)
const PickupAny = True; // If you want the Script to Pick up Anything
const CastSpells = False; // If you want the Script to Train magic with runes picked up
const USEPlayerManager = True; // You must Set this to True everytime you change your player array
//----------------------------------------------------------------------------//
Const VersionNumber = 'v.42';
//----------------------------------------------------------------------------//
Procedure DeclarePlayers;
begin
Setupplayers;
end;
//----------------------------------------------------------------------------//
//---> Simple Status or Writeln procedure
//----------------------------------------------------------------------------//
procedure FawkiDebug ( S : string );
begin
if ( DebugInfo ) then
Writeln ( S )
else
Status ( S );
end;
//----------------------------------------------------------------------------//
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 7 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
end;
wait(1);
end;
end;
//----------------------------------------------------------------------------//
//---> Waits while Checking for Randoms;
//----------------------------------------------------------------------------//
procedure FTWaitD ( Time : Integer );
var T, I : integer;
begin
try
T := Time div 3;
for I := 1 to 3 do
begin
Wait ( T );
FindTalk;
end
except
begin
Wait ( Time );
FindTalk;
end;
end;
FindFastRandoms;
MarkTime(FindNorMalRandomsTime);
if FindNorMalRandomsTime-SST1 >(10000+Random(5000)) then
begin
Status('FindNorMalRandoms.');
FindNorMalRandoms;
MarkTime(SST1);
Status('FindNorMalRandoms took:'+IntToStr(SST1-FindNorMalRandomsTime)+' msec');
end;
MarkTime(FindFastRandomsTime);
if FindFastRandomsTime-SST2 >(1500+Random(1500)) then
begin
Status('FindFastRandoms.');
FindFastRandoms;
MarkTime(SST2);
Status('FindFastRandoms took:'+IntToStr(SST2-FindFastRandomsTime)+' msec');
end;
end;
//----------------------------------------------------------------------------//
Procedure LoadBitmaps;
begin
CastleFloor := BitmapFromString(8, 8, 'z78DA333334753475341B2507' +
'880400B5B154C1');
NewDoor := BitmapFromString(4, 4, 'z78DA3373313535743675313' +
'135B0B4703473343286906638C4CD8D4C2D4811070002361519');
Bone1 := BitmapFromString(4, 3, 'B6ABABB6ABAB3D3115' +
'3D3115C9C1C1C9C1C13D31153D31153D3115DBD6D6A49897A4989' +
'7');
Bone2 := BitmapFromString(4, 2, 'D7D2D1C9C1C1A79B9B' +
'A79B9BF0EEEEB3A8A83D31153D3115');
Bone3 := BitmapFromString(3, 2, '433418BEB5B53D3115' +
'D3CDCDD3CDCDD3CDCD');
Bone4 := BitmapFromString(2, 2, '958B8A8E8484E8E5E5' +
'382B12');
Bone5 := BitmapFromString(4, 4, '000001000001000001D2CCCC9B9' + // centre of bonebmp
'090A19595CEC7C79B909089807FDED9D9CAC3C29A8E8E000001C7' +
'BFBFA99D9D000001');
BeerMask := BitmapFromString(11, 14, 'z78DA3330C00EDCC0C080' +
'02402D13908101C58016A6D1DA04FCE1404F1368170E9498435E9' +
'CD2531779BE03008015BB2D');
end;
//----------------------------------------------------------------------------//
procedure SetupGoblinColors;
begin
GoblinColors[1] := 8635310;
GoblinColors[2] := 4372133;
GoblinColors[3] := 6269056;
GoblinColors[4] := 3058586;
GoblinColors[5] := 3058063;
GoblinColors[6] := 3840909;
GoblinColors[7] := 2129535;
GoblinColors[8] := 5075294;
end;
//----------------------------------------------------------------------------//
procedure PlayerStats;
var Active: string;
var i, temp: Integer;
begin
if Players[CurrentPlayer].Active=True then
Active:='True'
else
Active:='False';
WriteLn ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
Writeln (' Name : '+ Players[CurrentPlayer].Name);
Writeln (' Number : '+inttostr(CurrentPlayer));
Writeln (' Active : '+ Active);
if ( Players[CurrentPlayer].Worked > 0 ) then
Writeln (' Worked : '+ inttostr(Players[CurrentPlayer].Worked));
Writeln (' Location : '+ Players[CurrentPlayer].loc);
Temp:=(GetSystemTime div 1000);
Temp := Temp - StartTime;
if ( playtime < temp ) then
Writeln (' Time Left : '+ IntToStr ( Temp - PlayTime / 60 ) + ' min[s].');
WriteLn ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
for I := 0 to HowManyPlayers - 1 do
begin
if Players[i].Active=True then Active:='T' else Active:='F';
WriteLn ( ' ' + Inttostr ( I) + ' : ' + Players[i].Name + ' = ' + Active
+'. - Lvl : '
+' '+inttostr(Players[i].level[1])
+' '+inttostr(Players[i].level[2])
+' '+inttostr(Players[i].level[3])+
+' '+inttostr(Players[i].level[5])+
+' '+inttostr(Players[i].level[8])+'. '
+'W : '+IntToStr(Players[i].Worked)+' min. '
+'K : '+ IntToStr(Players[i].Killed)+' Goblins. '
+'L: '+Players[i].loc);
end
WriteLn ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
end;
//----------------------------------------------------------------------------//
Procedure ProgressReport;
begin
writeln(' ');
WriteLn ('/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\');
WriteLn ('| --> Goblin GoblinScheduler -> '+VersionNumber+' <- Progress Report --> by WT-Fakawi <-- |');
Writeln ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
Writeln(' Worked for '+ TimeRunning);
Writeln(' Attacked '+inttostr(Goblins)+' Goblins.');
Writeln(' Cast '+inttostr(CastCount)+' Spells.');
writeln(' Died '+inttostr(Deaths)+' Times.');
writeln(' Opened '+inttostr(Doors)+' Doors.');
PlayerStats;
SRLRandomsReport;
end;
//----------------------------------------------------------------------------//
function WeAreInLumbridgeCastle: Boolean;
begin
if FindSymbol(x, y, 'water') then
begin
Players[CurrentPlayer].Loc := 'Lumbridge';
Result := True;
end;
end;
//----------------------------------------------------------------------------//
function WeAreInGoblinHouse: Boolean;
begin
if FindSymbol(x, y, 'fish') then
begin
Players[CurrentPlayer].Loc := 'Goblin';
Result := True;
end;
end;
//----------------------------------------------------------------------------//
Procedure OpenDoor;
var XN,YN: Integer;
begin
if FindBitMapToleranceIn(NewDoor, xn, yn, MSCX - 100, MSCY - 30, MSCX + 100, MSCY + 30, 20) then
begin
FawkiDebug ('Opening Door...');
Doors := Doors + 1;
Mouse(xn, yn, 0, 0, True);
end;
end;
//----------------------------------------------------------------------------//
Procedure MyAntiBan;
var
DBanMe : Integer;
begin
if ( not ( LoggedIn )) then Exit;
DBanMe:= Random(50);
case DBanMe of
1: RandomRClickEvery(2 + Random(13));
2: hoverskill('random', false);
3: RandomChatEvery(10 + Random(5));
4: RotateEvery(20 + Random(10));
5: LeaveScreenEvery(5 + Random(5));
6: HoverEvery(15 + Random(5),'random');
8: PickUpMouse;
9: BoredEvery(9 + Random(24));
10: if ExistsItem ( 1 ) then
DragItem(1, 1+Random(18));
11: GameTab(1 + Random(12));
12: DoEmote(1 + Random(20));
end;
end;
//----------------------------------------------------------------------------//
procedure FindRandoms;
begin
if ( not ( LoggedIn )) then Exit;
if ( not ( UseBoxSolver )) then
if FindNewBox and
not ( GambleNewBox ) then
begin
Players[CurrentPlayer].loc := 'NewBox';
Logout;
Exit;
end;
if InBlack then
begin
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
Wait(1);
if NoGameTab then
begin
Players[CurrentPlayer].loc := 'GameTab';
Logout;
Exit;
end;
FindNormalRandoms;
OpenDoor;
MyAntiBan;
Wait(1);
end;
//----------------------------------------------------------------------------//
procedure WieldAll;
var inc,dx,dy:integer;
Begin
if ( not ( LoggedIn )) then Exit;
GameTab(4);
Wait(1000 + Random(1000));
inc := 0;
repeat
if (FindColor(dx, dy, 65536, 571 + inc, 215, 601 + inc, 245)) // Do we have an Object?
then
begin
Mouse(dx, dy, 0, 0, False);
if not ChooseOption(x, y, 'W') then
ChooseOption(x, y, 'Cancel')
end
Wait(500 + Random(1000));
inc := inc + 47;
until(inc >= 141);
End;
//----------------------------------------------------------------------------//
Procedure SetUpScript;
begin
LoadBitmaps;
SetupGoblinColors;
GCIndex := 1;
SetupSRL;
DeclareRuneBitMaps;
DeclarePlayers;
MarkTime(SST1);
MarkTime(SST2);
Reincarnate := True;
SymbolAccuracy := 0.6;
BenMouse := True;
MouseSpeed := 25;
LoginPlayer;
GetAllLevels;
end;
//----------------------------------------------------------------------------//
Function FindLumbridgeRoadColor: Integer;
var FX, FY, d: Integer;
var Found: Boolean;
begin
if ( not ( LoggedIn )) then Exit;
while (D < 85) do
begin
D := D + 5;
if ( CastleFloor = 0 ) then
LoadBitmaps;
If FindBitMapToleranceIn(CastleFloor, FX, FY, 580, 50, 600, 80, D) then
begin
RoadColor:=GetColor(FX, FY);
FawkiDebug ('FindLumbridgeRoadColor Road Color : ' + inttostr(RoadColor));
Found := True;
Result := RoadColor;
break;
end
end
end;
//----------------------------------------------------------------------------//
Procedure SetLowest;
var Ci, HL1, HL2, HL:Integer;
Begin
if ( not ( LoggedIn )) then Exit;
GetAllLevels;
HL := 100;
for Ci := 1 to 2 do
begin
HL1 := Players[CurrentPlayer].level[Ci];
HL2 := Players[CurrentPlayer].level[Ci+1];
if HL2 > HL1 then
begin
if HL > HL1 then HL := HL1;
end
else
begin
if HL > HL2 then HL := HL2;
end;
end;
for CI := 1 to 3 do
begin
if Players[CurrentPlayer].level[Ci] = HL then
begin
if CI = 3 then CI := CI + 1;
SetFightMode(CI);
Case CI of
1 : LampSkill := 'attack';
2 : LampSkill := 'strength';
4 : LampSkill := 'defence';
end;
Exit;
end;
End;
End;
//----------------------------------------------------------------------------//
//----------------------------------------------------------------------------//
procedure SetPlayerParams;
begin
if ( not ( LoggedIn )) then Exit;
PlayTime := PlayerTime + Random ( RandomPlayerTime);
writeln ( ' Will Switch User in ' + IntToStr ( PlayTime / 60 ) +' mins.');
WieldAll;
GameTab(1);
If AutoLevels then
SetLowest
else
begin
if Players[CurrentPlayer].Skill = 'attack' then SetFightMode(1);
if Players[CurrentPlayer].Skill = 'strength'then SetFightMode(2);
if Players[CurrentPlayer].Skill = 'defence' then SetFightMode(4);
LampSkill := LowerCase ( Players[CurrentPlayer].Skill );
if Players[CurrentPlayer].Skill = 'auto' then SetLowest;
end;
FTWaitD(1000 + Random(500));
SetChat('on', 1);
SetChat('friends', 2);
SetChat('on', 3);
SetChat('on', 1);
FindTalk;
StartTime := (GetSystemTime div 1000);
end;
//----------------------------------------------------------------------------//
Function InFightAt(x, y: Integer):Boolean;
var
dx, dy: Integer;
begin
Result := FindColor(dx, dy, 65280, x - 20, y - 10, x + 20, y + 10)
end;
//----------------------------------------------------------------------------//
Procedure WalkToGoblinField;
var XC, YC :integer;
var Mark6: LongInt;
begin
if ( not ( LoggedIn )) then Exit;
MakeCompass('N');
RadialRoadWalk(RoadColor, 70, 40, 70, -1, 0);
RadialRoadWalk(RoadColor, 60, 140, 70, -1, 0);
RadialRoadWalk(RoadColor, 320, 400, 60, -1, 0);
MarkTime(Mark6);
repeat
LinearRoadWalk(RoadColor, 320, 30, 1, 1);
if (not Loggedin) then break;
if(TimeFromMark(Mark6) > 60000) then begin Logout; Exit; end;
until FindSymbol(XC, YC, 'fish') or FindSymbol ( XC, YC, 'arrow');
if ( FindSymbol ( XC, YC, 'fish')) then
MouseFindFlag(XC + 2, YC + 10, 1, 1)
else
if ( FindSymbol ( XC, YC, 'arrow')) then
MouseFindFlag(XC + (10 + random(10)),YC - (30-random(10)), 1, 1);
Flag;
end;
//----------------------------------------------------------------------------//
Procedure CleanUpInventory;
begin
// ClickAllItemsBmpTolWait('Bury', Bone5, 20, 1000); // buries bones by BitMap.
// ClickAllItemsBmpMaskTolWait('rink', BeerMask, 50, 10, 1000); // Drops Beers
end;
//----------------------------------------------------------------------------//
procedure Callibrate;
var XC,YC:integer;
begin
GoblinAttempts := 0;
HighestAngle;
MakeCompass('N');
FindRandoms;
if FindSymbol(XC, YC, 'arrow') then
begin
MouseFindFlag(XC + (10 + random(10)),YC - (30-random(10)), 1, 1);
Flag;
GoblinAttempts := 0;
FawkiDebug ('Callibrated by ArrowSymbol');
end
else
if FindSymbol ( XC, YC, 'fish') then
begin
MouseFindFlag(XC + (20 + random(10)),YC + (30 + random(10)), 1, 1);
Flag;
GoblinAttempts := 0;
FawkiDebug ('Callibrated by FishSymbol');
end;
FindTalk;
CleanUpInventory;
FindTalk;
SetRun(True);
If AutoLevels then
SetLowest
else
GetAllLevels;
ProgressReport;
FindRandoms;
end;
//----------------------------------------------------------------------------//
Function FindBoneDeformed:Boolean;
var Dx, Dy, i, Mark4, FLx, FLy:integer;
var acc:Extended;
begin
for I := 1 to 4 do
begin
case I of
1: TheBone := Bone1;
2: TheBone := Bone2;
3: TheBone := Bone3;
4: TheBone := Bone4;
end;
if InventoryFull then Exit;
if (not Loggedin) then Exit;
FindDeformedBitmapToleranceIn(TheBone, Dx, Dy, MSX1 + 50, MSY1 + 50, MSX2 - 50, MSY2 - 50, 5, 1, True, acc);
FawkiDebug ('acc = ' + FloatToStr(acc));
begin
if WeAreInLumbridgeCastle or WeAreDead or (not Loggedin) then Exit;
if (acc >= 0.3) then
begin
FawkiDebug ('Found Deformed');
MMouse(Dx, Dy, 0, 0);
FindTalk;
if PickupAny then
begin
if IsUpText('ake') then Mouse(Dx, Dy, 0, 0, True);
MarkTime(Mark4);
repeat
Wait(500);
FindTalk;
Wait(500);
until ( (not FindColor(FLx,FLy,255,MMCX-40,MMCY-40,MMCX+40,MMCY+40)) or (TimeFromMark(Mark4) > 6000) );
Exit;
end
else
begin
if (IsUpText('ake Bo') or IsUpText('ke Bon')) then
begin
Mouse(Dx, Dy, 0, 0, False);
FindTalk;
FawkiDebug ('Pick up Deformed');
ChooseOption(x, y, 'Take');
MarkTime(Mark4);
repeat
Wait(500);
FindTalk;
Wait(500);
until ( (not FindColor(FLx,FLy,255,MMCX-40,MMCY-40,MMCX+40,MMCY+40)) or (TimeFromMark(Mark4) > 6000) );
Result := True;
Exit;
end;
end;
end;
end;
FTWaitD((200) + Random(200));
end;
end;
//----------------------------------------------------------------------------//
Function ClickGoblin: Boolean;
var CBx,CBy: Integer;
begin
if CastEnabled then
begin
Cast('confuse');
CastCount:=CastCount+1;
end;
GCIndex := GCIndex + 1 if GCIndex > 8 then GCIndex := 1;
GoblinAttempts := GoblinAttempts + 1;
if FindColorSpiralTolerance(CBx, CBy, GoblinColors[GCIndex], MSX1, MSY1, MSX2, MSY2, 12) then
begin
MMouse(CBx, CBy, 0, 0);
if IsUpTextMulti('ack','at','lin') then
begin
if not InFightAt(CBx, CBy) then
begin
Mouse(CBx, CBy, 0, 0, True);
if (InChatMulti('alre', 'eone el',' ing th'))
then
Result := False
else
begin
Result := True;
GoblinAttempts := 0;
end;
Exit;
end;
end;
end;
end;
//----------------------------------------------------------------------------//
Procedure WaitGoblin;
var Mark5, WGC:Integer;
begin
FFlag(10);
MarkTime(Mark5);
repeat
if((WeAreInLumbridgeCastle) or (not (Loggedin)) or (WeAreDead)) then Exit;
for WGC := 1 to 3 do
begin
FTWaitD(1000 + Random(100));
FindTalk;
if (TimeFromMark(Mark5) > GoblinTimeOut + Random ( GoblinTimeOut / 2 )) then Exit;
end;
until not InFightAt(MSCX, MSCY - 30);
Goblins := Goblins + 1;
Players[CurrentPlayer].Killed := Players[CurrentPlayer].Killed+1;
end;
//----------------------------------------------------------------------------//
Function HaveRune(WhichRune:Integer): Boolean;
var DumX, DumY : Integer;
begin
Result:= FindBitmapToleranceIn(WhichRune,Dumx, Dumy,MIX1,MIY1,MIX2,MIY2,10);
end;
//----------------------------------------------------------------------------//
Function CanCast:Boolean;
begin
if Players[CurrentPlayer].level[6] >=3 then
begin
If HaveRune(WaterRune) and HaveRune(EarthRune) and HaveRune(BodyRune) then
begin
Result:=True;
FawkiDebug ('CanCast');
end;
end;
end;
//----------------------------------------------------------------------------//
// Main EventLoop
//----------------------------------------------------------------------------//
begin
SetupScript;
Repeat
SetPlayerParams;
MakeCompass('N');
if WeAreInLumbridgeCastle then
begin
If (FindLumbridgeRoadColor = 0) then RoadColorChecker;
WalkToGoblinField;
end
Callibrate;
MarkTime(CallibrateTime);
MarkTime(BoneTime);
Repeat
if CastSpells then
begin
If CanCast then
CastEnabled:=True
else
CastEnabled:=False
end else CastEnabled := False;
if ClickGoblin then
WaitGoblin;
FTWaitD(100);
FindRandoms;
If GoblinAttempts > (150 + Random(25)) then Callibrate;
FTWaitD(100);
If TimeFromMark(CallibrateTime) > (60000 + Random(60000)) then
begin
Callibrate;
MarkTime(CallibrateTime);
end
If TimeFromMark(BoneTime) > 10000 then
begin
FindBoneDeformed;
FindRandoms;
MarkTime(BoneTime);
end
RunningTime := (GetSystemTime div 1000);
if (not LoggedIn)
or WeAreDead
or WeAreInLumbridgeCastle
or (RunningTime - StartTime > PlayTime)
then Break;
Until WeAreDead or (not LoggedIn);
if LoggedIn then
begin
SetChat('off', 1);
repeat
FTWaitD(1000);
until(not(LoggedIn));
Writeln('Switching User Now');
NextPlayer(True);
FTWaitD(8000 + Random(2000));
end;
if (not(Loggedin)) then NextPlayer(False);
until(False);
end.
when i try to run it i get this message for pretty much every script
line 170 variable 'newline' never used in script....
out of range in line 162
out of range in line 48
Don't worry aboutthe newline thing. (actually if you don't see it then you're not using srl 3.5 and that's a bad thing).
162 thing may mean you are using 1 player (bad idea) and didn't delete the spots for other players.
Dunno bout 48.
I get this error... I installed the latest version and can't seem to compile it.. Also what does it mean at the top where is says fill in the nick name of the RC master..thx for any help guyzCode:Line 256: [Error] (16298:4): Unknown identifier 'RC' in script C:\Program Files\SCAR 2.03\Scripts\Goblin Scheduler 0[1].44 PUB.scar
I was finally able to get this script working for me, however, it hung up on the next player, I had debug for the radial walk selected, and there was a screen shot of this open, so I deselected this option, and will see if it will run through the complete player list, my Thanks to everyone who helped with this scrript,
RAM
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| --> Goblin GoblinScheduler -> 0.44 <- Progress Report --> by WT-Fakawi <-- |
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Worked for 2 Hours, 37 Minutes and 43 Seconds
Attacked 245 Goblins.
Cast 0 Spells.
Died 0 Times.
Opened 5 Doors.
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Name : *******
Number : 6
Active : True
Location :
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
0 : ******* = T. - Lvl : 10 10 10 3 15. W : 23 min. K : 28 Goblins. L: Lumbridge
1 : *******= F. - Lvl : 13 12 12 5 16. W : 25 min. K : 41 Goblins. L: New Box
2 : ******* = T. - Lvl : 9 9 8 2 14. W : 21 min. K : 27 Goblins. L: Lumbridge
3 : *******= T. - Lvl : 9 9 9 5 14. W : 3 min. K : 0 Goblins. L: Lumbridge
4 : ******** = T. - Lvl : 9 8 8 3 13. W : 12 min. K : 16 Goblins. L: Lumbridge
5 : ****** = T. - Lvl : 9 9 9 3 14. W : 33 min. K : 85 Goblins. L:
6 : ******* = T. - Lvl : 0 0 0 0 0. W : 0 min. K : 17 Goblins. L:
7 : ****** = T. - Lvl : 9 8 8 4 13. W : 15 min. K : 25 Goblins. L: Lumbridge
8 : ******* = T. - Lvl : 11 11 11 7 15. W : 8 min. K : 6 Goblins. L: Lumbridge
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
NextPlayer
three minutes have passed
three minutes have passed
three minutes have passed
three minutes have passed
three minutes have passed
Do you run any P2P/MSN/FirewallVirusscanner etc.. as background tasks? Cause this can cause lost of focus, (three minutes have passed...). The script has lost the Runescape window and cant continue.
SRL is a Library of routines made by the SRL community written for the Program Simba.We produce Scripts for the game Runescape.
Um, yes I do, just got this new comp over the weekend, still working on getting it stripped down to the bare essentials, it came with a couple of months free virus monitoring, but I guess I'll try turning it off and seeing if this helps any, TYVM for your assistance once again FakawiRAM
I keep getting two bugs that after like you kill 3 goblins, it stops and when it logs out and switches player and when you die it just waits till rs logs itself and switches player
also it doesnt open the door but im going to make a another bitmap![]()
Thanks for the script; here is my progress report for today. I keep getting an adobe pop-up and it kills my scripts, nothing to do with this script, just my computer ;-).
Code:/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\ | --> Goblin GoblinScheduler -> 0.44 <- Progress Report --> by WT-Fakawi <-- | <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~> Worked for 5 Hours, 19 Minutes and 25 Seconds Attacked 375 Goblins. Cast 0 Spells. Died 0 Times. Opened 4 Doors. <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~> Name : SECRET :) Number : 0 Active : True Worked : 175 Location : New Box <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~> 0 : SECRET :) = T. - Lvl : 19 18 18 1 20. W : 175 min. K : 271 Goblins. L: New Box 1 : SECRET :) = F. - Lvl : 9 8 8 1 13. W : 128 min. K : 104 Goblins. L: InBlack <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
This is the best script i've seen so far. It works perfectly and is extremely easy to set up.
VEry good job!
i get this error:
[Runtime Error] : Out Of Range in line 162 in script C:\Documents and Settings\Adam\Desktop\Goblin Scheduler 0.44 PUB.scar
i no first post im complaining but i used to play runescape and am trying to start playing again.
Hi im having a problem with this script and all its versions none work for me .42 and .44 both say this everytime i run it and i have the newest SRL everything right and i know this because all other scripts run perfect like the stress miner but wen i try this script it says this
User specified a new RS window
Successfully compiled
Line 170: [Hint] (290:43): Variable 'NEWLINE' never used in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Globals.scar
SRL Compiled in 156msec.
[Runtime Error] : Out Of Range in line 107 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Login.scar
anyone else know what could be the problem?
Err..if i wana train strength only, what do i do?
If you are just making 1 pure then do it legit. If you want to do this for multiple characters, replace setlowest on line 709 with setfightmode(2). (1 attack 2 strength 4 defense). I think that should work.
What's remote master?
You set 10 players on the script, run it, and then go to work/school/somewhere with RS access. While you are out, player 2 and 7 get stuck in randoms or lost, so the script skips over those. You login to RS with another account(the master). Then the script tells you that player 2 and player 7 need fixing. You log in to those and fix them, then back to the master and tell the script you fixed em. Then the script will start using them again.
i tried what you said now, i found the line. Nop, it doesn't work. Please sum1, im usin 2 accounts, can sum1 tell me how to only raise str.
Sorry 27 lines off. Make sure autolevels is set to true in the const section.
im having a problem with this script and all its versions none work for me .42 and .44 both say this everytime i run it and i have the newest SRL everything right and i know this because all other scripts run perfect like the stress miner but wen i try this script it says this
User specified a new RS window
Successfully compiled
Line 170: [Hint] (290:43): Variable 'NEWLINE' never used in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Globals.scar
SRL Compiled in 156msec.
could anyone PLZ help me i want to train my noobs so they not so obvious and so Boreas dont report me =x
[Runtime Error] : Out Of Range in line 107 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Login.scar
anyone else know what could be the problem?
There are currently 1 users browsing this thread. (0 members and 1 guests)