Zage
2007-11-29 09:34:21
<!– BEGIN TEMPLATE: formanswers –>
Zage - SRL Member Application Form
Zage
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
java, pascal
Other Communitys
Was on Kaitnieks, Sythe.org
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.
Im 18 years old and have been on rs for 4 years and on scar for 2 years.
I was first on Kaitnieks forums for a year, and made a good script called willowcutterbanker, but kaitnieks went down and i didint find a good forum to continue that time, but now after over year i found this site and its much like it and i like it :)
I will make a bigger script in the future maybe first update my willowcutterbanker to get know to srl…
The scirpt i send wont compile whitout osi, boxbreaker and par, i will update this script later.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
Zage - SRL Member Application Form
Zage
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
java, pascal
Other Communitys
Was on Kaitnieks, Sythe.org
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.
Im 18 years old and have been on rs for 4 years and on scar for 2 years.
I was first on Kaitnieks forums for a year, and made a good script called willowcutterbanker, but kaitnieks went down and i didint find a good forum to continue that time, but now after over year i found this site and its much like it and i like it :)
I will make a bigger script in the future maybe first update my willowcutterbanker to get know to srl…
The scirpt i send wont compile whitout osi, boxbreaker and par, i will update this script later.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
// +A Script By Zage+ //
// //
////////////WillowCutterBanker2.0//////////
//1.Star near willow trees by draynor ////////////////////
//2.have ur axe in your firs bag slot and bank slot few more//
//3.setup what is needed (Get Colors!!) at line 28 //
//4.Dont run it too long,NOTE this is my first script so /////
//its not super proof yeat inform bugs or problems to forums!/
//I suggest you run the scrpt and enjoy watching the script//
//cutting trees :) //
///////////////////////////////////////////////////////////
////////////-Thanks-///////////////////////////// {+Setup+}
//To Kaitieks making SCAR!!! // ///
//To Odie5533: For his great OSi // ///
//To Piv and Odie5533 for BoxBraker // ///
//To People who helped me at SCAR forums // ///
//To SCRIPTERS from i have learned alot!! // ///
//To stupid3ooo,EdMandel and Phalanx //////// //////
//TO Rune_the_elf for the new cutting idea!! // ////
//TO MAKERS OF MRI!!!!!!! (Axe Procedures) // //
/////////////////////////////////////////////
//Change log:////////////////////////////////////////////////////
//version 1.0 the release
//version 1.02:fixed banking procedure,AxeBroken,and some small
//changes.
//Version 2.0 maybe Final:Added GetAxeColors,AxeHeadGone
//FixAxe thanks to Makers from MRI.Added Ifgetlost,better
//IfgetAttaced,New ProgressReports,And screenchots
//to procedures.
/////////////////////////////////////////////////////////////////
program willlowCutterBanker;
{.include OSi.txt}
{.include BoxBreaker2.txt}
{.include par.txt}
var
chop,iLamp,banked,At,AxeHeadColor,AxeHandleColor,Lost,TalkY,TalkW:integer;
const
///////////////////////-Setup-///////////////////////////////////
///////OnGameScreen/////////////////////////
willow=2119768; //1 color of the willow ///
willow2=1125412; //2 color of the willow ////////////////////
willowLogs=1407144;//take a from willow logs in your bag /// //////////////////////
///////////////OnMiniMap////////////////////////////////////
BankLogo=5232622 ; //the bank logo//////////////////////////////// //
TiMx=3000; //the time how ofen click trees better leave alone//
skill='attack';//Choose a skill for the lamp //
////////ForAutoLogIn////////////////////////////////////////////
username='ZAGE'; //
password='SCAR';
BankAxe=false; //
//////////////////
/////////////-EndOfSetup-/////////////////////////////////////////////////
procedure LoginIfNeeded;//A stupid3ooo procedure based of many others
var counter:integer;
begin
if(length(username) > 0)and(length(password) > 0)then
begin
if(IsTextAt2(293,251,'Username',0))and(NotLogedIn)then
Mouse(460,322,10,2,true);
if(IsTextAt2(309,241,'Welcome to RuneScape',0))and(NotLogedIn)then
begin
Mouse(400,280,125,20,true);
if(IsTextAt2(271,214,'Enter your username',50))then
begin
Mouse(400,256,20,5,true);
SendKeysSilentsmooth(username,50);
Mouse(400,270,20,5,true);
SendKeysSilentsmooth(password,50);
Mouse(300,322,20,5,true);
repeat
counter:=counter+1;
wait(100);
until(FindColor(x,y,8421504,0,0,515,338))or(counter=60)
end;
end;
if(FindColor(x,y,8421504,400,0,515,338))then
begin
Mouse(x+5,y+1,15,5,true);
sendarrowsilentwait(0,900+random(200))
wait(200+random(100));
end;
end;
end;
///////////////////////////////////////////////////////////////////
procedure Gotobank;
begin
status('Going to Bank =) ')
findcolortolerance(x,y,BankLogo,569,0,716,155,2)
mouse(x-random(2),y+random(2),1,1,true)
wait(17000)
findcolortolerance(x,y,BankLogo,569,0,716,155,2)
mouse(x-5,y+2,2,2,true)
end;
procedure backtowillow;
begin
status('Back to Willows =) ')
wait(1000)
findcolortolerance(x,y,BankLogo,11,7,759,382,2)
mouse(x-30-random(3),y+35+random(2),2,2,true)
wait(14000)
end;
Function Banking:boolean;
begin
Gotobank;
begin
repeat
if Openbank then;
result:=true
wait(1000)
until(true)
Deposit(2,1,27)
wait(1000+random(1000))
closebank;
wait(2000)
backtowillow;
wait(2000)
end;
end;
Procedure Banking2;
begin
Gotobank;
wait(20000)
if Openbank=true then;
wait(1000)
Deposit(1,1,1);
wait(3000)
Withdraw(1,1,1)
wait(2000)
Deposit(2,1,27)
wait(1000+random(1000))
closebank;
wait(2000)
backtowillow;
end;
/////////////////////////////////////////////////////////////////
procedure Ifgotlost;
begin
Lost:=0
while(not(findcolorspiraltolerance(x,y,Banklogo,11,7,512,332,2))) do
begin
Lost:=Lost+1
GetScreenShot('GotLost',Lost);
repeat
mouse(200,281,3,3,true)
wait(6000)
MapFlag;
until (findcolorspiraltolerance(x,y,Banklogo,11,7,512,332,2))
end;
end;
/////////////////////////////////////////////////////////////////////
Procedure IfAttacked;
begin
At:=0
status('runnig away from tree!')
if(findcolorspiraltolerance(x,y,65280,11,7,512,332,2))then wait(10000)
if(findcolorspiraltolerance(x,y,65280,11,7,512,332,2))then wait(9000)
if(findcolorspiraltolerance(x,y,65280,11,7,512,332,2))
then
begin
At:=At+1;
GetScreenShot('Attacked',At);
wait(10+random(50))
mouse(696,103,2,2,true)
wait(10000)
if findcolortolerance(x,y,BankLogo,11,7,759,382,2) then
mouse(x-28-random(3),y+40+random(2),2,2,true)
wait(6000)
end;
end;
///////////////////////////////////////////////////////////////////
Function BrokenAxe:boolean;
begin
writeln('Using picks from MRI')
if(not(GetColor(590,219)=AxeHeadColor))then
begin
Result:=true;
end;
end;
Procedure GetAxeColors; //A procedure from MRI not original
begin
writeln('Using picks from MRI')
AxeHeadColor:=GetColor(590,219);
AxeHandleColor:=GetColor(580,227);;
end;
function AxeHeadGone:boolean; //A fuction from MRI
begin
writeln('Using picks from MRI')
if(Not(GetColor(590,219)=AxeHeadColor))then
begin
Result:=true;
end;
end;
Procedure FixAxe; //A procedure from MRI
begin
writeln('Using picks from MRI')
if(findcolor(x,y,AxeHeadColor,545,192,755,580))then
Mouse(x,y,0,0,true)
if(findcolor(x,y,AxeHandleColor,545,192,755,580))then
Mouse(x,y,0,0,true)
wait(2000)
GetScreenShot('Attached',At);
GetAxeColors;
end;
/////////////////////////////////////////////////////////////////////
Procedure Randoms;
begin
LoginIfNeeded;
Check4Randoms;
Check4Lamp(skill);
begin
GetAxeColors;
if AxeHeadGone=true then
FixAxe;
end;
begin
FindStrangeBox;
IfAttacked;
end;
begin
If BrokenAxe=true then
banking2;
end;
end;
//////////////////////////////////////////////////////////////////
Procedure PrintProgressReport; //The EdMandel and Phalanx. Edited by Aton
var
RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt;
Time:String;
Begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
if Minutes<>0 then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '
+inttostr(RSeconds)+' Seconds';
end;
begin
writeln(' ');
writeln('<==Progress Report================>');
writeln( 'Worked for '+Time);
writeln('banked '+inttostr(banked)+' times');
writeln('Cutted '+inttostr(banked*27)+(' logs.'));
writeln('Xp gained around '+inttostr(banked*27*67)+('.'));
writeln('Get lost '+inttostr(Lost)+ (' Times.'));
writeln('Under Attack '+inttostr(At)+ (' times'));
writeln('<=================================>');
end;
End;
/////////////////////////////////////////////////////////////////
procedure willowCutting;
var
L:integer;
begin
L:=0
repeat
status('Cutting Willow =) ')
if (findcolorspiraltolerance(x,y,willow,11,7,512,332,2))
or (findcolorspiraltolerance(x,y,willow2,11,7,512,332,2))then
MMouse(x,y,2,2)
if(FindObjColorTol('Chop ',Willow2,5))and (not(findcolor(x,y,323053,68,5,179,12)))then
begin
mouse(x,y,2,2,true)
L:=L+1
wait(TiMx+(random(1000)))
Randoms;
end else wait(5000)
Randoms;
wait(TiMx+(random(1000)))
Randoms;
status('Cutting Willow =) ')
if (findcolorspiraltolerance(x,y,willow,11,7,512,332,2))
or (findcolorspiraltolerance(x,y,willow2,11,7,512,332,2))then
MMouse(x,y,2,2)
while(FindObjColorTol('Chop ',Willow2,5))and (not(findcolor(x,y,323053,68,5,179,12)))do
begin
mouse(x,y,2,2,true)
L:=L+1
wait(TiMx+(random(1000)))
Randoms;
end else wait(5000)
until(findcolor(x,y,willowLogs,677,423,727,461))
banked:=banked+1
end;
////////////////////////////////////////////////////////////////////
Procedure chopBmp;
begin
chop := BitmapFromString(91, 6,
'FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF0000005D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'FFFFFFFFFFFF0000005D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D544700FFFF00FFFF000000' +
'5D54475D54475D544700FFFF00FFFF0000005D54475D54475D5447' +
'5D54475D544700FFFF00FFFF0000005D544700FFFF00FFFF000000' +
'5D54475D54470000000000005D5447FFFFFFFFFFFF0000005D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D5447FFFFFFFFFFFF0000005D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D544700FFFF00FFFF' +
'0000005D54475D54475D544700FFFF00FFFF0000005D54475D5447' +
'5D54475D54475D544700FFFF00FFFF0000005D544700FFFF00FFFF' +
'0000005D54475D54475D54475D54475D5447FFFFFFFFFFFF000000' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D5447FFFFFFFFFFFF0000005D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D544700FFFF' +
'00FFFF0000005D54475D54475D544700FFFF00FFFF0000005D5447' +
'00FFFF00FFFF5D54475D544700FFFF00FFFF0000005D544700FFFF' +
'00FFFF0000005D54475D54475D54475D54475D5447FFFFFFFFFFFF' +
'FFFFFFFFFFFFFFFFFF5D54475D54475D54475D5447FFFFFFFFFFFF' +
'FFFFFFFFFFFF5D54475D54475D54475D5447FFFFFFFFFFFFFFFFFF' +
'FFFFFF5D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D5447FFFFFFFFFFFFFFFFFFFFFFFF0000005D54475D5447FFFFFF' +
'FFFFFFFFFFFFFFFFFF5D54475D54475D5447FFFFFFFFFFFF5D5447' +
'5D54475D5447FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFFFFFFFF' +
'FFFFFFFFFFFF5D54475D54475D54475D54475D54475D54475D5447' +
'00FFFF00FFFF00000000FFFF00FFFF5D544700FFFF00FFFF000000' +
'5D54475D54470000000000005D544700FFFF00FFFF0000005D5447' +
'00FFFF00FFFF0000005D54475D54475D54475D54475D5447FFFFFF' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF5D54475D54475D54475D54475D54475D5447' +
'5D5447FFFFFFFFFFFF000000FFFFFFFFFFFF0000005D5447FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF' +
'0000005D54475D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
'FFFFFF000000FFFFFFFFFFFF5D54475D54475D54475D54475D5447' +
'5D544700FFFF00FFFF00000000FFFF00FFFF00000000FFFF00FFFF' +
'0000005D544700FFFF00FFFF5D54475D544700FFFF00FFFF000000' +
'5D544700FFFF00FFFF0000005D54475D54475D54475D54475D5447' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000005D5447FFFFFF' +
'FFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
'0000005D5447FFFFFFFFFFFF0000005D54475D54475D54475D5447' +
'5D5447FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000005D5447' +
'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
'FFFFFF000000FFFFFF5D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF0000005D54475D54475D5447' +
'5D54475D544700FFFF00FFFF00000000FFFF00FFFF00000000FFFF' +
'00FFFF0000005D544700FFFF00FFFF0000005D544700FFFF00FFFF' +
'0000005D544700FFFF00FFFF0000005D5447');
//Lamp pic by Chriz
iLamp := BitmapFromString(17, 6,
'000001000001000001000001BAB815B2B015AEAD15ABAA159C9A12' +
'9291128C8A1275740E000001000001000001000001000001D0CE18' +
'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
'99971292911284820E79780E6968095C5A09A6A415CECC18C5C418' +
'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A3A112' +
'9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C0BE18' +
'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E12999712' +
'88860E84820E8C8A129291129C9A12000001CBC918CBC918BAB815' +
'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A1295941281800E' +
'79780E84820E000001000001000001CBC918CBC918C0BE18B8B615' +
'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E75740E' +
'000001000001C2C118');
TalkW := BitmapFromString(17, 10,
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
'000000000000000000000000000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000000000000000000000000000' +
'000000000000000000000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
'000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000000000000000000000000000000000000000' +
'000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
TalkY := BitmapFromString(17, 10,
'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
'000000000000000000000000000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000000000000000000000000000' +
'000000000000000000000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000000000000000000000000000000000' +
'000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000000000000000000000000000000000000000' +
'000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
end;
//////////////////////////////////////////////////////
//
begin //
SetupOSi;
BoxOpenerSetup; //
chopbmp; //
ST:=GetSystemTime; //
banked:=0 //
repeat //
willowCutting; //
Banking; //
PrintProgressReport; //
until(false) //
end. //
/////////////////////////////////////////
——————————————————
<!– END TEMPLATE: formanswers –>