warrockownz
2007-08-14 08:10:47
<!– BEGIN TEMPLATE: formanswers –>
warrockownz - SRL Member Application Form
warrockownz
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
a lil of everythin
Other Communitys
here here and here
How Long have You Played Runescape
so long ive grown a beard
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
hello everyone.. im sending my second application form in cause my first script was utterly useless.. yep it was.. but now ive made a wc and it works(well it would with srl 4.0) anyway hope to be a part of the team soon.
WarrockOwnz!! dont u forget it
p.s. it wont lemme attach a file so i pasted it … hehehe
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
warrockownz - SRL Member Application Form
warrockownz
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
a lil of everythin
Other Communitys
here here and here
How Long have You Played Runescape
so long ive grown a beard
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
hello everyone.. im sending my second application form in cause my first script was utterly useless.. yep it was.. but now ive made a wc and it works(well it would with srl 4.0) anyway hope to be a part of the team soon.
WarrockOwnz!! dont u forget it
p.s. it wont lemme attach a file so i pasted it … hehehe
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
//Stand in edgeville's furthest east bank slot to start this
//this has not got axe head finding - might add soon
//Please use the setup and declare the players
//please post your proggies
program EdgyCutter;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
const
//SETUP
DirTorun = 'N';
Loads = 10; //Loads to do before switching players.
//Willow colors - only set these if they are wrong
WillowColor = 5398624; //Color of willow tree on Main Screen
WillowColorB = 3174496; //another color of willow on Main Screen
WillowColorC = 4293865; //another color of willow on Main Screen
// end of setup
//DO NOT TOUCH THE NEXT BIT
var GrassColor, GrassBMP, BankBMP, GBankColor, Tries, Willow: Integer;
EntCount, LoadsNum, LoadsNumB, BushWater, BushWaterColor: Integer;
DidRandomHappen: Boolean;
// player setup
procedure DeclarePlayers;
begin
HowManyPlayers := 6; //How many players - active and unactive
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //starting player
Players[0].Name := 'UserName';
Players[0].Pass := 'Password';
Players[0].Nick := '3-4 letters of UserName';
Players[0].Active := True;
Players[0].Boolean1 := False; //Is Axe equiped? if not then put in FIRST inv slot
Players[1].Name := 'UserName';
Players[1].Pass := 'Password';
Players[1].Nick := '3-4 letters of UserName';
Players[1].Active := False;
Players[1].Boolean1 := False; //Is Axe equiped? if not then put in FIRST inv slot
Players[2].Name := 'UserName';
Players[2].Pass := 'Password';
Players[2].Nick := '3-4 letters of UserName';
Players[2].Active := False;
Players[2].Boolean1 := False; //Is Axe equiped? if not then put in FIRST inv slot
Players[3].Name := 'UserName';
Players[3].Pass := 'Password';
Players[3].Nick := '3-4 letters of UserName';
Players[3].Active := False;
Players[3].Boolean1 := False; //Is Axe equiped? if not then put in FIRST inv slot
Players[4].Name := 'UserName';
Players[4].Pass := 'Password';
Players[4].Nick := '3-4 letters of UserName';
Players[4].Active := False;
Players[4].Boolean1 := False; //Is Axe equiped? if not then put in FIRST inv slot
Players[5].Name := 'UserName';
Players[5].Pass := 'Password';
Players[5].Nick := '3-4 letters of UserName';
Players[5].Active := False;
Players[5].Boolean1 := False; //Is Axe equiped? if not then put in FIRST inv slot
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
//DONT TOUCH BELOW
procedure Signature;
begin
ClearDebug;
writeln('Made By Warrockownz!');
wait(3000 + random(500));
end;
//Randoms Stuff
function FindFastRandoms: Boolean; //Creds to WT-Fakawi for the randoms
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;
//
procedure FindRandoms;
begin
FindFastRandoms;
FindNormalRandoms;
if (FindNormalRandoms) then
DidRandomHappen := true;
if (FindEnt(WillowColor)) then
begin
RunAwayDirection(DirToRun);
Flag;
Wait(5000 + random(1500));
RunBack;
DidRandomHappen := true;
EntCount := EntCount + 1;
end;
end;
//Proggy
procedure Proggy;
begin
ClearDebug;
Writeln('|| Worked For : ' + ScriptTime2(2));
Writeln('|| Did ' + IntToStr(LoadsNum) + ' Loads ');
Writeln('|| Avoided ' + IntToStr(EntCount) + ' ents ');
SRLRandomsReport;
end;
//walking
procedure WalkToWillow;
begin
MakeCompass('N');
GrassBMP := BitmapFromString(8, 10, 'z78DA33333177357433A' +
'335E9483439D8D4E3275D2D0CD1C841A61E006F046F69');
BushWater := BitmapFromString(1, 1, '183D00');
BushWaterColor := AutoColorThis(BushWater, 50, MMX1, MMY1, MMX2, MMY2);
RadialWalk(BushWaterColor, 75, 105, 70, 2, 2);
wait(6000 + random(1500));
Flag;
Wait(200 + random(100));
Tries := 0;
repeat
if(Tries = 40)then
begin
Writeln('Could not find willow... :( terminating script..');
TerminateScript;
end;
wait(300 + random(150));
Tries := Tries + 1;
until (FindColorTolerance(x, y, WillowColor, 160, 97, 410, 340, 3)) or
(FindColorTolerance(x, y, WillowColorB, 160, 97, 410, 340, 3)) or
(FindColorTolerance(x, y, WillowColorC, 160, 97, 410, 340, 3));
end;
//banking
procedure WalkToBank;
begin
if (InvFull) then
begin
MakeCompass('N');
BankBMP := BitmapFromString(7, 7, 'z78DAB370B430B230B0' +
'00938E469616966698A4B993B9B1B991050D54228B20EB4226078' +
'34A00FBA54003');
if (not (FindBitmap(BankBMP, x, y))) then
begin
Mouse(627, 88, 8, 8, true);
Flag;
end;
GBankColor := AutoColorThis(BankBMP, 50, MMX1, MMY1, MMX2, MMY2);
RadialWalk(GBankColor, 270, 290, 68, 2, 2);
Flag;
wait(200 + random(100));
end;
end;
//chopping
function ChopIt: Boolean;
begin
repeat
if (not (LoggedIn)) then
Exit;
if (FindColorTolerance(x, y, WillowColor, 160, 97, 516, 209, 3)) or
(FindColorTolerance(x, y, WillowColorB, 160, 97, 516, 209, 3)) or
(FindColorTolerance(x, y, WillowColorC, 160, 97, 516, 209, 3)) then
begin
MMouse(x, y, 3, 3);
if (IsUpText('illow')) then
begin
Mouse(x, y, 2, 2, true);
repeat
if (InvFull) or (PopUp('ontinue')) then
Exit;
if(DidRandomHappen = true) then
begin
DidRandomHappen:=False;
Mouse(x, y, 2, 2, true);
end;
FindRandoms;
SleepAndMoveMouse(9671 + random(1709));
FindRandoms;
until (not (FindColorTolerance(x, y, WillowColor, 160, 97, 410, 340, 3))) or
(not (FindColorTolerance(x, y, WillowColorB, 160, 97, 410, 340, 3)))or
(not (FindColorTolerance(x, y, WillowColorC, 160, 97, 410, 340, 3)));
repeat
if (InvFull) or (PopUp('ontinue')) then
Exit;
if(DidRandomHappen = true) then
begin
DidRandomHappen:=False;
Mouse(x, y, 2, 2, true);
end;
wait(750+random(250));
FindRandoms;
until (FindColorTolerance(x, y, WillowColor, 160, 97, 410, 340, 3)) or
(FindColorTolerance(x, y, WillowColorB, 160, 97, 410, 340, 3)) or
(FindColorTolerance(x, y, WillowColorC, 160, 97, 410, 340, 3));
Result := True;
end;
end;
until (InvFull);
end;
//banking
function BankIt: Boolean;
begin
if (InvFull) then
begin
Willow := DTMFromString('78DA63FCC4C4C0D0C9C8800A1819FE8349068' +
'6FF40C0C8C08C550D8204D2AC40355308A86104AA994940CD37A0' +
'7BE61050F31AA8A68F0835B3F0AB010040990CF0');
MakeCompass('S');
wait(250 + random(167));
OpenBankQuiet('eb');
Flag;
wait(500 + random(267));
FixBank;
if (FindDTM(Willow, x, y, 568, 209, 742, 460)) then
begin
Mouse(x, y, 3, 3, false);
ChooseOption(x, y, 'All');
Result := True;
if (Result = True) then
begin
LoadsNum := LoadsNum + 1;
LoadsNumB := LoadsNum + 1;
end;
end;
CloseBank;
wait(127 + random(278));
MakeCompass('N');
end;
end;
//main .. do not edit
procedure SetupScript;
begin
Signature;
SetupSRL;
DeclarePlayers;
ActivateClient;
end;
//
begin
SetupScript;
repeat
WalkToWillow;
ChopIt;
WalkToBank;
BankIt;
if(LoadsNumB=Loads)then
begin
NextPlayer(True);
LoadsNumB:=0;
HighestAngle;
MakeCompass('N');
Writeln('Players Switched! :)');
end;
Proggy;
until (False);
end.——————————————————
<!– END TEMPLATE: formanswers –>
