Aegis
2011-11-10 21:17:04
Hey guys, this is my first script! I'll admit though, I based a few procedures from other scripts to get started, as I hadn't had any experience in Pascal/Simba prior to making this. At the time, no Herblore scripts worked. If anything, I've sure learned a lot. At first, I tried using DTMs for the ingredients, but I was having some trouble, so I used the Withdraw(x, y, 0) method instead. Later, I found out it was an error in the version of Simba I was using.
Anyways, I realize that there's much to improve, but I figured I'd post this here anyways. Oh, and because the Withdraw method is location-based, and not item-based, this could essentially be a "Universal Potion Mixer" with any ingredients, but I've not tested anything else. Alright, I'll stop rambling now…
Features:
Instructions:
Known errors(lol):
Anyways, I realize that there's much to improve, but I figured I'd post this here anyways. Oh, and because the Withdraw method is location-based, and not item-based, this could essentially be a "Universal Potion Mixer" with any ingredients, but I've not tested anything else. Alright, I'll stop rambling now…
Features:
- Banks at Soul Wars (No randoms)
- Anti-ban (Basic)
- Fairly fast
- Mixes Tarromin Potion (unf) with Ashes (But can basically mix any two-items, probably could even bowstring, lol)
Instructions:
- Stand near the Bank chest
- Have your ingredients exactly in THIS position
Known errors(lol):
Tries mixing pots when script starts, even if items aren't in the inventory. For now, just try to start with 14 of each ingredient in your inventory. (I'm lazy and just haven't fixed this)
program Serum207Maker;
{$DEFINE SMART}
{$i SRL\SRL.scar}
const
S_World = 65;
S_Signed = True;
S_Member = True;
procedure DeclarePlayer;
begin
with Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
Active := True;
end;
end;
procedure AntiBan;
var
Int: Integer;
begin
Wait(300 + Random(40))
Int := Random(100);
if (Int <= 91) then
Exit;
Writeln('AntiBanned [' + ToStr(Int) + ']');
case Int of
92..94: MakeCompass(rs_GetCompassAngleDegrees + RandomRange(-185, 360));
95..96:
begin
SetAngle(False);
SetAngle(True);
end;
97: HoverSkill(SKILL_HERBLORE, False);
98..99: PickupMouse;
end;
end;
function Bank: Boolean;
var
X, Y: Integer;
begin
FindNormalRandoms;
if (FindObjCustom(X, Y, ['Bank','nk ch','k che','chest'], [2963780,10724266,10000542,5592409], 3)) then
Mouse(X, Y, 0, 0, True);
Wait(1500 + Random(300));
if (PinScreen) then InPin(Players[CurrentPlayer].Pin);
begin
DepositAll;
if Withdraw(8, 3, 14) then
if Withdraw(9, 3, 14) then
Result := True;
end;
if BankScreen then
CloseBank;
FindNormalRandoms;
end;
function MixPots: Boolean;
var
x, y, T: Integer;
B: TBox;
begin
if (InvFull) then
Wait(300 + Random(50));
InvMouse(1, 1);
InvMouse(15, 1);
MouseBox(227, 405, 284, 435, 3);
T := GetSystemTime + 9000;
while (GetSystemTime < T) and not(FindColor(x, y, 2070783, 251, 434, 286, 446)) do
Wait(100 + Random(100));
if not(FindColor(x, y, 2070783, 251, 434, 286, 446)) then
Exit;
GetMousePos(x, y);
if not(PointInBox(Point(x, y), IntToBox(227, 405, 284, 435))) then
MouseBox(227, 405, 284, 435, 1)
else
ClickMouse2(True);
while (GetSystemTime < T) and not(Result) do
begin
if LevelUp then
Wait(800 + Random(100));
AntiBan;
FindNormalRandoms;
end;
end;
begin
Smart_Server := S_World;
Smart_Signed := S_Signed;
Smart_Members := S_Member;
Smart_SuperDetail := False;
SetupSRL;
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
DeclarePlayer;
if not(LoggedIn) then
begin
LogInPlayer;
Wait(3000 + Random(2000));
SetAngle(True);
MakeCompass('n');
end else
PlayerStartTime := GetSystemTime;
repeat
if Bank then
if MixPots then
else
WriteLn('Banking')
else
WriteLn('Something weird happened..');
until not(LoggedIn);
end.- And as a side-note, I thought I'd mention that I'm happy to see many intelligent, friendly, and helpful people in this community. It's something not found in many places on the internet, especially places relating to botting/RuneScape, and is something I hope doesn't change in the future. Thanks, and I appreciate it.
