Baboon
2007-03-22 03:46:34
<!– BEGIN TEMPLATE: formanswers –>
Baboon - SRL Member Application Form
Baboon
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Html, Javascript, Small parts of PHP
Other Communitys
Moparscape, Scarforum, Kaitnieks
How Long have You Played Runescape
4 Years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I was a SRL member back a few month ago before my account was hacked into (Uxalis), I then left scar for a while due to College work, I have just recently been introduced again to SCAR as the newer version is too be released soon.
I've had experience with SCAR for over a year and a half now, although I have not scripted any macros for a while, I still remember the code and how to incorperate SRL into my macros.
I think SRL is the best things that happened to SCAR, ever! Without it, scripts would still be more primitive and more detectable.
I would love to join the SRL member team as I believe I can provide alot to the community and provide a few ideas to the table which may be incorporated into the SRL releases.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Originally from my other account
——————————————————
<!– END TEMPLATE: formanswers –>
Baboon - SRL Member Application Form
Baboon
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Html, Javascript, Small parts of PHP
Other Communitys
Moparscape, Scarforum, Kaitnieks
How Long have You Played Runescape
4 Years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I was a SRL member back a few month ago before my account was hacked into (Uxalis), I then left scar for a while due to College work, I have just recently been introduced again to SCAR as the newer version is too be released soon.
I've had experience with SCAR for over a year and a half now, although I have not scripted any macros for a while, I still remember the code and how to incorperate SRL into my macros.
I think SRL is the best things that happened to SCAR, ever! Without it, scripts would still be more primitive and more detectable.
I would love to join the SRL member team as I believe I can provide alot to the community and provide a few ideas to the table which may be incorporated into the SRL releases.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Originally from my other account
program Auto_Flax_Picker;
{.include SRL\SRL.scar}
{
Please, before you run the script, make sure the
mnimap has the buildings (verticle) walls like this:
| Not like this: |
| |
| |
| | \ /
| / | \ /
| / | \/
| / | /\
| \ / | / \
| \/ | / \
Get me?
}
// ++++++++++++ V1.12 +++++++++++++
// ++++++++++++++++++++++++++++++++
// +++++ Uxalis AutoFlaxer ++++
// ++++ +++
// ++ Credits: ++
// ++++++++++++++++++++++++++++++++
// ++ Scripting: Uxalis ++
// ++ SRL: SRL Developers ++
// ++ Help: ++
// ++ -Phantombmx ++
// ++ -Wade ++
// +++++ +++++
// ++++ ++++
// ++ Version History: ++
// ++++++++++++++++++++++++++++++++
// ++ v1.01 ++
// ++ ----- ++
// ++ -Initial Release ++
// +++++ +++++
// ++++ ++++
// ++ v1.02 ++
// ++ ----- ++
// ++ -AntiRandoms ++
// ++ -Most bugs fixed ++
// ++ -Report added ++
// ++ -AntiBans ++
// ++ -More Options ++
// +++++ +++++
// ++++ ++++
// ++ v1.10 ++
// ++ -Way Better Banking ++
// ++ -Much Better Walking ++
// ++ -Much Better Picking ++
// ++ -Code Tweaking ++
// ++ -Pin Number Compatability ++
// ++ -Tidier Code ++
// ++ -Roughly 30% faster ++
// ++ -Huge Bugs Fixed ++
// +++++ +++++
// ++++ ++++
// ++ v1.11 ++
// ++ -More accurate picking ++
// ++ -More undetectable ++
// ++ -Bug concerning "close ++
// ++ window" on bank screen ++
// ++ fixed. ++
// +++++ +++++
// ++++ ++++
// ++ v1.12 ++
// ++ -Fixed 3 Bugs ++
// ++ -Better Walking Procedure ++
// ++ -Fixed banking ++
// +++++ +++++
// ++++ ++++
// ++ v1.13 ++
// ++ -Improved antirandoms ++
// ++ ~supports beehive man ++
// ++ Instructions: ++
// ++++++++++++++++++++++++++++++++
// ++ 1. Stand in the camelot ++
// ++ bank, anywhere. ++
// ++ 2. Empty your inventory ++
// ++ 3. Set up Lines 88-111 ++
// ++ 5. Select the runescape ++
// ++ main screen and run ++
// ++++++++++++++++++++++++++++++++
// ++++++++++++ V1.12 +++++++++++++
var x1, y1, MMBank, s, u, r1, BeeMan, Num, rt, se, r, pf, Rock, WaitTime, co, ch2, i, lo, c, Runs, lt1, lt2, LogoutTime, LogoutTime2, Flax, Flax1, Flax2, Flax3, Picked, HowMany, Tol: Integer;
Run_Direction, Username, Password, Nickname, PinNo: String;
///////////////// Feature Setup ////////////////
const StartPlayer= 0; // Determines who will play first
const UseBan= True; // Use AntiBan Features?
const UseRan= True; // Use AntiRanoms?
////////////////Gerneral Setup/////////////////
Procedure Setup; //
Begin; //
HowMany:= 800; // Ammount of flax to pick before logging out.
LogoutTime:= 20; // Time (minutes) before you log back in from each trip (above).
PinNo:= ''; // Set your pin here for bank operation (Leave blank of you dont have one)
WaitTime:= 750; // How long before clicking next flax? (Milliseconds (1000=1sec))
LogoutTime2:= 20; // Set this to a lower number about 10-20.
MMBank:= 5100518; // Bank Symbol Color
Rock:= 4145212; // Minimap color of the rocks outside the bank.
Tol:= 10; // Ammount of tolerance
////////////////FLAX COLOURS SHOULD BE OK, IF YOU HAVE PROBLEMS, CHANGE THEM//////////////
Flax:= 11298400; // Purple colour on minimap
Flax1:= 11520; // Colour Of Flax
Flax2:= 878600; // Colour of flax, different to "Flax1" and "Flax2".
Flax3:= 4999954; // Colour of flax, different to "Flax2" and "Flax1"
Username:= ''; // Username of your account
Password:= ''; // Password of your account
Nickname:= ''; // Your Account Nickname
////////////// Do Not Edit Below //////////////
s:=0; //
c:=0; //
BeeMan := BitmapFromString(32, 8, 'z78DA333018486081440E5D3' +
'0EAFEE1E17E0BA2D3A4055553AF0505B6E30F010BA2C3CA8206E1' +
'6F31A02A2971BF05053EB520DAAE814AB7C86C00419D2150');
End; //
///////////////// End Of Setup ////////////////
{ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - }
{ - - - - - - - - Stop Editing Below this line - - - - - - - -}
{ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - }
Procedure FixBeeMan;
Begin
If(FindBitmapSpiralTolerance(BeeMan,x,y,4,341,502,434,20))then
begin
lt1:= LogoutTime*60000;
lt2:= LogoutTime2*60000;
Logout;
wait(lt1+random(lt2));
LoginPlayer;
end
End;
procedure OpenCamBank;
var
x, y, fs, fs2: Integer;
begin
if not BankScreen then
repeat
if(FindObj(x, y, 'ank', 11184559, 10))then
Mouse(x,y,4,4,False)
else
if(FindObj(x, y, 'ank', 11119023, 10))then
Mouse(x,y,4,4,False)
Wait(250);
if(ClickOption('uickly', 1))then
begin
Flag;
repeat
Wait(100);
fs := fs+1
until(BankScreen) or (fs>=50);
end;
fs2 := fs2+1
until(BankScreen) or (fs2>5);
end;
Procedure DeclarePlayers;
Begin
HowManyPlayers :=1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer:=StartPlayer; // CurrentPlayer = Array Index
Players[0].Name := Username; // Already Filled In
Players[0].Pass := Password; // Already Filled In
Players[0].Nick := Nickname; // Nickname
Players[0].Active:=True; // Active?
End;
Procedure Login;
Begin;
If(LoggedIn=False)Then
Begin;
LoginPlayer;
wait(random(200)+270)
c:=0
End;
If(LoggedIn=True)Then
Begin;
End;
End;
Procedure Setchats;
Begin;
If(LoggedIn) and (c=0)then
Begin
Wait(random(1000)+1000)
SetChat('Off', 2);
c:=1
End
End;
Procedure WalkOver;
Begin;
if(FindMMColor(x1,y1,MMBank) and (i=0)) then
Begin
SetRun(True);
FindMMColor(x1,y1,rock);
x1:=x1+(random(1)+38);
y1:=y1+(random(1)+13);
Mouse(x1,y1,0,0,true);
Flag;
wait(random(300)+400);
Mouse(641,147,1,1,true);
Flag;
wait(random(300)+400);
Mouse(656,153,1,1,true);
Flag;
wait(random(200)+400);
CMouse(692,114,1,1,true);
Flag;
wait(random(200)+400);
Mouse(671,102,1,1,true);
i:=1
pf:=0
End
Else
Begin
i:=1
End
End;
procedure AntiJagex;
begin
if(useban=True)then
begin
r1:=random(1);
if(r1=0)then
begin
Status('Anti Ban In Progress...');
u:=random(1)+3;
PickUpMouse;
r:=random(2);
if(r=0)then
begin
GameTab(2);
if(se>30)then
begin
ch2:=random(2)
if(ch2=0)then
begin
Status('Typing For Anti Ban...');
ActivateClient;
TypeSend('I have got '+inttostr(Picked)+' flax.');
Status('Typing Complete...');
end
if(ch2=1)then
begin
rt:=random(3);
if(rt=0)then
begin
RussianWords;
Co:=1+Random(36);
TypeSend(Russian[Co]);
end
if(rt=1)then
begin
end
if(rt=2)then
begin
end
if(rt=3)then
begin
RussianWords;
Co:=1+Random(36);
TypeSend(Russian[Co]);
end
end
if(ch2=2)then
begin
end
end
else
begin
rt:=random(3);
if(rt=0)then
begin
RussianWords;
Co:=1+Random(36);
TypeSend(Russian[Co]);
end
if(rt=1)then
begin
end
if(rt=2)then
begin
end
if(rt=3)then
begin
RussianWords;
Co:=1+Random(36);
TypeSend(Russian[Co]);
end
end
end
else if(r=1)then
begin
end
else if(r=2)then
begin
SetRun(true);
end
end
else if(r1=1)then
begin
if(se>30)then
begin
Status('Typing For Anti Ban...');
ActivateClient;
TypeSend('I have got '+inttostr(Picked)+' flax.');
Status('Typing Complete...');
end
end
else
begin
end
Status('Anti Ban Complete...');
end
else if(useban=false)then
begin
Status('Skipped AntiBan');
end
end;
Procedure AntiRandomCheck;
Begin
if(UseRan=True)then
Begin
FindNormalRandoms;
FixBeeMan;
if(FindFight)then
Begin
RunAwayDirection(Run_Direction)
wait(random(5000)+4000)
RunBack;
End
End
End;
Procedure PickFlax;
Begin
If(FindColorEllipse(x1,y1,Flax1,tol,47,225,489,275)) or (FindMSColorTol(x1,y1,Flax2,tol)) or(FindMSColorTol(x1,y1,Flax3,tol))then
Begin
if(i=1)then
Begin
Wait(100)
begin
if(pf=0)then
begin
If(FindColorFromCentre(x1, y1, 270, 139, Flax1, 500, tol)) or (FindColorFromCentre(x1, y1, 270, 139, Flax2, 500, tol)) or (FindColorFromCentre(x1, y1, 270, 139, Flax3, 500, tol))then
Begin
Mouse(x1,y1,1,1,true);
Flag;
wait(random(WaitTime)+500);
pf:=1
End
end
else
begin
end
end
begin
Repeat
If(FindColorFromCentre(x1, y1, 270, 139, Flax1, 80, tol)) or (FindColorFromCentre(x1, y1, 270, 139, Flax2, 80, tol)) or (FindColorFromCentre(x1, y1, 270, 139, Flax3, 80, tol))then
Begin
MMouse(x1,y1,2,2);
If(Option2('lax'))then
Begin
repeat
Mouse(x1,y1,0,0,true);
Flag;
wait(random(WaitTime)+500);
AntiRandomCheck;
until((option2('')) or (InvFull))
End
Else
Begin
End
End
Else
Begin
End
until(InvFull)
end
End
End
else
begin
Flag;
wait(random(200)+400);
FindMMColor(x1,y1,flax);
Mouse(x1,y1,0,0,true);
end
If(InvFull=True)then
Begin
Picked:=Picked+28
i:=0
End
End;
Procedure WalkBack;
Begin
if(InvFull)then
Begin
Mouse(613,87,1,1,true);
Flag;
Wait((200)+random(300));
Mouse(610,65,1,1,true);
Flag;
Mouse(640,71,1,1,true);
Flag;
Wait((200)+random(300));
FindSymbol(x1,y1,'tree');
Wait((200)+random(300));
x1:=x1+33
Mouse(x1,y1,1,1,true);
wait(6000)
Flag;
Wait((200)+random(300));
mouse(657,33,1,1,true);
Flag;
Wait((200)+random(300));
mouse(658,43,1,1,true);
Flag;
Wait((200)+random(300));
FindMMColor(x1,y1,MMBank);
Wait((200)+random(300));
Mouse(x1,y1,1,1,true);
Flag;
End
End;
Procedure BankIt;
Begin;
If((InvFull) and (FindMMColor(x1,y1,MMBank)))then
banks:=banks+1
Begin
Repeat
if(PinNo = '')then
Begin
OpenCamBank;
Deposit2(1,0);
wait(1000)
End
Else
Begin
Num:= strtoint(PinNo);
OpenBank2(Num);
End
If(BankScreen = True)then
Begin
FixBank;
Deposit2(1,0)
Repeat
Mouse(485, 40, 3, 3, true);
wait(2000+random(1000))
Until(BankScreen= False)
End
Until(InvFull=False)
End
End;
Procedure CompleteRun;
Begin
If(Picked >= HowMany)then
Begin
lt1:= LogoutTime*60000;
lt2:= LogoutTime2*60000;
Logout;
lo:=lo+1
Picked:=0;
wait(lt1+random(lt2));
LoginPlayer;
Runs:=Runs+1;
End
End;
Procedure Progress;
Begin
ClearDebug;
WriteLn('---------------------------------');
WriteLn('------Uxalis Auto Flax Picker------');
WriteLn('---------------------------------');
WriteLn('Worked for: '+TimeRunning+'.');
WriteLn('Picked: '+inttostr(Picked)+' Flax.');
WriteLn('Banked: '+inttostr(Banks)+' Times.');
WriteLn('Completed Runs: '+inttostr(Runs)+'.');
WriteLn('Logged out: ' +inttostr(lo)+' Times.')
WriteLn('---------------------------------');
WriteLn('------ AntiRandoms Report ------');
WriteLn('Please look at the report window ');
WriteLn('For the complete AntiRandom report');
WriteLn('---------------------------------');
WriteLn('------Uxalis Auto Plax Picker------');
WriteLn('---------------------------------');
WriteLn('');
WriteLn('');
SRLRandomsReport;
End;
Begin
SetupSRL;
SetUpDemon;
Setup;
DeclarePlayers;
Repeat
Progress;
ActivateClient;
Wait(1000)
Login;
Progress;
AntiRandomCheck;
Setchats;
Progress;
AntiRandomCheck;
WalkOver;
Progress;
AntiRandomCheck;
Progress;
AntiJagex;
Progress;
AntiRandomCheck;
Progress;
PickFlax;
Progress;
AntiRandomCheck;
Progress;
WalkBack;
AntiRandomCheck;
Progress;
BankIt;
Progress;
AntiRandomCheck;
CompleteRun;
Progress;
AntiRandomCheck;
Progress;
Until(false)
End.
——————————————————
<!– END TEMPLATE: formanswers –>