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.