SRL Archive - Archive

Illkillutill - SRL Member Application Form

Illkillutill

2008-02-16 00:19:18

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

What is the meaning to life?

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

Programming Knowledge
PHP, HTML

Other Communitys
None

How Long have You Played Runescape
about a year.

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

I am 16 years old and live in the United States. I have known how to script for sometime, but have been working on a couple scripts to make sure they are the best. I know PHP, and some HTML from putting together many websites in the past. I would love to become a part of this community and allow my knowledge to grow.

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

program CammyYews;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}


var bx, by, cx, cy, tx, ty, LC, FRC, combat: Integer;

const
   RunWhere = 'N';   //which way to run if find fight, recommend not to change.
                     //only gave the option in case problems occur.
   
   UseSRLDefaultMouseSpeed = True; //do you want to use srl's mouse speed?
                                  // false to use your own, true to use srl's.
                                // if using own, then set below this
   SelectYourMouseSpeed = 13;  // don't change unless neccesary, adds random 3.
                             // don't put a mouse speed thats outragously fast.
                             
   ChangeChat = True; //true to set the recommended chat settings
                      //false to not
                      
   Retaliation = False; // shouldn't have to touch this, but i gave the option anway.
                       // False will set Auto Realiate off, in case of a fight.
                      // True will keep it on or turn it on.(don't recommend)

procedure DeclarePlayers;
begin

  NumberOfPlayers(1);
  CurrentPlayer:= 0;

  Players[0].Name:= 'username'; // username goes here
  Players[0].Pass:= 'password'; // password goes here
  Players[0].Nick:= 'sern'; // 3-4 letters of username like shown - no caps
  Players[0].Active:= True; // use this player? yes = true, no = false

  {Players[1].Name:= '';
  Players[1].Pass:= '';
  Players[1].Nick:= '';
  Players[1].Active:= True;

  Players[2].Name:= '';
  Players[2].Pass:= '';
  Players[2].Nick:= '';
  Players[2].Active:= True;

  Players[3].Name:= '';
  Players[3].Pass:= '';
  Players[3].Nick:= '';
  Players[3].Active:= True;

  Players[4].Name:= '';
  Players[4].Pass:= '';
  Players[4].Nick:= '';
  Players[4].Active:= True; }

  // you can add more players, just make sure to add the coresponding number
  // so if you were to make 1 more, it would be like this
  // Players[5]... and so on.

end;

{*******************************************************************************
function FindAxe: Boolean;
By: Sumilion || I just added the dragon axe.
Description: Finds if there is an axe present. Axe can be wielded or unwielded.
             Stores place in Boolean var EquipAxe.
*******************************************************************************}
function FindAxesD: Boolean;
var
  InvAxe, WieldAxe, Ix, Iy, i: Integer;
  dtmAxes: array[0..6] of Integer;
begin
  if not LoggedIn then
    Exit;
  dtmAxes[0] := DTMFromString('78DA63F4636260D06064000108C9C09028CAC' +
       '3C00CE5FF07024677A01A75982C0CA0EA610C00AA5126A0268C08' +
       '73406AB409A801B95997801A57A01A1DFC6A00BF8907ED');  //dragon
  dtmAxes[1] := DTMFromString('78DA639CCEC4C0F09401051485F1318800694' +
    '620FE0F048C4B806AEEA2AA718E4864E082AA0101C6C54035F751' +
    'D5D887C6A1AA590A547313558D4B740A8A1A00CFA10E03'); //rune
  dtmAxes[2] := DTMFromString('78DA6374606060686440014D497C0C22409A1' +
    '188FF0301A337905187AAC6C6D786810BAA0604187D804415AA1A' +
    '7B7F7B5435BE40A21C558D73B0338A1A00C1660AA8'); //addy
  dtmAxes[3] := DTMFromString('78DA633CC4C4C010C0C8800C5A53F81852803' +
    '448F43F10309E05AAF14155636111CCC0055503028CE7816A5C51' +
    'D5D839C4A2AA3981A9C6C52D0D450D0061FC0C64'); //mith
  dtmAxes[4] := DTMFromString('78DA63CC636260D8C3C8800C5A53F81852803' +
    '448F43F10305602D5EC4055939B9ACAC0055503028CD540351B51' +
    'D594E5E5A2AA29C154D3545989A20600C3BC0E32'); //steel
  dtmAxes[5] := DTMFromString('78DA63BCC9C4C0309191010498182020C6859' +
    '34103488344FF0301E353A04C2F230332F0707161E082AA0101C6' +
    '0740356DA86A22838351D5BC00AAE94655932ACA89AAE639A6394' +
    '1DEDE286A00B1F90F6D'); //iron
  dtmAxes[6] := DTMFromString('78DA63EC626060086140016DA97C0C22409A1' +
    '188FF0301E33420C307558D97A5220317540D08304E051201A86A' +
    'DCCCE451D54C07129EA86AFC6C5450D40000D77E0AA2'); //bronze


  GameTab(5);
  for WieldAxe := 0 to 6 do
    if(FindDtm(dtmAxes[WieldAxe], Ix, Iy, MIX1, MIY1, MIX2, MIY2))then
      Break;

  GameTab(4);
  for InvAxe := 0 to 6 do
    if(FindDtm(dtmAxes[InvAxe], Ix, Iy, MIX1, MIY1, MIX2, MIY2))then
     Break;

  if(InvAxe = 8)and(WieldAxe = 8)then
  begin
    Result := False;
    Writeln('No axee was found');
    for i := 0 to 5 do
      FreeDtm(dtmAxes[i]);
    Exit;
  end;

  if((InvAxe - WieldAxe) < 0)then
    EquipAxe := False
  else
    EquipAxe := True;

  case Min(WieldAxe, InvAxe) of
    0: WriteLn('Using Dragon axe');
    1: WriteLn('Using Run axe');
    2: WriteLn('Using Addy axe');
    3: WriteLn('Using Mith axe');
    4: WriteLn('Using Steel axe');
    5: WriteLn('Using Iron axe');
    6: WriteLn('Using Bronze axe');
  end;

  Result := True;
  for i := 0 to 6 do
    FreeDtm(dtmAxes[i]);
end;


{*******************************************************************************
procedure Retaliate(AutoRet:Boolean);
By: WT-Fakawi & n3ss3s
Description: Set's Auto Retaliate ON of OFF.
*******************************************************************************}

procedure Retaliate(AutoRet:Boolean);
Var
  X, Y: Integer;
Begin
  GameTab(1);
  If AutoRet Xor FindColor(X, Y, 1777020, 624, 385, 719, 396) Then
    Mouse(666,381,8,8, True);
End;


procedure CharacterSetup;
begin
  if (not(LoggedIn)) then
  Exit;
  SetBar('Brightness', 4);
  if ChangeChat = True then
  begin
    SetChat('Hide', 1);
    SetChat('Off', 2);
    SetChat('Off', 5);
  end;
  if Retaliation = False then
  begin
   Retaliate(False);
  end;
  if Retaliation = True then
  begin
   Retaliate(True);
  end;
end;


function GetSkill: Integer;   //thanx HyperSecret for helping me out!
begin
 Result :=GetSkillInfo('Woodcutting', false);
end;


procedure NoRandoms;
begin
 If (not(LoggedIn)) then
 Exit;
 FindNormalRandoms;
 FindEnt(cx, cy, true);
 if FindDead then
  begin
   Logout;
   WriteLn('Logged Out... You died. :-(')
  end;
 if NoGameTab then
  begin
   Logout;
   WriteLn('Logged Out... No Game Tab.');
  end;
 FindNormalRandoms;
end;


procedure LetsNotGetBanned;
begin
 If (not(LoggedIn)) then
 Exit;
   NoRandoms;
     Case random(7) of
      0: AlmostLogout;
      1: PickUpMouse;
      2: BoredHuman;
      3: HoverSkill('woodcutting', false);
      4: GameTab(8);
      5: GameTab(12);
      6: HoverSkill('fletching', false);
   end;
   GameTab(4);
end;


procedure LetsNotDie;
begin
 If (not(LoggedIn)) then
 Exit;
 if FindFight then
  begin
   RunTo(RunWhere, false);
   Wait(13000+random(5000));
   If FindSymbol(tx, ty, 'tree') then
   Mouse(tx, ty ,2 , 2, true);
  end;
end;


procedure WaitForYewSpawn;
begin
  if (not(LoggedIn)) then
  Exit;
  LetsNotDie;
  NoRandoms;
  Case random(6) of
    0: HoverSkill('fletching', false);
    1: BoredHuman;
    2: PickUpMouse;
    3: HoverSkill('strength', false);
    4: AlmostLogout;
    5: Wait2(2500, true);
  end;
  LetsNotDie;
  NoRandoms;
end;


procedure RandomTreeClicking;
begin
  if (not(LoggedIn)) then
  Exit;
  Wait(1000+random(5000));
  if FindObjTPA(cx, cy, 1125162, 3, -1, 5, 3, 2, 'Yew') then
  begin
   Case random(2) of
    0: begin
     FindNormalRandoms;
     if IsUpText('Yew') then
     MMouse(cx, cx, 2, 2);
     FindEnt(cx, cy, true);
     FindNormalRandoms;
     Mouse(cx, cy, 0, 0, true);
     FindEnt(cx, cy, true);
     NoRandoms;
       end;

    1: begin
     FindNormalRandoms;
     if IsUpText('Yew') then
     MMouse(cx, cy, 2, 2);
     FindEnt(cx, cy, true);
     Mouse(cx, cy, 0, 0, false);
     FindEnt(cx, cy, true);
     ChooseOption('Chop down');
     FindNormalRandoms;
     FindEnt(cx, cy, true);
     NoRandoms;
      end;
   end;
   if (not(FindObjTPA(cx, cy, 1125162, 3, -1, 5, 3, 2, 'Yew'))) then
   begin
    WaitForYewSpawn;
   end;
  end;
end;
  

procedure ToYews;
var
FRC, LC: Integer;
begin
  if (not(LoggedIn)) then
  Exit;
  LC :=FindLadderColor;
  FRC :=FindRoadColor;
  MakeCompass('N');
  SetAngle(true);
  RadialWalk(FRC, 177, 182, 50, 0, -5);
  FFlag(8);
  SetRun(true);
  RadialRoadWalk(LC, 180, 250, 72, 5, -5);
  FFlag(8);
  RadialWalk(813098, 215, 250, 72, -15, -15);
  WriteLn('At Yews');
end;


procedure ChopDaYews;
begin
  if (not(LoggedIn)) then
  Exit;
  Wait(2000);
  MakeCompass('E');
  SetAngle(true);
  if (not(FindObjTPA(cx, cy, 1125162, 3, -1, 5, 3, 2, 'Yew'))) then
   begin
    WaitForYewSpawn;
   end;
  if FindObjTPA(cx, cy, 1125162, 3, -1, 5, 3, 2, 'Yew') then
  begin
  repeat
  Case random(2) of
  0: begin
    FindEnt(cx, cy, true);
    if IsUpText('Yew') then
    Mouse(cx, cy, 2, 2, true);
    Wait(250);
    FindEnt(cx, cy, true);
     end;
    
  1: begin
    FindEnt(cx, cy, true);
    Mouse(cx, cy, 2, 2, false);
    ChooseOption('Chop down');
    Wait(250);
    FindEnt(cx, cy, true);
     end;
    
  end;
  WriteLn('Chopping Yews');
  RandomTreeClicking;
  NoRandoms;
  LetsNotDie;
  LetsNotGetBanned;
   if (not(FindObjTPA(cx, cy, 1125162, 3, -1, 5, 3, 2, 'Yew'))) then
   begin
    WaitForYewSpawn;
   end;
  Until InvFull
  end;
end;


procedure WalkToCammyBank;
begin
  if(not(LoggedIn)) then
  Exit;
  FRC :=FindRoadColor
  begin
   WriteLn('Walking to bank');
   SetRun(true);
   MakeCompass('N');
   RadialWalk(LC, 30, 90, 70, -2, 2);
   RadialWalk(FRC, 15, 45, 72, -2, 2);
   WriteLn('Walking to cammy road');
   FFlag(2);
   RadialWalk(LC, 0, 40, 70, -1, 1);
   WriteLn('On road');
   FFlag(2);
   WriteLn('In bank');
  end;
end;


procedure CammyBank;
begin
 if (not(LoggedIn)) then
 Exit;
 begin
  if FindObjCustom(bx, by, ['Bank', 'ank', 'ooth'], [8360346, 2837597, 3754580], 3) then
   begin
    Mouse(bx, by, 2, 2, false);
    ChooseOption('Use-quickly');
    Wait(10);
    Deposit(1, 28, 2);
   end;
 end;
end;
  

procedure MainLoopage;
begin
  repeat
  FindAxesD;
  CharacterSetup;
   ToYews;
   ChopDaYews;
  Until InvFull
   WalkToCammyBank;
   CammyBank;
end;


begin
  SetupSRL;
  if (not(UseSRLDefaultMouseSpeed)) then
  MouseSpeed := SelectYourMouseSpeed+random(3);
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
  begin
  combat := getcombatlevel;     // thanks spaztaz666 for the help :P
  If combat < 20 then
 begin
  WriteLn('oh noes combat is only '+IntToStr(combat)+'and you might die.');
   begin
    WriteLn('You must use a character with 20+ combat or you will die');
    Logout;
    TerminateScript;
   end;
 end;
If combat > 20 then
WriteLn('Good, Combat lvl is '+IntToStr(combat)+' which is good enough not to die');
  if GetSkill > 60 then
   begin
    WriteLn('Good, ' +IntToStr(GetSkillInfo('Woodcutting', false))+ ' woodcutting :-)');
    WriteLn('Moving on');
   end;
  Case random(3) of
 0: Disguise('Windows Live Messenger');  // change any of them you want
 1: Disguise('Adobe Photshop');
 2: Disguise('Norton AntiVirus');
  end;
   begin
   if (not(LoggedIn)) then
   LoginPlayer;
    MainLoopage;
   end;
  end;
end.

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

Raskolnikov

2008-02-16 01:40:16

Okay, a few things:

Work on your standards, they aren't quite there yet…
Also:

1: begin
    FindEnt(cx, cy, true);
    Mouse(cx, cy, 2, 2, false);
    ChooseOption('Chop down');
    Wait(250);
    FindEnt(cx, cy, true);
     end;

is sort of dectable, let me show you how I would do this:

1: begin
    FindEnt(cx, cy, true);
    Mouse(cx, cy, 2, 2, false);
    Wait(20+random(30));
    ChooseOption('Chop down');
    Wait(250);
    FindEnt(cx, cy, true);
     end;

notice I added the wait in there.
There is also this:

RadialWalk(813098, 215, 250, 72, -15, -15);

I would make an auto-coloring function because in runescape colors change.

Otherwise it is a good script!
Im holding my vote for right now though…

gl,
Cut em2 it

BobboHobbo

2008-02-16 05:31:04

Result = 78
Apply for members, unless you have cheated this

1/4 script is like not your stuff and mainly where you getting all the points for is your non failsafe radialwalks and sulimons DTM axe finder gives u 30 mark so voting no.

Naum

2008-02-16 06:26:59

No. Sorry..
Read this tut to understand it better

Illkillutill

2008-02-16 09:57:25

i appreciate the help guys, i will work on my standards and making it every bit as undetectable as possible. i do have one question though. you said i need to use an autocolor function because the colors change. i have looked at numerous tuts and can't find out anything good for trees, plants, etc. could you point me in the right direction? thanks guys, i appreciate the help.

nielsie95

2008-02-16 09:57:43

You're not getting in this time.
You may try again in one month, good luck.
Closed.