Results 1 to 7 of 7

Thread: help with my first autotalker plz

  1. #1
    Join Date
    Dec 2007
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default help with my first autotalker plz

    can i get some help plz my first script isnt working and im a noob to scar scripting
    if anyone can help w/o completely flaming me that would be great
    its probably totally flawed all over sorry i tried
    SCAR Code:
    program UltimateAutoTalker;

    const
    //////////////////////////////////setup/////////////////////////////////////////

    v         = 0                //dont touch plz!!!!
    NameOfTask: 'mining';        //what task do you want to auto talk for?NO CAPS(mining,fighting,woodcutting?)
    WcLevel   : 1;               //Woodcutting level (If you chose woodcutting for NameOfTask)
    MinLevel  : 1;               //your mining level(If you chose mining for NameOfTask)

    {************Dont Touch Below Unless You Are Experienced Plz*******************}

    procedure MiningTalk;
    begin
      if inchatmulti('ininglvl, lvl?, ?, inin, ining, level, levels') then typesend('mines '+MinLevel' you?')
      Wait(1100+Random(550))
      typesend('Oh cool, im just getting super bored mining')
    end;

    procedure WoodcuttingTalk;
    begin
      if inchatmulti('Wc, level, ood, utting, lvl, ?') then typesend(WcLevel)
    end;

    procedure FightingTalk;
    begin
      if inchatmulti('ey, ello, i, o, yo, sup, up') then typesend('shhhhhhhh stop talking')
    end;
     

    begin
      repeat
      if NameOfTask=('mining') then MiningTalk
      end;
      if NameOfTask=('woodcutting') then WoodcuttingTalk
      end;
      if NameOfTask=('fighting') then FightingTalk
      end;
      until z=8
    end.

    ty

    ~yurmomsmom9

  2. #2
    Join Date
    Dec 2007
    Location
    Canada
    Posts
    187
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey im working on it k looks decent but im fixing the bugs and I will try and have an edited version on here soon.

    ~Insanomano~

  3. #3
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Hello.

    I won't fix all of your errors, but I will help you up to here, I fixed all the bugs until line 16. Hopefully you can get to the end by your self
    SCAR Code:
    program UltimateAutoTalker;
    {.include SRL/SRl.scar}

    //////////////////////////////////setup/////////////////////////////////////////
    const

    v         = 0; //dont touch plz!!!!
    NameOfTask= 'mining';        //what task do you want to auto talk for?NO CAPS(mining,fighting,woodcutting?)
    WcLevel   = 1;               //Woodcutting level (If you chose woodcutting for NameOfTask)
    MinLevel  = 1;               //your mining level(If you chose mining for NameOfTask)

    {************Dont Touch Below Unless You Are Experienced Plz*******************}

    procedure MiningTalk;
    begin
    if inchatmulti('ining level') then typesend('mines '+MinLevel+' you?');
    Wait(1100+Random(550))
    typesend('Oh cool, im just getting super bored mining')
    end;

    procedure WoodcuttingTalk;
    begin
    if inchatmulti('Wc, level, ood, utting, lvl, ?') then typesend(WcLevel)
    end;

    procedure FightingTalk;
    begin
    if inchatmulti('ey, ello, i, o, yo, sup, up') then typesend('shhhhhhhh stop talking')
    end;

    begin
    SetupSRL;
    repeat
    if NameOfTask= 'mining' then MiningTalk
      end;
    if NameOfTask=('woodcutting') then WoodcuttingTalk
      end;
    if NameOfTask=('fighting') then FightingTalk
      end;
    until z=8
    end.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  4. #4
    Join Date
    Dec 2007
    Location
    Canada
    Posts
    187
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Drunkenoldma redid it quite nicely. So just follow his script and see what you did wrong, anyhow good job on the script.

    ~Insanomano~

  5. #5
    Join Date
    Dec 2007
    Posts
    103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Perhaps you should read a tutorial on basic Pascal. That should sort out some of your errors that are common for new scripters. That goes for stuff like declaring constants and properly using IFs. You should be able to find tutorials in the Tutorial Island or just by using Google.

    But just by using comments you're off to a great start!
    This sentence is false.

  6. #6
    Join Date
    Jan 2007
    Location
    Hamilton, New Zealand
    Posts
    177
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program UltimateAutoTalker;
    {.include SRL/SRl.scar}
     
    //////////////////////////////////setup/////////////////////////////////////////
    const
     
    v         = 0; //dont touch plz!!!!
    NameOfTask= 'mining';        //what task do you want to auto talk for?NO CAPS(mining,fighting,woodcutting?)
    WcLevel   = 1;               //Woodcutting level (If you chose woodcutting for NameOfTask)
    MinLevel  = 1;               //your mining level(If you chose mining for NameOfTask)
     
    {************Dont Touch Below Unless You Are Experienced Plz*******************}
     
    procedure MiningTalk;
    begin
    if inchatmulti('ining level') then typesend('mines '+MinLevel+' you?');
    Wait(1100+Random(550))
    typesend('Oh cool, im just getting super bored mining')
    end;
     
    procedure WoodcuttingTalk;
    begin
    if inchatmulti('Wc, level, ood, utting, lvl, ?') then typesend(WcLevel)
    end;
     
    procedure FightingTalk;
    begin
    if inchatmulti('ey, ello, i, o, yo, sup, up') then typesend('shhhhhhhh stop talking')
    end;
     
    begin
    SetupSRL;
      repeat
      if NameOfTask= 'mining' then MiningTalk;
      if NameOfTask=('woodcutting') then WoodcuttingTalk;
      if NameOfTask=('fighting') then FightingTalk;
      y := y + 1;
      until y=8;
    end.

    I just fixed up the loop. Looks like you have some problems with your use of inchatmulti.
    Also, the error box tells you alot about the problems.

    For if things, the only time you need end; is if you have begin e.g.

    If NameOfTask = ('Mining') then
    begin
    MiningTalk;
    end;

    At least im pretty sure thats how it works

  7. #7
    Join Date
    Dec 2007
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thx so much ALL of you guys that cleared up alot and thx for fixing it also

    really appreciate it

    ok so i got my new and improved version....
    can anyone tell me if it's ok now?
    SCAR Code:
    program UltimateAutoTalker;

    const
    //////////////////////////////////setup/////////////////////////////////////////

    v         = 0                //dont touch plz!!!!
    NameOfTask: 'mining';        //what task do you want to auto talk for?NO CAPS(mining,fighting,woodcutting?)
    WcLevel   : 1;               //Woodcutting level (If you chose woodcutting for NameOfTask)
    MinLevel  : 1;               //your mining level(If you chose mining for NameOfTask)

    {************Dont Touch Below Unless You Are Experienced Plz*******************}

    procedure MiningTalk;
    begin
      if inchatmulti('ini') then Wait(2000+random(400)
      begin
        typesend('mines '+MinLevel' you?') //looks for ini in mINIng for mINIn and such
        Wait(1100+Random(550))
        typesend('Oh cool, im just getting super bored mining')
      end;
    end;

    procedure WoodcuttingTalk;
    begin
      if inchatmulti('w') then Wait(2000)+random(400)  //looks for w in Woodcutting or Wc and such
      begin
        typesend(WcLevel)
      end;
    end;

    procedure FightingTalk;
    begin
      if inchatmulti('e') then Wait(2000)+random(400)//looks for the e in hey/hello(lol i kno its kinda broad but w/e)
      begin
        typesend('shhhhhhhh stop talking')
      end;
    end;


    begin
      repeat
      if NameOfTask=('mining') then MiningTalk
      end;
      if NameOfTask=('woodcutting') then WoodcuttingTalk
      end;
      if NameOfTask=('fighting') then FightingTalk
      end;
      until v=8       // in otherwords FOREVER!!!!!
    end.

    ~thanx

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. My First AutoTalker
    By eurostylz in forum First Scripts
    Replies: 13
    Last Post: 02-10-2008, 11:11 AM
  2. AutoTalker
    By snatch in forum First Scripts
    Replies: 3
    Last Post: 09-03-2007, 12:18 PM
  3. autotalker
    By wobbii in forum First Scripts
    Replies: 3
    Last Post: 04-16-2007, 01:48 AM
  4. My AutoTalker
    By RudeBoiAlex in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 03-05-2007, 03:34 PM
  5. need autotalker help
    By Dadeer in forum OSR Help
    Replies: 1
    Last Post: 12-01-2006, 12:12 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
  •