gerauchert
2007-07-23 16:36:54
<!– BEGIN TEMPLATE: formanswers –>
gerauchert - SRL Member Application Form
gerauchert
What is the meaning to life?
pizza and video games…
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
just scar =p
Other Communitys
used to be at kaitnieks
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Im 17 years old and I live in the United States and I am purely addicted to scar programming…=p. Well i really want to help out the scar community by learning to script at a more advanced level and produce usefull scripts. I learned scar from reading tuts and learning from what elite scripters have written. I understand the fundementals of what a script needs and how to make it run effectively. I think ive got what it takes to be a member here so im laying down my best and only script that ive written and im hoping for the best =D.
thanks
- Gerauchert
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
gerauchert - SRL Member Application Form
gerauchert
What is the meaning to life?
pizza and video games…
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
just scar =p
Other Communitys
used to be at kaitnieks
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Im 17 years old and I live in the United States and I am purely addicted to scar programming…=p. Well i really want to help out the scar community by learning to script at a more advanced level and produce usefull scripts. I learned scar from reading tuts and learning from what elite scripters have written. I understand the fundementals of what a script needs and how to make it run effectively. I think ive got what it takes to be a member here so im laying down my best and only script that ive written and im hoping for the best =D.
thanks
- Gerauchert
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{/////////////////////////////////////////////////////////////////////////
[ GerauchertPowerChopper II ]
[---------------------------------------------]
[ Writer: Gerauchert =) ]
[ Category: Woodcutting ]
[ Version: II ]
[ Note: 1st Script!(Updated of course =p) ]
[---------------------------------------------]
--------------------------------------------------------------------------
Description: Cuts logs until a full load and then drops them...(Duh)
--------------------------------------------------------------------------
What it has: SETUP:
* FullRandoms 1) Place character(s) near the trees that
* AntiBan you wish to chop
* Multiplayer 2) Hit start and fill out the form
* Ent Detection 3) Sit Back and ENJOY!!
* DTM dropping 4) Post progress reports and errors plz!
* Forms
* Death Walkback
* Auto responder FORM DETAILS:
Boolean1 - Set to true if you are wielding
Integer1 - 1 = Trees, 2 = Oaks, 3 = Willows
TreeTol - How tolerant the tree finder is
(1 or 2 is usually good)
ChopTime - How many seconds before it clicks
the tree again
Loads - How many loads per player before
Switching
PLEASE NOTE: If my deathwalk isnt recognizing that you are dead then:
1: Make sure you arent chopping by a water symbol
2: Change the 'and' to an 'or' in my IsDead: Boolean function
--------------------------------------------------------------------------
CREDITS:
WT-Fakawi ---- FindFastRandoms =p
JAD ---- Used his EntFinder as a guide
Secet ---- Used his form as a guide
Dan Cardin & ZephyrsFury ---- for help with misc stuff
SRL developers!!!!!!........
and all the writers of the tutorials i learned from!!!
THANKS!!! AND ENJOY!!!!
--------------------------------------------------------------------------
/////////////////////////////////////////////////////////////////////////}
program Powerchopper;
{.include SRL/SRL.scar}
{.include SRL\SRL\misc\Trade.scar}
var
//------------------Standard Globals------------------------//
TreeColor1, TreeColor2, TreeColor3, Loads, TreeTol, ChopTime,
LoadsA, LoadsB, EntPic, NormalLog, OakLog, WillowLog, BrokenAxeDTM, AxeDTM, AxeBreaks,
AutoTalk, KebabDTM, BeerDTM, WB, WBF, WaitTime: Integer;
RunDir, TreeType: String;
Wielding: Boolean;
Quad: array [0..4] of TBox;
//-------------------FORM VARIABLES-------------------------//
GerauchertPowerChopper : TForm;
TitleLabel : TLabel;
TreeLabel1 : TLabel;
TreeLabel2 : TLabel;
TreeLabel3 : TLabel;
ChopTimeLabel : TLabel;
NoteLabel2 : TLabel;
LoadsLabel : TLabel;
NoteLabel3 : TLabel;
TreeTolLabel : TLabel;
NoteLabel4 : TLabel;
RunDirLabel : TLabel;
NoteLabel8 : TLabel;
TreeEdit1 : TEdit;
TreeEdit3 : TEdit;
PickButton1 : TButton;
TreeEdit2 : TEdit;
PickButton2 : TButton;
PickButton3 : TButton;
ChopTimeEdit : TEdit;
LoadsEdit : TEdit;
TreeTolEdit : TEdit;
RunDirCombo : TComboBox;
PlayerFormButton : TButton;
StartButton : TButton;
EntImage : TImage;
C : TCanvas;
//----------------- END FORM VARIABLES------------ //
//-----------------------FORM PROCEDURES-----------------------//
procedure StartPlayerForm(Sender: TOBject);
begin
StartPlayers(True,'boolean1 integer1');
end;
procedure PickTreeColor1(Sender: TObject);
begin
PickColor(TreeColor1,x,y);
TreeEdit1.Text:= IntToStr(TreeColor1);
end;
procedure PickTreeColor2(Sender: TObject);
begin
PickColor(TreeColor2,x,y);
TreeEdit2.Text:= IntToStr(TreeColor2);
end;
procedure PickTreeColor3(Sender: TObject);
begin
PickColor(TreeColor3,x,y);
TreeEdit3.Text:= IntToStr(TreeColor3);
end;
procedure StartButtonClick(Sender: TObject);
begin
SaveSetting('GerauchertPowerChopper','TreeColor1',TreeEdit1.Text);
SaveSetting('GerauchertPowerChopper','TreeColor2',TreeEdit2.Text);
SaveSetting('GerauchertPowerChopper','TreeColor3',TreeEdit3.Text);
SaveSetting('GerauchertPowerChopper','ChopTime',ChopTimeEdit.Text);
SaveSetting('GerauchertPowerChopper','LoadsA', LoadsEdit.Text);
SaveSetting('GerauchertPowerChopper','TreeTol',TreeTolEdit.Text);
Writeln('Settings Saved!');
TreeColor1:= StrToInt(TreeEdit1.Text);
TreeColor2:= StrToInt(TreeEdit2.Text);
TreeColor3:= StrToInt(TreeEdit3.Text);
ChopTime:= StrToInt(ChopTimeEdit.Text);
Loads:= StrToInt(LoadsEdit.Text);
TreeTol:= StrToInt(TreeTolEdit.Text);
RunDir:= IntToStr(RunDirCombo.Items.Add(''));
GerauchertPowerChopper.ModalResult:= mrOk;
end;
//------------------------FORM BEGINS-----------------------//
procedure InitForm;
begin
GerauchertPowerChopper := CreateForm;
GerauchertPowerChopper.Left := 303;
GerauchertPowerChopper.Top := 143;
GerauchertPowerChopper.Width := 437;
GerauchertPowerChopper.Height := 338;
GerauchertPowerChopper.Caption := 'GerauchertPowerChopperForm';
GerauchertPowerChopper.Color := clBlack;
GerauchertPowerChopper.Font.Color := clWhite;
GerauchertPowerChopper.Font.Height := -11;
GerauchertPowerChopper.Font.Name := 'MS Sans Serif';
GerauchertPowerChopper.Font.Style := [];
GerauchertPowerChopper.Visible := False;
GerauchertPowerChopper.PixelsPerInch := 96;
EntImage := TImage.Create(GerauchertPowerChopper);
EntImage.Parent := GerauchertPowerChopper;
EntImage.Left := 264;
EntImage.Top := 148;
EntImage.Width := 88;
EntImage.Height := 155;
EntPic := BitmapFromString(88, 155, 'z78DAED9DE976EA480C845FC9' +
'3621263FC910DEFF91C6EE92D49FDC38972490D59E737C182E5BD' +
'CD55A4A25B9EB7EF3B13B3D9CBAE3EEB43B0DC3C3FE613F1CFBA7' +
'E9BF6E78195EBAA3CEBB6177EC1F8771F7D89D8797DDE330F8E3F' +
'29AE7DDD08FDD76FCF063BF7FDCF70F13064EC3B4EED39A1E768F' +
'BB5357CE7DEF78989FBF742E38D12B673CF8B91BC60927DDD075E' +
'36EF7F0D41DB6EBFC3D8FFE695AA9E3300E63FF34D9847D77D6EA' +
'EF4F8FFBE1C19E171EA67FEDE757BE74B6CA5AF70BE76255FC33C' +
'BE3829687D37E7ADC3D77E7091593FDE9C7193F1358B6E34B8F79' +
'5DB416DDB1D881DE767759E5C3CBE165FFA0D58F7F9D7CC18490D' +
'36E272F60DE215031A3459E65BFF77F959711AEFA0906DD4EFEC5' +
'3D51C143C18CAC8770B2ADCE1D6380E988C765E76A87CE9140D73' +
'F9EC697DDB99FFE6FDAAD654DA77F9D56502B2524CC18181EB5A6' +
'D3529F86BDD67D7AD7D09DE235BEE207AD3831A66FD4D9BC8F2C4' +
'6C192DE25240CD3BBBB3D2D865EBFADE3AD8EF3781E0FFFD1BF6B' +
'1DB57F151F6AB70A21C577EC2C0628BEE3713FEE87FF840A590CE' +
'147D185E1A4FC2BD79D67A18BDE41E7F9BD3BB348DD84CA4E31C6' +
'C15F33FFC2CD627CC80B60B7DA15963586559F9FE90EC2093CC25' +
'138B158C2F173EA9EB4D6F6095A598B2A15674E98397295C77EEC' +
'1F76F044C70977E71249CE6B8DB3ADB57E2772168B3FE399E9D5B' +
'21BF42CE578EE9FFBC7C76DDD1907EAAC2BEFD600F960D9E3BAC2' +
'B63AC5FB0B09B20C8C0F1957B8C508BB6196C131B358C151BE69F' +
'E16F99AEE991907F3538B540B7EDC5E197ECC5B75C7092F939F10' +
'96ECF18C845ECFCCB898FEAE8290BF6D0126FF6ED19D45FB88091' +
'5CB557B5EE2BAD947142FA075D48E8E7C4171DDEC05CABA7B7660' +
'68A9677B97ACC16C37C433249C185AE6CF993EF8613CEAD72A42F' +
'0C861FA550FC2C3E3747874CAD5B75FB5B03CDD519F29442DBFB1' +
'EFCCE66C78D8F0F067F0506DBEAF8BC569C8E92C12006360F902D' +
'EC5CF616C69DEA444148E8A1939FB7EDFEFF664A2CCD714CF22AB' +
'5E7213CB50B49A119D969864FA8543441A337E74562C212FA0BF5' +
'10C55C93884018B2BCAB9F885517182A288F2CA31D8ADE96C1C69' +
'796C7E4451CA2FF226B6EB3DFB0B24A438B0FC2B5F2324441E315' +
'B89F2AFFBE9BDBB9DD6CBF3C4B25EB60ACE357567ED68FD6BB53C' +
'1E6F303A4DBB5EEBCE352A7BBC7E8E7F5A20F334DBB1F913FC73C' +
'ABF2A9231DE3B224FE325885BA1A83C731E9E76F31F55A34DE34F' +
'74057E707C58562AF2F75865ED2CC68A8AFA14BF692D0227D3F36' +
'209E0413CEF2BAFAF3C641F913C78E6F2BCC57B8A12E52950CB60' +
'846FBF59B65D6B54565F7EC19E7FDA1DA7E775F6758FFC427F293' +
'30BA1577F355197980AE629CA508ACD9125317BE23CB921E7A7D9' +
'0A7901D9EAD8EF730EA85D1FBC71DF3312B0C7C206B820D970FA0' +
'88FF95324BF9FAF66CD34F5ED16F36BC789112A9F666B81EC329D' +
'CD6EE837CF6CA49FCBA7C95380E5D6F3D51E0E9D59063D667E3AC' +
'AE6CC9E42EF1506CC3B4436AAD70BDBD323FD9EE2716431CA5FB1' +
'8F2CA9FBDED6E3C29EF515A9F19B6203DFE92F1E019AA5459DD12' +
'243F9D6A60225E69919ABE12A7C53F76C16497B59E8D2A715BBA1' +
'4843FEC576B4FD86F9ECD6A3ECEE6099CAE7F71E27044F55E2558' +
'B63E35FABFD0F0E6DAC1531FDA5B20396FF2A1B7DA975B4B2E2BD' +
'D0420F521EFFC718E6BBC60CC542467589DE59B9C014436A2D747' +
'DB0D7DC0228CED4952FB1819D0BCF00BFAC2C20AEDBE8BEBB7208' +
'D32A175B619186EC8FC518C5C2EBF5C430F967E021B8EBE9AF338' +
'F5698C9C856A26E429B10389FF30759127A0AFA205651B523881C' +
'5DD573FFEC96B6CD86BEB565702670DE356515820D2E7E5698910' +
'EC1BDC060F103B926AF59CFABA9C7F1AEC2541716CBD8A71AFF7B' +
'8D7B469472078F3CE79DCB676C1D11435AE6E8CC73E79C767FAE5' +
'5099E19492A97E4D9EA1DB006E6711009584EA1B89131A7A9320C' +
'4B519D119E03579D9FF59BBF9565888C80D9A259E99AF1F5DA531' +
'163440CCFA852ABAFC75141D887AF414461152EC59CC5F2B3AE1D' +
'36BC7098DA77F3D9990DF8A05C77A8B11F58F4F011F1EDB60AC15' +
'7CF69CF8C841ADFF6EE59E0A72C4228DF5823ABB009642F69796A' +
'04220B5933D3090FF3E5FC1EDC053503561D8ED57C3A4635A1E6E' +
'FEEFDA7F85FDEC1D65DD525D51F1BAE6951B338A1C62D1B5E340F' +
'0569A179F0AB2DCBA00881EA859469A20A894CD0ACBAADC2E1929' +
'570AE9B6C36EAE6837E21F907C5098A0675763496FA9731F90527' +
'A8920C4FC3C3F43B75564C223C083FC2D537507355BBADF8EDF82' +
'49BE06B57BDBFD6C5F98479D51C09B20FF36A0A45B90651A3C414' +
'63D84E2FD71C9ED76A5E11E79BFD311EA3F24BB22A83C76F2F4B5' +
'4D44CA44B1132F19F7C475DDFB35989CED98660CC0A5A522E3956' +
'4E32E28AE9C3CCB78EE1C57A7B1762727A1F62E96B0F7964ADA32' +
'C272BD48BAAD358BC46D8908A81C37FF3F979ACBB78AE28EDF75D' +
'9F7771E582BCC235AFF505B4949D42EFA3DF10198722C953FF909' +
'472B20C8882C2FECF96CDEC43455AA3A63B78ECE42CC7F47BFA09' +
'03CFB69AE55BE6C7A3B1289605D76A576422C5BB21DFD4BF2ACB4' +
'0BD55CCEA3E6289F1EB320EED44E67A9E63967DEA75C05975A038' +
'9C997B79BD50349F4F677A73E12A2961949F0263E9CAB35259ADC' +
'A4E7C85D722CB9AA2121D59E18BA38E5159659F2A3359A38254D9' +
'4C9C1890E319D6FC4C59A9CA351DBA7A7E7C34840B51CC2259158' +
'59550B420EB213C84ADFE124642579BF5026784A85EF68A956C38' +
'1909DB4723B3C5AA56EA5395479F4FEF830A578A4BDB1CC7F40F2' +
'52631CB50564A8F936E415199F1CF85B1AC0AA85156A27A90A163' +
'16298B57951B3BC780620FF75F8E0A639C888A60AD8FEE71F43B6' +
'B55A54BF50EBDC62033598CC7079DBF50B5B2F7D88FD102EB5364' +
'292BCF1C5527D738056785D53F72A5F469FA5766ACAC587145E84' +
'1ECBDCA0ACBD59657AA1AC8C98F14A5B4699CA065627EC1D577D6' +
'68A99DD0D9A3D99ACBC477D54ADCB858D99C5F58041B15DB71A1E' +
'E1E1D2DDA35F23E331E46553DFEFB1A5EDA2C98A9C894A12BBA33' +
'C51A980467A79D9F899A8EF9E29223A83208EF507532BD6B23151' +
'9EEABC6495989E583A16AABD58A12B78023926F22D7417BAEBF22' +
'B05A23CF92959895900DB75CB2D6D6DDEF20FBA83180ED7AA19AD' +
'54F8F39671EBBACAF451DB0FF67D64A128F41E601EC37ADC7E71C' +
'E1918D4D72BE91B5E9E44FF18CB20C6126552810691BF788FC14A' +
'BDF2FB885BD6A91258398A2056321A09CD4FE9265B05845399A30' +
'1CFC467F4C398557B57A575152BDC0CA48CD43A37EA1FD5B77F7E' +
'8D62018C591AB6C1570B06156A7709B59B988623D741D0A7E4E09' +
'39C65D14D46D78D8F0F04578E02F37ADA0B3D6EA47982CA72B164' +
'AE4597C81E78F601516B9FC4209296D12B58E56B9F0DCA137AE29' +
'F000358514F5566B364CF683321A660AA866BAFE44F65C7E41B52' +
'DE144194D893774F66C74C963271D54D53E9DC944595C1DB598E9' +
'35C517B88A66F1AE7330519DC7B4C243D2E700459F55A728D7191' +
'C91A997CB7A315F930D49F183D7A414534596A77DCD1CD056CDE2' +
'6DD3C03C7965C7F5AE551791D577AAA556253363B09A6FF643AAB' +
'D2223B0A89E2A17BD5E9F50CE5A71FA6BC3468D0C8DD310FF60DF' +
'CB1A96D73DA3729D5826448CC66F5B0E5B30A31C33EA1D5EE3B0E' +
'791817E4EDDCA6266D32A78D5A05F3251557F121D91DE03A57F35' +
'DD4BC143CD2B9F8E5E137918BA0399707E4E74D9547E83CC95AD3' +
'5D883B4B3665583457A56AB32EFF6E8E8B23C02B97FAD551DEC6C' +
'7B79B89C0FEABBCC8A36F50BAB65835777C6C3F1EC3C2430E3CAB' +
'A60ADAD8EBFBF70FE14F62975415247AABD0C16BDAD7A7B9DAE56' +
'858484CA701E4329315B8F88494ECC4DFA27EBD486723EA2887DE' +
'4085191F4FCE27132DD0FB6E25435AC2964F4577B2F46C980CA5A' +
'CC48383E1B1EAACD445450EC5297328873B272965F173C908114E' +
'76C36BF3CC37880F945677EB3A37F4991C9DD3B07A96C4C4A57A0' +
'22D72CACCB7EAE3A2143F758A23C8F6E598B210B7E6A770359C11' +
'45D980A4B8FC377ECBD3BC33C75D8FC59FF50788688437A53B2A1' +
'D600DDE38C3AAB929F5C1FCBBCD574534F52D2D64AAE569055EF5' +
'AE12DFEC27492DE91C19A6013BD0815C66A26DF5711353272A01F' +
'214EEE870763DB9A784FAB1995238BF69D9B224EA2FE15511FF94' +
'6E3857095D2276416C22A3E1EE727953294AE868AAC57E91CDBB9' +
'97AA6634B5CB66E8A8B0B24C1F16C6F060CCC98C3A310986B4E80' +
'B7355BFA9E6521C2E0B53F6BB623068B37386820A4BF11A2D5FCD' +
'CADA3D2A1AD4B7B0D72969E963D73B23245FC035B5F87F8F9EE82' +
'61B25128CD79242BE60CCB315EBDB8D1C932C65AA47785DBBEAE4' +
'95DD887B0C66A93B2E32E2E993A94EA9B548C52473D1AEF0C9B0C' +
'9F0F843DAFB3572E853065A6B1C67ACFE39D90128A94C2F47CD43' +
'F9AE50E2BDA41AFA59358EFB55342EE489E00152FDDAAA930F6EB' +
'DADC7A17A106705D90B23B4B8579A23499DBD5682F76AC511E991' +
'E764466C154C5903E4057AC61E33EF408FA7D9617A0A794644051' +
'7A22CCD09419C993E017DA0B4009E9996DF19D947BC9E5C3ABEFD' +
'9FE72E328E5B612034631E1FA67E22A819592FA8ACF2D0D353549' +
'BEF2BE87EB328199C3D0876C8AC0D7219F65953D5B6A69716265B' +
'7E38F752ED22634DCF6017D30E73EF5B6E65317F2821ED5D54355' +
'8DFAEF99A9A2FB08BD33050BFD1BA3078BEDC59DCDBD934968C2D' +
'BB5BDA87A473AED5ED5D74D716FBAFFE973A73431C51552E79CD3' +
'1FAB543C5AA2BF3382BA54F4B0D83A21163EAAC738AB1042B62CE' +
'18B8C7EF87C63BEC3C2B410CE97A06D52F6A44418DABAE36ACBAA' +
'C162D80E55CA603572DA664C47336FD9FE70E0F83E3D0568AB10A' +
'A202E20499ECA15637220F1596A00532D56E45DD89E8BD15FBC46' +
'C223A2B1509D4AA227AAC1C09BB269E2CDCAF5449E18BD13BE95D' +
'57A684214F45FD4F55D17BCDD13A1A5A5B2AAF212546E13A5AD56' +
'BAB8F624E3ADBA2615F39EAAC65AD2BEB9FC0BD53A7C7A41DED5E' +
'0971057379C42127E695A6B1878636793AC50F5251D61E8DE1B6F' +
'EC29160A8E8CB4C95E89EA06E81FBD76B8EC5969657A29ED85331' +
'155539CB50FA8E918957B7154BE89AEB71E142B12EFAC6DA7739F' +
'449C5143A797F4C2418B71CBCD9A26A695C4ACDB5934A01D91F6B' +
'D6E8421A16BA11DFFB7D7D57FFC4CAB8230DAF2CDF522BDA634F9' +
'E8A79474498F35999E64D75D795738EBDC6491A9899937AA83145' +
'81DA2766F4A652A833DC729CE0B6377284F4B356AA095435A40E4' +
'DF454E61E9F9A6F5AF45BFB6D87A546317B6DEAA25DD9283CA47A' +
'744508750ED443EA95257334DE49BB5B0A285A0379B1D08A20425' +
'83099FC04F169B7EA03151BACEC20F55DA237B67A1331847D9AE3' +
'21FE999A10EBA7D05C2FF7A18F752ED3B2831BD944E60D9A9A293' +
'3FDDA876B7D73FDD247B895483D959C4523CC40BD1C15AE1AC579' +
'375955EC4325CBDCC1B0517E0F238DCA377A4C981495A96BA36A6' +
'C8837B294AC6D595E86CCE5465AD9D07B605A02FBE3B8C72303F5' +
'B95EAA38571E69E85B1E9B9A7932128EF9655D89514DBBCA66851' +
'6F582982F8ADE99147922DE48EA473DC3FEEBBAD667DFB3DE51D5' +
'9B729275DBA476834F712F1FBCD6993571FA20E869B3AA8AB5126' +
'8A89C799066A0FC8D3762A5B82F4C1F58B4CAF60C6C05D58FDAFB' +
'543524AB824A283BAD380384AA487A078BD94ECE60F43D676E245' +
'FB3EC9E8BFE50F514CFEF62650AD7D69569B25A950DE85BAFC18A' +
'67621BBC2F78514D48DDBBC0AAE5926ECDBADA9157F955E6CB8A3' +
'6A19E3AD3B3A056324041317E1009DE7F7A2003C6495FDAEFB1B2' +
'D16593F080E82269A719A9625E47EEEAAA0A3A3245E60B3485039' +
'5CD5A71EE6BFE183CD56595C2F313EB53D11713D52BCC70804F09' +
'1FD1F44FD1AA47C5E7D1671B5EC0AA7EADEA95BE3BBA54D3744E6' +
'3847212AB9C2AE6B00CA907FCC359E786870D0FE9000BA44FAE13' +
'1A4BBD60F6D4854BAC1A866158F0157D651A0B67259D033BE8BD7' +
'F2D74A19CA114AFEC726D314D964627BE658E3699A1D6B0947118' +
'6326CB0FEEBAF11AFE2D35123BB71543E124CDEEE0640F781F2AB' +
'47D1F4DD7A98B3E9AD03EA599158C25525450EB179EADD7D953A9' +
'9E6568AC732DDEDB5B11598FF10F54CEB3E73A75D85596F248651' +
'411C2193E3C935D4CB5124EE140A6AFEFB5595E9839CCAE6A564F' +
'3861980C6A658D067A734329F7326DA6B10AE4BEAA0DE9B91363B' +
'2C153E21E477466EDA9944E7F2FFEEAA80BC7BEB0888B7163DD35' +
'7DC3C8F51F89276D354B469FAE2A7A30CD564437EE893DB9BD2BE' +
'8AA4A8AB37F53774CAB28A07289756A4C7CE5EC14671542537174' +
'B63CF55DD62AAAF6BEF80AD4DF69EDD32C29E4FB31BBA3736BCCA' +
'E2BCF0596F319B073AD364D7593D691B33E8C97360F5294396107' +
'BAB1A971A448125CC41051F1905479E7F7798AC4F0447DD9591A6' +
'3AA63966FE4FB60509D2734A562E858F44A4C8B7AD03969155865' +
'86F6D5EA538BC93F5D9DE0577B7C5083B05FD2A5FCF158755CB90' +
'AE91321AABD75FD43EB23C807D21699D7C6446BC61E61E13BE6AA' +
'917790A3E05A33A3449E927A76C077B98E7DB61EC64AC17FBD35C' +
'774C5AFE970C6E884ADF679649F2C2724608ECA43AAFA4537AEED' +
'D3B3CF0DABEBC54E7CF24ED43F2F6B9AF91BF509AA25A52985D43' +
'30F9730D01F125780CA94A1A2FC2D0D1E46AA1FED7B1336A0898D' +
'EA58563759FC294E12F3F9F9CAC46BB57DC4697E45E51CACBE80F' +
'7BEBB232F2ACB357E708D22B977CE13365F037B6275079BFAE816' +
'A3431DD327C8197ED0CD9AD4F86026C948938F4ABA20A8912FE80' +
'7A0A9862E6BB45802AA3666194941CA0ADA88DA19FACEA2EB6AB6' +
'5AC648C3D79075040BA10AC5053DC379384E1003FF70E135E8FA0' +
'42B72333E8A2C2E2B14F5FAB023C077BD30A0FE8B5ABD7205DD62' +
'8A63F8FA14A161E25F3BB3A59DC9C07E5BCF263CA3B148EC8C591' +
'C87A4B187EE3DB14FA9CFAEF0543E7B76EF93E222C21C8C1D4A9D' +
'1ABC8679F2B965A0516BD077D126B43A8785D67A8C9933F46E1E5' +
'72C27EE16CBF3709C2079FE607DF3D4D5DEDB9821193DCBB5030B' +
'519FDF63A2CE20D563CE8DA74662A987EFEA248DD0ADA5B8A2BC3' +
'2BE25663878A512D8E3A4CA17E8F0A1D6AB9D9597D4CB9635B0BA' +
'81B931DCA749050DD58D7189FAFD15932DF37C49D5A95F52542E5' +
'1C55EF21888399B5ECE947BDE665E9CE5F2BBA43644EDA64E74EF' +
'1F62F26AAD02AB428D67B86AEA8E379FCB6A3E7900D7BC555D93A' +
'BEE5DB90DAF217E897C82CF345EA8388A0D476C83DEEAF66C7FD7' +
'422793FB673D97F4F954C331ADF5B8984B7C68B90EEA61E05F923' +
'6862B4B063E32D9989768D9A8141137AA7A5379626A46E6C854CB' +
'2B4F049FCFBE0664913DF0F0208B91677AA0BBCA738A795E1CF1D' +
'0F6879695221EA84214DEF234ECE55C91A49F8C6AACE76BEC42E2' +
'BE4B4A365D8D3A4F35752DF92F4F75DBA86DB1FB80BA4DB38D5EF' +
'B1E172B0BB595D95E5E7F57E18726FC06F66144D4DA4EE984EA38' +
'D5E9389BAB4EF8B199F089D58497370B6FF5E5F8B43EE2A2DA65C' +
'98C3272906024F42ECE0143D5D2BABD4A0F9DC5B7B403EC38C35E' +
'667F68AA9A315B2C3B9AB3EB8184FDE5E9E5CEDEC367F559D50F9' +
'B90FA7C97FD7DC6240743E553BEEBBFDE5065BDE87A9E152FA5B7' +
'A55B4C7AE11DCA46AECB529534DFB3A6449BCCB2A166CFDA1B54B' +
'AE34E07F98E06C9C2B3E6E875F99AAF810D06839A2A923E77C273' +
'9FA1E75E16363485A3E572A973BB303F9091438A45ABBE65FD5C3' +
'AE2A18D6C99317A167BA510D228B53E1E55A67E843C8F2B74A19C' +
'9B9726D08656E1F8EC4C053BBBEB7DA62EF7D1E7BB482C752FB19' +
'70F3E9364E8DBFB13F1DAE63D5E7909CEA24FF106D44D957FD054' +
'96FD7F3ADBDF5B33BE7DEEB95E6A1852068A2C86DDE5ED34DA14A' +
'33E55DDA9718F93BD492ACAEEB6FE224511B5CBF590A63D6867D9' +
'64953A7FC9B248F897348549F1F97919695C3A57BCA5696F4420E' +
'6732E3241CFBE0FE4D91451104B2D63933B2897BD0C44422885EA' +
'6C1674CF797E51D4CE2B3D14D433B03EC2E910890BD5EF6C7D0A5' +
'174E75931497154356CE71A1F8227ECAD2F35DFF3857315D05597' +
'7B6A96779AB08C75D9E340E54FAE445383B4EC881FA80C69B2867' +
'44EF34291A52A8BB708046776E2A7391EAC3CCA9BF8F4869868DD' +
'DA81143D96333867E367C21754BF93F4B4C5BFDCE1E09D2912777' +
'461E7A2F38E5314C03AD6CE7D5FCD4BFA844577CC587BABBD2332' +
'71354F5517C47D0776685CC3834FFC8B3D38B63C52456076C242C' +
'2E55EB6A1632C876F3FA7F90FD5269C502F38D123B07A4E660CAB' +
'EFAF678E79B763C3C38687D726CB79D5D258058FD57BE70317335' +
'AE3FAA31B314D7A4C6BD756F031D533D592AAD6F1D0CCCDA82AA6' +
'60275A1D82774E15EB5D1E5F98E5422FD0647F697674796C08316' +
'6A07214FC1BF13B7BAE1D57332966B5EE50E0B7AB4FB5CCE7DF65' +
'89FC33A73D58472D2D03FB529728EA5B253C34F0C66C5B75097A7' +
'5B29D6D773C2B11494D1A714BCC66C1B416CC8D3F70BA4BEA6868' +
'34AEB44BD3278C7DD450E6C7F60CBBE7B0EE9955364D4BB0BED68' +
'999F98439CE045F814F1E6276F1F9EBEE7AC07B8AC57435DD0FB7' +
'CC68AD152EAF57420FD9DCDBC5786F32F3599B84C909F3994A247' +
'627799DB1BC869A64C34658E0FE822DEAAA2AA6B9475EBAF35DAA' +
'514AB170D8F59E23EB31B30CBD92DD310BBD53659BA18FD2EB753' +
'D93C749775B301C9CEFEF23D87DB9F69A79473FBDE8CCBA61B013' +
'D16BE3BD8AB80F2678A43C1BB6DE750B5DD229A7E3FC84348D077' +
'A245D434EDB489A79D3B2BA256972C0E1524D9959645A71F2DE60' +
'3B8D1BC4E496F89D15C3CDE7B3C7AAB5068B4F9BAF956A5E9F72F' +
'C1B0F07AB251913E8D33CBA3CC7809926358D983C3666854FDC0B' +
'2FF7537B1D819D4169FF82190B95459D1AFDF8C83867B9E2A15A6' +
'11D81EB8E0EA9C43561660BF4D5A7C5FC844565334DF040EF3F6D' +
'88EC83F9029D69BB9A6FF95A3CB4F176AAB1927B099554CCEC62F' +
'70AEACE6D848FDE9643552EB93672A19C813A6546549ABFE44C42' +
'F40046E57D700C34BC41B60FF07749C3B04408B926AF373912340' +
'17EC136249EA49CADFE8B3399E7FBCD86FA371E8E6FBEF323A7CC' +
'B5955F5E7376FCB5F3B86CB7367C1118C59EBD54BCCFD4621E57E' +
'7779949EC71AA32D4C86D31C1326B5699E7925D1C57152C977BB1' +
'47EA5852C5A1E9D5353CA0B67EAD3A7A77F80E78488AA374F7BA7' +
'465C68E77B2E04C03F7E94DFD31D51631ADB1E638AA6E0CFBE0D8' +
'BB5030A21A6B199C59784C6859B1EA9CDE83AEFF31295E502B49F' +
'61C6B9D6203E61A4DC4C235659DEE6BEF7BF2A18A39EBCE554935' +
'5277C44A99D860639BA133A72AB599A652BDF0D851F990EDBC180' +
'3ADE6A1CE204D73579631E7B955B0473FCECBE2AECAB57630502B' +
'D5FCC29DFD45B003298B5CBB925053773FF660DD01B5E3433BF7A' +
'6B5ABC20CB525A9DA8BFA7E3B21CAEF4F543B6453E72C7471C917' +
'E09EB0EDAEF7E7D163AB387345ABC64838A6B82F32D66BB8A3127' +
'BFC92BBBA672B51EFC76A39BBF57CD5394BED9EE23DE952EF92D8' +
'6366672B1A8394E337D3295367D6CAACB69405204E667F658A2D7' +
'DBE6E6821F43CF8878115EADBE2E11E31C3AD0EAB7137D8089DCC' +
'63747DF2BE788593E4FD413839364D0046F762BA1F19E27FDD4B8' +
'8D3D812A74A356C9ECD523F53B6BDE4F8B6FA7A0D956351D98CAC' +
'10F56820B67F5F5FCC4F47C21A1E921FF1550B2509EEC53C52D59' +
'FEE9688DEC646B99AF6B5542BF3F9E9BFFA78F46F574783220A76' +
'37C0D7FBDCE3AA5E40B6086575E0A1A9293002E9B6E36ACC5071C' +
'DCCD4AB57C50EB4B35CEA0CF06EEDEE638A1B2D72D0BAAF9C5BB6' +
'BC895A8D43F6DA4DE12EAE88F6F9AE6DC557F9ABB837EBBA95E31' +
'D06ADAF448ABB46D794EE73415E5A5CD31A1278DF5B9D19A530C7' +
'4C130670E7D6AB8FCFC183AEEA8F8C333F7C7F61FA9D643DCA5A9' +
'B8EFD1A0CBC8E0AAAA3A5FEFA06EBBE1D6F40DAF5D6E055CBA018' +
'B29D05F1FDADEE86810D0FBF150FD4417D040FA6497857CC608A9' +
'44FAC23DF2AC7FCFE59E7FBF0D03EDEF0B01D1FB70F3CBF8E0D62' +
'E01E78B8479CF9FBACC16BFE62ECDE6725DE8787355BF1FDFD856' +
'6B6FC14AEE9FD7838DCC05FFC030F57A0E27BE68F44C24FC1C377' +
'8827131EAE601E4CCB7453FBF017ACFA0F881FA47BBFDE5F3436E' +
'1E378D0E7E8EE9FDBBA5C9341DCE350B5827D102D365A8BC12A43' +
'3DEF4D99FF013C3CFD3E0DC3CF3A6CC5DF8887061BDB3AFE2E3CB' +
'4A8783DC25CC1C6763D373C30A2D8AEE76FC203A7346CF6E18FE6' +
'17E8A37C031E56B0B15DCFDF671F3E125B6ED7F3C7E301EB9EECC' +
'3ABA858E322B6EBF90B91F056AE72C3C35FC3C35AE4F0A3EA59DB' +
'B1E1613BAE3FDA49806FC0C3C63FFC013C5CC544BD5ADBDAAEEAE' +
'FC0037DC7F5CA87FBE9A3B6E30BF0A0F9B1E5BCE161B3096FB00F' +
'AFE6981B1E7E1312FE81874D5FFD77E2C66B78E95FA4A7DDD6FD6' +
'648F874BDFD76DC111BB8EFC03578B886774A48F8F4D9E0DBF13E' +
'3CAC6AE16EEA2336FBF0C3B88506152D0F494BB2DF3D3C0DBBF6B' +
'C663136CBF073B9A6355E9A5CC48573F3FA0D0FBF299B787A1E0E' +
'43DF2A27D344A0150FD27E1AFF75BBFEDF936F5CBB77156306BE5' +
'2AB299C305AB82667A1F5D854523F110F3623887CF54A247961F5' +
'5FFD165A956D45BE111E56F6EF35BB9B7944EB1D5E47C85A16B3A' +
'DCE86870D0FDF130FD72B665BCEE11FDC458B90C607B5E76DA56E' +
'7B5CB8CE5A97D763C8B5DDCDB8A2619CD6BEEBADD860D4BAE523A' +
'B2B7B3567B8B6166BBCF49BED03E3497A8D7632EDD508F94714BA' +
'E25FFE3206AEAA34F1F557B0466FA861B5786819E96BF0F0566CA' +
'C20E42F64AC6F5ED3B595BDE65D57649ABCEB41BAF7D9F59327DF' +
'8A90ABCFFF886D7E144E3EBE826B55838F632059E38FE34176630' +
'D21ED44EBF6F5AF22ED7A9BF353E2900FEDEB5B9D3F621FDE3ABF' +
'FA03EBB28A9977452C3FD7D7DCC023DCD4567C68A63D238D1B69A' +
'55843BFCADAFCA29CE5333170958EFA8A3E8BB575BF8776EEC2DD' +
'D81B5D16555BBFBC0671236CBCDE81F5D699931B57F0235171BDD' +
'D781D0FDBDC8F9F888AF7E969AFB7159B95F896D8B82A1BBDA9D6' +
'7A9B09F3236DC5D5DA95F7D98D7BE49BDBF1C578B826BA58F31A5' +
'77005DB4A7D3B5EEB7DA878B547E31F78002AB655BB3B1E5E5DFD' +
'6BAA636FC6C35A6C7905FFBCE91C363C6C78F8163CF65A4FCD8AC' +
'DFF883256E7960F7C1D0F1B2A3E275A58E39C3FA25C7A5DFDD8A2' +
'E21A3CB408DC56F97EDEE1C25ABC4F457375AED1E2E17D166F5BE' +
'BD7AFD5EB6B77C19BAFD416EF8287C64A6CAB760F8FF03AC3B086' +
'81EBBFEB56A8D8F4F35F75BCAE69BC7B747AB595D87886CFE41EE' +
'F77B53F52216DFDD156BFB8371EBE03FB7D41BDF92AA7B1C515F7' +
'8B2BBED62EADE161B5F7670527DB6A7E3C66F83EDE6A55E3BD125' +
'16CB9E46D8FEF139BBD150FABFAEDEDF87531ED35A858FD046431' +
'DB55FD0BA8605CB15DB10D0F09159B8FD850D17890ED8AFDB5E31' +
'A5BB15DA50D0F1B1E36546CA8D88EEBB1B15D99EDD8F0B01D6BA8' +
'D8AEC376FCCDE37FDB3B9E72');
C:= GetBitmapCanvas(EntPic);
CopyCanvas(C, EntImage.Canvas, 0, 0, 88, 155, 0, 0, 88, 155);
TreeLabel1 := TLabel.Create(GerauchertPowerChopper);
TreeLabel1.Parent := GerauchertPowerChopper;
TreeLabel1.Left := 28;
TreeLabel1.Top := 80;
TreeLabel1.Width := 52;
TreeLabel1.Height := 13;
TreeLabel1.Caption := 'TreeColor1';
TreeLabel1.Color := clBtnFace;
TreeLabel1.ParentColor := False;
TreeLabel2 := TLabel.Create(GerauchertPowerChopper);
TreeLabel2.Parent := GerauchertPowerChopper;
TreeLabel2.Left := 29;
TreeLabel2.Top := 108;
TreeLabel2.Width := 52;
TreeLabel2.Height := 13;
TreeLabel2.Caption := 'TreeColor2';
TreeLabel3 := TLabel.Create(GerauchertPowerChopper);
TreeLabel3.Parent := GerauchertPowerChopper;
TreeLabel3.Left := 29;
TreeLabel3.Top := 137;
TreeLabel3.Width := 52;
TreeLabel3.Height := 13;
TreeLabel3.Caption := 'TreeColor3';
ChopTimeLabel := TLabel.Create(GerauchertPowerChopper);
ChopTimeLabel.Parent := GerauchertPowerChopper;
ChopTimeLabel.Left := 227;
ChopTimeLabel.Top := 23;
ChopTimeLabel.Width := 48;
ChopTimeLabel.Height := 13;
ChopTimeLabel.Caption := 'ChopTime';
NoteLabel2 := TLabel.Create(GerauchertPowerChopper);
NoteLabel2.Parent := GerauchertPowerChopper;
NoteLabel2.Left := 322;
NoteLabel2.Top := 24;
NoteLabel2.Width := 52;
NoteLabel2.Height := 13;
NoteLabel2.Caption := 'In seconds';
LoadsLabel := TLabel.Create(GerauchertPowerChopper);
LoadsLabel.Parent := GerauchertPowerChopper;
LoadsLabel.Left := 234;
LoadsLabel.Top := 49;
LoadsLabel.Width := 29;
LoadsLabel.Height := 13;
LoadsLabel.Caption := 'Loads';
NoteLabel3 := TLabel.Create(GerauchertPowerChopper);
NoteLabel3.Parent := GerauchertPowerChopper;
NoteLabel3.Left := 323;
NoteLabel3.Top := 49;
NoteLabel3.Width := 48;
NoteLabel3.Height := 13;
NoteLabel3.Caption := 'Per Player';
TreeTolLabel := TLabel.Create(GerauchertPowerChopper);
TreeTolLabel.Parent := GerauchertPowerChopper;
TreeTolLabel.Left := 230;
TreeTolLabel.Top := 75;
TreeTolLabel.Width := 37;
TreeTolLabel.Height := 13;
TreeTolLabel.Caption := 'TreeTol';
NoteLabel4 := TLabel.Create(GerauchertPowerChopper);
NoteLabel4.Parent := GerauchertPowerChopper;
NoteLabel4.Left := 322;
NoteLabel4.Top := 73;
NoteLabel4.Width := 48;
NoteLabel4.Height := 13;
NoteLabel4.Caption := 'Tolerance';
RunDirLabel := TLabel.Create(GerauchertPowerChopper);
RunDirLabel.Parent := GerauchertPowerChopper;
RunDirLabel.Left := 230;
RunDirLabel.Top := 113;
RunDirLabel.Width := 33;
RunDirLabel.Height := 13;
RunDirLabel.Caption := 'RunDir';
NoteLabel8 := TLabel.Create(GerauchertPowerChopper);
NoteLabel8.Parent := GerauchertPowerChopper;
NoteLabel8.Left := 325;
NoteLabel8.Top := 112;
NoteLabel8.Width := 94;
NoteLabel8.Height := 13;
NoteLabel8.Caption := 'Run Away Direction';
TitleLabel := TLabel.Create(GerauchertPowerChopper);
TitleLabel.Parent := GerauchertPowerChopper;
TitleLabel.Caption := 'GERAUCHERT POWERCHOPPER II';
TitleLabel.Font.Color := clGreen;
TitleLabel.Font.Height := -13;
TitleLabel.Font.Size := 9;
TitleLabel.Font.Name := 'Century Gothic';
TitleLabel.Font.Style := [fsBold];
TitleLabel.ParentFont := False;
TitleLabel.Left := 29;
TitleLabel.Top := 23;
TitleLabel.Width := 185;
TitleLabel.Height := 50;
TreeEdit1 := TEdit.Create(GerauchertPowerChopper);
TreeEdit1.Parent := GerauchertPowerChopper;
TreeEdit1.Text := LoadSetting('GerauchertPowerChopper','TreeColor1');
TreeEdit1.Left := 87;
TreeEdit1.Top := 75;
TreeEdit1.Width := 76;
TreeEdit1.Height := 21;
TreeEdit1.Color := clBlack;
TreeEdit1.TabOrder := 0;
TreeEdit3 := TEdit.Create(GerauchertPowerChopper);
TreeEdit3.Parent := GerauchertPowerChopper;
TreeEdit3.Text := LoadSetting('GerauchertPowerChopper','TreeColor3');
TreeEdit3.Left := 86;
TreeEdit3.Top := 133;
TreeEdit3.Width := 77;
TreeEdit3.Height := 21;
TreeEdit3.Color := clBlack;
TreeEdit3.TabOrder := 2;
PickButton1 := TButton.Create(GerauchertPowerChopper);
PickButton1.Parent := GerauchertPowerChopper;
PickButton1.OnClick := @PickTreeColor1;
PickButton1.Left := 170;
PickButton1.Top := 70;
PickButton1.Width := 31;
PickButton1.Height := 26;
PickButton1.Caption := 'Pick';
PickButton1.TabOrder := 3;
TreeEdit2 := TEdit.Create(GerauchertPowerChopper);
TreeEdit2.Parent := GerauchertPowerChopper;
TreeEdit2.Text := LoadSetting('GerauchertPowerChopper','TreeColor2');
TreeEdit2.Left := 87;
TreeEdit2.Top := 103;
TreeEdit2.Width := 76;
TreeEdit2.Height := 21;
TreeEdit2.Color := clBlack;
TreeEdit2.TabOrder := 1;
PickButton2 := TButton.Create(GerauchertPowerChopper);
PickButton2.Parent := GerauchertPowerChopper;
PickButton2.OnClick := @PickTreeColor2;
PickButton2.Left := 170;
PickButton2.Top := 101;
PickButton2.Width := 31;
PickButton2.Height := 26;
PickButton2.Caption := 'Pick';
PickButton2.TabOrder := 4;
PickButton3 := TButton.Create(GerauchertPowerChopper);
PickButton3.Parent := GerauchertPowerChopper;
PickButton3.OnClick := @PickTreeColor3;
PickButton3.Left := 170;
PickButton3.Top := 130;
PickButton3.Width := 31;
PickButton3.Height := 27;
PickButton3.Caption := 'Pick';
PickButton3.TabOrder := 5;
ChopTimeEdit := TEdit.Create(GerauchertPowerChopper);
ChopTimeEdit.Parent := GerauchertPowerChopper;
ChopTimeEdit.Text := LoadSetting('GerauchertPowerChopper','ChopTime');
ChopTimeEdit.Left := 279;
ChopTimeEdit.Top := 21;
ChopTimeEdit.Width := 35;
ChopTimeEdit.Height := 21;
ChopTimeEdit.Color := clBlack;
ChopTimeEdit.TabOrder := 6;
LoadsEdit := TEdit.Create(GerauchertPowerChopper);
LoadsEdit.Parent := GerauchertPowerChopper;
LoadsEdit.Text := LoadSetting('GerauchertPowerChopper','LoadsA');
LoadsEdit.Left := 279;
LoadsEdit.Top := 46;
LoadsEdit.Width := 35;
LoadsEdit.Height := 21;
LoadsEdit.Color := clBlack;
LoadsEdit.TabOrder := 7;
TreeTolEdit := TEdit.Create(GerauchertPowerChopper);
TreeTolEdit.Parent := GerauchertPowerChopper;
TreeTolEdit.Text := LoadSetting('GerauchertPowerChopper','TreeTol');
TreeTolEdit.Left := 279;
TreeTolEdit.Top := 72;
TreeTolEdit.Width := 35;
TreeTolEdit.Height := 21;
TreeTolEdit.Color := clBlack;
TreeTolEdit.TabOrder := 8;
RunDirCombo := TComboBox.Create(GerauchertPowerChopper);
RunDirCombo.Parent := GerauchertPowerChopper;
RunDirCombo.Left := 270;
RunDirCombo.Top := 108;
RunDirCombo.Width := 47;
RunDirCombo.Height := 21;
RunDirCombo.Color := clBlack;
RunDirCombo.ItemHeight := 13;
RunDirCombo.TabOrder := 9;
RunDirCombo.Items.Add('N');
RunDirCombo.Items.Add('S');
RunDirCombo.Items.Add('E');
RunDirCombo.Items.Add('W');
PlayerFormButton := TButton.Create(GerauchertPowerChopper);
PlayerFormButton.Parent := GerauchertPowerChopper;
PlayerFormButton.OnClick := @StartPlayerForm;
PlayerFormButton.Left := 22;
PlayerFormButton.Top := 171;
PlayerFormButton.Width := 72;
PlayerFormButton.Height := 48;
PlayerFormButton.Caption := 'Player Form';
PlayerFormButton.TabOrder := 10;
StartButton := TButton.Create(GerauchertPowerChopper);
StartButton.Parent := GerauchertPowerChopper;
StartButton.OnClick := @StartButtonClick;
StartButton.Left := 75;
StartButton.Top := 233;
StartButton.Width := 123;
StartButton.Height := 57;
StartButton.Caption := 'START!';
StartButton.TabOrder := 11;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
GerauchertPowerChopper.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
//-------------------------FORM ENDS---------------------------//
procedure LoadDTMs;
begin
NormalLog := DTMFromString('78DA631461606010624001CD2936609A11CA6' +
'7140612C20C688091218E11498D189090C15483620E0F90E022A0' +
'860548881050230524D809A851021262B8D530C2FCC5855F0D004' +
'83902BE');
OakLog := DTMFromString('78DA639461606068654001130B9C19E218191' +
'88088E13F1030AA0119B50C6880118904D25244A81104128D04D4' +
'C803897E026AB481443B1176F5E15703004DF40A20');
WillowLog := DTMFromString('78DA63946260601061400191010A0C718C0C0' +
'C40C4F01F081855800C1E0634C08844026905202147408D2890E0' +
'25A0869F0873A481840201359A40428208BB04F1AB01002BCE06C' +
'3');
AxeDTM := DTMFromString('78DA63346560609067400119229C0C3A8C0C0' +
'C40C4F01F08180D810C290634C0884402697D4C7330D4A8030905' +
'026AB480842A0135207923FC6A004963069A');
BrokenAxeDTM := DTMFromString('78DA63EC6060605064400125E2BC0C3A8C0C0' +
'C40C4F01F0818416AE418D000231209A43B8184146E3560DC8EDF' +
'1C30AE21424D059030C6AF0600570908B3');
KebabDTM := DTMFromString('78DA6314636060106740014B7A62197418191' +
'88088E13F10302A0219BC0C6880118904D2F2404282801A112021' +
'47400DC81E51026A248104070135C2408207BF1A00AEB006F1');
BeerDTM := DTMFromString('78DA63746660601061400197E74931E830323' +
'00011C37F2060F40132D819D000231209A40381840001353E44A8' +
'F10412D204D458030921026A1C80040B013576404206BF1A00890' +
'80882');
end;
procedure LoadVars;
begin
Quad[0].x1:= 170; //Nearest tree (prevents running around)
Quad[0].y1:= 80;
Quad[0].x2:= 350;
Quad[0].y2:= 200;
Quad[1].x1:= 0; //Quadrant I
Quad[1].y1:= 0;
Quad[1].x2:= 263;
Quad[1].y2:= 154;
Quad[2].x1:= 263; //Quadrant II
Quad[2].y1:= 0;
Quad[2].x2:= 512;
Quad[2].y2:= 0;
Quad[3].x1:= 0; //Quadrant III
Quad[3].y1:= 154;
Quad[3].x2:= 263;
Quad[3].y2:= 0;
Quad[4].x1:= 263; //Quadrant IV
Quad[4].y1:= 154;
Quad[4].x2:= 512;
Quad[4].y2:= 337;
end;
//ANTIBAN//
procedure DontGetBanned;
begin
if(not(LoggedIn))then
Exit;
case Random(500) of
0: begin
GameTab(5);
Wait(2000 + random(1200));
GameTab(4);
end;
1: begin
HoverSkill('Random', False);
Wait(500+ random (250));
HoverSkill('Woodcutting', False);
end;
2: begin
GameTab(5);
MMouse(590,304,3,3);
Wait(500 + random(300));
Mouse(590,304,3,3,False);
ChooseOption(x,y,'xamine');
Wait(1500 + random(1300));
GameTab(4);
end;
3: begin
GameTab(6);
Wait(400 + random(200));
MouseBox(566,209,734,455,3);
Sleep(2000 + random(500));
GameTab(4);
end;
4: begin
GameTab(7);
Wait(500 + random(100));
MouseBox(566,209,734,455,3);
Sleep(3000 + random(1000));
Wait(300 + random(125));
GameTab(4);
end;
5: begin
GameTab(8);
MouseBox(566,209,734,455,3);
Sleep(2000 + random(700));
Wait(500 + random(230));
GameTab(9);
Wait(1000 + random(800));
end;
6: PickUpMouse;
7: MouseBox(MSX1,MSY1,MSX2,MSY2,3);
8: MouseBox(MMX1,MMY1,MMX2,MMY2,3);
9: RandomRClick;
10: BoredEvery(2 + random(1));
11: SleepAndMoveMouse(5000 + random(1500));
12: RotateEvery(2 + random(1));
13: BoredHuman;
15: GameTab(1 + random(11));
16: HoverSkill('Random', False);
end;
end;
procedure RRotate;
begin
case Random(7) of
0: MakeCompass('n');
1: MakeCompass('s');
2: MakeCompass('e');
3: MakeCompass('w');
4: RotateEvery(2 + random(1));
end;
end;
Function Respond: Boolean;
var WC, Say: String;
begin
if(FindChatText(Players[CurrentPlayer].Name))then
begin
case random(11) of
0: Say:='huh?';
1: Say:='wat?';
2: Say:='what?';
3: Say:='no';
4: Say:='eh?';
5: Say:='yes?';
6: Say:='ya?';
7: Say:='yer?';
8: Say:='ja?';
9: Say:='ich kann nicht englisch sprechen';
10: Say:='lol?';
end;
TypeSend(Say);
Result:= True;
AutoTalk:= AutoTalk + 1;
if(FindChatText('hi') or FindChatText('hello') or FindChatText('yo') or
FindChatText('sup') or FindChatText('wazzup') or FindChatText('whats up'))then
begin
case random(8) of
0: Say:='hey';
1: Say:='sup';
2: Say:='hi!';
3: Say:='hello';
4: Say:='wat up';
5: Say:='wats up';
6: Say:='yo';
7: Say:='lo';
8: Say:='hellllo!';
end;
TypeSend(Say);
Result:= True;
AutoTalk:= AutoTalk + 1;
if(FindChatText('wc') or FindChatText('woodcutting') or FindChatText('woodcut')and
FindChatText('lvl') or FindChatText('level') or FindChatText('lvls') or FindChatText('levels'))then
begin
WC:= IntToStr(GetSkillLevel('woodcutting'));
case random(8) of
0: Say:= ('lvl' + WC + '');
1: Say:= ('lvl' + WC +'...');
2: Say:= ('lvl' + WC +'! =p');
3: Say:= ('level' + WC + 'woodcut');
4: Say:= (WC + 'woodcut here =)');
5: Say:= ('im' + WC + 'wc');
6: Say:= ('only' + WC +'=(');
7: Say:= ('just' + WC +'...');
end;
TypeSend(Say);
Result:= True;
AutoTalk:= AutoTalk + 1;
end;
end;
end;
end;
//PROGRESS REPORT//
procedure Proggy;
begin
ClearDebug;
SRLRandomsReport;
Writeln('*************************************');
Writeln('=========== PROGRESS REPORT =========');
Writeln('*************************************');
Writeln('Chopped: ' + IntToStr(LoadsA) + ' Loads');
Writeln('Ran For: ' + TimeRunning);
Writeln('Ents Avoided: ' + IntToStr(EntsAvoided) + ' Ents');
Writeln('Broke: ' + IntToStr(AxeBreaks) + ' Axes');
Writeln('AutoTalked: ' + IntToStr(AutoTalk) + ' Times');
Writeln('DeathWalked: ' + IntToStr(WB) + ' Times');
Writeln('Got lost: ' + IntToStr(WBF) + ' Times');
Writeln('*************************************');
Writeln('REMEMBER TO POST PROGRESS REPORTS!!!!');
Writeln('=========== HAPPY AUTOING!! =========');
Writeln('*************************************');
end;
//ANTIRANDOMZ//
Function FindFastRandoms: Boolean; // By WT-Fakawi.
Var
i: Integer;
Begin
For I := 1 To 11 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;
8 : If RC Then
Result := True;
9 : If FindFight Then
Begin
Result := True;
RunTo('S', True);
End;
10: If FindTalk Then
Result := True;
11: If FindTrade Then
Result := True;
End;
Wait(1);
End;
End;
procedure Randoms;
begin
if (FindTrade) then
begin
HandleTrade;
end;
ClickToContinue;
FindFastRandoms;
FindNormalRandoms;
Respond;
end;
//TREE FINDING, CHOPPING, & DEATH WALKBACK PROCEDURES//
procedure CheckBroken;
begin
if (Wielding = True) then
begin
GameTab(5);
end else
if (FindDTM(BrokenAxeDTM,x,y,MIX1,MIY1,MIX2,MIY2)) then
begin
NextPlayer(False);
end;
end;
Function IsDead: Boolean;
begin
if(FindSymbol(x,y,'water')) and (FindChatText('h dear you are dead'))then
begin
Writeln('you are dead =(');
Result:= True;
end;
end;
Function FindTree: Boolean;
var i: integer;
begin
for i:= 0 to 4 do
begin
MarkTime(WaitTime);
if (TimeFromMark(WaitTime) > 60000) then
begin
Writeln('couldnt find the tree');
Result:= False;
end else
if (FindColorSpiralTolerance(x,y,TreeColor1,Quad[i].x1,Quad[i].y1,Quad[i].x2,Quad[i].y2,TreeTol))or
(FindColorSpiralTolerance(x,y,TreeColor2,Quad[i].x1,Quad[i].y1,Quad[i].x2,Quad[i].y2,TreeTol))or
(FindColorSpiralTolerance(x,y,TreeColor3,Quad[i].x1,Quad[i].y1,Quad[i].x2,Quad[i].y2,TreeTol))then
begin
MMouse(x,y,3,3);
if (IsUpText(TreeType)) then
Result:= True;
end;
end;
end;
procedure WalkBackWillows;
begin
PerfectNorth;
SetRun(False);
Wait(3000 + random(1000));
GameTab(4);
RadialRoadWalk(FindRoadColor,89,100,10,1,2);
Flag;
RadialRoadWalk(FindRoadColor,82,100,50,1,2);
Flag;
RadialRoadWalk(FindRoadColor,324,360,60,1,2);
Flag;
RadialRoadWalk(FindRoadColor,305,336,60,1,2);
Flag;
RadialRoadWalk(FindRoadColor,335,360,65,1,2);
Flag;
RadialRoadWalk(FindRoadColor,345,375,60,2,1);
Flag;
RadialRoadWalk(FindRoadColor,300,275,60,2,1);
Flag;
if(not(FindSymbol(x,y,'quest')))then
begin
MarkTime(WaitTime);
repeat
RadialRoadWalk(FindRoadColor,290,215,20,2,1);
Flag;
until(FindSymbol(x,y,'quest')) or (TimeFromMark(WaitTime) > 10000);
end else
RadialRoadWalk(FindRoadColor,305,275,55,2,1);
Flag;
Mouse(596,136,10,10,True);
Wait(10000 + random(2000));
begin
if (FindTree = True) then
begin
Writeln('We are HERE!!!...next player now =p');
WB:= WB + 1;
NextPlayer(True);
end else
Writeln('We got lost =( next player...');
WBF:= WBF + 1;
NextPlayer(False);
end;
end;
procedure WalkBackOaks;
begin
PerfectNorth;
SetRun(False);
Wait(3000 + random(1000));
GameTab(4);
RadialRoadWalk(FindRoadColor,89,100,10,1,1);
Flag;
RadialRoadWalk(FindRoadColor,82,100,50,1,1);
Flag;
RadialRoadWalk(FindRoadColor,324,360,60,1,1);
Flag;
RadialRoadWalk(FindRoadColor,305,336,60,1,1);
Flag;
RadialRoadWalk(FindRoadColor,335,360,65,1,1);
Flag;
Mouse(702,58,7,7,True);
Wait(10000 + random(2000));
begin
if (FindTree = True) then
begin
Writeln('We are HERE!!!...next player now =p');
WB:= WB + 1;
NextPlayer(True);
end else
Writeln('We got lost =( next player...');
WBF:= WBF + 1;
NextPlayer(False);
end;
end;
procedure WalkBackTrees;
begin
PerfectNorth;
SetRun(False);
Wait(3000 + random(1000));
GameTab(4);
RadialRoadWalk(FindRoadColor,89,100,10,1,1);
Flag;
RadialRoadWalk(FindRoadColor,82,100,50,1,1);
Flag;
RadialRoadWalk(FindRoadColor,60,85,65,1,1);
Flag;
RadialRoadWalk(FindRoadColor,67,84,60,1,1);
Flag;
RadialRoadWalk(FindRoadColor,340,380,65,1,1);
Flag;
Mouse(665,71,7,7,True);
Wait(10000 + random(2000));;
begin
if (FindTree = True) then
begin
Writeln('We are HERE!!!...next player now =p');
WB:= WB + 1;
NextPlayer(True);
end else
Writeln('We got lost =( next player...');
WBF:= WBF + 1;
NextPlayer(False);
end;
end;
procedure DeathWalk;
begin
if(not(IsDead)) then
Exit;
if (IsDead = True) then
begin
if (Wielding = True) and (FindDTM(AxeDTM,x,y,MIX1,MIY1,MIX2,MIY2)) then
Mouse(x,y,2,2,True);
if (Players[CurrentPlayer].integer1 = 3) then
begin
WalkBackWillows;
end else
if (Players[CurrentPlayer].integer1 = 2) then
begin
WalkBackOaks;
end else
if (Players[CurrentPlayer].integer1 = 1) then
begin
WalkBackTrees;
end;
end;
end;
procedure CutIt;
begin
case random(2) of
0: begin
GetMousePos(x,y);
Wait(500 + random(100));
Mouse(x,y,3,3,True);
Wait(1000 + random(100));
MMouse(x,y,3,3);
MarkTime(WaitTime);
if(InvFull) or (FindFastRandoms) or (not(FindColorTolerance(x,y,TreeColor1,MSX1,MSY1,MSX2,MSY2,3)))then
Exit;
while(TimeFromMark(WaitTime) < ChopTime * 1000)do
begin
Randoms;
CheckBroken;
DontGetBanned;
Respond;
DeathWalk;
RRotate;
end;
end;
1: begin
GetMousePos(x,y);
Wait(500 + random(100));
Mouse(x,y,3,3,False);
ChooseOption(x,y,'own');
Wait(1000 + random(100));
MMouse(x,y,3,3);
MarkTime(WaitTime);
if(InvFull) or (FindFastRandoms) or (not(FindColorTolerance(x,y,TreeColor1,MSX1,MSY1,MSX2,MSY2,3)))then
Exit;
while(TimeFromMark(WaitTime) < ChopTime * 1000)do
begin
Randoms;
CheckBroken;
DontGetBanned;
Respond;
DeathWalk;
RRotate;
end;
end;
end;
end;
procedure Chop;
begin
repeat
if (not(LoggedIn)) then
NextPlayer(True);
if (IsDead = True) then
DeathWalk;
if (FindColorTolerance(x,y, 65535, 6,6,175,27,10)) or
(FindColorTolerance(x,y, 383705,6,6,175,27,10)) or
(FindColorTolerance(x,y, 55769, 6,6,175,27,10)) and
(IsUpTextMulti('hop','own',TreeType)) then
begin
Writeln('Ent Found RUNNING!');
RunAwayDirection(RunDir);
Wait(40000 + random(15000));
RunBack;
EntsAvoided:= EntsAvoided + 1;
end else
if (FindTree = True) then
begin
CutIt;
end;
until(InvFull);
end;
//DROPPING PROCEDURE//
procedure Drop;
begin
GameTab(4);
if(InvFull)then
begin
repeat
if(FindDTM(NormalLog,x,y,MIX1,MIY1,MIX2,MIY2))or
(FindDTM(WillowLog,x,y,MIX1,MIY1,MIX2,MIY2))or
(FindDTM(OakLog,x,y,MIX1,MIY1,MIX2,MIY2))then
Mouse(x,y,3,3,False);
ChooseOption(x,y,'rop');
Wait(500 + random (300));
until(not(FindDTM(NormalLog,x,y,MIX1,MIY1,MIX2,MIY2)))and
(not(FindDTM(OakLog,x,y,MIX1,MIY1,MIX2,MIY2)))and
(not(FindDTM(WillowLog,x,y,MIX1,MIY1,MIX2,MIY2)));
begin
if(FindDTM(KebabDTM,x,y,MIX1,MIY1,MIX2,MIY2))then
Mouse(x,y,3,3,True);
Wait(500 + random(200));
if(FindDTM(BeerDTM,x,y,MIX1,MIY1,MIX2,MIY2))then
Mouse(x,y,3,3,True);
GetMousePos(x,y);
Wait(200 + random(200));
Mouse(x,y,3,3,False);
ChooseOption(x,y,'rop');
Wait(500);
LoadsA:=LoadsA + 1;
LoadsB:=LoadsB + 1;
TimeRunning;
end;
end;
end;
//STARTING UP//
procedure ScriptSetup;
begin
SafeInitForm;
SafeShowFormModal;
ActivateClient;
SetupSRL;
LoadDTMs;
LoadVars;
ClearDebug;
end;
procedure Setup;
begin
HighestAngle;
Wait(500 + random(200));
SetRun(True);
Wait(500 + random(150));
MakeCompass('n');
GameTab(4);
case (Players[CurrentPlayer].integer1) of
1: TreeType:= 'ree';
2: TreeType:= 'ak';
3: TreeType:= 'illow';
end;
Wielding:= Players[CurrentPlayer].boolean1;
Writeln('setup completed...begin chopping now');
end;
//MAIN LOOP//
begin
ScriptSetup;
NEWLINE:='';
if (not(LoggedIn)) then
LogInPlayer;
Setup;
repeat
begin
if (not(LoggedIn)) then
NextPlayer(True);
if(IsDead = True)then
DeathWalk;
Chop;
Drop;
Proggy;
if (LoadsB = Loads) then
begin
NextPlayer(True);
LoadsB:= 0;
Writeln('w00t switched players');
Setup;
end;
end;
until(False);
end.——————————————————
<!– END TEMPLATE: formanswers –>