SCAR Code:
{ //-------------------------------------------------------------\\
|| INSTRUCTIONS ||
||-------------------------------------------------------------||
|| BY: Kooldude ||
|| ||
|| 1.Raw Salmon, Trout In 1st Bank Slot ||
|| 2.Start In Edgeville Bank ||
|| 3.Setup Lines Are 30-38...... ||
|| 4.Drag Crosshair into RS window. ||
|| 5.Hit play. ||
|| ||
||-------------------------------------------------------------||
|| Credits ||
|| YoHoJo - Helped Me Alot ||
|| Jad - Tuts, one of the coolest people ||
|| Srl Community ||
|| ||
\\-------------------------------------------------------------//
}
program EdgeVilleCooker;
{.include srl/srl.scar}
var
Tries: Integer;
Fishy: Integer;
TotalLoads: Integer;
StartXp, EndXp, TotalXp: Integer;
Stove: Integer;
const
PinNumber =''; //Your Pin Number
Loadz =2; //Less loadz, Means less randoms :P
{------------------------------}
{ Players }
{------------------------------}
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of PLAYERS. active or not.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Player to start on.
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :=''; //3-4 *Lower Case* Letters Of Username!
Players[0].Active :=True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
{------------------------------}
{ DTMs/BitMaps }
{------------------------------}
Procedure DtmBitMap;
begin
Fishy := DTMFromString('78DA631461606010624001675DC519FE03694' +
'620FE0F048C3240061B031A60442281B414901024A04614484811' +
'50C30E244409A801B99713BF1A00EEA4070F');
Stove := BitmapFromString(14, 11, 'z78DACD924B0AC0200C44AF9' +
'48846BA37DEFF48153FEDA0E82A85BA1810E263322391FD61D290' +
'AEA6B64C7229A6C0E546FEFFCC4156D9E7C0ACB164B5E8C127934' +
'79D26E5E5B02B3355D1CF8E79D8489EC94603E798DE474CB166F6' +
'0798493E75B4B639B4B730FF9C5C7DA26E3DCF6DE28E372D47B81' +
'9');
end;
{------------------------------}
{ Declaring Arrays }
{------------------------------}
var
DoorColor: Array [1..6] of Integer;
i: Integer;
Procedure DeclareDoorColors;
begin
DoorColor[1] := 2122882;
DoorColor[2] := 1724521;
DoorColor[3] := 4542038;
DoorColor[4] := 12354;
DoorColor[5] := 2122882;
DoorColor[6] := 2241596;
end;
{------------------------------}
{ Declaring Arrays }
{------------------------------}
var
BankColorz: Array [1..5] of Integer;
l: Integer;
Procedure Bankcolors;
begin
BankColorz[1] := 9281977;
BankColorz[2] := 4408136;
BankColorz[3] := 10065821;
BankColorz[4] := 5929603;
BankColorz[5] := 15461098;
end;
{------------------------------}
{ Walking To Stove }
{------------------------------}
Procedure WalkingToStove;
begin
if (not(LoggedIn)) then
Exit;
MakeCompass('W')
HighestAngle;
If FindSymbol(x,y,'water source')then
Mouse(x,y,1,1,True)
WriteLn('Walked To Water Symbol!')
SetRun(true)
Wait(4523 + Random(264));
repeat
MakeCompass('N')
wait(572+random(104))
Tries := Tries + 1
if (Tries = 10)then
begin
Writeln('Could not find Cooking Symbol...');
Exit;
end;
until (FindSymbol(x, y,'cookery'))
begin
Mouse(x,y,1,1,True)
WriteLn('Walking To Stove')
Wait(8000 + Random(421))
LowestAngle;
begin
for i := 1 to 6 do
begin
if FindColorSpiralTolerance(x,y,DoorColor[i],MSX1,MSY1,MSX2,MSY2,2)then
begin
Mouse(x,y,0,1,True)
FindSymbol(x,y,'Cookery')
Mouse(x,y,0,0,True)
HighestAngle;
Break;
end;
end;
end;
end;
end;
{------------------------------}
{ Cooking }
{------------------------------}
Procedure Cooking;
begin
begin
GameTab(4)
If FindDTM(Fishy,x,y,MIX1,MIY1,MIX2,MIY2) then
Mouse(x,y,1,1,False)
ClickOption('se',2)
end;
begin
if FindColortolerance(x,y,924026,MSX1,MSY1,MSX2,MSY2,2)then
if FindBitmap(Stove,x,y)then
begin
Mouse(x,y,1,1,True)
ClickOption('x',3)
Wait(244 +random(56))
TypeSend('28')
Writeln('Cooking Food')
begin
if not(LoggedIn)then Exit;
case Random(6) of
0 : PickupMouse;
1 : IdleTime(9567 + Random(359),1000,1.0);
2 : SleepAndMoveMouse(1343 + Random(2500));
3 : RandomRClick;
4 : AlmostLogout;
5 : HoverSkill('Mining', false);
end;
end;
FindNormalRandoms;
end;
end;
end;
{------------------------------}
{ WalkingToBank }
{------------------------------}
procedure BankWalking;
begin
begin
if(not(LoggedIn))then
Exit;
Wait(3000+random(342))
if FindSymbol(x,y,'bank')then
Mouse(x,y,1,1,True)
Wait(6753+Random(1324))
MakeCompass('W')
If FindColor(x,y,62965,MMX1,MMY1,MMX2,MMY2)then
Mouse(x,y,0,1,true)
begin
MakeCompass('E')
Wait(3421 +Random(324))
MakeCompass('N')
If FindColortolerance(x,y,2914453,MSX1,MSY1,MSX2,MSY2,80)or
FindColortolerance(x,y,9148054,MSX1,MSY1,MSX2,MSY2,80)or
FindColortolerance(x,y,3158069,MSX1,MSY1,MSX2,MSY2,80)or
FindColortolerance(x,y,8224896,MSX1,MSY1,MSX2,MSY2,80)then
Mouse(x,y,1,1,False)
Clickoption('ancle',1)
end;
end;
end;
{------------------------------}
{ WithDrawFood }
{------------------------------}
Procedure Withdrawfood;
begin
LowestAngle;
MakeCompass('E')
for l := 1 to 6 do
begin
if FindColorSpiralTolerance(x,y,BankColorz[l],MSX1,MSY1,MSX2,MSY2,2)then
begin
Mouse(x,y,1,1,False);
ClickOption('ank',1);
Wait(3421+random(423))
if (Pinscreen) then
begin
Status('Entering Pin Number...');
wait(278+random(124));
InPin(PinNumber);
end;
If FindDTM(Fishy,x,y,MIX1,MIY1,MIX2,MIY2)then
Mouse(x,y,1,1,False)
if ClickOption('x',2)then
TypeSend('28')
TotalLoads:= TotalLoads + 1;
If FindDTM(Fishy,x,y,MSX1,MSY1,MSX2,MSY2)then
ClickOption('ll',1)
CloseBank;
MakeCompass('W');
Break;
end;
end;
end;
{------------------------------}
{ Getting Xp }
{------------------------------}
Procedure Progress;
begin
TotalLoads := 0
gameTab(2)
StartXP := GetXp('Cooking')
EndXP := GetXp('Cooking')
TotalXP := (EndXP - StartXP) + (TotalXP)
end;
{------------------------------}
{ Progress Report }
{------------------------------}
Procedure Report;
Begin
SRLRandomsReport;
ClearDebug;
Writeln(' ___________ ')
Writeln(' _________________/Rayz Report\____________________ ')
Writeln(' |==================================================| ')
Writeln(' | Script Time: ' + (ScriptTime2(2)) + '| ')
Writeln(' | Loads Banked: ' + IntToStr (Totalloads) + '| ')
Writeln(' | XP Gained: ' + IntToStr (TotalXp) + '| ')
Writeln(' ==================================================== ')
end;
{------------------------------}
{ Responder }
{------------------------------}
Procedure Respond;
var
lol, Name: Integer;
begin
If FindChatText('lol')or
FindChatText('LOL!')or
FindChatText('ROFL')or
FindChatText('LMAO') then
Lol := Random (5)
Case Lol of
0 : TypeSend('ROLF')
1 : TypeSend('lol')
2 : TypeSend('Funny')
3 : TypeSend('LMAO')
4 : TypeSend('Ur Funny :)')
end;
If FindChatText(' '+IntToStr(Name))then
Name := Random (3)
case Name of
0 : TypeSend('What?')
1 : TypeSend('??..')
2 : TypeSend('?')
end;
end;
{------------------------------}
{ Siggy }
{------------------------------}
procedure Siggy;
begin
ClearDebug;
writeln(' Kooldudes EdgeVille Cooker! ');
writeln(' __ __ ');
writeln(' | | / / _____ ');
writeln(' | |/ / | __| ');
writeln(' | / | |__ ');
writeln(' | \ | __| ');
writeln(' | |\ \ | |__ ');
writeln(' |__| \__\ OOL DUD|_____| ');
wait(3000 + random(750));
end;
{------------------------------}
{ MainLoop }
{------------------------------}
begin
SetupSrl;
Siggy;
ActivateClient;
repeat
Progress;
DeclareDoorColors;
BankColors;
WithDrawFood;
WalkingtoStove;
Cooking;
BankWalking;
Report;
Until(false)
end.