SRL Archive - Archive

How Long have You Played Runescape?
7 Year(s)


Are you affilated in anyway with Jagex LTD?
no

Were you Referred to SRL?



What is your general programming knowledge?
simbasrl.
sps/sps.
ObjectDTM\ObjDTMInclude


Are you a member of any other communities?
i was member of Rsbuddy.


Tell us about yourself…

From: xx blood xx
I'm a guy with 16 years old, i speak english and spanish, i live in a country in central America, i'm very interesting in programming thinking in studying it in university, right now i only have some little knowledge about programming, but i started and i make my way to make my first script, i started this year to being interest in programming and for the little i have been programming i can say i liked it.

Please show us one (or multiple) of your scripts.

program Humidify;
{$DEFINE SMART}
{$I SRL/SRL.SIMBA}
{$i ObjectDTM\ObjDTMInclude.simba}

 Const
  SRLStats_Username = '';  //Your srl username
  SRLStats_Password = '';  //You srl password
  Version           = '1.0';
  StartPlayer       = 0;  //Player to start Autoing ( 0 if single player)
  Loads = 1; // Please change to how many you want to do before it stops


procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := '';    // Username?
  Players[0].Pass := '';    // Password?
  Players[0].Pin := ''; //pin?
  Players[0].Nick := 'Skrillex'; // nickname?
  Players[0].Active := True;
end;
  var
  x, y, LoadsCounter: integer;

  procedure AntiBan1;

begin

  x := Random(500)  case x of 0..2: HoverSkill('magic', false);

    3:

      GameTab(26);

    12..15:

      PickUpMouse;

    16..20:

      RandomMovement;

    26..27:

      RandomRClick;

    28..30:

      BoredHuman;

    33:

      ExamineInv;

    34:

      RandomAngle(SRL_ANGLE_HIGH);

    35..40:

      GameTab(25);



  end;

  SetAngle(SRL_ANGLE_HIGH);

  Wait(RandomRange(100, 200));

end;
  procedure  Antiban2;
   begin
   Wait(RandomRange(100, 200));
   RandomAngle(1);
   Wait(RandomRange(150, 250));
   RandomMovement;
   end;

  function Bank: Boolean;

begin

  begin

  repeat

    SetAngle(SRL_ANGLE_HIGH);

    OpenBankChest(SRL_BANK_SW);

  until BankScreen or PinScreen;

  end;

  if PinScreen then

  begin

    repeat

    InPin(Players[0].Pin);

   until BankScreen or not (LoggedIn);

  end;

  if BankScreen then

  begin
  Wait(RandomRange(100, 300));
    DepositAll;
    Wait(RandomRange(100, 300));
    Withdraw(9, 0, -1);
    Wait(RandomRange(100, 300));
    CloseBank;
    Wait(RandomRange(100, 300));

  end;

end;

   function magictab: boolean;
var
  T, F: integer;
begin
  if (GetCurrentTab = tab_Magic) then
  begin
    result := true;
    Exit;
  end;
  Case tab_Magic of
    tab_Magic: F := 4;
    else
      writeln('tab_Magic '+inttostr(tab_Magic)+' isn''t a valid option.');
  end;
  T := GetSystemTime + 2000;
  Repeat
    TypeByte(111+F);
    Wait(150+random(100));
    Result := GetCurrentTab = tab_Magic;
  until Result or (GetSystemTime > T);
end;
 var
 Humidify: integer;
begin
Smart_Server := 78;
  Smart_Members:= True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  ClearDebug;
setupSRL;
DeclarePlayers;
LoginPlayer;
  Writeln('Welcome to -Humidify pro- script!---Bye XxbloodxX---');
  Wait(700);
   Antiban2;
   AntiBan1;

   repeat
   Bank;
   if magictab then

   Humidify := DTMFromString('mKgEAAHicnc1RCkBQEIXhw6MHO7BFyyDlQaSEHdgRiSSUTfjr3pLH69Q3U9NME0oqfClHiRotenRoUPnvTooEGTZuJ4yYscjMDlzWbfuJHSuieKB6zgL9i/sn45sHsRsV4A==');
    begin
   Wait(RandomRange(200, 300));
        FindDTM(Humidify, x, y, MIX1, MIY1, MIX2, MIY2)
        MMouse(x, y, 5, 5);
        Mouse(x, y, 5, 5, true);
    end;
  until(false)

end.

 end.

Err, it's a no from me.
1)
You're not freeing your DTMs.
2)
Standards are atrocious.
3)
It's too simple in my opinion.
4)
You're not active :s

Sorry bud, it's going to be a no from me as well. You're simply too new around here and your scripting capabilities definitely need to be hardened a lot more. Standards, as Sin previously stated are wayyyyy off, it makes your script look very ugly, and unprofessional. You may want to clean it up so it looks readable to those who want to look through it and cast their vote afterwards. Using humidify with only one DTM doesn't really show me that you fully understand the library and how to utilize it… You're going to need something more sophisticated, with utilization of more parts of the library, not only DTM's. Best of luck in the future.

Thanks for your words.

sorry its a no for me. you need to learn more basics like freeing DTMs and add some other options into your script like an AIO lunar magik for example

Improve your standards Mate :X, and I don't see much complex funcs/procs.

Next time, no for now.

Good luck!

You're getting there for sure dude! Keep at it and I'm sure you'll make it.

Good attitude, You show nice potential but definitely have a long way to go still.
One thing I liked was how you were using *if BankScreen then* rather than how I see most others utilizing functions such as *if(BankScreen=true) then* :)

No from me unfortunately, sorry.

program Humidify;

{$DEFINE SMART}

{$I SRL/SRL.SIMBA}

{$I sps/sps.simba}

{$i ObjectDTM\ObjDTMInclude.simba}

var
sec, StartTime, XP, XPH, x, y, t: integer;

{==================================SETUP=======================================}
Const

SRLStats_Username = ''; // Srl username.

SRLStats_Password = ''; // Srl Password.

Version = '1.0'; // version of script.

StartPlayer = 0; // Player to start script.

Loads = 1; //How many spells you want to performe.


procedure DeclarePlayers;


begin

HowManyPlayers := 1;

NumberOfPlayers(HowManyPlayers);

CurrentPlayer := 0;

with Players[0] do

begin

Name := ''; // Your Rs Username.

Pass := ''; // Your Rs Password.

Pin := ''; // BankPin.

Active := true; // True to use it/ false to dont.

Member := true // leave this.

Nick := ''; // Le nickname.

end;

end;
{============================ END Of SETUP!===================================}

procedure SetupLogin;

begin

ClearDebug;

Smart_Server := 78;

Smart_Members := True;

Smart_Signed := True;

Smart_SuperDetail := False;

SetupSRL;

end;
Procedure ProgressReport;

Begin

XP := GetXPBarTotal - Players[CurrentPlayer].Integers[0];

Sec:= (1+((Getsystemtime-StartTime)/1000));

XPH := (3600*XP) / (SeC);

Writeln('==================================');

Writeln('=========BloodHumidify===========');

Writeln('=============Version: '+Version+'==========');

Writeln('Time Running: ' + TimeRunning);

writeLn('XP Earned: ' + IntToStr(XP));

writeLn('XP/h: ' + IntToStr(XPH));

Writeln('=======================================');

End;

procedure AntiBan1;
begin
x := Random(500) case x of
0..2: HoverSkill('magic', false);
12..15: PickUpMouse;
16..20: RandomMovement;
26..27: RandomRClick;
28..30: BoredHuman;
33: ExamineInv;
34: RandomAngle(SRL_ANGLE_HIGH);
end;
SetAngle(SRL_ANGLE_HIGH);
Wait(1000+Random(400));
end;

procedure Antiban2;
begin
Wait(1000+Random(200));
RandomAngle(1);
Wait(1000+Random(200));
RandomMovement;
end;
var
Humidify: integer;
procedure setDTM;
begin
begin
Humidify := DTMFromString('mKgEAAHicnc1RCkBQEIXhw6MHO7BFyyDlQaSEHdgRiSSUTfjr3pLH69Q3U9NME0oqfClHiRotenRoUPnvTooEGTZuJ4yYscjMDlzWbfuJHSuieKB6zgL9i/sn45sHsRsV4A==');
end;
begin
Wait(500+Random(200));
FindDTM(Humidify, x, y, MIX1, MIY1, MIX2, MIY2)
MarkTime(t);
MMouse(x, y, 5, 5);
Mouse(x, y, 5, 5, true);
end;
end;

procedure Fr33DTM;
begin
freeDTM(Humidify)
end;
function Bank: Boolean;
begin
begin
repeat
SetAngle(SRL_ANGLE_HIGH);
Wait(400+Random(200));
OpenBankChest(SRL_BANK_SW);
MarkTime(t);
Wait(400+Random(200));
until BankScreen or PinScreen;
end;
if PinScreen then
begin
repeat
InPin(Players[0].Pin);
until BankScreen or not (LoggedIn);
end;
if BankScreen then
begin
Wait(200+Random(200));
DepositAll;
MarkTime(t);
Wait(300+Random(200));
Withdraw(9, 0, -1);
Wait(400+Random(200));
CloseBank;
MarkTime(t);
Wait(300+Random(200));
end;
end;

function magictab: boolean;
var
T, F: integer;
begin
if (GetCurrentTab = tab_Magic) then
begin
result := true;
Exit;
end;
Case tab_Magic of
tab_Magic: F := 4;
else
writeln('tab_Magic '+inttostr(tab_Magic)+' isn''t a valid option.');
end;
T := GetSystemTime + 2000;
Repeat
TypeByte(111+F);
Wait(150+random(100));
Result := GetCurrentTab = tab_Magic;
MarkTime(t);
until Result or (GetSystemTime > T);
end;

begin

ClearDebug;

SetupLogin;

DeclarePlayers;

SmartSetRefresh(75);

LoginPlayer;

if (Players[CurrentPlayer].Integers[1] = 0) then

begin

if not IsXPBarOpen then ToggleXPBar(true);

Players[CurrentPlayer].Integers[0] := GetXPBarTotal;

Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);

end;

StartTime:=GetSystemTime;

SetRun(True);

Writeln('Welcome to -Humidify pro- script!—Bye XxbloodxX—');

Wait(500);

Antiban1;

AntiBan2;

repeat
begin
Bank
if magictab then
SetDTM;
Fr33DTM;
ProgressReport;
end;
until(AllPlayersInactive);

end.

end.

Erm, why did you do that? ^^^^

Also, a no from me too, sorry.

The script is too simple and your Activity is under 25%. Hope to see you apply again once you improve your activity within the forums and your scripting ability!

Looks like you aren't getting in this time. You can reapply in 4 weeks, good luck!