Results 1 to 7 of 7

Thread: Can Some1 double check this

  1. #1
    Join Date
    Dec 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Can Some1 double check this

    Im trying to get this as good as i can..i want to apply for srl members..plz tell how i can make it better..

    SCAR Code:
    program VarrockPowerMiner;
    {.Include SRL/SRL.Scar}
    {.Include SRL/SRL/Skill/Mining.Scar}
    {.Include SRL/SRL/Skill/Magic.Scar}
    Const RgBoxes =True;

    function FindFastRandoms :Boolean;
    var
      RL: Integer;
    begin
      for RL:=1 to 17 do
      begin
        case RL of
          1: CloseWindow;
          2: if FindTalk then
              Result := True;
          3: if FindDead then
              Result := True;
          4: if FindMod then
              Result := True;
          5: if FindMime then
              Result := True;
          6: if FindMaze then
              Result := True;
          7: if FindQuiz then
              Result := True;
          8: if FindDemon then
              Result := True;
          9: if FindScapeRune then
              Result := True;
          10: if FindTalk then
              Result := True;
          11: if FindLamp(LampSkill) then
              Result := True;
          12: if (FindNewBox) then
              begin
                Result := True;
                if(RGBoxes = True)then
                begin
                  if(not(GambleNewBox))then
                    LogOut;
                end else
                  SolveBox;
              end;
          13: if FindTrade then
              Result := True;
          14: begin
                if NoGameTab then
                begin
                  if ( SolveFrog ) then Exit;
                  Result := True;
                  Players[CurrentPlayer].loc := 'No GameTab';
                  Logout;
                  Exit;
                end;
              end;
          15: if SolvePinball then
              Result := True;
          16: AntiBan;
          17: if(FindFight)then
                begin
                  RunAwayDirection('S');
              RunBack;
           end;
        end;
        wait(15);
      end;
    end;

     Procedure MineingFail1; // I Find It Easier To Do In A Seperate Procedure.
    Begin
      If  (InChat('you are dead'))or (FindSymbol(x,y,'cooking')) Or (FindSymbol(x,y,'Water')) Then
        begin
        RadialRoadWalk(FindRoadColor, 60, 93, 5, 1, 1);
        RadialRoadWalk(FindRoadColor, 73, 96, 65, 1, 1);
        RadialRoadWalk(FindRoadColor, 58, 84, 50, 1, 1);
        RadialRoadWalk(FindRoadColor, 73, 103, 60, 1, 1);
        RadialRoadWalk(FindRoadColor, 333, 370, 65, 1, 1);
        RadialRoadWalk(FindRoadColor, 318, 360, 65, 1, 1);
        RadialRoadWalk(FindRoadColor, 337, 360, 65, 1, 1);
        RadialRoadWalk(FindRoadColor, 317, 336, 59, 1, 1);
        RadialRoadWalk(FindRoadColor, 346, 366, 71, 1, 1);
        RadialRoadWalk(FindRoadColor, 21, 53, 70, 1, 1);
        RadialRoadWalk(FindRoadColor, 33, 69, 67, 1, 1);
        if(FindSymbol(x, y, 'quest')) then
        Mouse(x, y, 2, 2, true)

        repeat
          Mouse(682, 23, 2, 2, true)
          Wait(5000+random(1000))
        until (FindSymbol(x, y,'mining site'))
        if (FindSymbol(x, y,'mining site')) then
          Mouse(x, y, 2, 2, true)
        end;
    end;

    Procedure MineingFail2;
    begin
    If Not (FindSymbol(x,y,'mining')) then
      GameTab(7);
      Cast('1');
    end;

    procedure Randoms;

    begin
      FindTalk; //looks for a few letters from characters name (Nick) for randoms
      FindNormalRandoms; //looks for normal randoms and solves (mime, plant, etc.)
      FindFastRandoms;
      FindLamp('mining'); //if finds the lamp, picks the skill
       if FindFight then //if finds that you're in a fight
        begin
         RunAwayDirection('n'); //runs north (s, w, e)
         Wait(10000+random(2000)); //waits
         RunBack;//Runs back
        end;
    end;


     var Loads,OreDTM:integer;

     function CoordsToInvSpot(gx,gy:integer):integer;
    var col,row:integer;
    begin
    if ((gx>569) and(gx<600)) then col:=1;
    if ((gx>611) and(gx<642)) then col:=2;
    if ((gx>653) and(gx<684)) then col:=3;
    if ((gx>695) and(gx<723)) then col:=4;

    if ((gy>213) and(gy<244)) then row:=1;
    if ((gy>249) and(gy<280)) then row:=2;
    if ((gy>285) and(gy<316)) then row:=3;
    if ((gy>322) and(gy<352)) then row:=4;
    if ((gy>357) and(gy<387)) then row:=5;
    if ((gy>393) and(gy<424)) then row:=6;
    if ((gy>429) and(gy<459)) then row:=7;

    result:=((row-1)*4)+col;
    end;


    procedure DeclarePlayers;
    Begin
         HowManyPlayers := 1;
         CurrentPlayer:= 0;
         NumberOfPlayers(HowManyPlayers);


         Players[0].Name :='Shamokin8';
         Players[0].Pass :='123123a';
         Players[0].Nick :='kin';
         Players[0].String1 :='coal';  // What Ore To Mine.
         Players[0].String2 :='coal';  // Another Ore To Mine.
         Players[0].String3 :='iron';// A Third Ore To mine.
         Players[0].Boolean1 := False;
         Players[0].Active:=True;

         Players[1].Name :='Username';
         Players[1].Pass :='Password';
         Players[1].Nick :='3 Leters Of Youre Name';
         Players[1].String1 :='Iron';  // What Ore To Mine.
         Players[1].String2 :='Tin';  // Another Ore To Mine.
         Players[1].String3 :='Copper';// A Third Ore To mine.
         Players[1].Integer1 := 000;
         Players[1].Boolean1 := False;
         Players[1].Active:=True;


         Players[2].Name :='Username';
         Players[2].Pass :='Password';
         Players[2].Nick :='3 Leters Of Youre Name';
         Players[2].String1 :='Iron';  // What Ore To Mine.
         Players[2].String2 :='Tin';  // Another Ore To Mine.
         Players[2].String3 :='Copper';// A Third Ore To mine.
         Players[2].Integer1 := 00;
         Players[2].Boolean1 := False;
         Players[2].Active:=True;


         Players[3].Name :='Username';
         Players[3].Pass :='Password';
         Players[3].Nick :='3 Leters Of Youre Name';
         Players[3].String1 :='Iron';  // What Ore To Mine.
         Players[3].String2 :='Tin';  // Another Ore To Mine.
         Players[3].String3 :='Copper';// A Third Ore To mine
         Players[3].Integer1 := 9999;
         Players[3].Boolean1 := False;
         Players[3].Active:=True;


         Players[4].Name :='Username';
         Players[4].Pass :='Password';
         Players[4].Nick :='3 Leters Of Youre Name';
         Players[4].String1 :='Iron';  // What Ore To Mine.
         Players[4].String2 :='Tin';  // Another Ore To Mine.
         Players[4].String3 :='Copper';// A Third Ore To mine.
         Players[4].Integer1 := 9999;
         Players[4].Boolean1 := False;
         Players[4].Active:=True;


         Players[5].Name :='Username';
         Players[5].Pass :='Password';
         Players[5].Nick :='3 Leters Of Youre Name';
         Players[5].String1 :='Iron';  // What Ore To Mine.
         Players[5].String2 :='Tin';  // Another Ore To Mine.
         Players[5].String3 :='Copper';// A Third Ore To mine.
         Players[5].Integer1 := 9999;
         Players[5].Boolean1 := False;
         Players[5].Active:=True;


         Players[6].Name :='';
         Players[6].Pass :='';
         Players[6].Nick :='';
         Players[6].String1 :='Iron';  // What Ore To Mine.
         Players[6].String2 :='Tin';  // Another Ore To Mine.
         Players[6].String3 :='Copper';// A Third Ore To mine.
         Players[6].Integer1 := 9999;
         Players[6].Boolean1 := False;
         Players[6].Active:=True;


    end;


    Procedure SetupScript;

    begin
      SetupSRL;
      DeclarePlayers;

    If(not(LoggedIn))then LoginPlayer;

    If(LoggedIn)then
      Begin
        EquipPick:= Players[CurrentPlayer].Boolean1;
       NickNameBMP:= CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
     end;
    end;


    procedure MineOre;
    Begin
    repeat
       if (FindObjMulti('ine',OreColor1,OreColor2,OreColor3,0)) Then
          GetMousePos(x,y);
          Mouse(x,y,4,4,true);
       Until(InvFull) or (InvCount= 28)

    end;

    Procedure Drop;

       begin
      OreDTM:= DTMFromString('78DA634C636060706740038C48249006A9F12' +
         '3A0261F487813A12688809A1C201141847BA209A84902123104D4' +
         'C4028944026AA2893007E4DE28026A828930071436A104D484128' +
         'E0B0047CA0967');
         repeat
         if FindDTM(OreDTM,x,y,MIx1,MIY1,MIx2,MIY2) then
            DropItem(coordstoinvspot(x,y));
             wait(200+random(200));
         until not(FindDTM(OreDTM,x,y,MIx1,MIY1,MIx2,MIY2));
         freedtm(OreDTM);
         Loads:= Loads + 1
    End;

    procedure Anti;
    begin
      if(not(LoggedIn))then
      Exit;
      case Random(13) of

        0: RandomRClickEvery(3 + Random(3));

        1: begin
             HoverSkill('Fishing', false);
             wait(2000+random(1000));
             GameTab(4);
           end;

        2: begin
             HoverSkill('Cooking', false);
             wait(2000+random(1000));
             GameTab(4);
           end;

        3: RotateEvery(2);


        4: RandomChatEvery(4 + Random(4));

        5: LeaveScreenEvery(10 + Random(4));

        6: PickUpMouse;

        7: BoredEvery(10 + Random(5));

        8: begin
             GameTab(1 + Random(12));
             wait(1000+random(1000));
             GameTab(4);
           end;

        9: begin
             case random(4) of
               0: TypeSend('Mining lvls?');

               1: TypeSend('Mining Levels?');

               2: TypeSend('Smithing lvl?');

               3: TypeSend('Smithing levels?');
             end;
           end;

        10: RandomRClickEvery(4);


        11: AntiBan;

        12: SleepAndMoveMouse(5000+random(3000));

      end;
    end;


    begin
    SetUpSRL;
    NEWLINE:='';
    SetupScript;
      repeat
      MineingFail2;
      MineingFail1;
      Anti;
      MineOre;
      Randoms;
      Drop;
    Until Loads >= Players[CurrentPlayer].Integer1
    if Loads >= Players[CurrentPlayer].Integer1 then
      Logout;
    NextPlayer(True);
    end.

  2. #2
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    failsafes, a DDTM or 3 (if all that radial walking is to get to varrok), better mining, so it doesnt click every 1.1 seconds
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  3. #3
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    if someone if covering up the mining symbol, it will tele to lumby. If someone is covering a symbol in lumby, it won't walk back.

    once it has gotten enough oresperplayer, it does NextPlayer(true), and then the script ends. Mineore procedure needs findgas + findrandoms + if Not Loggedin then logout, and findpick etc...

    It is far away from getting accepted into members =S Also adding banking would give you a better chance of getting you into srl members. Note: If your trying to get into srl members just for the scripts, please don't even bother making an application.

    Fix those things, and add more failsafes, and anything else you think will be good

  4. #4
    Join Date
    Apr 2007
    Location
    Texas
    Posts
    1,668
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by The_Rs_Monkey View Post
    anything else you think will be good
    It MUST quack back at ducks. That's an unwritten requirment with greater imporatnace than randoms and stardards combined! I have voted no on every aplication whos script didnt some how find a duck and quack at it. :P

    Hey, if you want some help, message me on aim, I can show you ways to avoid all that symbol crappy ness.
    [IMG]http://farm3.static.flickr.com/2120/2052732965_348f3629d0_o.jpg[/IMG]

  5. #5
    Join Date
    Dec 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default this a little better??

    SCAR Code:
    program VarrockPowerMiner;
    {.Include SRL/SRL.Scar}
    {.Include SRL/SRL/Skill/Mining.Scar}
    {.Include SRL/SRL/Skill/Magic.Scar}
    Const      RgBoxes =True;
               RockColor1               =00000;
               RockColor2               =00000;
               RockColor3               =00000;
    var MyMark,Mining,Quest:integer;
    TheChatText:String;

    {------------------------------------------------------------------------------

               SearchText: by Pentti
    -------------------------------------------------------------------------------}


    Function SearchText:STring;
    begin
    if(IsTextInAreaEx(40,415,130,415,x,y,':',0,smallchars,False,True,0,0,0))then
     TheChatText:=Trim(GetTextAtEx(x+8,415,0,SmallChars,False,False,0,1,16711680,40,False,tr_allChars))
     Result:=TheChatText;
    end;


    procedure CheckIfDead;
    begin
    if  FindDead=true then
        RadialRoadWalk(FindRoadColor, 60, 93, 5, 1, 1);
        RadialRoadWalk(FindRoadColor, 73, 96, 65, 1, 1);
        RadialRoadWalk(FindRoadColor, 58, 84, 50, 1, 1);
        RadialRoadWalk(FindRoadColor, 73, 103, 60, 1, 1);
        RadialRoadWalk(FindRoadColor, 333, 370, 65, 1, 1);
        RadialRoadWalk(FindRoadColor, 318, 360, 65, 1, 1);
        RadialRoadWalk(FindRoadColor, 337, 360, 65, 1, 1);
        RadialRoadWalk(FindRoadColor, 317, 336, 59, 1, 1);
        RadialRoadWalk(FindRoadColor, 346, 366, 71, 1, 1);
        RadialRoadWalk(FindRoadColor, 21, 53, 70, 1, 1);
        RadialRoadWalk(FindRoadColor, 33, 69, 67, 1, 1);
        if(FindSymbol(x, y, 'quest')) then
        Mouse(x, y, 2, 2, true)

        repeat
          Mouse(682, 23, 2, 2, true)
          Wait(5000+random(1000))
        until (FindSymbol(x, y,'mining site'))
        if (FindSymbol(x, y,'mining site')) then
          Mouse(x, y, 2, 2, true)

    end;
    {--------------------------------------------------------
            Function GetChatMessage: String;
    --------------------------------------------------------}


    Function GetChatMessage: String;

    Begin
      Result := Trim(GetTextAtEx(20, 415, 0, SmallChars, False,
        False, 0, 1, 0, 80, False, tr_AllChars));
    End;



    function FindFastRandoms :Boolean;
    var RL: Integer;
    begin
      for RL:=1 to 17 do
      begin
        case RL of
          1: CloseWindow;
          2: if FindTalk then
              Result := True;
          3: if FindDead then
              Result := True;
          4: if FindMod then
              Result := True;
          5: if FindMime then
              Result := True;
          6: if FindMaze then
              Result := True;
          7: if FindQuiz then
              Result := True;
          8: if FindDemon then
              Result := True;
          9: if FindScapeRune then
              Result := True;
          10: if FindTalk then
              Result := True;
          11: if FindLamp(LampSkill) then
              Result := True;
          12: if (FindNewBox) then
              begin
                Result := True;
                if(RGBoxes = True)then
                begin
                  if(not(GambleNewBox))then
                    LogOut;
                end else
                  SolveBox;
              end;
          13: if FindTrade then
              Result := True;
          14: begin
                if NoGameTab then
                begin
                  if ( SolveFrog ) then Exit;
                  Result := True;
                  Players[CurrentPlayer].loc := 'No GameTab';
                  Logout;
                  Exit;
                end;
              end;
          15: if SolvePinball then
              Result := True;
          16: AntiBan;
          17: if(FindFight)then
                begin
                  RunAwayDirection('S');
              RunBack;
           end;
        end;
        wait(15);
      end;
    end;

    procedure Randoms;

    begin
      FindPick;
     { MineingFail2;}
      FindTalk; //looks for a few letters from characters name (Nick) for randoms
      FindNormalRandoms; //looks for normal randoms and solves (mime, plant, etc.)
      FindFastRandoms;
      FindLamp('mining'); //if finds the lamp, picks the skill
       if FindFight then //if finds that you're in a fight
        begin
         RunAwayDirection('n'); //runs north (s, w, e)
         Wait(11000+random(2000)); //waits
         RunBack;//Runs back
         end;
          if FindGas(x,y) then
          begin
          RunAwayDirection('n'); //runs north (s, w, e)

          RunBack;//Runs back
        end;
    end;

    procedure TeleAndWalk;
    begin


       Quest:= DTMFromString('78DA63FCC5C4C0C0C1C8800C8A6BEF8169982' +
           '8003E7F02D6');
         Mining:= DTMFromString('78DA63DCCBC4C0E0C18002A23420342394CF0' +
           '852E388AAE6D8B6ADA86A0E01D5B8A1AAF1727442557300A8C69B' +
           '80397B30D52C9D360555CD4E4CBB30CC390854E38CAAA638371B4' +
           '50D00D2721239');
        GameTab(4)
        Cast('1')
        RadialRoadWalk(FindRoadColor, 60, 93, 5, 1, 1);
        logout;
        RadialRoadWalk(FindRoadColor, 73, 96, 65, 1, 1);
        RadialRoadWalk(FindRoadColor, 58, 84, 50, 1, 1);
        RadialRoadWalk(FindRoadColor, 73, 103, 60, 1, 1);
        RadialRoadWalk(FindRoadColor, 333, 370, 65, 1, 1);
        RadialRoadWalk(FindRoadColor, 318, 360, 65, 1, 1);
        RadialRoadWalk(FindRoadColor, 337, 360, 65, 1, 1);
        RadialRoadWalk(FindRoadColor, 317, 336, 59, 1, 1);
        RadialRoadWalk(FindRoadColor, 346, 366, 71, 1, 1);
        RadialRoadWalk(FindRoadColor, 21, 53, 70, 1, 1);
        RadialRoadWalk(FindRoadColor, 33, 69, 67, 1, 1);
        if FindDTM(Quest,x, y,596,166,810,319) then
        Mouse(x, y, 2, 2, true)

        repeat
          Mouse(682, 23, 2, 2, true)
          Wait(5000+random(1000))
        until FindDTM(Mining,x, y,596,166,810,319)
        if FindDTM(Mining,x, y,596,166,810,319) then
          Mouse(x, y, 2, 2, true)
        end;
     
     
     var Loads,OreDTM:integer;
     
     function CoordsToInvSpot(gx,gy:integer):integer;
    var col,row:integer;
    begin
    if ((gx>569) and(gx<600)) then col:=1;
    if ((gx>611) and(gx<642)) then col:=2;
    if ((gx>653) and(gx<684)) then col:=3;
    if ((gx>695) and(gx<723)) then col:=4;

    if ((gy>213) and(gy<244)) then row:=1;
    if ((gy>249) and(gy<280)) then row:=2;
    if ((gy>285) and(gy<316)) then row:=3;
    if ((gy>322) and(gy<352)) then row:=4;
    if ((gy>357) and(gy<387)) then row:=5;
    if ((gy>393) and(gy<424)) then row:=6;
    if ((gy>429) and(gy<459)) then row:=7;

    result:=((row-1)*4)+col;
    end;


    procedure DeclarePlayers;
    Begin
         HowManyPlayers := 1;
         CurrentPlayer:= 0;
         NumberOfPlayers(HowManyPlayers);


         Players[0].Name :='Shamokin8';
         Players[0].Pass :='123123a';
         Players[0].Nick :='kin';
         Players[0].String1 :='coal';  // What Ore To Mine.
         Players[0].String2 :='coal';  // Another Ore To Mine.
         Players[0].String3 :='iron';// A Third Ore To mine.
         Players[0].Boolean1 := False;
         Players[0].Active:=True;

    {     Players[1].Name :='Username';
         Players[1].Pass :='Password';
         Players[1].Nick :='3 Leters Of Youre Name';
         Players[1].Integer1 := 000;
         Players[1].Boolean1 := False;
         Players[1].Active:=True;


         Players[2].Name :='Username';
         Players[2].Pass :='Password';
         Players[2].Nick :='3 Leters Of Youre Name';
         Players[2].Integer1 := 00;
         Players[2].Boolean1 := False;
         Players[2].Active:=True;


         Players[3].Name :='Username';
         Players[3].Pass :='Password';
         Players[3].Nick :='3 Leters Of Youre Name';
         Players[3].Integer1 := 9999;
         Players[3].Boolean1 := False;
         Players[3].Active:=True;


         Players[4].Name :='Username';
         Players[4].Pass :='Password';
         Players[4].Nick :='3 Leters Of Youre Name';
         Players[4].String1 :='Iron';  // What Ore To Mine.
         Players[4].String2 :='Tin';  // Another Ore To Mine.
         Players[4].String3 :='Copper';// A Third Ore To mine.
         Players[4].Integer1 := 9999;
         Players[4].Boolean1 := False;
         Players[4].Active:=True;


         Players[5].Name :='Username';
         Players[5].Pass :='Password';
         Players[5].Nick :='3 Leters Of Youre Name';
         Players[5].String1 :='Iron';  // What Ore To Mine.
         Players[5].String2 :='Tin';  // Another Ore To Mine.
         Players[5].String3 :='Copper';// A Third Ore To mine.
         Players[5].Integer1 := 9999;
         Players[5].Boolean1 := False;
         Players[5].Active:=True;


         Players[6].Name :='';
         Players[6].Pass :='';
         Players[6].Nick :='';
         Players[6].String1 :='Iron';  // What Ore To Mine.
         Players[6].String2 :='Tin';  // Another Ore To Mine.
         Players[6].String3 :='Copper';// A Third Ore To mine.
         Players[6].Integer1 := 9999;
         Players[6].Boolean1 := False;
         Players[6].Active:=True;}


          NickNameBMP:= CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);


    end;


    Procedure SetupScript;

    begin
      SetupSRL;
      DeclarePlayers;
     
    If(not(LoggedIn))then LoginPlayer;

    If(LoggedIn)then
      Begin
        EquipPick:= Players[CurrentPlayer].Boolean1;
     end;
    end;


    procedure MineOre;
    Begin
       MarkTime(MyMark)

       if (FindObjMulti('ine',RockColor1,RockColor2,RockColor3,0)) Then
          GetMousePos(x,y);
          Mouse(x,y,4,4,true);
          MyMark:=0;
        end;
       


    Procedure Drop;
       begin
      OreDTM:= DTMFromString('78DA634C636060706740038C48249006A9F12' +
         '3A0261F487813A12688809A1C201141847BA209A84902123104D4' +
         'C4028944026AA2893007E4DE28026A828930071436A104D484128' +
         'E0B0047CA0967');
         repeat
         if FindDTM(OreDTM,x,y,MIx1,MIY1,MIx2,MIY2) then
            DropItem(coordstoinvspot(x,y));
             wait(200+random(200));
         until not(FindDTM(OreDTM,x,y,MIx1,MIY1,MIx2,MIY2));
         freedtm(OreDTM);
         Loads:= Loads + 1
    End;

    procedure Anti;
    begin
      if(not(LoggedIn))then
      Exit;
      case Random(13) of

        0: RandomRClickEvery(3 + Random(3));

        1: begin
             HoverSkill('Fishing', false);
             wait(2000+random(1000));
             GameTab(4);
           end;

        2: begin
             HoverSkill('Cooking', false);
             wait(2000+random(1000));
             GameTab(4);
           end;

        3: RotateEvery(2);


        4: RandomChatEvery(4 + Random(4));

        5: LeaveScreenEvery(10 + Random(4));

        6: PickUpMouse;

        7: BoredEvery(10 + Random(5));

        8: begin
             GameTab(1 + Random(12));
             wait(1000+random(1000));
             GameTab(4);
           end;

        9: begin
             case random(4) of
               0: TypeSend('Mining lvls?');

               1: TypeSend('Mining Levels?');

               2: TypeSend('Smithing lvl?');

               3: TypeSend('Smithing levels?');
             end;
           end;

        10: RandomRClickEvery(4);


        11: AntiBan;

        12: SleepAndMoveMouse(5000+random(3000));

      end;
    end;


    begin
    SetUpSRL;
    NEWLINE:='';
    SetupScript;
         Repeat
       Repeat
    repeat
      repeat
      Randoms;
    Until((Pos('anage', GetChatMessage) <> 0) or (timefromMark(mark)>(10000)))MarkTime(Mark)
      MineOre;
     if (TimeFromMark(MyMark)>= 120000) then
    begin
      TeleAndWalk;
     end;
      MarkTime(Mark)
      Until(InvFull) or (InvCount= 28)
      Drop;
    Until Loads >= Players[CurrentPlayer].Integer1
    if Loads >= Players[CurrentPlayer].Integer1 then
      Logout;
    NextPlayer(False);
    until Loads >= Players[HowManyPlayers-1].Integer1
    if  Loads >= Players[HowManyPlayers-1].Integer1 then
    NextPlayer(True);
    end.

  6. #6
    Join Date
    Apr 2007
    Location
    Texas
    Posts
    1,668
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by psychoson View Post
    look at this plz
    Later i wil, i promise! right now im booked though.
    [IMG]http://farm3.static.flickr.com/2120/2052732965_348f3629d0_o.jpg[/IMG]

  7. #7
    Join Date
    Apr 2007
    Location
    Texas
    Posts
    1,668
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by lordgreggreg View Post
    Later i wil, i promise! right now im booked though.
    Ok , over 20 missing semi colons
    over 4 missing begin-end seegmants after if statments

    thousands of standards problems

    compare this to uses,and see where u meesed up, i have to go
    [IMG]http://farm3.static.flickr.com/2120/2052732965_348f3629d0_o.jpg[/IMG]

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Can Some1 Help Me??!?!?!?!?
    By hunter_killer in forum OSR Help
    Replies: 7
    Last Post: 10-26-2007, 12:34 PM
  2. double check!
    By ShowerThoughts in forum OSR Help
    Replies: 7
    Last Post: 09-23-2007, 10:59 AM
  3. could some1 fix this
    By ShowerThoughts in forum OSR Help
    Replies: 12
    Last Post: 09-02-2007, 02:53 PM
  4. just need somone to double check...
    By Team_epic in forum OSR Help
    Replies: 10
    Last Post: 06-19-2007, 06:03 PM

Posting Permissions

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