ProphesyOfWolf's Curse You! Auto Curser

Hey! Thanks for reading this. I saw a script request for this one, and decieded to do it for practice.. He offered to pay, but I don't like to sell scripts.. I may if I make a really nice one in the future, but at the moment, I'm scripting for free! ^.~

As is said in the very short intro, setup all information in const (and DeclarePlayers, of course). This doesn't support multiplayers, the only reasons I have DeclarePlayers in there is the Login/LogOut functions and the antirandoms.. So, now that that's been said, enjoy my script!

(Also, I'd advise buying full bronze.. It makes you not actually cause the monk's defense drop because it rapes your magic like hell.. You still get the exp from a normal cast, too! ^^)

 

dude, either make the script .scar and not .zip cus nobody knows weather thats a keylogger or not, or just post the script here, but i would put it on .scar so then you can see how many ppl use it

 

You can't post them as .scars here. Read the attachment file extensions. I had to zip it. And why the hell would I put a keylogger on this site? Ffs man.. I work hard at making these scripts, and hearing you accuse me of something like that makes me feel very hurt D'=..

Go ahead and scan it, it's safe.

Since there is only one file in there ( PoW Curse You.scar ) there is no way in hell it is a keylogger. Open it in wordpad. You'll see.. >.>

 

I love how he suggested you hid a keylogger in 2.3 kb of data.

I might download this to check out your counting function.

 

Thanks for the comment! ^^ Positive ppls like you make me want to keep on doing this stuff..

Rather than a counting function, I used a DTM I made for that spell. In the future, I'll more than likely make a rune counting function, since it seems like a good idea.

Also, just for everyone's information, in my main loop, the big repeat seems endless, right? Well, it isn't. If you don't have runes it terminates the script. The until(false) just makes it repeat until then~ ^^

Code:

    If(CastCurse = False) then
      begin
        WriteLN('Ran out of runes! Terminating script.');
        LogOut;
        TerminateScript;
      end;
end;

 

14 views and no comments? If you downloaded, please post errors/reports!
Thank you very much!

 

I log in fine...and do the curse once...but after i can an error that it can't find compass angle.

 

After some testing, I realized something...

RuneScape killed the MakeCompass function in SRL..

It usually works for me, but now it doesn't. I'm going to make it more compatible after the next rev of SRL comes out (if you have more information about when the next SRL release will be, please email me at the email in my sig!)

until then, well.. I don't know what to tell ya ='(

 

Line 41: [Error] (13390:1): Unknown identifier 'HighestAngle' in script

help please

 

How do i open the scar file? i am a bit noob

 

im gonna download now, but i dont have time at the moment to use it, when i use it ill leave feedback

 

need an auto curser!!!!!. badly

 

Failed when compiling
Include file C:\Program Files\SCAR 3.15\includes\SRL\SRL.scar does not exist.
Include file C:\Program Files\SCAR 3.15\includes\SRL\SRL\skill\Magic.scar does not exist.

WTF need help!

 

u dont have ur srl downloaded... but since u already gravedug, ill update this for you.

**Edit**

Code:

{####################################################################################################
################################ProphesyOfWolf Presents##############################################
#####################################Curse You!######################################################
#####################################################################################################
##########Setup all things under const and DeclarePlayers. I hope it's self explainatory..###########
#################If not, email me at [email protected]######################################
#####################################################################################################
########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 CurseYou;
{.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 = 'so bored ...';  //CHANGE THESE! It will look very botty if you don't (they're for antibans..)
  Msg2 = 'i deel sorry fot this dude';
  Msg3 = '*yawn*';
  Msg4 = 'wow this is long';
  Msg5 = 'wtf?';
  Msg6 = 'die nub die';
  Msg7 = 'i r is am cursing u';
  Msg8 = 'lawl';
var
  x, y, tti, tto, cc, muc, rbc, CastWaiter, CurseActive: Integer;
  
procedure Setup;
  begin
    SetAngle(True);
    MakeCompass('W');
    tti:= (TimeToStayLoggedIn * 60 * 1000 * 60);
    tto:= (TimeToStayLoggedOut * 60 * 1000 * 60);
end;

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

  Players[0].Name := 'Username';
  Players[0].Pass := 'Password';
  Players[0].Nick := 'serna';
  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,1,2 : PickupMouse;
      3: HoverSkill('Runecrafting', False);
      4,5 : GameTab(1+random(10));
      7: BoredHuman;
     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;
            cc:= cc + 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;
                cc:= cc + 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;
                  cc:= cc + 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(cc));
    WriteLN('~~ Time running: ' +TimeRunning);
    WriteLN('~~ Times encountered errors finding monk: ' +IntToStr(muc));
    WriteLN('~~ Experience gained: ' +IntToStr(cc * 29));
    WriteLN('################################################################');
    WriteLN('      You can email me at [email protected]            ');
end;

begin
  SetupSRL;
  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(StrToInt(TimeRunning) = tti)
        LogOut;
        Wait(tto);
  until(false)
end.

 

i need help with curser, i try to open it and it says that theres nothing to open it with, then if i try to re dl will it work? i added you onto msn, so dont think its a rapist, my msn [email protected], plz help