SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Visual Basic 6 ::oops:

Other Communitys
-

How Long have You Played Runescape
Since 2001

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

I'm a nearly 16 year old(december 20th :P) guy from Finland. I go to highschool and my hobbies include playing computergames and going to the gym.

I became intrested in rs-cheating in august 2007(when SRL was outdated :P), so I waited till srl 4 beta, then I started cheating :)

The moment I started making my first scripts I realized how fun scripting is. I started out with an armymover, that was supposed to move accounts from lumb to any town in f2p rs, but it was so frustrating to make so I ditched the project(at least for now). My first real script was CursedYOU, which I first designed to be a very very simple and light script so I could macro even on my older pc. Then I made some updates to it, and eventually I released the beta. now the version is 1.3, and the script has done surprisingly well(at least according to the srl stats, it has gotten 15k crumble casts in the last 2 or 3 days). Now I'm working on a script that hometeleports lvl3's to lumb, walks to varrock, whacks dummies until attack level 8 and after that it will bank all the items and suicide at a guard to get back to lumby(unless that feature is disabled in the settings), since most people use either chickenkillers or gobbiez to level up their new armies.

My only other cheat is an autotalker which I made in VB6, and it's posted in the VB section of this forum.

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

//Script name:  CursedYOU  v1.1

//Author:       Cheetahnub

//Thanks to:    The Scar Noob (Many ideas)
//              Spaztaz666 (ActiveLeft procedure)

//Features:     ¤Casts Confuse, Weaken, Curse and Crumble Undead.
//              ¤Fight Cave mode
//              ¤MultiPlayer
//              ¤VERY good Anti-ban features
//              ¤Anti-randoms
//              ¤Good failsafes
//              ¤SRL-stats
//              ¤Prints proggies

//Instructions: Wear items with the lowest possible mage attack bonus(Full iron, d vambs, no ammy)
//              and take your account(s) to a place where you can farshoot monsters such as the
//              prison in port sarim. Then pick the monster colors, Setup players, fill in
//              Your SRL id and pass, draf the crosshair to rs then hit run :)
//              YOU HAVE TO PICK THE PINK COLOR FROM THE SPELL BUTTONS(The arrow in crumble undead,
//              the brighter color in the curses)!!

//OH EM EFF GEE!!! THE SCRIPT AINT RUNNIN IT SEZ I DUNT HAVE SRL STATZZ?!??
//Solution: Go get SRL stats at [url]http://www.stats.srl-forums.com/[/url]




program CursedYOU;
{.include srl/srl.scar}
{.include srl/srl/skill/magic.scar}


var

//--Booleans--//
MonsterFound :boolean;
WeGotRunes :boolean;

//--Integers--//
xx, xy :integer;
z :integer;
w :integer;
i :integer;
Casted :integer;
TotalCasted :integer;
MonsterCount :integer;
MageLevel :integer;
Active :integer;
AntiRandomTime :integer;
AntiBanTime :integer;
ReportTime :integer;
SearchTries :integer;

//--Strings--//
Bar :string;

//---------EDIT THESE-------------//
const
MySRLId = '';                    //Fill in your SRL-stats Id And Pass. The script won't run without these.
MySRLPassword = '';              // If you don't have these, go get them at [url]http://www.stats.srl-forums.com/[/url]

MonsterColor1 = 3283011 ;        //Fill in the monster colors
MonsterColor2 = 3480136 ;        //Fill in the monster colors
MonsterColor3 = 3742797 ;        //Fill in the monster colors

MonsterName1 = 'omb';            //Fill in 3 parts of the monsters name(For example, now we're shooting zombies)
MonsterName2 = 'ombi';
Monstername3 = 'ombie';

Compass = 'N';                   //Where do you want the compass to point? N=North, E=East, W=West, S=South
RunDirection = 'S';              //Where to run if atatcked? N=North, E=East, W=West, S=South
CameraAngle = 'Up';              //What camera angle do you want to use? Up or Down

TimeToLook = 15;                 //How many seconds to look for a monster before stopping?
TimeToWait = 60;                 //How long breaks between each player in seconds? 60-90 RECOMMENDED
SpeedOfMouse = 9;                //The speed of the mouse
FightCaves = False;              //Are we in the fight caves?(No randoms in fightcave = no need to look for them)
ShowMageLev = False;             //Do you want to show your mage lev in the proggy? False = Less time spent to changing tabs to get the level

Spell = 'Curse';                 //What spell do you want to use? Curse, Weaken, Confuse or Crumble Undead
CursePink = 15533737;            //Change this if the default doesn't work. This is the bright pink color from the spell button(All the curses and the arrow in crumble undead)
DoAntiBan = 150;                 //How many curses between antibans? 100-200 recommended
//--------------------------------//

//----------SETUP PLAYERS-------------//
procedure DeclarePlayers;
begin

  HowManyPlayers := 3;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  
  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := ''; // 3-4 letters of username
  Players[0].Active := True;   // Is the player active?
  Players[0].Integers[0] := 500;   //How many curses to do?
  
  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := ''; // 3-4 letters of username
  Players[1].Active := false;   // Is the player active?
  Players[1].Integers[0] := 500;   //How many curses to do?
  
  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Nick := ''; // 3-4 letters of username
  Players[2].Active := false;   // Is the player active?
  Players[2].Integers[0] := 500;   //How many curses to do?
  
end;
//------------------------------//
//----------DONT TOUCH BELOW UNLESS YOU KNOW WHAT YOURE DOING---------//
//----------DONT TOUCH BELOW UNLESS YOU KNOW WHAT YOURE DOING---------//
//----------DONT TOUCH BELOW UNLESS YOU KNOW WHAT YOURE DOING---------//



//---------DOES IT RIGHTCLICK THE MONSTER?(ANTI-BAN)--------//
Function RightClick :boolean;
begin
  z := Random(10)
  if z >=7 then Result := True else Result := False
end;
//------------------------------------------------//

//------------GETTING THE LEVEL----------------//
procedure GetLevel;
begin
  GameTab(2);
  MageLevel:=GetSkillLevel('Magic');
  Wait(2345+random(3000))
end;
//------------------------------------------------//

//------------PROGRESS REPORT-------------------//
procedure Proggy;
begin
  if ReportTime > 20+random(5+random(10)) then
  begin
    if (ShowMageLev) then GetLevel;
    WriteLn(' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤');
    WriteLn(' ¤              CursedYOU BY CHEETAHNUB              ¤');
    WriteLn(' ¤            REMEMBER TO POST THE PROGGIE           ¤');
    WriteLn(' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤');
    WriteLn(' ¤ Current player: ' + (Players[CurrentPlayer].name) + '');
    WriteLn(' ¤ Ran for ' + (timerunning) + '');
    WriteLn(' ¤ Spell: ' + (Spell) + '');
    WriteLn(' ¤ Casted ' +IntToStr(TotalCasted)+ ' times');
    WriteLn(' ¤ Casted ' +IntToStr(Casted)+ ' times on this character');
    WriteLn(' ¤ ' +IntToStr(Players[CurrentPlayer].integers[0] - Casted)+ ' casts left on this character');
    if (ShowMageLev) then WriteLn(' ¤ Your magic level is: ' +IntToStr(MageLevel)+ '');
    WriteLn(' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤');
    ReportTime := 0
  end;
end;
//---------------------------------------------------------//

//----------------------MY SIG----------------------------//
procedure MySignature;
begin
  Writeln('  _____   _   _   ___   ___   _______   _____   _   _   ___     _   _    _   _____ ')
  Writeln(' |  ___| | | | | | __| | __| |__   __| |  _  | | | | | |   \   | | | |  | | |  _  |')
  Writeln(' | |     | |_| | | |_  | |_     | |    | |_| | | |_| | | |\ \  | | | |  | | | |_| |')
  Writeln(' | |     |  _  | |  _| |  _|    | |    |  _  | |  _  | | | \ \ | | | |  | | |  _ < ')
  Writeln(' | |___  | | | | | |_  | |_     | |    | | | | | | | | | |  \ \| | | |__| | | |_| |')
  Writeln(' |_____| |_| |_| |___| |___|    |_|    |_| |_| |_| |_| |_|   \___| |______| |_____|')
  Writeln('-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._')
  Writeln('-                                 CursedYOU                                       _')
  Writeln('-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._')
  if MySRLId = '' then
    begin
      Writeln('OMG LEECHER GO GET SRL STATS OMG!!!!!!!!!1111oneone+shift')
      Writeln('OMG LEECHER GO GET SRL STATS OMG!!!!!!!!!1111oneone+shift')
      Writeln('OMG LEECHER GO GET SRL STATS OMG!!!!!!!!!1111oneone+shift')
      Writeln('T  E  R  M  I  N  A  T  I  N  G          S  C  R  I  P  T')
      TerminateScript;
    end;
end;
//---------------------------------------------------//


//------------------------ANTIRANDOMZ--------------//
procedure AntiRandomz;
begin
  if AntiRandomTime > 20+random(5+random(10)) then
    begin
      AntiRandomTime := 0
      if not(FightCaves) then FindInventoryRandoms;
    end;
    If FindFight then
      begin
        Writeln('Argh, darn fighting randoms, let´s hope RunBack works :/')
        RunAwayDirection(RunDirection);
        FFlag(10);
        wait(1000+random(2234));
        RunBack;
      end;

end;
//-------------------------------------------------//

//-------------------------ANTIBANZ-----------------//
procedure AntiBanz;
begin
  if Antibantime > DoAntiBan+random(25) then
    begin
      Writeln('Doing some antiban :)');
      AntiBanTime := 0
      case(random(16)) of
        0: begin
             HoverSkill('Magic',false);    //Hovers magic and changes gametab
             GameTab(random(14)+1);
           end;
        1: begin
              case(random(3)) of
                0: Bar := 'volume';    //Changes the sound settings randomly,
                1: Bar := 'effect';    //this is something new I think lol
                2: Bar := 'area';
              end;
              SetBar(Bar, random(5));
           end;
        2: HoverSkill('Magic', False);       //Hovers magic
        3: begin
             HoverSkill('Magic', False);    //Hovers magic and changes gametab
             GameTab(random(14)+1);
           end;
        4: HoverSkill('Magic', False);     //Hovers magic
        5: RandomRClick;      //boring
        6: PickUpMouse;       //boring
        7: AlmostLogout;      //boring
        8: RandomMovement;    //boring
        9: begin
             BoredHuman;                //Normal BoredHuman + compass to the original setting
             Wait(1000+random(500));
             MakeCompass(Compass);
           end;
       10: begin
             HoverSkill('Random', False);
             case(random(2)) of                     //Hovers 2 or 3 skills,
               0:HoverSkill('Random', False);        //can´t get more random than this :D
             end;
             HoverSkill('Random', False);
           end;
       11: begin
             HoverSkill('Strength', False);
             case(random(2)) of                     //Hovers Melee skills
               0:HoverSkill('Attack', False);
             end;
             HoverSkill('Hitpoints', False);
           end;
       12: begin
             GameTab(1);  //"Checks the cb level"
             wait(1500+random(1564));
           end;
       13: begin
             HoverSkill('Magic', False);    //Hovers magic and Almost logs out
             AlmostLogout;
           end;
       14: begin
             HoverSkill('Random', False);    //Hovers hovers a random skill + magic
             HoverSkill('Magic', False);
           end;
       15: begin
             GameTab(1);  //"Checks the cb level" and hovers a random combat skill
             case(random(7)) of
               0:HoverSkill('Strength', False);
               1:HoverSkill('Attack', False);
               2:HoverSkill('Defence', False);
               3:HoverSkill('Prayer', False)
               4:HoverSkill('Hitpoints', False);
               5:HoverSkill('Ranged', False);
               7:HoverSkill('Magic', False);
             end;
           end;
       16: begin
             GameTab(Random(14)+1);
             Wait(2000+random(2342));
           end;
      end;
      Writeln('Stopped anti-banning');
    end;
end;
//-----------------------------------------------//


//--------------COUNTS SPELLS FOR SRL STATS---------//
procedure CountSpells;
begin
  case(Spell) of
  'Curse': ReportVars[3] := ReportVars[3] + 1
  'Weaken': ReportVars[2] := ReportVars[2] + 1
  'Confuse': ReportVars[1] := ReportVars[1] + 1
  'Crumble Undead': ReportVars[4] := ReportVars[4] + 1
  end;
  ReportVars[0] := ReportVars[0] + 1
end;
//------------------------------------------------------//


//------------CHECKS IF THERE ARE ENOUGH RUNES----------//
Procedure GotRunes;
begin
  GameTab(7);
  case(Spell) of
  'Curse': begin
             if (GetColor(666, 269) = CursePink) then
               begin
                 WeGotRunes := True;
               end else
             begin
               WeGotRunes := False;
             end;
           end;
  'Weaken': begin
             if (GetColor(570, 258) = CursePink) then
               begin
                 WeGotRunes := True;
               end else
             begin
               WeGotRunes := False;
             end;
           end;
  'Confuse': begin
               if (GetColor(618, 238) = CursePink) then
                 begin
                   WeGotRunes := True;
                 end else
                   begin
                     WeGotRunes := False;
                   end;
             end;
  'Crumble Undead': begin
                      if (GetColor(594, 306) = CursePink) then
                        begin
                          WeGotRunes := True;
                        end else
                          begin
                            WeGotRunes := False;
                          end;
                        end;
                    end;
end;
//--------------------------------------------------//


procedure FindAndShoot;
begin
  if SearchTries <= 4 then
    begin
      GameTab(7);
      cast(Spell)
      if FindObjCustom(xx, xy,[MonsterName1, MonsterName2, MonsterName3], [MonsterColor1, MonsterColor2, MonsterColor3], 15) then
      begin
        MMouse(xx+random(4), xy+random(4), 2, 2);
          Wait(100+random(100))
          case(RightClick) of ///////CASE//////////
            True: begin
                    if IsUptext(MonsterName1) or IsUptext(MonsterName2) or IsUptext(MonsterName3) then
                      begin
                        GetMousePos(xx, xy);
                        Mouse(xx+random(5), xy+random(5), 1, 1, False);
                        ChooseOption('ast');
                        Wait(250+random(250))
                      end;
                  end;
           False: begin
                    if IsUptext(MonsterName1) or IsUptext(MonsterName2) or IsUptext(MonsterName3) then
                      begin
                        GetMousePos(xx, xy);
                        Mouse(xx+random(5), xy+random(5), 1, 1, True);
                        Wait(250+random(250))
                      end;
                  end;
          end; ///////CASE//////////
        MonsterFound := True;
        Casted := Casted + 1
        TotalCasted := TotalCasted + 1
        AntiRandomTime := AntiRandomTime + 1
        AntiBanTime := AntiBanTime + 1
        ReportTime := ReportTime + 1
        if not(FightCaves) then FindNonInventoryRandoms;
        wait(200+random(200));
        AntiRandomz;
        CountSpells;
        SearchTries := 0
      end;
    end;
end;

//-----------THE CURSE PROCEDURE-----------------//
procedure Curse;
begin
  if (not(LoggedIn)) then Exit;
  repeat
    if (not(LoggedIn)) then Exit;
    MarkTime(MonsterCount)
    MonsterFound := False;
    GotRunes;
    if (not(WeGotRunes)) then
      begin
        Writeln('You do´nt have enough runes...')
        Writeln('Logging out :(')
        Break;
      end;
    repeat
      FindAndShoot;
    until(MonsterFound) or (TimeFromMark(MonsterCount) >= (TimeToLook*1000))
    if TimeFromMark(MonsterCount) >= TimeToLook*1000 then
      begin
        if SearchTries >= 4 then
          begin
            Writeln('Didn´t find any monsters! Did you set the colors right?')
            Writeln('Logging out :(')
            Break;
          end else
            begin
              SearchTries := SearchTries + 1
              Writeln('Didn´t find any monsters! The Monster might be respawning.')
              Writeln('Waiting for 8-12 seconds, then looking again')
              Writeln('Failed finding the monster '+IntToStr(SearchTries)+' times in a row')
              repeat
                w := w + 1
                Wait(100+random(100))
                if not(FightCaves) then FindNonInventoryRandoms;
              until(w >= 8)
              w := 0
            end;
      end;
      if not(FightCaves) then FindNonInventoryRandoms;
      AntiRandomz;
      AntiBanz;
      SendSRLReport;
      Proggy;
  until(Casted >= Players[CurrentPlayer].Integers[0]);
end;
//--------------------------------------------//



//---------CHECKS FOR ACTIVE PLAYERS------------//

procedure ActiveLeft;  // Thanks to Spaztaz666 for this
begin
  for
   I := 0 To HowManyPlayers - 1 do
    begin
      if (Players[i].active = True) then Active := Active + 1;
      If (Active = 0) then
        begin
          WriteLn('All Players done :)');
          exit;
        end;
      If (Active > 0) then
      WriteLn('' + IntToStr(Active) + ' Players Remaining.');
  end;
end;
//-------------------------------------------//


//--------PLAYER CHANGING----------------//
procedure ChangePlayer;
begin
  Proggy;
  Logout;
  Writeln('Taking a short antiban break('+IntToStr(TimeToWait)+' seconds)')
  Wait((TimeToWait*1000)+(random(10)*1000))
  if Active = 0 then Exit;
  NextPlayer(False);
  ActiveLeft;
  Wait(3000+random(1234))
  MakeCompass(Compass)
  LowestAngle;
  MouseSpeed := SpeedOfMouse + random(2);
end;
//---------------------------------------------//

//-------------SETTING IT UP-------------//
procedure SetUp;
begin
  ClearDebug;
  MySignature;
  ScriptID := '468';
  SRLid := MySRLId;
  SRLpassword := MySRLPassword;
  MouseSpeed := SpeedOfMouse + random(2);
  DeclarePlayers;
  ActivateClient;
  Wait(5000);
  LoginPlayer;
  Wait(1000+random(3000));
  case(CameraAngle) of
    'Up': HighestAngle;
    'Down': LowestAngle;
  end;
  MakeCompass(Compass)
end;
//----------------------------------------//


//-------------MAIN LOOP-----------//
begin
  SetUpSrl;
  SetUp;
  repeat
    Casted := 0
    Proggy;
    Curse;
    ChangePlayer;
  Until(Active = 0)
end.
//----------------------------------//

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


EDIT: srl stats:
http://www.stats.srl-forums.com/index.php?action=view_script&id=468

Looks good, hold on, I'll have a closer look :)

(Stole the first post)

Ookkay, Im leaning towards a yes :)

Not too bad ;)

umm why do you have to pick the colors of the spell? isnt there something in magic.scar that will allow you to just cast a spell?

im not sure, kind of simple…leaning towards a yes though

lets see what the rest of em think :D

EDIT: damn you n33s3s and your fast replies lol :p beat me to first post (woot i hit 500 finally)

EDITEDEDED: I say yes. Looks like the peeps are sharing the same feelings of it being slightly simple, yet liking it still. Good luck and keep up the good work ;)

Stole third post (wannabe, lol :P. Nah, more just to annoy n3s with the fact that he spelt it wrong, lolz)

Looking good, but maybe a little simple, but then again, that's the purpose of it.

G2g, will write more in 2 mins.

-Knives

To Cast, Cast, Cast.
To Steal, Stole, Stolen.

Looks good! Yes from me.

From: gerauchert
Not too bad ;)

umm why do you have to pick the colors of the spell? isnt there something in magic.scar that will allow you to just cast a spell?


EDITEDEDED: I say yes. Looks like the peeps are sharing the same feelings of it being slightly simple, yet liking it still. Good luck and keep up the good work ;)

Colorpick: it's a failsafe
Vote: tyvm

hmmm, Looks li'll better then my apply :P I can't say no =D yes

To Cast, Cast, Cast.
To Steal, Stole, Stolen.

write wrote written :)

Knives, what are you talking about? :p

Also cheetahbub, glad to see non-leecher or otherwise fucked up Finnish people here! :)

Hehe, thanks for including a "thank you" in your script;)

I see you improving everytime I look to your script's thread:D
Good job, you're becoming better!
But, sorry I don't think I'm going to vote, I don't feel like voting atm:)

Who knows..?:)

-Tsn.

Yes… but please save my hard drive:D

'Curse': begin
             if (GetColor(666, 269) = CursePink) then
               begin
                 WeGotRunes := True;
               end else WeGotRunes := False;
           end;

No need for begin , end if only 1 action is taken

From: negaal
Yes… but please save my hard drive:D

'Curse': begin
             if (GetColor(666, 269) = CursePink) then
               begin
                 WeGotRunes := True;
               end else WeGotRunes := False;
           end;

No need for begin , end if only 1 action is taken

Oh damn what a nooby mistake :D:D

Well that just made approx. 1kb on your harddrive useless, I'm terribly terribly terribly terribly sorry :<


;)

No… only about 95 bytes.


I'm looking towards a "Yes".

procedure FindAndShoot;
begin
  if SearchTries <= 4 then
    begin
      GameTab(7);
      cast(Spell)
      if FindObjCustom(xx, xy,[MonsterName1, MonsterName2, MonsterName3], [MonsterColor1, MonsterColor2, MonsterColor3], 15) then
      begin
        MMouse(xx+random(4), xy+random(4), 2, 2);
          Wait(100+random(100))
          case(RightClick) of ///////CASE//////////
            True: begin
                    if IsUptext(MonsterName1) or IsUptext(MonsterName2) or IsUptext(MonsterName3) then
                      begin
                        GetMousePos(xx, xy);
                        Mouse(xx+random(5), xy+random(5), 1, 1, False);
                        ChooseOption('ast');
                        Wait(250+random(250))
                      end;
                  end;
           False: begin
                    if IsUptext(MonsterName1) or IsUptext(MonsterName2) or IsUptext(MonsterName3) then
                      begin
                        GetMousePos(xx, xy);
                        Mouse(xx+random(5), xy+random(5), 1, 1, True);
                        Wait(250+random(250))
                      end;
                  end;
          end; ///////CASE//////////
        MonsterFound := True;
        Casted := Casted + 1
        TotalCasted := TotalCasted + 1
        AntiRandomTime := AntiRandomTime + 1
        AntiBanTime := AntiBanTime + 1
        ReportTime := ReportTime + 1
        if not(FightCaves) then FindNonInventoryRandoms;
        wait(200+random(200));
        AntiRandomz;
        CountSpells;
        SearchTries := 0
      end;
    end;
end;

I thought FindObjCustom already moved the mouse and clicked…? Also, why do you check for uptext again if it's already included in FindObjCustom? I'm not voting on this one, it seems like there's alot of effort put into it, but still a bit simple.

Yeah, looks good to me too. Yes!!!

I always loves them funny little symbols

'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤!!!!!!!!1111oneone+shift'

I've made my decision, yes :)

Now, your poll results are

8 yes
0 no

I don't think it would be early at all to say congratulations and welcome! :)

It,s a yes for me!

From: Santa_Clause
I thought FindObjCustom already moved the mouse and clicked…? Also, why do you check for uptext again if it's already included in FindObjCustom? I'm not voting on this one, it seems like there's alot of effort put into it, but still a bit simple.

The Monster might change / be changing place, and by the time the mouse get's there the monster has moved or been killed. i'd say it's a rather nice failsafe

From: n3ss3s

Now, your poll results are

8 yes
0 no

I don't think it would be early at all to say congratulations and welcome!

how come i only got my congradulations at 19 - 1 ?! :p

Your standards look good, you just didn't add them in the vars' and consts' part at the beginning.
when you only have one action in an if you don't need begin and end,

  case(Spell) of
  'Curse': begin
             if (GetColor(666, 269) = CursePink) then
               begin
                 WeGotRunes := True;
               end else
             begin
               WeGotRunes := False;
             end;
           end;

could be reduced to

  case(Spell) of
  'Curse':
             if (GetColor(666, 269) = CursePink) then
               WeGotRunes := True;
             else
               WeGotRunes := False;

i usually use case when i have about 3-4+ possibilities, when i only have 2 i prefer to use if and else. also this part in the find and shoot procedure could be very much smaller:

case(RightClick) of ///////CASE//////////
            True: begin
                    if IsUptext(MonsterName1) or IsUptext(MonsterName2) or IsUptext(MonsterName3) then
                      begin
                        GetMousePos(xx, xy);
                        Mouse(xx+random(5), xy+random(5), 1, 1, False);
                        ChooseOption('ast');
                        Wait(250+random(250))
                      end;
                  end;
           False: begin
                    if IsUptext(MonsterName1) or IsUptext(MonsterName2) or IsUptext(MonsterName3) then
                      begin
                        GetMousePos(xx, xy);
                        Mouse(xx+random(5), xy+random(5), 1, 1, True);
                        Wait(250+random(250))
                      end;
                  end;
          end;

      if IsUptext(MonsterName1) or IsUptext(MonsterName2) or IsUptext(MonsterName3) then
      begin
        GetMousePos(xx, xy);
        if RightClick then
        begin
          Mouse(xx+random(5), xy+random(5), 1, 1, False);
          ChooseOption('ast');
        end else
          Mouse(xx+random(5), xy+random(5), 1, 1, True);
        Wait(250+random(250))
      end;

Although there are ways to improve the script, it looks like a good and well working script, with failsafes and much antiban. I'd vote yes mainly because it looks like you have potential and creativity.

~RM

From: Rasta Magician
The Monster might change / be changing place, and by the time the mouse get's there the monster has moved or been killed. i'd say it's a rather nice failsafe

He should just use colours then, and check for uptext once…seeing as FindObjCustom isn't generally that fast, and we'd have to repeat one of the steps (Uptext-checking).

For string cases, using a function like LowerCase(Str: String) is helpful.

Not too special and kind of simple. Neh.

im going with a yes, it looks like you know what you need to know.

P.S.:Standards are exactly the same as mine were when i applied, then i learned ;)

a yes from me, (ye im finally getting into voting) alot of failsafes, seems like more than enough anti-ban, I would use it on my main.

From: n3ss3s
I've made my decision, yes :)

Now, your poll results are

8 yes
0 no

I don't think it would be early at all to say congratulations and welcome! :)

Funny… I didn't get any congratulations or welcomes until 22-0… but I won't complain. And back on topic, you're helpful on the forums and fairly active but the script is kind've simple… I really can't decide. Not to mention I just made members so it would be weird to start judging other people this soon.

From: mickaliscious
Funny… I didn't get any congratulations or welcomes until 22-0… but I won't complain. And back on topic, you're helpful on the forums and fairly active but the script is kind've simple… I really can't decide. Not to mention I just made members so it would be weird to start judging other people this soon.

n3ss3s was only rushing with his judgements, anything can still happen.

Good you are being realistic, but in this situation only thing that can happen is that we would find out you'd have a copied script, or you were some of the… people… in history of SRL.

From: n3ss3s
Good you are being realistic, but in this situation only thing that can happen is that we would find out you'd have a copied script, or you were some of the… people… in history of SRL.

Err… people? Who would I have to be to be "people" :D

And I was just wondering… When is this gonna close? :P

Right now. ;)