Pure --> Berserker progress: http://villavu.com/forum/showthread.php?p=907073
Best SRL Member around (Bonfield): http://villavu.com/forum/showthread.php?p=1106646
Sorry for my english grammer.
~Bwuk.
You say you're having trouble detecting potions with few doses? If I might make a suggestion.
Search through each inventory box for the color of the potion (not the vial, the potion), get a TPA of that color inside each individual inventory box and count the length of that TPA; based on that number you can determine how many doses are in that inventory slot. Get what I'm saying? Just a thought.
Current projects:
[ AeroGuardians (GotR minigame), Motherlode Miner, Blast furnace ]
"I won't fall in your gravity. Open your eyes,
you're the Earth and I'm the sky..."
How does the script handle randoms? Mine turned my protect from melee off afaik. Will the script turn it back on?
Last edited by plekter; 02-05-2012 at 04:35 PM.
Bot hard or get banned trying.
What lines should i add if i want to eat sharks and Home; if inv is empty.
Im 94def and no pray so i would need a simple eating script there, but the ones i tried from other scripts didn't work on urs.
Why not just use FastFighter instead darkmoon?
Bot hard or get banned trying.
FastFighter will go running around outside the buildings and i get reported too much. This one is actually good, it pots and stays on the same spot so i am not suspicious.
Just need a simple eating script to add at this one.
This is what you needed Darkmoon? It only has monkfish now but I'm sure you can replace the DTM if you want other foodSimba Code:program EAT!;
{$DEFINE SRL5}
{$i srl/srl/misc/Smart.simba}
{$i srl/srl.simba}
var
T3, T4: Integer; // Timing for shutdown/combat pots
HouseTab: Integer;
Combat1, Combat2, Combat3, Combat4, Monkfish: Integer;
xcp, ycp: Integer;
const
TimeToRun=(4);
Skill=('strength');
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass :='';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Level[SKILL_HITPOINTS]:= 99 // your hp here @@
end;
procedure LoadDTMs;
begin
HouseTab := DTMFromString('mlwAAAHicY2dgYDjIxMBwAohPM0HY24F4GxAfAuI9jAwMW4D4MBAfg9K7gHgjEK9ctJAhOMCfISIkhCE0KIghJiICTPt4ejLwA83FhRnxYCgAAHtBErI=');
Monkfish := DTMFromString('mbQAAAHicY2VgYDjKxMBwBogPAPF+ID4NxIqMDAzyUKwOxKpAHO7nzGCgrsAQFeDKsKC2msHVxpSBH6gfHTNiwWAAALvcCYc=');
Combat4 := DTMFromString('mggAAAHicY2NgYDjIxMBwHIj3A/EhIN4NxZWMDAx1QFwExA1AXA/EFUCcvyCaIbDUiaFhVyaYXb0phaFuWzoDP9AsbJgRB4YAAG5QEIM=');
Combat3 := DTMFromString('mlwAAAHicY2dgYHBigmB3IPYAYmcgtgViGyCuZGRgKGCE0HVA3AjE9VB+4ZIYhpycQobwOneGiHoPML9iXRJD+epEBn6gubgwIx4MBQBbyA8m');
Combat2 := DTMFromString('mlwAAAHicY2dgYMhmYmDIAeJ8IC6CslOBOAOIaxkZGAqBuBKI64C4gREiBuIXLYtlyMrOZ2iYUs0QXO7CULgkhqF8dSLD4r3zGPiB5uLCjHgwFAAAM2wRIQ==');
Combat1 := DTMFromString('mrAAAAHic42BgYHBigmA3IPaE0o5AbA3EtkBcw8jAUADEFUBcC8SNUFwHFZu3bSZDXl4xg7e3H0PtlDKGmFYfhop1SQzL9y1iKC6uYOAH2oEPMxLAMAAAV+oSTQ==');
end;
procedure FreeDTMs;
begin
FreeDTM(HouseTab);
FreeDTM(Monkfish);
FreeDTM(Combat4);
FreeDTM(Combat3);
FreeDTM(Combat2);
FreeDTM(Combat1);
end;
procedure Home;
var
x, y: Integer;
begin
if LoggedIn then
begin
Writeln('Teleporting home')
if not(GetCurrentTab= 25) then
begin
GameTab(25);
Wait(500+(Random(500)));
end;
if(FindDTM(HouseTab, x, y, MIX1, MIY1, MIX2, MIY2))then
begin Mouse(x, y, 3, 3, 1);
Writeln('Terminating script');
end
else begin
Writeln('NO HOUSE TAB, mayday mayday!!!');
end;
Terminatescript;
end;
end;
Function FindCombatPot: Boolean;
var
CombatDTM : Array [0..3] of Integer;
i3 :Integer;
begin
CombatDTM[0]:=Combat1;
CombatDTM[1]:=Combat2;
CombatDTM[2]:=Combat3;
CombatDTM[3]:=Combat4;
For i3:=0 to 3 do
begin
if FindDTM(CombatDTM[i3], xcp, ycp, MIX1, MIY1, MIX2, MIY2)then;
result:= true;
end;
end;
procedure DrinkCombatPot;
begin
If FindNormalRandoms Then
If Not LoggedIn Then Exit;
Writeln('combat pot?');
if (TimeFromMark(T4) > 6*60*1000) then
begin
if not(GetCurrentTab= 25) then
begin
GameTab(25);
Wait(500+(Random(500)));
end;
if FindCombatPot then
begin
Mouse(xcp, ycp, 5, 5, 1);
Writeln('found combat pot');
MarkTime(T4);
Exit;
end;
Writeln('no combat pot found');
end;
end;
procedure EatIfLow; // [B]Originally Shutleu's !!!!![/B]
var
x, y: Integer;
begin
If FindNormalRandoms Then
If Not LoggedIn Then
Exit;
if (HPPercent < 50) then
begin
if not(getCurrentTab = 25) then
begin gametab(tab_inv);
end;
Wait(200+Random(100));
repeat
if FindDTM(Monkfish, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Mouse(x, y, 3, 3, 1);
Wait(200+Random(300));
end else
Home;
until(HPPercent>70);
end;
end;
procedure AntiBan;
begin
if(RBoolEx(10))then HoverSkill(Skill, False);
end;
begin
Smart_Server := 5;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL();
DeclarePlayers;
LoginPlayer;
MouseSpeed:=26;
LoadDTMs;
AddOnTerminate('FreeDTMs');
if not(GetCurrentTab = 25) then begin GameTab(tab_inv); end;
MarkTime(T3);
MarkTime(T4);
Repeat
EatIfLow;
Wait(500+(Random(500)));
Wait(500+(Random(500)));
DrinkCombatPot;
Wait(20000+(Random(30000)));
RandomMovement
Wait(500+(Random(500)));
AntiBan;
Until(TimeFromMark(T3)> TimeToRun*60*60*1000);
Home;
end.![]()
Last edited by Hunaja; 02-08-2012 at 11:14 AM.
Thanks alot, will try this![]()
i somehow can't copy and paste the cde into simba.. when i do the script comes up in 1 line. i've tried to find a topic about this, but there are few, and the ways they explain the solution don't work for me :9 maybe some1 knows/ or is there any chance you could upload a .simba file of the script?
thanks in advance
[Error] (67:11): Duplicate identifier 'FREEDTMS' at line 66
Compiling failed.
Any Help?
There are currently 1 users browsing this thread. (0 members and 1 guests)