Results 1 to 8 of 8

Thread: i really dont know what to do

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

    Default i really dont know what to do

    i get this error

    Line 313: [Error] (15809:8): Invalid number of parameters in script

    its something with antiban

    script here
    ~Hermen

  2. #2
    Join Date
    Jul 2007
    Location
    UK
    Posts
    307
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    You included invalid amount of params a parameter is the variables that is asked for when u use a function eg Move(X, Y); X and y is a parameter

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

    Default

    i dont got any X,Y in my antiban procedure func
    i already knew that but that the point i dont got any parameters in my antiban;
    ~Hermen

  4. #4
    Join Date
    Jul 2007
    Location
    UK
    Posts
    307
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Here:
    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\\\\\\\\\\\\\\\\\\\\\\
    ///////////////////////////////////////////////////        \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    //////////////////////////////////////////////////          \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    /////////////////////////////////////////////////instructions\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\                                                               /////////////////////
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ////////////////////////                                                              \\\\\\\\\\\\\\\\\\\\\\
    ///////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    ///////////////////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\




    program KotszPrayerLeveler;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/misc/trade.scar}

    //setup
    const
    NumberOfUsers = 1; // = player [NUMBER] + 1 =?  fill the ? in here
    StartingPlayer = 0;//Player to start
    BoneColor     = 14013914;
    HowMuchAntiBan=  5;//(recommend)let this.lesser number is lesser antiban 1-5 (choice of numbers)

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

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

         Players[0].Name :='mininghotxp';
         Players[0].Pass :='honden';
         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;



    //antiban procedure maked by me i am so good :D\\

    procedure AntiBan(mins: Integer);
    var
      AntiBanCase: Integer;
    begin
      if ((TimeFromMark(PickUpMouseMark) / 1000) / 60 >= mins) then
        AntiBanCase := Random(HowMuchAntiBan); (*1 over so it will do nothing sometimes*)
      case AntiBanCase of
        1: HoverSkill('Prayer', False);
        2: PickUpMouse;
        3: DragItem(1, 1 + Random(18));
        4: GameTab(1 + Random(12));
        5: DoEmote(1 + Random(20));

      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                                      \\\\')

    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('    if you used this script                       ');
      Writeln('////////////////////report\\\\\\\\\\\\\\\\\\\\\\\\');
      Writeln('    Worked For : ' + ScriptTime2(2)                );
      Writeln('    Did ' + IntToStr(Loads) + ' Loads             ');
      Writeln(inttostr(players[currentplayer].integer1)+  ' bones buried ');
      Writeln(             +  Floattostr(Xp)+ 'xp gained '           );
      Writeln('         ');
      SRLRandomsReport;
    end;


    {function findfast randoms credits to WT-Fawaki }

    Function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      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

    if(FindDTM(Bone, x, y,MIX1, MIY1, MIX2, MIY2 ))then
    Begin
    mouse(x,y,1,1,true);
    Wait(1000+random(500));
    Buried:=Buried + 1;
    players[currentPlayer].integer1 := buried;
    xp:=xp + 4.5;

    end
    else
    Writeln('Cant find Bones.');
    kotszProggy;
    Until(Not(FindDTM(Bone, x, y, MIX1, MIY1, MIX2, MIY2)));

    end;




    {procedure GetBones to get bones from the ground }

    procedure GetBones;
    begin
    if(not(LoggedIn))then
    Exit;

    repeat

    if FindObj(x, y, 'one',BoneColor, 50) then Mouse(x, y, 1, 1, True);

    Flag;

    until (InvFull)
    if(InvFull) then
    writeln('inventory is full');
    BuryBones;

    end;



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


    end;

    {MainLoop}

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

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

    Default

    but why that (60) after it? thats was wrong? lol thanks
    dude compile it still not working i did knew that
    look at this Line 324: [Error] (15820:1): Identifier expected in script
    its somthing with the main loop i dunno what
    ~Hermen

  6. #6
    Join Date
    Jul 2007
    Location
    UK
    Posts
    307
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    yeah but be careful its part of the Anti Ban!

    I take no Responsibility!

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

    Default

    read my post before your post and is the antiban okay you think? the otehr functions doesnt work i think scar is to up to date i got scar 3.11 and srl 3.81

    what does the (60) means? after antiban
    ~Hermen

  8. #8
    Join Date
    Jul 2007
    Location
    UK
    Posts
    307
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    The (60) means 60 minutes i think because it was under the parameter "min" (minutes)

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. i dont get it
    By sjlou in forum OSR Help
    Replies: 4
    Last Post: 09-13-2007, 04:53 PM
  2. eh i dont get it...
    By yamaha317 in forum OSR Help
    Replies: 7
    Last Post: 07-13-2007, 01:05 AM
  3. I dont get it...
    By grimey in forum OSR Help
    Replies: 2
    Last Post: 06-23-2007, 04:14 AM

Posting Permissions

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