SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
basic, vbscript, java, html(xhtml, xml, dhtml, css), javascript, php, asp, ajax, c(++ and #s), pascal, cobalt, bash, uhh scar?

Other Communitys
google groups(php-ffmpeg, php-language)

How Long have You Played Runescape
since r2h's cost a mill each. bout 2 months after it was released.

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

I've done programming my whole life. I've learned every language that I could find. It was easy to pickup Scar and SRL after i learned the basic functions.

I remember reading about this new mmorpg called runescape(been out about 2 months), and figured id give it a try. I got all my friends to play and we were addicted for a while. Then, i remember the day, at school someone told me that all characters using RuneBot(the original rs cheat) had been banned. Soi rushed to the library and checked the huge list jagex put up, and of course alot of my characters were on there. So i quit playing for a while. I eventually figured id see how the game was doing, and found rs2. The one char i had left(a lvl 3 bank char holding all my stuff) had a santa hat, disk of returning, and a few other rare items. I sold em off, made about 50 mill and got right back into it. Its a fun game when your rich, but i still didnt want to click 5 million times, so i searched for a cheat program, and of course came accross Scar. The idea that you can script what you want your character to do really intrigued me and i got pretty into it. and i guess, here i am!

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

///////////////////////////////////////////////////////////////////////
///                                                                 ///
///                                                                 ///
///                munk's spida killa for nubs                      ///
///                      v1.2  4/03/07                              ///
///                                                                 ///
///          This script is designed for new characters             ///
///         straight off of tutorial island. It kills               ///
///         spiders in the Lumbridge Castles basement and           ///
///         on the rare chance you die, it will walk back           ///
///         to the basement. Start in the basement logged           ///
///         out or in, doesn't matter. Use Scar Divi 3.06           ///
///         with newest SRL. Thanks to WT-fakawi for the            ///
///         anti-randoms. Please Post progress reports              ///
///         and thanks for using the script.                        ///
///                                                                 ///
///                                                                 ///
///////////////////////////////////////////////////////////////////////
program spidaKilla;
{.include srl/srl.scar}

var
j,count,pcount,oc,oatt,ostr,odef,deafs,b: integer;
colors: TVariantArray;

const killsTilSwitch = 500;
const killslimit     = 5000;
const fightmode      = 2;    //Use 1-4 depending on the weapon you are wielding
const color1         = 0;    //no need to set, 0 for defaults...
const color2         = 0;    //...can change to fight other monsters...
const color3         = 0;    //...or if the colors are changed
const walkback       = true; //set to false if not fighting in lumby castle basement to logout if you die

procedure declarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].loc := 'basement';
  Players[0].Active := True;
end;

function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 2 to 8 do
  begin
    case I of
      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 randoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
  clearreport;
  SRLRandomsReport;
end;

procedure responder;
var msg: string;
begin
if (inChat(Players[currentplayer].Name) or inChat(Players[currentplayer].Nick) or inChat(left(Players[currentplayer].Name,4))) then
  begin
    case random(11) of
      0: msg:='hey';
      1: msg:='sup';
      2: msg:='whatchu want?';
      3: msg:='cant talk right now, sry';
      4: msg:='what do you want?';
      5: msg:='...?';
      6: msg:='??';
      7: msg:='haha';
      8: msg:='sry, i dont feel like talking, im turning chat off now';
      9: msg:='hello';
     10: msg:='thats me!';
    end;
    typesend(HumanText(msg, 50));
  end;
  if (inChat('noob') or inChat('nub') or inChat('newb') or inChat('noobie') or inChat('nooby') or inChat('newbie')) then
  begin
    case random(11) of
      0: msg:='thanks buddy';
      1: msg:='haha, ok';
      2: msg:='nice';
      3: msg:='haha, your funny';
      4: msg:='ok, gj';
      5: msg:='right back atcha';
      6: msg:='...?';
      7: msg:='haha';
      8: msg:='alright, im turning chat off now';
      9: msg:='yeah';
     10: msg:='it happens';
    end;
    typesend(HumanText(msg, 50));
  end;
  if (inChat('trade me') or inChat('let me buy') or inChat('can i have') or inChat('can i buy') or inChat('trade me your') or inChat('lemme see your')) then
  begin
    case random(11) of
      0: msg:='nah, sry';
      1: msg:='nfs';
      2: msg:='go away';
      3: msg:='no';
      4: msg:='leave me alone';
      5: msg:='no, sorry';
      6: msg:='...?';
      7: msg:='not now, dawg! not now!';
      8: msg:='...turning off trade requests';
      9: msg:='nope';
     10: msg:='negative';
    end;
    typesend(HumanText(msg, 50));
  end;
  if (inChat('hello') or inChat('whats up') or inChat('hey') or inChat('hows it goin')) then
  begin
    case random(11) of
      0: msg:='hey';
      1: msg:='sup';
      2: msg:='whatchu want?';
      3: msg:='cant talk right now, sry';
      4: msg:='what do you want?';
      5: msg:='...?';
      6: msg:='??';
      7: msg:='haha';
      8: msg:='sry, i dont feel like talking, im turning chat off now';
      9: msg:='hello';
     10: msg:='thats me!';
    end;
    typesend(HumanText(msg, 50));
  end;
  if (inChat('fight?') or inChat('fight me') or inChat('fite me') or inChat('lets go to wild')) then
  begin
    case random(11) of
      0: msg:='nah, not right now';
      1: msg:='just go away';
      2: msg:='go away';
      3: msg:='haha, no';
      4: msg:='not now, dawg! not now!';
      5: msg:='maybe later';
      6: msg:='haha, im ignoring you now';
      7: msg:='leave me alone';
      8: msg:='whatever';
      9: msg:='i am training right now';
     10: msg:='ha!';
    end;
    typesend(HumanText(msg, 50));
  end;
  if (inChat('att lvl?') or inChat('attack lvl?') or inChat('att level?') or inChat('attack level?') or inChat('attack?') or inChat('att?')) then
  begin
    sayCurrentLevels('attack');
  end;
  if (inChat('str lvl?') or inChat('strength lvl?') or inChat('str level?') or inChat('strength level?') or inChat('strength?') or inChat('str?')) then
  begin
    sayCurrentLevels('strength');
  end;
  if (inChat('def lvl?') or inChat('defence lvl?') or inChat('def level?') or inChat('defence level?') or inChat('defence?') or inChat('def?') or inChat('defense?') or inChat('defense lvl?') or inChat('defense level?')) then
  begin
    sayCurrentLevels('defence');
  end;
end;


Procedure ban;
var
  skill: string;
Begin
  b:=0;
  if(not(LoggedIn))then loginplayer;
  case Random(7) of
    0: Begin
         case random(3) of
           0 : skill:= 'strength';
           1 : skill:= 'attack';
           2 : skill:= 'defense';
         end;
         HoverSkill(skill, false);
         GameTab(4);
       End;
    1: GameTab(1 + Random(6));
    2: begin
         MMouse(random(600),-100,0,0);
         wait(1000+random(1000));
       end;
    3: begin
         MMouse(random(600),random(500),0,0);
         wait(random(300));
         MMouse(random(600),random(500),0,0);
         wait(random(500));
         MMouse(random(600),random(500),0,0);
         wait(100+random(500));
       end;
    4: begin
         mouse(random(500),random(300),0,0,false);
         wait(100+random(500));
         popup('Cancel');
       end;
    5: begin
         MMouse(-100,random(600),0,0);
         wait(500+random(1000));
       end;
    6: begin
         SendArrowWait(3,800+random(1000));
         HighestAngle;
         wait(1000+random(1000));
         makecompass('n');
       end;
  end;
end;

procedure dead;
begin
  if (GetColor(28, 415) = 0) and (GetColor(72, 428) = 0) then //FindDead in antirandoms is off by 2 pixels, im guessing the last jagex update.
  begin
    if walkback=true then
    begin
      inc(deafs);
      if findobj(x,y,'Large door',6867707,5) then
      begin
        mouse(x,y,0,3,false);
        if not popup('Open') then
        begin
          popup('ancel');
        end;
      end;
      mouse(622,95,1,1,true);
      flag;
      if findobj(x,y,'Trapdoor',3427164,3) then
      begin
        mouse(x,y,0,0,false);
        if not popup('Open') then popup('ancel');
        flag;
      end;
    if findobj(x,y,'Climb-down',1118484,1) then
    begin
      mouse(x,y,0,0,true);
      flag;
    end else
    begin
      logout;
      nextplayer(false);
    end;
   end else
   begin
     logout;
     nextplayer(false);
   end;
  end;
end;

procedure proggie;
var
  nc,natt,nstr,ndef:integer;
begin
  gametab(1);
  nc:=getcombatlevel;
  natt:=getskilllevel('attack');
  nstr:=getskilllevel('strength');
  ndef:=getskilllevel('defense');
  ClearDebug;
  writeln('========================================================');
  writeln('The Spida Killa by munk');
  writeln('--------------------------------------------------------');
  writeln('Time    : ' + scripttime2(2));
  writeln('Kills   : ' + inttostr(count));
  writeln('Lvls    : +' + inttostr(nc - oc) + ' Combat, +'+ inttostr(natt - oatt) + ' Attack, +'+ inttostr(nstr - ostr) + ' Strength, +'+ inttostr(ndef - odef) + ' Defense')
  writeln('Died    : ' + inttostr(deafs) + ' times');
  writeln('========================================================');
end;

procedure setup;
begin
  SetUpSRL;
  setarraylength(colors,3);
  if color1=0 then
  begin
    colors[0] := 1977645;
  end else
  begin
    colors[0] := color1;
  end;
  if color2=0 then
  begin
    colors[1] := 4482662;
  end else
  begin
    colors[1] := color2;
  end;
  if color3=0 then
  begin
    colors[2] := 3427661;
  end else
  begin
    colors[2] := color3;
  end;
  count:=0;
  mousespeed:=15;
  declareplayers;
  activateclient;
  wait(2000+random(1000));
  if not loggedin then loginplayer;
  makecompass('n');
  highestangle;
  gametab(1);
  SetFightMode(fightmode);
  oc:=getcombatlevel;
  oatt:=getskilllevel('attack');
  ostr:=getskilllevel('strength');
  odef:=getskilllevel('defense');
  setchat('on',1);
  setchat('off',2);
  setchat('off',3);
  setRun(true);
end;

procedure attack;
begin
  if not loggedin then loginplayer;
  if not FindColor(x, y, 65280, 200, 100, 300, 180) then
  begin
    for j:=0 to 2 do
    begin
      if findobj(x,y,'Attack',colors[j],5) then
      begin
        if (10 > random(100)) then
        begin
          mouse(x,y,0,0,true);
          inc(count);
          inc(pcount);
          flag;
          exit;
        end else
        begin
          mouse(x,y,0,0,false);
          if popup('Attack') then
          begin
            inc(count);
            inc(pcount);
            flag;
            proggie;
            exit;
          end else
          begin
            popup('ancel');
          end;
        end;
      end;
    end;
   end;
     if (findcolor(x,y,195836,MMX1,MMY1,MMX2,MMY2)) then
     begin
       mouse(x,y,0,0,true);
     end;
  wait(1000-random(900));
end;


begin  //main loop
  setup;
  repeat
    attack;
    dead;
    randoms;
    responder;
    inc(b);
    if b>20 then ban;
    if (pcount=killstilswitch) then
    begin
      nextplayer(true);
      pcount:=0;
    end;
  until(count=killslimit);
end.

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

For those of you who dont vote until i look at a script, seems clean to me -.-
Ill give you some feedback tomorrow munk.

Hmm. This script is mostly Antiban/Randoms/Responder. If you actually had some more features I would have voted yes. I'll hold my vote for now.

From: YoHoJo
For those of you who dont vote until i look at a script, seems clean to me -.-
Ill give you some feedback tomorrow munk.

hey i just wanna be on the save side and since you don't tell me your secrets/tricks to busting people… :redface:

well either way ill try from now on to bust people before you :D

and script looks ok to me ill take a look at it later more thoroughly tho :rolleyes:

the only "code" there is the dead and attack procedures which themselves arent too advanced… I have to vote no, sorry.

Btw hugo, one of his tricks is called google, another is search, third is memory :)

Only 3 things to remember :)

Google? He probably only checks at Mopar. Other than that, good scripts don't usually come out.

But why would every single copy-able script be at mopar?
well whatever…

I don't know any other place that has SRL Scripts…maybe other than Sythe.