Results 1 to 8 of 8

Thread: MY second script

  1. #1
    Join Date
    Oct 2006
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default MY second script

    It is SRl and I need lots of help on it. An help is aprecated

    SCAR Code:
    program WillowCutter;
    {.include Osi.txt}
    {.include srl/srl.scar}
    {.include srl/srl/skill/Woodcutting.scar}
    //=*=*=*= Colors =*=*=*=\\
    const
    WillowLog1=2052699; //try to pick you own color of the logs if it dosen't drop the logs
    WillowLog2=4089712; //The same as above
    wc=('20');//         what level you are
    str=('5');//         what level you are
    att=('5');//         what level you are
    def=('5');//         what level you are
    howmanytocut=   ;//how many you want

    procedure DeclarePlayers;
     Begin                         {dont touch this!}
        HowManyPlayers := 1;
        NumberOfPlayers(HowManyPlayers);    // Sets the Players Array Length;
        CurrentPlayer := 0;                 // CeurrentPlayer = Array Index
                                  {just touch this!}
    Players[0].Name := '';        //Username
    Players[0].Pass := '';           //Password
    Players[0].Nick := '';             //3 or 4 letters username
    Players[0].Active := True;

    Players[1].Name:='';
    Players[1].Pass:='';
    Players[1].Nick:='';
    Players[1].Active := false;

    Players[2].Name:='';
    Players[2].Pass:='';
    Players[2].Nick:='';
    Players[2].Active :=false;

    Players[3].Name:='';
    Players[3].Pass:='';
    Players[3].Nick:='';
    Players[3].Active :=false;

    Players[4].Name:='';
    Players[4].Pass:='';
    Players[4].Nick:='';
    Players[4].Active :=false;

    Players[5].Name:='';
    Players[5].Pass:='';
    Players[5].Nick:='';
    Players[5].Active :=false;
    end;


    procedure login;
    begin
    loginplayer;
    end;

    procedure CutWillow;
    begin
    if
    findcolor(x,y,923929,50,42,455,281)
    or
    findcolor(x,y,2308414,50,42,455,281)
    then
    wait(random(50)+500)
    MoveMouseSmooth(x,y)
    wait(random(100)+200)
    clickmouse(x,y,false)
    wait(random(200)+500)
    if findcolor(x,y,16776960,40,70,427,275)
    then movemousesmooth(x,y)
    clickmouse(x,y,true)
    wait(random(200)+2500)
    howmanycut= howmanycut+1
    end;

     procedure hatetherandoms;
    begin
    FindNormalRandoms;
       if (FindTalk) then
       begin
       Writeln('talking or found a talk');
       randomfound:=randomfound+1

       if (FindMime) then
       begin
       writeln('lucky you, a mime!');
       randomfound:=randomfound+1

       if (FindMaze) then
       begin
       writeln('found maze');
       randomfound:=randomfound+1

       if (SolveFrog) then
       begin
       writeln('solved frog');
       randomfound:=randomfound+1

       if (Findmod)then
       begin
       writeln('its the mod!,AHHH!');
       typesend('Hey Mod ')
       mods:=mods+1

       if (solvepinball)then
       begin
       writeln('solved a pinball...');
       randomfound:=randomfound+1

       if (findforester) then
       begin
       writeln('found forester');
       randomfound:=randomfound+1

       if(findscaperune)then
       begin
       createscaperune;
       writeln('found scape rune');
       randomfound:=randomfound+1
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;

    procedure proggy;
    begin

    Writeln('Working for ' + (timerunning));
    Writeln('found,traded,declined and chatted ' + inttostr(traded));
    Writeln('found passes, solved or did stuff to ' + inttostr(randomfound));
    Writeln('Other stuff: mods found=' + inttostr (mods);
    end;
    procedure hello;
    begin
    if inchat('hello')or
       inchat('hi')or
       inchat('hey')or
       inchat('yo')or
       inchat(name)then
       typesend('hey')
    end;

    procedure whatsup;
    begin
    if inchat('whats up')or
       inchat('whats new')or
       inchat('whats the 411')then
       typesend('nothing')
    end;

    procedure friends;
    begin
    if inchat('friends')or
       inchat('frends')or
       inchat('buddys')or
       inchat('add')or
       inchat('add me')then
       typesend('sorry,got lots of them')
    end;

    procedure talklvl;
    begin
    if inchat('str lvl')or
       inchat('str level')or
       inchat('stre lvl')or
       inchat('strength lvl')or
       inchat('strength level')then
       typesend(str)

    if inchat('att lvl')or
       inchat('att level')or
       inchat('atack lvl')or
       inchat('atack level')or
       inchat('attack lvl')or
       inchat('attack level')then
       typesend(att)

    if inchat('def lvl')or
       inchat('def level')or
       inchat('defenc lvl')or
       inchat('defence level')or
       inchat('defenc level')or
       inchat('defence level')then
       typesend(def)

    If inchat('wc level')or
       inchat('woodcut lvl')or
       inchat('cut level')or
       inchat('Woodcutting level')or
       inchat('wc ')then
       typesend(wc)
    end;

    procedure hatenoobcallers;
    begin
    if inchat('noob')or
       inchat('noobie')or
       inchat('nub')or
       inchat('choob')or
       inchat('froobie')or
       inchat('choobie')or
       inchat('froob')or
       inchat('nubie')then
       typesend('so i dont care,i play it for a reason.')
    end;

    procedure nextplayer;
    If(Not(LoggedIn)) then
    loginplayer;
    end;

    procedure DropWillow;
    begin
    if findcolor(x,y,WillowLog1,574,214,730,458)
    then movemousesmooth(x,y)
    wait(random(100)+2000)
    Dropcolor(WillowLog1);
    dropcolor(WillowLog2);
    wait(random(200)+1000)
    end;

    procedure chattersetter;
    begin
    setchat('on',1)
    wait(430 + ((random)70)
    setchat('on',2)
    wait(430 + ((random)70)
    setchat('on',3)
    end;

    begin
    activateclient;
    setupsrl;
    cleardebug;
    proggyintro;
    login;
    chattersetter;
    srlrandomsreport;
    repeat
    hatenoobcallers;
    wizardbam;
    talklvl;
    hatetherandoms;
    whatsup;
    chattersetter;
    friends;
    hello;
    Findnormalrandoms;
    until(cut = Howmanytocut)
    if(cut = howmanytocut) then
    begin
    proggy;
    logout;
    TerminateScript;
    end;
    end.

  2. #2
    Join Date
    Jan 2007
    Location
    Toronto.
    Posts
    150
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Your probably getting this error because both SRL and OSI declare x,y.

    Code:
    Line 14: [Error] (973:1): Duplicate identifier 'x' in script.
    You can either remove the below from one of the includes or only use one include, SRL would be best as it is newer.

    SCAR Code:
    var
    x, y: Integer

  3. #3
    Join Date
    Oct 2006
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Here is it updated with my forms, but they don't seem to work. Nor does The Nick part work andhelp is apprecaited.


    SCAR Code:
    //////////////////////////////////////////////
    //                                          //
    //                                          //
    //     By Bobby                             //
    //                                          //
    //                                          //
    //////////////////////////////////////////////
    program WillowCutter;
    {.include srl/srl.scar}
    {.include srl/srl/skill/Woodcutting.scar}
    //=*=*=*= Colors =*=*=*=\\
    var howmany: integer; randomfound: integer;
      frmDesign : TForm;
      Label1 : TLabel;
      Label2 : TLabel;
      Label3 : TLabel;
      Edit3 : TEdit;
      Edit2 : TEdit;
      Edit1 : TEdit;
      Button1 : TButton;
      Username, Password,  Nick : String;

    const
    WillowLog1=2052699; //try to pick you own color of the logs if it dosen't drop the logs
    WillowLog2=4089712; //The same as above

    wc=('20'); //         what level you are
    str=('5');//         what level you are
    att=('5');//         what level you are
    def=('5');//         what level you are
    howmanytocut=89; //how many you want
    name=('Your name');// for antiban

    procedure DeclarePlayers;
     Begin                         {dont touch this!}
        HowManyPlayers := 1;
        NumberOfPlayers(HowManyPlayers);    // Sets the Players Array Length;
        CurrentPlayer := 0;                 // CeurrentPlayer = Array Index
                                  {just touch this!}
    Players[0].Name :=  Edit1.Text;;        //Username
    Players[0].Pass :=  Edit3.Text;;           //Password
    Players[0].Nick :=  Edit2.Text; ;             //3 or 4 letters username
    Players[0].Active := True;

    Players[1].Name:='';
    Players[1].Pass:='';
    Players[1].Nick:='';
    Players[1].Active := false;

    Players[2].Name:='';
    Players[2].Pass:='';
    Players[2].Nick:='';
    Players[2].Active :=false;

    Players[3].Name:='';
    Players[3].Pass:='';
    Players[3].Nick:='';
    Players[3].Active :=false;

    Players[4].Name:='';
    Players[4].Pass:='';
    Players[4].Nick:='';
    Players[4].Active :=false;

    Players[5].Name:='';
    Players[5].Pass:='';
    Players[5].Nick:='';
    Players[5].Active :=false;
    end;

    procedure ButtonClick(sender: TObject);
    begin
      WriteLn('You have clicked the button');
      frmDesign.Caption:= frmDesign.Caption + '.';
      frmDesign.ModalResult:= mrOk;
    end;


    procedure InitForm;
    begin
      frmDesign := CreateForm;
      frmDesign.Left := 250;
      frmDesign.Top := 114;
      frmDesign.Width := 263;
      frmDesign.Height := 180;
      frmDesign.Caption := 'User and Pass Saver';
      frmDesign.Color := clBtnFace;
      frmDesign.Font.Color := clWindowText;
      frmDesign.Font.Height := -11;
      frmDesign.Font.Name := 'MS Sans Serif';
      frmDesign.Font.Style := [];
      frmDesign.Visible := False;
      frmDesign.PixelsPerInch := 96;
      Label1 := TLabel.Create(frmDesign);
      Label1.Parent := frmDesign;
      Label1.Left := 32;
      Label1.Top := 40;
      Label1.Width := 51;
      Label1.Height := 13;
      Label1.Caption := 'Username:';
      Label2 := TLabel.Create(frmDesign);
      Label2.Parent := frmDesign;
      Label2.Left := 33;
      Label2.Top := 65;
      Label2.Width := 49;
      Label2.Height := 13;
      Label2.Caption := 'Password:';
      Label2 := TLabel.Create(frmDesign);
      Label3 := TLabel.Create(frmDesign);
      Label3.Parent := frmDesign;
      Label3.Left := 33;
      Label3.Top := 90;
      Label3.Width := 49;
      Label3.Height := 13;
      Label3.Caption := 'Nick:';
      Edit1 := TEdit.Create(frmDesign);
      Edit1.Parent := frmDesign;
      Edit1.Left := 93;
      Edit1.Top := 37;
      Edit1.Width := 121;
      Edit1.Height := 21;
      Edit1.TabOrder := 8;

      Edit2 := TEdit.Create(frmDesign);
      Edit2.Parent := frmDesign;
      Edit2.Left := 93;
      Edit2.Top := 62;
      Edit2.Width := 121;
      Edit2.Height := 21;
      Edit2.TabOrder := 9;
      Edit2 := TEdit.Create(frmDesign);

      Edit3 := TEdit.Create(frmDesign);
      Edit3.Parent := frmDesign;
      Edit3.Left := 93;
      Edit3.Top :=  90;
      Edit3.Width := 121;
      Edit3.Height := 21;
      Edit3.TabOrder := 9;
      Edit2 := TEdit.Create(frmDesign);

      Button1 := TButton.Create(frmDesign);
      Button1.OnClick := @ButtonClick;
      Button1.Parent := frmDesign;
      Button1.Left := 79;
      Button1.Top := 115;
      Button1.Width := 75;
      Button1.Height := 25;
      Button1.Caption := 'Start!';
      Button1.TabOrder := 10;
    end;

    procedure SafeInitForm;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('InitForm', v);
    end;

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

    procedure SafeShowFormModal;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    end;

    procedure SetupAll;
    begin
      Username := Edit1.Text;
      Password := Edit3.Text;
      Nick := Edit2.Text;
    end;

    procedure Showit;
    begin
      SafeInitForm;
      SafeShowFormModal;
      SetupAll;
      WriteLn('Username = ' + Username);
      Writeln('Password = ' + Password);
      Writeln('Nick = ' + Nick)    ;
    end;

    procedure login;
    begin
    loginplayer;
    end;

    procedure CutWillow;
    begin
    if
    findcolor(x,y,923929,50,42,455,281)
    or
    findcolor(x,y,2308414,50,42,455,281)
    then
    wait(random(50)+500)
    MoveMouseSmooth(x,y)
    wait(random(100)+200)
    clickmouse(x,y,false)
    wait(random(200)+500)
    if findcolor(x,y,16776960,40,70,427,275)
    then movemousesmooth(x,y)
    clickmouse(x,y,true)
    wait(random(200)+2500)
    howmany:= howmanytocut+1;
    end;

     procedure hatetherandoms;
    begin
    FindNormalRandoms;
       if (FindTalk) then
       begin
       Writeln('talking or found a talk');
       randomfound:=randomfound+1

       if (FindMime) then
       begin
       writeln('lucky you, a mime!');
       randomfound:=randomfound+1

       if (FindMaze) then
       begin
       writeln('found maze');
       randomfound:=randomfound+1

       if (SolveFrog) then
       begin
       writeln('solved frog');
       randomfound:=randomfound+1

       if (Findmod)then
       begin
       writeln('its the mod!,AHHH!');
       typesend('Hey Mod ')
       mods:=mods+1

       if (solvepinball)then
       begin
       writeln('solved a pinball...');
       randomfound:=randomfound+1

       if (findforester) then
       begin
       writeln('found forester');
       randomfound:=randomfound+1

       if(findscaperune)then
       begin
       createscaperune;
       writeln('found scape rune');
       randomfound:=randomfound+1
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;

    procedure proggy;
    begin

    Writeln('Working for ' + (timerunning));
    Writeln('Randoms found= ' + inttostr(randomfound));
    Writeln('Other stuff: mods found=' + inttostr (mods));
    end;
    procedure hello;
    begin
    if inchat('hello')or
       inchat('hi')or
       inchat('hey')or
       inchat('yo')or
       inchat(name)then
       typesend('hey')
    end;

    procedure whatsup;
    begin
    if inchat('whats up')or
       inchat('whats new')or
       inchat('whats the 411')then
       typesend('nothing')
    end;

    procedure friends;
    begin
    if inchat('friends')or
       inchat('frends')or
       inchat('buddys')or
       inchat('add')or
       inchat('add me')then
       typesend('sorry,got lots of them')
    end;

    procedure talklvl;
    begin
    if inchat('str lvl')or
       inchat('str level')or
       inchat('stre lvl')or
       inchat('strength lvl')or
       inchat('strength level')then
       typesend(str)

    if inchat('att lvl')or
       inchat('att level')or
       inchat('atack lvl')or
       inchat('atack level')or
       inchat('attack lvl')or
       inchat('attack level')then
       typesend(att)

    if inchat('def lvl')or
       inchat('def level')or
       inchat('defenc lvl')or
       inchat('defence level')or
       inchat('defenc level')or
       inchat('defence level')then
       typesend(def)

    If inchat('wc level')or
       inchat('woodcut lvl')or
       inchat('cut level')or
       inchat('Woodcutting level')or
       inchat('wc ')then
       typesend(wc)
    end;

    procedure hatenoobcallers;
    begin
    if inchat('noob')or
       inchat('noobie')or
       inchat('nub')or
       inchat('choob')or
       inchat('froobie')or
       inchat('choobie')or
       inchat('froob')or
       inchat('nubie')then
       typesend('so i dont care,i play it for a reason.')
    end;

    procedure thenextplayer;
    Begin
    If(Not(LoggedIn)) then
    loginplayer;
    end;

    procedure dropit;
    begin
      dropto(2, 28); // change the 2 to 3 if you have two axes or 24 if you have 3 axes
    end;

    begin
    activateclient;
    setupsrl;
    cleardebug;
    proggy;
    login;
    srlrandomsreport;
    repeat
    hatenoobcallers;
    talklvl;
    hatetherandoms;
    whatsup;
    friends;
    hello;
    Findnormalrandoms;
    until(howmanytocut=howmanytocut)
    if (howmanytocut=howmanytocut) then
    begin
    proggy;
    logout;
    TerminateScript;
    end;
    end.

  4. #4
    Join Date
    Jan 2007
    Location
    Toronto.
    Posts
    150
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Add the ShowIt; procedure to the start of your main loop:

    SCAR Code:
    begin
    activateclient;
    setupsrl;
    Showit; // Added the procedure to make the form show. ;O)
    cleardebug;
    proggy;
    login;
    srlrandomsreport;
    repeat
    hatenoobcallers;
    talklvl;
    hatetherandoms;
    whatsup;
    friends;
    hello;
    Findnormalrandoms;
    until(howmanytocut=howmanytocut)
    if (howmanytocut=howmanytocut) then
    begin
    proggy;
    logout;
    TerminateScript;
    end;
    end.

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

    Default

    My Rs acounts got banned, Can someone please please please test on Runescape?

  6. #6
    Join Date
    Oct 2006
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    newest update:

    SCAR Code:
    //////////////////////////////////////////////
    //                                          //
    //                                          //
    //     By Bobby                             //
    //                                          //
    //                                          //
    //////////////////////////////////////////////
    program WillowCutter;
    {.include srl/srl.scar}
    {.include srl/srl/skill/Woodcutting.scar}
    //=*=*=*= Colors =*=*=*=\\
    var howmany: integer; randomfound: integer;  prog : integer;
      frmDesign : TForm;
      Label1 : TLabel;
      Label2 : TLabel;
      Label3 : TLabel;
      Edit3 : TEdit;
      Edit2 : TEdit;
      Edit1 : TEdit;
      Button1 : TButton;
      Username, Password,  Nick : String;

    const
    WillowLog1=2052699; //try to pick you own color of the logs if it dosen't drop the logs
    WillowLog2=4089712; //The same as above

    wc=('20'); //         what level you are
    str=('5');//         what level you are
    att=('5');//         what level you are
    def=('5');//         what level you are
    howmanytocut=10; //how many you want
    name=('Your name');// for antiban

    procedure DeclarePlayers;
     Begin                         {dont touch this!}
        HowManyPlayers := 1;
        NumberOfPlayers(HowManyPlayers);    // Sets the Players Array Length;
        CurrentPlayer := 0;                 // CeurrentPlayer = Array Index
                                  {just touch this!}
    Players[0].Name :=  Edit1.Text;;        //Username
    Players[0].Pass :=  Edit3.Text;;           //Password
    Players[0].Nick :=  Edit2.Text; ;             //3 or 4 letters username
    Players[0].Active := True;

    Players[1].Name:='';
    Players[1].Pass:='';
    Players[1].Nick:='';
    Players[1].Active := false;

    Players[2].Name:='';
    Players[2].Pass:='';
    Players[2].Nick:='';
    Players[2].Active :=false;

    Players[3].Name:='';
    Players[3].Pass:='';
    Players[3].Nick:='';
    Players[3].Active :=false;

    Players[4].Name:='';
    Players[4].Pass:='';
    Players[4].Nick:='';
    Players[4].Active :=false;

    Players[5].Name:='';
    Players[5].Pass:='';
    Players[5].Nick:='';
    Players[5].Active :=false;
    end;

    procedure ButtonClick(sender: TObject);
    begin
      WriteLn('You have clicked the button');
      frmDesign.Caption:= frmDesign.Caption + '.';
      frmDesign.ModalResult:= mrOk;
    end;


    procedure InitForm;
    begin
      frmDesign := CreateForm;
      frmDesign.Left := 250;
      frmDesign.Top := 114;
      frmDesign.Width := 263;
      frmDesign.Height := 180;
      frmDesign.Caption := 'User and Pass Saver';
      frmDesign.Color := clBtnFace;
      frmDesign.Font.Color := clWindowText;
      frmDesign.Font.Height := -11;
      frmDesign.Font.Name := 'MS Sans Serif';
      frmDesign.Font.Style := [];
      frmDesign.Visible := False;
      frmDesign.PixelsPerInch := 96;
      Label1 := TLabel.Create(frmDesign);
      Label1.Parent := frmDesign;
      Label1.Left := 32;
      Label1.Top := 40;
      Label1.Width := 51;
      Label1.Height := 13;
      Label1.Caption := 'Username:';
      Label2 := TLabel.Create(frmDesign);
      Label2.Parent := frmDesign;
      Label2.Left := 33;
      Label2.Top := 65;
      Label2.Width := 49;
      Label2.Height := 13;
      Label2.Caption := 'Password:';
      Label2 := TLabel.Create(frmDesign);
      Label3 := TLabel.Create(frmDesign);
      Label3.Parent := frmDesign;
      Label3.Left := 33;
      Label3.Top := 90;
      Label3.Width := 49;
      Label3.Height := 13;
      Label3.Caption := 'Nick:';
      Edit1 := TEdit.Create(frmDesign);
      Edit1.Parent := frmDesign;
      Edit1.Left := 93;
      Edit1.Top := 37;
      Edit1.Width := 121;
      Edit1.Height := 21;
      Edit1.TabOrder := 8;

      Edit2 := TEdit.Create(frmDesign);
      Edit2.Parent := frmDesign;
      Edit2.Left := 93;
      Edit2.Top := 62;
      Edit2.Width := 121;
      Edit2.Height := 21;
      Edit2.TabOrder := 9;


      Edit3 := TEdit.Create(frmDesign);
      Edit3.Parent := frmDesign;
      Edit3.Left := 93;
      Edit3.Top :=  90;
      Edit3.Width := 121;
      Edit3.Height := 21;
      Edit3.TabOrder := 9;



      Button1 := TButton.Create(frmDesign);
      Button1.OnClick := @ButtonClick;
      Button1.Parent := frmDesign;
      Button1.Left := 79;
      Button1.Top := 115;
      Button1.Width := 75;
      Button1.Height := 25;
      Button1.Caption := 'Start!';
      Button1.TabOrder := 10;
    end;

    procedure SafeInitForm;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('InitForm', v);
    end;

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

    procedure SafeShowFormModal;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    end;

    procedure SetupAll;
    begin
      Username := Edit1.Text;
      Password := Edit3.Text;
      Nick := Edit2.Text;
    end;

    procedure Showit;
    begin
      SafeInitForm;
      SafeShowFormModal;
      SetupAll;
    end;

    procedure login;
    begin
    loginplayer;
    end;

    procedure CutWillow;
    begin
    if
    findcolor(x,y,923929,50,42,455,281)
    or
    findcolor(x,y,2308414,50,42,455,281)
    then
    wait(random(50)+500)
    MoveMouseSmooth(x,y)
    wait(random(100)+200)
    clickmouse(x,y,false)
    wait(random(200)+500)
    if findcolor(x,y,16776960,40,70,427,275)
    then movemousesmooth(x,y)
    clickmouse(x,y,true)
    wait(random(200)+2500)
    howmany:= howmanytocut+1;
    end;

     procedure hatetherandoms;
    begin
    FindNormalRandoms;
       if (FindTalk) then
       begin
       Writeln('talking or found a talk');
       randomfound:=randomfound+1

       if (FindMime) then
       begin
       writeln('lucky you, a mime!');
       randomfound:=randomfound+1

       if (FindMaze) then
       begin
       writeln('found maze');
       randomfound:=randomfound+1

       if (SolveFrog) then
       begin
       writeln('solved frog');
       randomfound:=randomfound+1

       if (Findmod)then
       begin
       writeln('its the mod!,AHHH!');
       typesend('Hey Mod ')
       mods:=mods+1

       if (solvepinball)then
       begin
       writeln('solved a pinball...');
       randomfound:=randomfound+1

       if (findforester) then
       begin
       writeln('found forester');
       randomfound:=randomfound+1

       if(findscaperune)then
       begin
       createscaperune;
       writeln('found scape rune');
       randomfound:=randomfound+1
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;
    end;

    procedure proggy;
    begin
    wait (10000)
    Writeln('Working for ' + (timerunning));
    Writeln('Randoms found= ' + inttostr(randomfound));
    Writeln('Other stuff: mods found=' + inttostr (mods));
    WriteLn('Username = ' + Username);
    Writeln('Password = ' + Password);
    Writeln('Nick = ' + Nick)    ;
    repeat
    wait (10000)
    until howmany=howmanytocut
    end;

    procedure hello;
    begin
    if inchat('hello')or
       inchat('hi')or
       inchat('hey')or
       inchat('yo')or
       inchat(name)then
       typesend('hey')
    end;

    procedure whatsup;
    begin
    if inchat('whats up')or
       inchat('whats new')or
       inchat('whats the 411')then
       typesend('nothing')
    end;

    procedure friends;
    begin
    if inchat('friends')or
       inchat('frends')or
       inchat('buddys')or
       inchat('add')or
       inchat('add me')then
       typesend('sorry,got lots of them')
    end;

    procedure talklvl;
    begin
    if inchat('str lvl')or
       inchat('str level')or
       inchat('stre lvl')or
       inchat('strength lvl')or
       inchat('strength level')then
       typesend(str)

    if inchat('att lvl')or
       inchat('att level')or
       inchat('atack lvl')or
       inchat('atack level')or
       inchat('attack lvl')or
       inchat('attack level')then
       typesend(att)

    if inchat('def lvl')or
       inchat('def level')or
       inchat('defenc lvl')or
       inchat('defence level')or
       inchat('defenc level')or
       inchat('defence level')then
       typesend(def)

    If inchat('wc level')or
       inchat('woodcut lvl')or
       inchat('cut level')or
       inchat('Woodcutting level')or
       inchat('wc ')then
       typesend(wc)
    end;

    procedure hatenoobcallers;
    begin
    if inchat('noob')or
       inchat('noobie')or
       inchat('nub')or
       inchat('choob')or
       inchat('froobie')or
       inchat('choobie')or
       inchat('froob')or
       inchat('nubie')then
       typesend('so i dont care,i play it for a reason.')
    end;

    procedure thenextplayer;
    Begin
    If(Not(LoggedIn)) then
    loginplayer;
    end;

    procedure dropit;
    begin
      dropto(2, 28); // change the 2 to 3 if you have two axes or 24 if you have 3 axes
    end;

    begin
    activateclient;
    setupsrl;
    Showit;
    cleardebug;
    proggy;
    login;
    srlrandomsreport;
    repeat
    hatenoobcallers;
    talklvl;
    hatetherandoms;
    whatsup;
    friends;
    hello;
    Findnormalrandoms;
    until(howmanytocut=howmanytocut)
    if (howmanytocut=howmanytocut) then
    begin
    proggy;
    logout;
    TerminateScript;
    end;
    end.

  7. #7
    Join Date
    Oct 2006
    Posts
    702
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i can tell you one thing just looking at it. use mouse(x,y,color,color,4,4,true). NEVER use movemosue and clickmouse -.-
    "For it is not what goes into your mouth that will defile you; rather, it is what comes out of your mouth that defiles you." - Jesus of Nazareth

  8. #8
    Join Date
    Oct 2006
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thank you.

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
  •