SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge


Other Communitys
rs2cheating;

How Long have You Played Runescape
3years

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

Umm, just started scripting 3 days ago, decided that i should create my own script. Lots Of Peoples will say *oh no not another powachopa* but the point of y i created one was to basically show you my scripting experience. i have also been a decent responder in the *Script Help* Sectionas of t3h srl forums. Im Hoping To Get accepted ^^ All Of The Procedures are my own except for the report, and since the progreport is a rather small part in the script, i thought i could use it.

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

program Firstie;
{.include SRL/SRL.Scar}
{.include SRL/SRL/Extended/xAntiban.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
{.include SRL/SRL/Extended/xTiming.scar}

Const
Col1=1664609;//Set Color Numbers 1, 2, and 3
Col2=3698020;
col3=1659206;
Tole=30;//Anywhere From 5 To 50
WhatDir='';//The Direction To Run If U Get Attacked
Axe=True;// ax equipped?
HowLongItRuns=90;//How Long You Want The Script To Run In Minutes
MMouseSpeed=11;//Obvious, Set anywhere From 7-14
  RandomMouseSpeed=15;//Adds Extra Random Speed
Skill='WoodCutting';//Skill To Updrade If You Find A Lamp
Tries=10;//How Many Times To Try And Find The Tree
TreeName='illow';// all the lowercase letters in the tree's name

Var
Loads: Integer;
Exp: Integer;
NumTrees: Integer;
Tried: Integer;
NumLogs: Integer;
BreakTime: Integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1; //Number of players
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;

  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';// 5 LOWERCASE letters from your username
  Players[0].Active:=True;
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

///////////////////////////////////////////////////////////////////////////

procedure FindRandoms;
begin
  If(not(loggedin)) then exit;
  FindFastRandoms;
  FindNormalRandoms;
  FindLamp(Skill);
  If(FindFight) then
    Begin;
      RunAwayDirection(WhatDir)
      Wait(4000+random(3000));
      RunBack;
   end;
end;



procedure AntiBanage;
  begin
    if(not(LoggedIn))then
    Exit;
    case Random(12) of

      0: RandomRClickEvery(3 + Random(3));

      1: RandomEmote

      2: begin
           HoverSkill('Attack', false);
           wait(2000+random(1000));
           GameTab(4);
         end;

      3: RandomChatEvery(4 + Random(4));

      4: LeaveScreenEvery(10 + Random(4));

      5: PickUpMouse;

      6: BoredEvery(10 + Random(5));

      7: begin
           GameTab(1 + Random(12));
           wait(1000+random(1000));
           GameTab(4);
         end;

      8: RandomEmote;

      9: MouseBox(MSX1,MMY1,MMX2,MMY2,3);

      10: AntiBan;

      11: SleepAndMoveMouse(600000+random(300000));
   end;
end;

Procedure AntiChoppingBan;
  Begin;
    Case Random(5) of
      0: RotateEvery(1);

      1: HoverSkill('WoodCutting', False);

      2: PickUpMouse;

      3: HoverSkill('FireMaking', False);

      4: RandomRClick;
   end;
end;

Procedure ShowOff;
  Begin;
    Writeln('l')
    Wait(100)
    Writeln('ll')
    wait(100)
    Writeln('lla')
    Wait(100)
    Writeln('llam')
    Wait(100)
    Writeln('llama')
    Wait(100)
    Writeln('llamam')
    Wait(100)
    Writeln('llamama')
    Wait(100)
    Writeln('llamaman')
    Wait(100)
    Writeln('llamaman O')
    Wait(100)
    Writeln('llamaman OW')
    Wait(100)
    Writeln('llamaman OWN')
    Wait(100)
    Writeln('llamaman OWNZ')
    Wait(100)
    Writeln('llamaman OWNZ Y')
    Wait(100)
    Writeln('llamaman OWNZ YO')
    Wait(100)
    Writeln('llamaman OWNZ YOU')
    Wait(100)
    Writeln('llamaman OWNZ YOU T')
    Wait(100)
    Writeln('llamaman OWNZ YOU Th')
    Wait(100)
    Writeln('llamaman OWNZ YOU The')
    Wait(100)
    Writeln('llamaman OWNZ YOU Then')
    Wait(100)
    Writeln('llamaman OWNZ YOU Then H ')
    Wait(100)
    Writeln('llamaman OWNZ YOU Then He')
    Wait(100)
    Writeln('llamaman OWNZ YOU Then He D')
    Wait(100)
    Writeln('llamaman OWNZ YOU Then He Do')
    Wait(100)
    Writeln('llamaman OWNZ YOU Then He Doe')
    Wait(100)
    Writeln('llamaman OWNZ YOU Then He Does')
    Wait(100)
    Writeln('llamaman OWNZ YOU Then He Does I')
    Wait(100)
    Writeln('llamaman OWNZ YOU Then He Does It ')
    Wait(100)
    Writeln('llamaman OWNZ YOU Then He Does It A')
    Wait(100)
    Writeln('llamaman OWNZ YOU Then He Does It Ag')
    Wait(100)
    Writeln('llamaman OWNZ YOU Then He Does It Aga')
    Wait(100)
    Writeln('llamaman OWNZ YOU Then He Does It Agai')
    Wait(100)
    Writeln('llamaman OWNZ YOU Then He Does It Again')
    Wait(100)

end;

Procedure ReportIt;//TeamEpics Report, rather simple, so i figured
  begin;              //i could use it
    Writeln('My First Real Script <3----LLAMAMAN');
    Writeln('Hope you like it, im applying wiv it');
    Writeln('|Worked For : ' + TimeRunning);
    Writeln('|Chopped ' +IntToStr(NumTrees) + ' Trees');
    Writeln('|Chopped ' +IntToStr(Loads) + ' Loads');
    Writeln('|Gained Approx. ' + IntToStr(Exp) + ' XP');
  end;

Procedure Notree;
  Begin;
    Tried:=0
    If (not(FindObjMulti(Treename,Col1,Col2,Col3,Tole))) Then;
    Begin;
      Tried:=Tried+1;
      If Tried > Tries then
      Begin;
        Writeln('Sorry, But Theres No Nearby Trees Of The Selected Colors')
      end;
    end;
  end;

Procedure ChopMePlz;
  Begin;
    NumTrees:=0
    If(not(loggedin)) then Exit;
    If FindObjMulti(Treename,Col1,Col2,Col3,Tole) Then
      Begin;
        GetMousePos(x, y);
        MMouse(x, y, 5, 5);
        If (IsUpText('hop')) then
        Begin;
          Mouse(x, y, 1, 1,True);
          NumTrees:=NumTrees+1;
          Notree;
          AntiChoppingBan;
       end;
     end;
   end;

Procedure MeasureTime;
  Var Brk,Brk2:integer;
  Begin;
    Begin;
        Brk:= HowLongItRuns * 1000 * 6 + random(100000);
        Brk2:= TimeFromMark(BreakTime);
        If Brk2 >= Brk Then
          Begin;
            Logout;Exit;TerminateScript;
        end;
    end;
end;


Begin;
  NumLogs:=0
  ClearDebug;
  If(not(loggedin)) then LoginPlayer;
  ShowOff;
  SetMouseSpeedEvery(10, MMouseSpeed, RandomMouseSpeed);
  SetUpSRL;
  MeasureTime;
  Repeat;
    ChopMePlz;
    Until(Not(LoggedIn));

end.

please tell me if im decent, or i need more xperience in scripting.

That "end." at the end of your app isn't in the SCAR tags :p

In your FindRandoms procedure you probably shouldn't have if(not(LoggedIn))then Exit; because FindFastRandoms would be looking for InBlack and all that, so that wouldn't be needed, and the script may be better off without it.

FindNormalRandoms; finds a lamp and solves it. If you want to make it so the user can set what to use for a lamp in the constants, and not need to run SetupSRL; and set preferances like that, you'd need to call for SolveLamp before the FindNormalRandoms; because if there was a lamp, FindNormalRandoms; would have solved it already :)

No semi colons after begins, repeats and thens!

Just a little code shortener, you could have 1,8: RandomEmote; instead of having 2 seperate lines for each.

You use FindObj, and they you have MMouse. FindObj will move the mouse to where it found the color, so you don't need MMouse and it just makes the script have some un human like mouse movements.

Logout;Exit;TerminateScript; That should be 3 seperate lines.

You do not have any player switching from what I saw.

The script is still very simple, not enough fail safes and most of it is just your writing in the debug box. And learn proper standards please! :)

It's a great script, and I'm glad to see you learning SCAR and staying active/helpful in the community at the same time, but you need to improve your scripting abilities and your script before becoming a member.

Sorry, but it's a no for now. Keep up the good work though!

That "end." at the end of your app isn't in the SCAR tags

Lol JAD…


Okay lets see

Logout;Exit;TerminateScript;

DUDE!!! Every one of them to their own line! Boreas would be willing to kill a kitten every time he sees that :D

Hmm, the script is a bit too simple.
That show off doesnt show anything off, if you wanna show off(well beginner style) you'd make an array of the texts and then make a for loop say em.


The chopping procedure also is very basic. You have like no failsafes at all you dont have a single own proc (not a proc like your FindRandoms).
Just too basic. Sorry.

To get in:
Read JAD's tutorial which is in his siggy (scroll his sig down)
Learn DTMs, walking is good (DDTMs or RadialWalk), Failsafes, complex scripts, activity, sum posts, so on.

ehhh, since it kinda was my first script i thought i wouldnt get in. i wana make a script that buys the logs from the lumby general store then burns them, u think that wud get me membership? =D

Isnt that a failsafe?

Procedure Notree;
Begin;
Tried:=0
If (not(FindObjMulti(Treename,Col1,Col2,Col3,Tole))) Then;
Begin;
Tried:=Tried+1;
If Tried > Tries then
Begin;
Writeln('Sorry, But Theres No Nearby Trees Of The Selected Colors')
end;
end;
end;

From: llamaman
Isnt that a failsafe?

Actually, if it did something after that. It just writeln's that it can't find the tree there. But the script will keep going; so that just gives the user information. You may have a fail safe or 2 in there, but for it to be a very reliable script, you need many more. Try checking out my tut Learning the things to become a SRL member. Many fail safes in there.

From: llamaman
ehhh, since it kinda was my first script i thought i wouldnt get in. i wana make a script that buys the logs from the lumby general store then burns them, u think that wud get me membership? =D

Almost any script can get you membership, it just depends how well it's scripted and what techniques you use.

From: llamaman
please tell me if im decent, or i need more xperience in scripting.

it is decent.

you do need more experiance.

keep up the good work

(no)

No from me. Sorry.

A no from me also. Sorry mate.

Originality is a big thing to me.

Seems like this is finishd. Try to do the things I told in my first post and come again in a month.

I think the script is a bit too simple.. Looking at what other people have voted I don't think there's any need for me to vote.

No MultiPlayer= A No No
=)

Yohojo's back!