SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Java, C++, Visual Basic

Other Communitys
None

How Long have You Played Runescape
7 years? not sure anymore…

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

Well, I started programming in Visual Basic in my Junior year at high school. During my senior year I learned C++ and some Java/C#. I am not the most knowledgeable about Java or C#, but I know enough about programming in general that I have been able to help my friends with their problems (PHP, Java, and C#). I've only rather recently gotten into actually scripting for SCAR, I was a leecher for a long time. But, boredom got the best of me and am now quite interested in learning more, and have made a couple scripts (mostly for personal use).

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

TZ-KEK CURSER

For this script you must be a member, you have to go to the Tzhaar fight caves and kill the first 2 waves. After that Tz-Kek should be the only monster for the 3rd wave. So, find the rock thats shaped somewhat like Italy, and get him stuck on one of the edges (hes atleast 1.5 squares). Then all you need is to get 1 square away and get 3 colors. I have some anti-ban, and no anti-randoms are necessary. Its been tested and said to work for 8 hours. Stricker666 was my tester.

{---------------------------------------------------------}
{                 /\ /\__ ___   _____  ___                }
{                / //_/ _` \ \ / / _ \/ __|               }
{               / __ \ (_| |\ V /  __/\__ \               }
{               \/  \/\__,_| \_/ \___||___/               }
{              _____                    _                 }
{             /__   \____      /\ /\___| | __             }
{               / /\/_  /____ / //_/ _ \ |/ /             }
{              / /   / /_____/ __ \  __/   <              }
{              \/   /___|    \/  \/\___|_|\_\             }
{                ___                                      }
{               / __\   _ _ __ ___  ___ _ __              }
{              / / | | | | '__/ __|/ _ \ '__|             }
{             / /__| |_| | |  \__ \  __/ |                }
{             \____/\__,_|_|  |___/\___|_|                }
{---------------------------------------------------------}
{        WITH CURSES USE THE FOLLOWING EQUIPMENT:         }
{      FULL IRON (PLATE, LEGS, FULL HELM, AND KITE)       }
{         SECURITY DUNGEON BOOTS OR METAL BOOTS           }
{            DRAGON HIDE OR LEATHER VAMBRACES             }
{                MUD STAFF IF POSSIBLE                    }
{---------------------------------------------------------}
{ KILL FIRST 2 WAVES, THEN GET TZ-KEK STUCK ON THE OUTCROP}
{                 SHAPED KINDA LIKE ITALY.                }
{---------------------------------------------------------}
program TzKekCurser;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\magic.scar}
var
  x, y, i, NumOfCurses, Tries, AFKMark, RotateMark, HoverMark, LeaveScreenMark: Integer;
  Quit: Boolean;

{---------------------------------------------------------}
{                          SETUP                          }
{---------------------------------------------------------}

const
  Spell = 'Curse'; // 'Confuse', 'Weaken', 'Curse'
  CursesToDo = 600; // Set this properly
  TimeBetween = 2000; // Time Between casts. (1000 ms = 1 s)
  NoBan = 10; //amount of time(in mins) before afk(10 to 30 sec)

  Color1 = 123;  // Color on Tz-Kek
  Color2 = 123;  // Color on Tz-Kek
  Color3 = 123;  // Color on Tz-Kek

  MouseSpd = 14; // Lower is Faster

{---------------------------------------------------------}
{                     PLAYER SETUP                        }
{---------------------------------------------------------}

procedure DeclarePlayers;
begin
  Status('Loading Players...')

  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '1234';
  Players[0].Pass := '1234';
  Players[0].Nick := '234'; // 3-4 letters of username
  Players[0].Active := True;
end;

{---------------------------------------------------------}
{                    DONT TOUCH!!!!                       }
{---------------------------------------------------------}

procedure Report;
begin
  ClearDebug;
  SRLRandomsReport;
  WriteLn('--------------------<>--------------------')
  WriteLn('           Kaves Tz-Kek Curser            ')
  WriteLn('                                          ')
  WriteLn(' Running Time: ' + (TimeRunning) + '      ')
  WriteLn(' Curses Cast: ' + IntToStr(NumOfCurses) +'')
  WriteLn('                                          ')
  WriteLn('--------------------<>--------------------')
end;

procedure Hover;
begin
  if (TimeFromMark(HoverMark) / 60000 >= 7 + random(45)) then
  begin
    MarkTime(HoverMark);
    HoverSkill('magic',false);
  end;
end;

procedure Leave;
var
  rx, a: Integer;
begin
  if (TimeFromMark(LeaveScreenMark) / 60000 >= 6 + random(10)) then
  begin
    MarkTime(LeaveScreenMark);
    rx := Random(300);
    a := Random(2);
    if (a = 0) then
    begin
      MMouse(rx, 1, 0, 0)
        ClickMouse(rx, -1, True);
      Wait(1000 + Random(1000));
    end else if (a = 1) then
    begin
      MMouse(rx, 502, 0, 0)
        ClickMouse(rx, 503, True);
      Wait(1000 + Random(1000));
    end;
  end;
end;

procedure Rotate;
begin
  if (TimeFromMark(RotateMark) / 60000 >= 7 + random(13)) then
    begin
      Status('Rotating...');
      SendArrowSilentWait(Random(4), 500 + Random(500));
      SendArrowSilentWait(Random(4), 500 + Random(500));
      MakeCompass('N');
      HighestAngle;
      MarkTime(RotateMark);
    end;
end;

procedure AFK;
begin
  if (TimeFromMark(AFKMark) >= ((NoBan+random(6))*60000)) then
    begin
      Status('AFK...');
      PickUpMouse;
      wait(10000+random(50000));
      PickUpMouse;
      MarkTime(AFKMark);
    end;
end;

procedure AntiBanner;
begin
  AFK;
  Rotate;
  Hover;
  Leave;
end;

procedure FindTzKek;
var
  color: Integer;
begin
  Status('Finding Tz-Kek...');
  i := random(3);
  case i of
  0: color := Color1;
  1: color := Color2;
  2: color := Color3;
  end;

  repeat
    wait(100);
    Inc(Tries);
  until (FindColorTolerance(x,y,color,MSX1,MSY1,MSX2,MSY2,10)) or (Tries > 10);
end;

procedure CurseTzKek;
var
  r: Integer;
begin
  if not(LoggedIn) then Exit;
  GameTab(7);
  Status('Cursing Tz-Kek...');
  if Cast(Spell) then
    begin
      if Tries < 10 then
        begin
          Mouse(x,y,2,2,true);
          Inc(NumOfCurses);
          Tries := 0;
          if (r = 10) then begin r := 0; Report; end else Inc(r);
          AntiBanner;
        end
      else
        begin
          WriteLn('Couldnt find Tz-Kek.');
          Quit := True;
        end;
    end
  else
    begin
      WriteLn('Not enough runes for cast.');
      Quit := True;
    end;
end;

begin
  SetupSRL;
  ActivateClient;
  DeclarePlayers;
  MouseSpeed := MouseSpd + Random(2);
  if not(LoggedIn) then Loginplayer;

  repeat
    HighestAngle;
    SetScreenName(Players[CurrentPlayer].Nick);
    NumOfCurses := 0;
    Quit := False;
    MarkTime(HoverMark);
    MarkTime(LeaveScreenMark);
    MarkTime(RotateMark);
    MarkTime(AFKMark);
    repeat
      FindTzKek;
      CurseTzKek;
      wait(TimeBetween + random(250));
    until (NumOfCurses = CursesToDo) or (Quit);
    if (NumOfCurses = CursesToDo) then
      begin
        Report;
        WriteLn('Done all '+IntToStr(CursesToDo)+' curses, huzzah!');
      end;
    Status('Logging Out...');
    LogOut;
    wait(2000)
      NextPlayer(False);
    HighestAngle;
  until (false);
end.

CHICKEN KILLER (BASIC)

This is a very basic Chicken Killer I made, I plan on adding feather pick up but haven't got it working yet. It works at Lumbridge Chicken spot near the cows (on way to Varrock). I have not had anyone but myself test this script. It has no anti-ban, but it does have anti-random(WT-Fakawi).

program ChickenKiller;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\fighting.scar}
var
  x, y, Feather, ChikToKill, ChikKilled, SecLvl, NewSecLvl: Integer;
  Mode: String;
  PickUpFeather: Boolean;

const
  MouseSpd = 14; //Mouse Speed, lower is faster

procedure DeclarePlayers;
begin
  Status('Loading Players...')

  HowManyPlayers := 1;
  HowManyBooleans := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '1234';
  Players[0].Pass := '1234';
  Players[0].Nick := '234'; // 3-4 letters of username
  Players[0].Active := True;
  Players[0].Integers[0] := 9000; //Chickens to kill
  Players[0].Strings[0]  := 'Strength'; //Fight Mode choices are:
                                      //'Attack', 'Strength', 'Defense', 'All'
  Players[0].Booleans[0] := False; //Pick up feathers
end;

procedure DeclareDTM;
begin
  Feather := DTMFromString('78DA637CCCC0C0709B0115683030FC07528C4' +
       '0FC1F0818416A6EA12AD9B27205032B540D08303E2242CD1322D4' +
       '80ECBA83AAE6F0EE5D98E61052F388B01A0050841E39');
end;

procedure Report;
begin
  if not(LoggedIn) then exit;
  ClearDebug;
  SRLRandomsReport;
  WriteLn('              Kaves Chicken Killer              ');
  WriteLn('   Running Time: '+(TimeRunning)+'              ');
  WriteLn('   Chickens Killed: '+(IntToStr(ChikKilled))+'  ');
  WriteLn('   Gained '+IntToStr(NewSecLvl)+' '+Mode+' levels. ');
end;

//WT-Fakawi
procedure FindRandoms;
var
  i: Integer;
begin
  Status('Finding Randoms...');
  for i := 1 to 11 do
  begin
    case I of
      1: FindTalk;
      2: FindDead;
      3: FindMod;
      4: FindMime;
      5: FindMaze;
      6: FindQuiz;
      7: FindDemon;
      8: FindTalk;
      9: FindLamp('hitpoints');
      10: if FindBox then
            begin
              if not(SolveBox) then GambleBox;
            end;
      11: if FindFight then
            begin
              RunAwayDirection('N');
              Wait(10000 + random(2000));
              RunBack;
            end;
    end;
    wait(10);
  end;
end;

//Starblaster
procedure FightMode;
Begin
  If not(Loggedin)then Exit;
  Status('Setting Fight Mode...');
  GameTab(1);
  Wait(200 + Random(50));
  Case Lowercase(Mode) of
    'attack':   if not(GetColor(612, 276) = 1908609) then
          Mouse(607, 271, 30, 10, True);
    'strength': if not(GetColor(695, 278) = 1974408) then
          Mouse(690, 271, 30, 10, True);
    'all':      if not(GetColor(610, 334) = 1908609) then
          Mouse(606, 325, 30, 10, True);
    'defense':  if not(GetColor(691, 331) = 1974408) then
          Mouse(690, 324, 30, 10, True);
  end;
  Wait(250);
end;

procedure DoneFight;
var
  i: Integer;
begin
  Flag;
  for i := 1 to 5 do
  begin
    if (IsFight) then
    begin
      repeat
        wait(50);
        FindRandoms;
      until (not (IsFight));
      Exit;
    end else
      Wait(300);
  end;
end;

procedure KillChicken;
var
  z, l : integer;
begin
  if FindObjCustom(x,y,['hic','ken'],[595563,923247,8299448,3496050],10) then
    begin
      Mouse(x,y,0,0,false);
      if ChooseOption('ttack') then
        begin
          FFlag(0);
          wait(1000);
          if IsFightAt(x,y) then
            begin
              if FindChatText('one else is') then exit
              else
                begin
                  DoneFight;
                  Inc(ChikKilled);
                  Inc(l);
                end;
            end;
        end;
    end;

  if (l = (10 + random(6))) then
    begin
      if (lowercase(mode) = 'all') then z := GetSkillLevel('attack') else
      z := GetSkillLevel(Mode);
      NewSecLvl := z - SecLvl;
      Report;
    end;
end;

procedure GetFeather;
begin
  //DTMRotated(Feather,x,y,MSX1,MSY1,MSX2,MSY2);
  //MMouse(x,y,0,0);
end;

procedure Setup;
begin
  MouseSpeed := MouseSpd + Random(2);
  HighestAngle;
  SetScreenName(Players[CurrentPlayer].Nick);
  Mode := Players[CurrentPlayer].Strings[0];
  ChikToKill := Players[CurrentPlayer].Integers[0];
  PickUpFeather := Players[CurrentPlayer].Booleans[0];
  if (lowercase(mode) = 'all') then SecLvl := GetSkillLevel('attack') else
  SecLvl := GetSkillLevel(Mode);
  ChikKilled := 0;
  FightMode;
end;

begin
  SetupSRL;
  //DeclareDTM;
  ActivateClient;
  DeclarePlayers;
  if not(LoggedIn) then Loginplayer;
  repeat
    Setup;
    repeat
      KillChicken;
      if PickUpFeather then GetFeather;
    until (ChikKilled = ChikToKill);
    Report;
    WriteLn('Killed all '+IntToStr(ChikToKill)+' chikens, huzzah!');
    LogOut;
    wait(2000);
    NextPlayer(False);
  until (false);
end.

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

Hmm, Bit short and i see CLICKMOUSE :O:O

Ill hold my vote until more people reply.

Hmmm looks alright but why is it a curser it wont get through any waves.


holding my vote :p

procedure Leave;
var
  rx, a: Integer;
begin
  if (TimeFromMark(LeaveScreenMark) / 60000 >= 6 + random(10)) then
  begin
    MarkTime(LeaveScreenMark);
    rx := Random(300);
    a := Random(2);
    if (a = 0) then
    begin
      MMouse(rx, 1, 0, 0)
        ClickMouse(rx, -1, True);
      Wait(1000 + Random(1000));
    end else if (a = 1) then
    begin
      MMouse(rx, 502, 0, 0)
        ClickMouse(rx, 503, True);
      Wait(1000 + Random(1000));
    end;
  end;
end;

Make those ClickMouse's to Mouse(x,y,randomx,randomy,Boolean);

To easy, I wanne see:
*proper usage of multiplayer
*failsafes
*DTMs/DDTMs
*NO CLICKMOUSE!

And last but not least, the scripts are too shor tto show us what you got..

• MultiPlayer, correct used
• DTMs/ DDTMs
• RadialWalking/ Dynamic DTM walking
• Antirandoms
• Antiban (optional)
• Failsafes! Lot and good of them.

I think thats it.

Cya after month!

[wannabe locked]

@bobbohobbo
I didn't see those ClickMouse's… That is just the LeaveScreenEvery function from xAntiBan.scar…

@rudeboialex
It's not supposed to go through waves, Tz-Kek is an easy way to get magic up with cursing since there are no randoms in the Fight Cave.

@the scar noob
What do you mean by "proper" usage of multiplayer? I have fail safes… Why do I need to use DTMs/DDTMs? So its auto color? I could of made it auto color already but my tester said to jsut leave the manual coloring. See @bobbohobbo for the ClickMouse.

@n3ss3s
I have anti-ban, and no anti-randoms are needed in the Fight Cave. Fail safes are already in place. If I decide to make it walk to the Fight Cave from the bank, kill the first two waves, and then get Tz-Kek into position, I will use RadialWalking.

And the reason the script is short is because it had no need to be bigger. It works just fine as it is.

Everythign can be checked from whether the spell is castable so DTMs arent needed, and if it is how he says it is neither are antirandoms. He managed to add anti ban which shows he knows whats going on so ill give you a Yes…

sorry no for above reasons,

come back in a month ;)

(i have to say you got a very good start)

hmm, good start.

code looks good too..

the coments above are pretty decent.

it always bugs the hell out of me when i see missing semi colons.

  WriteLn(' Curses Cast: ' + IntToStr(NumOfCurses) +'')
  WriteLn('                                          ')
  WriteLn('--------------------<>--------------------')

it looks like the multiplayer is good to me..

i think you should read more about srl, and the fuctions that are already made for you.

you definatly know what to do with them, you just arent using srl to its fullest potential, i can tell because you didnt use "mouse()"

keep up the great work though.

Antirandoms are needed in this script, because you can get a random in between enters.

Thats why my main got banned when I was a noob.

@n3ss3s
You never reenter since you never kill Tz-Kek….

I voted yes.. it looks like a great start for me, look at my script guys, if I got in with the script I used, this guy DEFFINATLY deserves to get in ^^ Just I hope to see even better scripts if/when you get in.

From: hy71194
I voted yes.. it looks like a great start for me, look at my script guys, if I got in with the script I used, this guy DEFFINATLY deserves to get in ^^ Just I hope to see even better scripts if/when you get in.

Yup, i agree with you. Good luck Kave.

Sorry…no from me.

You aren't even active enough post-wise.

@n3ss3s
You never reenter since you never kill Tz-Kek…

What if Jagex feels like putting extra lvl 22 to kill you there?

Duh, if you are flagged, or something, or in any case, they can put a random for you if they want to.

Remember, its their game.

Lets put it like, you beat a stranger in your own house.

And anyways, its not any excuse for simplicity of a script or like, that its not required to be complex.

We here want the skills, not the skills needed for something specific.

You could've even use DDTM for entering the cave or something.

Its a no from me, and I have totally good reasoning.

Plus, you're trying to find the Tz-Kek with the same colors with a tolerance of 10, no, does not happen for 8 hours.

Scripters are the ones who think two steps ahead for the autoers.

My opinions, kthxbaii

From: n3ss3s
What if Jagex feels like putting extra lvl 22 to kill you there?

Duh, if you are flagged, or something, or in any case, they can put a random for you if they want to.

Remember, its their game.

Lets put it like, you beat a stranger in your own house.

And anyways, its not any excuse for simplicity of a script or like, that its not required to be complex.

We here want the skills, not the skills needed for something specific.

You could've even use DDTM for entering the cave or something.

Its a no from me, and I have totally good reasoning.

Plus, you're trying to find the Tz-Kek with the same colors with a tolerance of 10, no, does not happen for 8 hours.

Scripters are the ones who think two steps ahead for the autoers.

My opinions, kthxbaii

What he did is excellent.
Don't be silly, JageX will NEVER put randoms in the fight cave.
You reasoning has quite alot of holes..

Shit, I got pwnt.

And I like his mainloop lol.. dono why.

If you add one of these

a) MultiPlayer
b) More complex Tz-Kek finding
c) DDTM for anything

I will vote yes. k?

@SantaClause
I don't post a lot because I'm a full time student… I do check the forums everyday and look in the 'Scripting Help' section to see if there are any problems I can help with.

@Wizzup?
Thank you for the post.

@n3ss3s
Jagex, as far as I've seen, will not do anything drastic like add another monster to kill you if it thinks your autoing. Also, I considered using DDTM's to autocolor finding Tz-Kek, but since my tester told me not to, I didnt.

Yeah, true when thinking a bit more about it.

But anyways, add even multiplayer (nothing more than extend the array there is needed for the multiplayer) because atm you're setting the only player to false and changing to it same time ;)

EDIT: Haha, your longevity is 1% > than mine xD

-Yes, A weak one though :P

The scripts may not be long, but its not length that counts.
People who judge scripts by length drive me nuts…

Your scripting standards could use a little bit of work in some places but overall are not bad.

Use Mouse(); instead of ClickMouse(); in the future; it is less detectable.

I like your scripts and think that you show potential as a scripter, so…
Keep it up and good luck.

I see a lot of talent.

I don't see complex enough scripts.

Good scripts, they look like they'll do what they're supposed to; now go put your talent to work on something complex. IE add a deathwalk to your chickenkiller, or something of that nature.

@Jukka
I'm sorry, but a weak what?

@Bam Bam
I understand, I didn't check that procedure completely. Where did my standards go wrong? I thought it looked rather nice…

@Smartzkid
A death walk wouldn't be to difficult, but since when does a chicken kill you? I am currently finishing my Air and Earth Crafter though, I probably should have waited to apply until I had it finished….

In.