Camaro'
2007-07-24 21:47:56
<!– BEGIN TEMPLATE: formanswers –>
cnr sport - SRL Member Application Form
cnr sport
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
HTML
Other Communitys
Sony PSU
How Long have You Played Runescape
Since 2001
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Im a talented scripted and will very much be apart of this community. I love scripting and im just a beginner at it… Ill be a really good scripter once i start making more scripts and stuff.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
cnr sport - SRL Member Application Form
cnr sport
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
HTML
Other Communitys
Sony PSU
How Long have You Played Runescape
Since 2001
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Im a talented scripted and will very much be apart of this community. I love scripting and im just a beginner at it… Ill be a really good scripter once i start making more scripts and stuff.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program WillowChopper;
{.include srl/srl.scar}
{.include SRL\SRL\skill\Woodcutting.scar}
{.include SRL\SRL\extended\xDtm.scar}
////////////////////////////////////////////////
const
TreeColor1 = 2592888;
TreeColor2 = 2785392;
TreeColor3 = 4544608; //No Need To Change
Tree = 'Willow';
Loadstodo = 20; //how many loads to do?
/////////////////////////////////////////////////////////
var BX, BY, bankDtm, fish, bank: integer;
var
Loads, Ix, Iy: integer;
/////////////////////////////////////////////////////////
procedure Welcome;
begin
Writeln(' Welcome to Willow Chopper');
Writeln('I hope you like it!')
end;
//////////////////////////////////////////////////////////
procedure bitmaps;
begin
BankDTM := DTMFromString('78DA63EC60626008614001FFFFFF676060042' +
'310FB3F6303508D37448E09AAE6ED5B08CD08E583D50413A1269C' +
'809A0AC26A00E665129F');
fish := BitmapFromString(15, 5, 'z78DA8DCE410E80300844D12B4D5BA' +
'9BAA404EE7F2413675343AA6EFE82D217D061682636ACCCADA779' +
'045B641F117987CDAFB84D2479D67257B28A0EFD90B9C9F9BB3FD' +
'FF02EC337F347B39977D83F37AFFEA2D76EDEA4543DE870B2922F' +
'BB6B6878');
end;
//////////////////////////////////////////////////////////
procedure CyaBan;
var ban: integer;
begin
Ban := Random(20);
case Ban of
0: Wait(550);
1: PickupMouse;
2: HoverSkill('Woodcutting', False);
3: HoverSkill('Defense', False);
4: HoverSkill('Defense', False);
5: HoverSkill('Woodcutting', False);
6: HoverSkill('Firemaking', False);
7: HoverSkill('firemaking', False);
8: SayCurrentLevels('woodcutting');
9: Wait(550);
10: RandomRClick;
11: TypeSend('Type 1 if your bored!');
12: AlmostLogout;
13: SleepAndMoveMouse(5000 + random(2000));
14: GameTab(1 + random(12));
end;
end;
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
procedure FindingEnts;
var
Ents: Integer;
begin
if (FindEnt(TreeColor1)) or
(FindEnt(TreeColor2)) or
(FindEnt(TreeColor3)) then
begin
WriteLn('Ent! Eek!');
RunAwayDirection('N');
wait(7000 + random(3000));
RunBack;
Ents := Ents + 1;
end;
end;
//////////////////////////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 5;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'ohsnap'; //USername
Players[0].Pass := 'ohsnap'; //password
Players[0].Nick := 'ad9'; //3-4 letters of username
Players[0].Active := True;
Players[1].Name := 'ohsnap';
Players[1].Pass := 'ohsnap';
Players[1].Nick := 'new';
Players[1].Active := True;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := True;
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active := True;
Players[4].Name := '';
Players[4].Pass := '';
Players[4].Nick := '';
Players[4].Active := True;
end;
//////////////////////////////////////////////////////////
procedure Randoms;
begin
if FindFight then
begin
Status('Running from Fight');
RunTo('n', true);
wait(8000 + random(1000));
RunTo('s', true);
end;
end;
//////////////////////////////////////////////////////////
procedure CheckMate;
begin
if not (LoggedIn) then
begin
TerminateScript;
exit;
end;
end;
///////////////////////WalkToBank/////////////////////////
function FindDraynorBank(var x, y: Integer): Boolean;
var
BankA: Extended;
I: Integer;
begin
repeat
I := I + 1;
Wait(1);
Result := FindDTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.05, BankA);
// Result:= FindDTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.1, BankA);
until Result or (I > 10);
end;
procedure walktobank;
begin
randoms;
FindNormalRandoms
if FindDraynorBank(x, y) then
begin
Mouse(x, y, 3, 3, True);
Randoms;
Wait(1500);
FFlag(0);
Wait(500);
end;
end;
//////////////////////////////////////////////////////////
procedure openthebank;
begin
openbank3;
end;
//////////////////////////////////////////////////////////
function FindObjMultiText2(var cx, cy: Integer; Ut1, UT2, UT3: string; color,
tolerance: Integer): Boolean;
var
x, y, a, c, i, x1, y1, x2, y2: Integer;
begin
Color := Color;
if (FindColorTolerance(x, y, color, msx1, msy1, msx2, msy2, tolerance)) then
begin
x1 := 245;
y1 := 165;
x2 := 277;
y2 := 185;
repeat
if (not (Loggedin)) then
Break;
a := a + 1;
if (a = 1) or (a = 3) then
c := c + 1;
for i := 1 to c do
begin
if (a = 1) then
begin
x1 := x1 + 30;
x2 := x2 + 30;
end
else if (a = 2) then
begin
y1 := y1 - 20;
y2 := y2 - 20;
end
else if (a = 3) then
begin
x1 := x1 - 30;
x2 := x2 - 30;
end
else if (a = 4) then
begin
y1 := y1 + 20;
y2 := y2 + 20;
end;
if (x1 = 485) and (x2 = 517) then
x2 := x2 - 2;
if (y1 = 325) and (y2 = 345) then
y2 := y2 - 7;
if (x2 > 515) then
Break;
if (FindColorTolerance(x, y, Color, x1, y1, x2, y2, tolerance)) then
begin
MMouse(x, y, 0, 0)
Wait(10);
cx := x;
cy := y;
if (IsUpTextMulti(UT1, UT2, UT3)) then
begin
Result := True;
Break;
end;
end;
end;
if (a = 4) then
a := 0;
until (x2 > 515) or (Result = True);
end;
end;
/////////////////Chopping/////////////////////////////////
procedure Chop;
begin
GameTab(4);
repeat
if FindObjMultiText2(Ix, Iy, 'Wil', 'ill', 'low', TreeColor1, 5) then
Mouse(Ix, Iy, 1, 1, True);
wait(6000 + random(1000));
FindingEnts;
randoms;
FindNormalRandoms;
until (InvFull);
end;
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
procedure DepositsAll;
begin
if (BankScreen) then
Deposit(2, 28, 2);
closebank;
Loads := Loads + 1;
end;
//////////////////////////////////////////////////////////
procedure walktowillows;
begin
MakeCompass('S');
if (FindSymbol(BX, BY, 'fish')) then
begin
Mouse(BX, BY, 1, 1, True);
wait(4000)
FindNormalRandoms;
randoms;
writeln('woot at willows');
end;
end;
/////////////cccccccccc///////////////////////////////////
///////////////nnnnnnnnnn/////////////////////////////////
/////////////////rrrrrrrrrr///////////////////////////////
begin
Setupsrl;
declareplayers;
cleardebug;
welcome;
bitmaps;
if not (loggedin) then
begin
loginplayer;
repeat
MakeCompass('S');
cyaban;
chop;
Walktobank;
wait(1000) //Just incase hes not there yet..
openthebank;
Depositsall;
cyaban;
randoms;
Walktowillows;
if (Loads >= LoadsToDo) then
begin
writeln('Sucessfully completed player loads. Switching Players');
NextPlayer(True);
Loads := 0;
end;
until (false)
end;
end.——————————————————
<!– END TEMPLATE: formanswers –>
