Results 1 to 9 of 9

Thread: Fix and explain Please

  1. #1
    Join Date
    Feb 2007
    Location
    Australia
    Posts
    176
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Fix and explain Please

    Hey Umm trying to learn scripting think im doing ok.
    I cant get the auto logging to work but the autotalker does.They both work just cannot put them together ?

    Help please would like to be told what i needed to do or what i did wrong.

    Thanks Marzy

    SCAR Code:
    {.include srl/srl.scar}
     procedure Autologging;
     Begin
    MoveMouseSmooth(501, 289);
    Wait(100);
    Mouse(501, 289, 0, 0,true);
    Wait(10);
    Mouse(501, 289, 0, 0,true);
    Wait(1000);
    Sendkeys('Username'+chr(13));
    Wait(1500);
    Sendkeys('Passwordx')
    WriteLn('Logging In Please Wait.....');
    Wait(1500);
    Mouse(320, 311, 6, 4, true);
    Wait(8000)
    Mouse(320, 311, 6, 4, true);
    WriteLn('AutoLogin Completed Too Good');
     end;
    // Autotalker Inbuilt with Auto Login //
     Procedure Autotalker;
     Begin
    wait(8000)
    WriteLn('Wish i was rich');
    Wait(8000)
    Writeln ('Maybe i am rich');
     end;
     Procedure login;
     Begin
    autologging;
     end;
     
     begin
    autotalker;
     repeat;
     until(false);
    writeln('finished')
     end.

    -Currently learning script
    Marzey

  2. #2
    Join Date
    Apr 2007
    Location
    Finland
    Posts
    938
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Your autotalker "talks" to the Scar's debug log, erm...?
    And there's no failsafes there
    And it repeats an empty loop forever

    SCAR Code:
    repeat;
    until(false);

    Why have a procedure call a procedure that will never be called nor the procedure it calls?

    SCAR Code:
    Procedure login;
     Begin
    autologging;
     end;

    Bitmaps are better and useful, you should study them

    Fix your scripting standards too

    Edit: Do NOT use MoveMouse*
    You will get banned, use Mouse and MMouse, they are in SRL.

  3. #3
    Join Date
    Feb 2007
    Location
    Australia
    Posts
    176
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    first of all ScarScript:
    Procedure login;
    Beginautologging;
    end;

    I took proper thing out cause didnt work is why i asked for help.
    You didnt even show me how to fix them you just pointed what i already knew out ?

    -Currently learning script
    Marzey

  4. #4
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Use DeclarePlayers procedure it goes like this

    SCAR Code:
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; //Number of PLAYERS. active or not.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; //Player to start on.
     
        //set all user names, passwords and nicks correctly please.
     
      Players[0].Name := 'USername';
      Players[0].Pass := 'Password';
      Players[0].Nick := 'Nick';
      Players[0].Active := True;
     
      Players[1].Name := 'UserName';
      Players[1].Pass := 'Password';
      Players[1].Nick := '3-4 letters of UserName';
      Players[1].Active := False;


    Someone: 'Who the hell is TooManySitUps?'

    Boreas: 'Switch the first and last letter of my name, what do you get?'

    Someone: 'Um, SoreAb?'

    Boreas: 'And how do you get that?'

    Someone: 'From Too Many Sit Ups!! Haha, Boreas you are so clever!'

    Boreas: 'Ya he's like my evil twin that takes over when I'm being really sarcastic, or playing devil's advocate.'

  5. #5
    Join Date
    Apr 2007
    Posts
    186
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try reading some beginner tutorials too.

    Well first of all, try using the login whats in SRL
    SCAR Code:
    LoginPlayer;
    but for that u need
    SCAR Code:
    procedure DeclarePlayers;
    begin
       NumberOfPlayers(1); //The player amount u are using.
       CurrentPlayer:=0;    //Starting player

       Players[0].Name:='Runemaster';       //Name Here
       Players[0].Pass:='somethingreal';        //Pass Here
       Players[0].Nick:='ema';         //3 chars from middle of your name
       Players[0].Active:=True; //in use or not in use / True or False

    NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,Upchars)
    //and that creates a bitmapmask from the currentplayers nickname so it can be used for randoms detecting.
    end;

    And in the mainloop put this:
    SCAR Code:
    begin
    SetupSRL;
    DeclarePlayers;
    if(not(LoggedIn))then
    LoginPlayer;
    repeat
    //and your procedures after those in repeat if u want a multiplayer add
    //NextPlayer(true); after your procedure. and then it cant be in repeat,
    //i will explain later when im editing this post.
    until(false) //use false if you dont want it to stop else use true
    end.

    and for the Waits dont use 1000, 2000, 3000 use 1214, 2136, 3263 and some random to those too like this:
    SCAR Code:
    Wait(8412+random(23))
    for the "+" you may also use "-"

    and use :
    SCAR Code:
    TypeSend('The sentence to be sent in runescape!') //writes text in Runescape.
    instead of
    SCAR Code:
    Writeln('The sentence to be sent in scar debug box!') //writes text in scar debug box.

    Ok, so Multiplayer:
    SCAR Code:
    program AutoTalker;
    {.include srl/srl.scar}
    var Sent:Integer; //this is a Variable im using to count how many times
    //it has written sentences.

    const Text1ToBeSent = 'Here the first text to be sent.';
             Text2ToBeSent = 'Here the second text to be sent.';
    //and u can set those text how many you want.

    procedure DeclarePlayers; //The procedure :D
    begin
       NumberOfPlayers(1); //The player amount you are using.
       CurrentPlayer:=0;    //Starting player

       Players[0].Name:='Runemaster';       //Name Here
       Players[0].Pass:='somethingreal';        //Pass Here
       Players[0].Nick:='ema';         //3 chars from middle of your name
       Players[0].Active:=True; //in use or not in use / True or False
       Players[0].Integer1:=50; //this is the amount of sentences to be typed in RS.

    NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,Upchars)
    //and that creates a bitmapmask from the currentplayers nickname so it can be used for randoms detecting.
    end;

    procedure TalkWithMe;
    Begin
    TypeSend('Wish i was rich'); //writes to Runescape.
    ClearDebug; //clears scars debug box.
    Writeln('Sent '+inttostr(Sent)+' Sentences.') //writes to scars debug box.
    Wait(8124+random(35)) //waits about 8 seconds.
    TypeSend('Maybe i am rich'); //writes to Runescape.
    ClearDebug; //clears scars debug box.
    Writeln('Sent '+inttostr(Sent)+' Sentences.') //writes to scars debug box.
    Wait(8421-random(12)) //waits about 8 seconds.
    end;

    begin
    SetupSRL;
    DeclarePlayers;
    if(not(LoggedIn))then
    LoginPlayer;
    repeat
    TalkWithMe;
    FindNormalRandoms; //Used for finding the most common randoms (talking randoms etc.)
    until(false) //use false if you dont want it to stop else use
    //until(Sent=>Players[CurrentPlayer].Integer1)
    NextPlayer(True);
    end.

    I didnt use scar to write these so please correct me if i made mistakes

  6. #6
    Join Date
    Dec 2006
    Posts
    55
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OK ill write it for you .. Hope you will learn from it something !

    [scar]
    {.include srl/srl.scar}

    procedure Autologging;
    Begin
    Mouse(501, 289, 0, 0,true);
    Wait(1000);
    SendText('Username'+chr(13));
    Wait(1500);
    SendText('Passwordx')
    WriteLn('Logging In Please Wait.....');
    Wait(1500);
    Mouse(320, 311, 6, 4, true);
    Wait(8000)
    Mouse(320, 311, 6, 4, true);
    WriteLn('AutoLogin Completed Too Good');
    end;

    Procedure Autotalker;
    Begin
    wait(8000)
    WriteLn('Wish i was rich');
    Wait(8000)
    Writeln ('Maybe i am rich');
    end;

    begin
    SetUpSrl
    Autologging;
    autotalker;
    writeln('finished')
    end.
    [scar]

  7. #7
    Join Date
    Apr 2007
    Posts
    186
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by raimis89 View Post
    OK ill write it for you .. Hope you will learn from it something !

    [scar]
    {.include srl/srl.scar}

    procedure Autologging;
    Begin
    Mouse(501, 289, 0, 0,true);
    Wait(1000);
    SendText('Username'+chr(13));
    Wait(1500);
    SendText('Passwordx')
    WriteLn('Logging In Please Wait.....');
    Wait(1500);
    Mouse(320, 311, 6, 4, true);
    Wait(8000)
    Mouse(320, 311, 6, 4, true);
    WriteLn('AutoLogin Completed Too Good');
    end;

    Procedure Autotalker;
    Begin
    wait(8000)
    WriteLn('Wish i was rich');
    Wait(8000)
    Writeln ('Maybe i am rich');
    end;

    begin
    SetUpSrl
    Autologging;
    autotalker;
    writeln('finished')
    end.
    [scar]
    Pls use SCAR tags like this : ([ SCAR]and without those spaces[/SCAR ]and explain after every procedure/funtion //does this and this.
    so that it would be easyer to notice what it does or doesnt do.

    And in that script theres still those bad Wait times. Not good logging. And it still writes it to scars debug box.

  8. #8
    Join Date
    Feb 2007
    Location
    Australia
    Posts
    176
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for everyones help understand it more now.

    -Currently learning script
    Marzey

  9. #9
    Join Date
    Apr 2007
    Posts
    186
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by marzey View Post
    Thanks for everyones help understand it more now.
    Good, hope to see you around!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Somebody want to explain this?
    By FLUX_ in forum RuneScape News and General
    Replies: 4
    Last Post: 02-08-2008, 01:45 PM
  2. could someone explain to me...
    By dvdcrayola in forum OSR Help
    Replies: 6
    Last Post: 08-09-2007, 01:14 AM
  3. Can someone explain to me...
    By supersayian2224 in forum News and General
    Replies: 4
    Last Post: 06-13-2007, 09:58 AM

Posting Permissions

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