Results 1 to 8 of 8

Thread: Need Help With My Auto-Seller/Buyer

  1. #1
    Join Date
    Sep 2007
    Location
    Greece
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need Help With My Auto-Seller/Buyer

    I Cant Seem To Get It To Say Only 1 Message
    SCAR Code:
    /////////////////////////////////////////////////////////////////
    //     This Is An Auto-Talker Pls Post At My Thread            //
    //                                      "Etheras-FireFox"      //
    /////////////////////////////////////////////////////////////////
    program AutoSell;

    var
    Messages: Integer;

    const
     Text = 'Glow2:Scroll:  LoL';//First Message
     Text2 = 'Glow2:Scroll: Fill';//Second Message
     Text3 = 'Glow2:Scroll: These';//Third Message
     Text4 = 'Glow2:Scroll: First';//Fourth Message
     Text5 = 'Glow2:Scroll: Before';//Fifth Message
     Text6 = 'Glow2:Scroll: Running';//Sixth Message

    Procedure AutoSell;
    Begin
    Messages:=1;
     begin;
      If(Messages=6)Then
       SendKeysWait(text+chr(13),200,100);
       SendKeysWait(text2+chr(13),100,200);
       SendKeysWait(text3+chr(13),300,0);
       SendKeysWait(text4+chr(13),200,100);
       SendKeysWait(text5+chr(13),300,0);
       SendKeysWait(text6+chr(13),100,200);
     End;
     begin;
      If(Messages=5)Then
       SendKeysWait(text+chr(13),200,100);
       SendKeysWait(text2+chr(13),100,200);
       SendKeysWait(text3+chr(13),300,0);
       SendKeysWait(text4+chr(13),200,100);
       SendKeysWait(text5+chr(13),300,0);
     End;
     begin;
      If(Messages=4)Then
       SendKeysWait(text+chr(13),200,100);
       SendKeysWait(text2+chr(13),100,200);
       SendKeysWait(text3+chr(13),300,0);
       SendKeysWait(text4+chr(13),200,100);
     End;
     begin;
      If(Messages=3)Then
       SendKeysWait(text+chr(13),200,100);
       SendKeysWait(text2+chr(13),100,200);
       SendKeysWait(text3+chr(13),300,0)
     End;
     begin;
      If(Messages=2)Then
       SendKeysWait(text+chr(13),200,100);
       SendKeysWait(text2+chr(13),100,200);
     End;
     begin;
      If(Messages=1)Then
       SendKeysWait(text+chr(13),200,100);
     end;
    end;

    begin;
     repeat
      AutoSell;
     until(False)
    end.

    Pls Tell Me If There Is A Mistake On The Syntax

    P.S:I Know SendKeys Means Ban But This Is Suppose To Work With Supervision So Dont Think There Will Be A Problem

  2. #2
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    There is something rather wrong. The script is perfectly fine, you have just made a mistake. Let me fix it.

    SCAR Code:
    /////////////////////////////////////////////////////////////////
    //     This Is An Auto-Talker Pls Post At My Thread            //
    //                                      "Etheras-FireFox"      //
    /////////////////////////////////////////////////////////////////
    program AutoSell;

    var
    Messages: Integer;

    const
     Text = 'Glow2:Scroll:  LoL';//First Message
     Text2 = 'Glow2:Scroll: Fill';//Second Message
     Text3 = 'Glow2:Scroll: These';//Third Message
     Text4 = 'Glow2:Scroll: First';//Fourth Message
     Text5 = 'Glow2:Scroll: Before';//Fifth Message
     Text6 = 'Glow2:Scroll: Running';//Sixth Message

    Procedure AutoSell;
    Begin
     Messages:= 1+Random(6);//Random number from 1 to 6
     begin;
      If(Messages=6)Then
       SendKeysWait(text+chr(13),200,100);
       SendKeysWait(text2+chr(13),100,200);
       SendKeysWait(text3+chr(13),300,0);
       SendKeysWait(text4+chr(13),200,100);
       SendKeysWait(text5+chr(13),300,0);
       SendKeysWait(text6+chr(13),100,200);
     End;
     begin;
      If(Messages=5)Then
       SendKeysWait(text+chr(13),200,100);
       SendKeysWait(text2+chr(13),100,200);
       SendKeysWait(text3+chr(13),300,0);
       SendKeysWait(text4+chr(13),200,100);
       SendKeysWait(text5+chr(13),300,0);
     End;
     begin;
      If(Messages=4)Then
       SendKeysWait(text+chr(13),200,100);
       SendKeysWait(text2+chr(13),100,200);
       SendKeysWait(text3+chr(13),300,0);
       SendKeysWait(text4+chr(13),200,100);
     End;
     begin;
      If(Messages=3)Then
       SendKeysWait(text+chr(13),200,100);
       SendKeysWait(text2+chr(13),100,200);
       SendKeysWait(text3+chr(13),300,0)
     End;
     begin;
      If(Messages=2)Then
       SendKeysWait(text+chr(13),200,100);
       SendKeysWait(text2+chr(13),100,200);
     End;
     begin;
      If(Messages=1)Then
       SendKeysWait(text+chr(13),200,100);
     end;
    end;

    begin;
     repeat
      AutoSell;
     until(False)
    end.
    If message was 1 it would only write on sentence. And it was always to be 1 according to your script.

    -Knives

  3. #3
    Join Date
    Sep 2007
    Location
    Greece
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thx Didnt See It I Didnt Set A Correct Value For Messages Right ? Thx For Fixing The Script

  4. #4
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    NP You had set messages to the same value all the time To get randomness, that has to be random.

    -Knives

  5. #5
    Join Date
    Oct 2006
    Posts
    334
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    Quote Originally Posted by F1r3Fox View Post
    I Cant Seem To Get It To Say Only 1 Message
    SCAR Code:
    /////////////////////////////////////////////////////////////////
    //     This Is An Auto-Talker Pls Post At My Thread            //
    //                                      "Etheras-FireFox"      //
    /////////////////////////////////////////////////////////////////
    program AutoSell;

    const // changed this
    Messages = 6; //and this

    const
     Text = 'Glow2:Scroll:  LoL';//First Message
     Text2 = 'Glow2:Scroll: Fill';//Second Message
     Text3 = 'Glow2:Scroll: These';//Third Message
     Text4 = 'Glow2:Scroll: First';//Fourth Message
     Text5 = 'Glow2:Scroll: Before';//Fifth Message
     Text6 = 'Glow2:Scroll: Running';//Sixth Message

    Procedure AutoSell;
    Begin
    //Messages:=1; took this out
     begin;
      If(Messages=6)Then
       SendKeysWait(text+chr(13),200,100);
       SendKeysWait(text2+chr(13),100,200);
       SendKeysWait(text3+chr(13),300,0);
       SendKeysWait(text4+chr(13),200,100);
       SendKeysWait(text5+chr(13),300,0);
       SendKeysWait(text6+chr(13),100,200);
     End;

    Pls Tell Me If There Is A Mistake On The Syntax

    P.S:I Know SendKeys Means Ban But This Is Suppose To Work With Supervision So Dont Think There Will Be A Problem
    take out sendkeys anyway... doesn't matter if supervised or not.

    the changes i made just simplified it a bit

  6. #6
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Nate, he wanted it to type a random number of messages... You just made it type the same again and again...

    Here's a really short version:
    SCAR Code:
    /////////////////////////////////////////////////////////////////
    //     This Is An Auto-Talker Pls Post At My Thread            //
    //                                      "Etheras-FireFox"      //
    /////////////////////////////////////////////////////////////////
    program AutoSell;

    var
     Messages: Integer;
     Text: TStringArray;

    Const
     HowManyTextsDoYouHave= 3;

    Procedure SetupText;
    begin
      SetArrayLength(Text,HowManyTextsDoYouHave)
      Text[0]:= 'Message here'
      Text[1]:= 'Message here'
      Text[2]:= 'Message here'  // You can make infinite many texts.
    end;

    Procedure AutoSell;
    var I: Integer;
    Begin
      Messages:= random(GetArrayLength(Text))
      for I:= 0 to Messages do
      SendKeysWait('glow2:scroll:'+Text[I]+Chr(13),100,100)
    end;

    begin;
     SetupText;
     repeat
      AutoSell;
     until(False)
    end.

    -Knives

  7. #7
    Join Date
    Aug 2007
    Location
    England
    Posts
    734
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Damn it King you beat me to it was gonna put that array in there! thats nice scripting for a non-junior member! nice work
    The truth finally came out...


  8. #8
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Don't be fooled by my status! I know more about SCAR and SRL than quite a few

    We all start on some status, and sadly, mine hasn't changed yet. I've never been active here, but now I'm trying to make up for that. 'Cause I've been into SCAR for a lot of time now

    -Knives

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Auto note seller.
    By jakeyboy29 in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 01-17-2009, 04:41 PM
  2. Karjama Auto seller
    By hellian46 in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 10-26-2008, 12:34 AM
  3. Need a Auto Seller
    By aznpimpsturr in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 06-06-2008, 04:56 AM
  4. need help with my auto seller
    By sunny in forum OSR Help
    Replies: 14
    Last Post: 04-22-2008, 04:06 PM
  5. Replies: 13
    Last Post: 09-20-2007, 08:31 PM

Posting Permissions

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