Bobzilla69
2007-09-14 10:27:19
<!– BEGIN TEMPLATE: formanswers –>
bobzilla69 - SRL Member Application Form
bobzilla69
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
basic java, some C++, HTML
Other Communitys
Nope
How Long have You Played Runescape
over a year, might even be 2
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
just a note to say that i am applying again coz i cant view my membership so its to test if its working now as suggjested by Wizzup?
well lets see i am still kinda new to SCAR but i have learned alot from this great comunity, my knowlage has expanded a great deal and i really like the challange of "beating the system" by autoing.
i am going to uni soon an i will be doing some programing which will help me later to produce great scripts like u guys and girls.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Run this script in Draynor Village with the axe equiped.
the script will chop oak trees and bank them, it also checks for broken axe.
This is the second script which kills chickens in the chicken pen NE of Lumbridge.
Start the script in the chcken pen.
It will bury the bones and pickup feathers.
Its got code to cook chickens but i have not added a procedure to collect and cook chicken.
——————————————————
<!– END TEMPLATE: formanswers –>
bobzilla69 - SRL Member Application Form
bobzilla69
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
basic java, some C++, HTML
Other Communitys
Nope
How Long have You Played Runescape
over a year, might even be 2
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
just a note to say that i am applying again coz i cant view my membership so its to test if its working now as suggjested by Wizzup?
well lets see i am still kinda new to SCAR but i have learned alot from this great comunity, my knowlage has expanded a great deal and i really like the challange of "beating the system" by autoing.
i am going to uni soon an i will be doing some programing which will help me later to produce great scripts like u guys and girls.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Run this script in Draynor Village with the axe equiped.
the script will chop oak trees and bank them, it also checks for broken axe.
program chopperbanker;
{.include srl/srl.scar}
{.include srl/srl/Skill/WoodCutting.scar}
{.include srl/srl/extended/xObject.scar}
{.include srl/srl/extended/xtext.scar}
{.include srl/srl/extended/xbitmap.scar}
{.include srl/srl/extended/xDTM.scar}
Const treetop1 = 5211257; //colour from tree top
Const treetop2 = 1665628; //colour from tree top
Const treetop3 = 1929570; //colour from tree top
Const banksymbol1 = 4310247; //colour from banksymbol on minimap
Const banksymbol2 = 3642289; //colour from banksymbol on minimap
Const banksymbol3 = 11842237; //colour from banksymbol on minimap
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'username';
Players[0].Pass := 'password';
Players[0].Nick := 'nickname'; //3 or 4 letter from your username
Players[0].Active :=True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
var
roadwalk:integer;
road:integer;
i:integer;
b:integer;
roadwalk2:integer;
roadwalkdeform1:integer;
AxeDTM:integer;
BrokenAxeDTM:integer;
BankSymbolDTM:integer;
x,y:integer;
procedure loadDTM;
begin
AxeDTM := DTMFromString('78DA6314666060606740018176AA0CFF81342' +
'310FF07024649208397010D302291405A1A487012502301245808' +
'A8110412CC04D4F001093622CC21E01E0069FF0686');
BrokenAxeDTM := DTMFromString('78DA6314666060E06640019E160A0CFF81342' +
'310FF07024649208383010D302291405A1C48F010502306240408' +
'A81120C21C2122DC230824B8F0AB01006230068A');
BankSymbolDTM := DTMFromString('78DA63E4646060E06140018F4E5A33FC07D28' +
'C40FC1F0818F9810C7654358C8C8C101AC607A9E123A006649720' +
'0135CC4498C304243809A86103122C44B8990DBF1A00777E07A4');
end;
procedure north;
begin
perfectnorth
wait(387)
end;
procedure angle;
begin
highestangle
wait(259)
end;
procedure axecheck;
begin
GameTab(4)
if FindInvDtm(x, y,BrokenAxeDTM) then
begin
Mouse(625, 96,4, 8, true)
wait(2839)
if FindColorSpiral(x, y, banksymbol1,564,0,743,167) or
FindColorSpiral(x, y, banksymbol2,564,0,743,167) or
FindColorSpiral(x, y, banksymbol3,564,0,743,167) or
FindSymbol(x,y,'bank') or
ClickMMDTM(BankSymbolDTM) then
begin
Mouse(x,y,2,4, true)
flag;
wait(483)
OpenBank
if not bankscreen then OpenBankquiet('db');
if BankScreen then
begin
FindInvDtm(x, y,BrokenAxeDTM)
Mouse(x,y,2,2,true)
wait(535)
ClickMSDTM(AxeDTM)
wait(436)
closebank
wait(372)
FindInvDtm(x, y,AxeDTM)
wait(324)
Mouse(x,y,2,2,true)
wait(492)
end;
end;
end;
end;
procedure fight;
begin
if FindFight = true then
begin
Mouse(577, 70,3,6,true)
wait(7626)
flag;
wait(3946)
Mouse(696, 70,4,8, true)
SRLRandomsReport;
wait(357)
SendSRLReport;
wait(472)
FindNormalRandoms;
wait(434)
end;
end;
procedure antiban;
begin
case Random(12) of
4: HoverSkill('woodcutting', False);
9: BoredHuman;
11: MMouse(-20,-13,-4,-8);
end;
end;
procedure roadbitmap;
begin
roadwalk := BitmapFromString2(False, 'a0528B78DAB58E4B0EC33' +
'00844AF847160EC653EE6FE472A6337552A755B5B7AA0E1212122' +
'1267428E96F0CADE8B266D1B2466DE1EC96062D79ED4B6B1376E5' +
'9384D8A82CE020B2628E44E13039F04CA2D942359A49321A87E69' +
'5FF4D32DFF8363BEDB817E3B2BBF9DDFD3A821E1C873148B7F9F8' +
'A9B625DE59743EDCD397D01E79');
roadwalk2 := BitmapFromString2(False, 'a8416478DA858D410E80200C0' +
'4BF548ABBC01114FEFF2429283131D1CB74DB4C5B11911C3B047B' +
'076199DE322217356E9687836613AA2D8562F390AC61C1A20BDEE' +
'8E937E65E12B2E2C9E69AABE441F0E234975F8759FF4C2D08727C' +
'9BD3795E7E9BACD4FBE3F7F71376A');
roadwalkdeform1 := BitmapFromString2(False, 'aB271178DA4D8D410EC' +
'0200804BF0428AC3DAAC5FF3FA96ED3985E06322C2022AA2A9BD5' +
'36A34C52D97B4D128DA6FD4CD2F8DD376D306FADD2387B5FC13CE' +
'3828B05BE68C02FD19944E21818B7A0E34C633839E3EC7E77CACD' +
'A3C55F664C0FC303A29');
road := BitmapFromString2(False, 'aC38E378DAB58CC10DC030080' +
'3572214307DA651D87FA4C65116E8A3423A90391011E9B9203E16' +
'E2DA6CCAC026096E358DF376BC820E15C1CD062F266864A7A933F' +
'67AC413A228CC2C8B0AACFAC8739B9EEA873FFC7C01D57');
if FindBitmapSpiralTolerance(roadwalk,x,y,564,0,743,167,70) or
findbitmapspiraltolerance(roadwalk2,x,y,564,0,743,167,70) or
FindBitmapSpiralTolerance(roadwalkdeform1,x,y,564,0,743,167,70) or
FindBitmapSpiralTolerance(road,x,y,564,0,743,167,60) then
begin
Mouse(x, y, 2, 1, true)
wait(528)
freebitmap(roadwalk)
freebitmap(roadwalk2)
freebitmap(roadwalkdeform1)
freebitmap(road)
flag;
wait(785)
end;
end;
procedure choptree;
begin
i:=0;
axecheck;
while(i<12) do
begin
i:=i+1
if FindColorSpiral(x, y, treetop1, 0, 0, 515, 337) or
FindColorSpiral(x, y, treetop2, 0, 0, 515, 337) or
FindColorSpiral(x, y, treetop3, 0, 0, 515, 337) then
begin
MoveMouseSmoothEx(x, y,3,9,7,25,15)
wait(548)
if IsUpTextMulti('hop', 'own', 'Oak') then
begin
wait(357)
Mouse(x, y, 1, 1, true)
wait(5384)
FindEnt(x,y,true);
FindNormalRandoms;
fight;
wait(8273)
north;
Wait(8283)
fight;
FindNormalRandoms;
wait(6935)
fight;
roadbitmap;
wait(847)
wait(357)
if Invfull=true then
begin
i:=30
end;
end;
end;
end;
end;
procedure bank;
begin
Mouse(627, 75,4, 4, true)
wait(2839)
begin
if FindColorSpiral(x, y, banksymbol1,564,0,743,167) or
FindColorSpiral(x, y, banksymbol2,564,0,743,167) or
FindColorSpiral(x, y, banksymbol3,564,0,743,167) or
FindSymbol(x,y,'bank') or
ClickMMDTM(BankSymbolDTM) then
begin
Mouse(x,y,2,4, true)
flag;
wait(483)
end;
end;
end;
procedure open;
begin
wait(2875)
OpenBank
if not bankscreen then OpenBankquiet('db');
if BankScreen then
begin
wait(349)
DepositAll
wait(274)
closebank
wait(364)
GameTab(4)
wait(284)
end;
end;
procedure time;
begin
WriteLn('Script has been running for : ' + TimeRunning)
SRLRandomsReport;
wait(357)
SendSRLReport;
wait(374)
end;
procedure main;
begin
b:=0;
while(b<6) do
begin
SetupSRL;
LoadDTM;
DeclarePlayers;
LoggedIn;
if not loggedin then LoginPlayer
wait(273)
north;
angle;
roadbitmap;
choptree;
roadbitmap;
GameTab(2);
HoverSkill('woodcutting',false);
time;
bank;
open;
end;
end;
begin
main;
end.This is the second script which kills chickens in the chicken pen NE of Lumbridge.
Start the script in the chcken pen.
It will bury the bones and pickup feathers.
Its got code to cook chickens but i have not added a procedure to collect and cook chicken.
program killer;
{.include SRL/SRL.scar}
{.include /SRL/SRL/extended/xColor.scar}
{.include /SRL/SRL/skill/Fighting.scar}
const
chicken1= 3693687;
chicken2= 6257290;
chicken3= 1187470;
feathers1= 11382457;
feathers2= 9984;
bones= 11974591;
bones2= 5987684;
cookedchicken= 939145;
var
x,y:integer;
bonedtm:integer;
bonesbury:integer;
attacks:integer;
chickendtm:integer;
doorbitmap:integer;
door:integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'username';
Players[0].Pass := 'password';
Players[0].Nick := 'nickname'; //3 or 4 letter from your username
Players[0].Active :=True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure report;
begin
WriteLn(' Welcome to Bobzilla69''s Chicken Killer')
WriteLn(' So far you have:')
WriteLn(' Buried '+IntToStr(bonesbury)+' bones')
WriteLn(' Attacked '+IntToStr(attacks)+' Chickens ')
WriteLn(' and worked for ' + TimeRunning)
SRLRandomsReport;
wait(357)
SendSRLReport;
end;
procedure burybones;
begin
wait(200)
bonedtm := DTMFromString('78DA6314606060E0614001A70E1F02D38C503' +
'EA31090E06040038CA86A848104370135D2408297801A3120C147' +
'400D485E94801A2EC27601009709033E');
if FindDTM(bonedtm,x,y,556,209,729,457)then
begin
Mouse(x,y,4,4,true)
FindNormalRandoms;
wait(1700)
bonesbury:=bonesbury+1;
end;
end;
procedure tocooker;
begin
chickendtm := DTMFromString('78DA632C62626078C88006189148205D0754F' +
'38A809A6AA09A9B04D4E400D53C20A0260DA8E63D01352540351F' +
'F0AB0100E9550833');
doorbitmap := BitmapFromString2(False, 'aA515978DAB59031128' +
'0200C04BF14C04B42A942FEFF24390A65AC956227B36129101189' +
'7340BA0E40F7414DF9261A0DCC5F5E0BABEC1BB7E08CE00BCAA5E' +
'84E6F888775563E1995E698774AA3B1C4D9D8A64623E196510A56' +
'86760F51A0A3AD8CE57C55F5F92B7F5417410');
door := BitmapFromString2(False, 'a02D1078DAA58B310E80300C0' +
'3BF64129C94B18AE8FF9F042E4307C4C4728A7C3900E8ED065842' +
'EA8ECD165DBBB55DF6F919A15D12D1B527C7E22161B345561ADDF' +
'9E619337716EB8B7FDA0BB91');
if FindDtm(chickendtm,x,y,555,205,727,457) then
begin
Mouse(656,105,2,2,true)
wait(3500)
Flag;
if FindSymbol(x,y,'churn')or
FindColor(x,y,5394759,563,5,726,161)or
FindColor(x,y,13026747,563,5,726,161)then
begin
Mouse(x+10,y+20,2,2,true)
Flag;
MakeCompass('W')
end;
end;
end;
procedure cookchicken;
begin
chickendtm := DTMFromString('78DA632C62626078C88006189148205D0754F' +
'38A809A6AA09A9B04D4E400D53C20A0260DA8E63D01352540351F' +
'F0AB0100E9550833');
if FindDtm(chickendtm,x,y,555,205,727,457)then
begin
Mouse(x,y,4,2,true)
wait(200)
if FindColorSpiral(x,y,4993545,4,4,515,336)or
FindColorSpiral(x,y,1138823,4,4,515,336)or
FindColorSpiral(x,y,1473182,4,4,515,336)then
begin
MMouse(x,y,2,4)
if IsUpTextMulti('Cooking pot','Use','ooking')then
Mouse(x,y,5,2,true)
wait(2500)
MakeCompass('N')
end;
end;
end;
procedure antiban;
begin
case Random(12) of
2: PickUpMouse;
4: HoverSkill('attack', False);
6: SayCurrentLevels('attack');
9: BoredHuman;
11: MMouse(-20,-13,-4,-8);
end;
end;
procedure fightwait;
begin
repeat
wait(1000)
until (not(InFight))
end;
procedure inventorycheck;
begin
while(InvCount>27)do
burybones;
report;
end;
procedure findthem;
begin
repeat
FindNormalRandoms;
if FindColorSpiral(x,y,chicken3,3,3,515,336)or
FindColorSpiral(x,y,chicken2,3,3,515,336)or
FindColorSpiral(x,y,chicken1,3,3,515,336)then
MMouse(x,y,2,5)
wait(400)
until(IsUpText('Chicken'))
GetMousePos(x,y)
Clickmouse(x,y,true)
Flag;
wait(1000)
end;
procedure clickthem;
begin
findthem;
wait(3600)
fightwait;
end;
procedure pickupfeathers;
begin
if FindColorSpiralTolerance(x,y,feathers1,206, 149,283, 222,70) or
FindColorSpiralTolerance(x,y,feathers2,206, 149,283, 222,70) then
begin
MMouse(x,y,6,2)
wait(1250)
if IsUpText('Take') then
begin
Mouse(x,y,1,3,false)
ChooseOption('eather')
FindNormalRandoms;
wait(3500)
end;
end;
end;
Procedure pickupbones;
begin
if FindColorSpiralTolerance(x,y,bones,206, 149,283, 222,70) or
FindColorSpiralTolerance(x,y,bones2,206, 149,283, 222,70) then
begin
MMouse(x,y,4,2)
wait(1250)
if IsUpText('Take')then
begin
Mouse(x,y,4,4,false)
wait(875)
ChooseOption('ones')
FindNormalRandoms;
wait(3500)
end;
end;
end;
procedure fightthem;
begin
while(attacks<36)do //change number for longer script and more attacks on chickens
begin
if not loggedin then LoginPlayer
clickthem;
pickupfeathers;
pickupbones;
inventorycheck;
FindNormalRandoms;
end;
end;
procedure LogUserIn;
begin
DeclarePlayers;
LoginPlayer;
end;
begin
SetUpSrl;
LogUserIn;
fightthem;
end.——————————————————
<!– END TEMPLATE: formanswers –>