SRL Archive - Archive

madmoon - SRL Member Application Form
madmoon

What is the meaning to life?


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


Programming Knowledge
Java, PHP+mySQL

Other Communitys
Mopar, RSCA, Reinet, SYI

How Long have You Played Runescape
3-4 years

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

Hey,

My name is James from Australia. I'm only 14 but since my dad is in the IT industry I understand computers very well, and can adapt to programs/applications/languages quite easily.

I originally got into the runescape scene from fining a link to richyt.com (on a forum full of keyloggers). I was active there for a while, and was into the SCAR side of things.

When It closed I moved over to RSCN. After using SCAR for a while, Java Bots started to develop, this is when I got my knowlegde of Java. I can't say I was awesome, but I could produce an average script. RSCN closed and re-opened a few times and I just got jack of it and switched to Reinet.

I joined reinet, and found STS. It was quite a bot I must say. It was where my knowlegde of Java broadened and could understand it more and make a proper script. This was the main part of my cheating career. I stayed here for a while actually, but when RSC got locked down, everyone left (including me).

Anyway, this is looking long already, so I won't go into the RS2 Java bot autoing side of things (aryan, sbot2, sbot3, etc).

Apart from all that, In my spare time I do some PHP and MySQL work (this included making a system called mmSecure). Since I know PHP and Java, I grasp the 'if end else' concept fine and SCAR is a breeze. But I still keep the SRL manual at my side (gee you guys have put some work into these procedures)

SRL is quite a piece of work and would look foward to becoming a member.


Thanks guys ;)

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

{.Script Info:
# ScriptName  = Tree Chopper + Firemaker
# Author      = madman
# Description = Chops trees until full inventory then makes fires
# Version     = v0.2
# Date        = 3-Feb-2006
# Comments    = Start anywhere where there are trees, with an axe and tinderbox.
# Autocolor   = Yes

# Release Comments
  * 0.1 - Inital Release
  * 0.2 - Added AntiBan
  
# Credits
  * DWW + Charmz - Various Procedures
  
  **PLEASE post comments and suggestion in post**
 - [url]http://villu-reborn.com/showthread.php?t=6459[/url] -
/Script Info}
program ChopperFireMaker;
{.include SRL\SRL.SCAR}
{.include SRL\SRL\skill\WoodCutting.scar}

Var
Colors: Array[1..3] of Integer;
Loads, LogCount : Integer;
LogDTM, TinderDTM: Integer;

Const
       TreeTol  = 5;     //Tolerance for tree color
      WaitTime  = 15;    //Maximum time before clicking tree again (seconds)
      MaxLoads  = 10;    //Max Loads Per Player
  MinutesALoad  = 5;     //Maximum minutes per load
  LeftCPercent  = 80;    //Percent to left click
       Version  = '0.2'; //No Touch This


Procedure DeclarePlayers;
Begin
  StartPlayers(true, '');
End;


//*************************\\
//      DTMS / BMPS        \\
//*************************\\

Procedure LoadDTM;
Begin
  LogDTM := DTMFromString('78DA63F466626078CA8002B2820C19FE03694' +
       '620FE0F048C7640357719D000231209A42D816A5E1150E30254F3' +
       '91809A50A09A3704D40401D53C2242CD6D026A3C816AEEE057030' +
       '0D68B0F7A');
  TinderDTM := DTMFromString('78DA63F4626260E060644006098E9C0CFF813' +
       '448F43F10308601D570A1AA81C8C248200D32478C801A6BA01A3E' +
       '026ADC806AFE31E057130254F397801A27A01A6102760511E11E7' +
       'BA01A16026A7C816AFEE0770F00952B0C0F');
End;

//****************\\
//    ANTIBAN     \\
//****************\\
Procedure MyAntiBan;
Begin
  RandomChatEvery(10 + Random(5));
  RotateEvery(5 + Random(2));
  LeaveScreenEvery(5 + Random(5));
  PickUpMouseEvery(5 + Random(10))
  RandomRClickEvery(15 + Random(5))
End;

//*****************\\
//     RANDOMS     \\
//*****************\\
Function TreeColor : Integer; Forward;

Procedure DoMyRandoms;
Begin
  ClickToContinue;
  FindNormalRandoms;
  FindHead;
  if(FindFight)then
  Begin
    RunAwayDirection('N');
    Wait((60 * 500) + Random(60 * 500));
    RunBack;
  End
  if(FindDead)then
  Begin
    Writeln('Player is dead... NextPlayer');
    NextPlayer(false);
  End
  FindEnt(TreeColor);
  FindBirdsNest;
  MyAntiBan;
End;

Function Ent(Ex,Ey : integer): Boolean; //From Charmz
Begin
 MMouse(Ex, Ey, 0, 0);
 If(FindColorSpiralTolerance(x, y, 3432536, MSX1, MSY1, MSX2, MSY2, 10))then
  MMouse(x, y, 0, 0);
  If(IsUpText('Chop')) or (IsUpText('Tree')) or (IsUpText('Down'))then
   Begin
    If(FindColorSpiralTolerance(x, y, 383705, 1, 1, 180, 39, 20))or
      (FindColorSpiralTolerance(x, y, 65535, 1, 1, 200, 40, 20))then
     Begin
      Result:= True;
      EntsAvoided:=EntsAvoided + 1;
      WriteLn('Ent found, waiting');
      Mouse(648, 83, 1, 1, True);
      Wait(5000+Random(2000));
     End else
      Result:= False;
      Exit;
  End;
End;

//******************\\
//   COLOR STUFF    \\
//******************\\

Function FindTreeColorsIfNeeded(refrencecol,tol,tol2:integer):boolean;  //Stole from DWW
Var
  c,a,b,xm,ym,curcolor:integer;
  oc1,oc2,oc3:boolean;

 Begin
  If ((Colors[1]=0) or (Colors[2]=0) or (Colors[3]=0)) Then
   Begin
    If (FindColorTolerance(x,y,refrencecol,3,3,515,338,tol)) Then//Find tree close
     Begin
      if (FindObj(x,y,'Chop',refrencecol,tol)) Then
       Begin
        a:=1;
        GetMousePos(x,y);
        xm:=x;
        ym:=y;
        repeat
         xm:=xm+a;
         ym:=ym+b;
         curcolor:=GetColor(xm,ym);
         MMouse(xm,ym, 5, 5);
         Wait(5+random(5));
         If(IsUpText('Chop'))then
          Begin
           If(SimilarColors(curcolor,refrencecol,tol2))and(oc1=false)then
            Begin
             Colors[1]:=curcolor;
             oc1:=true;
            End;
           If(SimilarColors(curcolor,refrencecol,tol2))and
             (not(curcolor=Colors[1]))and(oc2=false)then
            Begin
             Colors[2]:=curcolor;
             oc2:=true;
            End;
           if(SimilarColors(curcolor,refrencecol,tol2))and
             (not(curcolor=Colors[1]))and
             (not(curcolor=Colors[2]))and(oc3=false)then
            Begin
             Colors[3]:=curcolor;
             oc3:=true;
            End;
           End;
          If(not(IsUpText('Chop')))then
           Begin
            c:=c+1;
            xm:=x;
            ym:=y
            MMouse(xm,ym,1,1);
            wait(200+random(100)+random(100))
            if(c=1)then a:=-1;
             if(c=2)then begin a:=0;b:=-1;end;
            if(c=3)then begin a:=0;b:=2;end;
           End;
         Until((oc1)and(oc2)and(oc3))or(c>=4);
        End;
       End;
      If(Colors[1]>0)and(Colors[2]>0)and(Colors[3]>0)then result:=true;
     End;
 End;

Function TreeColor : integer; //Stolen from DWW
  Var RandomColor:integer;
 Begin
  Repeat
   RandomColor:=random(3)+1;
  Until (RandomColor >= 1) or (RandomColor <= 3);
 Result:=Colors[RandomColor];
End;

//*******************\\
//     PROCEDURES    \\
//         +         \\
//     FUNCTIONS     \\
//*******************\\

Procedure ProgressReport;
Begin
  ClearDebug;
  Writeln('****************************');
  Writeln('/ Fire Maker + Log Chopper \');
  Writeln('/           v' + Version + '           \');
  Writeln('============================');
  Writeln('  Ran for ' + TimeRunning);
  Writeln('  Cut and light ' + IntToStr(LogCount) + ' logs');
  Writeln('****************************');
End;

Procedure NewPlayer;
Begin
  if(not(LoggedIn)) then LoginPlayer;
  GameTab(4);
  if(not(FindInvDTM(x, y, TinderDTM)))then
  Begin
    Writeln('No tinder box! ... NextPlayer');
    NextPlayer(false);
  End
  HighestAngle;
  SetRun(true);
  PerfectNorth;
End;

Function FindTree(MaxTol:Integer):Boolean; //Stolen from DWW
Var Tol,Ex,Ey:Integer;

Begin
  While (Not (FindColorTolerance(Ex, Ey, TreeColor, MSX1, MSY1, MSX2, MSY2, Tol))
  And Not (Tol > MaxTol)) Do
    Begin
      Tol:=Tol+1;
    End;
  If ((FindColorTolerance(Ex, Ey, TreeColor, MSX1,MSY1 ,MSX2, MSY2, Tol))
  And Not (Tol > MaxTol)) Then Result:=True;
  Tol:=1;
  Wait(10);
End;

Procedure DoChopping;
Begin
  if(FindTree(TreeColor))then
  Begin
    if(FindObj(x, y, 'ree', TreeColor, TreeTol))then
    Begin
      if(not(Ent(x, y)))then
      Begin
        if((Random(100) + 1) < LeftCPercent)then
        Begin
          Mouse(x, y, 0, 0, true);
          Wait(50);
        End else
        Begin
          Mouse(x, y, 0, 0, false);
          ChooseOption(x, y, 'own');
          Wait(50);
        End
        Flag;
        Wait(500 + Random(500));
        MarkTime(Mark);
        repeat
          DoMyRandoms;
          Wait(50 + random(50));
          if(InvFull)then Break;
        Until(not(TimeFromMark(Mark) > (1000 * WaitTime)));
      End
    End
  End
End;

//*****************\\
//    MAIN LOOP    \\
//*****************\\

Procedure Setup;
Begin
  SetupSRL;
  LoadDTM;
  MouseSpeed := 10;
  BenMouse := true;
  DeclarePlayers;
  ActivateClient;
  Wait(1000 + Random(1000));
End;

begin
  Setup;
  Repeat
    if(LoggedIn)then
    Begin
      NewPlayer;
      FindAxeHeadColor;
      FindTreeColorsIfNeeded(1520688, 5, 45);
    End
    Repeat
      MarkTime(Mark);
      Repeat
        if(not(LoggedIn))then Break;
        DoChopping;
      Until((InvFull) or (TimeFromMark(Mark) >= 1000 * 60 * MinutesALoad));
      Repeat
       if(FindInvDTM(x, y, LogDTM))then
       begin
         Mouse(x, y, 3, 3, true);
         Wait(1000 + random(500));
         if(FindInvDTM(x, y, TinderDTM))then
         begin
           Mouse(x, y, 3, 3, true);
           Wait(1000 + Random(500));
           repeat
             if(InChatMulti('ou can', 't ligh', 't a fir'))then
             Begin
               MouseFindFlag(MMCX, MMCY, 15, -15);
               Flag;
               Break;
             End
             Wait(500);
             DoMyRandoms;
             Wait(5);
           until(not(InChat('attempt to'))) or (InChat('advanced a'));
         End
         LogCount := LogCount + 1;
       End
      Until(not(FindInvDTM(x, y, LogDTM)));
      Loads := Loads + 1;
      ProgressReport;
      SRLRandomsReport;
      if(Loads >= MaxLoads)then Logout;
    Until(not(LoggedIn));
    NextPlayer(true);
  Until(false);
end.

——————————————————

=O the DWW is being put to good use. It is good you credited what needs to be credited, but i do think you copied just a bit too much. It just looks like you merged the DWW and Charmzes cutter. Sorry, but a no from me.

The main point was to add firemaking to an existing script but it ends up I just re-wrote most of it anyway.

I'm not sure if you noticed, but the procedures from DWW (that I have) are infact from other scripts as well.

I think you should try making a script with minimal "stolen" code.
Its a good script and all, but id like to see some more original work, just to see your coding.

Good Luck,
I know you can whip out something nice if you try

LOL atleast he gave credits to the person who he took it from .

Ill have to say no, because theres so much "stolen" code, even if u credited the people, but still they arent made by u…

In.