Results 1 to 19 of 19

Thread: this isnt working i dont know why?

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

    Default this isnt working i dont know why?

    the bury function isnt working if (invfull) then it just says stopped sucessfully or somthing like that
    i tried to put the burr function after without if (invfull) in the getBones procedure but that isnt working to




    I CALL THE SCRIPT START BECAUSE ITS A START
    ~Hermen

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

    Default

    the bone bitmap has changed. rs updated it to a new one, you need to change it.

    you should alaways check for game engine updates first, not to mention searching fiorst...

    i wont report you for being a noob this time.

    here is the link i searched for (that you should have already found)
    http://www.villavu.com/forum/showthread.php?t=14089
    [IMG]http://farm3.static.flickr.com/2120/2052732965_348f3629d0_o.jpg[/IMG]

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

    Default

    RS Updated the bone bmp? Gonna have to change some scripts that I have =/


    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!

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

    Default

    Quote Originally Posted by lordgreggreg View Post
    the bone bitmap has changed. rs updated it to a new one, you need to change it.

    you should alaways check for game engine updates first, not to mention searching fiorst...

    i wont report you for being a noob this time.

    here is the link i searched for (that you should have already found)
    http://www.villavu.com/forum/showthread.php?t=14089
    i made my on dtm and bitmap of a bone today and i dont have a bitmap in my script


    but got any ideas to make a working bone procedure or can i use findobj?
    ~Hermen

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

    Default

    Quote Originally Posted by hermpie View Post
    i made my on dtm and bitmap of a bone today and i dont have a bitmap in my script
    oh, oh oh oh oh!

    sorry then,

    your program doesnt have a main loop. Itis nothing but functions, it wont do anything.

    edit: nvm, it doesn.. hmm, give me a sec
    [IMG]http://farm3.static.flickr.com/2120/2052732965_348f3629d0_o.jpg[/IMG]

  6. #6
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You never load the DTM..
    Edit: 200th post

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

    Default

    yeah, i noticed that too...
    in fact, i dont even see where your program begins...

    nor do i see you declare a bone dtm anywhere.

    i made a few logical changes for you
    SCAR Code:
    PROGRAM a;

      {procedure BuryBones bury the bones }
      {.include srl/srl.scar}

      PROCEDURE BuryBones;
      BEGIN

        IF (FindDTM(Bone, x, y, MIX1, MIY1, MIX2, MIY2)) THEN
          mouse(x, y, 584, 227, True);///i tried this to
        //mouse(x,y,1,2,true);

      END;


      {procedure GetBones to get bones from the ground }

      PROCEDURE GetBones;
      BEGIN
        IF (NOT (LoggedIn)) THEN
          Exit;
        REPEAT
          IF FindObj(x, y, 'one', BoneColor, 10) THEN
            Mouse(x, y, 2, 1, True);
          Flag;
        UNTIL (InvFull);
        IF (InvFull) THEN
        BEGIN
          writeln('inventory is full');
          BuryBones;
        END;
      END;


      {MainLoop}


    BEGIN
      SetUpClient;
      SetupSrl;
      GetBones;
      BuryBones;

    END.
    [IMG]http://farm3.static.flickr.com/2120/2052732965_348f3629d0_o.jpg[/IMG]

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

    Default

    thats not the fulls script

    ill post the full one at the top okay?
    ~Hermen

  9. #9
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Oh ok. That would make more sense.

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

    Default

    Quote Originally Posted by lordgreggreg View Post
    yeah, i noticed that too...
    in fact, i dont even see where your program begins...

    nor do i see you declare a bone dtm anywhere.

    i made a few logical changes for you
    SCAR Code:
    PROGRAM a;

      {procedure BuryBones bury the bones }
      {.include srl/srl.scar}

      PROCEDURE BuryBones;
      BEGIN

        IF (FindDTM(Bone, x, y, MIX1, MIY1, MIX2, MIY2)) THEN
          mouse(x, y, 584, 227, True);///i tried this to
        //mouse(x,y,1,2,true);

      END;


      {procedure GetBones to get bones from the ground }

      PROCEDURE GetBones;
      BEGIN
        IF (NOT (LoggedIn)) THEN
          Exit;
        REPEAT
          IF FindObj(x, y, 'one', BoneColor, 10) THEN
            Mouse(x, y, 2, 1, True);
          Flag;
        UNTIL (InvFull);
        IF (InvFull) THEN
        BEGIN
          writeln('inventory is full');
          BuryBones;
        END;
      END;


      {MainLoop}


    BEGIN
      SetUpClient;
      SetupSrl;
      GetBones;
      BuryBones;

    END.


    LOL THANKS BUT I HAD ALREADY THAT STUFF



    yeah but i needhelp!!! i still dont know why its not working


    i dont know if this is against the rules but i gonna post
    a account name with not 1 level up just to test it its at the right place dont change pass pls
    i trust you guys and its a noob account with all level 1
    name:magic4fun7
    pass:srlforumrocks
    ~Hermen

  11. #11
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok, you have a LoadDTM procedure, but you never call it in your main loop.. Thats all you need to do.

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

    Default

    dude i call for it in the burybones thingy or not? how to call for it

    oww i see
    ~Hermen

  13. #13
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You call for FindDTM in the burybones procedure. All that does is look for the DTM
    'bones"... BUT since you didnt call the LoadDTM procedure, its going to result as false (not found) every single time no matter what. Try this:

    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 = 6; // = player [NUMBER] + 1 =?  fill the ? in here
    NumberOfLoads = 10;//number of laod before logout and goning to next player
    BoneColor     = 14013914;
    Var
     StartPlayer, Loads, NormalRandomsTime, FastRandomsTime, FindTalkTime, MyMark, FallyBuildingColor : integer;
    var
    Bone :integer;
    
      Procedure DeclarePlayers;
      Begin
         StartPlayer := 1
         NumberOfPlayers( NumberOfUsers );
         CurrentPlayer := StartPlayer;
    
         Players[0].Name :='';
         Players[0].Pass :='';
         Players[0].Nick :='';
         Players[0].Loc :='StuffToDo';
         Players[0].Active:=True;
    
         Writeln( IntToStr ( NumberOfUsers ) + ' Players' );
      End;
    
    
     Procedure ChangeLocation(Location:string);
      begin
       Players[CurrentPlayer].Loc := Location;
      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 setupclient does wat the names says :P }
    
    procedure SetUpClient;
    begin
    Wait(1000);
    ActivateClient;
    wait(1000 + random(250));
    
    end;
    
    
    {procedure BuryBones bury the bones }
    
    
    procedure BuryBones;
    begin
    
    if(FindDTM(Bone, x, y,MIX1, MIY1, MIX2, MIY2 ))then
    mouse(x,y,584,227,true);
    
     end;
    
    
    
    {procedure GetBones to get bones from the ground }
    
    procedure GetBones;
    begin
    if(not(LoggedIn))then
    Exit;
    repeat
    if FindObj(x, y, 'one',BoneColor, 10) then Mouse(x, y, 2, 1, True);
    Flag;
    until (InvFull)
    if(InvFull) then
    writeln('inventory is full');
    BuryBones;
    end;
    
    
    
    
    
    
    {MainLoop}
    
    
    
    begin
    SetUpClient;
    LoadDTM;
    SetupSrl;
    GetBones;
    BuryBones;
    
    end.

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

    Default

    i know i posted my pass yet so you can try it but why is a noob leacher so noobish to steel a account without 1 levelup?

    and thanks for help i already fixed that but my account was stolen so i need take a otehr account to that place
    ~Hermen

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

    Default

    srry for double post
    isnt working
    can some1 help me on msn ?
    ~Hermen

  16. #16
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok, well if you figured it out why do you need my help on MSN? BTW: its_chris_917@hotmail.com
    Edit: its not working now? well, w/e, add me on MSN.

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

    Default

    ill help you out. plz dont double post
    [IMG]http://farm3.static.flickr.com/2120/2052732965_348f3629d0_o.jpg[/IMG]

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

    Default

    is it just me, or shouldnt it be
    SCAR Code:
    mouse(584, 227,0,0, True);
    cuz wouldnt ur way always click way off?
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


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

    Default

    i solved it already with help from chris and greg and i dont know what you mean


    this should beclosed
    ~Hermen

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. My radialwalk isnt working?
    By MetalancA in forum OSR Help
    Replies: 4
    Last Post: 01-10-2009, 05:23 AM
  2. My scar isnt working at all
    By MetalancA in forum OSR Help
    Replies: 2
    Last Post: 06-30-2008, 05:33 AM
  3. not sure why this isnt working
    By mat_de_b in forum OSR Help
    Replies: 6
    Last Post: 08-26-2007, 11:17 PM
  4. Why isnt this working?
    By dvdcrayola in forum OSR Help
    Replies: 7
    Last Post: 08-16-2007, 05:23 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
  •