Timer
2007-10-16 18:15:33
<!– BEGIN TEMPLATE: formanswers –>
Timer150 - SRL Member Application Form
Timer150
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
None (Ecept Scar)
Other Communitys
Sythe ( Never Go There Any More )
How Long have You Played Runescape
About 4 Years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I am a 11 year old kid that is very eager to become a SRL Member! I Love To Create Scripts and Share Them With The Community, i know How to Create / Use / Do: Bitmaps, DTM's, Object Finding, Radial Road Walk / Radial Walk, Fail Safes ( This Script Does Not Include Many Yet ), Color Finding, Screen Rotaing / Hadling, and Much More! I Know Very Much About Computers and Would Help any One In Need :D !!!
[OFFTOPIC]I'v recently broke my leg so i will be on the computer a ALOT until about December 1'st[/OFFTOPIC]
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
EDIT:
——————————————————
<!– END TEMPLATE: formanswers –>
Timer150 - SRL Member Application Form
Timer150
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
None (Ecept Scar)
Other Communitys
Sythe ( Never Go There Any More )
How Long have You Played Runescape
About 4 Years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I am a 11 year old kid that is very eager to become a SRL Member! I Love To Create Scripts and Share Them With The Community, i know How to Create / Use / Do: Bitmaps, DTM's, Object Finding, Radial Road Walk / Radial Walk, Fail Safes ( This Script Does Not Include Many Yet ), Color Finding, Screen Rotaing / Hadling, and Much More! I Know Very Much About Computers and Would Help any One In Need :D !!!
[OFFTOPIC]I'v recently broke my leg so i will be on the computer a ALOT until about December 1'st[/OFFTOPIC]
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
EDIT:
Program DraynorNetter;
{=========================================================================]
[ ]
[ NAME : Draynor Netter V10 ]
[ WRITER : Timer150/Richk1693 ]
[ CATEGORY : Fishing ]
[ DESCRIPTION : Fishes Shrimp / Anchovies and Banks ]
[ USAGE : To Raise Your Fishing LVL and Get Fish For ??? ]
[ AUTOCOLOR : Yes ]
[ NOTES : Typical Timchk1593 Style ]
[ CONTACT : [email]Timer150@GMail.com[/email] ]
[ ]
[ ]
[=========================================================================]
[ Instructions. ]
[=========================================================================]
[ 1. USE Runescape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Position Players In Draynor Bank / Fishin Spots South Of Draynor Bank]
[ 4. Set Playernames and Passwords in DeclarePlayers, ect. ]
[ 5. Have (A) EXTRA Net(s) In FIRST Bank Slot! ]
[ 6. Drag Cross Hair Over Client ]
[ 7. Start script Logged Out / In! ]
[=========================================================================]
[ Credits ]
[=========================================================================]
[ Xcan's update procedure ]
[ WT-Fakawi FindFastRandoms =p ]
[=========================================================================}
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Fishing.Scar}
Const
FishyColor = 15252893;//White Fish Sparkle Color ( No Need To Change )
RandomChat = True; //Use Random Chat?
SSRLID = ''; //Srl id / if you dont know or have 1 leave blank...
SSRLPASSWORD = ''; //Same Here... But Pass
CurrentVersion = '10.0';//Don't Touch!
Var
x, tx, ty, y, net, bnk, fff, Loads, xyz, AnchovieMask, ShrimpMask: Integer;
DoneFishing:boolean;
Procedure DeclarePlayers;
begin
{----------Optional Location Setup----------)
bank - At the Draynor Bank
fish - At The Fish South Of Draynor Bank...
lost - Death Walk Back ( Comming Soon )
(-------------------------------------------}
CurrentPlayer:=0;
HowManyPlayers := 8; // MAX 8 PLAYERS
NumberOfPlayers(HowManyPlayers);
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // Nickname, 3 - 4 letters of username
Players[0].Integers[1] := 3; //Amount of loads
Players[0].Strings[1] := ''; //*OPTIONAL* Pin #
Players[0].Loc := 'bank'; // Players Location
Players[0].Active := True; // Active?
Players[1].Name := ''; // Username
Players[1].Pass := ''; // Password
Players[1].Nick := ''; // Nickname, 3 - 4 letters of username
Players[1].Integers[1] := 3; //Amount of loads
Players[1].Strings[1] := ''; //*OPTIONAL* Pin #
Players[1].Loc := 'bank'; // Players Location
Players[1].Active := True; // Active?
Players[2].Name := ''; // Username
Players[2].Pass := ''; // Password
Players[2].Nick := ''; // Nickname, 3 - 4 letters of username
Players[2].Integers[1] := 3; //Amount of loads
Players[2].Strings[1] := ''; //*OPTIONAL* Pin #
Players[2].Loc := 'bank'; // Players Location
Players[2].Active := True; // Active?
Players[3].Name := ''; // Username
Players[3].Pass := ''; // Password
Players[3].Nick := ''; // Nickname, 3 - 4 letters of username
Players[3].Integers[1] := 3; //Amount of loads
Players[3].Strings[1] := ''; //*OPTIONAL* Pin #
Players[3].Loc := 'bank'; // Players Location
Players[3].Active := True; // Active?
Players[4].Name := ''; // Username
Players[4].Pass := ''; // Password
Players[4].Nick := ''; // Nickname, 3 - 4 letters of username
Players[4].Integers[1] := 3; //Amount of loads
Players[4].Strings[1] := ''; //*OPTIONAL* Pin #
Players[4].Loc := 'bank'; // Players Location
Players[4].Active := True; // Active?
Players[5].Name := ''; // Username
Players[5].Pass := ''; // Password
Players[5].Nick := ''; // Nickname, 3 - 4 letters of username
Players[5].Integers[1] := 3; //Amount of loads
Players[5].Strings[1] := ''; //*OPTIONAL* Pin #
Players[5].Loc := 'bank'; // Players Location
Players[5].Active := True; // Active?
Players[6].Name := ''; // Username
Players[6].Pass := ''; // Password
Players[6].Nick := ''; // Nickname, 3 - 4 letters of username
Players[6].Integers[1] := 3; //Amount of loads
Players[6].Strings[1] := ''; //*OPTIONAL* Pin #
Players[6].Loc := 'bank'; // Players Location
Players[6].Active := True; // Active?
Players[7].Name := ''; // Username
Players[7].Pass := ''; // Password
Players[7].Nick := ''; // Nickname, 3 - 4 letters of username
Players[7].Integers[1] := 3; //Amount of loads
Players[7].Strings[1] := ''; //*OPTIONAL* Pin #
Players[7].Loc := 'bank'; // Players Location
Players[7].Active := True; // Active?
end;
Procedure LoadDTMs;
begin
Net := DTMFromString('78DA637461626078C400068C108A21C0D998E' +
'13F94FF1F0818AD816AEE31A00146143D8CBE40351F08A83107AA' +
'7949408D1F50CD7D026A1C816A6E1250E30C54F30EBF1A0077C00' +
'DF9');
end;
Procedure LoadBMPs;
Begin
AnchovieMask := BitmapFromString(1, 4, 'beNrLKioq6svKas3JKc' +
'0CACMTBV8=');
ShrimpMask := BitmapFromString(4, 2, 'beNoL9984s3dOe21rSVZ2' +
'bCiEkRkVkgIAkMMLHA==');
end;
function Symbol(name,Place:string):Boolean; Forward;
Procedure GotNet;
Var WTRC:integer;
begin
if(not(FindDTM(Net,x,y,550,200,740,470))) then
begin
Mouse(646,185,5,5,True);
if(not(FindDTM(Net,x,y,550,200,740,470))) then
begin
WriteLN('Could not find fish net.')
If Players[CurrentPlayer].Loc='fish' Then
Begin
RadialWalk(FindRoadColor,0,45,66,2,2);
Repeat
Wait(176+random(3876))
fff:=fff+1;
Until( Symbol('bank','bank') ) or ( fff = 10 )
FFlag(0)
Players[CurrentPlayer].Loc:='bank';
end;
If Players[CurrentPlayer].loc = 'bank' then
begin
OpenBankFast('db')
Wait(7000)
If PinScreen Then
begin
InPin(Players[CurrentPlayer].Strings[1])
end;
if(BankScreen) then
begin
FixBank;
If FindDTM(Net,x,y,0,0,636,400) Then
Begin
Mouse(x,y,0,0,true)
ReportVars[5] := ReportVars[5] + 1;
CloseBank;
end;
If Not FindDTM(Net,x,y,0,0,636,400) Then
Begin
CloseBank;
SRLRandomsReport;
NextPlayer(false)
end;
SRLRandomsReport;
If Not LoggedIn Then
begin
LoginPlayer;
SRLRandomsReport;
end;
If Players[CurrentPlayer].Loc='bank' Then
Begin
RadialRoadWalk(FindRoadColor, 290, 308, 44, 2, 2);
FFlag(0);
WTRC:=FindWaterColor;
RadialWalk(WTRC,218,190,71,2,2);
Sleep(2000+random(554));
FFlag(0);
if(FindSymbol(tx, ty, 'fish'))Then
Begin
Mouse(tx, ty, 5, 5, True);
Players[CurrentPlayer].Loc:='fish';
FFlag(0);
end;
end;
end;
end;
end;
end;
end;
procedure antiban;
Begin
Case Random(15) of
1: ;
2: BoredHuman;
3: begin
HoverSkill('Fishing', False);
wait(700+random(500));
Mouse(643,184,5,5,True);
end;
4: ;
5: Begin
HoverSkill('Fishing', False);
Mouse(643,184,5,5,True);
end;
6: Begin
LowestAngle;
MakeCompass('s');
HighestAngle;
MakeCompass('n');
end;
7: begin
MakeCompass('w')
MakeCompass('s')
MakeCompass('e')
MakeCompass('n')
end;
8: begin
MakeCompass('e')
MakeCompass('s')
MakeCompass('w')
MakeCompass('n')
end;
9,10: begin
if(RandomChat=True) then
Case Random(20) of
1: begin
TypeSend('WHO WANTS BACON? L O L JK...');
end;
2: begin
TypeSend('I lost my hamster to the sea.');
end;
3: begin
Typesend('Never Abuse Slow Motion.');
end;
4: begin
TypeSend('Im not random, Im creative.');
end;
5: Begin
TypeSend('...');
end;
6: begin
TypeSend('iPor Suquesto!');
end;
7: begin
TypeSend('Mi gusta comer');
end;
8: begin
TypeSend('Dude labtops are hard to work on...');
end;
9: begin
TypeSend('...');
end;
10: begin
TypeSend('...');
end;
11: begin
TypeSend('I keep six pounds of bacon in my pocket at all times');
end;
12: begin
TypeSend('I have a terrorism mood ring.');
end;
13: begin
TypeSend('I beat puppies.');
Wait(13224)
TypeSend('With kittens.');
end;
14:Begin
TypeSend('Dead Puppies arent much fun.');
end;
15: begin
TypeSend('All must obey abysslord.');
Wait(1389)
TypeSend('Not kidding here. Obey him.');
end;
16: begin
TypeSend('hmm... Paper Plates');
end;
17: begin
TypeSend('I have found that you can find happiness in slavery.');
end;
18: begin
TypeSend('Press 777 if you boil bacon grease in your spare time.');
Wait(15459)
TypeSend('Anyone who presses 777 needs to go jump off a cliff.');
end;
19: begin
TypeSend('I cant find my shoes..... T_T');
end;
20: begin
Typesend('Twenty french calling gold rings.....nvm.');
end;
21: begin
TypeSend('I will not obey!');
end;
22: begin
TypeSend('Hey, this isnt war veterans online....');
end;
23: begin
TypeSend('***** *** ********** ** * ****');
end;
24: begin
TypeSend('Right to bear arms really means you can wear short sleeve shirts');
end;
25: begin
TypeSend('Mircosoft Sam');
end;
26: begin
TypeSend('Im getting really bored now....');
end;
27: begin
TypeSend('Flip Flop Flip Flop Flip');
end;
28: begin
TypeSend('Find the logic in what im saying.');
Wait(6745)
TypeSend('Its there you just gotta look harder.');
end;
29: begin
TypeSend('Beat to death with a shoe');
end;
30: begin
TypeSend('What happens in vegas stays in vegas.');
end;
end;
end;
end;
end;
procedure IsItChangeTimeAlready;
begin
SRLRandomsReport;
if(Loads=Players[CurrentPlayer].Integers[1])then
begin
FreeBitmap(ShrimpMask)
FreeBitmap(AnchovieMask)
FreeDTM(Net)
NextPlayer(False);
LoadDTMs;
LoadBMPs;
Writeln('Sucessfully switched characters.)');
Loads:=0;
HighestAngle;
MakeCompass('n')
end;
If(not(LoggedIn)) then
begin
LoginPlayer;
Writeln('Sucessfully re - logged in character.)');
Loads:=0;
HighestAngle;
MakeCompass('n')
end;
end;
function FindFastRandoms: Boolean; //By WT-Fakawi.
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;
end;
procedure WalkToBank; Forward;
procedure GoToFish; Forward;
Procedure Randoms;
Begin
If Not LoggedIn Then
begin
LoginPlayer;
end;
HandleWhirlPool;
GotNet;
FindNormalRandoms;
FindFastRandoms;
if FindFight then
Begin
SetRun(true)
WalkToBank;
FFlag(0)
Wait(26348+random(7456))
SetRun(false)
GoToFish;
end;
end;
function Symbol(name,Place:string):Boolean;
Begin
If Not LoggedIn Then
begin
LoginPlayer;
end;
If FindSymbol(x,y,name) Then
Begin
Result:=True;
MMouse(x,y,5,5)
Wait(100)
Mouse(x,y,1,3,true)
end else
Begin
Result:=False;
Writeln('Symbol Not Found')
end;
end;
Procedure SRLStats;
Begin
SRLID := SSRLID;
SRLPassword := SSRLPASSWORD;
end;
procedure GoToFish;
Var WTRC:integer;
begin
If Not LoggedIn Then
begin
LoginPlayer;
end;
MakeCompass('n')
If Players[CurrentPlayer].Loc='bank' Then
Begin
RadialRoadWalk(FindRoadColor, 290, 308, 44, 2, 2);
FFlag(0);
WTRC:=FindWaterColor;
RadialWalk(WTRC, 168, 210, 60, 0, 0);
Sleep(2564+random(424));
FFlag(0);
if(FindSymbol(tx, ty, 'fish'))Then
Begin
Mouse(tx, ty, 5, 5, True);
Players[CurrentPlayer].Loc:='fish';
FFlag(0);
end;
end;
end;
Procedure Waitwhileisfishing;
Begin
If Not LoggedIn Then
begin
LoginPlayer;
end;
If Players[CurrentPlayer].Loc='fish' Then
Begin
Randoms;
Wait(1000+random(500))
FindTalk;
Wait(1000+random(500))
FindTalk;
Wait(1000+random(500))
FindTalk;
Wait(1000+random(500))
Randoms;
Wait(1000+random(500))
FindTalk;
Wait(1000+random(500))
FindTalk;
Wait(1000+random(500))
FindTalk;
Wait(1000+random(500))
Randoms;
Wait(1000+random(500))
FindTalk;
Wait(1000+random(500))
Randoms;
If Not LoggedIn Then Exit;
antiban;
end;
end;
Function FishSpots:TPoint;
Var UPT:string;
A,B:integer;
Begin
Repeat
If FindColorTolerance(x,y,FishyColor,MSX1,MSY1,MSX2,MSY2,10) Then
Begin
MMouse(x,y,1,3)
Wait(300+random(700))
UPT := rs_getuptext;
If Pos('g s', UPT) <> 0 Then
Begin
GetMousePos(a,b)
Result.X := a;
Result.Y := b;
Wait(400+random(2000))
Exit;
end;
end;
Until(False)
end;
Procedure ClickFish;
Var FX, FY:integer;
F : TPoint;
Begin
If( Not( LoggedIn)) Then
begin
LoginPlayer;
end;
If Players[CurrentPlayer].Loc='fish' Then
Begin
F := FishSpots;
FX := F.x;
FY := F.y;
Mouse(FX, FY, 2, 2, true)
end;
end;
procedure WalkToBank;
begin
MakeCompass('n')
RadialWalk(FindRoadColor,0,45,66,2,2);
Repeat
Wait(100+random(3000))
fff:=fff+1;
Until( Symbol('bank','to the way of bank') ) or ( fff = 10 )
FFlag(0)
Players[CurrentPlayer].Loc:='bank';
fff:=0;
end;
Procedure ProRep; Forward;
Procedure Bank;
Begin
If Not LoggedIn Then
begin
LoginPlayer;
end;
If Players[CurrentPlayer].Loc='bank' Then
Begin
Repeat
Randoms;
OpenBankFast('db')
Sleep(5433+random(2342))
xyz:=xyz+1
Until(BankScreen)or(PinScreen)or(xyz>15)
if(PinScreen) then
begin
InPin(Players[CurrentPlayer].Strings[1])
end;
if(BankScreen) then
begin
ReportVars[11] := ReportVars[11] + CountItemBmpTol(AnchovieMask,10);
ReportVars[12] := ReportVars[12] + CountItemBmpTol(ShrimpMask,10);
ReportVars[1] := ReportVars[1] + (ReportVars[11]+ReportVars[11]);
ReportVars[3] := ReportVars[3] + 1;
Deposit(2,28,2)
Bnk:=Bnk+1;
Loads:=Loads+1;
CloseBank;
SRLRandomsReport;
ProRep;
Exit;
end;
end;
end;
Procedure DneFishing;
Begin
If InvFull Then
Begin
ReportVars[4] := ReportVars[4] + 1;
ReportVars[7] := ReportVars[7] + CountItemBmpTol(AnchovieMask, 10);
ReportVars[8] := ReportVars[8] + CountItemBmpTol(ShrimpMask, 10);
ReportVars[0] := ReportVars[0] + (ReportVars[7]+ReportVars[8]);
DoneFishing:=True;
end;
end;
{
Procedure WalkBack;
Begin
RadialRoadWalk(FindRoadColor, 0, 25, 72, 0, 0);
FFlag(0)
RadialRoadWalk(FindRoadColor, 360, 270, 70, 0, 0);
FFlag(0)
RadialRoadWalk(FindRoadColor, 360, 270, 70, 0, 0);
FFlag(0)
RadialRoadWalk(FindRoadColor, 360, 280, 70, 0, 0);
FFlag(0)
RadialRoadWalk(FindRoadColor, 260, 310, 70, 0, 0);
FFlag(0)
RadialRoadWalk(FindRoadColor, 360, 280, 70, 0, 0);
FFlag(0)
RadialRoadWalk(FindRoadColor, 290, 260, 70, 0, 0);
FFlag(0)
RadialRoadWalk(FindRoadColor, 330, 270, 70, 0, 0);
FFlag(0)
RadialRoadWalk(FindRoadColor, 250, 300, 70, 0, 0);
FFlag(0)
RadialRoadWalk(FindRoadColor, 250, 300, 70, 0, 0);
FFlag(0)
RadialWalk(FindRoadColor, 220, 260, 60, 0, 0);
FFlag(0)
RadialRoadWalk(FindRoadColor, 180, 230, 60, 0, 0);
FFlag(0)
RadialRoadWalk(FindRoadColor, 180, 205, 60, 0, 0);
FFlag(0)
RadialWalk(FindRoadColor, 180, 215, 60, 0, 0);
FFlag(0)
repeat
Wait(5000+random(2342))
Until( Symbol('bank','while trying to find bank in death walk') )
Players[currentplayer].loc:='bank';
end;}
Procedure ProRep;
Begin
Writeln('-'+players[currentplayer].Name+'-');
Writeln('Worked For: '+TimeRunning);
Writeln('Has Done '+IntToStr(Loads)+' Loads');
Writeln('and');
Writeln('Has Fished '+IntToStr(Loads*27)+' Fish');
Writeln('Also Banked '+IntToStr(Bnk)+' Times...');
end;
Procedure Siggy;
Begin
ClearDebug;
Wait(300)Writeln(' ________ ');
Wait(300)Writeln(' \______ \____________ ___.__. ____ ___________ ');
Wait(300)Writeln(' | | \_ __ \__ \< | |/ \ / _ \_ __ \ ');
Wait(300)Writeln(' | ` \ | \// __ \\___ | | ( <_> ) | \/ ');
Wait(300)Writeln(' /_______ /__| (____ / ____|___| /\____/|__| ');
Wait(300)Writeln(' \/ \/\/ \/ ');
Wait(300)Writeln(' _______ __ __ ');
Wait(300)Writeln(' \ \ _____/ |__/ |_ ___________ ');
Wait(300)Writeln(' / | \_/ __ \ __\ __\/ __ \_ __ \ ');
Wait(300)Writeln(' / | \ ___/| | | | \ ___/| | \/ ');
Wait(300)Writeln(' \____|__ /\___ >__| |__| \___ >__| ');
Wait(300)Writeln(' \/ \/ \/ ');
Wait(5000)Writeln(' __________ ___________.__ ');
Wait(300)Writeln(' \______ \___.__. \__ ___/|__| _____ ___________ ');
Wait(300)Writeln(' | | _< | | | | | |/ \_/ __ \_ __ \ ');
Wait(300)Writeln(' | | \\___ | | | | | Y Y \ ___/| | \/ ');
Wait(300)Writeln(' |______ // ____| |____| |__|__|_| /\___ >__| ');
Wait(300)Writeln(' \/ \/ \/ \/ ');
Wait(300)Writeln(' .___ __________.__ .__ __ ');
Wait(300)Writeln(' _____ ____ __| _/ \______ \__| ____ | |__ | | __ ');
Wait(300)Writeln(' \__ \ / \ / __ | | _/ |/ ___\| | \| |/ / ');
Wait(300)Writeln(' / __ \| | \/ /_/ | | | \ \ \___| Y \ < ');
Wait(300)Writeln(' (____ /___| /\____ | |____|_ /__|\___ >___| /__|_ \ ');
Wait(300)Writeln(' \/ \/ \/ \/ \/ \/ \/ ');
end;
Procedure CheckVersion; //Xcan's Procedure Edited by me for my script
var version,version1,script:string;
Afile:integer;
begin
Writeln('Checking Version...')
Version1:=GetPage('http://www.freewebs.com/timer-and-richk/draynor_netter_version.txt')
Version:=Left(version1,4)
if not(CurrentVersion=Version) then
begin
Writeln('You Do Not Have the Latest Version...Updating')
Script:=GetPage('http://www.freewebs.com/timer-and-richk/Draynor_Netter.txt')
AFile:=RewriteFile(AppPath+'\Scripts\[SRL 4] Draynor Netter V'+Version1+'.scar',false)
if WriteFileString(AFile,Script) then
begin
Writeln('V'+Version1+' is Saved in Scars Scripts Folder')
Writeln('Terminating Script')
TerminateScript;
end else
writeln('Couldnt save script...Go to WWW.SRL-Forums.com')
end else
writeln('You Have The Latest Version')
end;
Begin
CheckVersion;
Siggy;
SetupSRL;
SetupFishing;
ScriptID := '384';
SRLStats;
SRLRandomsReport;
DeclarePlayers;
ActivateClient;
Wait(2336+random(2342))
MakeCompass('n')
HighestAngle;
Randoms;
Repeat
GoToFish;
DoneFishing:=False;
Repeat
ClickFish;
WaitWhileisfishing;
DneFishing;
Until( DoneFishing )
WalkToBank;
Bank;
IsItChangeTimeAlready;
Until(False)
End.——————————————————
<!– END TEMPLATE: formanswers –>