Ashur2Good
2007-05-18 04:09:02
<!– BEGIN TEMPLATE: formanswers –>
ashur2good - SRL Member Application Form
ashur2good
What is the meaning to life?
WTF? To script? :/
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Nope
Other Communitys
Fagex,Sythe and my forum.
How Long have You Played Runescape
2 and a half years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well, I know a lot of scar now. I Know about fail safes, Scripting standards, Anti-Randoms, Anti-Ban, Multi player, Radial Walk And much more. I will try to briefly explain about them here.
Fail Safes: Something that backs up a Procedure/Function if something goes wrong, An example would be:
…
if (not (FindObj3(x,y,'tack',MonkColour1,50)))then
begin
Writeln('Did not find Monk Going to a new area :)');
Wait(500+Random(100));
MouseBox(MSx1, MSy1, MSx2, MSy2, 1);
…
Anti-Randoms: Anti randoms are Procedures/Functions which help against Random events, An example would be:
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection(RunDirection);
Wait(10000 + random(2000));
RunBack;
Writeln('Found a random!')
end;
end;
Anti-Ban: Anti-Ban is a procedure which makes scar look more human like/Undetectable, an example of this would be:
procedure AntiBans;
begin
case Random(10) of
2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
4: HoverSkill('Fishing', False);
5: HoverSkill('Attack', False);
6: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
7: HoverSkill('Strength', False);
9: BoredHuman;
end;
end;
Or an Auto Talk back, which would be something like this:
procedure AutoTalk1;
begin
if (InChat('fishing lvl'))or
(InChat('fishing level'))or
(InChat('fishin lvl'))or
(InChat('fish lvl'))or
(InChat('fish level'))then
begin
Wait(500 + Random(500));
TypeSend(Fishinglvl +chr(13));
end;
end;
Radial Walk:Radial walk is a walking Procedure which is really effective if successful, an example of this would be:
…
RadialRoadWalk(90, 100, 55, 0, 1);
Wait(100+50);
RadialWalk(19054,305, 320, 62, 0, 1);
Wait(100+50);
…
There is also Linear walk, which is the same but searches for the colour from the MIDDLE out.You can also Auto Colour to make Radial walk easier…
Well…I think i've covered what i need to cover :)If you're still not satisfied then look at my scripts :)
P.S: The script attached is my MonkBSER :/, But i took some stuff out so i don't think it will work, Not that i think you'll take the script but…:)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Well…That's my MonkBSER :) My other scripts are below.
Power Miner:
Barbarian Power Fisher:
Coin Picker:
Auto Fighter:
Auto Talker:
Well, There's my collection of scripts, i hope that has convinced you to vote YES for me to be a member :D.
And If you fix up the MonkBSER to work, then YES you may use it XD.
-Ashur:stirthepot:
——————————————————
<!– END TEMPLATE: formanswers –>
ashur2good - SRL Member Application Form
ashur2good
What is the meaning to life?
WTF? To script? :/
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Nope
Other Communitys
Fagex,Sythe and my forum.
How Long have You Played Runescape
2 and a half years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well, I know a lot of scar now. I Know about fail safes, Scripting standards, Anti-Randoms, Anti-Ban, Multi player, Radial Walk And much more. I will try to briefly explain about them here.
Fail Safes: Something that backs up a Procedure/Function if something goes wrong, An example would be:
…
if (not (FindObj3(x,y,'tack',MonkColour1,50)))then
begin
Writeln('Did not find Monk Going to a new area :)');
Wait(500+Random(100));
MouseBox(MSx1, MSy1, MSx2, MSy2, 1);
…
Anti-Randoms: Anti randoms are Procedures/Functions which help against Random events, An example would be:
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection(RunDirection);
Wait(10000 + random(2000));
RunBack;
Writeln('Found a random!')
end;
end;
Anti-Ban: Anti-Ban is a procedure which makes scar look more human like/Undetectable, an example of this would be:
procedure AntiBans;
begin
case Random(10) of
2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
4: HoverSkill('Fishing', False);
5: HoverSkill('Attack', False);
6: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
7: HoverSkill('Strength', False);
9: BoredHuman;
end;
end;
Or an Auto Talk back, which would be something like this:
procedure AutoTalk1;
begin
if (InChat('fishing lvl'))or
(InChat('fishing level'))or
(InChat('fishin lvl'))or
(InChat('fish lvl'))or
(InChat('fish level'))then
begin
Wait(500 + Random(500));
TypeSend(Fishinglvl +chr(13));
end;
end;
Radial Walk:Radial walk is a walking Procedure which is really effective if successful, an example of this would be:
…
RadialRoadWalk(90, 100, 55, 0, 1);
Wait(100+50);
RadialWalk(19054,305, 320, 62, 0, 1);
Wait(100+50);
…
There is also Linear walk, which is the same but searches for the colour from the MIDDLE out.You can also Auto Colour to make Radial walk easier…
Well…I think i've covered what i need to cover :)If you're still not satisfied then look at my scripts :)
P.S: The script attached is my MonkBSER :/, But i took some stuff out so i don't think it will work, Not that i think you'll take the script but…:)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
// A SSSSSSSSSSS H H U U RRRRR //
// A A S H H U U R R //
// A A S H H U U R R //
// A A S H H U U R R //
// AAAAAAAAA SSSSSSSSSSSSSS HHHHHHHHHHHH U U RRRRRRRRR //
// A A S H H U U R R //
// A A S H H U U R R //
// A A S H H U U R R //
//A A SSSSSSSSSSSSS H H UUUUUUUUUUU R R //
// //
// //
// A NN N DDD //
// A A N N N D D //
// A A N N N D D //
// A A N NN DDD //
// //
// H H A X X OOOOOOOOOO RRRRRR //
// H H A A X X O O R R //
// H H A A X X O O R R //
// H H A A X X O O R R //
// HHHHHHHHHHHH AAAAAAAAA XX O O R R //
// H H A A XX O O RRRRRRRRRRR //
// H H A A X X O O R R //
// H H A A X X O O R R //
// H H A A X X OOOOOOOOOO R R //
//
////////////////////////////////////////////////////////////////////////////////
// (~~!Notes!~~) //
//* This Script (MonkBSER) was made by Ashur2good and Haxor //
//* Please Do NOT give this script to other people :( If i find out... //
//* Thanks for buying The MonkBSER :) //
//* If you have any troubles with this script, don't hesitate to Ask, just //
//PM or post in the fourm which you bought this from or Send an E-Mail, //
//i will Never refuse to help :D //
//* If i do not respond, Ask Haxor he will help you (Hopefully :D) with //
//any problems :D //
//* If you find any bugs/Comments/Reports on the script, please post a reply //
//in the fourms which you bought this from //
//* I am not responsible for any loss or damage this script has caused but //
//i seriously doubt that will happen...:) //
// (~~!Instructions!~~) //
//* Set out the Constants below //
//* Declare players //
//* Start logged out //
//* Hit play now! //
// (~~!Features!~~) //
//* Has Great Anti Ban //
//* Up to date Anti-Randoms with SRL //
//* Very nice Monk Finding procedures //
//* Has a very, very, VERY nice healing procedure :D //
//* Can Run ROUND THE CLOCK with enough players(6) :) //
//* Has been verified by one of the fourm Mods/Admins in the fourms which //
//you bought from //
// (~~!History!~~) //
//Version 1.0:First release of script ( Released on the ). //
////////////////////////////////////////////////////////////////////////////////
program MonkBser;
{.include SRL/SRL.scar}
{.Includes/SRL/SRL/Core/Antiban.scar}
{.include SRL/SRL/Skill/Fighting.scar}
//////////////////////////////Variables/////////////////////////////////////////
var
i : Integer;
Boom : Boolean;
Monk : Integer;
MonkKilled : Integer;
//////////////////////////////Variables/////////////////////////////////////////
//////////////////////////////Constants/////////////////////////////////////////
const
Code=800;//Type in ure Authentic Code Here...If you don't have the code the script will not work :(
NumberOfUsers=10;//How many accounts are you using
StartPlayer=0;//Who is you're Starting Player
HpAmount=50;//What level hp you want to heal at
MonkColour1=8037330;//A colour of the monk...(Put colours Just incase)
MonkColour2=3037571;//Another colour of the monk...
MonkColour3=2575216;//Another colour of the monk...
Skillz='Strength';//What skill to use for the Lamp Random
Time=20;//How many monks to kill
HTime=2;//How long before logging in out, In HOURS...
MTime=10;//How long to come back when logged out, In MINTUES...
XBan=10;//How much anti ban, 0 being none, 10 being ok and 20 being the highest
Version='1.0';//Don't touch
//////////////////////////////Constants/////////////////////////////////////////
///////////////////////////DeclaringPlayers/////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := NumberOfUsers; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= StartPlayer;
Players[0].Name :='User Name';//Name Goes Here
Players[0].Pass :='Password';//PassWord Goes Here
Players[0].Nick :='er Nam';//3-4 LowerCase Letters Of Your Name
Players[0].Active:=True;//True if this acc is gonna be autoing, False if it isn't
Players[0].Skill := 'Strength';//What style you want to attack with. Choose from Attack, Strength, Defence.
Players[1].Name :='User Name';//Name Goes Here
Players[1].Pass :='Password';//PassWord Goes Here
Players[1].Nick :='er Nam';//3-4 LowerCase Letters Of Your Name
Players[1].Active:=True;//True if this acc is gonna be autoing, False if it isn't
Players[1].Skill := 'Strength';//What style you want to attack with. Choose from Attack, Strength, Defence.
Players[2].Name :='User Name';//Name Goes Here
Players[2].Pass :='Password';//PassWord Goes Here
Players[2].Nick :='er Nam';//3-4 LowerCase Letters Of Your Name
Players[2].Active:=True;//True if this acc is gonna be autoing, False if it isn't
Players[2].Skill := 'Strength';//What style you want to attack with. Choose from Attack, Strength, Defence.
Players[3].Name :='User Name';//Name Goes Here
Players[3].Pass :='Password';//PassWord Goes Here
Players[3].Nick :='er Nam';//3-4 LowerCase Letters Of Your Name
Players[3].Active:=True;//True if this acc is gonna be autoing, False if it isn't
Players[3].Skill := 'Strength';//What style you want to attack with. Choose from Attack, Strength, Defence.
Players[4].Name :='User Name';//Name Goes Here
Players[4].Pass :='Password';//PassWord Goes Here
Players[4].Nick :='er Nam';//3-4 LowerCase Letters Of Your Name
Players[4].Active:=True;//True if this acc is gonna be autoing, False if it isn't
Players[4].Skill := 'Strength';//What style you want to attack with. Choose from Attack, Strength, Defence.
Players[5].Name :='User Name';//Name Goes Here
Players[5].Pass :='Password';//PassWord Goes Here
Players[5].Nick :='er Nam';//3-4 LowerCase Letters Of Your Name
Players[5].Active:=True;//True if this acc is gonna be autoing, False if it isn't
Players[5].Skill := 'Strength';//What style you want to attack with. Choose from Attack, Strength, Defence.
Players[6].Name :='User Name';//Name Goes Here
Players[6].Pass :='Password';//PassWord Goes Here
Players[6].Nick :='er Nam';//3-4 LowerCase Letters Of Your Name
Players[6].Active:=True;//True if this acc is gonna be autoing, False if it isn't
Players[6].Skill := 'Strength';//What style you want to attack with. Choose from Attack, Strength, Defence.
Players[7].Name :='User Name';//Name Goes Here
Players[7].Pass :='Password';//PassWord Goes Here
Players[7].Nick :='er Nam';//3-4 LowerCase Letters Of Your Name
Players[7].Active:=True;//True if this acc is gonna be autoing, False if it isn't
Players[7].Skill := 'Strength';//What style you want to attack with. Choose from Attack, Strength, Defence.
Players[8].Name :='User Name';//Name Goes Here
Players[8].Pass :='Password';//PassWord Goes Here
Players[8].Nick :='er Nam';//3-4 LowerCase Letters Of Your Name
Players[8].Active:=True;//True if this acc is gonna be autoing, False if it isn't
Players[8].Skill := 'Strength';//What style you want to attack with. Choose from Attack, Strength, Defence.
Players[9].Name :='User Name';//Name Goes Here
Players[9].Pass :='Password';//PassWord Goes Here
Players[9].Nick :='er Nam';//3-4 LowerCase Letters Of Your Name
Players[9].Active:=True;//True if this acc is gonna be autoing, False if it isn't
Players[9].Skill := 'Strength';//What style you want to attack with. Choose from Attack, Strength, Defence.
Players[10].Name :='User Name';//Name Goes Here
Players[10].Pass :='Password';//PassWord Goes Here
Players[10].Nick :='er Nam';//3-4 LowerCase Letters Of Your Name
Players[10].Active:=True;//True if this acc is gonna be autoing, False if it isn't
Players[10].Skill := 'Strength';//What style you want to attack with. Choose from Attack, Strength, Defence.
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
End;
///////////////////////////DeclaringPlayers/////////////////////////////////////
////////////////////////////Logging In/////////////////////////////////////////
procedure LoggingIn;
begin
SetUpSRL;
DeclarePlayers;
LoginPlayer;
end;
/////////////////////////////Logging In/////////////////////////////////////////
///////////////////////////////LoadDTMs/////////////////////////////////////////
Procedure LoadDTMs;
begin
Monk := DTMFromString('78DA6374666060B06040019797D632FC07D28' +
'C40FC1F08185D800C5354358BEB62C1342394CF680F242C51D5B4' +
'C718A2AA71C7B42BD4CF0F558D1390B045553321C914450D0072D' +
'F0E0F');
end;
///////////////////////////////LoadDTMs/////////////////////////////////////////
/////////////////////////////Auto Talk1/////////////////////////////////////////
procedure AutoTalk1;
begin
if (InChat('noobs'))or
(InChat('noobz'))or
(InChat('noob'))or
(InChat('nub'))or
(InChat('nab'))or
(InChat('froob'))or
(InChat('loser'))or
(InChat('choob'))then
begin
Wait(500 + Random(500));
TypeSend('youre the noob' +chr(13));
end;
end;
/////////////////////////////Auto Talk1/////////////////////////////////////////
/////////////////////////////Auto Talk2/////////////////////////////////////////
procedure AutoTalk2;
begin
if (InChat('i own'))or
(InChat('i rule'))or
(InChat('i rulz'))or
(InChat('i good'))or
(InChat('im good'))or
(InChat('ure a nub'))or
(InChat('ure a noob'))or
(InChat('loser'))or
(InChat('i pwn'))or
(InChat('i score'))or
(InChat('im hot'))or
(InChat('ure ugly'))or
(InChat('ch00b'))or
(InChat('fr00b'))or
(InChat('youre a noob'))or
(InChat('youre a nub'))then
begin
Wait(500 + Random(500));
TypeSend('you wish...' +chr(13));
end;
end;
/////////////////////////////Auto Talk2/////////////////////////////////////////
/////////////////////////////Auto Talk3/////////////////////////////////////////
procedure AutoTalk3;
begin
if (InChat('fak'))or
(InChat('bi+(#h'))or
(InChat('faken '))or
(InChat('dik'))or
(InChat('4uk'))then
begin
Wait(500 + Random(500));
TypeSend('reported :)' +chr(13));
end;
end;
/////////////////////////////Auto Talk3/////////////////////////////////////////
/////////////////////////////Auto Talker////////////////////////////////////////
procedure AutoTalker;
begin
AutoTalk1;
AutoTalk2;
AutoTalk3;
end;
/////////////////////////////Auto Talker////////////////////////////////////////
//////////////////////////////Anti Ban//////////////////////////////////////////
procedure AntiBans;
begin
case Random(XBan) of
1: PickUpMouse;
2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
3: AlmostLogout;
4: HoverSkill('Defence', False);
5: HoverSkill('Attack', False);
6: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
7: HoverSkill('Strength', False);
8: RandomRClick;
9: BoredHuman;
10: GameTab(5);
11: GameTab(6);
12: GameTab(13);
13: Wait(500+Random(100));
14: Wait(250+Random(100));
15: Wait(100+Random(100));
16: Wait(50+Random(100));
17: Wait(1000+Random(100));
19: BoredHuman;
end;
end;
//////////////////////////////Anti Ban//////////////////////////////////////////
///////////////////////////////Randoms//////////////////////////////////////////
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
f: Integer;
begin
for f := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
///////////////////////////////Randoms//////////////////////////////////////////
////////////////////////////////Code////////////////////////////////////////////
Procedure Codes;
begin
if (Code= 800) then
boom:= True
if boom= False then
begin
Writeln('HA HA Nice try...WRONG CODE :D');
TerminateScript;
if boom= True then
begin
Writeln('Wow, You acctully bought this script or broke the code :S');
end;
end;
end;
////////////////////////////////Code////////////////////////////////////////////
/////////////////////////////AntiRandoms////////////////////////////////////////
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
FindFastRandoms;
FindLamp(Skillz);
PopUp('ontinue');
end;
/////////////////////////////AntiRandoms////////////////////////////////////////
/////////////////////////////FightMode//////////////////////////////////////////
procedure SetsFightMode;
begin
GameTab(1);
if Players[CurrentPlayer].Skill = 'Attack' then SetFightMode(1);
if Players[CurrentPlayer].Skill = 'Strength'then SetFightMode(2);
if Players[CurrentPlayer].Skill = 'Defence' then SetFightMode(4);
FindTalk;
end;
/////////////////////////////FightMode//////////////////////////////////////////
//////////////////////////////Healing///////////////////////////////////////////
procedure Healing;
begin
repeat
if (HpPercent <= HpAmount) then
begin
GameTab(2);
WriteLn('You have low HP :( Time to heal ;D');
WriteLn('Looking for a Monk to BS Muwhahaha');
if FindObj3(x,y,'monk',MonkColour1,50)or
FindObj3(x,y,'mon',MonkColour2,50)or
FindObj3(x,y,'onk',MonkColour3,50)then
begin
DoAntiRandoms;
Mouse(x,y,0,0,False);
ChooseOption(x,y,'lk-');
TalkToRand;
Wait(500+Random(100));
DoAntiRandoms;
end;
end;
until(HpPercent >= HpAmount);
end;
//////////////////////////////Healing///////////////////////////////////////////
//////////////////////////////RClicking/////////////////////////////////////////
procedure MonkKilla;
begin
case Random(4) of
1:begin
Mouse(x,y,0,0+random(3),True);
Writeln('Left clicked on the monk');
Wait(500+Random(100));
end;
2: begin
Mouse(x,y,0,0+random(3),False);
ClickOption('ttac', 1);
Writeln('Right clicked on the monk');
Wait(500+Random(100));
end;
end;
end;
//////////////////////////////RClicking/////////////////////////////////////////
////////////////////////////////Killa///////////////////////////////////////////
procedure AttackingMonkz;
begin
if FindObj3(x,y,'tack',MonkColour1,50)or
FindObj3(x,y,'tack',MonkColour2,50)or
FindObj3(x,y,'tack',MonkColour3,50)then
begin
Writeln('Found Monk');
Wait(100+Random(50));
Mouse(x,y,0,0,True);
DoAntiRandoms;
MonkKilla;
Wait(500+Random(100));
AntiBans;
Codes;
AutoTalker;
Wait(500+Random(100));
Healing;
Writeln('Fighting Monk');
Wait(500+Random(100));
if not LoggedIn then NextPlayer(False);
if (not (FindObj3(x,y,'tack',MonkColour1,50)))or
FindObj3(x,y,'tack',MonkColour2,50)or
FindObj3(x,y,'tack',MonkColour3,50)then
begin
Writeln('Did not find monk, Going to new area to search :)');
Wait(500+Random(100));
MouseBox(MSx1, MSy1, MSx2, MSy2, 1);
if FindObj3(x,y,'tack',MonkColour1,50)or
FindObj3(x,y,'tack',MonkColour2,50)or
FindObj3(x,y,'tack',MonkColour3,50)then
begin
MMouse(x,y,0+random(2),0+random(3));
DoAntiRandoms;
MonkKilla;
Wait(500+Random(100));
AntiBans;
AutoTalker;
Wait(500+Random(100));
Healing;
Writeln('Fighting Monk');
Wait(500+Random(100));
MonkKilled := MonkKilled + 1;
end;
end;
end;
end;
////////////////////////////////Killa///////////////////////////////////////////
////////////////////////////Progress Report/////////////////////////////////////
procedure AshursReport;
begin
Writeln('[]//////////////////////////////////////////////[]');
Writeln(' ~~~~~~~~~~~~~~Report~~~~~~~~~~~~~~');
Writeln(' Worked For : ' + ScriptTime2(2))
Writeln(' Bsed ' + IntToStr(MonkKilled ) + ' Monkz');
Writeln(' ~~~~~~~~~~~~~~Report~~~~~~~~~~~~~~');
Writeln('[]//////////////////////////////////////////////[]');
SRLRandomsReport;
end;
////////////////////////////Progress Report/////////////////////////////////////
///////////////////////////////Welcoming1///////////////////////////////////////
procedure Ashur1;
begin
Writeln(' A SSSSSSSSSSS H H U U RRRRR');
Wait(100+Random(10));
Writeln(' A A S H H U U R R');
Wait(100+Random(10));
Writeln(' A A S H H U U R R');
Wait(100+Random(10));
Writeln(' A A S H H U U R R');
Wait(100+Random(10));
Writeln(' AAAAAAAAA SSSSSSSSSSSSSS HHHHHHHHHHHH U U RRRRRRRR');
Wait(100+Random(10));
Writeln(' A A S H H U U R R');
Wait(100+Random(10));
Writeln(' A A S H H U U R R');
Wait(100+Random(10));
Writeln(' A A S H H U U R R');
Wait(100+Random(10));
Writeln('A A SSSSSSSSSSSSS H H UUUUUUUUUUU R R');
Wait(100+Random(10));
Writeln(' A NN N DDD');
Wait(100+Random(10));
Writeln(' A A N N N D D');
Wait(100+Random(10));
Writeln(' A A N N N DDD');
Wait(100+Random(10));
Writeln(' H H A X X OOOOOOOOOO RRRRRR');
Wait(100+Random(10));
Writeln(' H H A A X X O O R R');
Wait(100+Random(10));
Writeln(' H H A A X X O O R R');
Wait(100+Random(10));
Writeln(' H H A A X X O O R R');
Wait(100+Random(10));
Writeln(' HHHHHHHHHHHH AAAAAAAAA XX O O R R');
Wait(100+Random(10));
Writeln(' H H A A XX O O RRRRRRRRRRR');
Wait(100+Random(10));
Writeln(' H H A A X X O O R R');
Wait(100+Random(10));
Writeln(' H H A A X X O O R R ');
Wait(100+Random(10));
Writeln(' H H A A X X OOOOOOOOOO R R ');
Wait(100+Random(10));
end;
///////////////////////////////Welcoming1///////////////////////////////////////
///////////////////////////////Welcoming2///////////////////////////////////////
procedure Ashur2;
begin
Writeln(' Thanks for BUYING the');
Wait(1000+Random(100));
Writeln(' MonkeBSER! :)');
Wait(100+Random(10));
end;
///////////////////////////////Welcoming2///////////////////////////////////////
///////////////////////////////Welcoming3///////////////////////////////////////
procedure Ashur3;
begin
Writeln('Have fun autoing :D');
end;
///////////////////////////////Welcoming3///////////////////////////////////////
///////////////////////////////Welcoming4///////////////////////////////////////
procedure Ashur4;
begin
Writeln('This script was made by Ashur2good And haxor, Remeber that :)');
end;
///////////////////////////////Welcoming4///////////////////////////////////////
///////////////////////////////Welcoming5///////////////////////////////////////
procedure Ashur5;
begin
Writeln('Script version ' + Version + ' ');
end;
///////////////////////////////Welcoming5///////////////////////////////////////
////////////////////////////////Main Loop///////////////////////////////////////
begin
i := i + 1;
ClearDebug;
Ashur1;
Wait(1000+Random(100));
Ashur2;
Wait(1000+Random(100));
Ashur3;
Wait(1000+Random(100));
Ashur4;
Wait(1000+Random(100));
Ashur5;
Wait(1000+Random(100));
Codes;
CheckUserNicks;
LoadDTMs;
ActivateClient;
LoggingIn;
repeat
HighestAngle;
MakeCompass('N');
SetRun(True);
Codes;
SetsFightMode;
AttackingMonkz;
LogOutEvery(HTime,MTime);
if (not(Loggedin)) then NextPlayer(false);
if (Time=i)then
begin
NextPlayer(True);
HighestAngle;
MakeCompass('N');
Writeln('Switched players successfully :)');
end;
until(i>Time);
end.
Well…That's my MonkBSER :) My other scripts are below.
Power Miner:
// A SSSSSSSSSSS H H U U RRRRR //
// A A S H H U U R R //
// A A S H H U U R R //
// A A S H H U U R R //
// AAAAAAAAA SSSSSSSSSSSSSS HHHHHHHHHHHH U U RRRRRRRRR//
// A A S H H U U R R //
// A A S H H U U R R //
// A A S H H U U R R //
//A A SSSSSSSSSSSSS H H UUUUUUUUUUU R R //
////////////////////////////////////////////////////////////////////////////
//This is my Power Miner :) //
// Instructions: //
//Declare players //
//Set player(s) near Minable Rocks //
//Set on low detail and on v-bright //
//Fill in the Consts //
//Have pick axe in invent or weilded(can have 2 in first invent slots max!//
//Sit back and enojoy //
// Auto Miner History: //
//1.0:First release of beta(Credit to Marcus and JAD for Helping :D ty ty //
//1.4:Big change added player and talking procedure and many more to script/
//also thanks to pennti for helping out with the script :) //
////////////////////////////////////////////////////////////////////////////
program AutoMining;
{.include SRL/SRL.scar}
{.Includes/SRL/SRL/Core/Antiban.scar}
{.include SRL/SRL/Skill/Mining.scar}
var
loadz : integer;
const
RockColour1=1976901;//A colour of the rock..
RockColour2=1976901;//Another colour of the rock..
RockColour3=1976901;//Another colour of the rock..
Tolerance=1976901;//Tolerance for finding
Time=10;//How many loads to do, 1=1 load
procedure DeclarePlayers;
begin
HowManyPlayers := 6; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='User Name';//Name Goes Here
Players[0].Pass :='Password';//PassWord Goes Here
Players[0].Nick :='er Nam';//3-4 LowerCase Letters Of Your Name
Players[0].Active:=True;//True If Using, False If Not
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=True;
Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Active:=True;
Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Active:=True;
End;
procedure LoggingIn;
begin
SetUpSRL;
DeclarePlayers;
LoginPlayer;
end;
/////////////////////////////Auto Talk1/////////////////////////////////////////
procedure AutoTalk1;
begin
if (InChat('noobs'))or
(InChat('noobz'))or
(InChat('noob'))or
(InChat('nub'))or
(InChat('nab'))or
(InChat('froob'))or
(InChat('loser'))or
(InChat('choob'))then
begin
Wait(500 + Random(500));
TypeSend('youre the noob' +chr(13));
end;
end;
/////////////////////////////Auto Talk1/////////////////////////////////////////
/////////////////////////////Auto Talk2/////////////////////////////////////////
procedure AutoTalk2;
begin
if (InChat('i own'))or
(InChat('i rule'))or
(InChat('i rulz'))or
(InChat('i good'))or
(InChat('im good'))or
(InChat('ure a nub'))or
(InChat('ure a noob'))or
(InChat('loser'))or
(InChat('i pwn'))or
(InChat('i score'))or
(InChat('im hot'))or
(InChat('ure ugly'))or
(InChat('ch00b'))or
(InChat('fr00b'))or
(InChat('youre a noob'))or
(InChat('youre a nub'))then
begin
Wait(500 + Random(500));
TypeSend('you wish...' +chr(13));
end;
end;
/////////////////////////////Auto Talk2/////////////////////////////////////////
/////////////////////////////Auto Talk3/////////////////////////////////////////
procedure AutoTalk3;
begin
if (InChat('fak'))or
(InChat('bi+(#h'))or
(InChat('faken '))or
(InChat('dik'))or
(InChat('4uk'))then
begin
Wait(500 + Random(500));
TypeSend('reported :)' +chr(13));
end;
end;
/////////////////////////////Auto Talk3/////////////////////////////////////////
/////////////////////////////Auto Talker////////////////////////////////////////
procedure AutoTalker;
begin
AutoTalk1;
AutoTalk2;
AutoTalk3;
end;
/////////////////////////////Auto Talker////////////////////////////////////////
///////////////////////////////Randoms//////////////////////////////////////////
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
f: Integer;
begin
for f := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
///////////////////////////////Randoms//////////////////////////////////////////
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('E');
Wait(10000 + random(2000));
RunBack;
Writeln('Found a random!')
end;
end;
procedure RepeatClicking;
begin
repeat
if FindObj(x,y,'ine',RockColour1,Tolerance)or
FindObj(x,y,'ine',RockColour2,Tolerance)or
FindObj(x,y,'ine',RockColour3,Tolerance)then
MMouse(x,y,0+random(2),0+random(3));
wait(1000+random(100));
Mouse(x,y,2,2+random(3),true);
DoAntiRandoms;
Writeln('Mining...');
Wait(1000+random(100));
Talk;
if (not(Loggedin)) then NextPlayer(false);
until(InvFull);
end;
procedure Drop;
begin
DropTo(3,28);
Writeln('Droping...');
if (not(Loggedin)) then NextPlayer(false);
Loadz := Loadz + 1;
end;
begin
repeat
SetupSRL;
DeclarePlayers;
LoginPlayer;
RepeatClicking;
Drop;
if (not(Loggedin)) then NextPlayer(false);
if (Time=a)then
begin
NextPlayer(True);
HighestAngle;
MakeCompass('N');
Writeln('Switched players successfully :)');
end;
until(false);
end.Barbarian Power Fisher:
// A SSSSSSSSSSS H H U U RRRRR //
// A A S H H U U R R //
// A A S H H U U R R //
// A A S H H U U R R //
// AAAAAAAAA SSSSSSSSSSSSSS HHHHHHHHHHHH U U RRRRRRRRR//
// A A S H H U U R R //
// A A S H H U U R R //
// A A S H H U U R R //
//A A SSSSSSSSSSSSS H H UUUUUUUUUUU R R //
////////////////////////////////////////////////////////////////////////////
//This is my auto Barbarian Fisher Droper in barb village //
//Please do not use any part of this script without my permission //
//Thanks for buying my script :) //
//Credit to JAD :D used some parts from his tut ;)he'll understand... //
//Hopefully :S //
// (~~!Instructions!~~) //
//Sit back and enjoy :D //
//Version 1.0:First release //
//Version 1.5: Added Auto log in, Better fishing spot finding and more! //
//Version 2.0: Updated it hard! the Fish spot finding is terrific!!! //
//Version 2.3: Fixed a bug, increased Standards //
////////////////////////////////////////////////////////////////////////////
program BarbPowerFisher;
{.include SRL/SRL.scar}
{.Includes/SRL/SRL/Core/Antiban.scar}
{.include SRL/SRL/Skill/Fishing.scar}
{.Includes/SRL/SRL/Core/Symbol.scar}
//////////////////////////////Variables/////////////////////////////////////////
var
Fishez, FishingSpot : integer;
i : integer;
DidRandomHappen: Boolean;
//////////////////////////////Variables/////////////////////////////////////////
//////////////////////////////Constants/////////////////////////////////////////
const
FishingSpotColour=16576760;//Leave this unless problems/Used as backup.
TrourtColour=11382456;////Change to Trourt colour/Not really needed.
SalmonColour=7109311;//Change to Salmon colour/Not really needed.
Time=10;//How many loads you want to do for each player
Fishinglvl='30';//Put you're fishing lvl here
DirTorun = 'N';//What direction to run at if in a fight
//////////////////////////////Constants/////////////////////////////////////////
///////////////////////////DeclaringPlayers/////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 6; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='User Name';//Name Goes Here
Players[0].Pass :='Password';//PassWord Goes Here
Players[0].Nick :='er Nam';//3-4 LowerCase Letters Of Your Name
Players[0].Active:=True;//True If Using, False If Not
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=True;
Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Active:=True;
Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Active:=True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
End;
///////////////////////////DeclaringPlayers/////////////////////////////////////
/////////////////////////////Logging In/////////////////////////////////////////
procedure LoggingIn;
begin
SetUpSRL;
SetupSRLFishing;
DeclarePlayers;
LoginPlayer;
end;
/////////////////////////////Logging In/////////////////////////////////////////
///////////////////////////////LoadDTMs/////////////////////////////////////////
Procedure LoadDTMs;
begin
FishingSpot := DTMFromString('78DA63E4666060E06540011B4E7C60F80FA41' +
'981F83F1030720219ECA86A2A36BC04D38C503E2307A6390B0EBC' +
'4155C307240451D57CF8F007558D0876F7A0A80199C141400DC8B' +
'D42A86A569C788FA20600A7BB1689');
end;
///////////////////////////////LoadDTMs/////////////////////////////////////////
///////////////////////////////Randoms//////////////////////////////////////////
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
if (Result = true) then
DidRandomHappen := true;
end;
///////////////////////////////Randoms//////////////////////////////////////////
/////////////////////////////AntiRandoms////////////////////////////////////////
procedure DoAntiRandoms;
begin
FindTalk;
FindFastRandoms;
FindNormalRandoms;
PopUp('ontinue')
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
/////////////////////////////AntiRandoms////////////////////////////////////////
/////////////////////////////Auto Talk1/////////////////////////////////////////
procedure AutoTalk1;
begin
if (InChat('fishing lvl'))or
(InChat('fishing level'))or
(InChat('fishin lvl'))or
(InChat('fish lvl'))or
(InChat('fish level'))then
begin
Wait(500 + Random(500));
TypeSend(Fishinglvl +chr(13));
end;
end;
/////////////////////////////Auto Talk1/////////////////////////////////////////
/////////////////////////////Auto Talk2/////////////////////////////////////////
procedure AutoTalk2;
begin
if (InChat('noobs'))or
(InChat('noobz'))or
(InChat('noob'))or
(InChat('nub'))or
(InChat('nab'))or
(InChat('froob'))or
(InChat('loser'))or
(InChat('choob'))then
begin
Wait(500 + Random(500));
TypeSend('youre the noob' +chr(13));
end;
end;
/////////////////////////////Auto Talk2/////////////////////////////////////////
/////////////////////////////Auto Talk3/////////////////////////////////////////
procedure AutoTalk3;
begin
if (InChat('i own'))or
(InChat('i rule'))or
(InChat('i rulz'))or
(InChat('i good'))or
(InChat('im good'))or
(InChat('ure a nub'))or
(InChat('ure a noob'))or
(InChat('loser'))or
(InChat('i pwn'))or
(InChat('i score'))or
(InChat('im hot'))or
(InChat('ure ugly'))or
(InChat('ch00b'))or
(InChat('fr00b'))or
(InChat('youre a noob'))or
(InChat('youre a nub'))then
begin
Wait(500 + Random(500));
TypeSend('you wish...' +chr(13));
end;
end;
/////////////////////////////Auto Talk3/////////////////////////////////////////
/////////////////////////////Auto Talk4/////////////////////////////////////////
procedure AutoTalk4;
begin
if (InChat('fak'))or
(InChat('bi+(#h'))or
(InChat('faken '))or
(InChat('dik'))or
(InChat('4uk'))then
begin
Wait(500 + Random(500));
TypeSend('reported :)' +chr(13));
end;
end;
/////////////////////////////Auto Talk4/////////////////////////////////////////
/////////////////////////////Auto Talker/////////////////////////////////////////
procedure AutoTalker;
begin
AutoTalk1;
AutoTalk2;
AutoTalk3;
AutoTalk4;
end;
/////////////////////////////Auto Talker/////////////////////////////////////////
//////////////////////////////Anti Ban//////////////////////////////////////////
procedure AntiBans;
begin
case Random(10) of
2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
4: HoverSkill('Fishing', False);
5: HoverSkill('Attack', False);
6: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
7: HoverSkill('Strength', False);
9: BoredHuman;
end;
end;
//////////////////////////////Anti Ban//////////////////////////////////////////
/////////////////////////////Stay Alive/////////////////////////////////////////
procedure StayAlive;
begin
case Random(10) of
1: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
3: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
4: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
5: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
6: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
7: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
8: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
9: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
end;
end;
/////////////////////////////Stay Alive/////////////////////////////////////////
/////////////////////////////Keep Alive/////////////////////////////////////////
procedure KeepAlive;
begin
If not (InvFull) then
begin
case Random(10) of
1: RandomRClickEvery(2 + Random(8));
2: HoverSkill('random', false);
3: RotateEvery(20 + Random(5));
4: LeaveScreenEvery(10 + Random(5));
5: HoverEvery(15 + Random(5),'fishing');
6: PickUpMouse;
7: BoredHuman;
8: StayAlive;
9: KeepAlive;
end;
end;
GameTab(4);
end;
/////////////////////////////Stay Alive/////////////////////////////////////////
//////////////////////////////Running///////////////////////////////////////////
Procedure Running;
Begin
SetRun(True);
GameTab(4);
end;
//////////////////////////////Running///////////////////////////////////////////
////////////////////////////Fish Finding////////////////////////////////////////
procedure RepeatClicking;
begin
LoadDTMs;
repeat
if FindObj(x,y,'ure',FishingSpot,5)or
FindDTM(FishingSpot,x, y,0, 0, 0, 0)or
FindObj(x,y,'ure',FishingSpotColour,5) then
MMouse(x,y,0+random(2),0+random(3));
Mouse(x,y,0,0+random(3),true);
if (not(Loggedin)) then break;
DoAntiRandoms;
HandleWhirlPool;
AntiBans;
KeepAlive;
AutoTalker;
Writeln('Fishing...');
Wait(1000+random(300));
until(InvFull);
Fishez:= Fishez + 26;
if (not (FindObj(x,y,'ure',FishingSpot,5)))or
FindDTM(FishingSpot,x, y,1, 1, 200, 200)or
FindObj(x,y,'ure',FishingSpotColour,5) then
begin
FindSymbol(x,y,'Fishing spot');
Mouse(x,y,0,0+random(3),true);
Flag;
DoAntiRandoms;
AutoTalker;
if FindObj(x,y,'ure',FishingSpot,5)or
FindDTM(FishingSpot,x, y,0, 0, 0, 0)or
FindObj(x,y,'ure',FishingSpotColour,5) then
begin
MMouse(x,y,0+random(2),0+random(3));
Mouse(x,y,0,0+random(3),true);
AutoTalker;
if not LoggedIn then NextPlayer(False);
end;
end;
end;
////////////////////////////Fish Finding////////////////////////////////////////
////////////////////////////Progress Report/////////////////////////////////////
procedure AshursReport;
begin
Writeln('[]///////////////////////////////////////////[]');
Writeln('Worked For : ' + ScriptTime2(2))
Writeln('Fished '+ IntToStr(Fishez) + ' fish');
Writeln('[]///////////////////////////////////////////[]');
end;
////////////////////////////Progress Report/////////////////////////////////////
///////////////////////////////Welcoming1///////////////////////////////////////
procedure Ashur1;
begin
Writeln(' A SSSSSSSSSSS H H U U RRRRR');
Writeln(' A A S H H U U R R');
Writeln(' A A S H H U U R R');
Writeln(' A A S H H U U R R');
Writeln(' AAAAAAAAA SSSSSSSSSSSSSS HHHHHHHHHHHH U U RRRRRRRR');
Writeln(' A A S H H U U R R');
Writeln(' A A S H H U U R R');
Writeln(' A A S H H U U R R');
Writeln('A A SSSSSSSSSSSSS H H UUUUUUUUUUU R R');
end;
///////////////////////////////Welcoming1///////////////////////////////////////
///////////////////////////////Welcoming2///////////////////////////////////////
procedure Ashur2;
begin
Writeln('Thanks for buying my script :D');
end;
///////////////////////////////Welcoming2///////////////////////////////////////
///////////////////////////////Welcoming3///////////////////////////////////////
procedure Ashur3;
begin
Writeln('Have fun autoing :D');
end;
///////////////////////////////Welcoming3///////////////////////////////////////
///////////////////////////////////Main Loop////////////////////////////////////
begin
i := i + 1;
ClearDebug;
Wait(1000+Random(100));
Ashur1;
Wait(1000+Random(100));
Ashur2;
Wait(1000+Random(100));
Ashur3;
Wait(1000+Random(100));
ActivateClient;
Loggingin;
repeat
HighestAngle;
Makecompass('N');
Running;
RepeatClicking;
AntiBans;
AutoTalker;
AshursReport;
SRLRandomsReport;
if (not(Loggedin)) then NextPlayer(false);
if (time=i)then
begin
NextPlayer(True);
HighestAngle;
MakeCompass('N');
Writeln('Switched players successfully :)');
end;
until(False);
end.
Coin Picker:
// A SSSSSSSSSSS H H U U RRRRR //
// A A S H H U U R R //
// A A S H H U U R R //
// A A S H H U U R R //
// AAAAAAAAA SSSSSSSSSSSSSS HHHHHHHHHHHH U U RRRRRRRRR//
// A A S H H U U R R //
// A A S H H U U R R //
// A A S H H U U R R //
//A A SSSSSSSSSSSSS H H UUUUUUUUUUU R R //
////////////////////////////////////////////////////////////////////////////
//This is my auto CoinPicker under varrock westbank //
//Please do not use any part of this script without me letting //
//This is a funny script :P lol i doubt anyone would like it :( //
// (~~!Instructions!~~) //
//Set Player over coin under bank //
//CHANGED, wear clothes if you really want :D //
//CHANGED, Scar will do the rest :P //
//Sit back and enjoy :D This is my best script yet :D //
//Versoin 1.:First Release //
//Version 2.:Added more anti ban, Randoms that work, progress report, //
//fixed the procedures, Big change! // //
////////////////////////////////////////////////////////////////////////////
program AutoCoinPicker;
{.include SRL/SRL.scar}
{.Includes/SRL/SRL/Core/Antiban.scar}
//////////////////////////////Variables/////////////////////////////////////////
var
Coinz : integer;
i: Integer;
//////////////////////////////Variables/////////////////////////////////////////
//////////////////////////////Constants/////////////////////////////////////////
const
CoinColour=5362427;
Nickz='ser';//3-4 LowerCase Letters Of Your Name
RunningTime=10;//How long you want it to run for, 1= 1 run(30gp LOL!)
//////////////////////////////Constants/////////////////////////////////////////
///////////////////////////DeclaringPlayers/////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 6; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='UserName';//Name Goes Here
Players[0].Pass :='PassWord';//Password Goes Here
Players[0].Nick :='';//No need :/
Players[0].Active:=True;//True If Active, False If Not
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=True;
Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Active:=True;
Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Active:=True;
End;
///////////////////////////DeclaringPlayers/////////////////////////////////////
/////////////////////////////Logging In/////////////////////////////////////////
procedure LoggingIn;
begin
SetUpSRL;
DeclarePlayers;
LoginPlayer;
end;
/////////////////////////////Logging In/////////////////////////////////////////
/////////////////////////////AntiRandoms////////////////////////////////////////
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('E');
Wait(10000 + random(2000));
RunBack;
end;
end;
/////////////////////////////AntiRandoms////////////////////////////////////////
/////////////////////////////Auto Talker////////////////////////////////////////
procedure AutoTalk;
begin
if (InChat('yo'))or
(InChat('hey'))or
(InChat('sup'))or
(InChat('hi'))or
(InChat('hello'))then
begin
Wait(500 + Random(500));
TypeSend('hi');
end;
end;
/////////////////////////////Auto Talker////////////////////////////////////////
////////////////////////////Coin Finding////////////////////////////////////////
procedure RepeatClicking;
begin
if FindObj(x,y,'ake',CoinColour,5)then
MMouse(x,y,0+random(5),0+random(3));
wait(100+random(50));
Mouse(x,y,3,3,true);
Writeln('Found Coin!')
DoAntiRandoms;
AutoTalk;
DoAntiRandoms;
coinz:= coinz + 30;
if not LoggedIn then NextPlayer(False);
end;
////////////////////////////Coin Finding////////////////////////////////////////
////////////////////////////Progress Report/////////////////////////////////////
procedure AshursReport;
begin
Writeln('[]///////////////////////////////////////////[]');
Writeln('Worked For : ' + ScriptTime2(2))
Writeln('Picked '+ IntToStr(Coinz) + ' Coins');
Writeln('[]///////////////////////////////////////////[]');
end;
////////////////////////////Progress Report/////////////////////////////////////
///////////////////////////////Welcoming////////////////////////////////////////
procedure Ashur;
begin
Writeln(' A SSSSSSSSSSS H H U U RRRRR')
Writeln(' A A S H H U U R R')
Writeln(' A A S H H U U R R')
Writeln(' A A S H H U U R R')
Writeln(' AAAAAAAAA SSSSSSSSSSSSSS HHHHHHHHHHHH U U RRRRRRRR')
Writeln(' A A S H H U U R R')
Writeln(' A A S H H U U R R')
Writeln(' A A S H H U U R R')
Writeln('A A SSSSSSSSSSSSS H H UUUUUUUUUUU R R')
Writeln('Thanks for using my script :D')
Writeln('Have fun autoing :D')
end;
///////////////////////////////////Welcoming////////////////////////////////////
///////////////////////////////////Main Loop////////////////////////////////////
begin
repeat
DisguiseSCAR('Windows Messenger');
Ashur;
Wait(3000+Random(1000));
ActivateClient;
SetupSRL;
DeclarePlayers;
LoginPlayer;
NickNameBMP := CreateBitmapMaskFromText(Nickz, UpChars);
HighestAngle;
Makecompass('N');
DoAntiRandoms;
RepeatClicking;
DoAntiRandoms;
case Random(10) of
2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
4: HoverSkill('Fishing', False);
5: HoverSkill('Attack', False);
6: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
7: HoverSkill('Strength', False);
9: BoredHuman;
end;
DoAntiRandoms;
AshursReport;
SRLRandomsReport;
DoAntiRandoms;
i := i + 1;
until(i > RunningTime);
end.Auto Fighter:
// A SSSSSSSSSSS H H U U RRRRR //
// A A S H H U U R R //
// A A S H H U U R R //
// A A S H H U U R R //
// AAAAAAAAA SSSSSSSSSSSSSS HHHHHHHHHHHH U U RRRRRRRRR//
// A A S H H U U R R //
// A A S H H U U R R //
// A A S H H U U R R //
//A A SSSSSSSSSSSSS H H UUUUUUUUUUU R R //
////////////////////////////////////////////////////////////////////////////
//This is my any monster AutoFighter //
//Good script, but my MonkBSER will be the best :D (More on that later) //
// ~SETUP INSTRUCTIONS~ //
//PLay on low detail, V-Bright, //
//Set Up constants and declare players //
// ~AUTOFIGHTER HISTORY~ //
//Version1: First Release //
//Version1.5: Added auto log in //
//Version 2.0: Biggest change to script. //
//Version 2.0: Added Fight mode //
////////////////////////////////////////////////////////////////////////////
program AutoKilla;
{.include SRL/SRL.scar}
{.Includes/SRL/SRL/Core/Antiban.scar}
{.include SRL/SRL/Skill/Fighting.scar}
//////////////////////////////Variables/////////////////////////////////////////
var
i, a: Integer;
Killed: Integer;
DidRandomHappen: Boolean;
//////////////////////////////Variables/////////////////////////////////////////
//////////////////////////////Constants/////////////////////////////////////////
const
Colours1=7057747;//One colour of the monster
Colours2=7057747;//Another colour of the monster
Colours3=7057747;//Last colour of the monster
MName='tree';//The monster name you are fighting
Time=10;//How many monsters you want to kill
DirTorun='N';//Which way to run if in a fight
Attacklvl='20';//Put in you're attack level...
//////////////////////////////Constants/////////////////////////////////////////
///////////////////////////DeclaringPlayers/////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 6; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='User Name';//Name Goes Here
Players[0].Pass :='Password';//PassWord Goes Here
Players[0].Nick :='er Nam';//3-4 LowerCase Letters Of Your Name
Players[0].Active:=True;//True If Using, False If Not
Players[0].Skill := 'Strength';//What style you want to attack with. Choose from Attack, Strength, Defence.
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;
Players[1].Skill := 'Strength';
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=True;
Players[2].Skill := 'Strength';
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=True;
Players[3].Skill := 'Strength';
Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Active:=True;
Players[4].Skill := 'Strength';
Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Active:=True;
Players[5].Skill := 'Strength';
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
End;
///////////////////////////DeclaringPlayers/////////////////////////////////////
///////////////////////////////Randoms//////////////////////////////////////////
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
if (Result = true) then
DidRandomHappen := true;
end;
///////////////////////////////Randoms//////////////////////////////////////////
/////////////////////////////AntiRandoms////////////////////////////////////////
procedure DoAntiRandoms;
begin
FindTalk;
FindFastRandoms;
FindNormalRandoms;
PopUp('ontinue')
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
if not LoggedIn then NextPlayer(False);
end;
end;
/////////////////////////////AntiRandoms////////////////////////////////////////
/////////////////////////////Auto Talk1/////////////////////////////////////////
procedure AutoTalk1;
begin
if (InChat('att lvl'))or
(InChat('att level'))or
(InChat('attack level'))or
(InChat('attack lvl'))or
(InChat('attck level'))then
begin
Wait(500 + Random(500));
TypeSend(Attacklvl +chr(13));
end;
end;
/////////////////////////////Auto Talk1/////////////////////////////////////////
/////////////////////////////Auto Talk2/////////////////////////////////////////
procedure AutoTalk2;
begin
if (InChat('noobs'))or
(InChat('noobz'))or
(InChat('noob'))or
(InChat('nub'))or
(InChat('nab'))or
(InChat('froob'))or
(InChat('loser'))or
(InChat('choob'))then
begin
Wait(500 + Random(500));
TypeSend('youre the noob' +chr(13));
end;
end;
/////////////////////////////Auto Talk2/////////////////////////////////////////
/////////////////////////////Auto Talker////////////////////////////////////////
procedure AutoTalker;
begin
AutoTalk1;
AutoTalk2;
end;
/////////////////////////////Auto Talker////////////////////////////////////////
//////////////////////////////Anti Ban//////////////////////////////////////////
procedure AntiBans;
begin
case Random(10) of
2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
4: HoverSkill('Fishing', False);
5: HoverSkill('Attack', False);
6: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
7: HoverSkill('Strength', False);
9: BoredHuman;
end;
end;
//////////////////////////////Anti Ban//////////////////////////////////////////
/////////////////////////////FightMode//////////////////////////////////////////
procedure SetsFightMode;
begin
GameTab(1);
if Players[CurrentPlayer].Skill = 'Attack' then SetFightMode(1);
if Players[CurrentPlayer].Skill = 'Strength'then SetFightMode(2);
if Players[CurrentPlayer].Skill = 'Defence' then SetFightMode(4);
FindTalk;
end;
/////////////////////////////FightMode//////////////////////////////////////////
///////////////////////////Attack Monster///////////////////////////////////////
procedure AtackMonster;
begin
Killed:= Killed + 1;
SetsFightMode;
repeat
if FindObj(x,y,MName,Colours1,5) or
FindObj(x,y,MName,Colours2,5) or
FindObj(x,y,MName,Colours3,5) then
DoAntiRandoms;
AutoTalker;
MMouse(x,y,0+random(2),0+random(3));
Mouse(x,y,0,0+random(3),true);
DoAntiRandoms;
if (not(Loggedin)) then NextPlayer(false);
DoAntiRandoms;
AutoTalker;
Writeln('Fighting');
Wait(1000+random(300));
if (not(Loggedin)) then NextPlayer(false);
until(InFight= False);
end;
///////////////////////////Attack Monster///////////////////////////////////////
////////////////////////////Progress Report/////////////////////////////////////
procedure AshursReport;
begin
Writeln('[]///////////////////////////////////////////[]');
Writeln('Worked For : ' + ScriptTime2(2))
Writeln('Killed '+ IntToStr(Killed) + MName);
Writeln('[]///////////////////////////////////////////[]');
end;
////////////////////////////Progress Report/////////////////////////////////////
///////////////////////////////Welcoming1///////////////////////////////////////
procedure Ashur1;
begin
Writeln(' A SSSSSSSSSSS H H U U RRRRR');
Writeln(' A A S H H U U R R');
Writeln(' A A S H H U U R R');
Writeln(' A A S H H U U R R');
Writeln(' AAAAAAAAA SSSSSSSSSSSSSS HHHHHHHHHHHH U U RRRRRRRR');
Writeln(' A A S H H U U R R');
Writeln(' A A S H H U U R R');
Writeln(' A A S H H U U R R');
Writeln('A A SSSSSSSSSSSSS H H UUUUUUUUUUU R R');
end;
///////////////////////////////Welcoming1///////////////////////////////////////
///////////////////////////////Welcoming2///////////////////////////////////////
procedure Ashur2;
begin
Writeln('Hope you like the script :P');
end;
///////////////////////////////Welcoming2///////////////////////////////////////
///////////////////////////////Welcoming3///////////////////////////////////////
procedure Ashur3;
begin
Writeln('Have fun autoing :D');
end;
///////////////////////////////Welcoming3///////////////////////////////////////
///////////////////////////////////Main Loop////////////////////////////////////
begin
repeat
a := a + 1;
ClearDebug;
Wait(1000+Random(100));
Ashur1;
Wait(1000+Random(100));
Ashur2;
Wait(1000+Random(100));
Ashur3;
Wait(1000+Random(100));
ActivateClient;
SetupSRL;
DeclarePlayers;
LoginPlayer;
HighestAngle;
Makecompass('N');
DoAntiRandoms;
AtackMonster;
DoAntiRandoms;
AntiBans;
AshursReport;
if (not(Loggedin)) then NextPlayer(false);
if (Time=a)then
begin
NextPlayer(True);
HighestAngle;
MakeCompass('N');
Writeln('Switched players successfully :)');
end;
until(false);
end.Auto Talker:
program AutoTalker;
{.include SRL/SRL.scar}
const
WhatToSay1='k';//Put what you want to say
WhatToSay2='lol';//Put what you want to say next
Time=20;//How many times you want to repeat Talking
var
i : Integer;
procedure Talk1;
begin
Wait(1000+random(200));
TypeSend(WhatToSay1 +chr(13));
Wait(1000+random(200));
DoAntiRandoms;
end;
procedure Talk2;
begin
Wait(1000+random(200));
TypeSend(WhatToSay2 +chr(13));
Wait(1000+random(200));
DoAntiRandoms;
end;
begin
repeat
i := i + 1;
SetupSRL;
Talk1;
Talk2;
until(Time=i)
end.Well, There's my collection of scripts, i hope that has convinced you to vote YES for me to be a member :D.
And If you fix up the MonkBSER to work, then YES you may use it XD.
-Ashur:stirthepot:
——————————————————
<!– END TEMPLATE: formanswers –>