SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
exppo - SRL Member Application Form
exppo

What is the meaning to life?
To always beat Fagex and their system! To script against god's will & to draw the line between us and the asian!


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
I have some knowledge of: PHP and little of Java, I also have an insight in C++

Other Communitys
I am a member of the SYTHE community and of the Moparscape community.

How Long have You Played Runescape
I have been playing Runescape since the end of RSC.

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

My name is Tj Hughes, I first came across SCAR and this Forums a few months back, I believe back in June '07, at first I thought it was going to be a marathon to try and learn SCAR but with such a helpful community I knew i'd succeed.
Anyways as the months went by I started to become more envolved with SCAR, (ditching schoolwork for extra hours of learning SCAR). I knew I had my work cut-out to succeed in such a tough working environment, and the almighty goal of SRL MEMBERSHIP, a prized goal in the world of scripting.
I've always admired those who manage to obtain SRL MEMBERSHIP and thought I should put in extra effort to try and get up there with those great and mighty such as; Boreas, Wizzup? & WT-Fakawi !
At that point it was more a less a dream, an empty "sigh" that would make me work even harder, well I have enjoyed the tough times that have brought me this far, and I can tell you I wouldn't have got here if it wern't for my upmost respect and determintation to achieve the goal all desire.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

ADDED DTM'S

program SimplePowerCutter;
{.include SRL/SRL.scar}
{.Include SRL/SRL/Misc/Smart.Scar
{.include SRL/SRL/SKILL/Woodcutting.scar}

{=======================INSTRUCTIONS========================}
{ 1. Equip Axe                                              }
{  2. Runescape In Low Detail                               }
{   3. Runescape In Highest Brightness                      }
{    4. Complete Const To Suit Needs                        }
{     5. Drag CrossHairs To RS Window                       }
{      6. Hit The Green Play Button                         }
{===========================================================}
{ ==========================CREDITS=========================}
{  CREDITS ARE GIVEN ACCORDINGLY:                           }
{                                                           }
{  Dude_Richard         Markus                              }
{  The_Rs_Monkey        Dontpanic                           }
{  WT-Fakawi            heavenzeyes1                        }
{===========================================================}


Const
 Tree = 4483941;
 Oak = 2188891;
 Willow = 2332288;
 Yew = 2184775;

Var
LoadsCut, PLoadsCut, LogsCut, TreeTypeColor, X, Y, Ents, log : Integer;

{========================SETUP LINES========================}

Const
SRLStatsID = 'SRLStats ID Here';
SRLStatsPW = 'SRLStats PW Here';
TreeType = 'TYPE OF TREE'; {Tree , Oak , Willow , Yew}
MaxSeconds = 5; {Seconds To Wait While Cutting Tree}
RunAwayToDirection = 'n'; {Direction To Run If Risk}
TreeTolerance= 7; {Tolerance Of The Tree}

Procedure DeclarePlayers;
Begin
  HowManyPlayers := 3;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := 'Username Here'; {Insert Username}
  Players[0].Pass := 'Password Here'; {Insert Password}
  Players[0].Nick := 'nam'; {Nickname (Three letters of Username)}
  Players[0].Active := True;
  Players[0].Integers[0] := 100; {Loads To Cut}

  Players[1].Name := 'Username Here'; {Insert Username}
  Players[1].Pass := 'Password Here'; {Insert Password}
  Players[1].Nick := 'nam'; {Nickname (Three letters of Username)}
  Players[1].Active := True;
  Players[1].Integers[0] := 100; {Loads To Cut}

  Players[2].Name := 'Username Here'; {Insert Username}
  Players[2].Pass := 'Password Here'; {Insert Password}
  Players[2].Nick := 'nam'; {Nickname (Three letters of Username)}
  Players[2].Active := True;
  Players[2].Integers[0] := 100; {Loads To Cut}

  Players[3].Name := 'Username Here'; {Insert Username}
  Players[3].Pass := 'Password Here'; {Insert Password}
  Players[3].Nick := 'nam'; {Nickname (Three letters of Username)}
  Players[3].Active := True;
  Players[3].Integers[0] := 100; {Loads To Cut}

End;

{===========================================================}

Procedure LoadDTMs;
Begin

   Log := DTMFromString('78DA639CC9C4C0F088010514FAF2318832323'   +
          '00011C37F2060EC06AA79CC800618914820DD0154F386809A5940' +
          '35EF08A8590254F38A809AC940351FF0AB0100D0AD0DF2');

End;

Procedure Signature;
Begin
  ClearDebug;
  WriteLN('Welcome to...')
  Wait(1000)
  WriteLN('           Exppo, The Creator Of...')
  Wait(1200)
  WriteLN('                                 The One & Only...')
  Wait(1300)
  WriteLN('                                                 SimplePowerCutter Version 2.0')
  Wait(1500)
End;

Procedure DeclareTreeType;
Begin
  Case TreeType of
    'Tree': TreeTypeColor := Tree;
    'Oak' : TreeTypeColor := Oak;
    'Willow' : TreeTypeColor := Willow;
    'Yew' : TreeTypeColor := Yew;
  End;
End;

Procedure RandomDisguise;
 Begin
  Case Random(21)Of
    0: Disguise('Windows Live Messenger v.8.0');
    1: Disguise('Bigfix - Computer Protection Wizard');
    2: Disguise('RuneScape - the massive online adventure game by Jagex Ltd - Mozilla Firefox');
    3: Disguise('Tip.it Free RS quest help');
    4: Disguise('PhotoShop professional v12.9');
    5: Disguise('Google Toolbar');
    6: Disguise('Norton Internet Security');
    7: Disguise('Tip.it Runescape Help!');
    8: Disguise('Trust software and hardware development');
    9: Disguise('C:/Program/wireless/internet/broswer');
    10: Disguise('Microsoft Office Professional');
    11: Disguise('Desktop files');
    12: Disguise('SwiftSwitch i.explorer client');
    13: Disguise('Altavistas babelfish german translation');
    14: Disguise('internet explorer - microsoft incorparation');
    15: Disguise('Google.canada - Mozilla toolbar');
    16: Disguise('Google.co.uk - Microsoft Internet Explorer');
    17: Disguise('Microsoft Internet Explorer');
    18: Disguise('GameFAQs');
    19: Disguise('how/to/gain/and/loose/weight.txt');
    20: Disguise('moneyonlinesurveys.org/microsoft internet explorer');
  End;
End;
Procedure RandomHoverMMouse;
Begin
  Case Random(6)Of
    0:MMouse(random(250), random(250), 10, 10);
    1:MMouse(random(100), random(100), 50, 50);
    2:MMouse(random(50), random(50), 150, 150);
    3:MMouse(100, 100, 150, 150);
    4:MMouse(300, 300, 100, 100);
    5:MMouse(200, 200, 50, 50);
  End;
End;

Procedure SetupSimplePowerCutter;
Begin
  MakeCompass('N');
  GameTab(4);
  If(MaxSeconds <= 1)Then
  Begin
    WriteLn('Maximum Seconds To Wait Are:  ' + IntToStr(MaxSeconds) + '! Seconds Too Low! Re-Set It To 5 to 15!');
    TerminateScript;
  End;
End;

Procedure WhereToRunTo(Direction : String);
Begin
  Case Lowercase(Direction) of
    'n': Mouse(644, 25, 5, 5, True);
    'e': Mouse(703, 80, 5, 5, True);
    's': Mouse(642, 139, 5, 5, True);
    'w': Mouse(582, 88, 5, 5, True);
  End;
  FFlag(0);
End;

Procedure RunAwaya;
var
x,y:integer;
begin
  if Findent(x, y, True)then
    writeln('Ent found.');
end;

procedure FindRandoms;
begin                       //by heavenzeyez1
  FindNormalRandoms;
  if (FindFight) then
  begin
    RunAway('n', false, 1, 10000 + random(5000));
    FTwait(20 + random(10));
  end;
end;

Function FindEnt2 : Boolean;
Begin
   If(FindColorTolerance(x, y, 56797, 25, 16, 99, 17, 5))And(IsUpText(TreeType))Then
    Begin
      WriteLn('Ent Has Been Found');
      RunAway('n', false, 1, 10000 + random(5000));
      Ents := Ents + 1;
      ReportVars[2] := ReportVars[2] + 1;
      Result := True;
    End Else
  Result := False;
End;

Procedure RandomFinder;
  Begin
  FindNormalRandoms;
  FindEnt2;
  FindRandoms;
End;

Function WaitCount(SecondTimeOut : Integer) : Boolean;
Var
TimesCount : Integer;
Begin
  TimesCount := 0;
  Begin
    Repeat
    Wait(1000);
    TimesCount := TimesCount + 1;
    If(TimesCount < 10)Then WriteLn('Waited ' + IntToStr(TimesCount) + '000 M.Seconds.');
      Wait(100);
    If(TimesCount > 10)Then WriteLn('Waited ' + IntToStr(TimesCount) + '0000 M.Seconds.');
      Wait(100);
    Until(TimesCount >= SecondTimeOut)Or(SecondTimeOut >= 100)Or(FindNormalRandoms)Or(Not(LoggedIn));
    If(TimesCount >= SecondTimeOut)Then
    Result:=True;
  End;
End;

Procedure SpeechandWait;
Begin
  Repeat
    Wait(500+random(500));
    FindEnt2;
    RandomFinder;
  Until(WaitCount(MaxSeconds))Or(Not(IsUpText(TreeType)))Or(Not(LoggedIn))Or(InvFull)Or(ClickToContinue)Or(FindNormalRandoms);
    If(WaitCount(MaxSeconds))Then
      Exit;
End;

Procedure Cutting;
Begin
  If(FindObj(x, y, TreeType, TreeTypeColor, TreeTolerance))Then
  Begin
    Mouse(x, y, 5, 5, True);
    WriteLn('Clicked The ' + TreeType + '.');
    SpeechandWait;
    FindEnt2;
    RandomFinder;
  End;
End;

Procedure DropAllLogs;
Begin
  If InvFull then
    Repeat
      If (FindDTM(Log,x,y,MIX1,MIY1,MIX2,MIY2))then
      Begin
        Mouse(x, y, 3, 3, false);
        ChooseOption('rop');
      end;
    Until not(FindDTM(Log,x,y,MIX1,MIY1,MIX2,MIY2));
end;

Procedure MainCut;
var
i:integer;
Begin
  Repeat
    Cutting;
    FindEnt2;
    RandomFinder;
  Until(InvFull);
    If(InvFull)Then
    Begin
      for i := 2 to 28 do
        begin
          if ExistsItem(i) then
          begin
            MMouseItem(i);
            wait(100 + random(50));
            DropItem(i)
            Wait(100 + Random(100));
            FTWait(1);
            LogsCut := LogsCut + 27;
            LoadsCut := LoadsCut + 1;
            ReportVars[0] := ReportVars[0] + 27;
            ReportVars[1] := ReportVars[1] + 1;
      End;
    End;
  End;
End;

Procedure WcTalk;
Begin
  Case Random(31)Of
    0:TypeSend('Wcutin levels?');
    1:TypeSend('Woodcutting lvls?');
    2:TypeSend('how close u 2 lvlin?');
    3:TypeSend('Wc lvls?');
    4:TypeSend('Lol');
    5:TypeSend('Lmao');
    6:TypeSend('bo0r33333d');
    7:TypeSend('Rofl');
    8:TypeSend('Rofmao');
    9:TypeSend('goodluck guys');
    10:TypeSend('So bored');
    11:TypeSend('So tired');
    12:TypeSend('Iam exhausted');
    13:TypeSend('Iam so bored');
    14:TypeSend('SKOOL TOMOZ :(');
    15:TypeSend('O.0');
    16:TypeSend('b0r3zd');
    17:TypeSend('Wc ownz');
    18:TypeSend('Wc pwnz');
    19:TypeSend('Wc is ownage');
    20:TypeSend('Wc is pwnage');
    21:TypeSend('My friend is 99 wc');
    22:TypeSend('I wish i was 99 wc - gotta put in mor effort');
    23:TypeSend('I cant wait till level up!');
    24:TypeSend('I vant ait till level up!');
    25:TypeSend('Cmon i wanna level up!');
    26:TypeSend('I need to levl up!');
    27:TypeSend('I eed to lvl up!');
    28:TypeSend('I neeed t o lvel up!');
    29:TypeSend('My friend is getting 99');
    30:TypeSend('99 wc soon');
    31:TypeSend('So close 2 lvlin');
  End;
End;

Procedure AntiBan;
Begin
    Case Random(4) Of

    0:Begin
        RandomHoverMMouse;
        WriteLn('Used Anti-Ban - Mouse Moved Randomly.');
      End;
    1:Begin
        Wait(1000+random(4000));
        WriteLn('Used Anti-Ban - Waited 1-5 Seconds.');
      End;
    2:Begin
        HoverSkill('random', False);
        WriteLn('Used Anti-Ban - Hovered Mouse Over A Random Skill.');
      end;
    3:Begin
        WcTalk;
        WriteLn('Used Anti-Ban - Talked In Wc Talk.');
      End;

  End;
End;

Procedure StatusReport;
Begin
  ClearDebug;
  Begin
    WriteLn('====================================================================');
    WriteLn('SimplePowerCutter Version: 2.2');
    WriteLn('Author: Exppo');
    WriteLn('====================================================================');
    WriteLn('Script Ran For' + TimeRunning + '.');
    WriteLn('Cut Down' + IntToStr(pLoadsCut) + ' Loads.');
    WriteLn('Cut This Many Logs:' + IntToStr(LogsCut) + ' ' + TreeType + ' Logs.');
    WriteLn('Avoided This Many Ents:' + IntToStr(Ents) + ' Ents.');
    WriteLn('====================================================================');
  End;
End;

Procedure SetupSRLStatus;
Begin
  ScriptID := '1093';
  SRLID := SRLStatsID;
  SRLPassword := SRLStatsPW;
  If(SRLStatsID = '')Or(SRLStatsPW = '')Then
    Begin
      WriteLn('Do Not Leech Script, Will Result In Being REMOVED');
      Writeln('Register For Stats at http://www.stats.srl-forums.com');
      TerminateScript;
    End;
End;

Begin
  SetUpSRL;
  RandomDisguise;
  SRLRandomsReport;
  Signature;
  DeclarePlayers;
    If(Not(LoggedIn))Then LogInPlayer;
    Wait(1000+random(4000));
    If(InvFull)Then
    DropAllLogs;
    DeclareTreeType;
    SetupSimplePowerCutter;
    Begin
      Repeat
        Repeat
          StatusReport;
          MainCut;
          FindEnt2;
          RandomFinder;
          AntiBan;
        Until(LoadsCut >= Players[CurrentPlayer].Integers[0])Or(Not(LoggedIn));
      If(LoadsCut >= Players[CurrentPlayer].Integers[0])Or(Not(LoggedIn))Then
      Begin
        StatusReport;
        NextPlayer(False);
        PLoadsCut := PLoadsCut + LoadsCut;
        LoadsCut := 0;
      End;
    Until(false);
  End;
End.

——————————————————
<!– END TEMPLATE: formanswers –>

Well. A big - from the standards. My eyes feel like they've been sodomized with a retractable baton now.

Hm. Ill look at the script more later when I can deal with the standards, until then, not voting.

Standards, BTW, my name is Heavenzeyez, not heavenzeyes. :)
Eerik.
Edit: You should learn some DTM's and MapWalking, but i can see, ure fast learner. :)

ok i hate ur standards,
needs DTM's
radialwalk ect
from what ive heard power scripts dont normally make it since there not that complicated,

but overall
STANDARDS!!!
DTM's
Radialwalk
failsafes

and i thought u was already an srl member :P

~Spaz

Thanks.

In your DeclareTreeType, you should have

case(LowerCase(TreeType)) of
'tree':
'oak':
……etc.

because then if the user puts Tree, tree, TrEe, TREE, or tReE, it will look at the lower case version of it and it can use the constant accordingly. Will save a lot of problems.

No need for the disguise… IDK why, disguising bugs me. It makes me feel people are just trying to make there script longer :p

I would use SRL's handling fights so you don't run completely away from all the trees. Your scripts doesn't run back.

What's the point of having FindNormalRandoms before FindRandoms in your RandomFinder procedure? You already checked for it some odd milliseconds before that. No point in checking twice like that really.

I don't think you wrote that WaitCount procedure…. Did you?

Whoah! Where's the if(not(LoggedIn))then Exit;'s??

What was the point of your DropAllLogs procedure if you didn't even use that to drop in your chopping procedure?

Random chat can be very bannable if nobody is around. So can starting a conversation that you aren't prepared to auto respond to.

Holy crap! This script is going to do a HELL OF A LOT of anti ban! You call for it right after you call for anti randoms every time in the main loop! That is going to turn it from anti ban to just ban. Try adding more randomness to the case for your anti ban.

You don't have any player switching or if not loggedin then exit's anywhere in this script really. That's a really important fail safe.

Your chopping is just a FindObj… I hate FindObj. I consider it a nooby function. Try learning some more advanced techniques for finding object than FindObj. Most reliable scripts use more advanced techniques.


It's a good job. I'm glad to see you passionate about scripting! So you did good, good luck, I may vote yes idk yet, but right now I'm not going to vote. It may look like your script sucks because of all the stuff I said but that was a very in depth report to show you every single little thing I saw that you could improve this script on and to help you out.

Good luck.

your standards are really bad, you need to add some walking, DTMs, failsafes and Multiplayer.

Thanks for the advice guys, altough this took me around a few weeks, i can now see where and what can be improved ;)

Much appreciated
Exppo

Your help won't go un-noticed.

I'm giving it a yes, because he told me that he only just got back into scripting, only a few days since. And if he can do all this in a few days I think he has a lot of potential. But like the others said, you need to work on your standards.

Thanks for giving me credits :D

Hope you get in as I think you could go far.

Actually…yeah standards are crappy. But if you would have some l33t code then I would vote yes. Unfortunately code isn't good. You have missed plenty good statements what you know(or what you have in your script)…

Too simple and basic, good luck next time.

Fixing standards as we 'post' lol , when I next apply ill make it a banker instead atleast then i can include radial walk :)

I'm giving it a yes, because he told me that he only just got back into scripting, only a few days since. And if he can do all this in a few days I think he has a lot of potential.

I agree xD And thanks atleast someone has Fiath in me :)

From: Negaal
Actually…yeah standards are crappy. But if you would have some l33t code then I would vote yes. Unfortunately code isn't good. You have missed plenty good statements what you know(or what you have in your script)…

Too simple and basic, good luck next time.

Well, what if there doesn't need to be a "next time" he has a chance of getting in this time. Is quite even right now.

STANDARDS ARE SORTED IF YOU WANT TO SEE THE SCRIPT WITH THE STANDARDS THAT HAVE BEEN CORRECTED PLEASE PM ME AND ILL SEND IT TO YOU.

Many Thanks
exppo

I'm sorry, a no from me.

Pretty much because of the reasons people already have posted.

sorry no from me

too simple/short.

and first of all you made your biggest procedure was the disguise. Which wasnt needed that much. and thats all i can say . oh yeah and other reason i said no because, theres NO: RRW/DTMS.

Thanks

From: exppo
STANDARDS ARE SORTED IF YOU WANT TO SEE THE SCRIPT WITH THE STANDARDS THAT HAVE BEEN CORRECTED PLEASE PM ME AND ILL SEND IT TO YOU.

Many Thanks
exppo

Just edit the post. Anyway, It's a no for reasons already posted by jad.

From: Mylesmadness
Just edit the post. Anyway, It's a no for reasons already posted by jad.

You can't edit your SRL-Application post? :O, so if i made a noobie script, and later that day it's already UBER script.. hmm..i think he shouldn't change it. :)
Eerik.

Edited script with better standards :)

From: heavenzeyez1
You can't edit your SRL-Application post? :O, so if i made a noobie script, and later that day it's already UBER script.. hmm..i think he shouldn't change it. :)
Eerik.

I don't think editing standards is the same as posting a whole new script…

From: dude_richard
I don't think editing standards is the same as posting a whole new script…

So radialwalking and adding dtm's aint either?..
Eerik.

I'm just saying that adding or deleting a few spaces isnt really much at all, adding new procedures is, thats why he hasn't.

Half of the script is TypeSend…sorry, no from me. Too short and simple.

From: exppo
Thanks for the advice guys, although this took me around a few weeks, i can now see where and what can be improved ;)

Much appreciated
Exppo

Your help won't go un-noticed.

Great Attitude, don't give up !

~RAM

Im not sure. I think you could contribute to the community. And we also need fresh blood :D. Most of the script is disguises and writeln's which would be a no and you have some pretty bad standards which would be no……
But you know how to make a multiplayer main loop which is a big YES!!!


Btw i attached a pascal formatter ;)


EDIT: RAM welcome back!!! it must be returning time as you and star are back :p

From: heavenzeyez1
You can't edit your SRL-Application post? :O, so if i made a noobie script, and later that day it's already UBER script.. hmm..i think he shouldn't change it. :)
Eerik.

Modification's not a totally new script. I did that every time I did an app.

Edit:Ok after reading the rest of the topic. Yeah I only messed with the color or tol or standereds. I did make my auto responder not respond to itself in the app but…

Sorry, it's a no, like it was already said, too short, too simple, and it only scores a 5 on the app tester (even though it doesn't influence my vote, lol).
Good luck next time, with a bit of practice, you will be in for sure :)
With kind regards,
Stur Pure

Back from school! Thank god!

Thanks for the votes and helpful posts, if i don't manage to get in this time i'll be back with a banker added so thus i can include radial walk and dtm's, i'm pretty sure then i'll swing your vote! Have a good day
Exppo

=Sorry for the double post==


I was just wondering, how long do these applications last, (1 day, 2 days etc..) Thanks.

Exppo

Round about 1 week

From: skilld u
your standards are really bad, you need to add some walking, DTMs, failsafes and Multiplayer.

he has Multiplayer :duh: just because he doesnt have more than 1 player in the declareplayers; doesnt mean its not multiplayer. you need to add more player slots :D

i would change your mainloop though because its a mess…and isnt efficient

Repeat
        if not(LoggedIn) then LoginPlayer; //needed to loginplayers if no one it 
//logged in...failsafe
        Repeat
          StatusReport;
          MainCut;
          FindEnt2;
          RandomFinder;
          AntiBan;
        Until(LoadsCut >= Players[CurrentPlayer].Integers[0])Or(Not(LoggedIn));
      If(Not(LoggedIn))Then
      Begin
        StatusReport;
        NextPlayer(False); //makes player false (not active) only if it was logged out, 
//not if loads were reached
        PLoadsCut := PLoadsCut + LoadsCut;
        LoadsCut := 0;
      End; //else
     if (LoadsCut >= Players[CurrentPlayer].Integers[0]) then
     begin
       StatusReport;
        NextPlayer(true); //set this to true so that if it reaches loads cut
// it will keep the player active and go to the next
        PLoadsCut := PLoadsCut + LoadsCut;
        LoadsCut := 0;
      End;
    Until(false);

Ok thanks for the answers guys, I'll edit it later.

Exppo

Added the excess multiplayer to proove it has multiplayer.

ADDING DMT'S IN ABOUT 10 MINUTES (for trees) - CLOSED <

ADDED A DTM

No, I'm very strict on standards. Other reasons have been stated before too.

~ Cut em2 it

Thanks for all the comments and adivce :)

School went quite fast - (new graphics teacher) :)

Exppo

exppo has been banned for 4 days, due to his posting behaviour.

Closed.