Bobzilla69
2007-09-13 13:01:57
<!– 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
Some Java, HTML, Some SCAR
Other Communitys
None
How Long have You Played Runescape
over 1 year
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well i am quite new to scripting, i only recently started to learn how to write them and make them work correctly, i still am not 100% with making great scripts but i am well on my way to making somthing great.
i am also starting a uni course in a weeks time where i will be learning more scripting knowlage.
i usually make script just for myself instead of releasing it to everyone for a few reasons, 1: i aint that good at scripting yet. 2: i dont like people leeching script with out learing how to script first.
once i learn to script at a high standard i will release script till the cows come home.
i have posted 2 scripts below, a woodcutter and banker and also a auto fighter.
——————————————————
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
Some Java, HTML, Some SCAR
Other Communitys
None
How Long have You Played Runescape
over 1 year
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well i am quite new to scripting, i only recently started to learn how to write them and make them work correctly, i still am not 100% with making great scripts but i am well on my way to making somthing great.
i am also starting a uni course in a weeks time where i will be learning more scripting knowlage.
i usually make script just for myself instead of releasing it to everyone for a few reasons, 1: i aint that good at scripting yet. 2: i dont like people leeching script with out learing how to script first.
once i learn to script at a high standard i will release script till the cows come home.
i have posted 2 scripts below, a woodcutter and banker and also a auto fighter.
——————————————————
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 –>