Results 1 to 9 of 9

Thread: well first script

  1. #1
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default well first script

    well i have been trying.... to write my first script one that i may apply for members with i just need over all help with it fix errors and help me with dtms and walking ect heres the script so far can you please tell me what to change and how to fix the line 1 error well heres the script....

    SCAR Code:
    program Seers_Yew_Cutter;
    {.include SRl/SRl.scar}
    {.include SRL/SRL/Skill/Woodcutting.scar}


    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz Delcare Players //////////////////
    /////////////////////////////////////////////////////////////////////

    procedure DeclarePlayers;
    begin

      HowManyPlayers :=1;
      NumberOfPlayers (HowManyPlayers);
      CurrentPlayer :=0;
     
       Players[0].Name := '';
       Players[0].Pass := '';
       Players[0].Nick := '';
       Players[0].Active := True;
       Players[0].Integers[0]:= 100; //Loads to Do;
       
       Players[1].Name := '';
       Players[1].Pass := '';
       Players[1].Nick := '';
       Players[1].Active := True;
       Players[1].Integers[0]:= 100; //Loads to Do;
    end;

    var x, y, YewNum, Banke, Maples: integer;

    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz AntiBan //////////////////////////
    /////////////////////////////////////////////////////////////////////

     Procedure AntiBans;
         Begin
         Case Random (60) of
           0: HoverSkill('woodcutting', false);
           1: DoEmote(1 + Random(20));
           2: AlmostLogout;
           3: BoredHuman;
           4: RandomMovement;
           5: PickUpMouse;
           6: RandomRClick;
           end;
     end;
         
         
    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz randoms //////////////////////////
    /////////////////////////////////////////////////////////////////////

    Procedure Randoms;
      begin
          FindTalk;
          FindNormalRandoms;
          FindLamp('Woodcutting');
          FindEnt(x, y, true);
          SolvePinball;
    end;


    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz Ent//// //////////////////////////
    /////////////////////////////////////////////////////////////////////

    procedure EntFinder; //By Yohojo - edited by bobbo
    var
      EX, EY: integer;
      FX, FY: integer;
      SafeEntWait: LongInt;
    begin
      if (not (LoggedIn)) then
      Exit;
      begin
        Status('Ent Checking')
          if
          (FindObjCustom(EX, EY, ['Yew'], [4690821], 7)) then
        begin
          MMouse(EX, EY, 0, 0)
            if FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) then
          begin
            Status('Found Ent');
            MarkTime(SafeEntWait)
              repeat
              FTWait(5)
                FindNormalRandoms;
              if not (LoggedIn) then
                NextPlayer(False);
            until TimeFromMark(SafeEntWait) > 20000 + Random(5000);
          end;
        end;
      end;
    end;

    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz RandomTalk ///////////////////////
    /////////////////////////////////////////////////////////////////////

    procedure TalkSomeCome;
    var
     P: Integer;
    begin
     if (not(LoggedIn)) then
      Exit;
     p:=1+Random(35);
     if (p=4) then
     begin
      case Random(21) of
       0: TypeSend('hey all');
       1: TypeSend('sigh yews take so long to cut');
       2: TypeSend('hellooo people');
       3: TypeSend('hay');
       4: TypeSend(''+IntToStr(800+Random(1200))+' more');
       5: TypeSend('i should pic flax sooon');
       6: TypeSend('boring');
       7: TypeSend('boo!');
       8: TypeSend('_');
       9: TypeSend('booooooooring');
       10: TypeSend('yay');
       11: TypeSend('ouch');
       12: TypeSend('_');
       13: TypeSend('blah.');
       14: TypeSend('quiet');
       15: TypeSend('<(>_<)>---shothpark');
       16: TypeSend('_');
       17: TypeSend('_');
       18: TypeSend('<(^_^)>');
       19: TypeSend('_');
       20: TypeSend('argh a monster !');
      end;
     end;
    end;

    //[-jesus-]'s chooseclick
    Function ChooseClick: Integer;
        begin
         Case random(5) of
         0,1: begin
               Mouse(x, y, 4, 4, true);
               end;
         2,3,4: begin
               Mouse(x, y, 4, 4, false);
               ChooseOption('hop');
              end;
             end;
            end;

    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz ChopYew //////////////////////////
    /////////////////////////////////////////////////////////////////////
    procedure ChopYew;
     begin
     If (Not (LoggedIn)) then NextPlayer(false);
      begin
         MakeCompass ('S')
          SetAngle(True);
            repeat
             If FindObj(x, y 'Yew' ChooseColor, 6 then;
              ChooseClick
               Attempts := Attempts +1;
                If (Attempts >100) then
                 begin
                  Writeln ('could not find yews');
                   Attempts := 0;
                    Nexplayer(false)
                end;
                 Wait( 1500+random(1200));
                 Else
                 TalkingTo;
                Randoms;
               EntFinder;
              FindEnt(x, y, True);
             Wait (1333 +andom (2300));
            AntiBans
           EntFinder
          FindEnt (x, y, True);
         Randoms
       Until FindText (x, y, 'too full', SmallChars, 9 ,346, 279, 459) o (InvFull;
      end;
     end;



    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz Walk Tree ////////////////////////
    /////////////////////////////////////////////////////////////////////
    procedure WalkTrees;
    var
     B: integer;
    begin
     if (not(LoggedIn)) then
      Exit;
    MarkTime(ColorMark)
     B:=43;
     repeat
      B:=B+1;
    if(TimeFromMark(ColorMark)>10000) then Exit;
     until (FindColor(x, y, TreeSymb, MMX1, B, MMX2, B));
     Mouse(x+25+random(1), y-35, 1, 1, true);
     FFlag(2);
    end;
    end;

    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz Random Chat //////////////////////
    /////////////////////////////////////////////////////////////////////

    Procedure RandomChat;
    Var
     Text: String;
    Begin
     if (not(LoggedIn)) then
      Exit;
     A:=1+Random(32)
      If (A=9)Or(A=20) Then
     Begin
      Begin
       Case random(58) Of
        00: Text:='gah this is so boring';
        01: Text:='i bet ive got more yews then u';
        03: Text:='farming lvls?';
        04: Text:='im going for a million yews!';
        05: Text:='im goin for a billion yews ';
        06: Text:='gah i hate all the dumb noob lvl 3s';
        07: Text:='this is my flax field everyone leave';
        08: Text:='so much yews';
        09: Text:='selling yews in bank only 5000 haha each!';
        10: Text:='free YEWES!!! haha jk';
        11: Text:='ill kill any1 who steals my yews';
        12: Text:='maybe i should sell this yews now';
        13: Text:='maybe il sell yews later at the GE ';
        14: Text:='ur all noobs';
        15: Text:='boring.....';
        16: Text:='what times it there?';
        17: Text:='asdfghjk;';
        18: Text:='qwertyuiop[]';
        19: Text:='zxcvbnm,./';
        20: Text:='look @ my cards: []]]]]]]]]]]]]]]]]]';
        21: Text:='pick a card []]]]]]]]]]]]]]]]]]]]]]';
        22: Text:='im so sad my cat died today';
        23: Text:='my dog died today ';
        24: Text:='i got a pet dog today =)';
        25: Text:='i have a dog, how bout you?';
        26: Text:='i have a cat, how about you?';
        27: Text:='i got a pet cat today but it bit me lol';
        28: Text:='lol noob';
        29: Text:='i own all you';
        30: Text:='blahh so bored lol';
        31: Text:='press 111 if youo like pures';
        32: Text:='who likes wcing?';
        33: Text:='who likes kiing monsters?';
        34: Text:='why does this take so long';
        35: Text:='why doesnt jagex put a bank in the middle of here?';
        36: Text:='i want to do a minigame soon';
        37: Text:='-.- so bored';
        38: Text:='cutting yews is boring =(';
        39: Text:='Firefox is so awsome';
        40: Text:='i hate internet explorer';
        41: Text:='i hate windows';
        42: Text:='yall should use firefox';
        43: Text:='i hate internet explorer';
        44: Text:='linux is awsome';
        45: Text:='whos your fav band?';
        46: Text:='ipods are so cool';
        47: Text:='i wanna get an iphone there kewl';
        48: Text:='gahh i think my computer got viruses';
        49: Text:='im infected with yew madness';
        50: Text:='go awasas n33bs';
        51: Text:='lollolllll so bored';
        52: Text:='white:loading... please wait';
        53: Text:='white:connection lost... attempting to reestablish';
        54: Text:='nice legs';
        55: Text:='yews take so long';
        56: Text:='green:||||||||||||||';
        57: Text:='red:||||||||||||||';
       End;
      End;
      TypeSend(Text);
      Wait(50+Random(100));
     End;
    End;

    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz RandomP ///////////////////////
    /////////////////////////////////////////////////////////////////////

    Procedure RandomP;
    Var
     m: Integer;
    Begin
     If (Not(LoggedIn)) Then
      Exit;
     m:=MouseSpeed;
     MouseSpeed:=7+Random(2);
     Case Random(7) Of
      0: ;
      1: MMMouse(MSX1, MSY1, MSX2, MSY2);
      2: ;
      3: ;
      4: ;
      5: MMMouse(MIX1, MIY1, MIX2, MIY2);
      6: ;
     End;
     MouseSpeed:=m;
    End;


    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz Talking to ///////////////////////
    /////////////////////////////////////////////////////////////////////


    Procedure TalkingTo;
    Begin
     if (not(LoggedIn)) then
      Exit;
     A:=1+Random(7)
      If (A=3) Then
     Begin
      Case Random(11) Of
       0: RandomChat;
       1: RandomP;
       2: ;
       3: ;
       4: ;
       5: RandomChat;
       6: ;
       7: RandomP;
       8: ;
       8: RandomP;
      10: ;
      End;
     End;
    End;



    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz banking //////////////////////////
    /////////////////////////////////////////////////////////////////////
    procedure Banking;
    begin

    end;

    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz To bank //////////////////////////
    /////////////////////////////////////////////////////////////////////
    procedure WalkBank;
    begin
    If FindSymbol(x, y, 'altar') then//If it sees the altar in minimap
    begin                           //it will continue
    if(FindSymbolIn(x,y,'tree'))then
        Mouse(x,y,2,2,true); //clicks tree
        FFlag(2);       //waits until about 2 pixels away before continue
       wait(200+random(400)); //Not really needed, but doesn't hurt much
      if(findSymbol (x,y,'cook'))then//searches for cooking symbol
       mouse(x,y,2,2,true);          //click on the cook symbol
       FFlag(2);                //waits until 2 pixels away
       wait(250+random(400));   //250-650 ms wait time
      if(findSymbol (x,y,'bank'))then
       mouse(x,y,2,2,true);
       FFlag(2);
       else
       If (not(FindSymbol(x, y, 'altar') then;//if not finding the symbol
       Exit;                               //will exit the procedure
    end;
    end;
    begin

    end;

    /////////////////////////////////////////////////////////////////////
    ////////////////////////////Mainloop/////////////////////////////////
    /////////////////////////////////////////////////////////////////////

    procedure Setup;
     begin
      Setup SRL;
       DeclarePlayers;
       LoginPlayer;
    end;
    begin
      setup;
       Wait(900+Random(333));
        repeat
        WalkTrees;
        ChopYew;
        WalkTobank;
        Banking;
        until (Loads >= LoadsToDo) or (not LoggedIn)
        NextPlayer(True);
      until False;
        end;
       until (false)
    end.

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

    Default

    Just replace

    Procedure Randoms;
    begin
    FindNormalRandoms;
    end;


    (Sorry for a semi-useless post, just saying how he can improve on his random findings)


    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!

  3. #3
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok thanks people can on posting help please <(^_^)>

  4. #4
    Join Date
    Apr 2007
    Posts
    277
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Change:

    SCAR Code:
    procedure DeclarePlayers

    with:

    SCAR Code:
    procedure DeclarePlayers;

    Hoped that helped fix your line 1 error.
    Current Script: Al-Kharid Fighter and Banker
    Status : Just Started

  5. #5
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    SCAR Code:
    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz ChopYew //////////////////////////
    /////////////////////////////////////////////////////////////////////
    procedure ChopYew
     begin
     If (Not (LOggedIn)) then NextPlayer(false);
      begin
         MakeCompass ('S')
          HighestAngle
            repeat
             If FindObj (x, y 'Yew' ChooseColor, 6 then;
              ChooseClick
               Attempts := Attempts +1;
                If (Attempts >100) then
                 begin
                  Witeln ('could not find yews');
                   Attempts := 0;
                    Nexplayer(false)
                end;
                 Wait( 1500+random(1200));
                 Else
                 TalkingTo;
                Randoms;
               EntFinder;
              FindEnt(x, y, True);
             Wait (1333 +andom (2300));
            AntiBans
           EntFinder
          FindEnt (x, y, True);
         Randoms
       Until FindText (x, y, 'too full', SmallChars, 9 ,346, 279, 459) o (InvFull;
      end;
     end;

    Should be:

    SCAR Code:
    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz ChopYew //////////////////////////
    /////////////////////////////////////////////////////////////////////
    procedure ChopYew
     begin
     If (Not (LoggedIn)) then NextPlayer(false);
      begin
         MakeCompass ('S')
          HighestAngle
            repeat
             If FindObj (x, y 'Yew' ChooseColor, 6 then;
              ChooseClick
               Attempts := Attempts +1;
                If (Attempts >100) then
                 begin
                  Witeln ('could not find yews');
                   Attempts := 0;
                    Nexplayer(false)
                end;
                 Wait( 1500+random(1200));
                 Else
                 TalkingTo;
                Randoms;
               EntFinder;
              FindEnt(x, y, True);
             Wait (1333 +random (2300));
            AntiBans
           EntFinder
          FindEnt (x, y, True);
         Randoms
       Until FindText (x, y, 'too full', SmallChars, 9 ,346, 279, 459) or (InvFull);
      end;
     end;

    Changed the L0ggedin to Loggedin, (InvFull; to (InvFull);, also made an 'o' into 'or' and Fixed a 'andom' making it random.

    Also, there is a get black chat msg command.. not sure what it is, look it up in the wiki.

    Not sure if that helps either way... Good luck I know the trials of making a script.

    Nava2
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  6. #6
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks yer this keyboard misses letters when i press em il get a new V il put that on

    as i said before this is the FIRST script i have every made this is what i got so far

    (jesus has been helping me on msn he had to go so could i get anouther helper?

    piperacher35@hotmail.com)

    i got from trees to bank procedure done

    SCAR Code:
    procedure WalkBank;
    begin
    If FindSymbol(x, y, 'altar') then//If it sees the altar in minimap
    begin                           //it will continue
    if(FindSymbolIn(x,y,'tree'))then
        Mouse(x,y,2,2,true); //clicks tree
        FFlag(2);       //waits until about 2 pixels away before continue
       wait(200+random(400)); //Not really needed, but doesn't hurt much
      if(findSymbol (x,y,'cook'))then//searches for cooking symbol
       mouse(x,y,2,2,true);          //click on the cook symbol
       FFlag(2);                //waits until 2 pixels away
       wait(250+random(400));   //250-650 ms wait time
      if(findSymbol (x,y,'bank'))then
       mouse(x,y,2,2,true);
       FFlag(2);
       else
       If (not(FindSymbol(x, y, 'altar') then;//if not finding the symbol
       Exit;                               //will exit the procedure

    i know symble walking anit the best but thats all i got atm

  7. #7
    Join Date
    Sep 2007
    Location
    Pennsylvania
    Posts
    3,396
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program SeersYewCutter; //Title can't have spaces
    {.include SRl/SRl.scar}
    {.include SRL/SRL/Skill/Woodcutting.scar}


    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz Delcare Players //////////////////
    /////////////////////////////////////////////////////////////////////

    procedure DeclarePlayers; //semicolon
    begin

      HowManyPlayers :=1; //semicolon
      NumberOfPlayers (HowManyPlayers); //semicolon
      CurrentPlayer :=0; //semicolon

       Players[0].Name := '';
       Players[0].Pass := '';
       Players[0].Nick := '';
       Players[0].Active := True;
       Players[0].Integers[0]:= 100; //Loads to Do;

       Players[1].Name := '';
       Players[1].Pass := '';
       Players[1].Nick := '';
       Players[1].Active := True;
       Players[1].Integers[0]:= 100; //Loads to Do;
    end;

    var x, y, YewNum, Banke, Maples: integer;     //comma

    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz AntiBan //////////////////////////
    /////////////////////////////////////////////////////////////////////

     Procedure AntiBans;
         Begin
         Case Random (7) of      //you had 60, you want 7 though right? :p
           0: HoverSkill('woodcutting', false);
           1: DoEmote(1 + Random(20));
           2: AlmostLogout;
           3: BoredHuman;
           4: RandomMovement;
           5: PickUpMouse;
           6: RandomRClick;
           end;
     end;


    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz randoms //////////////////////////
    /////////////////////////////////////////////////////////////////////

    Procedure Randoms;
      begin
          FindTalk;
           //FindFastrandoms has been removed from SRL I think
          FindNormalRandoms;
          FindLamp('Woodcutting');
          FindEnt(x, y, true);
          SolvePinball;
    end;


    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz Ent//// //////////////////////////
    /////////////////////////////////////////////////////////////////////

    procedure EntFinder; //By Yohojo - edited by bobbo
    var
      EX, EY: integer;
      FX, FY: integer;
      SafeEntWait: LongInt;
    begin
      if (not (LoggedIn)) then
      Exit;
      begin
        Status('Ent Checking')
          if
          (FindObjCustom(EX, EY, ['Yew'], [4690821], 7)) then
        begin
          MMouse(EX, EY, 0, 0)
            if FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) then
          begin
            Status('Found Ent');
            MarkTime(SafeEntWait)
              repeat
              FTWait(5)
                FindNormalRandoms;
              if not (LoggedIn) then
                NextPlayer(False);
            until TimeFromMark(SafeEntWait) > 20000 + Random(5000);
          end;
        end;
      end;
    end;

    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz RandomTalk ///////////////////////
    /////////////////////////////////////////////////////////////////////

    procedure TalkSomeCome;
    var
     P: Integer;
    begin
     if (not(LoggedIn)) then
      Exit;
     p:=1+Random(35);
     if (p=4) then
     begin
      case Random(21) of
       0: TypeSend('hey all');
       1: TypeSend('sigh yews take so long to cut');
       2: TypeSend('hellooo people');
       3: TypeSend('hay');
       4: TypeSend(''+IntToStr(800+Random(1200))+' more');
       5: TypeSend('i should pic flax sooon');
       6: TypeSend('boring');
       7: TypeSend('boo!');
       8: TypeSend('boo!'); //this was blank, you can't leave it blank
       9: TypeSend('booooooooring');
       10: TypeSend('yay');
       11: TypeSend('ouch');
       12: TypeSend('ouch'); //this was blank
       13: TypeSend('blah.');
       14: TypeSend('quiet');
       15: TypeSend('<(>_<)>---shothpark');
       16: TypeSend('<(>_<)>---shothpark');      //this was blank
       17: TypeSend('<(>_<)>---shothpark');   //this was blank
       18: TypeSend('<(^_^)>');
       19: TypeSend('<(^_^)>');     //this was blank. And I don't think scar can type this since I think it cant use the shift key
       20: TypeSend('argh a monster !');
      end;
     end;
    end;


    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz ChopYew //////////////////////////
    /////////////////////////////////////////////////////////////////////
    procedure ChopYew; //semicolon
    var Attempts: integer; //have to declare attempts
     begin
     If (Not (LOggedIn)) then NextPlayer(false);
      begin
         MakeCompass ('S'); //semicolon
          SetAngle(true);  //HighestAngle is now SetAngle(true)
            repeat
             If FindObj (x, y, 'Yew', {ChooseColor}, 6) then //No semicolon, needed parentheses and a few commas + What is choosecolor?
              {ChooseClick;}       //semicolon //Whats chooseclick?
               Attempts := Attempts +1;
                If (Attempts >100) then
                 begin
                  Writeln ('could not find yews');
                   Attempts := 0;
                    Nextplayer(false); //semicolon
                    Wait( 1500+random(1200));
                 end
                 Else
                 begin //need a before if theres multiple stuff you want to do as else
                 {TalkingTo;} //Whats TalkingTo?
                Randoms;
               EntFinder;
              FindEnt(x, y, True);
             Wait (1333 +random (2300));
            AntiBans; //semicolon
           EntFinder; //semicolon
          FindEnt (x, y, True);
         Randoms; //semicolon
         end; //for the begin
       Until FindText (x, y, 'too full', SmallChars, 9 ,346, 279, 459) or (InvFull); //ending parentheses
      end;
     end;



    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz Walk Tree ////////////////////////
    /////////////////////////////////////////////////////////////////////
    procedure WalkTrees;
    var
     B, ColorMark: integer; //declare Colormark
    begin
     if (not(LoggedIn)) then
      Exit;
    MarkTime(ColorMark); //semicolon
     B:=43;
     repeat
      B:=B+1;
    if(TimeFromMark(ColorMark)>10000) then Exit;
     until{(FindColor(x, y, TreeSymb, MMX1, B, MMX2, B));}  //Whats Treesymb?
     Mouse(x+25+random(1), y-35, 1, 1, true);
     FFlag(2);
    end;
    //need only one end; there

    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz Random Chat //////////////////////
    /////////////////////////////////////////////////////////////////////

    Procedure RandomChat;
    Var
     A: integer; //declare A
     Text: String;
    Begin
     if (not(LoggedIn)) then
      Exit;
     A:=1+Random(32); //semicolon
      If (A=9)Or(A=20) Then
     Begin
      Begin
       Case random(58) Of
        00: Text:='gah this is so boring';
        01: Text:='i bet ive got more yews then u';
        03: Text:='farming lvls?';
        04: Text:='im going for a million yews!';
        05: Text:='im goin for a billion yews ';
        06: Text:='gah i hate all the dumb noob lvl 3s';
        07: Text:='this is my flax field everyone leave';
        08: Text:='so much yews';
        09: Text:='selling yews in bank only 5000 haha each!';
        10: Text:='free YEWES!!! haha jk';
        11: Text:='ill kill any1 who steals my yews';
        12: Text:='maybe i should sell this yews now';
        13: Text:='maybe il sell yews later at the GE ';
        14: Text:='ur all noobs';
        15: Text:='boring.....';
        16: Text:='what times it there?';
        17: Text:='asdfghjk;';
        18: Text:='qwertyuiop[]';
        19: Text:='zxcvbnm,./';
        20: Text:='look @ my cards: []]]]]]]]]]]]]]]]]]';
        21: Text:='pick a card []]]]]]]]]]]]]]]]]]]]]]';
        22: Text:='im so sad my cat died today';
        23: Text:='my dog died today ';
        24: Text:='i got a pet dog today =)';
        25: Text:='i have a dog, how bout you?';
        26: Text:='i have a cat, how about you?';
        27: Text:='i got a pet cat today but it bit me lol';
        28: Text:='lol noob';
        29: Text:='i own all you';
        30: Text:='blahh so bored lol';
        31: Text:='press 111 if youo like pures';
        32: Text:='who likes wcing?';
        33: Text:='who likes kiing monsters?';
        34: Text:='why does this take so long';
        35: Text:='why doesnt jagex put a bank in the middle of here?';
        36: Text:='i want to do a minigame soon';
        37: Text:='-.- so bored';
        38: Text:='cutting yews is boring =(';
        39: Text:='Firefox is so awsome';
        40: Text:='i hate internet explorer';
        41: Text:='i hate windows';
        42: Text:='yall should use firefox';
        43: Text:='i hate internet explorer';
        44: Text:='linux is awsome';
        45: Text:='whos your fav band?';
        46: Text:='ipods are so cool';
        47: Text:='i wanna get an iphone there kewl';
        48: Text:='gahh i think my computer got viruses';
        49: Text:='im infected with yew madness';
        50: Text:='go awasas n33bs';
        51: Text:='lollolllll so bored';
        52: Text:='white:loading... please wait';
        53: Text:='white:connection lost... attempting to reestablish';
        54: Text:='nice legs';
        55: Text:='yews take so long';
        56: Text:='green:||||||||||||||';
        57: Text:='red:||||||||||||||';
       End;
      End;
      TypeSend(Text);
      Wait(50+Random(100));
     End;
    End;

    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz RandomP ///////////////////////
    /////////////////////////////////////////////////////////////////////

    Procedure RandomP;
    Var
     m: Integer;
    Begin
     If (Not(LoggedIn)) Then
      Exit;
     m:=MouseSpeed;
     MouseSpeed:=7+Random(2);
     {Case Random(7) Of               //fill in the blanks
      0: ;
      1: MMMouse(MSX1, MSY1, MSX2, MSY2);
      2: ;
      3: ;
      4: ;
      5: MMMouse(MIX1, MIY1, MIX2, MIY2);
      6: ;
     End; }

     MouseSpeed:=m;
    End;


    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz Talking to ///////////////////////
    /////////////////////////////////////////////////////////////////////


    Procedure TalkingTo;
    var A: integer; //declare A
    Begin
     if (not(LoggedIn)) then
      Exit;
     A:=1+Random(7); //semicolon
      If (A=3) Then
     Begin                      //fill in the blanks
     { Case Random(11) Of
       0: RandomChat;
       1: RandomP;
       2: ;
       3: ;
       4: ;
       5: RandomChat;
       6: ;
       7: RandomP;
       8: ;
       8: RandomP;
      10: ;
      End;   }

     End;
    End;



    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz banking //////////////////////////
    /////////////////////////////////////////////////////////////////////
    procedure Banking;
    begin

    end;

    /////////////////////////////////////////////////////////////////////
    ////////////////////////////nicbaz To bank //////////////////////////
    /////////////////////////////////////////////////////////////////////
    procedure WalkToBank;
    begin

    end;

    /////////////////////////////////////////////////////////////////////
    ////////////////////////////Mainloop/////////////////////////////////
    /////////////////////////////////////////////////////////////////////

    procedure Setup;
     begin
      SetupSRL; //no space between setupsrl
       DeclarePlayers;
       LoginPLayer;
    end;
    begin
      setup;
       Wait(900+Random(333));
        repeat
        WalkTrees;
        ChopYew;
        WalkTobank;
        Banking;
        until (Loads >= LoadsToDo) or (not LoggedIn)  //whats loads
        NextPlayer(True);
      until (False); //parantheses

    end.

    Alot of errors Fixed most, some you have to fix on your own since I didn't know what you meant. And read a tut on standards

    EDIT:

    SCAR Code:
    procedure WalkBank;
    begin
    If FindSymbol(x, y, 'altar') then//If it sees the altar in minimap
    begin;                       //it will continue
    if(FindSymbolIn(x,y,'tree'))then
        begin; //****needed a begin
        Mouse(x,y,2,2,true); //clicks tree
        FFlag(2);       //waits until about 2 pixels away before continue
       wait(200+random(400)); //Not really needed, but doesn't hurt much
       end; //********for the begin
      if(findSymbol (x,y,'cook'))then//searches for cooking symbol
       begin; //********
       mouse(x,y,2,2,true);          //click on the cook symbol
       FFlag(2);                //waits until 2 pixels away
       wait(250+random(400));   //250-650 ms wait time
       end; //*********
      if(findSymbol (x,y,'bank'))then
       begin; //*******
       mouse(x,y,2,2,true);
       FFlag(2);
       end //********
       else
       If (not(FindSymbol(x, y, 'altar') then //****no semicolon//if not finding the symbol
       Exit;                               //will exit the procedure
       end;
    end;  //*******needed ends

    I put //******* where I changed something.

  8. #8
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks heaps for that do you think its a OK script fo a first ever?

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

    Default

    Its an okay script for a first ever, but symbol find isnt particularly accurate, especially when people are sitting on them, or there are drop dots. Try a bit more failsafes, like setiing

    Symbolaccuracy:=0.6;

    because its default is 0.8

    The above returns true if it finds the symbol bitmap with 0.6 accuracy
    [QUOTE]<GoF`> oh no its Raymooond
    <Raymooond> Heya
    <GoF`> is it ray or some other ray?
    <LeeLokHin> No idea
    <LeeLokHin> Raymond, what's the game you like the most?
    <Raymooond> Runescape
    <-- LeeLokHin has kicked Raymooond from #srl (Faker.)[/QUOTE]

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
  •