SCAR Code:
{ //-------------------------------------------------------------\\
|| INSTRUCTIONS ||
||-------------------------------------------------------------||
|| BY: Kooldude ||
|| ||
|| 1.Raw Shit In 1st Bank Slot ||
|| 2.Start In Edgeville Bank ||
|| 3.Setup Lines Are 30-38...... ||
|| 4.Drag Crosshair into RS window. ||
|| 5.Hit play and fill out forms. ||
|| ||
||-------------------------------------------------------------||
|| Credits ||
|| YoHoJo - Helped Me Alot ||
|| Jad - Tuts ||
|| Srl Community ||
|| ||
\\-------------------------------------------------------------//
}
program EdgeVilleCooker;
{.include srl/srl.scar}
var
TreeDTM: Integer;
Tries: Integer;
Fishy: Integer;
TotalLoads: Integer;
StartXp, EndXp, TotalXp: Integer;
Stove: Integer;
const
PinNumber='0000'; //Your Pin Number
Loadz =2; //Less loadz, Means less randoms :P
MyName ='kooldude'; //Change To Your Character name
{// DONT TOUCH THIS \\}
{||} ScriptVersion = '.10';{||}
{\\ DONT TOUCH THIS //}
{------------------------------}
{ 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
TreeDTM := DTMFromString('78DA6364616060606640019E05A6609A11CA6' +
'76402124C0C58015C0D1B906021600E2BA63958ED22E01E003486' +
'03E4')
Fishy := DTMFromString('78DA631461606010624001675DC519FE03694' +
'620FE0F048C3240061B031A60442281B414901024A04614484811' +
'50C30E244409A801B99713BF1A00EEA4070F');
Stove := BitmapFromString(14, 11, 'z78DACD924B0AC0200C44AF9' +
'48846BA37DEFF48153FEDA0E82A85BA1810E263322391FD61D290' +
'AEA6B64C7229A6C0E546FEFFCC4156D9E7C0ACB164B5E8C127934' +
'79D26E5E5B02B3355D1CF8E79D8489EC94603E798DE474CB166F6' +
'0798493E75B4B639B4B730FF9C5C7DA26E3DCF6DE28E372D47B81' +
'9');
end;
{------------------------------}
{ Walking To Stove }
{------------------------------}
Procedure WalkingToStove;
begin
if(not(LoggedIn))then
begin
LoginPlayer;
SetRun(true)
MakeCompass('N')
HighestAngle;
RadialWalk(535868,381,316,65,2,2)
WriteLn('Walked To Tree!')
Wait(1456 + Random(264))
repeat
wait(572+random(104))
Tries := Tries + 1
if(Tries = 10)then
begin
Writeln('could Not Find Tree.... Switching Players');
Exit;
end;
until(FindDTM(x,y,TreeDTM,MMX1,MMY1,MMX2,MMY2))
begin
Mouse(x,y,1,1,True)
WriteLn('Walking To Gate')
Wait(1109 + Random(421))
MakeCompass('S')
LowestAngle;
if FindColorTolerance(x,y,7981,MSX1,MSY1,MSX2,MSY2,20)or
FindColorTolerance(x,y,10299,MSX1,MSY1,MSX2,MSY2,20)or
FindColorTolerance(x,y,1732207,MSX1,MSY1,MSX2,MSY2,20)then
begin
IsUpText('ate')
Wait(900 - Random(354))
Mouse(X,Y,2,2,True)
if FindColorTolerance(x,y,857111,MSX1,MSY1,MSX2,MSY2,15)or
FindColorTolerance(x,y,1129293,MSX1,MSY1,MSX2,MSY2,15)or
FindColorTolerance(x,y,7205,MSX1,MSY1,MSX2,MSY2,15)then
begin
IsUpText('oor')
Wait(523 + Random(98))
Mouse(X,Y,2,2,True)
HighestAngle;
MakeCompass('N')
end;
end;
end;
end;
end;
{------------------------------}
{ Cooking }
{------------------------------}
Procedure Cooking;
begin
begin
If FindDTM(Fishy,x,y,MIX1,MIY1,MIX2,MIY2) then
Mouse(x,y,1,1,False)
ChooseOption(x,y,'se')
end;
begin
if FindColortolerance(x,y,924026,MSX1,MSY1,MSX2,MSY2,2)then
if FindBitmap(Stove,x,y)then
Mouse(x,y,1,1,True)
ChooseOption(x,y,'x')
Wait(244 +random(56))
TypeSend('28')
Writeln('Cooking Food')
end;
end;
{------------------------------}
{ WalkingToBank }
{------------------------------}
procedure BankWalking;
begin
begin
if(not(LoggedIn))then
LoginPlayer;
RadialWalk(2442323,40,79,71,1,1);
Wait(1345 - Random(35));
If Findcolor(x,y,6217966,MMX1,MMY1,MMX2,MMY2) then
Mouse(x,y,1,1,True);
end;
begin
if Findcolortolerance(x,y,537670,MSX1,MSY1,MSX2,MSY2,2)or
FindColorTolerance(x,y,5593184,MSX1,MSY1,MSX2,MSY2,1)or
FindColorTolerance(x,y,542022,MSX1,MSY1,MSX2,MSY2,1)then
Mouse(x,y,1,1,False);
ClickOption('se',1);
If FindDTM(Fishy,x,y,MIX1,MIY1,MIX2,MIY2)then
Mouse(x,y,1,1,False)
ChooseOption(x,y,'x')
TypeSend('28')
TotalLoads:= TotalLoads + 1;
Mouse(93,77,0,1,False)
ChooseOption(x,y,'ll')
CloseBank;
end;
end;
{------------------------------}
{ Entering Pin }
{------------------------------}
procedure BankPin;
begin
if (Pinscreen) then
begin
Status('Entering Pin Number...');
wait(278+random(124));
InPin(Pinnumber);
end;
end;
{------------------------------}
{ Getting Xp }
{------------------------------}
Procedure Progress;
begin
TotalLoads := 0
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;
{------------------------------}
{ Rayz Special AntiBan }
{------------------------------}
Procedure RayBan;
begin
MakeCompass('E')
Wait(3421 +Random(324))
MakeCompass('N')
If FindColortolerance(x,y,65657,MSX1,MSY1,MSX2,MSY2,50)or
FindColortolerance(x,y,123423,MSX1,MSY1,MSX2,MSY2,50)or
FindColortolerance(x,y,81732,MSX1,MSY1,MSX2,MSY2,50)or
FindColortolerance(x,y,665231,MSX1,MSY1,MSX2,MSY2,50)then
Mouse(x,y,1,1,False)
Chooseoption(x,y,'ancle')
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(' '+MyName)then
Name := Random (3)
case Name of
0 : TypeSend('What?')
1 : TypeSend('??..')
2 : TypeSend('?')
end;
end;
{------------------------------}
{ Version check }
{------------------------------}
Procedure Version;
begin
if (ScriptVersion = '.10')then
Writeln('You Have the Newest Version!')
end;
{------------------------------}
{ Siggy }
{------------------------------}
procedure Siggy;
begin
ClearDebug;
writeln(' Kooldudes EdgeVille Cooker! ');
writeln(' __ __ ');
writeln(' | | / / _____ ');
writeln(' | |/ / | __| ');
writeln(' | / | |__ ');
writeln(' | \ | __| ');
writeln(' | |\ \ | |__ ');
writeln(' |__| \__\ OOL DUD|_____| ');
wait(3000 + random(750));
end;
{------------------------------}
{ AntiBanage }
{------------------------------}
procedure MouseAntiBan;
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;
{------------------------------}
{ MainLoop }
{------------------------------}
begin
SetupSrl;
Version;
Siggy;
Progress;
ClearDebug;
DeclarePlayers;
repeat
WalkingtoStove;
Respond;
FindNormalRandoms;
Cooking;
BankWalking;
BankPin;
MouseAntiBan;
RayBan;
until(totalLoads=Loadz);
Report;
end.