Results 1 to 3 of 3

Thread: Having problems with my first script

  1. #1
    Join Date
    Oct 2007
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Having problems with my first script

    I need an expert scripter to take a look at my script....i keep gettin identifier expected in script.....idk...if someone could look at it and tell me what is wrong.....plz email me @ darkfire355@hotmail.com ......this script is ment to fletch ANY logs into longbow (u) if someone could send me the script back fixed....id appreciate it...or if someone could just tell me what is wrong with it through email....thatd be cool too....thx guys





    PS......I used Abbyslord's fletcher as a guide....so i just dont wanna take credit for it...and i didnt copy it....thx

  2. #2
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    I'm sorry to say, but you've entirely missed the scripting basics. You need to go and read over a few more tutorials, as there are msitakes on just about every line (atleast 1 in every procedure) including putting begins in the wrong place and Const's everywhere. I'll try to go through it and try to get it running, but I can't promise anything.
    Edit: Went through it and fixed it up a bit. It compiles now, but not sure whether or not it will work as I don't have members.
    Edit2: >< didn't know you were fixing it up Negaal otherwise I wouldn't have bothered. Ahwell

  3. #3
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You're worst srcipter i'v ever saw

    I just made it compiling, half of procedures you called didnt even existed, and woah...way too off...look from other scripts at the beginning, i didn't sayd you copy paste them, but look construction, at least I did it at beginning

    SCAR Code:
    program LongbowFletcher;

    {.include srl/srl.scar}

    Var
      x,y,knife,Log,Bow: integer;


    const
      BankCol = 2116441; //color of bank booth counter
      Loads = 10; //how many loads to do
      KindOfLog = ('Norm'); //first 4 letters of log
      BankCounter = 2116441;
     //=========================================================================================================================================================
     procedure FindColors;
     begin
      FindColor(x,y,BankCounter,0,0,385,345);
     end;
     //==========================================================================================================================================================
    procedure LoadDTMs;
    begin
     knife := BitmapFromString(54, 42, 'beNrtl08KgkAYxZ110BmkdYt' +
           'q67JlB+gEIiKDiIgWEVKtjCgqKQxKCFp1yF6OuHEdPGIe7wA/3jff' +
           'nzGMUb9naGlpaf2JBDmetG3fccjxKkIxME1CPGJCocAaExIGrts43' +
           '2ZkhCL0vMZlflZ4VISRlMoIkBAv8X1lBPi8XvjmoZgHAYwAKcegWI' +
           'QhjACr+jKO6GUUgRD1LQ57Qrw0jkGIAFHfd/ngJMQLRH3vpyMh3mq' +
           'WoL5oEGw62hfI3CBTqwO/bkW14EjxGkhyQjnpsvG18ARtgAqP7Qhs' +
           '43ESUhaXH68e0dV2I/zEfYXdsdusseZoCcGWpSlld9TCCsYlQxsgh' +
           'BuVOUDVKdx4Wlo/0dgaMmJ9AElzg04=');
           
           


     Log := BitmapFromString(43, 36, 'beNqtWO9rE0EQbT75XQqKWokio' +
           'khDS0JLWpXUYk0Npq1BLRUtir9AoVBQREStKCIi4ldBEEEEEcT/0B' +
           'deOpnO7Oyd6DGE3jZ3783bN7O7adZGgmuuWTO3Osy/5mcn9Tj/MI+' +
           '0psb1LR7hU3xkoVVHjBRdBjo/niRsWCHarQag8cmIoM2/IiZJAhl0' +
           'vpmRVEAGhYCH5ncylPTUeFkkfY+VZFUm90I7GW1lFvRI/p1lDFOSN' +
           'u0nESX+fy8zBRqOuRsCml7RVdkZxZqICbXshOsPnm4keabI9BEXpg' +
           '8tnTxy5cyx6+0TNzvjGPHiS/r8JFDSA5ETUmpUOs3DvdbRtbPHH/Q' +
           'mEfeWJ0hgolottJOZdGQtiQfC2rjdrT1cm9pcbSA2LtUR4FCeQNHk' +
           'VqAnUoOwkBeZUmeMABdYAAW6hNDIE9AeyKPf7+zb6O7fXDnw/MbM0' +
           '/Xm42vTgkJojJjAIAmMje7KW7GMq59cPvjrwzICBDQHgcaICQySAE' +
           'TTImS6QaxDheiIrVuzJEAIQpOVCRLAxBGdBLT5zbrpuSljDAlgFsh' +
           'BB0Z8QBxUAUxSxgO+L+0s9iGBR72xV3dOJREZ1IcGgD+p/z94YFBi' +
           'QkA4eBrEhSdRfYCG+EBHW7g4M9qu785zCGqwAg0ZGl0y1dPNomPnY' +
           'YADbkFGxjNSJJvq+vwewPENeD8KAcFKZGB+2WyBpeF0bdKiZEhlkh' +
           'xIQD4573cX9/58v/TtTefzizZfCHS8kHASES5DSyQEvCdl3dHG27p' +
           'aheYg8OXlIt+MdgRW0n/Yb6UNmm6ga4T2yBDA1lSKThSA4L8/rnx/' +
           'e0EIcArQEn3biaC1P1kXSQIoQLMhwddgACjw41336+vzIID0jRWlK' +
           '3poQWe94JYEMF+RAhRBmxCZwgMggFmgCTMEkn2J6AjMDqBNV9SNSK' +
           '+G207oL0AAwhSAwKdn57wCviX6xAUaDQFrKAn4oov6ACw3WAdXG6j' +
           'KPAHdDMX2Zs+g0y/aXCU2IbofmvarO7BH1JGEgQGibbB6cLgoQwER' +
           'QZb+CNQfJMvviGRw+yUDDmLCCDfafkeXK4GCzQnLKo/rD86ZE4o+l' +
           '/lDk9PEpvxXB7GkIH5XnNwvScfW85s/8pQ8oPmjsV4dImLRLxWZ3C' +
           'MCeiXyZyW/V8xTKv9zgT+aRRzMuDFtBFrS2HN/AJPyok4=');
           
           
           
     Bow := BitmapFromString(49, 36, 'beNqtmM1KHEEQx7ePitF1dx9gn' +
           '0Bc4sEPkI1KWJSAGAQRRAURRULIIYcchBw8CB6EQA4BTz6pNVuxqK' +
           '2uquma3aFZpnt6pn9T9Z+q6m216Pi0sbK7NcBzOIE2Gq7hCY2IBhP' +
           'wLutq7YjaWsZhXRXYgjZ/IxqBLr8q7v08/AjNR3JQ4V6LXzUpTSMq' +
           'fiMMwgPhF1sBUrLA8ATfTp0z2l6DxicjEgdDJGxlVkpP58tjqmQhq' +
           'V3rwEVzW0WQKqrb0YfHMx2s8CBLooNyx5H1irVUwfw8XCKw/b1NHy' +
           'CkzNoR9Vjt94HkaH2eg9XaJLpKo6MiudhZmARL0UVJz6Kba6zcXBz' +
           's73VXWEx1nDAdj1HYzWUW0gaBkfLHI63GAkMk6oJWuVx96U7O+a8u' +
           'geREKidmiueXYFjqAg/+uerkaicq/7tuLCEHaTSY+/V1KfddCVIoX' +
           'EQN9fq956cenoAw14RcaYvHpAJFvdz1nGClGopbCYqcqC2ISmRSov' +
           'rxZfHfTdexlaMo4CGkmXozfTtYzMNUXiNN7ZSiOe9rVWEBP8Da+nA' +
           'mSLkmeWnEk87zZadx2VBIFQxcla5KQjq3lSohJ2ZGkcB9hCRURI+q' +
           'rYFnHqweTtvCd1W1prk+WrpYKqqtkCEj57lP5YlGJEQiI0c8mH6ft' +
           'GtFXl7colk4gJc69S8x3R+3uaHUeklIKFeU5Sba/nBxYtd+xyr3IZ' +
           'WVztTdSrRWj1ipoqIiQd2QWjfm3plCP0o6RiraHKkit8aFWegVRML' +
           'lEYzg7ZiTqOwUSLSz86tQYRDfPupVtUJAKuTBRhLCHW5h9s+NIxYt' +
           'QRqvldBKqCh/UStGTbMTFPxoE+KBFdUJzR5eG9AcL1OaQyOUeyqUZ' +
           'AHY/x5JvSW7zgb/cU38R8SsR+eqDVG6vEv/aHkR8g3yLiIh');
           
           
    end;
    //=====================================================================================================================================================
    procedure OpenAndBank;
    begin
    repeat
      If FindColor(x,y,BankCounter,0,0,385,345) then
        MoveMouseSmooth(x,y)
      until (IsUpText('boot'));
      if IsUpText('boot')then
          wait(300+random(200));
          ClickMouse(x,y,False)
          wait(300+random(100));
          ChooseOption('uick')
          Flag;
      If (FindDTM(Log,x,y,0,0,-314,-132)) then
          Mouse(x,y,-314,-132,False);
          ChooseOption('All');
        Repeat
           If (FindDTM(Log,x,y,0,0,88,-113)) then
           MoveMouseSmooth(x,y)
           Until(IsUpText(KindOfLog));
           If IsUpText(KindOfLog) then
           Mouse(x,y,5,5,False);
           wait(200+random(100));
           ChooseOption('All');
           Closebank;
         end;
         
         
         //==================================================================================================================================
         Procedure Fletch;
         begin
         
         
          if findDTM(Knife,x,y,0,0,56,124) then
            Mouse(x,y,2,2,True);
          if FindDTM(Log,x,y,0,0,153,88) then
            Mouse(x,y,2,2,True);
            wait(1000+random(200));
            Mouse(0,0,-155,-76,False)
            ChooseOption('ake x');
            wait(500+random(200));
            TypeSend('99')
            wait(50000+random(2000));
         end;
         //=========================================================================================================================
         procedure ProgressReport;
         begin
         ClearDebug;
             WriteLn('{}-------------------------------------------------------------{}');
             WriteLn('-------------------->Darkfire355LongbowFletch<--------------------');
             WriteLn('  Script ran for: ' +TimeRunning);
             WriteLn('  Script did : ' +IntToStr(Loads) + ' Loads ' + '    ');
            // WriteLn('  Script has made approx. ' + IntToStr(w) + ' Longbows ' + '    ');
             WriteLn('  Gained some exp');
             WriteLn('{}-------------------------------------------------------------{}');
    end;
    //--------------------------------------------------------------------------------------------------------------------

    begin
    //Here you need to put all the procedures what you want to do, this is the mainloop
    end.

    Note:
    This doesnt do anything:
    SCAR Code:
    procedure FindColors;
     begin
      FindColor(x,y,BankCounter,0,0,385,345);
     end;
    Better do
    SCAR Code:
    procedure FindColors;
     begin
      if FindColor(x,y,BankCounter,0,0,385,345) then
        BankCol := GetColor(x,y);
     end;

    Bitmaps and such you have are way too big, good maximum is 64 pixels...this wont make you lagg, bigger of this usually does...See 8 * 8, or 2 * 32 etc...just dont make them big
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Help with a few problems in my script
    By Warflight in forum OSR Help
    Replies: 3
    Last Post: 01-25-2009, 09:58 AM
  2. First Script(Problems)
    By earthgas in forum First Scripts
    Replies: 7
    Last Post: 12-12-2008, 10:33 PM
  3. Problems with a script.:(
    By h4lofr3ak in forum OSR Help
    Replies: 19
    Last Post: 02-09-2008, 10:59 AM
  4. script problems
    By knassyl in forum OSR Help
    Replies: 5
    Last Post: 07-01-2007, 04:53 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
  •