Results 1 to 9 of 9

Thread: heres my not working script

  1. #1
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default heres my not working script

    the bugs
    -he picks 1 bone and burries it he thinks he got 1 load done(big bug)

    heres my script



    SCAR Code:
    ////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k k k                                                    k k k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k k  kk   kk        ooo     tttttttttt                     k k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k    kk  kk      o       o      tt      ssssssss             k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k    kk kk      o         o     tt     s          zzzzzzzzz  k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k    kkkk      o           o    tt     s                zz   k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k    kk kk     o           o    tt      sssss         zz     k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k    kk  kk    o           o    tt           s      zz       k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k    kk   kk    o         o     tt           s    zz         k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k k  kk    kk    o       o      tt   ssssssss    zzzzzzzzz k k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k k k               ooo                                  k k k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                      PRAYER LEVELER V.1                      \\\\\\\\\\\\\\\\\\\\\\
    //////////////////////////////////////////////////          \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    /////////////////////////////////////////////////instructions\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\                                                               /////////////////////
    ////////////////////////1.fill in setup lines 39-46 and drag the croshair on runescape\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////2.use normal runescape client on low detail.                  \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////3.use runescape on v-bright                                   \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////4.start logged in or out                                      \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////   THIS SCRIPT IS MADE TO GET BONES AND BURY BONES FROM THE   \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////   GROUND AT THE CHAOSALTAR IN LEVEL 11/15 IN THE WILDY       \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////   DONT TRY TO USE THIS SCRIPT ON OTHER PLACES                \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////   PLS POST BUGS/PROGGY,S ON MY THREAD                        \\\\\\\\\\\\\\\\\\\\\\
    ///////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    ///////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\




    program KotszPrayerLeveler;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/misc/trade.scar}
    {.include SRL\SRL\Misc\Wilderness.scar}
    {.include SRL\SRL\Misc\worldswitcher.scar}


    //setup
    const


    NumberOfUsers = 1; // = player [NUMBER] + 1 =?  fill the ? in here
    StartingPlayer = 0;//Player to start
    HowMuchAntiBan=  5;//(recommend)let this.lesser number is lesser antiban 1-5 (choice of numbers)
    Red = 241;//Color of the red dot on MM.
    MaxLoadTime = 10;//Maximum time in minutes per load.

    Var
     StartPlayer, Loads, NormalRandomsTime, FastRandomsTime, FindTalkTime, MyMark, FallyBuildingColor, buried : integer;
    Var
    Bone, BonePickup :integer;
    Var
    xp :extended;


      Procedure DeclarePlayers;
      Begin
         StartPlayer := StartingPlayer;
         NumberOfPlayers( NumberOfUsers );
         CurrentPlayer := StartPlayer;

         Players[0].Name :='mininghotxp';
         Players[0].Pass :='lol123456789';
         Players[0].Nick :='hotx';
         Players[0].Loc :='chaosaltar';
         Players[0].Integer1 := 2;//Number of loads you want to do.
         Players[0].Active:=True;

         Writeln( IntToStr ( NumberOfUsers ) + ' Players' );
      End;





     Procedure ChangeLocation(Location:string);
      begin
       Players[CurrentPlayer].Loc := location;
      end;
    ///big change world function made by me and chris

     function SelectWorld1(Which: String; RandomWorld:Boolean): Boolean;
    var
      i, z, worldclick: Integer;
    begin
      For z:= 0 to 5 do
      begin
      SetupWorldSwitcher;
      if not WelcomeToRuneScape then
      begin
        Result := False;
        Exit
      end;
      ClickWorldSwitchButton;
      OrderBy('type', 'up');
      Wait(1000);
      GetWorldRecord;
    //  ReadOutRecord;
        if Which = 'members' then
          for i := 5 to 65 -1 do
            begin
            Case RandomWorld Of
              True  : Begin
                        Mouse(Worlds[i+Random(59)].X, Worlds[i+Random(59)].Y, 0, 0, True);
                        Result := True;
                        MarkTime(worldclick);
                        Repeat
                          Wait(100);
                        Until(WelcomeToRunescape) OR (TimeFromMark(worldclick) >= 60000);
                        Exit;
                      End;

              False : Begin
                        Mouse(Worlds[i].X, Worlds[i].Y, 0, 0, True);
                        Result := True;
                        MarkTime(worldclick);
                        Repeat
                          Wait(100);
                        Until(WelcomeToRunescape) OR (TimeFromMark(worldclick) >= 60000);
                        Exit;
                      End;
              End;
            End;

        if Which = 'free' then
        OrderBy('type','down')
          for i := 5 to 74 -1 do
            begin
            Case RandomWorld Of
              True  : Begin
                        Mouse(Worlds[i+Random(68)].X, Worlds[i+Random(68)].Y, 0, 0, True);
                        Result := True;
                        MarkTime(worldclick);
                        Repeat
                          Wait(100);
                        Until(WelcomeToRunescape) OR (TimeFromMark(worldclick) >= 60000);
                        Exit;
                      End;

              False : Begin
                        Mouse(Worlds[i].X, Worlds[i].Y, 0, 0, True);
                        Result := True;
                        MarkTime(worldclick);
                        Repeat
                          Wait(100);
                        Until(WelcomeToRunescape) OR (TimeFromMark(worldclick) >= 60000);
                        Exit;
                      End;
              End;
            End;
       End;

        FreeNumbers;
    end;



    Procedure ChangeWorld;
    Begin
      If OtherPlayerFound(x, y)Then
      Begin
        SetupWorldSwitcher;
        RunTo('S', False)
        LogOut;
        ClickWorldSwitchButton;
        SelectWorld1('free', True);
      End;

    End;





    //end


    Function AngleCompass(Angle:integer):Boolean;
    Var
    Ax, Ay, AMark:Integer;
    Begin
      MarkTime(AMark);

      Ax:= Round( 6 * Sin (Angle * Pi / 180))+ 566;
      Ay:= Round(-6 * Cos (Angle * Pi / 180))+ 20;

      KeyDown(VK_Left);

       repeat
         Wait(10+random(5));
         If(FindColor(x, y, 723587, Ax, Ay, Ax, Ay))then
         Begin
           Result:=true;
           break;
         End;
       Until(TimeFromMark(AMark) > 10000);
       KeyUp(VK_Left);
    End;

    //---------------------------------------------------------------------\\
    Procedure DoomCompass;
    Var
    CurrentAngle:integer;
    begin
      CurrentAngle:=FindCompassAngle;
      Case Random(10) Of
        0: begin
             SendArrowWait(1, 250+Random(50));
             SendArrowWait(2, 100+Random(30));
           end;

        1 : begin
             SendArrowWait(3, 1500+Random(150));
            end;

        2 : begin
             SendArrowWait(2, 500+Random(250));
             SendArrowWait(1, 2000+Random(500));
            end;
        3 : SendArrowWait(1, 3000+Random(400));

        4 : SendArrowSilentWait( ((Random(2) * 2) + 1), 1000 + Random(200));

        5 : SendArrowSilentWait( ((Random(2) * 2) + 1), 200 + Random(200));

        6 : SendArrowSilentWait( ((Random(2) * 2)), 200 + Random(200));

        7 : SendArrowSilentWait( ((Random(2) * 2) + 1), 20 + Random(20));

        8 : SendArrowSilentWait( ((Random(2) * 2)), 20 + Random(20));

        9 : SendArrowSilentWait( ((Random(2) * 2)), 1000 + Random(200));

      end;
      AngleCompass(CurrentAngle);
      HighestAngle;
    end;



    //--------------------------------------------------------------------\\
    procedure AntiBannage;
    begin
      Case Random(15) Of

        1 : DoomCompass;
        2 : begin
             GameTab(1+Random(12));
             Wait(2000+Random(400));
             GameTab(4);
            end;
        3 : RandomRClick;
        4 : PickUpMouse;
        5: MouseBox(MSX1,MMY1,MMX2,MMY2,5);



      end;
    end;


    {is what the name says:P}

     procedure KotszSignature;
    begin
      ClearDebug;



    Writeln('////     kk   kk        ooo     tttttttttt                       \\\\')
    Writeln('////     kk  kk      o       o      tt      ssssssss             \\\\')
    Writeln('////     kk kk      o         o     tt     s          zzzzzzzzz  \\\\')
    Writeln('////     kkkk      o           o    tt     s                zz   \\\\')
    Writeln('////     kk kk     o           o    tt      sssss         zz     \\\\')
    Writeln('////     kk  kk    o           o    tt           s      zz       \\\\')
    Writeln('////     kk   kk    o         o     tt           s    zz         \\\\')
    Writeln('////     kk    kk    o       o      tt   ssssssss    zzzzzzzzz   \\\\')
    Writeln('////                    ooo    and  credits to chris             \\\\')

    end;
    //does what the name says:P\\
    procedure KotszProggy;
    begin
      cleardebug;
      Writeln('    THANKS FOR USING MY KOTSZ PRAYER LEVELER!!    ');
      Writeln('    Please remember to post proggies/bugs         ');
      Writeln('////////////////////report\\\\\\\\\\\\\\\\\\\\\\\\');
      Writeln('//Worked For : ' + ScriptTime2(2)                );
      Writeln('//Did ' + IntToStr(Loads) + ' Loads             ');
      Writeln('//'+inttostr(players[currentplayer].integer2 - 1)+  ' bones buried ');
      Writeln('//'            +  Floattostr(Xp)+ 'xp gained '           );

      SRLRandomsReport;
    end;


    {function findfast randoms credits to WT-Fawaki }

    Function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      findnormalrandoms;
      for i:=1 to 10 do
      begin
        case I of
           1:  If FindDead then
                 Result := True;
           2:  If FindMod then
                 Result := True;
           3:  If FindMime then
                 Result := True;
           4:  If FindMaze then
                 Result := True;
           5:  If FindQuiz then
                 Result := True;
           6:  If FindDemon then
                 Result := True;
           7:  if NoGameTab then
                 begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'No GameTab';
                   Logout;
                   Exit;
                 end;
           8 : If RC Then Result := True;

           9: If FindTalk Then Result := True;

           10: If HandleTrade Then Result := True;
        End;
        Wait(1);
      end;
    end;


    {Credits to Wizzup}

    Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;

    Var
       I, iX,iY: Integer;
    Begin
      For I := iFrom To ITo Do
      Begin
        iX := Round(Distance * Sin(I * Pi / 180)) + 648;
        iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
        If GetColor(iX, iY) = 0 Then
        Begin
          Result := Result + 1;
        End;
      End;
    End;


    {credits to wizzup}

    Function FindNormalRandomsTimeEx: Boolean;

    Var
      TempTime, Time1, Time2: LongInt;

    Begin
      TempTime := GetSystemTime;
      If TempTime - NormalRandomsTime > 6000 Then
      Begin
        NormalRandomsTime := GetSystemTime;
        Time1 := GetSystemTime;
        Result := FindNormalRandoms;
        Time2 := GetSystemTime;
        Status('Calling FNRandoms; Took '+IntToStr(Time2-Time1)+'.');
        Exit;
      End;

      If TempTime - FastRandomsTime > 2000 Then
      Begin
        FastRandomsTime := GetSystemTime;
        Time1 := GetSystemTime;
        Result := FindFastRandoms;
        Time2 := GetSystemTime;
        Status('Calling FFRandoms; Took '+IntToStr(Time2-Time1)+'.');
        Exit;
      End;

      If TempTime - FindTalkTime > 500 Then
      Begin
        FindTalkTime := GetSystemTime;
        Time1 := GetSystemTime;
        Result := FindTalk;
        Time2 := GetSystemTime;
        Status('Calling FT; Took '+IntToStr(Time2-Time1)+'.');
        Exit;
      End;
    End;



    procedure LoadDTM; //The name of the procedure.
    begin
      Bone := DTMFromString('78DA63F4646660C862644006678E1E613002D' +
           '220D1FF40C0E88CA906220B2381B42B504D1101352140353904D4' +
           'F801D5A4E057030056770A2F');

    end;





    {procedure BuryBones bury the bones }


    procedure BuryBones;
    begin

    Repeat
      FindFastRandoms;

    If(Random(25) <= 15)then
      AntiBannage;
      FindNormalRandomsTimeEx;
    if(FindDTM(Bone, x, y,MIX1, MIY1, MIX2, MIY2 ))then
    Begin
      ChangeWorld;
      mouse(x,y,1,1,true);
      Buried:=Buried + 1;
      players[currentPlayer].integer2 := buried;
      xp:=xp + 4.5;

    end
    else
    Writeln('Cant find Bones in inventory..');
    Until(Not(FindDTM(Bone, x, y, MIX1, MIY1, MIX2, MIY2)));
    Loads := Loads+1;
    kotszProggy;
    ChangeWorld;
    end;


    function DotOnMM:Boolean;
    Begin
      Result := FindColorSpiralTolerance(x, y, Red, MMX1, MMY1, MMX2, MMY2, 5);
    End;


    {procedure GetBones to get bones from the ground }

    procedure GetBones;
    Var
      BoneColor : Integer;
      ix, iY, I, Tol : Integer;
      FoundBone : Boolean;
    begin
      MarkTime(BonePickup);
      BoneColor:= 12764106;
    Repeat
    if(not(LoggedIn))then
    Exit;

    Begin
      MarkTime(myMark);
      FindFastRandoms;
      Tol := 0;
    Repeat
      Tol := Tol + 1;
      If FindColorSpiralTolerance(iX, iY, BoneColor, MSX1, MSY1, MSX2, MSY2, Tol) Then

        Begin
         ChangeWorld;
          Writeln('Found the bone with color: '+inttostr(BoneColor));
          MMouse(iX, iY, 2, 2);
          If IsUpText('ake')Then
            FoundBone := True;;
          End;

        Until(Tol > 9) OR (FoundBone);

    If (FoundBone) Then
    Begin
      Case Random(2) Of
        0 : Begin
              ChangeWorld;
              Mouse(iX, iY, 1, 1, True);
              Flag;
              if(InvFull) then
              Begin
                writeln('inventory is full');
                BuryBones;
              End;
            End;

        1 : Begin
              ChangeWorld;
              Mouse(iX, iY, 1, 1, False);
              Wait(100+random(200));
              ChooseOption(x, y, 'Take');
              While FlagPresent Do
                FindFastRandoms;
                If(Random(25) <= 15)then
                Begin
                  AntiBannage;
                End;
              if(InvFull) then
              Begin
                writeln('inventory is full');
                BuryBones;
              End;
            End;
          End;
        End;
      End;

    If(TimeFromMark(myMark) >= 5000)then
      If DotOnMM AND Not InvFull then
      Begin
        ChangeWorld;
        Mouse(x, y, 1, 1, True);
        Flag;
        GetBones;
      End
      Else
        Writeln('inventory is full');
        BuryBones;
      Until(InvFull) OR (TimeFromMark(BonePickup) >= MaxLoadTime * 1000);
    End;





    {procedure setupclient does wat the names says   }
    procedure SetUpClient;
    begin
      wait(500+random(500));
      SetupSrl;
      declareplayers;
      wait(3000);
      ActivateClient;

    end;

    {MainLoop}


     begin
       KotszSignature;
       wait(3000)
       SetUpClient;
       LoadDTM;
       LoginPlayer;
       HighestAngle;
       MakeCompass('N');
    Repeat
      If not LoggedIn Or WeAreDead then break
        FindFastRandoms;
        FindNormalRandoms;
        GetBones;
        BuryBones;
        kotszProggy;
      if(Loads >= Players[CurrentPlayer].Integer1)then
     begin
        LogOut;
        NextPlayer(True);

     end;

    Until(False);
    end.




    thanks already i looked hours over the script but dont know what wrong with itand i know thats is better to post on forum than on msn (somtimes)
    ~Hermen

  2. #2
    Join Date
    Feb 2007
    Location
    SparklesProd.com
    Posts
    2,406
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    procedure BuryBones;
    begin

    Repeat
      FindFastRandoms;

    If(Random(25) <= 15)then
      AntiBannage;
      FindNormalRandomsTimeEx;
    if(FindDTM(Bone, x, y,MIX1, MIY1, MIX2, MIY2 ))then
    Begin
      ChangeWorld;
      mouse(x,y,1,1,true);
      Buried:=Buried + 1;
      players[currentPlayer].integer2 := buried;
      xp:=xp + 4.5;

    end
    else
    Writeln('Cant find Bones in inventory..');
    Until(Not(FindDTM(Bone, x, y, MIX1, MIY1, MIX2, MIY2)));
    Loads := Loads+1;
    kotszProggy;
    ChangeWorld;
    end;

    Everytime it does this procedure, loads is assigned to loads +1...

    Would you like me to post a resolution? Or you'll sort it yourself?



    Edit: Meh, here's a fix.

    SCAR Code:
    procedure BuryBones;
    var
    BonesBuriedResetEveryLoad : Integer;
    begin

    Repeat
      FindFastRandoms;

    If(Random(25) <= 15)then
      AntiBannage;
      FindNormalRandomsTimeEx;
    if(FindDTM(Bone, x, y,MIX1, MIY1, MIX2, MIY2 ))then
    Begin
      ChangeWorld;
      mouse(x,y,1,1,true);
      Buried:=Buried + 1;
      players[currentPlayer].integer2 := buried;
      BonesBuriedResetEveryLoad := BonesBuriedResetEveryLoad +1;
      xp:=xp + 4.5;

    end
    else
    Writeln('Cant find Bones in inventory..');
    Until(Not(FindDTM(Bone, x, y, MIX1, MIY1, MIX2, MIY2)));
    if BonesBuriedResetEveryLoad = 28 then
    begin
    Loads := Loads+1;
    BonesBuriedResetEveryLoad := 0;
    kotszProggy;
    ChangeWorld;
    end;
    end;

  3. #3
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks might work but i know there is somthing wrong more
    thanks
    ~Hermen

  4. #4
    Join Date
    Feb 2007
    Location
    SparklesProd.com
    Posts
    2,406
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Might have to define
    BonesBuriedResetEveryLoad : Integer;

    as a global variable, not local.

  5. #5
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    dude there nothing wrong with the bury because if he cant find any bones he adds 1 load so tehre nothing wrong with that but its wrong with getbones but dont know what pls look good at it

    pls test it and if you know what wrong pls i beg you tell it to me pls and pls test it!!!





    SCAR Code:
    ////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k k k                                                    k k k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k k  kk   kk        ooo     tttttttttt                     k k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k    kk  kk      o       o      tt      ssssssss             k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k    kk kk      o         o     tt     s          zzzzzzzzz  k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k    kkkk      o           o    tt     s                zz   k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k    kk kk     o           o    tt      sssss         zz     k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k    kk  kk    o           o    tt           s      zz       k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k    kk   kk    o         o     tt           s    zz         k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k k  kk    kk    o       o      tt   ssssssss    zzzzzzzzz k k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////k k k               ooo                                  k k k\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                      PRAYER LEVELER V.1                      \\\\\\\\\\\\\\\\\\\\\\
    //////////////////////////////////////////////////          \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    /////////////////////////////////////////////////instructions\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\                                                               /////////////////////
    ////////////////////////1.fill in setup lines 39-46 and drag the croshair on runescape\\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////2.use normal runescape client on low detail.                  \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////3.use runescape on v-bright                                   \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////4.start logged in or out                                      \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////   THIS SCRIPT IS MADE TO GET BONES AND BURY BONES FROM THE   \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////   GROUND AT THE CHAOSALTAR IN LEVEL 11/15 IN THE WILDY       \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////   DONT TRY TO USE THIS SCRIPT ON OTHER PLACES                \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////   PLS POST BUGS/PROGGY,S ON MY THREAD                        \\\\\\\\\\\\\\\\\\\\\\
    ///////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    ///////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\




    program KotszPrayerLeveler;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/misc/trade.scar}
    {.include SRL\SRL\Misc\Wilderness.scar}
    {.include SRL\SRL\Misc\worldswitcher.scar}


    //setup
    const


    NumberOfUsers = 1; // = player [NUMBER] + 1 =?  fill the ? in here
    StartingPlayer = 0;//Player to start
    HowMuchAntiBan=  5;//(recommend)let this.lesser number is lesser antiban 1-5 (choice of numbers)
    Red = 241;//Color of the red dot on MM.
    MaxLoadTime = 10;//Maximum time in minutes per load.

    Var
     StartPlayer, Loads, NormalRandomsTime, FastRandomsTime, FindTalkTime, MyMark, FallyBuildingColor, buried : integer;
    Var
    Bone, BonePickup :integer;
    Var
    xp :extended;


      Procedure DeclarePlayers;
      Begin
         StartPlayer := StartingPlayer;
         NumberOfPlayers( NumberOfUsers );
         CurrentPlayer := StartPlayer;

         Players[0].Name :='username';
         Players[0].Pass :='pass';
         Players[0].Nick :='sern';
         Players[0].Loc :='chaosaltar';
         Players[0].Integer1 := 2;//Number of loads you want to do.
         Players[0].Active:=True;

         Writeln( IntToStr ( NumberOfUsers ) + ' Players' );
      End;





     Procedure ChangeLocation(Location:string);
      begin
       Players[CurrentPlayer].Loc := location;
      end;
    ///big change world function made by me and chris

     function SelectWorld1(Which: String; RandomWorld:Boolean): Boolean;
    var
      i, z, worldclick: Integer;
    begin
      For z:= 0 to 5 do
      begin
      SetupWorldSwitcher;
      if not WelcomeToRuneScape then
      begin
        Result := False;
        Exit
      end;
      ClickWorldSwitchButton;
      OrderBy('type', 'up');
      Wait(1000);
      GetWorldRecord;
    //  ReadOutRecord;
        if Which = 'members' then
          for i := 5 to 65 -1 do
            begin
            Case RandomWorld Of
              True  : Begin
                        Mouse(Worlds[i+Random(59)].X, Worlds[i+Random(59)].Y, 0, 0, True);
                        Result := True;
                        MarkTime(worldclick);
                        Repeat
                          Wait(100);
                        Until(WelcomeToRunescape) OR (TimeFromMark(worldclick) >= 60000);
                        Exit;
                      End;

              False : Begin
                        Mouse(Worlds[i].X, Worlds[i].Y, 0, 0, True);
                        Result := True;
                        MarkTime(worldclick);
                        Repeat
                          Wait(100);
                        Until(WelcomeToRunescape) OR (TimeFromMark(worldclick) >= 60000);
                        Exit;
                      End;
              End;
            End;

        if Which = 'free' then
        OrderBy('type','down')
          for i := 5 to 74 -1 do
            begin
            Case RandomWorld Of
              True  : Begin
                        Mouse(Worlds[i+Random(68)].X, Worlds[i+Random(68)].Y, 0, 0, True);
                        Result := True;
                        MarkTime(worldclick);
                        Repeat
                          Wait(100);
                        Until(WelcomeToRunescape) OR (TimeFromMark(worldclick) >= 60000);
                        Exit;
                      End;

              False : Begin
                        Mouse(Worlds[i].X, Worlds[i].Y, 0, 0, True);
                        Result := True;
                        MarkTime(worldclick);
                        Repeat
                          Wait(100);
                        Until(WelcomeToRunescape) OR (TimeFromMark(worldclick) >= 60000);
                        Exit;
                      End;
              End;
            End;
       End;

        FreeNumbers;
    end;



    Procedure ChangeWorld;
    Begin
      If OtherPlayerFound(x, y)Then
      Begin
        SetupWorldSwitcher;
        RunTo('S', False)
        LogOut;
        ClickWorldSwitchButton;
        SelectWorld1('free', True);
      End;

    End;





    //end


    Function AngleCompass(Angle:integer):Boolean;
    Var
    Ax, Ay, AMark:Integer;
    Begin
      MarkTime(AMark);

      Ax:= Round( 6 * Sin (Angle * Pi / 180))+ 566;
      Ay:= Round(-6 * Cos (Angle * Pi / 180))+ 20;

      KeyDown(VK_Left);

       repeat
         Wait(10+random(5));
         If(FindColor(x, y, 723587, Ax, Ay, Ax, Ay))then
         Begin
           Result:=true;
           break;
         End;
       Until(TimeFromMark(AMark) > 10000);
       KeyUp(VK_Left);
    End;

    //---------------------------------------------------------------------\\
    Procedure DoomCompass;
    Var
    CurrentAngle:integer;
    begin
      CurrentAngle:=FindCompassAngle;
      Case Random(10) Of
        0: begin
             SendArrowWait(1, 250+Random(50));
             SendArrowWait(2, 100+Random(30));
           end;

        1 : begin
             SendArrowWait(3, 1500+Random(150));
            end;

        2 : begin
             SendArrowWait(2, 500+Random(250));
             SendArrowWait(1, 2000+Random(500));
            end;
        3 : SendArrowWait(1, 3000+Random(400));

        4 : SendArrowSilentWait( ((Random(2) * 2) + 1), 1000 + Random(200));

        5 : SendArrowSilentWait( ((Random(2) * 2) + 1), 200 + Random(200));

        6 : SendArrowSilentWait( ((Random(2) * 2)), 200 + Random(200));

        7 : SendArrowSilentWait( ((Random(2) * 2) + 1), 20 + Random(20));

        8 : SendArrowSilentWait( ((Random(2) * 2)), 20 + Random(20));

        9 : SendArrowSilentWait( ((Random(2) * 2)), 1000 + Random(200));

      end;
      AngleCompass(CurrentAngle);
      HighestAngle;
    end;



    //--------------------------------------------------------------------\\
    procedure AntiBannage;
    begin
      Case Random(15) Of

        1 : DoomCompass;
        2 : begin
             GameTab(1+Random(12));
             Wait(2000+Random(400));
             GameTab(4);
            end;
        3 : RandomRClick;
        4 : PickUpMouse;
        5: MouseBox(MSX1,MMY1,MMX2,MMY2,5);



      end;
    end;


    {is what the name says:P}

     procedure KotszSignature;
    begin
      ClearDebug;



    Writeln('////     kk   kk        ooo     tttttttttt                       \\\\')
    Writeln('////     kk  kk      o       o      tt      ssssssss             \\\\')
    Writeln('////     kk kk      o         o     tt     s          zzzzzzzzz  \\\\')
    Writeln('////     kkkk      o           o    tt     s                zz   \\\\')
    Writeln('////     kk kk     o           o    tt      sssss         zz     \\\\')
    Writeln('////     kk  kk    o           o    tt           s      zz       \\\\')
    Writeln('////     kk   kk    o         o     tt           s    zz         \\\\')
    Writeln('////     kk    kk    o       o      tt   ssssssss    zzzzzzzzz   \\\\')
    Writeln('////                    ooo    and  credits to chris             \\\\')

    end;
    //does what the name says:P\\
    procedure KotszProggy;
    begin
      cleardebug;
      Writeln('    THANKS FOR USING MY KOTSZ PRAYER LEVELER!!    ');
      Writeln('    Please remember to post proggies/bugs         ');
      Writeln('////////////////////report\\\\\\\\\\\\\\\\\\\\\\\\');
      Writeln('//Worked For : ' + ScriptTime2(2)                );
      Writeln('//Did ' + IntToStr(Loads) + ' Loads             ');
      Writeln('//'+inttostr(players[currentplayer].integer2 - 1)+  ' bones buried ');
      Writeln('//'            +  Floattostr(Xp)+ 'xp gained '           );

      SRLRandomsReport;
    end;


    {function findfast randoms credits to WT-Fawaki }

    Function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      findnormalrandoms;
      for i:=1 to 10 do
      begin
        case I of
           1:  If FindDead then
                 Result := True;
           2:  If FindMod then
                 Result := True;
           3:  If FindMime then
                 Result := True;
           4:  If FindMaze then
                 Result := True;
           5:  If FindQuiz then
                 Result := True;
           6:  If FindDemon then
                 Result := True;
           7:  if NoGameTab then
                 begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'No GameTab';
                   Logout;
                   Exit;
                 end;
           8 : If RC Then Result := True;

           9: If FindTalk Then Result := True;

           10: If HandleTrade Then Result := True;
        End;
        Wait(1);
      end;
    end;


    {Credits to Wizzup}

    Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;

    Var
       I, iX,iY: Integer;
    Begin
      For I := iFrom To ITo Do
      Begin
        iX := Round(Distance * Sin(I * Pi / 180)) + 648;
        iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
        If GetColor(iX, iY) = 0 Then
        Begin
          Result := Result + 1;
        End;
      End;
    End;


    {credits to wizzup}

    Function FindNormalRandomsTimeEx: Boolean;

    Var
      TempTime, Time1, Time2: LongInt;

    Begin
      TempTime := GetSystemTime;
      If TempTime - NormalRandomsTime > 6000 Then
      Begin
        NormalRandomsTime := GetSystemTime;
        Time1 := GetSystemTime;
        Result := FindNormalRandoms;
        Time2 := GetSystemTime;
        Status('Calling FNRandoms; Took '+IntToStr(Time2-Time1)+'.');
        Exit;
      End;

      If TempTime - FastRandomsTime > 2000 Then
      Begin
        FastRandomsTime := GetSystemTime;
        Time1 := GetSystemTime;
        Result := FindFastRandoms;
        Time2 := GetSystemTime;
        Status('Calling FFRandoms; Took '+IntToStr(Time2-Time1)+'.');
        Exit;
      End;

      If TempTime - FindTalkTime > 500 Then
      Begin
        FindTalkTime := GetSystemTime;
        Time1 := GetSystemTime;
        Result := FindTalk;
        Time2 := GetSystemTime;
        Status('Calling FT; Took '+IntToStr(Time2-Time1)+'.');
        Exit;
      End;
    End;



    procedure LoadDTM; //The name of the procedure.
    begin
      Bone := DTMFromString('78DA63F4646660C862644006678E1E613002D' +
           '220D1FF40C0E88CA906220B2381B42B504D1101352140353904D4' +
           'F801D5A4E057030056770A2F');

    end;





    {procedure BuryBones bury the bones }


    procedure BuryBones;
    var
    BonesBuriedResetEveryLoad : Integer;
    begin

    Repeat
      FindFastRandoms;

    If(Random(25) <= 15)then
      AntiBannage;
      FindNormalRandomsTimeEx;
    if(FindDTM(Bone, x, y,MIX1, MIY1, MIX2, MIY2 ))then
    Begin
      ChangeWorld;
      mouse(x,y,1,1,true);
      Buried:=Buried + 1;
      players[currentPlayer].integer2 := buried;
      BonesBuriedResetEveryLoad := BonesBuriedResetEveryLoad +1;
      xp:=xp + 4.5;

    end
    else
    Writeln('Cant find Bones in inventory..');
    Until(Not(FindDTM(Bone, x, y, MIX1, MIY1, MIX2, MIY2)));
    if BonesBuriedResetEveryLoad = 28 then
    begin
    Loads := Loads+1;
    BonesBuriedResetEveryLoad := 0;
    kotszProggy;
    ChangeWorld;
    end;
    end;

    {a function made by me and chris}
    function DotOnMM:Boolean;
    Begin
      Result := FindColorSpiralTolerance(x, y, Red, MMX1, MMY1, MMX2, MMY2, 5);
    End;


    {procedure GetBones to get bones from the ground }

    procedure GetBones;
    Var
      BoneColor : Integer;
      ix, iY, I, Tol : Integer;
      FoundBone : Boolean;
    begin
      MarkTime(BonePickup);
      BoneColor:= 12764106;
    Repeat
    if(not(LoggedIn))then
    Exit;

    Begin
      MarkTime(myMark);
      FindFastRandoms;
      Tol := 0;
    Repeat
      Tol := Tol + 1;
      If FindColorSpiralTolerance(iX, iY, BoneColor, MSX1, MSY1, MSX2, MSY2, Tol) Then

        Begin
         ChangeWorld;
          Writeln('Found the bone with color: '+inttostr(BoneColor));
          MMouse(iX, iY, 2, 2);
          If IsUpText('ake')Then
            FoundBone := True;;
          End;

        Until(Tol > 9) OR (FoundBone);

    If (FoundBone) Then
    Begin
      Case Random(2) Of
        0 : Begin
              ChangeWorld;
              Mouse(iX, iY, 1, 1, True);
              Flag;
              if(InvFull) then
              Begin
                writeln('inventory is full');
                BuryBones;
              End;
            End;

        1 : Begin
              ChangeWorld;
              Mouse(iX, iY, 1, 1, False);
              Wait(100+random(200));
              ChooseOption(x, y, 'Take');
              While FlagPresent Do
                FindFastRandoms;
                If(Random(25) <= 15)then
                Begin
                  AntiBannage;
                End;
              if(InvFull) then
              Begin
                writeln('inventory is full');
                BuryBones;
              End;
            End;
          End;
        End;
      End;

    If(TimeFromMark(myMark) >= 5000)then
      If DotOnMM AND Not InvFull AND (foundbone=false) then
      Begin
        ChangeWorld;
        Mouse(x, y, 1, 1, True);
        Flag;
        GetBones;
      End
      Else
        Writeln('inventory is full');
        BuryBones;
      Until(InvFull) OR (TimeFromMark(BonePickup) >= MaxLoadTime * 1000);
    End;





    {procedure setupclient does wat the names says   }
    procedure SetUpClient;
    begin
      wait(500+random(500));
      SetupSrl;
      declareplayers;
      wait(3000);
      ActivateClient;

    end;

    {MainLoop}


     begin
       KotszSignature;
       wait(3000)
       SetUpClient;
       LoadDTM;
       LoginPlayer;
       HighestAngle;
       MakeCompass('N');
    Repeat
      If not LoggedIn Or WeAreDead then break
        FindFastRandoms;
        FindNormalRandoms;
        GetBones;
        BuryBones;
        kotszProggy;
      if(Loads >= Players[CurrentPlayer].Integer1)then
     begin
        LogOut;
        NextPlayer(True);

     end;

    Until(False);
    end.
    ~Hermen

  6. #6
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    procedure BuryBones;
    begin

    Repeat
    FindFastRandoms;

    If(Random(25) <= 15)then
    AntiBannage;
    FindNormalRandomsTimeEx;
    if(FindDTM(Bone, x, y,MIX1, MIY1, MIX2, MIY2 ))then
    Begin
    ChangeWorld;
    mouse(x,y,1,1,true);
    Buried:=Buried + 1;
    players[currentPlayer].integer2 := buried;
    xp:=xp + 4.5;

    end
    else
    Writeln('Cant find Bones in inventory..');
    Until(Not(FindDTM(Bone, x, y, MIX1, MIY1, MIX2, MIY2)));
    Loads := Loads+1//this be where your messing it up, should be bonesburied := bonesburied+1
    kotszProggy;
    ChangeWorld;
    end;
    Originally Posted by YoHoJo
    I like hentai.

  7. #7
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ya? dude that was 1 of the first parts in teh script i tested it after evry update thats not wrong because then he will think if cant find bone bone +1
    ~Hermen

  8. #8
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    still not working theres somthing wrong with the getbones; function pls help srry for double post
    ~Hermen

  9. #9
    Join Date
    Aug 2007
    Posts
    282
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    have you tried what everyone else has said?

    because in getbones nothing possible could make it think that it has done a load

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. new rules( heres an idea)
    By sk8terbitu in forum News and General
    Replies: 11
    Last Post: 10-07-2008, 12:47 AM
  2. heres an awesome request for someone 1337.
    By d0pe b0i in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 06-09-2008, 06:22 AM
  3. Wanna make mills merchanting. Heres my secret.
    By Just Kidding in forum RuneScape News and General
    Replies: 23
    Last Post: 05-26-2006, 11:00 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
  •