SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge


Other Communitys
Sythe.org

How Long have You Played Runescape
~ 7 years or so, not consistently

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

Well, a few months ago, when I was totally devoid of autoing or scripting, a friend mentioned using an autoing program called Glider for WoW, and suggested it might work for RS. Well, turns out it doesn't. So, after much searching, I found a cheat pack that included SCAR 3.12. Since none of the scripts that came with it work (outdated as hell), I decided to look into it. I had been working with VB a little bit, but not too much. So, I took a look at this. At first, I didn't do too well. But then, thanks to StarScreamer, who isn't affiliated with this forum, I finally learned how to make scripts. From there, I took off. I made 2 scripts, both of which are, by far, not at the peak of my talents. I still have alot to learn, but I can write scripts pretty well, with the exception of using certain, more advanced things. I can do forms, though!

I want to become a member, and hopefully a developer, so I can help out the SCAR community as much as they have helped me. They gave me something that I can actually do without help from other people, and that makes me feel really good. Besides, I get an arseload of RS money from macroeing, so why not? ^^

Also, I wanted my other account (ProphesyOfWolf) to be my main account, but I didn't get the registration email, so I couldn't do anything. So, just so you know, all my stuff will be tagged under ProphesyOfWolf..

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

{####################################################################################################
################################ProphesyOfWolf Presents##############################################
#####################################Curse You!######################################################
#####################################################################################################
##########Setup all things under const and DeclarePlayers. I hope it's self explainatory..###########
#################If not, email me at [email]ProphesyOfWolf@Hotmail.com[/email]######################################
#####################################################################################################
########Stand next to the monk in Varrock Castle, under the stairs. Face into the cage,##############
########then log out. Run the script, and it will log you back in if you set the player##############
########up in DeclarePlayers.(It needs to log you in for AntiRandoms. ###############################
#####################################################################################################
#################Though this script seems small, it is very powerful. It had anti####################
################randoms and anti bans, so you won't get banned.. (Most of the time)##################
#####################################################################################################
################MAKE SURE YOU CHANGE THE MSG'S TO SOMETHING ELSE! YOU WILL MORE THAN#################
################LIKELY BE BANNED IF YOU DON'T... ~ProphesyOfWolf                    #################
####################################################################################################}

program ZammyCurser;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Magic.scar}
const
  TimeToStayLoggedIn = 1; //How many hours to run the script for (1.5 would be an hour and a half)
  TimeToStayLoggedOut = 1; //How many hours to stay logged out
  MonkColor1 = 4147114; //Don't change these colors, unless you know what you're doing...
  MonkColor2 = 3817885;
  MonkColor3 = 8694486;
  Msg1 = 'Magic Pwns';  //CHANGE THESE! It will look very botty if you don't (they're for antibans..)
  Msg2 = 'Bored';
  Msg3 = '';
  Msg4 = 'Cant wait for 99 mage';
  Msg5 = 'i need more runes';
  Msg6 = '';
  Msg7 = 'blah blah blah';
  Msg8 = '<>< <>< <>< <>< <><';
var
  x, y, tti, tto, Casts, muc, rbc, CastWaiter, CurseActive, ScriptTime, ST: Integer;
  
procedure Setup;
  begin
    SetAngle(True);
    MakeCompass('W');
    tti:= (TimeToStayLoggedIn * 60 * 1000 * 60);
    tto:= (TimeToStayLoggedOut * 60 * 1000 * 60);
    ST:= (TimeFromMark(ScriptTime) / 60 / 1000 / 60);
end;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

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

end;

procedure AntiBan;
  begin
    case random(50) of //do a random number so it won't always perform the antiban
      0: TypeSend(Msg1);
      1: TypeSend(Msg2);
      2: TypeSend(Msg3);
      3: HoverSkill('Runecrafting', False);
      4: TypeSend(Msg4);
      5: TypeSend(Msg5);
      6: AlmostLogout;
      7: BoredHuman;
      8: TypeSend(Msg6);
      9: TypeSend(Msg7);
     10: TypeSend(Msg8);
     11: HoverSkill('Magic', False);
  end;
end;

procedure AntiRandoms;
  begin
    FindNormalRandoms;
end;

function CastCurse: Boolean;
  begin
    GameTab(7);
    CurseActive := DTMFromString('78DA6314616660E867644006E1E1EBC1344C9' +
    '4910FA8660AAA9A956C6F51D5F000D54C24424D370135824035ED' +
    '04D44802D57412502345845DD2987EC7AA661201351240355309A' +
    '81105AA994684DF09A91103AAE922105FC24035BD04D4881111EF' +
    '9284CD01003E42231F');
    If(DTMRotated(CurseActive, x, y, MIX1, MIY1, MIX2, MIY2)) then
      begin
        Result:= True;
        Mouse(x, y, 1, 1, true);
      end;
    If (not(DTMRotated(CurseActive, x, y, MIX1, MIY1, MIX2, MIY2))) then
      begin
        Result:= False;
        WriteLN('No runes for Curse.');
      end;
end;
        
procedure FindAndCast;
  begin
    If(CastCurse = True) then
      begin
        If FindObjCustom(x, y, ['onk', 'amo', 'morak'], [MonkColor1, MonkColor2, MonkColor3], 4) then
          begin
            Mouse(x, y, 2, 2, true);
            FindNonInventoryRandoms;
            Casts:= Casts + 1;
            ReportVars[0] := ReportVars[0] + 1;
            rbc:= rbc + 1;
            Exit;
          end;
        If (not(FindObjCustom(x, y, ['onk', 'amo', 'morak'], [MonkColor1, MonkColor2, MonkColor3], 4))) then
          begin
            MakeCompass('W');
            If FindObjCustom(x, y, ['onk', 'amo', 'morak'], [MonkColor1, MonkColor2, MonkColor3], 4) then
              begin
                Mouse(x, y, 2, 2, true);
                FindNonInventoryRandoms;
                Casts:= Casts + 1;
                ReportVars[0] := ReportVars[0] + 1;
                rbc:= rbc + 1;
                Exit;
              end;
              If (not(FindObjCustom(x, y, ['onk', 'amo', 'morak'], [MonkColor1, MonkColor2, MonkColor3], 4))) then
                begin
                  MarkTime(CastWaiter);
                  FindNonInventoryRandoms;
                  muc:= muc + 1;
                  repeat
                    wait(50);
                    If (CastWaiter > 45000) then
                      begin
                        WriteLN('There is no monk.. Exiting script.');
                        TerminateScript;
                      end;
                  until(FindObjCustom(x, y, ['onk', 'amo', 'morak'], [MonkColor1, MonkColor2, MonkColor3], 4))
                  Mouse(x, y, 2, 2, true);
                  FindNonInventoryRandoms;
                  Casts:= Casts + 1;
                  ReportVars[0] := ReportVars[0] + 1;
                  rbc:= rbc + 1;
                  Exit;
                  end;
            end;
      end;
    If(CastCurse = False) then
      begin
        WriteLN('Ran out of runes! Terminating script.');
        LogOut;
        TerminateScript;
      end;
end;

procedure Writings;
  begin
    WriteLN('W');
    Wait(100);
    ClearDebug;
    WriteLN('We');
    Wait(100);
    ClearDebug;
    WriteLN('Wel');
    Wait(100);
    ClearDebug;
    WriteLN('Welc');
    Wait(100);
    ClearDebug;
    WriteLN('Welco');
    Wait(100);
    ClearDebug;
    WriteLN('Welcom');
    Wait(100);
    ClearDebug;
    WriteLN('Welcome');
    Wait(100);
    ClearDebug;
    WriteLN('Welcome t');
    Wait(100);
    ClearDebug;
    WriteLN('Welcome to');
    Wait(100);
    ClearDebug;
    WriteLN('Welcome to m');
    Wait(100);
    ClearDebug;
    WriteLN('Welcome to my');
    Wait(100);
    ClearDebug;
    WriteLN('Welcome to my s');
    Wait(100);
    ClearDebug;
    WriteLN('Welcome to my sc');
    Wait(100);
    ClearDebug;
    WriteLN('Welcome to my scr');
    Wait(100);
    ClearDebug;
    WriteLN('Welcome to my scri');
    Wait(100);
    ClearDebug;
    WriteLN('Welcome to my scrip');
    Wait(100);
    ClearDebug;
    WriteLN('Welcome to my script');
    Wait(100);
    ClearDebug;
    WriteLN('Welcome to my script!');
    Wait(2000);
    ClearDebug;
end;

procedure ProgressReport;
  begin
    ClearDebug;
    WriteLN('################################################################');
    WriteLN('##############Welcome to ProphesyOfWolfs Curser#################');
    WriteLN('###########################V 1.0################################');
    WriteLN('~~ Curses done: ' +IntToStr(Casts));
    WriteLN('~~ Time running: ' +IntToStr(ST));
    WriteLN('~~ Times encountered errors finding monk: ' +IntToStr(muc));
    WriteLN('~~ Experience gained: ' +IntToStr(Casts * 29));
    WriteLN('################################################################');
    WriteLN('      You can email me at [email]ProphesyOfWolf@Hotmail.com[/email]            ');
end;

begin
  SetupSRL;
  ScriptID := '627';
  MarkTime(ScriptTime);
  DeclarePlayers;
  Writings;
  ActivateClient;
  repeat
    If(LoggedIn) then
      begin
        LogOut;
      end;
    If(not(LoggedIn)) then
      begin
        LoginPlayer;
      end;
    Wait(250 +random(300));
    Setup;
      repeat
        FindAndCast;
        Wait(1275 +random(250));
        If (rbc = 3 +random(4)) then
          begin
            AntiRandoms;
            AntiBan;
            rbc:= 0;
          end;
        ProgressReport;
      until(ST = tti)
        LogOut;
        Wait(tto);
  until(false)
end. 

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

You left your username and password in there ;)

i changed your password ill PM u it :P

Too short :|
GL next time

Sorry, but this script is too short and simple for an SRL Member application to be accepted.

However, good try.

A script that is good enough is over lets say 400 lines, and the requirements for it can be seen here.

In future, please try to read stickies.

Good effort.. I agree with the others though.. needs more substance..

Good try but yes needs more… Stuff

function CastCurse: Boolean;
  begin
    GameTab(7);
    CurseActive := DTMFromString('78DA6314616660E867644006E1E1EBC1344C9' +
    '4910FA8660AAA9A956C6F51D5F000D54C24424D370135824035ED' +
    '04D44802D57412502345845DD2987EC7AA661201351240355309A' +
    '81105AA994684DF09A91103AAE922105FC24035BD04D4881111EF' +
    '9284CD01003E42231F');
    If(DTMRotated(CurseActive, x, y, MIX1, MIY1, MIX2, MIY2)) then
      begin
        Result:= True;
        Mouse(x, y, 1, 1, true);
      end;
    If (not(DTMRotated(CurseActive, x, y, MIX1, MIY1, MIX2, MIY2))) then
      begin
        Result:= False;
        WriteLN('No runes for Curse.');
      end;
end;

This seems like a good point to use else.

If FindDTMRotated Then
Begin
  Result:= True;
  Mouse(x, y, 1, 1, true);
End
Else
Begin
  Result:= False;
  WriteLN('No runes for Curse.');
End;

You're not getting in this time.
Try again in one month :)
Closed.