Results 1 to 8 of 8

Thread: I need help on my Autofighter

  1. #1
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default I need help on my Autofighter

    Hi, I have been working on an autofighter and I need some help on it plz. Also is there a shorter way to set how u want to fight. like if u want to train atk or str. Usually i just do mouse co-ords which is pretty simple. Still gotta add that so no problem bout that. umm. i think thats all so here it is help me out.
    Also i used Da Der Der auto talker function lemme know if i used it correctly in my script.

    SCAR Code:
    program Autofighter3000;
    {.include srl/srl.scar}


    var
    a: integer;

    const
    m1= 2177097;//color of the monster 1
    m2= 4539721;//color of the monster 2
    m3= 4737101;//color of the monster 3
    m4=  594529;//color of the monster 4
    LampSkill2= 'Attack';//Genie Lamp Skill Choice
    publicchat= 'On';//Sets the chat
    privatechat= 'Friends';//Sets the private chat
    trade= 'off';//sets the trade
    Monsterstokill=500;//how many monsters to kill
    MonsterName='Guard';//Name of the monster your fighting


    procedure Declareplayers;
      begin
      HowManyPlayers:=1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:=0;

         Players[0].Name :='USERNAME HERE'; //PlayerName
         Players[0].Pass :='PASSWORD HERE'; //Password
         Players[0].Nick :='NICK NAME HERE';//Players nick name( a few letters from playername)
         Players[0].Loc  :=''; //leave this alone
         Players[0].Active:=True;// Leave this alone 2
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
          end;


    procedure FindRandoms;
    begin
      FindNormalRandoms;
      FindLamp(LampSkill2);
    end;

    procedure InvRandoms;
    begin
      if (Random(4) = 0) then
      begin
        Wait(1);
        FindNewBox
          Wait(1);
      end;
    end;

    procedure MoveCamera;
    begin
      SendArrowSilentWait(Random(4)+1, 810+Random(122));
    end;

    procedure attack;
    begin
    If (loggedIn) then
    begin
    setchat(publicchat,1);
    setchat(privatechat,2);
    setchat(trade,3);
    end;
    if (findcolorspiral(x,y,m1,MSX1,MSY1,MSX2,MSY2) or
       (findcolorspiral(x,y,m2,MSX1,MSY1,MSX2,MSY2) or
       (findcolorspiral(x,y,m3,MSX1,MSY1,MSX2,MSY2) or
       (findcolorspiral(x,y,m4,MSX1,MSY1,MSX2,MSY2) then
       begin
       AutoTalker: Boolean;
       Findrandoms;
       invrandoms;
       mouse(x,y,4,4);
       if (istextup('Attack'+monstername)) then
       begin
       wait(10+random(30));
       AutoTalker: Boolean;
       mouse(x, y, 3, 3, true);
       a: a + 1;
       FindRandoms;
       INVRandoms;
       AutoTalker: Boolean;
       wait(timetokill*1000+random(2500));
       DontBanMe;
       end;
    if (findcolorspiral(x,y,m1,MSX1,MSY1,MSX2,MSY2) or
       (findcolorspiral(x,y,m2,MSX1,MSY1,MSX2,MSY2) or
       (findcolorspiral(x,y,m3,MSX1,MSY1,MSX2,MSY2) or
       (findcolorspiral(x,y,m4,MSX1,MSY1,MSX2,MSY2) = False then
       movecamera;
       AutoTalker: Boolean;
       wait(2000+random(1000));
       Dontbannme;
       end;
    end;




    Procedure DontBanMe;
      DBanMe:= Random(14); (*1 over so it will do nothing sometimes*)
        case DBanMe of
         0: RandomRClickEvery(2 + Random(13));
         1: hoverskill('random', false);
         2: RandomChatEvery(10 + Random(5));
         3: RotateEvery(20 + Random(10));
         4: LeaveScreenEvery(5 + Random(5));
         5: HoverEvery(15 + Random(5),'random');
         6: MessageFriendEvery;
         7: PickUpMouse;
         8: BoredEvery(9 + Random(24));
         9: DragItem(1, 1+Random(18));
         10: GameTab(1 + Random(12));
         11: DoEmote(1 + Random(20));
         12: PolyGlotTalk;
       end;
    end;




    procedure Report;
    begin
    cleardebug;
    writeln('Buckleyindahouse Progress Report 2000');
    writeln('');
    writeln('You been running this Autofighter for' + TimeRunning);
    writeln('The time right now is: ' +TheTime);
    Writeln('You have killed'+ InToStr(a) + 'monsters');
    end;


    {----------------------------------------------------------------------}
    {                         Function: AutoTalker                         }
    {                          Author: Da Der Der                          }
    {   Description: Will talk to other people in game only if they start  }
    {            talking to you first. Has many different phrases.         }
    {                     Great for not getting banned!                    }
    {----------------------------------------------------------------------}

    Function AutoTalker: Boolean;
    Var
    Messege, Level: String;
    AutoResponce: Integer;
    Begin

      OldLine:= TheLine;
      TheLine:= Lowercase(Trim(GetTextAtEx(20, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
      NewLine:= TheLine;

     If(GetChatName(Players[CurrentPlayer].Name))then
      Begin
       Exit;
      End

     If(OldLine=NewLine)then
      Begin
       Exit;
      End

      If(GetChatMessage(Players[CurrentPlayer].Name)) or (GetChatMessage(Players[CurrentPlayer].Nick))then
       Begin
         WriteLn(''+ChatName+': '+Chat);
         AutoResponce:= Random(10)+1;
        Case (AutoResponce) of
          0 : Messege:= ('?');
          1 : Messege:= ('what');
          2 : Messege:= ('yes');
          3 : Messege:= ('yep');
          4 : Messege:= ('what do you want');
          5 : Messege:= ('me?');
          6 : Messege:= ('Yah?');
          7 : Messege:= ('who? me?');
          8 : Messege:= ('whasup?');
          9 : Messege:= ('huh');
          10 : Messege:= ('???');
          11 : Messege:= ('sup?');
          12 : Messege:= ('yer');
          13 : Messege:= ('Yessum?');
          14 : Messege:= ('yezzer?');
          15 : Messege:= ('thats muh name =]');
        End
       TypeSend(Messege+' '+Name);
       Result:= True;
      End

      If(GetChatMessage('lol')) or (GetChatMessage('lmao')) or (GetChatMessge('rofl')) or (GetChatMessage('haha')) or GetChatMessage('hehe'))then
       Begin
        WriteLn(''+ChatName+': '+Chat);
        AutoResponce:= Random(24)+1;
        Case (AutoResponce) of
         0 : Messege:= ('lolz');
         1 : Messege:= ('hah');
         2 : Messege:= ('bwaha');
         3 : Messege:= ('....');
         4 : Messege:= ('funny..');
         5 : Messege:= ('heh');
         6 : Messege:= ('lololol');
         7 : Messege:= ('ha ha!');
         8 : Messege:= ('haaaa!');
         9 : Messege:= ('lmao');
         10 : Messege:= ('Whats so funny?');
         11 : Messege:= ('Ur funny lol');
         12 : Messege:= ('Hillarious');
         13 : Messege:= ('*Giggles*');
         14 : Messege:= ('rofllll');
         15 : Messege:= ('Gahhaa');
         16 : Messege:= ('*laughing* haha');
         17 : Messege:= ('tehehe');
         18 : Messege:= ('psht');
         19 : Messege:= ('uh..ya');
         20 : Messege:= ('ya i bet');
         21 : Messege:= ('funny lil critter...');
         22 : Messege:= ('think thats funny?');
         23 : Messege:= ('funny funny');
         24 : Messege:= ('*snorts as i laugh*');
         25 : Messege:= ('funy');
         26 : Messege:= ('if i was in a good mood i would laugh..');
         27 : Messege:= ('pretty pretty funny);
         28 : Messege:= ('
    =p');
         29 : Messege:= ('
    X[)');
         30 : Messege:= ('
    roflmao!');
        End
       TypeSend(Messege);
       Result:= True;
      End


      If(GetChatMessage('
    do')) or (GetChatMessage('do you')) or (GetChatMessage('can')) or (GetChatMessage('can i'))
       And
      (GetChatMessage('
    buy')) or (GetChatMessage('have')) or (GetChatMessage('see')) or (GetChatMessage('like'))Then
       Begin
        WriteLn('
    '+ChatName+': '+Chat);
        AutoResponce:= Random(24)+1;
        Case (AutoResponce) of
         0 : Messege:= ('
    no');
         1 : Messege:= ('
    nah');
         2 : Messege:= ('
    naw');
         3 : Messege:= ('
    huh uh');
         4 : Messege:= ('
    ya, nah im jk lol');
         5 : Messege:= ('
    nope');
         6 : Messege:= ('
    nooo');
         7 : Messege:= ('
    naaahhh');
         8 : Messege:= ('
    me? nope');
         9 : Messege:= ('
    naaaaw');
         10 : Messege:= ('
    no dude');
        End
       TypeSend(Messege);
       Result:= True;
      End


      If(GetChatMessage('
    agility')) or (GetChatMessage('agil'))
       And
      (GetChatMessage('
    lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
       Begin
        WriteLn('
    '+ChatName+': '+Chat);
        Level:= IntToStr(GetSkillLevel('
    agility'));
        AutoResponce:= Random(5)+1;
         Case(AutoResponce) of
          0 : Messege:= ('
    level '+Level+' agility here');
          1 : Messege:= (+Level);
          2 : Messege:= ('
    lvl '+Level+' agility');
          3 : Messege:= (+Level+'
    here =/');
          4 : Messege:= ('
    me im '+Level+' agility');
          5 : Messege:= ('
    my agility is '+Level);
          6 : Messege:= ('
    agility = '+Level);
          7 : Messege:= (+Level+'
    agility');
         End
        TypeSend(Messege);
        Result:= True;
       End


       If(GetChatMessage('
    construction')) or (GetChatMessage('con'))
       And
      (GetChatMessage('
    lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
       Begin
        WriteLn('
    '+ChatName+': '+Chat);
        Level:= IntToStr(GetSkillLevel('
    construction'));
        AutoResponce:= Random(5)+1;
         Case(AutoResponce) of
          0 : Messege:= ('
    level '+Level+' construction here');
          1 : Messege:= (+Level);
          2 : Messege:= ('
    lvl '+Level+' construction');
          3 : Messege:= (+Level+'
    here =/');
          4 : Messege:= ('
    me im '+Level+' con');
          5 : Messege:= ('
    my con lvl is '+Level);
          6 : Messege:= ('
    construction = '+Level);
          7 : Messege:= (+Level+'
    construction');
         End
        TypeSend(Messege);
        Result:= True;
       End


       If(GetChatMessage('
    cooking')) or (GetChatMessage('cookin')) or (GetChatMessage('cook'))
       And
      (GetChatMessage('
    lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
       Begin
        WriteLn('
    '+ChatName+': '+Chat);
        Level:= IntToStr(GetSkillLevel('
    cooking'));
        AutoResponce:= Random(5)+1;
         Case(AutoResponce) of
          0 : Messege:= ('
    level '+Level+' cookin here');
          1 : Messege:= (+Level);
          2 : Messege:= ('
    lvl '+Level+' cooking');
          3 : Messege:= (+Level+'
    here =/');
          4 : Messege:= ('
    me im '+Level+' cooking');
          5 : Messege:= ('
    my cookn is '+Level);
          6 : Messege:= ('
    cooking = '+Level);
          7 : Messege:= (+Level+'
    cookin');
         End
        TypeSend(Messege);
        Result:= True;
       End


       If(GetChatMessage('
    crafting')) or (GetChatMessage('craft')) or (GetChatMessage('craftin'))
       And
      (GetChatMessage('
    lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
       Begin
        WriteLn('
    '+ChatName+': '+Chat);
        Level:= IntToStr(GetSkillLevel('
    crafting'));
        AutoResponce:= Random(5)+1;
         Case(AutoResponce) of
          0 : Messege:= ('
    level '+Level+' craftin here');
          1 : Messege:= (+Level);
          2 : Messege:= ('
    lvl '+Level+' crafting');
          3 : Messege:= (+Level+'
    here =/');
          4 : Messege:= ('
    me im '+Level+' crafting');
          5 : Messege:= ('
    my craftin is '+Level);
          6 : Messege:= ('
    crafting = '+Level);
          7 : Messege:= (+Level+'
    craftin');
         End
        TypeSend(Messege);
        Result:= True;
       End


       If(GetChatMessage('
    farming')) or (GetChatMessage('farm')) or (GetChatMessage('farmin'))
       And
      (GetChatMessage('
    lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
       Begin
        WriteLn('
    '+ChatName+': '+Chat);
        Level:= IntToStr(GetSkillLevel('
    farming'));
        AutoResponce:= Random(5)+1;
         Case(AutoResponce) of
          0 : Messege:= ('
    level '+Level+' farmin here');
          1 : Messege:= (+Level);
          2 : Messege:= ('
    lvl '+Level+' farming');
          3 : Messege:= (+Level+'
    here =/');
          4 : Messege:= ('
    me im '+Level+' farmn');
          5 : Messege:= ('
    my farmin is '+Level);
          6 : Messege:= ('
    farming = '+Level);
          7 : Messege:= (+Level+'
    farming');
         End
        TypeSend(Messege);
        Result:= True;
       End


       If(GetChatMessage('
    fire')) or (GetChatMessage('firemakin')) or (GetChatMessage('firemaking'))
       And
      (GetChatMessage('
    lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
       Begin
        WriteLn('
    '+ChatName+': '+Chat);
        Level:= IntToStr(GetSkillLevel('
    firemaking'));
        AutoResponce:= Random(5)+1;
         Case(AutoResponce) of
          0 : Messege:= ('
    level '+Level+' fm here');
          1 : Messege:= (+Level);
          2 : Messege:= ('
    lvl '+Level+' firemakin');
          3 : Messege:= (+Level+'
    here =/');
          4 : Messege:= ('
    me im '+Level+' firemaking');
          5 : Messege:= ('
    my fire lvl is '+Level);
          6 : Messege:= ('
    firemaking = '+Level);
          7 : Messege:= (+Level+'
    fire');
         End
        TypeSend(Messege);
        Result:= True;
       End


       If(GetChatMessage('
    fishin')) or (GetChatMessage('fishing'))
       And
      (GetChatMessage('
    lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
       Begin
        WriteLn('
    '+ChatName+': '+Chat);
        Level:= IntToStr(GetSkillLevel('
    fishing'));
        AutoResponce:= Random(5)+1;
         Case(AutoResponce) of
          0 : Messege:= ('
    level '+Level+' fishn here');
          1 : Messege:= (+Level);
          2 : Messege:= ('
    lvl '+Level+' fishing');
          3 : Messege:= (+Level+'
    here =/');
          4 : Messege:= ('
    me im '+Level+' fishin');
          5 : Messege:= ('
    my fishin is '+Level);
          6 : Messege:= ('
    fishing = '+Level);
          7 : Messege:= (+Level+'
    fishing');
         End
        TypeSend(Messege);
        Result:= True;
       End


       If(GetChatMessage('
    fletch')) or (GetChatMessage('fletching')) or (GetChatMessage('fletchin'))
       And
      (GetChatMessage('
    lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
       Begin
        WriteLn('
    '+ChatName+': '+Chat);
        Level:= IntToStr(GetSkillLevel('
    fletching'));
        AutoResponce:= Random(5)+1;
         Case(AutoResponce) of
          0 : Messege:= ('
    level '+Level+' fletch here');
          1 : Messege:= (+Level);
          2 : Messege:= ('
    lvl '+Level+' fletching');
          3 : Messege:= (+Level+'
    here =/');
          4 : Messege:= ('
    me im '+Level+' fletchn');
          5 : Messege:= ('
    my fletching is '+Level);
          6 : Messege:= ('
    fletching = '+Level);
          7 : Messege:= (+Level+'
    fletchin');
         End
        TypeSend(Messege);
        Result:= True;
       End


       If(GetChatMessage('
    herb')) or (GetChatMessage('herblore')) or (GetChatMessage('herby')) or (GetChatMessage('herblaw'))
       And
      (GetChatMessage('
    lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
       Begin
        WriteLn('
    '+ChatName+': '+Chat);
        Level:= IntToStr(GetSkillLevel('
    agility'));
        AutoResponce:= Random(5)+1;
         Case(AutoResponce) of
          0 : Messege:= ('
    level '+Level+' herby here');
          1 : Messege:= (+Level);
          2 : Messege:= ('
    lvl '+Level+' herblore');
          3 : Messege:= (+Level+'
    here =/');
          4 : Messege:= ('
    me im '+Level+' herblaw');
          5 : Messege:= ('
    my herby is '+Level);
          6 : Messege:= ('
    herblore = '+Level);
          7 : Messege:= (+Level+'
    herby');
         End
        TypeSend(Messege);
        Result:= True;
       End


       If(GetChatMessage('
    magic')) or (GetChatMessage('mage'))
       And
      (GetChatMessage('
    lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
       Begin
        WriteLn('
    '+ChatName+': '+Chat);
        Level:= IntToStr(GetSkillLevel('
    agility'));
        AutoResponce:= Random(5)+1;
         Case(AutoResponce) of
          0 : Messege:= ('
    level '+Level+' magic here');
          1 : Messege:= (+Level);
          2 : Messege:= ('
    lvl '+Level+' magic');
          3 : Messege:= (+Level+'
    here =/');
          4 : Messege:= ('
    me im '+Level+' magee');
          5 : Messege:= ('
    my magic is '+Level);
          6 : Messege:= ('
    mage = '+Level);
          7 : Messege:= (+Level+'
    magic');
         End
        TypeSend(Messege);
        Result:= True;
       End


       If(GetChatMessage('
    mining')) or (GetChatMessage('minin'))
       And
      (GetChatMessage('
    lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
       Begin
        WriteLn('
    '+ChatName+': '+Chat);
        Level:= IntToStr(GetSkillLevel('
    mining'));
        AutoResponce:= Random(5)+1;
         Case(AutoResponce) of
          0 : Messege:= ('
    level '+Level+' minin here');
          1 : Messege:= (+Level);
          2 : Messege:= ('
    lvl '+Level+' mining');
          3 : Messege:= (+Level+'
    here =/');
          4 : Messege:= ('
    me im '+Level+' mining');
          5 : Messege:= ('
    my mining is '+Level);
          6 : Messege:= ('
    mining = '+Level);
          7 : Messege:= (+Level+'
    minin');
         End
        TypeSend(Messege);
        Result:= True;
       End


       If(GetChatMessage('
    pray')) or (GetChatMessage('prayer'))
       And
      (GetChatMessage('
    lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
       Begin
        WriteLn('
    '+ChatName+': '+Chat);
        Level:= IntToStr(GetSkillLevel('
    prayer'));
        AutoResponce:= Random(5)+1;
         Case(AutoResponce) of
          0 : Messege:= ('
    level '+Level+' pray here');
          1 : Messege:= (+Level);
          2 : Messege:= ('
    lvl '+Level+' prayuh');
          3 : Messege:= (+Level+'
    here =/');
          4 : Messege:= ('
    me im '+Level+' prayer');
          5 : Messege:= ('
    my prayer is '+Level);
          6 : Messege:= ('
    prayer = '+Level);
          7 : Messege:= (+Level+'
    prayer');
         End
        TypeSend(Messege);
        Result:= True;
       End


       If(GetChatMessage('
    range')) or (GetChatMessage('rangin')) or (GetChatMessage('ranging'))
       And
      (GetChatMessage('
    lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
       Begin
        WriteLn('
    '+ChatName+': '+Chat);
        Level:= IntToStr(GetSkillLevel('
    agility'));
        AutoResponce:= Random(5)+1;
         Case(AutoResponce) of
          0 : Messege:= ('
    level '+Level+' range here');
          1 : Messege:= (+Level);
          2 : Messege:= ('
    lvl '+Level+' range');
          3 : Messege:= (+Level+'
    here =/');
          4 : Messege:= ('
    me im '+Level+' rangin');
          5 : Messege:= ('
    my range is '+Level);
          6 : Messege:= ('
    ranging = '+Level);
          7 : Messege:= (+Level+'
    rangin');
         End
        TypeSend(Messege);
        Result:= True;
       End


       If(GetChatMessage('
    runecrafting')) or (GetChatMessage('rc')) or (GetChatMessage('rune crafting')) or (GetChatMessage('rune craftin'))
       And
      (GetChatMessage('
    lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
       Begin
        WriteLn('
    '+ChatName+': '+Chat);
        Level:= IntToStr(GetSkillLevel('
    runecrafting'));
        AutoResponce:= Random(5)+1;
         Case(AutoResponce) of
          0 : Messege:= ('
    level '+Level+' rc here');
          1 : Messege:= (+Level);
          2 : Messege:= ('
    lvl '+Level+' runecraft');
          3 : Messege:= (+Level+'
    here =/');
          4 : Messege:= ('
    me im '+Level+' runecrafting');
          5 : Messege:= ('
    my rc is '+Level);
          6 : Messege:= ('
    runecraftin = '+Level);
          7 : Messege:= (+Level+'
    rc');
         End
        TypeSend(Messege);
        Result:= True;
       End


       If(GetChatMessage('
    slayer')) or (GetChatMessage('slay'))
       And
      (GetChatMessage('
    lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
       Begin
        WriteLn('
    '+ChatName+': '+Chat);
        Level:= IntToStr(GetSkillLevel('
    slayer'));
        AutoResponce:= Random(5)+1;
         Case(AutoResponce) of
          0 : Messege:= ('
    level '+Level+' slayer here');
          1 : Messege:= (+Level);
          2 : Messege:= ('
    lvl '+Level+' slaying');
          3 : Messege:= (+Level+'
    here =/');
          4 : Messege:= ('
    me im '+Level+' slayer');
          5 : Messege:= ('
    my slayer is '+Level);
          6 : Messege:= ('
    slayer = '+Level);
          7 : Messege:= (+Level+'
    slayer');
         End
        TypeSend(Messege);
        Result:= True;
       End


       If(GetChatMessage('
    smithing')) or (GetChatMessage('smithin')) or (GetChatMessage('smith'))
       And
      (GetChatMessage('
    lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
       Begin
        WriteLn('
    '+ChatName+': '+Chat);
        Level:= IntToStr(GetSkillLevel('
    smithing'));
        AutoResponce:= Random(5)+1;
         Case(AutoResponce) of
          0 : Messege:= ('
    level '+Level+' smithing here');
          1 : Messege:= (+Level);
          2 : Messege:= ('
    lvl '+Level+' smithin');
          3 : Messege:= (+Level+'
    here =/');
          4 : Messege:= ('
    me im '+Level+' smith');
          5 : Messege:= ('
    my smithin is '+Level);
          6 : Messege:= ('
    smithing = '+Level);
          7 : Messege:= (+Level+'
    smithn');
         End
        TypeSend(Messege);
        Result:= True;
       End


       If(GetChatMessage('
    thieving')) or (GetChatMessage('thievin'))
       And
      (GetChatMessage('
    lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
       Begin
        WriteLn('
    '+ChatName+': '+Chat);
        Level:= IntToStr(GetSkillLevel('
    thieving'));
        AutoResponce:= Random(5)+1;
         Case(AutoResponce) of
          0 : Messege:= ('
    level '+Level+' thieving here');
          1 : Messege:= (+Level);
          2 : Messege:= ('
    lvl '+Level+' theiving');
          3 : Messege:= (+Level+'
    here =/');
          4 : Messege:= ('
    me im '+Level+' thieving');
          5 : Messege:= ('
    my thievin is '+Level);
          6 : Messege:= ('
    thieving = '+Level);
          7 : Messege:= (+Level+'
    thieving');
         End
        TypeSend(Messege);
        Result:= True;
       End


       If(GetChatMessage('
    woodcutting')) or (GetChatMessage('woodcuttin')) or (GetChatMessage('wc')) or (GetChatMessage('wood cutting')) or (GetChatMessage('wood cuttin'))
       And
      (GetChatMessage('
    lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
       Begin
        WriteLn('
    '+ChatName+': '+Chat);
        Level:= IntToStr(GetSkillLevel('
    woodcutting'));
        AutoResponce:= Random(5)+1;
         Case(AutoResponce) of
          0 : Messege:= ('
    level '+Level+' wc here');
          1 : Messege:= (+Level);
          2 : Messege:= ('
    lvl '+Level+' wc');
          3 : Messege:= (+Level+'
    here =/');
          4 : Messege:= ('
    me im '+Level+' woodcutting');
          5 : Messege:= ('
    my wood cuttin is '+Level);
          6 : Messege:= ('
    wc = '+Level);
          7 : Messege:= (+Level+'
    wc');
         End
        TypeSend(Messege);
        Result:= True;
       End


       If(GetChatMessage('
    wat')) or (GetChatMessage('what')) or (GetChatMessage('wot')) or (GetChatMessage('wut')) or (GetChatMessage('watcha'))
       And
      (GetChatMessage('
    doing')) or (GetChatMessage('doin'))then
        Begin
        WriteLv('
    '+ChatName+': '+Chat);
        AutoResponce:= Random(9)+1;
         Case (AutoResponce) of
          0 : Messege:= ('
    nuttin');
          1 : Messege:= ('
    nothing');
          2 : Messege:= ('
    nothin');
          3 : Messege:= ('
    eh, nothin');
          4 : Messege:= ('
    being bored');
          5 : Messege:= ('
    bored');
          6 : Messege:= ('
    bored, you?');
          7 : Messege:= ('
    chillin');
          8 : Messege:= ('
    chilling, you?');
          9 : Messege:= ('
    chilling');
          10 : Messege:= ('
    playing runescape haha');
          11 : Messege:= ('
    nothin, im sick =[');
          12 : Messege:= ('
    talkin to you =]');
         End
        TypeSend(Messege);
        Result:= True;
      End


      If(GetChatMessage('
    hey')) or (GetChatMessage('hello')) or (GetChatMessage('hi')) or (GetChatMessage('wats up')) or (GetChatMessage('whats up')) or (GetChatMessage('yo'))then
       Begin
       WriteLn('
    '+ChatName+': '+Chat);
       RandomReply:= random(9)+1;
        Case RandomReply of
          0 : Messege:= ('
    hello');
          1 : Messege:= ('
    hi');
          2 : Messege:= ('
    hey');
          3 : Messege:= ('
    sup dude');
          4 : Messege:= ('
    watsup');
          5 : Messege:= ('
    yo bro');
          6 : Messege:= ('
    hi');
          7 : Messege:= ('
    hey man');
          8 : Messege:= ('
    *waves*');
          9 : Messege:= ('
    how ya doin');
          10 : Messege:= ('
    good day');
          11 : Messege:= ('
    wat it dooooo');
          12 : Messege:= ('
    helloooooo');
          13 : Messege:= ('
    heya');
          14 : Messege:= ('
    hiiyaaa');
          15 : Messege:= ('
    heeeyyyyy');
        End
       TypeSend(Messege);
       Result:= True;
      End

    End;



    begin
    SetupSRL;
    DeclarePlayers;
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    repeat
    AutoTalker: Boolean;
    If(not(loggedin)) then
    loginplayer;
    AutoTalker: Boolean;
    activateclient;
    attack;
    AutoTalker: Boolean;
    until (a = monsterstokill)
    progressreport;
    end.


    I have no clue why its all pink but its not like that in my script. So just ignore it plz. Thank you for the help.

  2. #2
    Join Date
    Nov 2006
    Posts
    189
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well, first off, I want to thank you for using my AutoResponder. Next, I want to say that it's all pink because I made a few typo's in it. Now, there are two ways that you can use this in your script.

    1) Put it everywhere all through your procedures.

    Example:

    Procedure Fight;
    Begin
    FindSymbolTol(x,y,'quest');
    AutoTalker;
    Mouse,x,y,0,0,true);
    AutoTalker;
    End;

    ^ You can do this anywhere that you have free space.

    2) Call it up in your main loop.

    Example:

    //Main Loop
    Begin
    SetupSRL;
    DeclarePlayers;
    Repeat
    LoginPlayer;
    Fight;
    While (Fight; and any other stuff you are doing) <------ This is where you call it up.
    AutoTalker;
    Until(False or whenever you want it to stop)
    End.


    Hope that helped.


    PS - You need 2 other procedures to use my AutoTalker. REDOWNLOAD my AutoTalker because I fixed the typos that I stated above. Also, Download the other 2 procedures and put them ABOVE my AutoTalker function in your script.

    Once again I hope that helped!

    - Da Der Der
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig

  3. #3
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    Quote Originally Posted by Da Der Der View Post
    Well, first off, I want to thank you for using my AutoResponder.
    Your Autoresponder?


    Nah, nvm.
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  4. #4
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Thanx For The Help.

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

    Default

    nice scripts,going to test it

  6. #6
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    lol?

    Code:
    12-12-2006, 04:12 PM
    Mhm, GL using this script buddy lol.

  7. #7
    Join Date
    Sep 2007
    Posts
    33
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    These Autos Are Brilliant Its Just Like They Have A Mind Of There Own

  8. #8
    Join Date
    Jun 2007
    Location
    Minnesota
    Posts
    773
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Z0mg.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. THE new autofighter NX
    By HayHay89 in forum News and General
    Replies: 13
    Last Post: 08-10-2008, 03:11 AM
  2. Autofighter
    By mistak in forum OSR Help
    Replies: 5
    Last Post: 05-17-2008, 05:10 PM
  3. autofighter
    By Bonfield in forum RS3 Outdated / Broken Scripts
    Replies: 43
    Last Post: 08-27-2007, 10:04 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
  •