SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
Iron man ftw - SRL Member Application Form
Iron man ftw

What is the meaning to life?


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



Programming Knowledge
Very Very little of java

Other Communitys
Moparisthebest

How Long have You Played Runescape
1 year 6 months

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

Well, I like to learn and i like to help. Whatever I learn i try to help people from what I learned. At school if other kids want help with schoolwork and if i know what I'm doing, or if i know a part of it, I teach them what i know about it. I like SCAR and SRL because I've learned a lot from them, its helped me in my math class also. Helped my grammar too ^^.

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

{.Script Info:
# ScriptName  = IMF's Chicken Killer
# Author      = Iron man ftw
# Description = Kills chickens
# Version     = 0.02
# Date        = Feb 28, 2008
# Comments    =
/Script Info}

(*skilld u, helped me think of ideas for what to do*)

(*Iron man ftw*)



program ChickenKiller;
{.include SRL/SRL/Misc/SMART.scar}
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fighting.scar}

var
  x, y, Chickens, NextPlayerTime, Feathers, BeginningFeathers, StrLev, AttLev, DefLev: integer;
  xx, yy, xxx, yyy, FailSafeTime, RawChicken, CookedChicken: integer;
  xxxx, yyyy: integer;


const

  World = 72; //Pick a different world.
  
  ColorOfFeather = 337412; //!!!INVENTORY!!! COLOR
  
  DoorColor1 = 1790828;
  DoorColor2 = 1724520;
  
  CookingPot1 = 2237221;
  CookingPot2 = 1973792;
  
  RawChicken1 = 8619429;
  RawChicken2 = 8685222;
  
  ChickenColor1 = 0;   //color of the walking chickens
  ChickenColor2 = 0;   //Color of the walking chickens
  
  
procedure DeclarePlayers;
begin
  HowManyPlayers := 3; //Number of players.
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Player to start on.

  Players[0].Name := ''; //Put your Username here
  Players[0].Pass := ''; //Put your Password here
  Players[0].Nick := ''; //Nickname here
  Players[0].Skill:= 'Attack';  //Attack, Strength, Defence
  Players[0].Active := True;

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Skill:= 'Strength';  //Attack, Strength, Defence
  Players[1].Active := True;
  
  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Nick := '';
  Players[2].Skill:= 'Defence';  //Attack, Strength, Defence
  Players[2].Active := True;

end;



Procedure DeclareDTMS;
begin

  RawChicken := DTMFromString('78DA637CC4C4C0B0839101199C5CBB86E13F9' +
       '00689FE0702C6A74035FB50D54064612490BE0154B38B809AFB40' +
       '35EB08A8F90454B395809A7740351BF0AB0100E80110E2');
end;


Procedure DeclareBMPS;
begin

  CookedChicken := BitmapFromString(34, 28, 'beNqNll1LVUEUh' +
       'u0yM81+gfeWVHD6xL4hAomQMCSILroQijCQtEyspKKCwH/cAw+8rW' +
       'b2OR1YbGbPnnmfedeamXNGy/duXLxzbYW4ffk8T16njJmZE0TfefP' +
       'qOaJK2eZpP6DpEbtv3/z4clhBtA/fvxNkj43V0bJoX3sv4zwi9fVw' +
       '/2B35/nmU0E8P+/v0UPjwtJSRkbfjA2mi05W0nhE5+jgA7H9aktNg' +
       'gbWKiWOUpQGkVcpRK3F1q3TH9cWeG6MZtW0//jnt95LgxtHSdKY/u' +
       'zKqe3783sPF17f/QdB//qlWSoFhXaKleX1yn05XOrL1Tn0RSglglf' +
       'QOw/meTImOTQJlj4LbqBSGMAslo0U+koFIUUEXyuFier77OuSVy28' +
       'uD6HiIEOr/bHoAgq1VBS0+b41HQxmFRT4ljADgh8EXxaWzmZnfDp0' +
       'Rkp8ejurTtn8NBZaPVFsE4o9EOx3IDoB3H0+C/FSLoqRXdJFDrVAg' +
       'smaCQkEgwAQVgX0LEZSq2+tZZSE4WgdrRmCHLXfV9fDIWJ+oWFjpq' +
       'D54WvFpTxzPKAJMgMIcii/N5YNGNZQFiCBkuvF0+BsmS+CTpdPPq/' +
       'nixiJ532Mz07YfAaJA+M0Y6VNSc1wuITFO2kU1/14FRQRWhBTaSai' +
       'KZftZPF+ElKs816RBUxepArN1FMJNXZzLln6s+KN5KIGElCiLBCzM' +
       'rDquXwZg6l2hmHSPS+Kqu30AT92mlyhfLx5lnivyCir4XVb44/w4J' +
       'oKBNAg7XI2Q/FtoelKXqlNKBGPIjcxg0l95h2powqnj9COSBc7JWi' +
       'eC1WnT456h2Ye3icl8Ef6GZkjfz89bJYqBWpXgb/Jk2g5LKNSK88O' +
       'Kv515RFTjbVb6eB+AO5FWt+');
end;



(*My function to make it look like your doing something other than rs*)

function OutOfScreen(Time:integer):Boolean;
begin
  GetMousePos(x, y);
  MMouse(0,767,1023,0);
  Wait(Time);
  Result:= True;
  if (Result = True) then  //A excuse to get rid of unused variable
  WriteLn('just pretended you did something other than rs2');  //Same with this
end;


procedure AntiBan;
begin
  case random(250) of
    0: begin
         OutOfScreen(4000 + Random(2000));
         Mouse(x,y,300,300,false);
         Wait(100 + Random(50));
         ChooseOption('lose');
       end;
    1: begin
         Wait(100 + Random(100));
         GetMousePos(x, y);
         RandomRClick;
         Mouse(x, y, 300, 300, false);
         ChooseOption('lose');
       end;
    2: begin
         Wait(100 + Random(100));
         GetMousePos(x,y);
         BoredHuman;
         Wait(100 + Random(500));
         MMouse(x,y,200,200);
       end;
    3: begin
         Wait(300 + Random(400));
         PickUpMouse;
         Wait(200 + Random(500));
       end;
    4: begin
         PickupMouse;
         Wait(400 + Random(400));
         AlmostLogout;
       end;
    5: begin
         Wait(200 + Random(200));
         AlmostLogout;
       end;
    6: begin
         RandomMovement;
         AlmostLogout;
       end;
    7: begin
         RandomMovement;
         RandomMovement;
       end;
  end;
end;


procedure DisguiseIt;
begin
  case Random(10) of //Picks random one of these
    0: Disguise('iTunes');
    1: Disguise('Windows Live Messenger');
    2: Disguise('Untitled - Notepad');
    3: Disguise('Calculator');
    4: Disguise('Recycle Bin');
    5: Disguise('My Computer');
   end;
end;


procedure CountTheBeginningFeathers;
begin
  BeginningFeathers := AmountColor('inv', ColorOfFeather, 10);
end;


procedure CountTheFeathers;
begin
  Feathers := AmountColor('inv',  ColorOfFeather, 10);
end;


procedure SetUpPlayers;
begin
  if not LoggedIn then LoginPlayer;
  SetAngle(true);
   case random(3) of
     0: HoverSkill('strength',false);
     1: HoverSkill('attack',false);
     2: HoverSkill('defence',false);
  end;
  begin
    GameTab(4);
  end;
end;


function PickupFeathersChickens:Boolean;
begin
  if FindObjCustom(x, y, ['ake'], [403461, 403205, RawChicken1, RawChicken2], 5) then //Looks for feathers
  begin
    Wait(50 + Random(50));
    Mouse(x, y, 2, 2,true); //If it finds the color of the feather it will clikc on it
    FFlag(0);  //When it clicks on feathers it puts up a flag, so it waits until flag is gone to continue.
    Result:= True; //pretty much a excuse to get rid of unused variable thing, without making into KillChicken;
    If (Result = True) then
    WriteLn('Picked up some feathers');
  end;
end;


procedure SetAttackMode;
begin
  case Players[CurrentPlayer].Skill of
    'Strength' :
      SetFightMode(2);
    'Attack' :
      SetFightMode(1);
    'Defence' :
      SetFightMode(4);
  end;
end;


procedure KillChicken;
begin
  if not LoggedIn then exit; //Failsafes
  if InvFull then exit;
  begin
    If FindObjCustom(x, y, ['ttack', 'hicken'], [ChickenColor1, ChickenColor2], 5) then //Finds the chicken
    begin
      Mouse(x, y, 2, 2, true); //Clicks on the chicken with a difference of 2 pixels on both x and y.
      FFlag(0); //Waits until flag is gone.
      PickupFeathersChickens; //Picks up the feathers
      Chickens:= Chickens + 1; //Adds the amount of chickens killed, for the proggie
      FindNormalRandoms; //Finds most randoms.
      AntiBan;
    end;
  end;
end;


procedure RespondToMessages;
begin
  If InChat('tr lev') or
  InChat('trength lev') then
  begin
    StrLev := GetSkillInfo('strength',false);
    case Random(3) of
      0: TypeSend('my str level is' + IntToStr(StrLev));
      1: TypeSend('str lvl is' + IntToStr(StrLev) + ' lol');
      2: TypeSend('strength level... uhhh...' + IntToStr(StrLev));
    end;
    if InChat('tt lev') or
    InChat('ttack lev') then
    begin
      AttLev := GetSkillInfo('attack',false);
      case Random(4) of
        0: TypeSend('attack level is' + IntToStr(AttLev));
        1: TypeSend(IntToStr(AttLev) + 'hehe');
        2: TypeSend('uhhh' + IntToStr(AttLev));
        3: TypeSend('busy ');
      end;
    end;
    if InChat('ef lev') or
    InChat('efence lev') then
    begin
      DefLev := GetSkillInfo('defence',false);
      case Random(4) of
        0: TypeSend('my defence level is ' + IntToStr(DefLev));
        1: TypeSend('mine is ' + IntToStr(DefLev));
        2: TypeSend('uhh, ' + IntToStr(DefLev));
        3: TypeSend('def lev for me is' + IntToStr(DefLev));
      end;
    end;
  end;
end;


procedure FailSafeThing;
begin
  if (TimeFromMark(FailSafeTime) = 15 * 10000) and not FindObjCustom(x, y, ['ttack', 'hicken'], [ChickenColor1, ChickenColor2], 5) then
  begin
    if FindColorTolerance(x, y, 60909, mmx1, mmy1, mmx2, mmy2, 15) or FindColorTolerance(x, y, 195836, mmx1, mmy1, mmx2, mmy2, 10) then
    Mouse(x, y, 2, 2, true);
    FFlag(0);
  end;
end;


procedure CookChickens;
begin
  If InvFull then
  begin
    RoadColor := FindRoadColor;
    RadialWalk(RoadColor, 167, 527, 28, 5, 5);
    SetAngle(false);
    If FindObjCustom(x, y, ['pen', 'oor'], [DoorColor1, DoorColor2], 5) then
    begin
      MakeCompass('W');
      Mouse(x, y, 3, 3, false);
      Wait(200 + Random(100));
      ChooseOption('pen');
    end;
    if not RadialWalk(3428720 , 260, 620, 20, 5, 5) then
    begin
      if FindSymbol(x, y, 'cook') then
      Mouse(x, y, 5, 5, true);
      FFlag(0);
    end;
    GameTab(4);
    Wait(200 + Random(200));
    SetAngle(false);
    if FindObjCustom(xx, yy, ['alk'], [CookingPot1, CookingPot2], 5) then
    begin
      FindDTM(RawChicken, xxx, yyy, mix1, miy1, mix2, miy2);
      Mouse(xxx, yyy, 3, 3, true);
      Wait(200 + Random(200));
      Mouse(xx, yy, 3, 3, true);
      Mouse(381, 621, 7, 7, false);
      ChooseOption('ook All');
      repeat
        Wait(100)
      until(FindBitmap(CookedChicken, xxxx, yyyy));
      MakeCompass('N');
      RadialWalk(2382180 , 16, 376, 44, 5, 5);
    end;
  end;
end;


procedure Proggie;
begin
  WriteLn('***********************************************');
  WriteLn('***********************************************');
  WriteLn('*********Chicken Killer by Iron man ftw********');
  WriteLn('Worked for ' + TimeRunning );
  WriteLn('Killed about ' + IntToStr(Chickens) + ' chickens');
  WriteLn('Gathered about ' + IntToStr(Feathers - BeginningFeathers) + ' feathers');
  WriteLn('***********************************************');
  WriteLn('***********************************************');
end;


begin
  SetupSRL;
  DeclareBMPS;
  DeclareDTMS;
  SmartSetupEx(World, false, false);
  WriteLn('Getting S.M.A.R.T ready please wait.');
  Wait(2500 + Random(2500));
  SetTargetDC(SmartGetDC);
  repeat
    wait(100);
  until(SmartGetColor(253, 233)<>1118604);
  DeclarePlayers;
  MarkTime(NextPlayerTime);
  SetUpPlayers;
  DisguiseIt;
  GameTab(4);
  MarkTime(FailSafeTime);
  repeat
    RespondToMessages;
    CountTheFeathers;
    KillChicken;
    CookChickens;
    SetAttackMode;
    Wait(100 + Random(40));
    ClearDebug;
    Wait(50 + Random(30));
    Proggie;
    if (TimeFromMark(NextPlayerTime) = 1000000 + Random(60000)) then
    begin
      repeat
        Logout;
      until(not LoggedIn);
      NextPlayer(True);
    end;
 until(False);
end.

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

looks nice. I like your attitude and i think you have potential. yes.

good luck.

Do you have any proggies?

It looks okay, I am holding vote for a bit…

JW,

MMouse(0,767,1023,0);

It should be afaik

MMouse(0,0,767,1023);

Correct?

i don't think so because i want it to go to the toolbar and stay around the toolbar, that way it looks likes your changing browsers.

I don't have any proggies since noone bothered to post a proggie before.

Looks Ok….. And also went through your posts seem preety good. MmM Ill say……. yes gl.

yesm

yep

I cant vote yet becouse im new as srl member.
Looks good. Failsafes, Standars, i like that.

From: cazax
I cant vote yet becouse im new as srl member.
Looks good. Failsafes, Standars, i like that.

Is this some new rule or something? When I got SRL Members I could vote…

your not supposed to vote until after a few weeks.

Oh, I see, we learn something new everyday (h)

From: Hobbit


When should you be allowed to vote?
A: You should not vote on applications as soon as you get into SRL Members. Wait a couple of weeks and see how others are taking the applications and learn.

here is the answer.

since you never use the result of this function i recommend changing it to a procedure

change this:

function OutOfScreen(Time:integer):Boolean;
begin
  GetMousePos(x, y);
  MMouse(0,767,1023,0);
  Wait(Time);
  Result:= True;
  if (Result = True) then  //A excuse to get rid of unused variable
  WriteLn('just pretended you did something other than rs2');  //Same with this
end;

to this:

procedure OutOfScreen(Time:integer);
begin
  GetMousePos(x, y);
  MMouse(0,767,1023,0);
  Wait(Time);
end;

shouldn't this:

procedure DisguiseIt;
begin
  case Random(10) of //Picks random one of these
    0: Disguise('iTunes');
    1: Disguise('Windows Live Messenger');
    2: Disguise('Untitled - Notepad');
    3: Disguise('Calculator');
    4: Disguise('Recycle Bin');
    5: Disguise('My Computer');
   end;
end;

be this?

procedure DisguiseIt;
begin
  case Random(6)of //Picks random one of these
    0: Disguise('iTunes');
    1: Disguise('Windows Live Messenger');
    2: Disguise('Untitled - Notepad');
    3: Disguise('Calculator');
    4: Disguise('Recycle Bin');
    5: Disguise('My Computer');
   end;
end;

Yeah, i could use a procedure instead. When I first made that It was needed to be a function but i changed it so… yeah.

Yes it would be Random(6), I just made a mistake, sorry.

It would be that since Random(6) chooses from 0-6, and Random(10) chooses from 0-9, therefore making it not disguise as often.

random(6) is from 0-5.

That was a typo, sorry.

Hmm, I'm holding vote leaning to a no. The reasons:

Huge bmp

But, I'm not voting no because your standards are fine…

Cut em2 it

I think it is bit easy.
No from here.

Also.

repeat
  Wait(100)
until(FindBitmap(CookedChicken, xxxx, yyyy));

Let's cook 1 chicken and run?

Negaal, in the bitmap it has the background of the last inventory spot, so then it would wait for a cooked chicken in the last inventory spot.

I don't know what I should do yet… 7 vs 4…
It would be easier if some more people voted.

Let's see what other admins think…

i will say no for these reasons

DTM of chicken is wayy too biggg.
no failsafes, as in elses, if not then
disguise simply fills space (no offence)

BUT
attitude is great and potential DEFIANTLY

learn those things, and say radialwalk and next time is a straight YES!

~Spaz

His activity and longevity aren't too promising.

Okay, I'll use more failsafes on my next script. At the time I made the Disguise procedure I didn't know that jagex can't legally look at your toolbar. But i did have radialwalk in there. Thanks for the advice.

Uhm, it's 7 -6 for now, peoples say when they vote yes, but so far only 2 peoples have sayd when they judged applyer with no. bit unfair. note that admin can still see who voted yes/no. And they can see who is BSing xD

Saying why did you vote no gives more feedback to applyer and next time is more chance that he comes up with better script.

Yeah, only about 3 people said that they voted no, I'd like to know where I went wrong in the script. I'd like it if people told me why they voted yes too, so I know what I'm doing right.

From: cazax
here is the answer.

I made that post.

On Topic: Yes, good luck. You have talent.

How do you mean you made that post? You haven't posted on this thread before? Do you mean the one that Cazax quoted?

From: Iron man ftw
How do you mean you made that post? You haven't posted on this thread before? Do you mean the one that Cazax quoted?

Don't worry, once you get into members there is an F.A.Q section on voting in appliances. Cazax quoted Hobbit but it was actually my post.

From: IP-Drowner
Don't worry, once you get into members there is an F.A.Q section on voting in appliances. Cazax quoted Hobbit but it was actually my post.

ahh yes, im wrong. i looked at hobbit's post only :)

You didn't make it, close one though!
Try again next time. :)

From: Wizzup?
You didn't make it, close one though!
Try again next time. :)

Um, shouldn't you close the thread?

Also, could you list the people that voted no and that voted yes?

EDIT: Just looked at the poll, he did make it by 1 vote. Yes = 7 and No = 6.