Results 1 to 16 of 16

Thread: i need help with my script

  1. #1
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default i need help with my script

    CAn some one test it for me?

    are there any errors?
    any suggustions

    SCAR Code:
    program CaveFighter;
    {.include srl/srl.scar}
    {.include srl/srl/skill/fighting.scar}

    const
    CaveColor = 11579578;// No Need for touch.
    TakeSleeps= True; // For an over night thing// The rests are 120 mins.
    FightStyle = 'Def';//Type in Either atk/def/str.
    waittime = 400;//Leave it.
    Speed = 17 ; // Mouse speed.

    Var
     Start : Integer;
    procedure DeclarePlayers;
    begin
      HowManyPlayers:=2; // How many players, both active or not active
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].String1 :='attack';//Set fight mode here
      Players[0].Active :=True;

      Players[1].Name :='';
      Players[1].Pass :='';
      Players[1].Nick :='';
      Players[1].String1 :='attack';//Set fight mode here
      Players[1].Active :=False;

    end;


    Procedure style;
    Begin
    Case lowercase(Players[CurrentPlayer].String1) Of
    'attack' : SetFightMode(1);
    'strength' : SetFightMode(2);
    'shared' : SetFightMode(3);
    'defense' : SetFightMode(4);
    End;
     WriteLn('Set fight mode');
    End;

    procedure entercave;
     begin
    If(FindColorSpiralTolerance(x,y,CaveColor,msx1,msy1,msx2,msy2,20))Then
      begin
      MMouse(x,y,3,3);
      If(IsUpText('Enter'))Then
      Mouse(x,y,2,2,True);
      Wait(Waittime + Random(200))
    end;
    end;

    function DeadYet : boolean;
    begin
      wait(1500+random(1500));
      MakeCompass('S')
      LowestAngle;
      if(FindObjMultiText(x,y, 'entrance', 'Cave', 've', CaveColor, 15)) or (findsymbol(x,y,'minigame')) then
      Result:= True;
    end;

    procedure Fight;
    var
    CavesDone:integer;
    begin
    if (infight) then
    begin
    MMouse(x,y,3,3);
    If(IsUpText('Enter'))Then
     Mouse(x,y,2,2,True);
    repeat
    wait (50000)
    until(Deadyet);
    end;
    CavesDone := (CavesDone + 1);
    end;



    Procedure ScriptReport;
    var
    cavesdone,sleepsdone:integer;
    Begin
    Writeln('|----Cnr Sports Auto Fight Caves Runner---------');
    Writeln('|----Caves done: ' + IntToStr(CavesDone));
    Writeln('|----Times slept: ' + IntToStr(SleepsDone));
    Writeln('|-----------------------------------------------');
    End;

    Procedure LogOutSleep(GoToBed : Integer);
    var
    TimesSlept,SleepsDone:integer;
    Begin
    LogOut;
    Wait(GoToBed+Random(50000));
    TimesSlept := (SleepsDone + 1);
    LoginPlayer;
    End;

          begin
          SetUpSrl;
          DeclarePlayers;
          NewLine := '';
           Repeat
          if (not (LoggedIn)) then Loginplayer;
          Style;
           MarkTime(Start);
           repeat
           Fight;
          Until(TimeFromMark(Start) >= 720000)
      If(TimeFromMark(Start) >= 720000)Then
    WriteLn('Going to sleep');
    LogOutSleep(360000);
    until (false)
    end.

  2. #2
    Join Date
    Jun 2007
    Location
    Varrock East bank,
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Havnt tested it but the standards are a little messy :P Good job though!
    Shadows-Collide -
    http://i142.photobucket.com/albums/r...ollidesig1.jpg
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.
    - Shadows-collide -
    -

  3. #3
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lookws good, is awesome if its a first for you. it sucks though because there're no randoms...and yes, you do get randoms.an awesome antiban procedure would be to have it say something like..'awww i did good that run' or sumthin like that every 5+random(13)); or something. idk


    i think script should looke like this.


    SCAR Code:
    program fightcaver

    var
    c= 1;


    then you will put


    SCAR Code:
    function DeadYet : boolean;
    begin
      wait(1500+random(1500));
      MakeCompass('S')
      LowestAngle;
      if(FindObjMultiText(x,y, 'entrance', 'Cave', 've', CaveColor, 15)) or (findsymbol(x,y,'minigame')) then
      Result:= True;
      If Result:= True Then
      Begin;
        c+ 1
        if c= 5+random13 then
        Begin;
          typesend('good run 4 me^^') or
          typesend('i did a good run that time;)') or
          typesend('dang lvl 90s!!!!') or
          typesend('only a million more to go')
        end;



    now imstil a noob to scar, however i think that these will work.
    Originally Posted by YoHoJo
    I like hentai.

  4. #4
    Join Date
    May 2007
    Posts
    76
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    theres a few errors there, i would doit like this:
    SCAR Code:
    program fightcave;
    {.include SRL\SRL.SCAR}

    function DeadYet : boolean;
    begin
    wait(928+random(572));
    MakeCompass('S')
    LowestAngle;
    if(FindObjMultiText(x,y, 'entrance', 'Cave', 'ave',CaveColor, 15)) or
    (findsymbol(x,y,'minigame'))then
     begin
     Result:= True;
     if random(3)=1 then
      begin
       case random(5) of
        0:TypeSend('that was a good run');
        1:TypeSend('it gets so boring sometimes');
        2:TypeSend('this game is well gd');
        3:TypeSend('might need to get a new weapon');
        4:TypeSend('hehe, thats a great run =]');
        end;
      end;
     end;
    end;

  5. #5
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Don't use TypeSend in antiban, even if it is slightly randomised. It still gets repetitive. Use a responder instead.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  6. #6
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Thanks guys, i wasnt sure if there was randoms in the mini game but ill add it anyway.

    Its my first non auto talker =D

    So you guys like?

  7. #7
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Don't use TypeSend in antiban, even if it is slightly randomised. It still gets repetitive. Use a responder instead.
    but responders r for skills. most people in skilling wud say lvls? or *username* sumtin like that. pople wud say wayyy to random things in fightcaving.
    Originally Posted by YoHoJo
    I like hentai.

  8. #8
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by llamaman View Post
    but responders r for skills. most people in skilling wud say lvls? or *username* sumtin like that. pople wud say wayyy to random things in fightcaving.

    are you a member?

    can you test it?

    or let me borrow your user / pass just to see if it works... cause i dont have members anymore

  9. #9
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah i am a member.. but i only have a lvl 95/93 memz, sry but....no. i am willing to test, make changes and tell u what i made changes too in the script
    Originally Posted by YoHoJo
    I like hentai.

  10. #10
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by llamaman View Post
    yeah i am a member.. but i only have a lvl 95/93 memz, sry but....no. i am willing to test, make changes and tell u what i made changes too in the script

    so are u going to test it..?

  11. #11
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok, i made some changes to the script, some including that players can now choose how long to run the script for.
    Originally Posted by YoHoJo
    I like hentai.

  12. #12
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    all the script does is log u in, then log u out, gona find out how it does that then change.. its a short sccript.

    the script is junk, it logs u out after every procedure.
    Originally Posted by YoHoJo
    I like hentai.

  13. #13
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by llamaman View Post
    all the script does is log u in, then log u out, gona find out how it does that then change.. its a short sccript.

    the script is junk, it logs u out after every procedure.
    its junk ? im sorry ill forget all about the script... sorry for wasting your time... i guess i am a noob at scripting after all

  14. #14
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    no, the script is okay, the usage saux though
    Originally Posted by YoHoJo
    I like hentai.

  15. #15
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by llamaman View Post
    no, the script is okay, the usage saux though
    what does that mean lol?

  16. #16
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    its ok at least your trying to learn thats what counts and while your fighting id suggest to add a small antiban, not alot because that looks kinda obvious but just add a case of like random(50) and then make like three hoverskills.
    that can be done like this;
    SCAR Code:
    case random(50) of
      1: hoverskill('attack',false);
      2: hoverskill('defence', false);
      3: hoverskill('strength',false);
      4: hoverskill('random',false);
    end;
    something simple like that would help a lot.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •