Thick As Blood
2007-04-01 01:19:54
<!– BEGIN TEMPLATE: formanswers –>
Thick As Blood - SRL Member Application Form
Thick As Blood
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
i beleive it was Hey321
Programming Knowledge
HTML, Some Java.
Other Communitys
Sythe.org
How Long have You Played Runescape
5-6 years.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well, where do I begin? I've been cheating on Runescape for about 4 years I'd say. I used to be an active part of Kaits forums(Under the name "HalfMastPunk", I used to be on Dylocks, and on many other forums. I guess you could say I'm "old school" but whatever, I quit when RSC went down, and I've been back for the last year, cheating. Within the last, about 3-4 months (not even) I've been really interested in learning SCAR, so i took it up, and here I am. I may sound like every single other kid that's posting, but that isn't the case. I'm here to do things differently then others, I take on the challenges that no one gets around too, or even wants to do. View the free scripts section, i made a hide crafter and a hide tanner script. Why? because 1) I thought It'd be fun, and 2) IT'S DIFFERENT! I'm not saying I'm anything special, I'm just saying my way of coming about things is a little different then others, and if given the chance, and the motivation by being an SRL member, you can expect many good things to come from me in the future. (PS, i haven't played RS for 5 years straight, I have a life. A girlfriend. A job. School, etc.)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Well, i have a few scripts to annoy you all with :p Hopefully it's not too much of a drag, but they consist of what i've learned within the last, 2-4 months.
My Crafter and Tanner scripts. I guess people still use, and like them :p
The rest of my scripts are attatched. I have the Tanner and Crafter, as a combined script, and i also have my new Firemaker script. I made the firemaker because there arent any in the free section :)
Thanks everyone, i appreciate everything SRL has done, and hope to contribute back any way possible.
EDIT: Forgot to add the background picture, if you wanna run the Firemaker and see the picture, throw this on your desktop, or in your rootfolder. :)
http://img295.imageshack.us/img295/2684/background1ww6.png
——————————————————
<!– END TEMPLATE: formanswers –>
Thick As Blood - SRL Member Application Form
Thick As Blood
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
i beleive it was Hey321
Programming Knowledge
HTML, Some Java.
Other Communitys
Sythe.org
How Long have You Played Runescape
5-6 years.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well, where do I begin? I've been cheating on Runescape for about 4 years I'd say. I used to be an active part of Kaits forums(Under the name "HalfMastPunk", I used to be on Dylocks, and on many other forums. I guess you could say I'm "old school" but whatever, I quit when RSC went down, and I've been back for the last year, cheating. Within the last, about 3-4 months (not even) I've been really interested in learning SCAR, so i took it up, and here I am. I may sound like every single other kid that's posting, but that isn't the case. I'm here to do things differently then others, I take on the challenges that no one gets around too, or even wants to do. View the free scripts section, i made a hide crafter and a hide tanner script. Why? because 1) I thought It'd be fun, and 2) IT'S DIFFERENT! I'm not saying I'm anything special, I'm just saying my way of coming about things is a little different then others, and if given the chance, and the motivation by being an SRL member, you can expect many good things to come from me in the future. (PS, i haven't played RS for 5 years straight, I have a life. A girlfriend. A job. School, etc.)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Well, i have a few scripts to annoy you all with :p Hopefully it's not too much of a drag, but they consist of what i've learned within the last, 2-4 months.
My Crafter and Tanner scripts. I guess people still use, and like them :p
The rest of my scripts are attatched. I have the Tanner and Crafter, as a combined script, and i also have my new Firemaker script. I made the firemaker because there arent any in the free section :)
Thanks everyone, i appreciate everything SRL has done, and hope to contribute back any way possible.
program AutoCrafter;
////////////////////////////////////////////////////////////////////////////
{ INSTRUCTIONS }
////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////
// //
////////////////////////////////////////////////////////////////////////////
{.include SRL/SRL.scar}
////////////////////////////////////////////////////////////////////////////
{ VARS AND CONSTS. }
////////////////////////////////////////////////////////////////////////////
var
NegativeBanz,CraftedLeather,LeatherToTan,TannedLeather,LeatherToCraft:Integer;
//Form vars
var
frmDesign:TForm;
Label1:TLabel;
Label2:TLabel;
Label3:TLabel;
Label7:TLabel;
Label8:TLabel;
Label9:TLabel;
Label10:TLabel;
Label4:TLabel;
Button1:TButton;
Edit2:TEdit;
CheckBox1:TCheckBox;
CheckBox2:TCheckBox;
CheckBox3:TCheckBox;
CheckBox4:TCheckBox;
CheckBox5:TCheckBox;
CheckBox6:TCheckBox;
CheckBox7:TCheckBox;
CheckBox8:TCheckBox;
CheckBox9:TCheckBox;
CheckBox10:TCheckBox;
Edit1:TEdit;
Panel1:TPanel;
CheckBox11:TCheckBox;
CheckBox12:TCheckBox;
CheckBox13:TCheckBox;
CheckBox14:TCheckBox;
var
ScriptStart:Boolean;
const
BankBoothColor=7236464;
EllisColor=4285103;
ShopSymbolColor=3562360;
BankSymbolColor=5822182;
KebabSymbolColor=3223026;
RunAwayDir='N';
////////////////////////////////////////////////////////////////////////////
{ DECLARATION OF PLAYERS. }
////////////////////////////////////////////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name:='';
Players[0].Pass:='';
Players[0].Nick:='';
Players[0].Active:=True;
end;
////////////////////////////////////////////////////////////////////////////
{ CUSTOM ANTI-BAN. }
////////////////////////////////////////////////////////////////////////////
procedure AntiBanz;
begin
Status('Doing Ani-Ban!');
NegativeBanz:=Random(40);
case NegativeBanz of
1:TypeSend('Ughhh, crafting hides is a bummer..'+chr(13))
2:DoEmote(1+Random(10));
3:HoverSkill('Crafting',false);
4:LeaveScreenEvery(5+Random(5));
5:HoverEvery(15+Random(5),'random');
8:PickUpMouse;
6:TypeSend('Dang, crafting hides is so stupid if you think about it...'+chr(13))
7:TypeSend('Ive onnly got 900 left to do.. ugh'+chr(13))
8:TypeSend('I need to craft dthese and sell the armor to noobs haha'+chr(13))
9:TypeSend('at least ill be able to make dragonstones some day!'+chr(13))
10:TypeSend('haha my friends are so dumbb'+chr(13))
11:TypeSend('haha'+chr(13))
12:TypeSend('i wish i had 99 crafting'+chr(13))
13:TypeSend('i despise people with 99 crafting haahas'+chr(13))
14:TypeSend('lol'+chr(13))
15:TypeSend('dude where is this kid, ughthh'+chr(13))
16:TypeSend('i wish i had like 10 party hats haha'+chr(13))
17:TypeSend('cyan:scroll:~ <>< <>< <>< haha fish chasing a worm!'+chr(13))
18:TypeSend('al kharid is such a seird name for a place'+chr(13))
19:TypeSend('school stinks.. i hate it lol'+chr(13))
20:TypeSend('i wanna be combat 126 haha'+chr(13))
end;
end;
////////////////////////////////////////////////////////////////////////////
{ MY CREDITS. }
////////////////////////////////////////////////////////////////////////////
procedure Credits;
begin
GetSelf.Width:=730;
Status('Starting up Script.');
ClearDebug;
Writeln(' 000000000 0 0 00000 000000 0 0 ');Writeln(' 0 0 0 0 0 0 0 ');Writeln(' 0 0 0 0 0 0 0 ');Writeln(' 0 000000 0 0 00 ');Writeln(' 0 0 0 0 0 0 0 ');Writeln(' 0 0 0 0 0 0 0 ');Writeln(' 0 0 0 00000 000000 0 0 ');
Wait(700);
ClearDebug;
Writeln(' 00 000000000 ');Writeln(' 0 0 0 ');Writeln(' 0 0 0 ');Writeln(' 00000000 000000000 ');Writeln(' 0 0 0 ')Writeln(' 0 0 0 ');Writeln(' 0 0 000000000 ');
Wait(700);
ClearDebug;
Writeln(' 00000000 0 0000000 0000000 0000000 ');Writeln(' 0 0 0 0 0 0 0 0 0 ');Writeln(' 0 0 0 0 0 0 0 0 0 ');Writeln(' 000000000 0 0 0 0 0 0 0 ');Writeln(' 0 0 0 0 0 0 0 0 0 ')Writeln(' 0 0 0 0 0 0 0 0 0 ');Writeln(' 00000000 000000 0000000 0000000 0000000 ');
Wait(1500);
ClearDebug;
Writeln(' ||||||||||||||||||||||||||||||||||||||||||||||||||');
Writeln(' |||||||||| Al-Kharid Hide Crafter ||||||||||');
Writeln(' |||||||||| Version 1.0 (BETA) ||||||||||');
Writeln(' ||||||||||||||||||||||||||||||||||||||||||||||||||');
Wait(1000);
end;
////////////////////////////////////////////////////////////////////////////
{ PROGRESS REPORT. }
////////////////////////////////////////////////////////////////////////////
procedure Progress;
begin
ClearDebug;
Writeln(' ||||||||||||||||||||||||||||||||||||||||||||||||||');
Writeln(' |||||||||| Al-Kharid Crafter ||||||||||');
Writeln(' |||||||||| Version 1.0 (BETA) ||||||||||');
Writeln(' ||||||||||||||||||||||||||||||||||||||||||||||||||');
Writeln(' Crafting time = '+(ScriptTime2(2))+'.');
Writeln(' Total Hides Tanned = '+IntToStr(TannedLeather)+'.');
Writeln(' Total Leather Crafted = '+IntToStr(CraftedLeather)+'.');
DisguiseScar('Crafted '+IntToStr(CraftedLeather)+' peices of Leather.');
end;
////////////////////////////////////////////////////////////////////////////
{ Function FindFastRandoms: Boolean; // By WT-Fakawi. }
////////////////////////////////////////////////////////////////////////////
function FindFastRandoms:Boolean;// By WT-Fakawi.
var
i:Integer;
begin
for I:=1 to 10 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;
Logout;
Exit;
end;
end;
8:if RC then
Result:=True;
9:if FindFight then
begin
Result:=True;
RunTo(RunAwayDir,True);
Wait(5000+random(120));
RunBack;
end;
10:if FindTalk then
Result:=True;
11:SRLRandomsReport;
12:Progress;
end;
end;
end;
////////////////////////////////////////////////////////////////////////////
{ MY EFFICENT BANKING PROCEDURE. (GOOD FOR LAGGY COMPUTERS LIKE MINE) }
////////////////////////////////////////////////////////////////////////////
procedure OpenBanky;
var
i:Integer;
begin
MakeCompass('W')
begin
if (not(MakeCompass('W'))) then
begin
MakeCompass('W')
end;
Status('Opening the bank booth.');
i:=0;
if not(BankScreen) then
repeat
i:=+1;
if (FindObj(x,y,'ank boo',BankBoothColor,10)) then
Mouse(x,y,0,0,false);
Wait(700+random(30));
ClickOption('uickly',1);
Wait(2500+random(100))
until (GetColor(238,43)=2070783)or(i>=5)or(BankScreen);
if (i>=5) then
end;
end;
////////////////////////////////////////////////////////////////////////////
{ SELECT HARD OR SOFT LEATHER FROM THE BANK. }
////////////////////////////////////////////////////////////////////////////
procedure LeatherSelection;
begin
if (CheckBox7.State=cbChecked) then
begin
Status('Selecting 26 Hard leathers.');
Withdraw(3,1,26);
end else
begin
Status('Selecting 26 Soft Leathers.');
Withdraw(2,1,26);
end;
CloseBank;
CloseBank;
end;
////////////////////////////////////////////////////////////////////////////
{ CLICK THE NEEDLE AND USE WITH THE LEATHER. }
////////////////////////////////////////////////////////////////////////////
procedure Crafty;
begin
UseItem(2);
Wait(2000+random(100))
MouseItem(28,true);
Wait(1500+random(100))
end;
////////////////////////////////////////////////////////////////////////////
{ CLICK THE NEEDLE AND USE WITH THE HARD LEATHER. }
////////////////////////////////////////////////////////////////////////////
procedure CraftyH;
begin
MouseSpeed:=11;
UseItem(2);
Wait(1200+random(100))
MouseItem(28,true);
Wait(1200+random(100))
end;
////////////////////////////////////////////////////////////////////////////
{ CRAFT THE CORRECT ARMOR. }
////////////////////////////////////////////////////////////////////////////
procedure SelectArmor;
begin
if (CheckBox1.State=cbChecked) then
begin
repeat
Status('Crafting your Gloves.');
Mouse(315,264,3,3,False);
ClickOption('ake 10 pairs of',1);
Wait(12500+random(1200))
Crafty;
until FindText(x,y,'You have run out of leather.',smallchars,MCX1,MCY1,MCX2,MCY2)or
FindText(x,y,'Nothing interesting happens.',smallchars,MCX1,MCY1,MCX2,MCY2)
end else
if (CheckBox2.State=cbChecked) then
begin
repeat
Status('Crafting your Boots.');
Mouse(315,108,3,3,False);
ClickOption('ake 10 pairs of',1);
Wait(12500+random(1200))
Crafty;
until FindText(x,y,'You have run out of leather.',smallchars,MCX1,MCY1,MCX2,MCY2)or
FindText(x,y,'Nothing interesting happens.',smallchars,MCX1,MCY1,MCX2,MCY2)
end else
if (CheckBox3.State=cbChecked) then
begin
repeat
Status('Crafting your Cowl.');
Mouse(384,229,3,3,False);
ClickOption('ake 10',1);
Wait(12500+random(1200))
Crafty;
until FindText(x,y,'You have run out of leather.',smallchars,MCX1,MCY1,MCX2,MCY2)or
FindText(x,y,'Nothing interesting happens.',smallchars,MCX1,MCY1,MCX2,MCY2)
end else
if (CheckBox4.State=cbChecked) then
begin
repeat
Status('Crafting your Vambraces.');
Mouse(446,106,3,3,False);
ClickOption('ake 10',1);
Wait(12500+random(1200))
Crafty;
until FindText(x,y,'You have run out of leather.',smallchars,MCX1,MCY1,MCX2,MCY2)or
FindText(x,y,'Nothing interesting happens.',smallchars,MCX1,MCY1,MCX2,MCY2)
end else
if (CheckBox6.State=cbChecked) then
begin
repeat
Status('Crafting your Body.');
Mouse(74,104,3,3,False);
ClickOption('ake 10',1);
Wait(12500+random(1200))
Crafty;
until FindText(x,y,'You have run out of leather.',smallchars,MCX1,MCY1,MCX2,MCY2)or
FindText(x,y,'Nothing interesting happens.',smallchars,MCX1,MCY1,MCX2,MCY2)
end else
if (CheckBox5.State=cbChecked) then
begin
repeat
Status('Crafting your Chaps.');
Mouse(128,240,3,3,False);
ClickOption('ake 10',1);
Wait(12500+random(1200))
Crafty;
until FindText(x,y,'You have run out of leather.',smallchars,MCX1,MCY1,MCX2,MCY2)or
FindText(x,y,'Nothing interesting happens.',smallchars,MCX1,MCY1,MCX2,MCY2)
end else
if (CheckBox7.State=cbChecked) then
begin
repeat
Status('Crafting your Hard Leather Body.');
CraftyH;
until FindText(x,y,'You have run out of leather.',smallchars,MCX1,MCY1,MCX2,MCY2)or
FindText(x,y,'Nothing interesting happens.',smallchars,MCX1,MCY1,MCX2,MCY2)
end else
begin
WriteLn('Either you have true for 2 types of Armor, or you dont want to craft..');
TerminateScript;
end;
end;
////////////////////////////////////////////////////////////////////////////
{ DEPOSITS YOUR LEATHER. }
////////////////////////////////////////////////////////////////////////////
procedure DepositGoods;
begin
Mouse(665,227,2,2,false)
ClickOption('All',2);
Wait(1000+random(150));
CraftedLeather:=CraftedLeather+26
end;
////////////////////////////////////////////////////////////////////////////
{ WALKS FROM THE TANNER, BACK TO THE BANK. }
////////////////////////////////////////////////////////////////////////////
procedure Walk2;
begin
Status('From the tanner, to the bank!');
MakeCompass('S')
begin
FindFastRandoms;
if (not(MakeCompass('S'))) then
begin
MakeCompass('S')
end;
MMouse(655,13,3,3);
Mouse(655,13,3,3,True);
Wait(8500+random(250));
end;
end;
////////////////////////////////////////////////////////////////////////////
{ WALKS FROM THE KEBAB SHOP TO THE TANNER. }
////////////////////////////////////////////////////////////////////////////
procedure ToTanShop;
begin
Status('Walking from the Kebab Shop to the Tanner!');
MakeCompass('W')
begin
FindColor(x,y,ShopSymbolColor,mmx1,mmy1,mmx2,mmy2)
Wait(502+random(120));
Mouse(x,y,1,1,true);
Wait(6800+random(250));
FindFastRandoms;
end;
end;
////////////////////////////////////////////////////////////////////////////
{ WITHDRAWS COW HIDES FROM 1ST BANK SPOT. }
////////////////////////////////////////////////////////////////////////////
procedure WithdrawHidez;
begin
if (BankScreen) then
Wait(500+random(100));
FixBank;
Withdraw(1,1,28);
CloseBank;
Wait(500+random(100))
Mouse(486,42,5,5,true);
end;
////////////////////////////////////////////////////////////////////////////
{ DEPOSITS THE TANNED LEATHER. }
////////////////////////////////////////////////////////////////////////////
procedure DepositLeatha;
begin
Mouse(665,227,5,5,false)
ClickOption('All',2);
Wait(1000+random(150));
TannedLeather:=TannedLeather+27
end;
////////////////////////////////////////////////////////////////////////////
{ SELECTS THE CORRECT TYPE OF LEATHER. }
////////////////////////////////////////////////////////////////////////////
procedure LeatherTypes;
begin
if (CheckBox7.State=cbChecked) then
begin
Status('Tanning all your hides to hard leather.');
MMouse(208,104,5,5);
Mouse(208,104,5,5,false);
Wait(500+random(300));
ClickOption('All',1);
FindFastRandoms;
Wait(1000+random(250));
end else
begin
Status('Tanning all your hides to soft leather.');
MMouse(93,105,5,5);
Mouse(93,105,5,5,false);
Wait(500+random(300));
ClickOption('All',1);
Wait(1000+random(250));
end;
FindFastRandoms;
end;
////////////////////////////////////////////////////////////////////////////
{ FINDS THE BANK SYMBOL AND CLICKS IT. }
////////////////////////////////////////////////////////////////////////////
procedure FindBSymbol;
begin
Status('Searching for bank symbol.');
FindFastRandoms;
begin
repeat
FindColor(x,y,BankSymbolColor,mmx1,mmy1,mmx2,mmy2)
Wait(502+random(120));
Mouse(x,y,1,1,true);
until (FindColor(x,y,BankSymbolColor,mmx1,mmy1,mmx2,mmy2))
Wait(2800+random(250));
FindFastRandoms;
end;
end;
////////////////////////////////////////////////////////////////////////////
{ WALKS FROM THE BANK TO THE KEBAB SYMBOL. }
////////////////////////////////////////////////////////////////////////////
procedure Walk1;
begin
Status('Walking from the bank to the Kebab Shop');
begin
FindFastRandoms;
begin
repeat
FindColor(x,y,KebabSymbolColor,mmx1,mmy1,mmx2,mmy2)
Wait(502+random(120));
Mouse(x,y,1,1,true);
until (FindColor(x,y,KebabSymbolColor,mmx1,mmy1,mmx2,mmy2))
Wait(9800+random(250));
if (not(FindColor(x,y,KebabSymbolColor,mmx1,mmy1,mmx2,mmy2))) then
FindBSymbol;
end;
end;
end;
////////////////////////////////////////////////////////////////////////////
{ FINDS THE TANNER, AND CLICKS TRADE. }
////////////////////////////////////////////////////////////////////////////
procedure TanHidez;
begin
Status('Finding Ellis!');
FindFastRandoms;
repeat
MarkTime(mark);
MouseSpeed:=10;
if (FindColorTolerance(x,y,EllisColor,MSX1,MSY1,MSX2,MSY2,5))and
(IsUpText('alk-to Ellis')) then
MMouse(x,y,0,0);
Mouse(x,y,0,0,false);
ClickOption('Trade',1);
Wait(2000+random(120));
if TimeFromMark(Mark)>65000 then
ToTanShop;
until (GetColor(170,39)=2070783)
end;
function two:integer;
begin
result:=2;
end;
////////////////////////////////////////////////////////////////////////////
{ MAIN LOOP! }
////////////////////////////////////////////////////////////////////////////
procedure MainLoopStart;
begin
if (two=2) then
Credits;
DeclarePlayers;
MouseSpeed:=15;
if (not(LoggedIn)) then
LoginPlayer;
SetChat('friends',1);
repeat
begin
if (CheckBox9.State=cbChecked) then
repeat
Walk1;
ToTanShop;
TanHidez;
Walk2;
FindBSymbol;
OpenBanky;
DepositLeatha;
WithdrawHidez;
until (TannedLeather=(LeatherToTan));
end;
begin
if (CheckBox8.State=cbChecked) then
repeat
Crafty;
SelectArmor;
Wait(2500);
MouseSpeed:=15;
AntiBanz;
OpenBanky;
Wait(1500);
DepositGoods;
LeatherSelection;
until (LeatherToCraft=(CraftedLeather));
end;
until (false);
end;
procedure MainLoop(Sender:TObject);
begin
MainLoopStart;
end;
//usual boring code for safe calling the form up
procedure SafeInitForm;
var
v:TVariantArray;
begin
setarraylength(V,0);
ThreadSafeCall('InitForm',v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowInitFormModal;
var
v:TVariantArray;
begin
setarraylength(V,0);
ThreadSafeCall('ShowFormModal',v);
end;
procedure Start(sender:TObject);
begin
frmDesign.Caption:=frmDesign.Caption+'.';
ScriptStart:=True;//The button has been pressed, therefore it is alright to start the script
frmDesign.ModalResult:=mrOk;
end;
//Displaying and setting form components how you want them:
procedure InitForm;
begin
frmDesign:=CreateForm;
frmDesign.Left:=288;
frmDesign.Top:=152;
frmDesign.Width:=270;
frmDesign.Height:=418;
frmDesign.Caption:='TAB Power Crafter';
frmDesign.Color:=clBtnFace;
frmDesign.Font.Color:=clWindowText;
frmDesign.Font.Height:=-11;
frmDesign.Font.Name:='MS Sans Serif';
frmDesign.Font.Style:= [];
frmDesign.Visible:=True;
frmDesign.PixelsPerInch:=96;
//labels...
Label1:=TLabel.Create(frmDesign);
Label1.Parent:=frmDesign;
Label1.Left:=26;
Label1.Top:=241;
Label1.Width:=79;
Label1.Height:=13;
Label1.Caption:='Number Of Runs';
Label2:=TLabel.Create(frmDesign);
Label2.Parent:=frmDesign;
Label2.Left:=8;
Label2.Top:=39;
Label2.Width:=73;
Label2.Height:=13;
Label2.Caption:='What To Craft?';
Label3:=TLabel.Create(frmDesign);
Label3.Parent:=frmDesign;
Label3.Left:=8;
Label3.Top:=54;
Label3.Width:=70;
Label3.Height:=13;
Label3.Caption:='(Only Check 1)';
Label7:=TLabel.Create(frmDesign);
Label7.Parent:=frmDesign;
Label7.Left:=38;
Label7.Top:=255;
Label7.Width:=50;
Label7.Height:=13;
Label7.Caption:='To Tanner';
Label8:=TLabel.Create(frmDesign);
Label8.Parent:=frmDesign;
Label8.Left:=28;
Label8.Top:=270;
Label8.Width:=70;
Label8.Height:=13;
Label8.Caption:='Before Crafting';
Label9:=TLabel.Create(frmDesign);
Label9.Parent:=frmDesign;
Label9.Left:=155;
Label9.Top:=243;
Label9.Width:=88;
Label9.Height:=13;
Label9.Caption:='Number of Leather';
Label10:=TLabel.Create(frmDesign);
Label10.Parent:=frmDesign;
Label10.Left:=178;
Label10.Top:=261;
Label10.Width:=38;
Label10.Height:=13;
Label10.Caption:='To Craft';
Label4:=TLabel.Create(frmDesign);
Label4.Parent:=frmDesign;
Label4.Left:=141;
Label4.Top:=39;
Label4.Width:=77;
Label4.Height:=13;
Label4.Caption:='Run Direction.';
//button 1..
Button1:=TButton.Create(frmDesign);
Button1.Parent:=frmDesign;
Button1.OnClick:=@Start;
Button1.Left:=73;
Button1.Top:=329;
Button1.Width:=107;
Button1.Height:=41;
Button1.Caption:='BEGIN!';
Button1.TabOrder:=8;
//edit2...
Edit2:=TEdit.Create(frmDesign);
Edit2.Parent:=frmDesign;
Edit2.Left:=29;
Edit2.Top:=293;
Edit2.Width:=65;
Edit2.Height:=21;
Edit2.TabOrder:=9;
Edit2.Text:=IntToStr(LeatherToTan);
//check boxes
CheckBox1:=TCheckBox.Create(frmDesign);
CheckBox1.Parent:=frmDesign;
CheckBox1.Left:=5;
CheckBox1.Top:=77;
CheckBox1.Width:=97;
CheckBox1.Height:=17;
CheckBox1.Caption:='Leather Gloves';
CheckBox1.TabOrder:=10;
CheckBox2:=TCheckBox.Create(frmDesign);
CheckBox2.Parent:=frmDesign;
CheckBox2.Left:=5;
CheckBox2.Top:=96;
CheckBox2.Width:=97;
CheckBox2.Height:=17;
CheckBox2.Caption:='Leather Boots';
CheckBox2.TabOrder:=11;
CheckBox3:=TCheckBox.Create(frmDesign);
CheckBox3.Parent:=frmDesign;
CheckBox3.Left:=5;
CheckBox3.Top:=116;
CheckBox3.Width:=97;
CheckBox3.Height:=17;
CheckBox3.Caption:='Leather Cowl';
CheckBox3.TabOrder:=12;
CheckBox4:=TCheckBox.Create(frmDesign);
CheckBox4.Parent:=frmDesign;
CheckBox4.Left:=5;
CheckBox4.Top:=136;
CheckBox4.Width:=122;
CheckBox4.Height:=17;
CheckBox4.Caption:='Leather Vambraces';
CheckBox4.Ctl3D:=True;
CheckBox4.ParentCtl3D:=False;
CheckBox4.TabOrder:=13;
CheckBox5:=TCheckBox.Create(frmDesign);
CheckBox5.Parent:=frmDesign;
CheckBox5.Left:=5;
CheckBox5.Top:=156;
CheckBox5.Width:=97;
CheckBox5.Height:=17;
CheckBox5.Caption:='Leather Chaps';
CheckBox5.TabOrder:=14;
CheckBox6:=TCheckBox.Create(frmDesign);
CheckBox6.Parent:=frmDesign;
CheckBox6.Left:=5;
CheckBox6.Top:=176;
CheckBox6.Width:=97;
CheckBox6.Height:=17;
CheckBox6.Caption:='Leather Body';
CheckBox6.TabOrder:=15;
CheckBox7:=TCheckBox.Create(frmDesign);
CheckBox7.Parent:=frmDesign;
CheckBox7.Left:=5;
CheckBox7.Top:=196;
CheckBox7.Width:=122;
CheckBox7.Height:=17;
CheckBox7.Caption:='Hard Leather Body';
CheckBox7.Checked:=True;
CheckBox7.State:=cbChecked;
CheckBox7.TabOrder:=16;
CheckBox8:=TCheckBox.Create(frmDesign);
CheckBox8.Parent:=frmDesign;
CheckBox8.Left:=131;
CheckBox8.Top:=103;
CheckBox8.Width:=111;
CheckBox8.Height:=17;
CheckBox8.Caption:='Only Craft Leather';
CheckBox8.TabOrder:=17;
CheckBox9:=TCheckBox.Create(frmDesign);
CheckBox9.Parent:=frmDesign;
CheckBox9.Left:=131;
CheckBox9.Top:=133;
CheckBox9.Width:=97;
CheckBox9.Height:=17;
CheckBox9.Caption:='Only Tan Hides';
CheckBox9.TabOrder:=18;
CheckBox10:=TCheckBox.Create(frmDesign);
CheckBox10.Parent:=frmDesign;
CheckBox10.Left:=131;
CheckBox10.Top:=163;
CheckBox10.Width:=97;
CheckBox10.Height:=17;
CheckBox10.Caption:='Tan and Craft';
CheckBox10.Checked:=True;
CheckBox10.State:=cbChecked;
CheckBox10.TabOrder:=19;
//Edit1
Edit1:=TEdit.Create(frmDesign);
Edit1.Parent:=frmDesign;
Edit1.Left:=163;
Edit1.Top:=293;
Edit1.Width:=65;
Edit1.Height:=21;
Edit1.TabOrder:=20;
Edit1.Text:=IntToStr(CraftedLeather);
//OPTIONS pannel
Panel1:=TPanel.Create(frmDesign);
Panel1.Parent:=frmDesign;
Panel1.Left:=-1;
Panel1.Top:=0;
Panel1.Width:=263;
Panel1.Height:=31;
Panel1.BevelWidth:=2;
Panel1.Caption:='OPTIONS';
Panel1.Font.Color:=clWindowText;
Panel1.Font.Height:=-19;
Panel1.Font.Name:='MS Sans Serif';
Panel1.Font.Style:= [];
Panel1.Locked:=True;
Panel1.ParentFont:=False;
Panel1.TabOrder:=21;
//more check boxes!
CheckBox11:=TCheckBox.Create(frmDesign);
CheckBox11.Parent:=frmDesign;
CheckBox11.Left:=120;
CheckBox11.Top:=56;
CheckBox11.Width:=33;
CheckBox11.Height:=17;
CheckBox11.Caption:='N';
CheckBox11.TabOrder:=22;
CheckBox12:=TCheckBox.Create(frmDesign);
CheckBox12.Parent:=frmDesign;
CheckBox12.Left:=150;
CheckBox12.Top:=56;
CheckBox12.Width:=34;
CheckBox12.Height:=17;
CheckBox12.Caption:='S';
CheckBox12.Checked:=True;
CheckBox12.State:=cbChecked;
CheckBox12.TabOrder:=23;
CheckBox13:=TCheckBox.Create(frmDesign);
CheckBox13.Parent:=frmDesign;
CheckBox13.Left:=180;
CheckBox13.Top:=56;
CheckBox13.Width:=31;
CheckBox13.Height:=17;
CheckBox13.Caption:='E';
CheckBox13.TabOrder:=24;
CheckBox14:=TCheckBox.Create(frmDesign);
CheckBox14.Parent:=frmDesign;
CheckBox14.Left:=212;
CheckBox14.Top:=56;
CheckBox14.Width:=31;
CheckBox14.Height:=17;
CheckBox14.Caption:='W';
CheckBox14.TabOrder:=25;
end;
//Anything else, such as minimising, maximizing etc.
procedure MainInitForm;
begin
try
SafeInitForm;
SafeShowInitFormModal;
finally
FreeForm(frmDesign);
except
WriteLn('Error in InitForm!');
end;
end;
// Kaitnieks' SetSelfWindowState
procedure SetSelfWindowState(state:TWindowState);
begin
GetSelf.WindowState:=state;
end;
// Kaitnieks' SafeSetSelfWindowState
procedure SafeSetSelfWindowState(state:TWindowState);
var
V:TVariantArray;
begin
SetArrayLength(V,1);
V[0]:=state;
ThreadSafeCall('SetSelfWindowState',V);
end;
//main loop
begin
ClearDebug;
SafeSetSelfWindowState(wsMinimized);
MainInitForm;
SafeSetSelfWindowState(wsNormal);
if (ScriptStart=False) then TerminateScript;//If the button wasn't pressed, then terminate script.
MainLoopStart;
end. {ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
____ _ ____ _ _ ____ ____ ___
| ___ (_)_ __ ___ / ___|| |_ __ _ _ __| |_ ___ _ __ | _ | _ / _
| |_ | | '__/ _ \___ | __/ _` | '__| __/ _ '__| | |_) | |_) | | | |
| _| | | | | __/ ___) | || (_| | | | || __/ | | __/| _ <| |_| |
|_| |_|_| \___| |____/ \__\__,_|_| \__\___|_| |_| |_| \_\___/
- Created by Thick As Blood.
(Special thanks to Icefire908)
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo}
////////////////////////////////////////////////////////////////////////////
//////////////////////////////+ Instructions +//////////////////////////////
////////////////////////////////////////////////////////////////////////////
//---------//|
//--P------//| o Required level 15+ Firemaking to start. (Sorry)
//---O-----//|
//-F--W----//| o Start next to the fern near the Oak Tree Outside the bank.
//--I--E---//|
//M--R--R--//| o Axe first Inventory Spot, Tinderbox in your Second.
//-A--E----//|
//--K------//| o Set up Players on lines 53+
//---E-----//|
//----R----//| o Post Progress Reports on the thead you found this script.
//---------//|
//--V------//| o Have Fun, and dont get banned, or set runescape ablaze ;)
//----1----//|
//-----.---//| o Hover over the text boxes in the form to see what to enter.
//------0--//|
/////////////////////////////////////////////////////////////////////////////}
program TABFireMakerPRO;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
{.include SRL/SRL/Skill/Firemaking.scar}
const
TreeColor = 2906192;
RunAwayDir = ('N');
LogColor = 3036532;
TheTreeType = ('Tree');
TheTreeType2 = ('Oak');
var DontBanMe,
TotalNumberOfFires,
TotalXP, FMLevelsUp,
LogDTM, TinderboxDTM,
RoadColor1, AxeHandleDTM,
BrokenAxeDTM, FormBG,
NumberOfLogs: Integer;
TotalFiresMade: string;
var
frmDesign: TForm;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
////////////////////////////Set this Player Array up!!!//////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 5;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := False;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := False;
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active := False;
Players[4].Name := '';
Players[4].Pass := '';
Players[4].Nick := '';
Players[4].Active := False;
end;
procedure LoadAllDTMS;
begin
LogDTM := DTMFromString('78DA632C666260E0646440067921460CFF813' +
'448F43F103066314179C880118904D2354035FF19F0AB2905AA11' +
'22604E23500D0F0135C94035DCF8D50000507909F5');
TinderboxDTM := DTMFromString('78DA6314646060606540038C0CFFC12403C37' +
'F20609405320431D52048202D04246409A8E104123204D48018A2' +
'04D480DCCB43408D14906021A0869708374B000931026A9881842' +
'47E35007AC6066B');
BrokenAxeDTM := DTMFromString('78DA633CCAC4C090C1C8800C9A127919FE036' +
'990E87F2060BC0C54938CAA06220B2381F445A09A04026A8E01D5' +
'C41050B31FA8A698809AB384CD0100CBBD0D20');
AxeHandleDTM := DTMFromString('78DA637CCFC4C0E0C6C8800CCA227819FE036' +
'990E87F2060FC06546389AA06220B2381F473A09A00026ADE00D5' +
'F81350F316A8C685809A97403541F8D50000D0090D3C');
end;
procedure AntiBan1;
begin
Status('Doing Ani-Ban!');
DontBanMe := Random(8);
case DontBanMe of
1: HoverSkill('FireMaking', false);
2: DoEmote(1 + Random(10));
3: HoverSkill('Woodcut', false);
4: LeaveScreenEvery(5 + Random(5));
5: HoverEvery(15 + Random(5), 'random');
8: PickUpMouse;
end;
end;
procedure AntiBan2;
begin
Status('Doing Some Random Mouse Movements!');
DontBanMe := Random(6);
case DontBanMe of
1: SleepAndMoveMouse(1500 + Random(150));
2: SleepAndMoveMouse(1000 + Random(100));
3: SleepAndMoveMouse(750 + Random(150));
4: SleepAndMoveMouse(1700 + Random(150));
5: SleepAndMoveMouse(2000 + Random(100));
6: SleepAndMoveMouse(1550 + Random(150));
end;
end;
procedure Credits;
begin
ChangeReportWidth(210);
Status('Starting up Script.');
ClearDebug;
Writeln(' ');
Writeln(' _____ _ _ _ _ ___ _ _ ');
Writeln(' |_ _| |_ (_)__| |__ /_ ___ | _ ) |___ ___ __| | ');
Writeln(' | | | ` | / _| / / / _ (_-< | _ / _ / _ / _` | ');
Writeln(' |_| |_||_|_\__|_\_ /_/ \_/__/ |___/_\___/\___/\__,_| ');
Writeln(' ');
Writeln(' Presents to you: ');
Writeln(' Draynor Tree Cutter and Fire Maker. - Version 1.0. ');
Writeln(' ');
end;
procedure Progress;
begin
ClearDebug;
SRLRandomsReport;
Writeln(' | Draynor Woodcutter, and Firemaker. |');
Writeln(' | Version 1.0 (BETA) |');
Writeln(' ');
Writeln(' o Script Time = ' + (ScriptTime2(2)) + '. ');
Writeln(' o Total Fires = ' + IntToStr(TotalNumberOfFires) + '. ');
Writeln(' o Total FM XP = ' + IntToStr(TotalXP) + '. ');
Writeln(' o Total WC XP = ' + IntToStr(TotalXP) + '. ');
Writeln(' o FM Levels Gained = ' + IntToStr(FMLevelsUp) + '. ');
DisguiseScar('Toasted ' + IntToStr(TotalNumberOfFires) + ' logs.');
end;
procedure Statistics;
begin
Progress;
SRLRandomsReport;
end;
function FindFastRandoms: Boolean; // By WT-Fakawi.
var
i: Integer;
begin
Status('Finding Fast Randoms.');
for I := 1 to 10 do
begin
FindNormalRandoms;
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;
Logout;
Exit;
end;
end;
8: if RC then
Result := True;
9: if FindFight then
begin
Result := True;
RunTo(RunAwayDir, True);
Wait(5000 + random(1200));
RunBack;
end;
10: if FindTalk then
Result := True;
end;
end;
end;
procedure BrokenAxeChecker;
begin
Status('Checking to see if you broke your axe..')
GameTab(4)
if (not (FindDTM(BrokenAxeDTM, x, y, MIX1, MIY1, MIX2, MIY2))) then
begin
Status('Axe if fine, continuing...')
Exit;
end;
end;
procedure CheckForItems;
begin
Status('Getting colors, and checking for specific items.');
GameTab(4);
begin
if (not (FindDTM(TinderboxDTM, x, y, MIX1, MIY1, MIX2, MIY2))) then
Writeln('Where is your Tinderbox?!');
if (not (FindAxeHeadColor)) then
begin;
LogOut;
Writeln('Where is your Axe!?');
NextPlayer(True);
end;
end;
end;
procedure IsHeadMissing;
begin
GameTab(4);
begin
Status('Checking to see if you lost your handle..')
if (not (FindDTM(AxeHandleDTM, x, y, MIX1, MIY1, MIX2, MIY2))) then
Status('Found no axe handles.. You`re fine for now.')
Exit;
begin
if (FindDTM(AxeHandleDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
Status('Lost your axe head!')
Wait(1250 + random(250));
FindHead;
Status('Searching for head....')
if (FindHead) then
Status('Attatching head......')
AttachHead;
end;
end;
end;
procedure TotalChecks;
begin
FindFastRandoms;
FindNormalRandoms;
BrokenAxeChecker;
IsHeadMissing;
end;
procedure EntDectector;
begin
if (GetColor(86, 169) = 53713) or (GetColor(87, 9) = 53713) then
DoEmote(1 + Random(10))
end;
procedure ChopTree;
var
AA, BB: Integer;
begin
FindNormalRandoms;
SetRun(true);
MouseSpeed := 10;
GameTab(4);
begin
if (not (InventoryCount > NumberOfLogs)) then
repeat
repeat
Status('Chopping the tree down!');
FindFastRandoms;
if (FindObjMultiText(AA, BB, TheTreeType2, TheTreeType, TheTreeType, Treecolor, 4)) then
if IsUpText('ree') then
MMouse(AA, BB, 5, 5);
case Random(1) of
0: Mouse(AA, BB, 0, 0, True);
1: begin
Mouse(AA, BB, 0, 0, False);
Wait(100 + Random(50));
ChooseOption(AA, BB, 'Chop');
end;
end;
AntiBan2;
FindObj3(AA, BB, 'Chop', TreeColor, 5);
MMouse(AA, BB, 0, 0);
if (GetColor(89, 12) = 65535) then
EntDectector;
Statistics;
TotalChecks;
Wait(4000 + random(1550));
until FindText(x, y, 'logs.', smallchars, MCX1, MCY1, MCX2, MCY2)
until (InventoryCount > NumberOfLogs);
end;
end;
procedure ExactWAngle;
begin
MakeCompass('W');
if (not (MakeCompass('W'))) then
MakeCompass('W');
end;
procedure ExactEAngle;
begin
MakeCompass('E');
if (not (MakeCompass('E'))) then
MakeCompass('E');
end;
procedure SafePaint;
var
Canvas: TCanvas;
begin
Canvas := GetBitmapCanvas(FormBG);
SafeCopyCanvas(Canvas, frmDesign.Canvas, 0, 0, 500, 500, 0, 0, 500, 500);
end;
procedure PaintForm(Sender: TObject);
begin
SafePaint;
end;
procedure ShowFormModal;
begin
FrmDesign.ShowModal;
end;
procedure StartButtonClick(sender: TObject);
begin
FrmDesign.Caption := frmDesign.Caption + '.';
FrmDesign.ModalResult := mrOk
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Caption := 'Fire Maker PRO- TAB';
frmDesign.Color := clBlue;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'Arial';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 252;
frmDesign.Height := 439;
frmDesign.OnPaint := @PaintForm;
frmDesign.Caption := 'Fire Maker PRO- TAB';
frmDesign.Color := clBlue;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'Arial';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 60;
Edit1.Top := 285;
Edit1.Width := 121;
Edit1.Height := 22;
Edit1.Hint := 'Number of logs to cut before burning them.';
Edit1.ParentShowHint := True;
Edit1.ShowHint := True;
Edit1.TabOrder := 8;
Edit1.Text := LoadSetting('FireMaker', 'NumberOfLogs');
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 60;
Edit2.Top := 320;
Edit2.Width := 121;
Edit2.Height := 22;
Edit2.Hint := 'Total fires to attempt to make.';
Edit2.ParentShowHint := True;
Edit2.ShowHint := True;
Edit2.TabOrder := 9;
Edit2.Text := LoadSetting('FireMaker', 'TotalFiresMade');
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.OnClick := @StartButtonClick;
Button1.Left := 82;
Button1.Top := 357;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'START!';
Button1.ParentShowHint := False;
Button1.ShowHint := False;
Button1.TabOrder := 9;
end;
procedure SafeInitForm;
var
V: TVariantArray;
begin
Setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure SafeShowFormModal;
var
V: TVariantArray;
begin
Setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure SetupAll;
begin
NumberOfLogs := StrtoInt(Edit1.Text);
TotalFiresMade := Edit2.Text;
SaveSetting('FireMaker', 'NumberOfLogs', Edit1.Text);
SaveSetting('FireMaker', 'TotalFiresMade', Edit2.Text);
end;
procedure FormSetUp;
begin
FormBG := LoadBitmap('BACKGROUND1.bmp');
SafeInitForm;
SafeShowFormModal;
SetUpAll;
PlaySound('C:\windowsmedia ada.wav');
end;
procedure LevelUp;
begin
Status('Checking if you gained a level...');
if (GetColor(464, 384) = 8388608) then
begin
ClickToContinue;
FMLevelsUp := FMLevelsUp + 1
if (ClickToContinue) then
ClickToContinue;
end;
end;
procedure FinishWalkingBack;
begin
RadialWalk(RoadColor1, 354, 714, 65, 1, 1);
Flag;
end;
procedure WalkBack;
var X1, Y1: Integer;
begin
if (not (FindSymbol(X1, Y1, 'Bank'))) then
Status('Couldent find the bank symbol on the way back..');
if FindSymbol(X1, Y1, 'Bank') then
begin
FinishWalkingBack;
end;
end;
procedure LightFires;
var ex, ey, i: integer;
begin
if (InventoryCount > NumberOfLogs) then
repeat
Status('Lighting Logs.');
i := i + 1;
UseItem(2);
FindDTM(LogDTM, ex, ey, MIX1, MIY1, MIX2, MIY2);
Mouse(ex, ey, 1, 1, true);
TotalNumberOfFires := TotalNumberOfFires + 1
LevelUp;
Wait(2350 + random(555));
LevelUp;
Status('Waiting...');
LevelUp;
LightWait;
Wait(350 + random(50));
LevelUp;
Statistics;
until (not (FindDTM(LogDTM, ex, ey, MIX1, MIY1, MIX2, MIY2)));
end;
procedure GetRoadColor;
begin
RoadColor1 := GetColor(697, 46);
end;
procedure Walk;
begin
RadialWalk(RoadColor1, 46, 406, 22, 1, 1);
Status('Walking!');
Flag;
end;
begin
SetupSRL;
LoadAllDTMS
LoadFireMakingBitmaps;
FormSetUp;
Credits;
DeclarePlayers;
repeat
MouseSpeed := 15;
if (not (LoggedIn)) then
LoginPlayer;
HighestAngle;
SetChat('on', 1);
SetChat('off', 2);
SetChat('on', 3);
GetRoadColor;
CheckForItems
ExactWAngle;
GetRoadColor;
CheckForItems;
ChopTree;
Walk;
LightFires;
ExactEAngle;
WalkBack;
if (not (Loggedin)) then NextPlayer(False);
until (false);
end.EDIT: Forgot to add the background picture, if you wanna run the Firemaker and see the picture, throw this on your desktop, or in your rootfolder. :)
http://img295.imageshack.us/img295/2684/background1ww6.png
——————————————————
<!– END TEMPLATE: formanswers –>