Results 1 to 4 of 4

Thread: I need help with my first script

  1. #1
    Join Date
    Nov 2007
    Location
    North/south eurausasiamericafricatic
    Posts
    133
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default I need help with my first script

    I cant get my sript to work properly

    SCAR Code:
    program AutoTalker;
    {.include SRL/SRL.scar}
    //___________________________
    //by.Dr.QuantumPhysics
    //version -1.3 alpha
    Var
    loops :integer;

    const
    WaitTime= 1000; //how many seconds between each message multiplyed by 1000
    message1= ('put it here');
    message2= ('M2'); //If none write none
    message3= ('M3'); //If none write none
    message4= ('M4'); //If none write none
    message5= ('none'); //If none write none
    forever= 'No';//do you want it to repeat forever? if yes put yes,if no put no
    loopTimes=2; //if not forever how many times do you want your messages?


    begin
    loops:=0;
    repeat
     repeat  
     Wait((WaitTime)+random(1000));
        typesend(message1);
         if (message2='none') Then;
          Exit;
           if not(message2='none') Then;
            Wait((WaitTime)+random(1000));
             typesend(message2);
              if (message3='none') Then;
               Exit;
                if not(message3='none') Then;
                 Wait((WaitTime)+random(1000));
                  typesend(message3);
                   if (message4= 'none') Then;
                    Exit;
                     if not (message4= 'none') Then;
                      Wait((WaitTime)+random(1000));
                       typesend(message4);
                        if (message5='none') Then;
                         Exit;
                          if not(message5= 'none') Then;
                           Wait((WaitTime)+random(1000));
                            typesend(message5);
                             if (forever='yes') then;
                              until (false);
                               if not(forever='yes') then;
                                loops:= loops+1;
                                  until(loops>=looptimes);
    end.

    It wont do what i want it to
    It's 42

  2. #2
    Join Date
    Feb 2007
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try to not make your scripts so complicated

    Repeat

    If message2<>'none' then
    Begin
    Wait((WaitTime)+random(1000));
    typesend(message2);
    end;

    Loops := Loops + 1;

    until Loops > LoopTimes

    Hope you get idea ?


    Woot ! 17th post

  3. #3
    Join Date
    Nov 2007
    Location
    North/south eurausasiamericafricatic
    Posts
    133
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default



    I still need help
    It's 42

  4. #4
    Join Date
    Nov 2007
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm still a total noob too so i could be wrong but, i think ONE of the reasons that doesn't work is because you didn't make a procedure.

    so

    SCAR Code:
    //you have to start with
    procedure NameHere;
    Begin
    CodeHere
    End;



    begin
     repeat
      NameHere;
     until(loops>=looptimes);
    end.

    i hope that was helpful but i don't really know any more then you do. :\


    PS. i don't know weather or not
    SCAR Code:
    until(loops>=looptimes);
    will work there but
    SCAR Code:
    until (false)
    will work for making it repeat forever.
    Andrew
    Jagex Mod

    03-Jan-2007 14:43:22

    Actually we ban about 8000 accounts a week for macroing.

    It's next to impossible to get away with these days.
    Uh-huh.....

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
  •