From: KEVlN
i asked someone to make this simple script, but they weren't able to do it…
script used in 100% aggression zone so no need to make it targer/attack(long as auto-retaliate is on
-logs in, turns on quick-prayer
-drinks prayer renewal potion
-moves mouse so it wont get logged out
-antiban-check att, str, def, hp skiills
-every 4mins30seconds - 4mins59seconds will drink another dose
**support for both flasks and vials (flasks = 6 clicks no dropping - vials = 4 clicks dropping optional)
the person messed it up bu making script click repeatedly on the first vial, not dropping it, so it just stopped after 4 doses(20 mins terrible time) WOULD REALLY APPRECIATE THIS <3
This could be done easily, 1 sec I'll make one for you
program Smart;
{.include SRL/SRL/Misc/Smart.simba}
{.include SRL/SRL.simba}
{.include SPS/SPS.simba}
{.include SRL/SRL/Skill/Prayer.simba}
Const
PotionDTM1 = ''; //A DTM of the prayer pot full
PotionDTM2 = ''; //A DTM of the prayer pot part full 1
PotionDTM3 = ''; //A DTM of the prayer pot part full 2
PotionDTM4 = ''; //A DTM of the prayer pot part full 3
DrinkAt = 20; //at what percentage of your prayer points left do you drink?
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] do
begin
Name := '';
Pass := '';
Active := True;
end;
end;
Var
S : String;
Prayer, PrayerPercent, AntiBanTime, AntiBanIn : integer;
PotionsLeft : Boolean;
procedure Antiban;
begin
FindNormalRandoms;
if(not LoggedIn)then
LoginPlayer;
case Random(13) of
0: RandomRClick;
2: PickUpMouse;
3: RandomMovement;
4: BoredHuman;
5: ExamineInv;
6: MakeCompass('N');
7: SetAngle(SRL_ANGLE_HIGH);
8: Wait(5000+random(2000));
9: HoverSkill(SKILL_ATTACK, false);
10: HoverSkill(SKILL_DEFENCE, false);
11: HoverSkill(SKILL_STRENGTH, false);
12: HoverSkill(SKILL_HP, false);
end;
MarkTime(AntiBanTime);
AntiBanIn := AntiBanTime + (20 + Random(180)) * 1000;
end;
Procedure DrinkPotion;
Var
DTM, slot, x, y : integer;
begin
GameTab(Tab_Inv);
if(PotionDTM4 <> '')then
begin
DTM := DTMFromString(PotionDTM4);
if(FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Slot := CoordsToItem(x, y);
InvMouse(Slot, mouse_move);
if(WaitUptext('ial', 200+Random(500)))then
begin
ClickMouse2(mouse_right);
WaitOption('rop', 200+Random(500));
end
else
ClickMouse2(mouse_Left);
Wait(500+Random(2500));
FreeDTM(DTM);
exit;
end;
FreeDTM(DTM);
end;
if(PotionDTM3 <> '')then
begin
DTM := DTMFromString(PotionDTM3);
if(FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Slot := CoordsToItem(x, y);
InvMouse(Slot, mouse_move);
if(WaitUptext('ial', 200+Random(500)))then
begin
ClickMouse2(mouse_right);
WaitOption('rop', 200+Random(500));
end
else
ClickMouse2(mouse_Left);
Wait(500+Random(2500));
FreeDTM(DTM);
exit;
end;
FreeDTM(DTM);
end;
if(PotionDTM2 <> '')then
begin
DTM := DTMFromString(PotionDTM2);
if(FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Slot := CoordsToItem(x, y);
InvMouse(Slot, mouse_move);
if(WaitUptext('ial', 200+Random(500)))then
begin
ClickMouse2(mouse_right);
WaitOption('rop', 200+Random(500));
end
else
ClickMouse2(mouse_Left);
Wait(500+Random(2500));
FreeDTM(DTM);
exit;
end;
FreeDTM(DTM);
end;
if(PotionDTM1 <> '')then
begin
DTM := DTMFromString(PotionDTM1);
if(FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2))then
begin
Slot := CoordsToItem(x, y);
InvMouse(Slot, mouse_move);
if(WaitUptext('ial', 200+Random(500)))then
begin
ClickMouse2(mouse_right);
WaitOption('rop', 200+Random(500));
end
else
ClickMouse2(mouse_Left);
Wait(500+Random(2500));
FreeDTM(DTM);
exit;
end;
FreeDTM(DTM);
end;
PotionsLeft := False;
WriteLn('No more potions left');
end;
begin
Smart_Server := 11;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer;
PotionsLeft := (PotionDTM1 <> '');
if(not PotionsLeft)then
WriteLn('You need to provide a dtm for the potion');
WaitFunc(@LoggedIn, 10, 10000);
MarkTime(AntiBanTime);
AntiBanIn := AntiBanTime + (20 + Random(120)) * 1000;
while(LoggedIn and PotionsLeft)do
begin
while(Players[CurrentPlayer].Level[SKILL_PRAYER] < 1)do
GetAllLevels;
SwitchQuickPrayer(True)
Prayer := GetMMLevels('prayer', S);
PrayerPercent := (Prayer * 100) / Players[CurrentPlayer].Level[SKILL_PRAYER];
if(PrayerPercent < DrinkAt)then
DrinkPotion;
if(TimeFromMark(AntiBanTime) > AntiBanIn)then
AntiBan;
FindNormalRandoms;
Case Random(31) of
0..5 : CompassMovement(10, 360, False);
6 : RandomRClick;
7 : BoredHuman;
8..30 : Wait(500+Random(5000));
end;
if(not LoggedIn)then
LoginPlayer;
end;
ExitToLobby;
end.
If you have problems let me know