DudesCrawlersFighter Help

[mercman]

I run the script and theres an error on line 47 bc of an unknown identifier, Smart_Server being world 7 which is nonmembers. Any ideas?? Ive been up for the past 2 days working on/ looking for a decent crawler fighter got issues with Narcle too and I even tried using ACA to solve that problem, to no avail.

program DudesCrawlers;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
{start somewhere with a lot of flesh crawlers in the stronghold and have an
inventory full of food}
const
//Smart
SmartWorld = 7;
Members = False; //log into a member world=true f2p=false
SignedClient = True;
HighDetail = False;
NumbOfPlayers = 1;
StartPlayer = 0;
SRLStats_User = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
Color1 = 2316146;
Color2 = 862765; //these are the colors the fighter will try to attack
Color3 = 928304; //change if not working well
Color4 = 862765;
eat = 70; //percent to heal at
pin = ''; //put your pin in the apostraphes'
tol = 7; //color tolerance raise if not attacking quick enough

var startXP: integer;

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;
Procedure SetupPlayer;

begin
Smart_Server := SmartWorld;
Smart_Members := Members;
Smart_Signed := SignedClient;
Smart_SuperDetail := HighDetail;
setupSRL();
ClickNorth(SRL_ANGLE_HIGH); //will only do this once!
ToggleXPBar(true);
Retaliate(true);
gametab(tab_inv);
end;
procedure ProgressReport(var startXP: integer);
var gain: integer;
begin
gain := GetXPBarTotal- startXP;
{$IFDEF DEBUG}
{$ENDIF}

writeln('////////DUDES_FLESH_CRAWLERS_FIGHTER\\\\\\\\');
writeln('TIME RAN: ' + TimeRunning);
writeln('XP GAIN: ' + IntToStr(gain));
writeln('XP/H: ' + floatToStr(3600000 * 1.0 / GetTimeRunning * gain));
end;
Function Killing: boolean; //credit to Flight's guide on using pixelshift
var
PBox: TBox;
begin
PBox := IntToBox(245, 130, 285, 195);
Result := (AveragePixelShift(PBox, 250, 500) > 700);
end;
procedure Login;
var t: integer;
begin
MarkTime(t);
while (not LoggedIn) do
begin
if LogInPlayer then
break;
wait(10000+random(500));
if (TimeFromMark(t) > 180000) then
begin
writeln('Failed to login after 180s... Terminating');
TerminateScript;
end;
end;
end;
procedure Antiban();
begin
if FindNormalRandoms then
begin
writeln('in random');
end else;
case random(200) of
0: MakeCompass(RandomRange(0,359)); //different SRL antiban procedures
1: PickUpMouse;
//2: RandomAngle(True);
3: begin HoverSkill(skill_strength,false); wait(1000+random(1000)); gametab(tab_inv); end;
4: ExamineInv;
5: BoredHuman;
//6: RandomMovement;
7: wait(1000+random(1000));
//8: missmouse(264, 177);
end;
end;
Function ImHungry: boolean;
begin
result := false;
if (HPPercent < eat) then
begin
result := true;
end else;
end;
Procedure GetFat; //used Narcle's fast fighter healing method to help develope my own
var
I:integer;
begin
for I := 1 to 28 do
if existsitem(I) then
begin
MMouseItem(I);
if waituptext('Eat', 500) then
begin
clickmouse2(mouse_left);
exit;
end else;
end else;
for I := 1 to 28 do
if not existsitem(I) then
begin
wait(3000+random(2000));
writeln('no more food');
logout;
terminatescript;
end else;
end;
Function NextCrawler:boolean;
begin
result:= false;
RadialWalk(1310702, 0, 359, 40, 40, 40)
result:=true;
end;
Procedure DebugShiftCount;
var
PBox: TBox;
begin
PBox := IntToBox(245, 130, 285, 195);
Writeln(IntToStr(AveragePixelShift(PBox, 250, 500)));
end;
Procedure ImAngry;
var
hx, hy: integer;
begin
if not FindObjCustom(hx, hy, ['Attack'], [color1, color2, color3, color4], tol) then
begin
NextCrawler;
end else;
wait(1000 + random(1000));
if FindObjCustom(hx, hy, ['Attack'], [color1, color2, color3, color4], tol) then
begin
writeln('Im lookin for a crawler ta kill');
Mouse(hx, hy, 0, 0, mouse_left);
end else;
while Killing do
begin
//debugshiftcount;
antiban;
progressreport(startXP);
if (ImHungry) then
begin
GetFat;
end else;
end;
repeat
wait(10);
until (not Killing);
end;
begin //main script
SetupPlayer; //does the various procedures
DeclarePlayers; //and functions listed
if not (LoggedIn) then
Login;
startXP:=getXPBarTotal;
ProgressReport(startXP);
repeat
ImAngry;
antiban;
if ImHungry then
begin
GetFat;
end else;
NextCrawler;
ProgressReport(startXP);
until(not LoggedIn);
end.

[Ashaman88]

http://villavu.com/forum/showthread.php?t=88578

[Google]

program DudesCrawlers;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}

{start somewhere with a lot of flesh crawlers in the stronghold and have an
inventory full of food}

const
NumbOfPlayers = 1;
StartPlayer = 0;
SRLStats_User = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
Color1 = 2316146;
Color2 = 862765; //these are the colors the fighter will try to attack
Color3 = 928304; //change if not working well
Color4 = 862765;
eat = 70; //percent to heal at
pin = ''; //put your pin in the apostraphes'
tol = 7; //color tolerance raise if not attacking quick enough

var startXP: integer;

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;
Procedure SetupPlayer;

begin
SRL_SixHourFix := True;
Smart_FixSpeed := True;

setupSRL();
ClickNorth(SRL_ANGLE_HIGH); //will only do this once!
ToggleXPBar(true);
Retaliate(true);
gametab(tab_inv);
end;
procedure ProgressReport(var startXP: integer);
var gain: integer;
begin
gain := GetXPBarTotal- startXP;
{$IFDEF DEBUG}
{$ENDIF}

writeln('////////DUDES_FLESH_CRAWLERS_FIGHTER\\\\\\\\');
writeln('TIME RAN: ' + TimeRunning);
writeln('XP GAIN: ' + IntToStr(gain));
writeln('XP/H: ' + floatToStr(3600000 * 1.0 / GetTimeRunning * gain));
end;
Function Killing: boolean; //credit to Flight's guide on using pixelshift
var
PBox: TBox;
begin
PBox := IntToBox(245, 130, 285, 195);
Result := (AveragePixelShift(PBox, 250, 500) > 700);
end;
procedure Login;
var t: integer;
begin
MarkTime(t);
while (not LoggedIn) do
begin
if LogInPlayer then
break;
wait(10000+random(500));
if (TimeFromMark(t) > 180000) then
begin
writeln('Failed to login after 180s... Terminating');
TerminateScript;
end;
end;
end;
procedure Antiban();
begin
if FindNormalRandoms then
begin
writeln('in random');
end else;
case random(200) of
0: MakeCompass(RandomRange(0,359)); //different SRL antiban procedures
1: PickUpMouse;
//2: RandomAngle(True);
3: begin HoverSkill(skill_strength,false); wait(1000+random(1000)); gametab(tab_inv); end;
4: ExamineInv;
5: BoredHuman;
//6: RandomMovement;
7: wait(1000+random(1000));
//8: missmouse(264, 177);
end;
end;
Function ImHungry: boolean;
begin
result := false;
if (HPPercent < eat) then
begin
result := true;
end else;
end;
Procedure GetFat; //used Narcle's fast fighter healing method to help develope my own
var
I:integer;
begin
for I := 1 to 28 do
if existsitem(I) then
begin
MMouseItem(I);
if waituptext('Eat', 500) then
begin
clickmouse2(mouse_left);
exit;
end else;
end else;
for I := 1 to 28 do
if not existsitem(I) then
begin
wait(3000+random(2000));
writeln('no more food');
logout;
terminatescript;
end else;
end;
Function NextCrawler:boolean;
begin
result:= false;
RadialWalk(1310702, 0, 359, 40, 40, 40)
result:=true;
end;
Procedure DebugShiftCount;
var
PBox: TBox;
begin
PBox := IntToBox(245, 130, 285, 195);
Writeln(IntToStr(AveragePixelShift(PBox, 250, 500)));
end;
Procedure ImAngry;
var
hx, hy: integer;
begin
if not FindObjCustom(hx, hy, ['Attack'], [color1, color2, color3, color4], tol) then
begin
NextCrawler;
end else;
wait(1000 + random(1000));
if FindObjCustom(hx, hy, ['Attack'], [color1, color2, color3, color4], tol) then
begin
writeln('Im lookin for a crawler ta kill');
Mouse(hx, hy, 0, 0, mouse_left);
end else;
while Killing do
begin
//debugshiftcount;
antiban;
progressreport(startXP);
if (ImHungry) then
begin
GetFat;
end else;
end;
repeat
wait(10);
until (not Killing);
end;
begin

SetupPlayer; //does the various procedures
DeclarePlayers; //and functions listed
if not (LoggedIn) then
Login;
startXP:=getXPBarTotal;
ProgressReport(startXP);
repeat
ImAngry;
antiban;
if ImHungry then
begin
GetFat;
end else;
NextCrawler;
ProgressReport(startXP);
until(not LoggedIn);
end.

This should work but I also haven't used Simba in ages

[mercman]

After implementing the changes to the script from
http://villavu.com/forum/showthread.php?t=88578 I now recieve 2 new errors.

program DudesCrawlers;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
{start somewhere with a lot of flesh crawlers in the stronghold and have an
inventory full of food}
const
//Smart
SmartWorld = 7;
Members = False; //log into a member world=true f2p=false
SignedClient = True;
HighDetail = False;
NumbOfPlayers = 1;
StartPlayer = 0;
SRLStats_User = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
Color1 = 2316146;
Color2 = 862765; //these are the colors the fighter will try to attack
Color3 = 928304; //change if not working well
Color4 = 862765;
eat = 70; //percent to heal at
pin = ''; //put your pin in the apostraphes'
tol = 7; //color tolerance raise if not attacking quick enough

var startXP: integer;

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;
Procedure SetupPlayer;

begin
SRL_SixHourFix := True;
SMART_FixSpeed := True;
setupSRL();
ClickNorth(SRL_ANGLE_HIGH); //will only do this once!
ToggleXPBar(true);
Retaliate(true);
gametab(tab_inv);
end;
procedure ProgressReport(var startXP: integer);
var gain: integer;
begin
gain := GetXPBarTotal- startXP;
{$IFDEF DEBUG}
{$ENDIF}

writeln('////////DUDES_FLESH_CRAWLERS_FIGHTER\\\\\\\\');
writeln('TIME RAN: ' + TimeRunning);
writeln('XP GAIN: ' + IntToStr(gain));
writeln('XP/H: ' + floatToStr(3600000 * 1.0 / GetTimeRunning * gain));
end;
Function Killing: boolean; //credit to Flight's guide on using pixelshift
var
PBox: TBox;
begin
PBox := IntToBox(245, 130, 285, 195);
Result := (AveragePixelShift(PBox, 250, 500) > 700);
end;
procedure Login;
var t: integer;
begin
MarkTime(t);
while (not LoggedIn) do
begin
if LogInPlayer then
break;
wait(10000+random(500));
if (TimeFromMark(t) > 180000) then
begin
writeln('Failed to login after 180s... Terminating');
TerminateScript;
end;
end;
end;
procedure Antiban();
begin
if FindNormalRandoms then
begin
writeln('in random');
end else;
case random(200) of
0: MakeCompass(RandomRange(0,359)); //different SRL antiban procedures
1: PickUpMouse;
//2: RandomAngle(True);
3: begin HoverSkill(skill_strength,false); wait(1000+random(1000)); gametab(tab_inv); end;
4: ExamineInv;
5: BoredHuman;
//6: RandomMovement;
7: wait(1000+random(1000));
//8: missmouse(264, 177);
end;
end;
Function ImHungry: boolean;
begin
result := false;
if (HPPercent < eat) then
begin
result := true;
end else;
end;
Procedure GetFat; //used Narcle's fast fighter healing method to help develope my own
var
I:integer;
begin
for I := 1 to 28 do
if existsitem(I) then
begin
MMouseItem(I);
if waituptext('Eat', 500) then
begin
clickmouse2(mouse_left);
exit;
end else;
end else;
for I := 1 to 28 do
if not existsitem(I) then
begin
wait(3000+random(2000));
writeln('no more food');
logout;
terminatescript;
end else;
end;
Function NextCrawler:boolean;
begin
result:= false;
RadialWalk(1310702, 0, 359, 40, 40, 40)
result:=true;
end;
Procedure DebugShiftCount;
var
PBox: TBox;
begin
PBox := IntToBox(245, 130, 285, 195);
Writeln(IntToStr(AveragePixelShift(PBox, 250, 500)));
end;
Procedure ImAngry;
var
hx, hy: integer;
begin
if not FindObjCustom(hx, hy, ['Attack'], [color1, color2, color3, color4], tol) then
begin
NextCrawler;
end else;
wait(1000 + random(1000));
if FindObjCustom(hx, hy, ['Attack'], [color1, color2, color3, color4], tol) then
begin
writeln('Im lookin for a crawler ta kill');
Mouse(hx, hy, 0, 0, mouse_left);
end else;
while Killing do
begin
//debugshiftcount;
antiban;
progressreport(startXP);
if (ImHungry) then
begin
GetFat;
end else;
end;
repeat
wait(10);
until (not Killing);
end;
begin //main script
SetupPlayer; //does the various procedures
DeclarePlayers; //and functions listed
if not (LoggedIn) then
Login;
startXP:=getXPBarTotal;
ProgressReport(startXP);
repeat
ImAngry;
antiban;
if ImHungry then
begin
GetFat;
end else;
NextCrawler;
ProgressReport(startXP);
until(not LoggedIn);
end.



'function srl_InFight: Boolean;'

[Error] C:\Simba\Includes\SRL/SRL/core/globals.simba(605:5): Unknown identifier 'ImageSetClientArea' at line 604

and after pressing run again in simba for the hell of it after displaying the above error I get this


'ImageSetClientArea(SRL_NAVBAR_INGAME_X, SRL_NAVBAR_INGAME_Y, W, H); //H - Offset to remove black bar at the bottom.'

[Error] C:\Simba\Includes\SRL\SRL\core\globals.simba(687:5 ): Unknown identifier 'ImageSetClientArea' at line 686