Ok, well im almost done with my Script, Very Easy Script, and not done yet.
I have an error, If some1 could fix the small errors thatd be great
DO NOT USE MY ANTI BAN. Make your own, akes 5 seconds to make.![]()
![]()
![]()
![]()
![]()
Ok, well im almost done with my Script, Very Easy Script, and not done yet.
I have an error, If some1 could fix the small errors thatd be great
DO NOT USE MY ANTI BAN. Make your own, akes 5 seconds to make.![]()
![]()
![]()
![]()
![]()
Someone: 'Who the hell is TooManySitUps?'
Boreas: 'Switch the first and last letter of my name, what do you get?'
Someone: 'Um, SoreAb?'
Boreas: 'And how do you get that?'
Someone: 'From Too Many Sit Ups!! Haha, Boreas you are so clever!'
Boreas: 'Ya he's like my evil twin that takes over when I'm being really sarcastic, or playing devil's advocate.'
Your script didn't even compile. I fixed it for you convinience(sp), now it compiles
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. ||
|| ||
||-------------------------------------------------------------||
|| INSTRUCTIONS ||
\\-------------------------------------------------------------//
}
program EdgeVilleCooker;
{.include srl/srl.scar}
var
TreeDTM: Integer;
Tries: Integer;
Fishy: Integer;
{------------------------------}
{ 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');
end;
{------------------------------}
{ Walking To Stove }
{------------------------------}
Procedure WalkingToStove;
begin
if(not(LoggedIn))then
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;
{------------------------------}
{ Cooking }
{------------------------------}
Procedure Cooking;
begin
If FindDTM(Fishy,x,y,MIX1,MIY1,MIX2,MIY2)then
Mouse(x,y,1,1,False);
ChooseOption(x,y,'se');
if FindColortolerance(x,y,924026,MSX1,MSY1,MSX2,MSY2,2)then
begin
Mouse(x,y,1,1,True);
ChooseOption(x,y,'x');
Wait(244 +random(56));
TypeSend('28');
end;
end;
{------------------------------}
{ WalkingToBank }
{------------------------------}
procedure BankWalking;
begin
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);
if Findcolortolerance(x,y,537670,MSX1,MSY1,MSX2,MSY2,2)then
Mouse(x,y,1,1,True)
If FindDTM(Fishy,x,y,MIX1,MIY1,MIX2,MIY2)then
Mouse(x,y,1,1,False);
ChooseOption(x,y,'x');
TypeSend('28');
Mouse(93,77,0,1,False);
ChooseOption(x,y,'ll');
CloseBank;
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;
begin
SetupSrl;
ClearDebug;
DeclarePlayers;
WalkingtoStove;
FindNormalRandoms;
Cooking;
BankWalking;
MouseAntiBan;
end.
There are currently 1 users browsing this thread. (0 members and 1 guests)