From: Shuttleu
what script?
~shut
some Steel super heat, that i've made?
program new;
{$i SRL/SRL/misc/smart.scar}
{$i SRL/SRL.scar}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
SMART_Server := 149;
SMART_Signed := True;
SMART_Members := False;
with Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
Loc := 'vwb';
Active := True;
end;
end;
Procedure Start;
Begin
If(Not(LoggedIn))then
LogInPlayer;
FindNormalRandoms;
Gametab(25);
Gametab(28);
SetAngle(true);
Wait(RandomRange(700, 1500));
end;
procedure AntiBanz;
begin
If(not LoggedIn)then Exit;
Case Random(8) of
0: MMouse(Random(MSX2),Random(MSY2),0,0);
1: HoverSkill('random',false);
2: PickupMouse;
3: GameTab(1+Random(12));
4: SleepAndMoveMouse(400+Random(1500));
5: if Random(2) = 1 then MMouse(1, 338, 515, 165);
6: if Random(2) = 1 then MMouse(515, 1, 250, 503);
7: RandomMovement;
End;
MakeCompass('N');
End;
Procedure SHeat;
var
I: Integer;
begin
If(random(10) = 7) then
begin
For i:= 2 to 10 do
begin
Wait(25);
Mouse(620, 329, 4, 4, True);
Wait(25);
If(random(10) = 7) then
InvMouse(i, 1)
else
InvMouse(10, 1);
Wait(25);
While not ((GetCurrentTab) = 28) do
begin
If(random(1000) = 69) then // BINGO.
Antibanz;
If(random(3) = 0) then
FindNormalRandoms;
Wait(20);
End;
end;
end;
End;
function OpenBankNPcc: Boolean; // Edited the colors
var
bx, by, Speed, ColFace, ColGrey, ColBlue: Integer;
begin
Result := (LoggedIn) and (BankScreen or PinScreen);
if (Result) then exit;
Speed := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
ColFace := 6310482; // Face Color
ColGrey := 5127235; // Grey Color [ Clothes ]
ColBlue := 6178896; // Blue Color [ Clothes ]
if (FindObjThroughMM(bx, by, 'npc', [ColFace, ColBlue, ColGrey], [5, 5, 5],
['anke', 'to B', 'Banker', 'nker'], 2, 2)) then
begin
Mouse(bx, by, 0, 0, False);
WaitOptionMulti(['ank B', 'ank', 'nker'], 1000);
FFlag(0);
Wait(2000 + Random(500));
if (Length(Players) > 0) then
if ((PinScreen) and (Players[CurrentPlayer].Pin <> '')) then
InPin(Players[CurrentPlayer].Pin);
Result := (BankScreen) or (PinScreen);
end;
ColorToleranceSpeed(Speed);
end;
Function Bank: Boolean;
var
ii, Timer: Integer;
begin
Timer := GetTimeRunning + 25000;
repeat
for ii := 0 to 30 do
begin
If(not(OpenBankNPCc)) then
If(Not(OpenBankQuiet(Players[CurrentPlayer].Loc)))then
if(not(OpenBankGlass(Players[CurrentPlayer].Loc, True, True))) then
OpenBank(Players[CurrentPlayer].Loc, True, True);
if BankScreen then
begin
Result:= True;
Break;
end;
Wait(100);
end;
Wait(Random(100));
until (GetTimeRunning > Timer) or Result;
Deposit(2, 28, True);
FixBank;
FixBankTab;
Repeat
Mouse(98, 107, 7, 7, False);
Wait(250);
ChooseOption('-9');
Mouse(143, 106, 7, 7, False);
Wait(250);
ChooseOption('-All');
Wait(randomRange(1000, 1500));
Until(InvFull);
Closebank;
end;
begin
SetupSRL;
SmartSetupEx(10, false, true, false);
MouseSpeed := 14;
ActivateClient;
DeclarePlayers
Start;
Repeat
SHeat;
Bank;
Until(false);
end.
Here ^