Results 1 to 7 of 7

Thread: Fix My Script Please.

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

    Default Fix My Script Please.

    Hello, well i haven't scripted for a while and i need errors and anything wrong fixed in my script, so whoever fixes my script will get credits and a big thank you :P.

    My Script.
    SCAR Code:
    program AnchoPizza;
    {.Include SRL/SRL.Scar}
    ////////////////////////////////////////////////////////////////////////////////
    //////////////////////////////////ANCHO-PIZZA///////////////////////////////////
    //About this script: This script was made by U L T R A, what this script does///
    //is, it makes anchovie pizza's in a bank.//////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    //Requirements: 55 Cooking, Plain Pizza's, Anchovie's, Scar Setup Properly./////
    ////////////////////////////////////////////////////////////////////////////////
    /////////////////////////////////INSTRUCTIONS///////////////////////////////////
    //1. Position your charecter at varrock east bank with plain pizza's and////////
    //-- anchovies in your bank first tab.//////////////////////////////////////////
    //2. Set Up DeclarePlayers./////////////////////////////////////////////////////
    //3. Hit Run.///////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    //Why do this?: Well you can earn a profit, and cooking exp. Use the calculator/
    //included in this script to see how much and what you can earn.////////////////
    ////////////////////////////////////////////////////////////////////////////////
    //How to do this: Buy plain pizza's for market price+1gp, and buy anchovies/////
    //for maximum price.Use anchovies on plain pizza's to make anchovie pizza's.////
    //Sell anchovie pizza's only for medium price or up!!!We dont want the price////
    //to go down.///////////////////////////////////////////////////////////////////
    ///////////////////////////////////NOTES////////////////////////////////////////
    //1. The MTC (Main Control Tower) controls the whole code, the 'calculator'/////
    //-- option requires you to fill in the Calculator const, this option allows////
    //-- you to know how much profit you will make. The 'script' option allows//////
    //-- you to run the Script, this will not include the Calculator option in//////
    //-- any way. The 'both' option however, will let you use both options, this ///
    //-- option is recommended to be used.//////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    //2. The NickName is just 3-4 letters off your username, which are used to//////
    //-- find random events and try to answer when somebody is calling your name.///
    //-- So to set your nickname take 3-4 letters from your username without////////
    //-- spaces, if my username is Ilikepizza1243 then my nickname could be/////////
    //-- 'like', or 'pizz', or '1234', well you get it, right?//////////////////////
    ////////////////////////////////////////////////////////////////////////////////

    const//Main Control Tower :P.
      MCT = 'script';//'calculator', 'script', 'both'. SEE NOTE 1 (Line 20).

    const//ANCHO-PIZZA CALCULATOR.
      PlainPizzaPrice    = 283;//What price did you buy plain pizza's for?

      AnchoviePrice      = 131;//What price did you buy anchovie's for?
     
      PizzaCouldMake     = 1000;//The amount of pizza you are planning to make.

      AnchoviePizzaPrice = 487;//The price you will try and sell anchovie pizza's for.

    var//DO NOT TOUCH.
      RLN, Version : String;
      Ancho, PPizza, X, Y,: Integer;
     
     
    //SCRIPT PLAYER SETUP.
    procedure DeclarePlayers;
    begin
      CurrentPlayer := 0;//Leave this.
      HowManyPlayers  := 1;//Especially leave this.
      NumberOfPlayers( HowManyPlayers );//Just dont touch here.

      Players[0].Name  := '';//UserName.
      Players[0].Pass  := '';//PassWord.
      Players[0].Nick  := '';//NickName. SEE NOTE 2.
      Players[0].Active:= True;//LEAVE THIS.

    end;

    ////////////////////////////////////////////////////////////////////////////////
    //DO NOT TOUCH BELOW THIS LINE IF YOU ARE NOT AN ADVANCED, OR ATLEAST AN////////
    //INTERMIDIATE ONE./////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////

    procedure SafelyTerminate(ErrorMessage :String);
    begin
     ClearDebug;
     WriteLn(ErrorMessage);
     TerminateScrpt;
    end;

    procedure AnchoPizzaCalculator;
    begin
      if(MCT = 'calculator')then
      begin
        ClearDebug;
        WriteLn('////////////////////////////////////////////////////////////');
        WriteLn('Amount Of Money Spended: ' + IntToStr((PlainPizzaPrice+AnchoviePrice)*PizzaCouldMake) + '.');
       if((AnchoviePizzaPrice)*PizzaCouldMake-(PlainPizzaPrice+AnchoviePrice)*PizzaCouldMake>0)then WriteLn('Profit: ' + IntToStr(AnchoviePizzaPrice*PizzaCouldMake-(PlainPizzaPrice+AnchoviePrice)*PizzaCouldMake) + ' Positive.');
      end;
      if((AnchoviePizzaPrice)*PizzaCouldMake-(PlainPizzaPrice+AnchoviePrice)*PizzaCouldMake<0)then WriteLn('Profit: ' + IntToStr(AnchoviePizzaPrice*PizzaCouldMake-(PlainPizzaPrice+AnchoviePrice)*PizzaCouldMake) + ' Negative.');
        WriteLn('Amount Of Exp Can Be Earned: ' + IntToStr(PizzaCouldMake*39) + '.');
        WriteLn('////////////////////////////////////////////////////////////');
      if(MCT = 'both')then
      begin
        ClearDebug;
        WriteLn('////////////////////////////////////////////////////////////');
        WriteLn('Amount Of Money Spended: ' + IntToStr(PlainPizzaPrice+AnchoviePrice) + '.');
       if((AnchoviePizzaPrice)*PizzaCouldMake-(PlainPizzaPrice+AnchoviePrice)*PizzaCouldMake>0)then WriteLn('Profit: ' + IntToStr(AnchoviePizzaPrice-(PlainPizzaPrice+AnchoviePrice)) + ' Positive.');
       if((AnchoviePizzaPrice)*PizzaCouldMake-(PlainPizzaPrice+AnchoviePrice)*PizzaCouldMake<0)then WriteLn('Profit: ' + IntToStr(AnchoviePizzaPrice*PizzaCouldMake-(PlainPizzaPrice+AnchoviePrice)*PizzaCouldMake) + ' Negative.');
        WriteLn('Amount Of Exp Can Be Earned: ' + IntToStr(PizzaCouldMake*39) + '.');
        WriteLn('////////////////////////////////////////////////////////////');
        end;
         if(MCT = 'both')then
        repeat
          RLN := ReadLn('Finished Reading Debug? Answer: "yes"');
          Wait(100);
        until(RLN = 'yes');
        if(RLN = 'yes')then
        RLN := 'randomtexttochangerln:Plol';//:D.
    end;
     
    procedure Signature;
    begin
     if(MCT = 'calculator')then
      begin
      Wait(100);
      WriteLn('A');
      Wait(100);
      WriteLn('An');
      Wait(100);
      WriteLn('Anc');
      Wait(100);
      WriteLn('Anch');
      Wait(100);
      WriteLn('Ancho');
      Wait(100);
      WriteLn('Ancho-');
      Wait(100);
      WriteLn('Ancho-P');
      Wait(100);
      WriteLn('Ancho-Pi');
      Wait(100);
      WriteLn('Ancho-Piz');
      Wait(100);
      WriteLn('Ancho-Pizz');
      Wait(100);
      WriteLn('Ancho-Pizza');
      Wait(100);
      WriteLn('Ancho-Pizza');
      WriteLn('<>=--Calculator--=<>');
      Wait(100);
      ClearDebug;
      WriteLn('Ancho-Pizza');
      WriteLn('<>=--Calculator--=<>');
      WriteLn('By - U L T R A -');
      Wait(3000+random(200));
      end;
       if(MCT = 'script')then
      begin
        Wait(100);
      WriteLn('A');
      Wait(100);
      WriteLn('An');
      Wait(100);
      WriteLn('Anc');
      Wait(100);
      WriteLn('Anch');
      Wait(100);
      WriteLn('Ancho');
      Wait(100);
      WriteLn('Ancho-');
      Wait(100);
      WriteLn('Ancho-P');
      Wait(100);
      WriteLn('Ancho-Pi');
      Wait(100);
      WriteLn('Ancho-Piz');
      Wait(100);
      WriteLn('Ancho-Pizz');
      Wait(100);
      WriteLn('Ancho-Pizza');
      Wait(100);
      WriteLn('Ancho-Pizza');
      WriteLn('<>=--Script--=<>');
      Wait(100);
      ClearDebug;
      WriteLn('Ancho-Pizza');
      WriteLn('<>=--Script--=<>');
      WriteLn('By - U L T R A -');
      end;
       if(MCT = 'both')then
      begin
        Wait(100);
      WriteLn('A');
      Wait(100);
      WriteLn('An');
      Wait(100);
      WriteLn('Anc');
      Wait(100);
      WriteLn('Anch');
      Wait(100);
      WriteLn('Ancho');
      Wait(100);
      WriteLn('Ancho-');
      Wait(100);
      WriteLn('Ancho-P');
      Wait(100);
      WriteLn('Ancho-Pi');
      Wait(100);
      WriteLn('Ancho-Piz');
      Wait(100);
      WriteLn('Ancho-Pizz');
      Wait(100);
      WriteLn('Ancho-Pizza');
      Wait(100);
      WriteLn('Ancho-Pizza');
      WriteLn('<>=--Calculator&Script--=<>');
      Wait(100);
      ClearDebug;
      WriteLn('Ancho-Pizza');
      WriteLn('<>=--Calculator&Script--=<>');
      WriteLn('By - U L T R A -');
    end;
    end;

    procedure DeclareDTMs;
    begin

     Ancho := DTMFromString('78DA63DCC9C0C090C58002B66F1567F80FA41' +
           '981F83F1030EE0732CA18D000231209A441E6941350B31A486413' +
           '50731CD33D186AD6038962FC6A0022440D81');
           
     PPizza := DTMFromString('78DA63DCCCC0C090C38002BCFC7219FE03694' +
           '620FE0F048C3B808C0A0634C0884402E90340A288809AC3987661' +
           'A8590524B2F0AB0100EE450BD3');

    end;

    function CantMakePizza : Boolean;
    begin
     Result:=(not(FindDTM(PPizza, X, Y, MSX1, MSY1, MSX2, MSY2))or
             (not(FindDTM(Anchovie, X, Y, MSX1, MSY1, MSX2, MSY2))while BankScreen;
    end;

    procedure WithrawWPizzaIng;
    begin
     if(FindDTM(PPizza, X, Y, MSX1, MSY1, MSX2, MSY2))then
     begin
      Mouse(X, Y, 3, 3, False);
      Wait(200+random(300));
      ChooseOption('ll');
      Wait(2000+random(500));
      TypeSend('14');
      Wait(500+random(500));
     end;
     if(FindDTM(Anchovie, X, Y, MSX1, MSY1, MSX2, MSY2))then
     begin
      Mouse(X, Y, 3, 3, False);
      Wait(200+random(300));
      ChooseOption('ll');
      Wait(2000+random(500));
      TypeSend('14');
      Wait(500+random(500));
     end;
    end;

    function PizzaReady : Boolean;
    begin
     Result:=(not(FindDTM(Anchovie, X, Y, MIX1, MIY1, MIX2, MIY2))
    end;

    procedure MakePizza;
    var
    T, TS : Integer;
    begin
     T := 0;
     TS := 0;
     GameTab(1+random(13));
     Wait(2000+random(600));
     GameTab(4);
     if(not(BankScreen))then
     begin
     repeat
      OpenBank('vwb', True, True);
      T := T + 1;
     until(BankScreen)or(T >= 5);
      if(T = 5)then SafelyTerminate('Could not find the bank. Error.');
      end;
       if(CantMakePizza)then SafelyTerminate('We can''t find the plain pizza/anchovie dtm, can''t make pizza. Error.');
       WithrawPizzaIng;
      CloseBank;
        FindNormalRandoms;
         if(FindDTM(X, Y, PPizza, MIX1, MIY1, MIX2, MIY2))then
          begin
          Mouse(X, Y, 3, 3, False);
          Wait(100+random(300));
          ChooseOption('se');
          Wait(100+random(200));
          if(FindDTM(X, Y, Anchovie, MIX1, MIY1, MIX2, MIY2))then
           begin
           Mouse(X, Y, 3, 3, True);
           Wait(1000+random(600));
           Mouse(255, 417, 6, 6, False);
           Wait(500+random(200));
           ChooseOption('ll');
           end;
          while(not(PizzaReady))do
          begin
         FindNormalRandoms;
        Wait(300+random(500));
     end;
     repeat
      OpenBank('vwb', True, True);
      TS := TS + 1;
     until(BankScreen)or(TS >= 5);
      if(TS >= 5)then SafelyTerminate('Could not find the bank. Error.');
      Deposit(1, 28, True);
    end;

    procedure MainLoop;
    begin
     FindNormalRandoms;
     MakePizza;
    end;

    begin
      SetUpSRL;
      Signature;
      AnchoPizzaCalculator;
      if(MCT = 'script')or(MCT = 'both')then
      begin
       DeclareDTMs;
       DeclarePlayers;
       if(not(LoggedIn))then
       LogInPlayer;
       repeat
       MainPizzaLoop;
       until(CantMakePizza);
      end;
    end.

    Thanks.
    Help would be very appreciated.
    -Ultra.
    Woot woot.

  2. #2
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    well i got rid of the compileing errors
    SCAR Code:
    program AnchoPizza;
    {.Include SRL/SRL.Scar}
    ////////////////////////////////////////////////////////////////////////////////
    //////////////////////////////////ANCHO-PIZZA///////////////////////////////////
    //About this script: This script was made by U L T R A, what this script does///
    //is, it makes anchovie pizza's in a bank.//////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    //Requirements: 55 Cooking, Plain Pizza's, Anchovie's, Scar Setup Properly./////
    ////////////////////////////////////////////////////////////////////////////////
    /////////////////////////////////INSTRUCTIONS///////////////////////////////////
    //1. Position your charecter at varrock east bank with plain pizza's and////////
    //-- anchovies in your bank first tab.//////////////////////////////////////////
    //2. Set Up DeclarePlayers./////////////////////////////////////////////////////
    //3. Hit Run.///////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    //Why do this?: Well you can earn a profit, and cooking exp. Use the calculator/
    //included in this script to see how much and what you can earn.////////////////
    ////////////////////////////////////////////////////////////////////////////////
    //How to do this: Buy plain pizza's for market price+1gp, and buy anchovies/////
    //for maximum price.Use anchovies on plain pizza's to make anchovie pizza's.////
    //Sell anchovie pizza's only for medium price or up!!!We dont want the price////
    //to go down.///////////////////////////////////////////////////////////////////
    ///////////////////////////////////NOTES////////////////////////////////////////
    //1. The MTC (Main Control Tower) controls the whole code, the 'calculator'/////
    //-- option requires you to fill in the Calculator const, this option allows////
    //-- you to know how much profit you will make. The 'script' option allows//////
    //-- you to run the Script, this will not include the Calculator option in//////
    //-- any way. The 'both' option however, will let you use both options, this ///
    //-- option is recommended to be used.//////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    //2. The NickName is just 3-4 letters off your username, which are used to//////
    //-- find random events and try to answer when somebody is calling your name.///
    //-- So to set your nickname take 3-4 letters from your username without////////
    //-- spaces, if my username is Ilikepizza1243 then my nickname could be/////////
    //-- 'like', or 'pizz', or '1234', well you get it, right?//////////////////////
    ////////////////////////////////////////////////////////////////////////////////

    const//Main Control Tower :P.
      MCT = 'script';//'calculator', 'script', 'both'. SEE NOTE 1 (Line 20).

    const//ANCHO-PIZZA CALCULATOR.
      PlainPizzaPrice    = 283;//What price did you buy plain pizza's for?

      AnchoviePrice      = 131;//What price did you buy anchovie's for?

      PizzaCouldMake     = 1000;//The amount of pizza you are planning to make.

      AnchoviePizzaPrice = 487;//The price you will try and sell anchovie pizza's for.

    var//DO NOT TOUCH.
      RLN, Version : String;
      Ancho, PPizza, X, Y: Integer;


    //SCRIPT PLAYER SETUP.
    procedure DeclarePlayers;
    begin
      CurrentPlayer := 0;//Leave this.
      HowManyPlayers  := 1;//Especially leave this.
      NumberOfPlayers( HowManyPlayers );//Just dont touch here.

      Players[0].Name  := '';//UserName.
      Players[0].Pass  := '';//PassWord.
      Players[0].Nick  := '';//NickName. SEE NOTE 2.
      Players[0].Active:= True;//LEAVE THIS.

    end;

    ////////////////////////////////////////////////////////////////////////////////
    //DO NOT TOUCH BELOW THIS LINE IF YOU ARE NOT AN ADVANCED, OR ATLEAST AN////////
    //INTERMIDIATE ONE./////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////

    procedure SafelyTerminate(ErrorMessage :String);
    begin
     ClearDebug;
     WriteLn(ErrorMessage);
     TerminateScript;
    end;

    procedure AnchoPizzaCalculator;
    begin
      if(MCT = 'calculator')then
      begin
        ClearDebug;
        WriteLn('////////////////////////////////////////////////////////////');
        WriteLn('Amount Of Money Spended: ' + IntToStr((PlainPizzaPrice+AnchoviePrice)*PizzaCouldMake) + '.');
       if((AnchoviePizzaPrice)*PizzaCouldMake-(PlainPizzaPrice+AnchoviePrice)*PizzaCouldMake>0)then WriteLn('Profit: ' + IntToStr(AnchoviePizzaPrice*PizzaCouldMake-(PlainPizzaPrice+AnchoviePrice)*PizzaCouldMake) + ' Positive.');
      end;
      if((AnchoviePizzaPrice)*PizzaCouldMake-(PlainPizzaPrice+AnchoviePrice)*PizzaCouldMake<0)then WriteLn('Profit: ' + IntToStr(AnchoviePizzaPrice*PizzaCouldMake-(PlainPizzaPrice+AnchoviePrice)*PizzaCouldMake) + ' Negative.');
        WriteLn('Amount Of Exp Can Be Earned: ' + IntToStr(PizzaCouldMake*39) + '.');
        WriteLn('////////////////////////////////////////////////////////////');
      if(MCT = 'both')then
      begin
        ClearDebug;
        WriteLn('////////////////////////////////////////////////////////////');
        WriteLn('Amount Of Money Spended: ' + IntToStr(PlainPizzaPrice+AnchoviePrice) + '.');
       if((AnchoviePizzaPrice)*PizzaCouldMake-(PlainPizzaPrice+AnchoviePrice)*PizzaCouldMake>0)then WriteLn('Profit: ' + IntToStr(AnchoviePizzaPrice-(PlainPizzaPrice+AnchoviePrice)) + ' Positive.');
       if((AnchoviePizzaPrice)*PizzaCouldMake-(PlainPizzaPrice+AnchoviePrice)*PizzaCouldMake<0)then WriteLn('Profit: ' + IntToStr(AnchoviePizzaPrice*PizzaCouldMake-(PlainPizzaPrice+AnchoviePrice)*PizzaCouldMake) + ' Negative.');
        WriteLn('Amount Of Exp Can Be Earned: ' + IntToStr(PizzaCouldMake*39) + '.');
        WriteLn('////////////////////////////////////////////////////////////');
        end;
         if(MCT = 'both')then
        repeat
          RLN := ReadLn('Finished Reading Debug? Answer: "yes"');
          Wait(100);
        until(RLN = 'yes');
        if(RLN = 'yes')then
        RLN := 'randomtexttochangerln:Plol';//:D.
    end;

    procedure Signature;
    begin
     if(MCT = 'calculator')then
      begin
      Wait(100);
      WriteLn('A');
      Wait(100);
      WriteLn('An');
      Wait(100);
      WriteLn('Anc');
      Wait(100);
      WriteLn('Anch');
      Wait(100);
      WriteLn('Ancho');
      Wait(100);
      WriteLn('Ancho-');
      Wait(100);
      WriteLn('Ancho-P');
      Wait(100);
      WriteLn('Ancho-Pi');
      Wait(100);
      WriteLn('Ancho-Piz');
      Wait(100);
      WriteLn('Ancho-Pizz');
      Wait(100);
      WriteLn('Ancho-Pizza');
      Wait(100);
      WriteLn('Ancho-Pizza');
      WriteLn('<>=--Calculator--=<>');
      Wait(100);
      ClearDebug;
      WriteLn('Ancho-Pizza');
      WriteLn('<>=--Calculator--=<>');
      WriteLn('By - U L T R A -');
      Wait(3000+random(200));
      end;
       if(MCT = 'script')then
      begin
        Wait(100);
      WriteLn('A');
      Wait(100);
      WriteLn('An');
      Wait(100);
      WriteLn('Anc');
      Wait(100);
      WriteLn('Anch');
      Wait(100);
      WriteLn('Ancho');
      Wait(100);
      WriteLn('Ancho-');
      Wait(100);
      WriteLn('Ancho-P');
      Wait(100);
      WriteLn('Ancho-Pi');
      Wait(100);
      WriteLn('Ancho-Piz');
      Wait(100);
      WriteLn('Ancho-Pizz');
      Wait(100);
      WriteLn('Ancho-Pizza');
      Wait(100);
      WriteLn('Ancho-Pizza');
      WriteLn('<>=--Script--=<>');
      Wait(100);
      ClearDebug;
      WriteLn('Ancho-Pizza');
      WriteLn('<>=--Script--=<>');
      WriteLn('By - U L T R A -');
      end;
       if(MCT = 'both')then
      begin
        Wait(100);
      WriteLn('A');
      Wait(100);
      WriteLn('An');
      Wait(100);
      WriteLn('Anc');
      Wait(100);
      WriteLn('Anch');
      Wait(100);
      WriteLn('Ancho');
      Wait(100);
      WriteLn('Ancho-');
      Wait(100);
      WriteLn('Ancho-P');
      Wait(100);
      WriteLn('Ancho-Pi');
      Wait(100);
      WriteLn('Ancho-Piz');
      Wait(100);
      WriteLn('Ancho-Pizz');
      Wait(100);
      WriteLn('Ancho-Pizza');
      Wait(100);
      WriteLn('Ancho-Pizza');
      WriteLn('<>=--Calculator&Script--=<>');
      Wait(100);
      ClearDebug;
      WriteLn('Ancho-Pizza');
      WriteLn('<>=--Calculator&Script--=<>');
      WriteLn('By - U L T R A -');
    end;
    end;

    procedure DeclareDTMs;
    begin

     Ancho := DTMFromString('78DA63DCC9C0C090C58002B66F1567F80FA41' +
           '981F83F1030EE0732CA18D000231209A441E6941350B31A486413' +
           '50731CD33D186AD6038962FC6A0022440D81');

     PPizza := DTMFromString('78DA63DCCCC0C090C38002BCFC7219FE03694' +
           '620FE0F048C3B808C0A0634C0884402E90340A288809AC3987661' +
           'A8590524B2F0AB0100EE450BD3');

    end;

    function CantMakePizza : Boolean;
    begin
     Result:=(not(FindDTM(PPizza, X, Y, MSX1, MSY1, MSX2, MSY2)))or
             (not(FindDTM(Ancho, X, Y, MSX1, MSY1, MSX2, MSY2)));
    end;

    procedure WithrawPizzaIng;
    begin
     if(FindDTM(PPizza, X, Y, MSX1, MSY1, MSX2, MSY2))then
     begin
      Mouse(X, Y, 3, 3, False);
      Wait(200+random(300));
      ChooseOption('ll');
      Wait(2000+random(500));
      TypeSend('14');
      Wait(500+random(500));
     end;
     if(FindDTM(Ancho, X, Y, MSX1, MSY1, MSX2, MSY2))then
     begin
      Mouse(X, Y, 3, 3, False);
      Wait(200+random(300));
      ChooseOption('ll');
      Wait(2000+random(500));
      TypeSend('14');
      Wait(500+random(500));
     end;
    end;

    function PizzaReady : Boolean;
    begin
     Result:=(not(FindDTM(Ancho, X, Y, MIX1, MIY1, MIX2, MIY2)));
    end;

    procedure MakePizza;
    var
    T, TS : Integer;
    begin
     T := 0;
     TS := 0;
     GameTab(1+random(13));
     Wait(2000+random(600));
     GameTab(4);
     if(not(BankScreen))then
     begin
     repeat
      OpenBank('vwb', True, True);
      T := T + 1;
     until(BankScreen)or(T >= 5);
      if(T = 5)then SafelyTerminate('Could not find the bank. Error.');
      end;
       if(CantMakePizza)then SafelyTerminate('We can''t find the plain pizza/anchovie dtm, can''t make pizza. Error.');
       WithrawPizzaIng;
      CloseBank;
        FindNormalRandoms;
         if(FindDTM(X, Y, PPizza, MIX1, MIY1, MIX2, MIY2))then
          begin
          Mouse(X, Y, 3, 3, False);
          Wait(100+random(300));
          ChooseOption('se');
          Wait(100+random(200));
          if(FindDTM(X, Y, Ancho, MIX1, MIY1, MIX2, MIY2))then
           begin
           Mouse(X, Y, 3, 3, True);
           Wait(1000+random(600));
           Mouse(255, 417, 6, 6, False);
           Wait(500+random(200));
           ChooseOption('ll');
           end;
          while(not(PizzaReady))do
          begin
         FindNormalRandoms;
        Wait(300+random(500));
     end;
     repeat
      OpenBank('vwb', True, True);
      TS := TS + 1;
     until(BankScreen)or(TS >= 5);
      if(TS >= 5)then SafelyTerminate('Could not find the bank. Error.');
      Deposit(1, 28, True);
    end;
    end;

    procedure MainLoop;
    begin
     FindNormalRandoms;
     MakePizza;
    end;

    begin
      SetUpSRL;
      Signature;
      AnchoPizzaCalculator;
      if(MCT = 'script')or(MCT = 'both')then
      begin
       DeclareDTMs;
       DeclarePlayers;
       if(not(LoggedIn))then
       LogInPlayer;
       repeat
       MainLoop;
       until(CantMakePizza);
      end;
    end.


    ~shut

  3. #3
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thank You!
    Woot woot.

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

    Default

    [useless comment] Dude, if you used proper standards, it would be much easier for you to fix errors and stuff. Trust me [/useless comment]

    And a suggestion is to decrease the writeLn's and use some sort of for 1 := 1 to 10 do.


    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!

  5. #5
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  6. #6
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Its not an old script, i just started it . But i haven't scripted in a long time, so my scripting knowledge is old :P.
    Woot woot.

  7. #7
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

Thread Information

Users Browsing this Thread

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

Posting Permissions

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