Pixelate
2008-09-15 17:50:09
Close ME!
Could not find original script (lost on phone somewhere). Sorry for wasting your time
-Pixelate-
——————————————————
<!– END TEMPLATE: formanswers –>
Could not find original script (lost on phone somewhere). Sorry for wasting your time
program FallyEastCannonBallMaker;
{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{.include srl/srl/skill/smithing.scar}
Var
BankDTM, SteelBar, MouldDTM: Integer;
x,y: Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Pin := '0000'
end;
function FindMyLocation: string;
var
sx, sy: Integer;
begin
if not LoggedIn then Exit;
SymbolAccuracy := 0.5;
If FindSymbol(sx,sy,'Furnace') then
begin
Result:='AtFurnace'
Writeln('At Furnace')
end else
if FindSymbol(sx,sy,'Bank') then
begin
Result := 'AtBank'
Writeln('We are at Bank');
end else
begin
Writeln('Lost... Could not find location, Logging out.');
Logout;
Exit;
end;
SymbolAccuracy := 0.8;
end;
procedure OpenBank2;
begin
if Not LoggedIn then Exit;
FFlag(0);
Writeln('Opening Bank')
OpenBankFast('Feb');
Writeln('Bank Opened')
end;
procedure WalkToFurnace;
begin
if Not LoggedIn then Exit;
MakeCompass('N');
SetRun(True);
GameTab(4)
RadialRoadWalk(FindFallyRoadColor, 277, 346, 64, 2, 0);
FFlag(0);
RadialRoadWalk(FindFallyRoadColor, 277, 346, 64, 2, 0);
FFlag(0);
SymbolAccuracy := 0.5;
if FindSymbol(x, y, 'Furnace') then
begin
Writeln('Found the Furnace Symbol');
Mouse(x,y,5,5,True);
FFlag(0);
SymbolAccuracy := 0.8;
Writeln('Entering Furnace');
end else
begin
Writeln('Could not find the Furnace ');
Logout;
end;
end;
procedure LoadDTMs(DTM: string);
begin
if not LoggedIn then Exit;
Case (DTM) of
'BankDTM' :BankDTM := DTMFromString('78DA636C64626088604001FFFEFD636060042' +
'386FF40C0D805549300916385AAF9F387094C3342F98C2073E209' +
'A82925424D2D6135001FB8135B');
'SteelBar' :SteelBar := DTMFromString('78DA63CC616260E06264400681DEDE0CFF813' +
'448F43F1030C603D570A3AA81C8C248209D06542344404D11508D' +
'000135554035ECF8D500007300085B');
'MouldDTM' :MouldDTM := DTMFromString('78DA637462626078C280024A7373192E27333' +
'03002D9FF8180D10CA8E631031A60442281B42D50CD7B026AFC80' +
'6A9E1250E30554F391801A53A09AB7F8D5000018EF0D9A');
end;
end;
procedure WalkToBank;
begin
if not LoggedIn then Exit;
begin
MakeCompass('N');
SetRun(True);
SymbolAccuracy := 0.5;
RadialWalk(FindFallyRoadColor, 45, 105, 70, 2, 1);
FFlag(0);
RadialWalk(FindFallyRoadColor, 95, 158, 66, 2, 0);
FFlag(0);
if FindSymbol(x, y, 'Bank') then
begin
Writeln('Found the Bank Symbol');
Mouse(x,y,5,5,True);
FFlag(0);
Writeln('Entering Bank');
end else
begin
Writeln('Could not find the Bank ');
Logout;
end;
SymbolAccuracy := 0.8;
end;
end;
procedure FindDaBank;
begin
if not LoggedIn then Exit;
LoadDTMs('BankDTM');
if DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 5, 5, true);
WriteLn('Found The BankBooth');
FreeDTM(BankDTM);
end else
begin
Writeln('Not Found Bank...')
end;
end;
procedure WithdrawSteelBars;
begin
if not LoggedIn then Exit;
LoadDTMs('SteelBar');
if FindDTM(SteelBar, x, y, MSx1, MSy1, MSx2, MSy2) then
begin
Wait(500+random(150));
Mouse(x, y, 3, 3, False);
Wait(800 +random(100));
ChooseOption('All');
end else
begin
MouseBox(302, 300, 326, 316, 1);
repeat
Wait(100 +random(500));
until FindTextTPA(clBlack, 30, MCX1, MCY1, MCX2, MCY2, 'name of', UpChars, Nothing);
TypeSend('steel bar');
Wait(100 +random(500));
If FindDTM(SteelBar, x, y, MSx1, MSy1, MSx2, MSy2) then
begin
Mouse(x, y, 5, 5, false);
Wait(25 +random(100));
ChooseOption('All');
CloseBank;
end else
Writeln('Could Not Find Steel Bars. All Cannon Balls Completed');
CloseBank;
Logout;
Players[CurrentPlayer].Active := False
NextPlayer(False);
end;
FreeDTM(SteelBar);
end;
procedure Bank;
begin
if not LoggedIn then Exit;
OpenBankFast('Feb');
Writeln('Opened Bank')
Wait(400 +random(100));
if(PinScreen)then
InPin(Players[CurrentPlayer].Pin);
if(BankScreen)then
begin
Writeln('Depositing CannonBalls')
Deposit(2,27,True);
Wait(50 +random(100));
Writeln('Closing Bank')
CloseBank;
Writeln('Bank Closed')
end;
end;
{Made By Sirlaughsalot}
Procedure UseSteelBars;
var
Counter: Integer;
begin
if not LoggedIn then Exit;
LoadDTMs('Steelbar');
repeat
if FindDTM(SteelBar, x, y, MIx1, MIy1, MIx2, MIy2) then
begin
Counter:=Counter+1;
Mmouse(x,y,5,5);
Wait(300+random(250))
GetUpText;
Wait(100+random(100))
end;
Until (IsUpText('teel')) or (Counter>=10)
if IsUpText('teel') then
begin
Mouse(x,y,0,0,true);
Wait(300+random(250));
end;
if (Counter>=10)then
begin
Writeln('Cannot Find SteelBar')
Logout;
Players[CurrentPlayer].Active:=False;
Nextplayer(Players[CurrentPlayer].Active);
end;
end;
{Made By SirlaughsAlot}
Procedure ClickOnFurnace;
var
FurnaceTPA : Array of TPoint;//an array of points of a color that it finds
SplitFurnace : T2DPointArray;//sorted points based upon distance by pixels
Z : Integer;
Counter : Integer;
begin
if not loggedin then exit;
repeat
Counter:=Counter+1;
FindColorsSpiralTolerance(x,y,FurnaceTPA,4013378,MSx1,MSy1,MSx2,MSy2,15);
begin
SplitFurnace:=SplitTPA(FurnaceTPA,1);// the 1 is distance allowed between the colors found by findcolorsspiraltolerance
for Z:=0 to High(SplitFurnace) do //Will go through the TPA's
if MiddleTPAEX(SplitFurnace[Z],x,y) then
begin
Mmouse(x,y,5,5);
Wait(300+random(250))//in case of lag
GetUpText;
Wait(100+random(100))
if isuptext('urnace') then
begin
Mouse(x,y,0,0,true);
exit;
end;
end;
end;
until (Counter>=10)
Writeln('Couldnt Find Furnace')
end;
Procedure SmeltCannonBalls;
Begin
Wait(1000+random(150))
if FindTextTPA(clBlack, 30, MCX1, MCY1, MCX2, MCY2, 'steel bar', UpChars, Nothing) then
begin
if FindDTM(SteelBar, x, y, MCx1, MCy1, MCx2, MCy2) then
begin
Mouse(x, y, 3, 3, False);
Wait(800 +random(100));
ChooseOption('All');
Wait(11000+random(3000));
end else
begin
Writeln('DTM not working');
Wait(5000);
Logout;
end;
end else
begin
Writeln('Did not use Bar on Furnace');
Wait(5000);
Logout;
end;
end;
function FindCraftSteelBar: Boolean;
begin
Result := FindTextTPA(0 ,0, MCx1, MCy1, MCx2, MCy2, 'teel', NPCchars, ClickRight);
end;
procedure MouldCheck;
begin
if not LoggedIn then Exit;
LoadDTMs('MouldDTM');
Wait(25);
GameTab(4)
if FindDTM(MouldDTM, x, y, MIX1, MIY1,MIX2, MIY2) then
begin
WriteLn('Found Mould')
end else
begin
Writeln('No Mould found, Looking in Bank.');
OpenBankFast('feb');
if FindDTM(MouldDTM, x, y, MSX1, MSY1,MSX2, MSY2) then
begin
Wait(200+random(100));
Mouse(x, y, 3, 3, True);
CloseBank;
end else
begin
MouseBox(302, 300, 326, 316, 1);
repeat
Wait(100 +random(500));
until FindTextTPA(clBlack, 30, MCX1, MCY1, MCX2, MCY2, 'name of', UpChars, Nothing);
TypeSend('ammo mould');
Wait(100 +random(500));
if FindDTM(MouldDTM, x, y, MSx1, MSy1, MSx2, MSy2) then
begin
Mouse(x, y, 5, 5, true);
Wait(25 +random(100));
CloseBank;
end else
begin
Writeln('You do not have a mould. Look at thread to see how to get one')
Logout;
Players[CurrentPlayer].Active := False
NextPlayer(False)
end;
end;
end;
end;
begin
repeat
SetupSRL;
ClearDebug;
Writeln('Starting Smart');
SmartSetupEx(27,true,true,false);
SetTargetDC(SmartGetDC);
Writeln('Loading Runescape');
DeclarePlayers;
LoginPlayer;
SetAngle(True)
Wait(100 +random(500));
if (FindMyLocation = 'AtBank') then
begin
MouldCheck;
OpenBank2;
WithdrawSteelBars;
WalkToFurnace;
UseSteelBars;
ClickOnFurnace;
SmeltCannonBalls;
end else
begin
if (FindMyLocation = 'AtFurnace') then
begin
WalkToBank;
FindDaBank;
MouldCheck;
Bank;
OpenBank2;
WithdrawSteelBars;
WalkToFurnace;
UseSteelBars;
ClickOnFurnace;
SmeltCannonBalls;
end else
end;
until(False);
end.
{
function FindCraftSteelBar: Boolean;
begin
Result := FindTextTPA(0 ,0, MCx1, MCy1, MCx2, MCy2, 'teel', NPCchars, ClickRight);
end;
If(Not(RadialWalk(FindFallyRoadColor, 90, 180, RandomRange(50,60), 2, 2) then Exit;
}
-Pixelate-
——————————————————
<!– END TEMPLATE: formanswers –>