TravisV10
2007-08-05 10:07:04
born2code - SRL Member Application Form
born2code
What is the meaning to life?
Being on the computer scripting for 24/7! Or is that just me?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Lots of PHP & MySql, Scar, C++, Java, HTML, CSS, and lots more
Other Communitys
TravDev.freehostia.com, KYAB MEMBER
How Long have You Played Runescape
1 year and a half
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well, I applied too early last time and I decided to take a break from the community until, well, now. I am back and wanting to help! I know many of you have already read over my paragraph like 1 thousand times too early, :D so I will get to the script…
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{=========================================================================]
[ OPERATION: Yews V2.0 ]
[ ]
[ NAME : OPERATION: Yews V2.0 ]
[ WRITER : Born2Code ]
[ CATEGORY : Woodcutting ]
[ DESCRIPTION : Chops Yew tress at Varrock ]
[ USAGE : Start at Varrock East Bank ]
[ AUTOCOLOR : Yes ]
[ ]
[=========================================================================]
[ SETUP ]
[=========================================================================]
[ 1. USE Runescape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Set Playernames and Passwords in the form by clicking SetupPlayers. ]
[ 4. Start script Logged Out / Logged in ]
[ 5. Go to TravDev.freehostia.com and register! (required to use script) ]
[=========================================================================]
[ Credits to : ]
[ Lorax/Sumilion --> For Description Block (this) ]
[ JAD --> ENT ]
[ JuKKa --> Some walking procedures ]
[=========================================================================}
program OperationYews;
{.include srl/srl.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
var
frmDesign : TForm;
Image1 : TImage;
PlayerForm : TGroupBox;
SetupPlayers : TButton;
ExtraSetup : TGroupBox;
DisguiseScar1 : TLabel;
YewColor : TLabel;
LoadTime : TLabel;
SecondsPerClick : TLabel;
AmountOfLoadsPerPlayer : TLabel;
DSA : TEdit;
YewColorA : TEdit;
LoadTimeA : TEdit;
TreeTA : TEdit;
AOLA : TEdit;
Start : TButton;
C : TCanvas;
oyl : Integer;
Tries,ENTs,WCLevel,TLoads,Talked,Loads,AxeDTM,CutTime,YewColorB,LoadTimeB,TreeTB,AOLB: integer;
DSB: string;
{->>>Form Procedures<<<-}
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure StartClick(sender: TObject);
begin
Writeln('Form is up');
DSB := DSA.Text;
YewColorB := StrToInt(YewColorA.Text);
LoadTimeB := StrToInt(LoadTimeA.Text);
TreeTB := StrToInt(TreeTA.Text);
AOLB := StrToInt(AOLA.Text);
frmDesign.ModalResult:= mrOk;
end;
procedure LaunchPlayerForm(Sender: TObject);
begin
StartPlayers(True, 'integer1');
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 336;
frmDesign.Height := 353;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Image1 := TImage.Create(frmDesign);
Image1.Parent := frmDesign;
Image1.Left := 187;
Image1.Top := 24;
Image1.Width := 100;
Image1.Height := 100;
oyl := BitmapFromString2(False, 'aA7A4678DAEDBD6992EC38AE34' +
'BA2571267F72D2FE97F4DC018A2145649EA9AAEC7EF6FA54B5B1A' +
'33223451174000E70C0711C4771680E1FD04463D9968936CC8CD6' +
'66CFCFA1B33D237FCBAF1C299C68F351F8D9E2B7C6377CD36497E' +
'731CEE9FEB89DB776FC727BFFABFFAE97CF1E7F775C6FCF19E7E8' +
'BFDFFEF13BFFD763FC7FA19DDFC8B64D3FE628D26669D30FDBBCB' +
'F7F8E2AEDAFCFD13FEFABFD728FDFF515A50D68C70FDBB9DA78FB' +
'DBFB9BDCDFA7BDFDFCFB31C68F67FEE248FF9FC2DE2796EA6D145' +
'164E8D1F6616618BD9FD24EB40DFFF7DE8EFDDB3E0EB46338B497' +
'FCDFE5737DBEF7A5B366F713AEBEC68FFAD2B79237D4B7FD6AC6E' +
'F6DD8E35A7DC913AE5EDA8C680BDADAB3B4E9ADD5DF5EDF1C1FEF' +
'E0A4FD0E936E7FF32B79B6DB93B5EDBF30D2F415DEFE4F90363E3' +
'437EFB15FA3D6F15286A50769CD4C23B78936B52E6D9B797DD69F' +
'E77EA02DDDDF66A17FC8C4EEF62E61FDA6FE953E419FF6EC51DB2' +
'13F3FA52F236DD848F86A2E8E8F796CFB0D4B77FBCDAFE7178C2B' +
'B6246DBCB559C65B5EA3FE62BC77BCCD0FEDA8DFF43B6EF2ACB75' +
'67F327ED0978EEBD2E278B36C9F18FB4F6DD49B754A2F3D1209E8' +
'ECE87CE9E842F3687D3D6719AEB65987AD49DAB83FBB5AA51DF84' +
'E68166D14F95FB3EF3FF4BDDE6C42BCF5D8A4C7C01EDBB17A2CE8' +
'A5485FAF567FAEDFD1EFEBDB5EF2E7ACE9932F6B133F66B37ED31' +
'74764AA7F6B75BC3A525FA7F4EB046F3AD229FDDA1BCEE34D2B7F' +
'A5DF7C93EABB6CBFEFD16F79EA0C5E184B4F36F2DFA1EBCD46C5E' +
'D0B54C75502AA1DFAFE8A2253ED6CFD2C75F63E8A47DBCB313188' +
'7CEE76148776963C611DCA39DB9289A251F55D31A348BBDAB9ED8' +
'3A257252CF3881E07FA9D254ABF4E7AB1B7BEF8F3B334F4286F78' +
'C9FF86B4B86C4BD99FF54D14F9D7E8889963F5956F63341C9D8E5' +
'43E8F12A4C77A1B63BC69937FB36677ABAEB6EED5EFFB18D31EE3' +
'4FFAADC7876CD396AA22596753675667F989AEF91FF9BEBB8DBA1' +
'0E5055175DB251DB58CB7CE547A07D46C09D1B89EBC3366B8E686' +
'F5BE46E75ACA6847CA39875C5DC3A069F729259DAF37F9DBDDDEB' +
'4B5B93C7AC92622228ED1A71463F00EFFE7DD89569E8FB6DFFA8A' +
'D595186D33CD700A1569E8714A8FE16645DBFE2C338277039E4B4' +
'9A6217C0E47F6E88B5D7A6F3E7AD476E227163FF7CE5A8BB15BEB' +
'D13A1B5D75DE6657630A2ED98DEA1F8C117DB5E4F409D17A9B3CF' +
'A3DA4C779F59B9A6F25161F5A732584D9AC8EB4E75C6751E46FD9' +
'0AC69A412F8AE1CB82D14B3ED1057BF2EF5AAD8DA8F2E25162332' +
'F1B55C55670DE4513EB99F005D731E874A4C31FCC72FCD63FF604' +
'F672EAC117BB2C80E8E6B22DA63AB44735B3359B63AFE825FC7E2' +
'F6F3D4E9773812B37CBB2A91D504B3B4B818E5420D05963928DC7' +
'7FF08F3D6D707E7BB4ED4F1B45F12F8CF13E5260D225DF6BA1675' +
'1A9AAAF549B79A1ABDF3C63FE57ADD67CB354CA639575A8AD561B' +
'A588B2D0E2F189A578008C0E66BD06D7CED652AA676DD1257C82C' +
'53A5373211C1E033C4EFCEBEE7FEB83EDC1F59A0BE6BAC16F6E2F' +
'431FAA3A7BEBC5E3692354BA9010E57340DBC39160ADE4B7B095D' +
'2D7E960378DB18739F1C6B77F52F51D78CED94D802947B4258739' +
'7546D65B1DEE04193AE2C493392EEDD7B02F182F8E2BB12F7CE74' +
'CD5DA54923B4E8C3DA0ADF53CD0543CA7014547B5C3B66BD4305E' +
'A311D5556C639C2D9E7E64ABBF0D10BE37784ECF497ACC2A55F97' +
'C48EF359088F00DA739A5053030D22F3089B1071B219D548EE59D' +
'D53E3CD13576947AB1FAFE8FB38E63B3748D4FD5422A87545B2D6' +
'807A21C10F58E253BC108CB38CFB3568F16EEE3CCA7C9169F53CA' +
'682326DFCFE63B3E7B3891F37416E63ECF23980318336B1EE12F8' +
'0AE901A1095D29827DA3E4FF5AAFA9DD65A4EA7F435575BCF5083' +
'F4CB9FE4DC4FA024567C0E81BDB343D87A03BCE67C9C0F74256F8' +
'12E174FF4E5E3F9F8E58127CB63765F56C6C5BE52E4CF03C4CF27' +
'438CF84BFCF7CC203DE7003E304B19823D87437B74688583FBBE7' +
'0557C2C15B0C96366B4699233245F16EA4EA8B4977125E9B7491B' +
'CF72BA62658C5564FB1A698C5D5A27726EC06412D4916EDDC7DB4' +
'22807F03CC45AF6153DA53774BD58FDF739B75FC98C0DB154F966' +
'A9C8EE94498AC5566672D765FEDA2B8A86B4A01630095DC67B708' +
'C61628C55500456422CB9800704C3B936C69D6536E8353C2AA7F0' +
'85AE0C6DAC67E732C2D94DCC346D26BBBE70454B5821615F74C6D' +
'3C23365EE44E641248C6FCCE20FC1F0941E23D81CFA2AF0B9C79A' +
'41338F6921D90036DEA042A779E08A4FD6BEEA422C9FDC4EF815E' +
'7E5999EB80296C0688E63A1889F47CF0D6F0C44850351438F4777' +
'EE65A2F30C678D1D966F7A500930228CB16FDDE118E342327BEF2' +
'2E122EF50CE344F95706CD246E0B907FD6C449B3CDE90A613FA64' +
'5A69C55EE35DA876D15746014DE6F78A1AAE58F51E393E736EFE9' +
'6F7CB5F65B6EFDC6C7BC028968A88554BA54C4F582E3861ACE7B6' +
'ABA751AD6932C62823CAA2BF13728E36CA888837739C3A9B276C1' +
'0062A58E208A0D1E7B4071934E6369E715B70170D6872AB01BAD8' +
'7A88E86C1AFFC09559569158F23799CF2DF32072F6AE5215304CF' +
'027FCD8CD881EFD0073A2D7382EDF0A769DE1AAE1E6EC1BAE8ACC' +
'29470A54462F3A72349817F838D8687A34B4B59C05E144B119E32' +
'AD288352EB96580A9247EB61901C07A7E31505E388084596903D6' +
'324167CBC655857B570BACAD173B7988CEBA859FCBFE9302508B4' +
'F4157929FC4357628CDB1909F5C1C1713F00CB0E0176027636F85' +
'F6CAD42CBE29EC18FCABCCCF2BEF77B1FD70C3587B72B3852BF5A' +
'DFA0465E99205524B150242B070D9520CAEC8E8868CC20996EC09' +
'BF7540637B3A7AF50532AABDDAA36ADB61CC81A53C10FC680BF4E' +
'23BD36296D13738EB420E2CB747A8ECBC47D0183D7135CCB17145' +
'991F32D769E92F654E36023E2E3C6A805381C38187145845C133C' +
'6072C414BFAD57BA965DB2607B3E6533320304F7B254FDEB349AF' +
'7700A5FF2C76404069111D4458B5E6621D954A8B996F60EC53BF0' +
'38D136205FB7FCA18BDBC4310AE18E8DD8C93D6287B0403EC36C3' +
'CB57C76C5FF759BC433A0101CCC884F8E0895B39166E115223446' +
'E3DD9F942579A70365533397367CF3E73BC57A64232AE6BDDE48E' +
'AE7E63566DE7A9F4AFF4999A95EA79CE6183897631AB7EF60C620' +
'A2FE3882B44D5CA2B72FAA1C0E11BE0CE06D7C587380DBC1B3000' +
'82CE5FCA678BC0EFD2E8DCE1FE0F99EBC3766265DBAB12C07B26F' +
'F77F13704DFB5209C379FDD824BDB23511E40B2853F42C790336C' +
'7A2F3724C3728270B4377EC5271B8CAE71623153069DE66BF6174' +
'EF2111C88E7915C465B1DAC35DED64162F0DF68E1858125C4250C' +
'7B03EC1F26B5C3182366C0303CE60CB666FA8F7E959D8AD7132E0' +
'78E2A5C34FC18B7E8731A239A0E6632CB712AD35339EB2C5CB143' +
'C8E358E8F2885F882E7B65CC76A6B7DCF23F6EE7962F8F5936BAD' +
'4763D3D63DDCC4A73DA92515919B98428A9BE8D9A21171145F4E1' +
'771D78BE746149BB1CD6756987B64B53AAC17F817B105801333BD' +
'4BE291B4100BEE5168BC9C57160B0570DF3F5C21551AD9E17BE29' +
'A8CC834464EB3DA1D2D0F4F52A509E8D25E9B1C3C7E227CC5C3C6' +
'2905AAC9DE7DB48417365BCB09A13B0157B3541F5D3C6BF3D7A83' +
'A44CC68FAB45505732821258790F4A559C873D2A2E78C932C1D69' +
'61EE0F9802BD341DAA281D7C1CFE7032D32AEB9992A5BFAB80747' +
'4A78F736B50D938C8D791157B6948229F005618FDD0AC703A7D84' +
'F385DAE98E900A2829770B0A184223CB00F09BCC767B4C9376967' +
'0AA5A652F12CF0B1B0B8F785AE7B1E6C5BAD8BB18BDFD4ACACE4E' +
'834B703238D3879C7DD03CC4ABD9ED858F52C30073B8687078A10' +
'148483F0DD20F418D2625A0E7B59BCDAC433A6D636B395167FB8E' +
'7355878B200E26A045779E32A37E3AFB8806DD7084870757C812B' +
'B5B1D2177416EFD24157D19AF6969FAA98E4F9B045E063E03C8BA' +
'B903156F5A72EBB70457618796D06B8023B8598C1244A736198D2' +
'7CECB954F098036D6F0DA19785A502A16060C2176F164E6080988' +
'F5E5FDCF5B81838199D7BC541F1E10EA8432020F7F68E2B61806A' +
'A565BC6BECCE3BB3DFBCDA01F1C21758FF1B7E1C52B071A14B6D9' +
'7FA38C5CF2DBFBA224A65ECEA493506947C3874AD5FA648E2D653' +
'3939F3103006061A31628EEE58B3E4E7015E0DB3E7A72BD3C0BA9' +
'6D3307EB20734E08AB2E1AACB4878F0B21EF0AD50EF58A1E4D773' +
'20DFE46A36B457C0EADD5E792391A666128CDA4FCD1D2DABC89D6' +
'5E7C34292DDC1CC33F610A6D1D16FDB7E5071E50DD9FD9B6506A2' +
'105B59F5F85E3D8B8BAFD00ECEBF3493ABF14C369959632A982F9' +
'3E0C1F319F045A87B47B80A7B900C88D54C06DE072C1A3A9CC1AC' +
'6834EC2561E54B4B5F88A52A99840EF9803DFECABCD30F1E49631' +
'3B5547D7687B153B10E89492F5C451BEA6B66A7C960CED05FC98F' +
'39C901E684C8C208535DAC752110415306401C537798C743187ED' +
'B31E37D6559AD99F23459E3D015285D35D85CC5C9A80DAC967884' +
'9599B96B81350153C98476871623D8ABF893E94137CE9DDB247EA' +
'EA85CD1151A83A859C215110B6F41CC65A2E02ADC7125D6C3FB2A' +
'F17E12E66331F6FC8CA64D23A224CA8635047AD546B51698AC948' +
'CE512AB7187C39423269F19FDA62B9782BEA2D50CD8102BED354F' +
'156A083FE3399FFF64108AC26816CC12F4224C8B4810FA9E1B70F' +
'5F4086281D5BFAFA841589670CB2CAD85DDB6889AA965D23AB8B2' +
'DA4D386111E02BC0DBAE5C87B08EAEDAF4C8454F03D379F94458A' +
'FA64C55903C76A4696D56B68388B25F1165F4F010163C3F3385DB' +
'98E3CAB05A0E6CCADE70A519862A39AB228C9D6B7F9AEB9615B7D' +
'D7B811D3AA7B9B204CAC01F5EDB1846DDD5C2F695D396012E01BA' +
'E10317D6FCE53B120902B9FA852E613E88CDC78D0F7BC1150CFC0' +
'357980A7BC53BCC4D1589A6990F4CE0DE127B3653D3F67A8228FC' +
'15FDE0D11077493EBC2134D9C8008E6A00C8807F3C0F3EF78AF73' +
'9534D730BD263D1AC05B4D83DB3F78A61176095B9AE877179446C' +
'878783C89705B67CCDD05DF692B30286FB11494260CEEB928CAC1' +
'184A5358C17C64697DAAEB1BCFF94F8F4145BAA1EE4545BBA3269' +
'AAAD02AB962BF95748F38A64E1F7E03FD8536C378B91369642B08' +
'BF95F7921F85350AE5B3E9C94B3274C2F085123890DE05A30D4F0' +
'86F0ED6056EE0D575970E5AE48F003574E75767142C458C0D5DD5' +
'E19036A06A631A08C90F190A52FD03E3881B45E4CF85852242C39' +
'E07DD01C255D3664E12A407B8D0987350BB9C061807152162D1C8' +
'F9FAFAC05DABE2D7F15AF675B3ADA4294AFB0680D1EE96056A35D' +
'91513A4C29E0399666A91C7059377B65F6DC31AFCB19A48E02556' +
'A13561654B9A270636DD74F647E1F4CCFC36CA5EE5285840D7075' +
'86D342056FF31B36A3239EC9F1EA8E95BCE78C27D12C7BE576561' +
'64533FC2A01618F772B8D2F1F2FEE0A27ED045775CF2C744B5725' +
'E4C94611B5745FC6185334978E04C45150D5510CE29F5CCBA8C38' +
'048511A1DDCE877719511B337F18346738C4069A66EBA73E718B3' +
'19989A136A9DA1D6695A90DD3E6B28E6BCF9534B8327F854BB67C' +
'0DB8FEF70F5C67980B3A54780F4CE80A986AA3C853B29A2D4EBA9' +
'8D424003B77C9730884D77A02E96510A5E1544B620F6ACB7A86A8' +
'8553C65A56065846667224B39C042D1E81217F2CC805A89D5FAF6' +
'967C692351C74D829C81AB06B23B6DDFB8A2E6EAAA84E696A7227' +
'9D964D523CD1E885EAF4CA068F7F27A772B9D2A7EE233E0B966C7' +
'1A109513E38D7021C3A478C3333A571FAACC599F2CFA2E9204C50' +
'5C3BB70E59C8FBED9EC38CE72420AE86D086766340844D98DABF6' +
'4B7ED008B38A6B74120F82B7EFA9C2DB32590ECF080F88307BC2D' +
'482C04F902EF88F9B37F74B7A62B5F0F25EFCE07CF3839E4CEEFE' +
'8FF4883F802F9E1A3568D6E2539E6AA3C0AF1C0285D3B3EF9B8D6' +
'2DCC5ED04968BDDB0B788DDE0044782CFED3BAA0AF09E5DF4F758' +
'6B07C287772E17BE7B614991ACBD6B74A0B642E205F58C8B65959' +
'010DD770CDA835F25AEC0E03DE24BC2D038B5429CD995D9905E5A' +
'1BE4612AAB95FDD3B14BD4535D811DCE95ABD7B0004090C9265DE' +
'3858B35474ED9C878119836F0AB7AE14AD73B9654155177AD1186' +
'169890DEB30CD3366B4AD08D960BD004FB0CA40FDFA1361B57CAD' +
'BFB8E1C6537D4E2ED30BDF91A3518B7C8996B6D081F316AF141C9' +
'DFD608267E795610E9097F631B77D4205033B0578837B6F49AACD' +
'9213A596B3A8AAB276F872F00AEDC33A7B4EC1BF7942C2F534A31' +
'4FC6FED33D241E841FAEA0422C0E44BA4487F8B05AD70557F3910' +
'532622BCC5D8F982CFF3A970E005A89C8980DC56805518EC9949D' +
'8D443089298A5CA8077DC48BD869C266748E9E7AE95A1D0323657' +
'EEF9008D4ED2CCDB1F548665C910CA3908EF8D55BD1BCC022945A' +
'8BB1191A141DD42981F75EE370D4258F3F2FC2CF319BCA0C11327' +
'6B2F43061AEC8A2D73BC4EE4686AA26D340730ABC4D77155E8738' +
'1C803F68A059F9AB2BCF3024CF5024CFE067D73D63B7DECD5A355' +
'62F26D6A36418EA72C5B907EC2EF000B9D4023F7DD401FE174234' +
'765B7BE8A7BDFC8BFA53D10EB52D0F5C3922F8812BD5268DA0358' +
'A9495B8EF50A41BF35C35D1033A0EE0CEA08335E4E4532D19768C' +
'B94A5F3B43EA3C8A6DE6B8FB41E891AC2D2E0EA3964A72B9BF1B0' +
'FBA6C0D249381ABD1F03A838BCB30F60F5CC9EE1A5D7959118D07' +
'D3005DB49BA5E9FC828DD35209775AEC513CBE627BE9386C563C4' +
'A30658462A136F4F867AF05F00535B1087383E9A0A0BF91BF3211' +
'01FEC8C3432C65C6C97C22024D0F5C410D80AB00AE75E1AA485EF' +
'4DC2BCE92B7D73DB7F564BEE5F21DCC6EAE7564DD19A26B822287' +
'6BB11C9A8977061E1AD403EC1C31553933B437B979CB416906DB2' +
'DAE226C33BDD2AB10DCC1FD9ECC453E30A3FABBD894B09A74BE16' +
'9098BBF1088C0D7796560BFA9293B30D5CD9234C453BAACB29782' +
'EA4611A5A2981DA1E02D4BFCE109996366EE30A8E826905AEDDA8' +
'F580C77197DF79EC10C0EF108C20CE6F16AEE72C058EA01508C1C' +
'5DC7207AD8040D1D759E14C3A9C6674A308AEC203579E310530CC' +
'2CC12D9F6920C9E3B1262E7B7EF28A44CE579CAB6BDF8FCC7C34D' +
'019E190A360E082283F302F7E8C99C173E057405C5CFA59461408' +
'1C11F63503A57865F7137B75ADE31859C7717BCF95EEE8AE19F41' +
'DBC24ED55517AAE2172BE2232B16062CD2E5EC764424C03A38539' +
'396A296FBE2CB8535784114FE077BA9304CC70DEF2AB0090E6BE1' +
'EB8D2F84BB3A992398F06B67AE50C7C86170E405406A28A732D90' +
'3CC1B573B10456353AF8B010694A47729895941CB7A7208077F04' +
'DA0D076DC6699117A5DFBA964AE75F54739D5035798FCE9E19011' +
'11212891BDF550195F92EFDC5E1CF03EF50867B7DB5EC5515B8EF' +
'EB9E22C285AABA58A5ECD677EE77317A23ED0B5F8A47E73C0F94E' +
'208A1FAC37405405A21A1075D63F5C434F40666E3FE157D7BAB3D' +
'B7B4475A7FD8DBDBB8607A57BB65CF9A466CC145DC2467EF29EB2' +
'F2AECC3F2F4B2538D199F2C5871D571E865B864F1BC7636D65314' +
'9D162CD2400576DE30ABA19A1C6DCA40AE79EA04BDC016E611A2C' +
'E831E2175A04B852CC56C6BCE15B8D6BAF195068130635827DBDF' +
'257B2CF73ADDB0E9971596F92F5D07E8F2B13082F781A624DE0AA' +
'2370B27001B0C1D504F019D828049DB58096C1CCC636B8E8D6A9B' +
'4B1CE879550DFB7569D74BD091EEF6DED150CFCB22D11CA70C42F' +
'D0A5B994F6FA4BD010974DCDBE00CF06E406CC09618A7F315E921' +
'2C9F333DB9C57464598BC8E5DF25797DDB0B271FF848B96253FD8' +
'85DA3CDC23ACC4981B57BA4A186E59F7BE5609D7C9088430B35C5' +
'E9B5985952D51EFA0DC43ED4F394B82ED62CEBF69F658727DB180' +
'5C9922966DC51DCAA9542B357A32C9EC5C25177EC07CA63DC703A' +
'B2BFEBAE590EF194EE08AA90FCCA9ACF322E8A926818555504884' +
'100843F137B316E81730C3EC46A5058C45778CC0813B30B20B57D' +
'59474590FC5B3ACBBAD9520E5E79B1B47E77FCA4C1081C1CCC09A' +
'3428293947B26F5E5EECE1D21A61E38F5D88E340241719AB5C781' +
'1E468FEE4135DBA9763BFE169CFDA194037CF956E80FFDC712859' +
'BCE6638BF25E8DCB344E51D611CED7CA371405306B3183E243921' +
'43A9816FC1FDE1F781A8804DF76B6AFB312E6E50D796EA8416946' +
'350E9423DD7479ED78596C567268BA8B6C65423466BCEDA9937CC' +
'817769E9B177636D81E921AB0207765B8321EF92B8DE83587AC19' +
'AA78001CDB5E5907D767E1778E02530024CDCCCC20C29F5E6101F' +
'040F48B39A58B26A7AC882F3BD3C9F87D8609B9EF79965D646B7D' +
'7CE5A36ED97BE1D2EECFFC08DE1354A0F6D8FBD819FB7A58CD14A' +
'93DD4D1719BD9CD5215076F6BA1C7B058C38F2B2270E1E907155D' +
'2B231A18A25E2BF236E3E581A9E9034CE33DBF21793344F72B4E1' +
'158695E71ED0AB8E7AFA2CB913EA1D03A3049DA4FC8B6AFFC95E0' +
'6AEF432EB75D5869AF15CAE92730BE34A164F865B8F6C231C70E2' +
'B9D769E59B9B4305BCD1BDCA2A74BEB25BAB9672F3147FDA8774B' +
'E5034C0C0233304C83482DF6C72E1DF50BF7953EE8D11D5730536' +
'050A19ED52744F2F0FEA36758E93A1CF75CF1B05D67E62B618C78' +
'BF46FB6CAB9E8DE23EF369CBC54D14ED6B35E4237B5F5CAEF21DF' +
'0677C069061ECB9834EB2FD6B4F8E4A4379B83C67A1289BC3F482' +
'D7ADF3214F41D48AF5A497EC52DF1A077F00BA9F48B58B711E944' +
'268C0C246A7577BA04BE403DED2B6C58323305CDE8C4C2A39B3FD' +
'2082613873CDE1E80A88EE91532B2D79B33B8FE501BBE8110F416' +
'961AFE09EC0199975BF70956FBB46DB3ED1AF3987CB6A713717A9' +
'1F0090F33811153A7BCD63F3341788728E4373801AA329DE968FD' +
'35515F55FAA89E24772CEC7332E4628351DDED51530A2C37B6002' +
'38EE8F15DEFB4A9FB61093BFD981117866902B8588081B5D39910' +
'1C60C1B056C71B48F536CF67936444F26EE5321F5FBECFD7DEE16' +
'DED49AC92CA81C341E59FBCD3ED6742A8F852CFB0FCD8AD7DCA15' +
'F3046FC2A3CB3E57E5A1F7D09A08C673D3CA6141C49BEB5B08A50' +
'1421D2BCDE70E51F244B7CDF77CD2557040CDDB964AEDD6ED16D2' +
'CA946E80C2ADF105D7EF08DD3C1DE4169113E23343B21E1DA92F0' +
'766A2EED957DDBE59E776CA867D835A3A53BFD66391958BC9FF3D' +
'21145990EC4B9F5D25FCDFDEA4FD4D7EBBBDDB1B4CF2F741B9377' +
'B03539F908E958EE85AB2EA6EEE0C0D15C690CDA076ED3BD62EDB' +
'BE44382490697E3CE2D66015BC10CC052D0928F045C79C155BA8D' +
'31DD4E4732B53224D454F9CB5C00D8425839D7EA7315C96A27D74' +
'F645C1A41482E318611D2CE289EAE8396DE7250707807AC8EC990' +
'BACBB67EB5D3F5F10FF77B45B05C44B32586048B062A09DA8BB89' +
'F9B53CDBCD6E583E7DEC8BB7C4A27AD50AEB8F711C11584EA98CF' +
'5EAB6FD122A4523FA2F1C2C5377696ECC1378AE3E2A24D03748FE' +
'188C7F7C3008500AE1AFDE1345F9CF69ADF9C4BB5151803A1EC33' +
'D688081DD61BF2997FC631D83102B4B5F0E62D935CA0056746545' +
'E4341F4C4A826E19D43F53EA69F4ADE53F261E65278DCB3804E31' +
'75649BEB5C0B060126AF145CBDCEDE5E9699564BA2E08E486E646' +
'E1D34E9F80FFE31DD041048284085DF2CF4200E6105537D509F78' +
'F81A61F67C80783D42AE16003F04B9406931C5C1BF43556287958' +
'4F2306401EFB5F879AAED3732B44C60C56C61D9DB9F8D42779316' +
'AA2A4F5AC31B710DA193F3B4418B956FB89A6F56EB3A473FF6397' +
'AA8B29CDD18937B21DBB488D0231C7E046D1A605F3924D9D17D5A' +
'28A09D5C56B3032DA8B173267A0B1271069E373FD2008A6225A22' +
'029387D489747B4CA04EB202A7CE6DED0500CD8912BE748D1F833' +
'221CB3C9C1DBE151B063969B95AAE389D181A182B1A45A8950384' +
'01061BC1F7D137005FF0F3F28E37DEC6654ABA5FBB43527ACE842' +
'1C36E091632A95272431D760CADC8F6B117EF86C23B16E6DE0B17' +
'944EDF8ECD08A043CDC69281E6604DF992E51E07A6236F090BBCD' +
'B2FF264BFC5642077DAA8744A6B0A81D534ECE07C861C6F224F5C' +
'C46F2242088A553BD2119D97D9599EF9825C2F7D892462919561A' +
'41AD3731D86210EDD9680A1D95C114200C6F06FE0072835186CE1' +
'A4C65E56221BE74E25BE74FE3D9618C25DBA7A82819D81798DA86' +
'08EE68B2F621B85239C3197F7946B5DD6E92B10F74F1A02DA2544' +
'452E0E588D02702C19A79427B24F063E81C245530C4C6FD921854' +
'6E4C83E5EC99628DDCE89943C0BBA005A7CE5C696872E9C609158' +
'4EBC4EF33427D5BC0DBBB81C13A7B6F166FC0C39B831332C89AB8' +
'EB127A8F6FB84C3E3610E8207E04A20ABC286C1D6D38C81C30D24' +
'F700658621DEF9737069C6FF7E478A02B7470343A68CE1A73F61D' +
'EF4E2B8D7971CD2380C25CE701EB8A570D508BC2458E86A881572' +
'4E48858139613ECB330B5C503C6F809DE36D20E17395954781501' +
'3811C69818CA83CF306687471EF0E1153C1E7F0D90E1FB013CA91' +
'52AA129A5F3EC05EC307E2F5C19DF078BABDCD3863898E9466032' +
'4AE4928137CC0D348EE9E90CABD8E1BFE410664EF476DC0ADACE0' +
'2FE89A81F169D8757806A39D55E2C220BD80E98C749C20F96E2A2' +
'E371CB84401D98E7A24D82E5E5FBCFA79C7FFB9E22A88DA0EBE40' +
'618CCF8C911C8847ACE35DE16EE2871774E8FD449101E48C741DA' +
'15EF5945FE039ECE43E601239D3591925566C1612DC0CC5D67C44' +
'DEECB6DE169F040CE845ED2B66A7E2036A6031A9C0625CF680D83' +
'6B94DF4982596B63D49981AAD981122E680DFE53C55E7DDEEBE53' +
'7BA74BF106C243E1BA00BC8AC3C8D75C28271A33D2C2038C0D978' +
'4C38025D2D39CE34E60BEF819F18FCBC490ED6E07D6C264BF4993' +
'E3DE421880242F82DF07B88AC8BDB1B927041B43E1BE331D0607C' +
'8E8DD990B32170C43707A21DBC7E270B32BC66A0715CB014F0EEB' +
'6F164B5C1974EFC9C67311049510F0B8F3521D8C2DC3B68AB559D' +
'C5143075140A70458B086B493B9940BA267D127E3EA1318518056' +
'841C5804CF861B4F0C5B09988D3399995FB5F81A7067685B9425C' +
'8DB9E29ED109D99A9FDE82F579AF1AF7B4713F33F3166E9A8E785' +
'E2CC9C9BDCEB0E7927BEEA4EE40888C82B68A2C30667203208B73' +
'5F88216EA5826D43D4763092C21B625AA0BF8822F196F7CC40963' +
'D63D06948EFECFCEF04D4F18C80659CD978609863C4BF40156607' +
'233578C23998B1C35FC988ECB7B7C6CDDB7D80B4CF1EA389B0C92' +
'737A8741E841C5C4F80A7E7FA2EAF9A39E06F3ACF30AC963FCF06' +
'31BD8D300DB6123FCCA52A8ABC6CEFE0486109A035517D07B3D98' +
'8A41CC655F0B6D476B60DB3CDBBBA8063B21648C3309B8B76768F' +
'EF5BF9BEC6F52A19D08069C9D706F5B1726E201320083D825D57E' +
'825A40E7B0B4B88BE612719AB175E6581EF7B48B9C24AC0F46232' +
'21417C9F2742A051CB5A66B44EF5175E3400992A6D5878C858E50' +
'CEB39E696F3AFDCB1F67E0F2475DC71F4687597A08304F0B576CA' +
'1B5246D0D54E8E70F62ABA06335B693107C69B1805E39D3C50D4B' +
'861035821E6FDF2D1999BE357043786EE9DF6DCE92AB982C08406' +
'640CC7870F947283B48D6289D262B66A30FF59465C968A1E70DCC' +
'63BBE195DDAA3CB5CA062461BEC64308E721C2EB892F70141199A' +
'209F13FE045E1D5C3181DF4C10E9CE153F132B379F1247982346E' +
'B9DB908220973318E355EDF61A3F0A6DCBF8BF112EB125F9421B7' +
'248805A02DC04F2193B6BEC9119E4B3EE08F93BF67CB2570A3FAC' +
'83CCF60EE4E4E4E36DED444B63997E636CC14D1EAF014DB856BE2' +
'73D3BC31F05689D146CCC97C491B802504C84B73311A596B1E784' +
'B10025919ACA2BFF387B87AE35D5F6A7A91B3D2CCDBEB18795882' +
'7E76729C121DE8EC9FD02F66FDCB6AC37A1F9DFD388851FE8E7F5' +
'7044B55F65AB4DB4A5395BE8AC8306DC9ABCCF13CBC813E874F6D' +
'3203F33ED22FC7FBF57DBCD28B642F222C13682262FC82E8C4C06' +
'1F20A080712C5A50F50447CBE5AC40FF87927DC10F079A77BDB41' +
'B260CADAD217D56B7D679D0BB5A58A7CF120AAEFAA051C81ECECA' +
'D4B264FC95C6DBDC9278B7C884C227032178EFFF6AB77B6FA263A' +
'47F0B59C4599356DC1688575F4D164A69270097CBB6759AD80C5A' +
'006630C2A73D5DC4BCEE31B39FFF14DD44B1A3A521DBBF264E2E5' +
'5C6D5F6DDD2DE42AF21C22CFCFD99FCF76CBFCEACBAC273CDB2ED' +
'6693FEDD747AA6F22BBF08CA9FCC0BB817C8ECC6BB71876DB579B' +
'A51DC09ED136319F67C0DB0F897CA7ABF2340B3EC2B351DF8CF78' +
'FE7627EA11D4FF97CCEC2DB8C6CACBECD9AB459AC6212ECC5A505' +
'73CF23BDF0F773F7B77D21EACA32D9E38C07DAB25AA2E8D97EFEB' +
'C483B0DEFD930E06213B4DC87CC9B77AEBC25030CD934FE57E6FF' +
'5388B20636C73D10F51D7EE473E8DF7CE78EAE3386D040A55E3B1' +
'B23A2D6FC57F2FF138872261AFF05A27E882BFDADA2EB81B11BAE' +
'12F7A5CDB5F0CBBD8F51DBBFE8FAFF39A2B229267E8BA85FC755B' +
'AA1EBE613AB8B799D82377F11F53F842B7FA463F9BE6B3B896CC4' +
'FB318FFAE05A0B57F6F67DF9660DB184F91757FF9BE8DAE73EB69' +
'F7AA04E70F205EABEB15A0F5CA5D8D74D397F71F53FD4EA2C7F32' +
'9F4FD471E3A55DED1D639FEDDDCAD51A473CFEE2EA7F195D9F337' +
'E47DDAF20EA8E2BE5EDB5C7739D085F2855C4FE95F95F5F79DF30' +
'12AC6FBEADD6FBE96740C8877F997577DC07887F67C821471B00C' +
'AE8C3089DD7C28469AB4D36FDCD36FC45D46B4F2C3736DDB07447' +
'D42FE3EA6FB6E12FA2F6CEF3205BF7BE46D1BD55447DE2EA86AEB' +
'F2CEB7F134B0F4479E38CFB44D1AFF02B6DCD6B8FB6F96BA9FE66' +
'1B80276BECDD0A7D878D9FB49FB98BBF88FA5FF3778A256550375' +
'FF61D96EEF1E38FDBCFEFFF95FCFF04A20CF7C32C44DDB1F48DE7' +
'FA5D6CFCC5D2FF1CA2A4E293224AD9F58FADD35FE9FD6D7FCCC9A' +
'50EC55888FA88D4FE7AAEBFED6F60E903517F23B5BFED3F5A4D6E' +
'47658D1D975DD64CD45F7FF7B7FD4344D58377B147C724D40F11F' +
'5D7DFFD6DBF3D4F216704F48402D0927853949D4054750ED89A2E' +
'B92A4BC61EB68B7892165872ADBC9DF6FAAC6BFC5D8DE3F947558' +
'FFF0FA5F4FFE03BCFAFCEE07C790AEFC7F3F283BFFA41DB6E1539' +
'EF6DDD3588E56E1CB9EF24BB6A4FD8A7E1ACEBDEBBECB516E590D' +
'BA2F4CE28CB3B125ADB153FC3ADC26CBA9D54FDAEBAF177ED4FC7' +
'F22B92F9299E7F2CC9F6F6CE3A8AEFDADFAFDAFC6F61E9476F7EB' +
'D61FE68CB37F3F239D2FB5FA5DBFC862FDBF168FDED2EB8C9DA35' +
'92DF6C47B7C6B38CB15CF667781239D8435B208AE7F2F53686ABC' +
'26CDB55B3AFBAC6C7AE367B55377EF5FBF9263FC3E7EFCAE4C778' +
'FEFCAB97DCEE32D151E8FD006B5CAB3D3FC6F85BB59BFF61FBD52' +
'9D4D728C2BEB7E11A85B9559AB66FF5A6BF6A3FFEF60B09BCB73A' +
'FB5AC540EF52B8EEEB90FB94FA31C33AED2EE7DCE5567C6323EFC' +
'6E72DB63DAC5B79B5628BDEBFA4777CE97D327A23F4B3AEF107EA' +
'3EDEE7BB59FB3599B8DBCF3FBFF39D667DE267DE649244267EDF6' +
'4A2A3BBC6686E238D7BA4CF5AE161CFF50D63FF105D3FBA9F618D' +
'65DD92D1F73D3F3ABF3AA2CB1AD4DBBCDCDBBADBFB5F29362E697' +
'CD7BA2D199592DEB2AB38919BF79ACBA3677BF23A4D670FEFF1D3' +
'1CFA555BF6AA309BA4C26C43EBEBB9EBCC5E78EB5FCEC2F30DDDA' +
'EE17EB5AFEF5C72481F32296F12B8DAF2CD77FA0F35ABDCA46777' +
'D56FAD47139ABF64A237E3EDD67C8C77EC51E83B7C551FBCFC637' +
'4DDEFC22AAF9BD6D66D5163DF74A792BCE677EC595E1640C6A835' +
'58EFFAB27E22BFBDBE5F658C658FF4D9968FDFC697C4EA442BB53' +
'8574DEAB3F0BA0B936A3FD1265E65C89A2CAB1DC5CEA1F5D0F1CD' +
'36A1EDD5CCA6D55BF4D6BEF564AD737D49BEDCEC9BBE49DAF5B5A' +
'F6FC66FBEAF6D7B21F62E99871C6ED25BA8B6BB3AFC179A254FD0' +
'276BEF8A1CADCBAC1A749413A393DBF8773BA582B3955127D1ACB' +
'9C77B612CDCEA839B6FD035FFC8037E7D0B965ACE0B4B2FBD58BA' +
'206F78B5E79B8E3CB446BEA335A9C56EB40C3FD5790DD2BA2DEAD' +
'162F659A14D2DCC85225EAD658B1B4DEE9B9A7A3B680C2CA01ABD' +
'6771028749485A9D73B5DEB1B87B72256667AD857B74D64B1B193' +
'D5AF07E3CC224AB77F62EA4E9DB1A7C0E78C3134228C1279EB4B1' +
'6833DBD2781DD57AB7EB6FDBEDF3F59337F92C39F4DD5EB3FC8EE' +
'D9F6956BA50D45BE1C5853976E895F167F652B539699B5B3CAAC5' +
'6FA17BF826E74EB1A76FAECF54842B92D5365EB62B5D4CEF0FACD' +
'678BBC9F6BA792C5D8882247951BBC5A47E715F22184D7029D9C0' +
'B2714F4D19624FC6B62A394322AE59446E3FA9A3614CB111B8AB3' +
'341F865B288BA0FF6F8CFFEC12C8C64D59AC9DDAA49AB1BFFE496' +
'C5669BF76A0FE51E4BE70EEBAE1AACF88C08350395E55409A8CD8' +
'416D4E414DB1EF2F3403D2F86066E5D0AA26B63A3F44DB31415AA' +
'590EBFF0ACDE739D84FDB59B210FE8574E6738CBB1F079559F1F9' +
'B6D5E9EF1D36AFD2EAEEAE6878A58B1C0186F4DE63766E7F42DBB' +
'5E739A10748E684B0ED27A98D16ED355C98265B38C935AC3A7543' +
'A0E5259C04BBB6E4C2D9185431B2CD8B86E3E67D28A35084E2936' +
'DCA090671A2CFCC9BACABC7FD11BA9A750A43E5D4F25795378A7A' +
'BD14A0D5DEF7386B10184B476C94DDABC4FD5CD8A599BF5DCD572' +
'4F3C877DC57B5FAC1F64AEBA5D08ADFA69596035FFA0322FEF37B' +
'47EDF77FD53C40EEF1487AA59F0E961F65CE351BFFA3EA4C88B9A' +
'11E42579435EB99E5C944A0D5DA4FAD5DDF219DFB07828D7C0D42' +
'AAACF55BEF75177FE37B2D6CF9B12EDEB064E3201874E6F15AF2A' +
'26A79CAEB00A46294D5AB8831AD6DE8043AB09341B69F52C40717' +
'487BF313036A9BA1B3678A126ACB6D4816DABD22E2FB52D726BFD' +
'75F7B5753D45B9F9DFDCA4C72A09B57669B3BC0FEB42F2527D56B' +
'04DBBEA286B7F6B6D4AAD790A753CE6AA342A353AF5F3E3C6785E' +
'699580817D4F32E6654AED5438B6B3B2DC33475DA5FAF6750379E' +
'EBC36FD55AFCA1C22190B3CF7AB8E1FC28A1959410C33B9E55902' +
'715E3CCBD879ABB51AB54EFDBA83BDC28BF3062D007DE41430FF8' +
'F4A31447B99E7AC55DFD09E19B2963AD1148954EFD55AD55A2154' +
'2A38E491F9DE276C9CD9E84AC1E84DC572CB3D7D62DCF1DA5577F' +
'EB758D617B8BAEEDC063F8C09BCC2BC2C0CE6E59C3965797F2FB3' +
'794ADBA59071BE6A96991E7CAB1C55CB2CC02DF721A75D9DAA79A' +
'DC07EACCAC232FB03040136FD7CD9F4755B292FB8BAD552B749B0' +
'9464EE1451FE842687AB12B4568AD41AA38A22AD31DA1AEBCC4AB' +
'582557987B7D0BF5738CD2C290DDBD2F7FDDBC34699356DD9BB27' +
'EB824DE8BBBEE788AFBA8DBC042D9F36F3D6F796AEFBEA27AB556' +
'DDB789AB22B3823865D35BB595B61EE55CE744C18F800EF8969C7' +
'10A669973D2462A395F769F23E55E45044AA59AADE680DD6B66A2' +
'96AB559C401C7D4BA3C5A4384ABF2BB5A222B0A05183D2FB7179A' +
'7583F4C58E2E96357FCB0F7E832BE596C288DC5B9DCA940E564E4' +
'FCB56F0A6AE54658FD3AEE46B7D0DBE9B14F30D155630500503EE' +
'5E59D81568B2DBB7D91FFED41A1C20F8FEAAD4204F30CB3AB1772' +
'F92C40B4DEF0C743FD21482B454AD4B524266CDC45AEC01CBCACA' +
'89AAAD5AC7103FDF55322DAFB6864C61FC6B4B681F8C853829875' +
'A2A994D933BAC5AD8156FF3554D9D779125A7F68A773DA6B92BE6' +
'C46B07BC78EABC2A86B382DEAAB07CAFDAE9127E115A8BF04D151' +
'6BBB71B7FF01B4BF893250D4AB597B340EA5A533B9EAC5C59F1C6' +
'70D45A6357AAF7AE7A5252CB2038BF350B9F0D4C5443380210B7B' +
'66F9BEC729FE19FE1EAC9AFCAAD1E139D3B6FD67DFA8BB347A736' +
'C7727EA35AAD2496FFB26FF1484F9ECF7BFC82567B0F5A7B4E350' +
'8B33F76F58D06CB86500D2FC3F25A76CC1CDCB86E2CE7EDFD264B' +
'BF63593CEAA695BA0FED9FF0F6001BC2FB80E1C189AEF4862B8EC' +
'E8A15EA329B436CD1834D2963544BA5B892367CF6C5FB895D121B' +
'85C967C543D5AC80C8F4BA8D3F2204C8B521A49B08675D2E66D7C' +
'518528DEBD2AC287260F95456DDF9AE46CFF0E5085A0560556991' +
'7A19C0E1A66B168A69D3AAACD41B6F410C3DC89D6C7655AE747F8' +
'0AB76BB3F9FBC5DB325121D6B4C173C888CBF5553D55AEA7D7124' +
'707499EB9CB3D8F9F65133AE88D7BBEA800BA28007276B2F79570' +
'BCA3602C5D6B33241F66D400179DDFBB65760F5A79FEA49BD8F5A' +
'51BDD69748B55A34DAE02027621B08AF608AF031886983318CD30' +
'CABE77AE3C18E8BADBC5B3AB0EE570A27EF7D8E8E05B44DBC7121' +
'D5880B5DAC7A2915361E631CDE2FEF7CA10B3C41ADF46DCF6A5C5' +
'589B57AB5FA26B12752C3F73A7E611CA453E16BC71940D592BBD5' +
'9F558D0E22F92A9AF5A809C505AC04537E7478E1C85ACFEB99520' +
'D645569B9D58879629EA48F456507EFCD3572D3DF71C3D5F8A3BC' +
'68FCA826A31573E48078CE1354DBD8CD575941C38A94A28C3109B' +
'A78437989979E82EB1C817E0AD210DE28F5525795B45010065EDE' +
'A41B18AA523CC338CC10142BF832825467BEE3EA1044798684366' +
'B353AADF6B2F7CC18DE6F660C2C6D3770A185453822DC5364AE07' +
'CF37C5E2F1B9B8C0BBD9998C62751E56154A2C2A054099D1591AD' +
'4AF7E796BA873CBFB8BEE08C77BD822CC464C537095A5054F38E1' +
'F31891ED1A437CE25CD184D465EB14C6AAFEB66B73402BD0DF391' +
'08CB3344D80665C2C57E29A062C250A1E92B75A997A571D82F657' +
'0750CECACADCD50314F1FCA55AD8C134CB5BEA59DF6854C84AEF0' +
'0E79DA3DC93C4BB4CFF1857F9AD9ACC55B33EC26A818D4CE86860' +
'25DA0B3388297823EFA1DECD4A0C32E1EB1BA27E4637911EDFB48' +
'76E0AA24A2BF6BD862C4BBB804C997E14B822DE0C0F7BE5EFF64A' +
'6A1D56B193C2D040AC58E9FBD0BA998FAB62C8DD2B939BD314CCD' +
'3E0B5EAACFA53BD5CEC0F13CBDAA68377B347BC600DD1A3C71E85' +
'B9C21B9E520B32ECD9ACE0751857507415F574627FAA78C0B0B83' +
'DF1A6114D936F26B1300B331941CF91574D67ADA02795AAB4C2CE' +
'C29E6519D8C222CA30B3DE8D18A2DDA55D943BAD8ADB522579C53' +
'BBB44E851F00DC699880011291E06DEC74F6323D1DDDC17D5EEE0' +
'0103540A23E68DCE39B5DA4A65ED0FA9B5C79BB979ADF3AA8333F' +
'E20DBF064594DB20DE7AA019D3B5C12AC165821987C0298EE3AE8' +
'276FA93ED42BEDE8061054FEB0EA906A1563A9A176AF78EE4E930' +
'288AC1B0D0C9B6C15B8E29DFC19FC0A913F4BA5BDECD5D1455BFB' +
'62FE8C7AAA66121EF5B30C6B22B2546F839CF195905892E8642D1' +
'AB8DA8C4720500AAC05D692E9556A5B1B20EA24E46365B1667CD3' +
'6D1FD74C12ADE98CE3A25AADA8F129D5CF6BB4A87E3089A5521E6' +
'8854B2F59A90F5AF1A96FF9AA7A66C3AB3A553CAD2FA1608A598C' +
'99C544E2C18BFCAFDC0B77E76B95B75537F0839B6DBB07D3ECA59' +
'A608CA630710F120EC93844780513D9615901B559187446ADECC0' +
'02330DD4B1CC9EC0F379F3F7555F29FE3EAE1EFB19AEAA97E7AEC' +
'42419B30E0D80D54AF08615333E3A1D50DAB52F036B0BAE5ABD8A' +
'25AD70A7359DB536A8208AEE688F3D239232083B73CB79787A250' +
'FF254A4A66DAA501520DB06EEB67AB268F2BAED0B6CD5FAAD2C85' +
'F27B4976D6292B27A6BA4835CFD610AE4C06E776F27D5E79B3013' +
'E99A4DF71F3F895D92DCB5BD06B62BC8FA0F2964953E693C44FD1' +
'ACF7C3AEFA8C9AE51016CD4A23B7FBB810A315C7F24B05C8EF11B' +
'8C23CE4E6D395A765710B3CC7F3395AF971D5B2E73389FF7A44D9' +
'D5FF6D36DB6673389847072A8F48334A3D1ADF99BAF7EDC414C25' +
'4B656B5CE85DE395FE436E470D5EFF8E3DD32F54B0E6F191BA233' +
'59A74B113E018CF7CACFB040C66135F7A8D512D7A8B5C21DF9216' +
'B1FB02A39FEE31A35C813229ADCDDD93C182EA23A782816502831' +
'C2BB8758589107017AF9C095667E8CC4024959964413FE2943B07' +
'50BB6CE3C4670168DF1FD0810D68EE51006843898DA9C0EAD9F08' +
'C5128839387C1EAFDC1DB45FFA32D2AFD36805613EDF81FE4E732' +
'F635B33EF93D64D16091C81498920B87A54F84D19CCE95A83E807' +
'8D8356F9CC6002AEB218C18938026A8C402D5D5EACE2F74755FBA' +
'F3AABB5B3155DCA37BA911AAC26B177FAD970CF855EFA62E16FEA' +
'8C8D4B1EA9B3C2AEC4244019EF7F6FAC2AA1F5763BF060FF1857D' +
'F712DAE3ECBAA286243F0168803EAD446F493E33DAE7C1D086647' +
'58A415B1D5EB69ED4BA970E75F45290FDBE0EB59BE0B939361939' +
'B291EFCD957175921D526C6FB2D8118C01DB3D8D51D57B054EED8' +
'D683B1D5C99DEECB3B204E46EF92F3D4795CF6418A0DEAE7324BD' +
'89922C3553CC40A07A87B02818743E015E6DDC4FC24BC829329E8' +
'5AD8468FD1971D9F866016F763B5F4A4B56EF57D3268E6AE072A8' +
'8D288EC5151B19891587A17BC19FA45F38B081CB84A2C7B1FBACB' +
'E9A52F013074784E537FBA46AA956A25DB75AFB4AB2C5459195C8' +
'39315C59D3972500D7FB49AA6D472B2CC6056D9D920FBB6358B35' +
'5616ABFFE33D7EF79AAAAF0AE38BC3B3C811247F4E3051572F2BE' +
'D226B527ED675FDACB49EB245789FABAB4C11C2CB1B4E272C1A26' +
'187E1DB380F198C42A75A048F33D9BE45C58590BCEF5A959E5555' +
'15A62F655BD54ECE4AAD7AC3576A596EB3D0369A7659D5BD84BB8' +
'2A96E78A1D8E77365D87B28E8B023BFFE68F2EB631CAAC9DC2248' +
'5E3D124024B79655194F9A8D7D37AC482A855AB5A6A47AE18FF56' +
'473E35DBAB07C3643D24E63D58DF0D1DB69E309F809581E76FA65' +
'E55DE0CCCD6614B67B571D6DF390E89B587D602D615078D3D454A' +
'7DBDB3AC47008D1542BFE5BCC241A1A29729492E7A3DB0C1C92A3' +
'A5A59C6FD5176F447EB3B17D7328BC3B33E322C15CC0C5E02DEDF' +
'357B555104C9F45A7D5E35E82ECFC73A6CB12C12D4BC85EF8B811' +
'59A4292B5E11C698733C0DD03AC224C1AA8CCF98E2B592564B943' +
'898956D57BE5C362971E9540CB2B13B86CC5D6849DB7E999958F4' +
'C8EAC169758D3D3C44EE364FCB5FEA2F97CCD96ACF591048FB3EA' +
'A76B4C0A825D9FD85E9A25FDDE6B55233C70B76C304C7D9EE0996' +
'D314C0B26609B4B9D49AD0CA1C396B699803400C4811A78FBE9F1' +
'117015F11A0D440BDCFCA85A0D7CAD96B24D62BB8CBEB3C8A1ED0' +
'41CD8664D095C0B8C9E1525D0FF64D51DBF3CD7DA4DFA0F77C2CF' +
'5BBED4DDBCA1954C29EC2BA602E284BB6CED8AECB882E5B586B87' +
'A22B03F73D5767FAEEFBBA3C1D178D8AB3260A930C26CA57A23F4' +
'0C462B80ED647825D8F974BCF9235DFB80DD80C03C547ACDE69DA' +
'BBCED0C41EC09BBD4AECFF768143CB6DB932F2E5B7998DC3F539F' +
'9E0E1DE6DA82DA964B17B23DF25A79D4556CCD9CA85D1286A3F5C' +
'7E1CFEBAE702DB6FA9E87D48ACCF75AD5AE1B84FA99C5AD32A233' +
'DA6D260BE0E172649DA4C20A7DB550CB12375B0060D0F180A8384' +
'ECB45879FEC2092CAC873E14A7314921D52C682E8A3ED3C7F0231' +
'84F583DD803C2A2BA420009D52A3E9DA33F3CF77BF6FAB15A45A5' +
'C96D830C9DE307A0AD903C3D46577B768E5914396C87AD5E37EE0' +
'0AAA88D8D607C7AA6689A53E636636075A46BF0B731397B7C56F3' +
'F788E317EAD04A9C7816DC09C4AD5F8DFA8930B6708778B50BED4' +
'5A214DC4BDF038BE71D317483400DBE06E475AB84A986B269010F' +
'33EB0B4F89BF85C8FD86DD55CCE5AC5FB8E25E0AD5C95BEEF95AF' +
'23E201A0767A8F60484C9AF081D446E67A3C0B36DA4E235258701' +
'89237889B4ACB08FD60C13CFE9733E9680C208593AE9FC55D119F' +
'9427F700BAEAF2D479B42B2B2B6BA657863059E3EDB2DEA0295C3' +
'36EACA4C33A6E56AB6EFD2BA72AC6CE3C5C2C4B33A58E3B1531EF' +
'2094C93FE75D332A3AD7BACAD9DAFBE25D860904AE0A9355958A8' +
'D90A4305E8207806EC2D54C16313C31F48FE76B5601EC3D5EB1A7' +
'F28A076B4234CE87F1BAB36458C52D9ED6154C071762A21A431F2' +
'0E2C2C462AA39718503411C2B4726720C83A8A14AB6E1F2F289CC' +
'66C5B952717E5572579F2B9E4EF992D6DDFEC492B65A47FE1204B' +
'0D5C051AD44C4B0FCE58C9975DAB88F0D7121F72237C44A3E0274' +
'89B1AD03DB407CEA2A7C747115EE01F162F23683F6265B98FA45B' +
'003A666A08FD0897A79130FBBC80D5ABCB0798D423462ED9CB9D6' +
'DFB9DEEA1267CE94C68A5F8D3BB132C2C67F1357E78E0D7567B2B' +
'277D967B8F690A7F44656962E9CB462CA75D5233C7085401CB81A' +
'D1B50E0FE858951010097D54461FA63265A9BBD3637A8BCB94D52' +
'C4F24F261953D3096C45D0A375CB190AD83F0B3352396E8B81337' +
'7ACB6ABBB0932CF988A9AAC01D6BB0B26A79439C0B5CE17D8465D' +
'559608DE3B6C65C75B46BBF8DEE0AD0955C618FD9A771693DA849' +
'7D62E98E2ED8BD576E013ED271DB34EBCCDA20155713D76600AEC' +
'B7A0351E7AF15364F88ECAAE1F68DF3A8C90410B1882025EEDD6B' +
'EDF06B7694A5482C033BDFB6DCF057EEA82539F2D4E2BB566565E' +
'DB82415D9FE5D5C95BD6E7865E01B9DAF9C47C888531E13CFFD3B' +
'12EDC28608533DBEE057645661E9A6CD99B520EBC1B528F1E9DC7' +
'95BD6F3531A6FCF5786AC1957ED45B219B243E69563E42A614548' +
'79966661674B07913B6420B542E45263F7607DE5C44AD83E33638' +
'6E1B1A237789D45D4C03CB087D57AF4BEE25CCD41692C206CDCDF' +
'37574B8EEED352E94FEEB9057FE28F612CBDA9C03C17C0581A979' +
'9C9E286EEE43C651F7E79EDAE0C27EB4547A28F096BEE21097B7D' +
'B0B918A231A9B0187BCCBAB273ED3FCCFEF223AAEF1ABFDC79A9E' +
'ECF8175A77B42F4D453F7DC152D954C5776F45FC395664AF5E4DA' +
'AAB5CDDDFB6B976CCDF99907D018E4C7F16081E24037F9FE9036C' +
'051A54A3BD7B8D9A3ECCF59CF67EAF9892B89A395DBACD590CCB2' +
'8C9FD90C338E60CB4FD65BE1E61C7C5E403F805E60E4053BE9595' +
'09E99BAC425AA76EC1D77800CB3041A69DE18D43DDF7BAD567335' +
'F9135DF7DC02FC32024BB8647A471870562BCE52B9BE70B941E2F' +
'D375C65C9955DFBDF9C64F89DEE15FC761750675E54E5A6BBB096' +
'EF967525067EFB9B20B350D81AF9DE88F5A59E3B2C27B58985C35' +
'943F35FC455DB39523DB5A1E738B8CFA1C160CDF9D89DB5566DD4' +
'5289FCF5FD9FF62A38C4EDE28360B730CE0EB585BD8596A3473DD' +
'1A3CF27281FA854B6B93254374FA476E39FECC24A3D9C99518314' +
'D1E65E77680D8BBE83A6B9763143B211C5B0F698FA6BCFBA651AE' +
'8DA19EB008F7CB7548FDC423EE0AF103E73A726E69D3BF012B484' +
'3C0BD208E099B0D860058E02B9D6A50BC24DD324FB7AAEAC3E58A' +
'0F792A105CB67FE4676F567D9F970088ADADA43A29C50F3782231' +
'203A5FBEDBC4838BCDD99F159C014E90CB75B45A67A5216741CFA' +
'CB56BFFAD13F76FD98674AD18EA293CF5566FFBF7C8A9C486E0FD' +
'C757FB7C10B5644CDA9158953E14A6DEA122AC47DF643FEE7A7E1' +
'296E5269338695B0CC9E93D3C91EE29D2BC90C80AF4932D770C5E' +
'BA293B079489ADB50FF1A1F9485BCF3D8B1C078095F9589E06E2B' +
'A9585736ACE856B4DA10145E99E3778E4CC2D6BC55D3ECEBFB1AC' +
'476E2118E0215BCFDD754704EE2ADC16B40C860B9A936B193C830' +
'3EE0167B629A6ECA030AC3FBEE317DD75A3EBFEFA13DD2B880804' +
'B65D723E0B519A251689E1551A7094CC66EC9E1BA020B5102BAC7' +
'66255CE069056ADD9AD95CD5941F55FC595D6410EB7DDA4BA4B99' +
'E701E5E4D123C7785BFFBA67029FF120209ACA9958F13C8052705' +
'FCCC99ACD8DFC4A9FAF67EEE4BC989EFE7BE9AC6498EBD313AD19' +
'94BE564E5B7347BA4352D1A5F934B5A58234CD57EF359D0423830' +
'74C03449D33B008EDCC11D37EA1259AD0E0588E9715BA7BC0D8AC' +
'B97600C1378DC37D975B805B4AC9E5C83D85DC720140754E1CEC0' +
'333CB609DD4645E82AAAC434F37DC23085814772167E147D6A357' +
'24AECC53F2F06BC54124A62B4AF777B611AE96675B10850357277' +
'760F0380C2289DA9AD61307ABA128A462EFBF76D3D47DD79F4685' +
'CAB2F41CA59CB77DD8AB1BF7C0ACC1F2F3A4D5B6B7A771DCB01D1' +
'12897337331214241A1B60D1204A730922D317236245DCFD73377' +
'974D80E0D7FC6A44AF76209CF2F95C3F0912EFF33B063008C2318' +
'EE8C238A2B6F6B49D52B5FE35D71EE1E7F24115DC86B9418CBA94' +
'542ECD501D57CC68BB66C71A048BB2861E0CACE7B59B5DC72E19A' +
'DBD830512809103A29A9E2E2CB09A15CA532AF84CA893B5E31B57' +
'7B63E3BABF9C05EE5C841FE042E6B987CA17EE58CA8681EDDAC94' +
'F8BBDA263C011544D766DAD9CF0835B16447F3E05D84DC4C0010C' +
'8F65CE2B2C05808540B44270F03B3082AC000F544955E87F1D577' +
'9B3F7756A554E85CBA8614FB2FBA56018F616F449DFBF820680C4' +
'E6EA7B00C3AF9067ECACAE7E3B15ABCFAFE976F8EA3FF8C766CB1' +
'442860FE2F207F7E0F240336283CACAEB20B6333898616FBEC9AF' +
'CE5461987C81BF8459C203C2B72CDA07C08A276AE06FE1712AFE3' +
'0E4939B352B460F39D098874EE9E76EB777807D62AE18F6D307EB' +
'087AD9E7F3BB2305E6BB191EBA1DE8C04FCC01DEB98047C68CC12' +
'3FA0669AF8577CFC166E27D46E76E993278E24B6A94FF8BB7187D' +
'9EAD187B7796A0AB19F832FA917D3E6E5BA704EB0F2E61C12620C' +
'F916B6CE4AF90A7A93C52671B82C1CE28FFC4BB8309F0ED25A7F1' +
'815EC8DFF1B40C0C02057F46EEBA0F510E3BC0D6A0A750D089095' +
'15AE8217E02F17189DB377BE2B7C3C196796E2286670B2DE389B1' +
'16BC49E65ACB59284DDD2D297BBCE18F185FBB5665BD0CE11B775' +
'E749367B2B03208EA8B074D494024299E2B3D31BF60C11B2B661F' +
'C1B9ADE674BCED06119BE7F64BD06AB85AB4B051F85B6E966CB01' +
'0708306F3C8DD5C6630DBDDA6EC2CB8ED09CFC015993CB4B02450' +
'9089BE722C20EF7053D6F902397BD9B76FF1B2F7B61BF8774A29D' +
'2D31D1047048F3AD0E2E19811AA934FADBAEA8B693CD951DA09BF' +
'333B7DEB1466C5BD0D2790F0EFE3AAED7B93AE5B41FADB1D0E98F' +
'5C9347745D8310A79E7E039BA02420E12EC132C53218131858B13' +
'8849204FFC65E3DE31461C895C157EF0BAC7663E4FF4E3F91E9C4' +
'73C149EEAA1C9261B44E3264EE6EB2366069126DC496E905B962D' +
'C70891A2A91D310E738F2519B42D31E9D9D91D6C7EACA3FA3C9BA' +
'D5C26C1BFB0FF1EFCD0759EA220AF50EB1131BF6E1CAD704DBCF2' +
'FC39293679084234F4C6FDBB05ADFC84A32A017323EC9147B0992' +
'B6342A186C28D0401D03E4502E00DE0C68E91CE38D6FECCDA7906' +
'F2BA55464E0A831B4455208C388D1312E0D154581D5855703526E' +
'822AC7A81CF477F06A6F0042CC14720874C1304D10539316D608E' +
'22467E421AA029196FC399A92774223566881154614668A5F0D03' +
'1F58EC4FFE2D6B56FEF9CB98F3D42FE980D58F20E29362A48E11C' +
'14D825C419F924D7C4FB0F58DAC17B19EBECB40D8821214F704D4' +
'CB4AC97AF7BC3DCC7F39975C58C81F9C4CA3B56202EE8B0EC72AC' +
'D05B491144CC28D85863F952CF05B194992BC36F1D246AD13AF85' +
'F7C1F98B76A3381AF86C8D457DFC89D8F9EC0F760A7A0EA4036AD' +
'A878A50ECC8BA706DE9841F38DBB97E19CF06DF1E61891A79EE32' +
'73CDFC3154F69813B9E8C45B887EF84CA6C30908928BEC34659B1' +
'0C5DE691D1BCDCEC3CC28E952EEE21FBAD816D8F3E419E447FA9B' +
'59D7BF2F3E47F67E69B2CC60BC4278C546F7280C69D9078407490' +
'612D73A5521FD06B93BBCC05A3A70492CEFD33741F1321043809E' +
'81C772057B154F35FB554DF59AD7CBBFBCBDFB25B8CE6A0EBD068' +
'9EE6808E36FA922AF2840541AC08FDE1D2E992E7B9E4C99C28E52' +
'8FBF31FB7BA8D1B86F9A76E590FC4E483798303766354478F5598' +
'AF9422B95C15E1AE5AB4139F7DE34A20F7041BC4386C310CA0E9C' +
'0FC2A9660E33ABE0BCB49EBC2AC04FC00248B885024CB1EB90789' +
'A74DE5AC0877E772AD8A1EAB316F981B4702A8829B6186A8279D3' +
'64E5B4464DC89450E0C495038786B6E4386ACB82A04EB87DE78AE' +
'4A62798CBDDEB4F8A5657A0639F5247E798A9CB927C04151B97F9' +
'81BCD02742D2C095430B7CAD435D740612781E692C4E39FADAC19' +
'992CE602499E7DEC377137448DFF0C519F37B0BDCE595C1853FFC' +
'8249E9E38F39DF33E3B63BC0C391FAA958AA52DCF26A3B0224F7A' +
'70DA5BFBEDCD81EBF9FD14BBC1511BCC6CD51349908CEC2A81FF9' +
'A44561FCB4A70D324D383DC4E8E404D5AAE481A3A06EEBAE4192D' +
'79377800CCADE25C23204AF9BCA1DDE9EDA6CBAE266E67E08E5D2' +
'24FECADB6019CA4E18D64FFAE7CD6EF78F9ADE93C3F65F0998C98' +
'6C8AF3C86C765E12305FDCC6799D490F7B975DE9B21BB5E72D075' +
'8C421BE17FF0D2B0CB940ABE85FD126AE66133DD09DAC9E8E32A0' +
'AF17EBC4F9C8E2F5C6DD46FDA796EA576F2255C9CBD90D594BA2E' +
'40DD1C0AD4990EA39F27A7F105ABC3BFFBFAF515CF21CB7736AEF' +
'BDA816F32C9B5B3BF9CBE0C8AFF9E50A9623B503BE0A2D0BDABCD' +
'BBA5BF063E660F1FDB4DFCA884C9DE09BB2559C4B64AD71D06A15' +
'F9FAF3CE7C8E6675969DB9DAF2650B8F4A19C9F3F9790896A6ACB' +
'C51025DFABACFE377D2D618EA2507B5A8773958910375242D0FAB' +
'FA62B8817CCDC27DBCD72C7CBEC3FFEDFDC94F245CB340F91FEB9' +
'DAFB6ED56EB44FC9A5ECC87CDB41FBD5CB3BCE75ACE80BFDAE73B' +
'BC5ACC2DDF5BDA8FF7F9F15B7D7EF3AD1D1FED1464EEEA18BFDED' +
'70FB5FB89F94F09F4475BFF48FE3F68FF3F2FE');
C:= GetBitmapCanvas(oyl);
CopyCanvas(C, Image1.Canvas, 0, 0, 100, 100, 0, 0, 100, 100);
PlayerForm := TGroupBox.Create(frmDesign);
PlayerForm.Parent := frmDesign;
PlayerForm.Left := 174;
PlayerForm.Top := 157;
PlayerForm.Width := 140;
PlayerForm.Height := 79;
PlayerForm.Caption := 'PlayerForm';
PlayerForm.TabOrder := 0;
SetupPlayers := TButton.Create(PlayerForm);
SetupPlayers.Parent := PlayerForm;
SetupPlayers.Left := 31;
SetupPlayers.Top := 30;
SetupPlayers.Width := 75;
SetupPlayers.Height := 25;
SetupPlayers.Caption := 'SetupPlayers';
SetupPlayers.TabOrder := 0;
SetupPlayers.OnClick := @LaunchPlayerForm;
ExtraSetup := TGroupBox.Create(frmDesign);
ExtraSetup.Parent := frmDesign;
ExtraSetup.Left := 13;
ExtraSetup.Top := 7;
ExtraSetup.Width := 140;
ExtraSetup.Height := 298;
ExtraSetup.Caption := 'ExtraSetup';
ExtraSetup.TabOrder := 1;
DisguiseScar1 := TLabel.Create(ExtraSetup);
DisguiseScar1.Parent := ExtraSetup;
DisguiseScar1.Left := 10;
DisguiseScar1.Top := 23;
DisguiseScar1.Width := 62;
DisguiseScar1.Height := 13;
DisguiseScar1.Caption := 'DisguiseScar';
YewColor := TLabel.Create(ExtraSetup);
YewColor.Parent := ExtraSetup;
YewColor.Left := 10;
YewColor.Top := 76;
YewColor.Width := 45;
YewColor.Height := 13;
YewColor.Caption := 'YewColor';
LoadTime := TLabel.Create(ExtraSetup);
LoadTime.Parent := ExtraSetup;
LoadTime.Left := 11;
LoadTime.Top := 126;
LoadTime.Width := 47;
LoadTime.Height := 13;
LoadTime.Caption := 'LoadTime';
SecondsPerClick := TLabel.Create(ExtraSetup);
SecondsPerClick.Parent := ExtraSetup;
SecondsPerClick.Left := 10;
SecondsPerClick.Top := 181;
SecondsPerClick.Width := 81;
SecondsPerClick.Height := 13;
SecondsPerClick.Caption := 'SecondsPerClick';
AmountOfLoadsPerPlayer := TLabel.Create(ExtraSetup);
AmountOfLoadsPerPlayer.Parent := ExtraSetup;
AmountOfLoadsPerPlayer.Left := 10;
AmountOfLoadsPerPlayer.Top := 244;
AmountOfLoadsPerPlayer.Width := 121;
AmountOfLoadsPerPlayer.Height := 13;
AmountOfLoadsPerPlayer.Caption := 'AmountOfLoadsPerPlayer';
DSA := TEdit.Create(ExtraSetup);
DSA.Parent := ExtraSetup;
DSA.Left := 10;
DSA.Top := 42;
DSA.Width := 121;
DSA.Height := 21;
DSA.TabOrder := 0;
DSA.Text := 'Travis Rules';
YewColorA := TEdit.Create(ExtraSetup);
YewColorA.Parent := ExtraSetup;
YewColorA.Left := 10;
YewColorA.Top := 93;
YewColorA.Width := 121;
YewColorA.Height := 21;
YewColorA.TabOrder := 1;
YewColorA.Text := '1454120';
LoadTimeA := TEdit.Create(ExtraSetup);
LoadTimeA.Parent := ExtraSetup;
LoadTimeA.Left := 10;
LoadTimeA.Top := 145;
LoadTimeA.Width := 121;
LoadTimeA.Height := 21;
LoadTimeA.TabOrder := 2;
LoadTimeA.Text := '20';
TreeTA := TEdit.Create(ExtraSetup);
TreeTA.Parent := ExtraSetup;
TreeTA.Left := 10;
TreeTA.Top := 201;
TreeTA.Width := 121;
TreeTA.Height := 21;
TreeTA.TabOrder := 3;
TreeTA.Text := '30';
AOLA := TEdit.Create(ExtraSetup);
AOLA.Parent := ExtraSetup;
AOLA.Left := 10;
AOLA.Top := 265;
AOLA.Width := 121;
AOLA.Height := 21;
AOLA.TabOrder := 4;
AOLA.Text := '20';
Start := TButton.Create(frmDesign);
Start.Parent := frmDesign;
Start.Left := 175;
Start.Top := 257;
Start.Width := 131;
Start.Height := 44;
Start.Caption := 'Start';
Start.Font.Color := clWindowText;
Start.Font.Height := -16;
Start.Font.Name := 'Comic Sans MS';
Start.Font.Style := [];
Start.ParentFont := False;
Start.TabOrder := 2;
Start.OnClick := @StartClick;
end;
{->>>ENT Procedures<<<-}
procedure LoadDTMs;
begin
AxeDTM := DTMFromString('78DA633CCEC4C0D0CBC800021012C2E247E23' +
'39E02AA994840CD11A09A7904D45C07AAE926A0E602504D2B0135' +
'97F1ABF90F04002C1A0CA1');
end;
function CheckForEnt: Boolean;
var TPA: TPointArray;
begin
if(not(LoggedIn))then
Exit;
if(FindColorTolerance(x,y,55255,6,6,117,27,10))or
(FindColorTolerance(x,y,976101,6,6,117,27,10))then
begin
if(not(IsUpText('op'))) and (not(IsUpText('own')))then
Exit;
wait(1);
FindColorsSpiralTolerance(x,y,TPA,55255,6,6,117,27,10);
if(GetArrayLength(TPA) - 1 > 4)then
begin
Result := True;
Writeln('We found an ent!! Trying to avoid now..');
Mouse(648,84,3,3,true);
FFlag(0);
FTWait(60+random(5));
if(Players[CurrentPlayer].Boolean2)then
GameTab(5) else
GameTab(4);
wait(300+random(300));
Result := FindDTM(x,y,AxeDTM,MIX1,MIY1,MIX2,MIY2);
if(Result)then
begin
Writeln('Whew! We avoided the ent.. Carrying on with chopping');
Ents := Ents + 1;
Exit;
end else
begin
end;
end;
Result := False;
end;
end;
{->>>Axe Head Stuff (SRL)<<<-}
procedure WCRandoms;
begin
CheckForEnt;
FindHead;
AttachHead;
FindBirdsNest;
end;
{->>>Anti Procedures<<<-}
procedure Nothing;
begin
end;
procedure AD;
begin
if(not(LoggedIn))then
Exit;
Talked:=Talked+1
case random(19) of
0: TypeSend('*yawns*');
1: TypeSend('Wc lvls?');
2: TypeSend('Bored...');
3: TypeSend('Tired...');
4: TypeSend('Wc is boring.');
5: TypeSend('Noobs');
6: TypeSend('Nubs');
7: TypeSend('Cocoon means Noob');
8: TypeSend('Travis Rocks!');
9: TypeSend('I need a break.');
10: TypeSend('I need to sleep.');
11: TypeSend('This game is addictive.');
12: TypeSend('I liked Runescape Classic better...');
13: TypeSend('Runescape 2 isnt that good.');
14: TypeSend('I dont like the new Varrock.');
15: TypeSend('Im sleepy.');
16: TypeSend('This is boring.');
17: TypeSend('Yew trees dont give very many logs...');
18: TypeSend('So tired...');
end;
end;
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i := 1 to 16 do
begin
case I of
1: CloseWindow;
2: if FindTalk then
Result := True;
3: if FindDead then
Result := True;
4: if FindMod then
Result := True;
5: if FindMime then
Result := True;
6: if FindMaze then
Result := True;
7: if FindQuiz then
Result := True;
8: if FindDemon then
Result := True;
9: if FindScapeRune then
Result := True;
10: if FindTalk then // Call it twice
Result := True;
11: if FindLamp('Woodcutting') then // Maybe we missed it?
Result := True;
12: if (FindNewBox) then
begin
Result := True;
if (UseBoxSolver) then
SolveBox
else
GambleNewBox;
end;
13: if FindTrade then
Result := True;
14:
begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
15: SaveToChatLog;
16: if RC then
Result := True;
end;
Wait(1);
end;
end;
procedure AntiBaning;
begin
if(not(LoggedIn))then
Exit;
case Random(12) of
0,9,10,11: begin
HoverSkill('random', false);
wait(1000+random(750));
GameTab(4);
end;
3: PickUpMouse;
4: MouseBox(MMX1,MMY1,MMX2,MMY2,3);
5: SleepAndMoveMouse(5000+random(6000));
6: begin
GameTab(2 + Random(12));
wait(2000+random(1500));
GameTab(4);
end;
7: begin
GameTab(6 + Random(12));
wait(1500+random(700));
GameTab(4);
end;
8: begin
HoverSkill('Defence', false);
wait(4000+random(550));
GameTab(4);
end;
end;
end;
procedure Randoms;
begin
if(not(LoggedIn)) then Exit;
WCRandoms;
FindFastRandoms;
FindNormalRandoms;
if (FindFight) then
begin
Status('Running....')
RunAwayDirection('N');
Wait(8500 + random(3500));
RunBack;
end;
case Random(8) of
0,2,4,6: begin
Nothing;
end;
1,5,7: begin
AntiBaning;
end;
3: begin
AD;
end;
end;
end;
{->>>Banking Procedures<<<-}
procedure Bank;
begin
if(not(LoggedIn)) then Exit;
HighestAngle;
MakeCompass('N');
FFlag(0);
Wait(2050+random(550));
Writeln('Banking.')
MakeCompass('N');
Repeat
OpenBankGlass('veb', false, false)
Until(BankScreen);
FFlag(0);
wait(500 + random(500));
if PinScreen then
begin
writeln('You have a pin. Please delete.');
nextplayer(false);
end;
FixBank;
Deposit(2,28,2);
CloseBank;
HighestAngle;
MakeCompass('N');
Loads := Loads + 1
end;
{->>>BankClick Procedures<<<-}
procedure BankClick;
var
X,Y,BankDTM:integer;
Bla:extended;
begin
BankDTM := DTMFromString('78DA6364646060606640017FFE3031C801699' +
'0D47F206064C554F3F52B846684F2199980041B031A6044510300' +
'48F1081A');
repeat
Tries:=Tries+1
if(FindDTMRotated(BankDTM,x,y,MMX1,MMY1,MMX2,MMY2,0,2*pi,0.05, bla)) then
begin
Mouse(x,y,2,2,true);
Wait(550+random(550));
FFlag(0);
WriteLn('Found Bank (bankers)');
Exit;
end;
if(not(FindDTMRotated(BankDTM,x,y,MMX1,MMY1,MMX2,MMY2,0,2*pi,0.05, bla))) then
begin
if (FindSymbol(x, y, 'bank')) then
begin
Mouse(x,y,2,2,true);
Wait(550+random(550));
FFlag(0);
WriteLn('Found Bank (bank symbol)');
Exit;
end;
if (not(FindSymbol(x, y, 'bank'))) then
begin
WriteLn('Failed to find Bank!');
Logout;
end;
end;
until (Tries=30);
end;
{->>>Walking Procedures<<<-}
procedure WalkYew1;
var
Radie1,Radie2,WalkTime: integer;
begin
if(not(LoggedIn)) then Exit;
HighestAngle;
MakeCompass('N');
Randoms;
RadialWalk(FindVarrockRoadColor,340,355,55,2,2);
FFlag(0);
MarkTime(WalkTime);
Radie1:= 337;
Radie2:= 381;
repeat
if(not(LoggedIn)) then Exit;
if not RadialRoadWalk(FindVarrockRoadColor, Radie1, Radie2, 30, 2, 2)then
begin
Radie2:= Radie2 + 10;
WriteLn('Increading the radius!');
Status('Increading the radius!');
end;
if TimeFromMark(WalkTime) >= 600000+random(60790) then
begin
WriteLn('Current player got lost looking for the Yew... bummer!');
Status('Current player got lost looking for the Yew... bummer!');
Logout;
Players[Currentplayer].Active := false;
Break;
end;
until(FindSymbol(x,y,'rare trees')or(FindSymbol(x,y,'house')));
Mouse(x,y,2,2,true);
Wait(550+random(550));
FFlag(0);
if(not(FindSymbol(x,y,'rare trees'))) then
begin
Tries:=0
repeat
Wait(500+random(500));
if(Tries=30) then
begin
Logout;
WriteLn('Cant find Yew. Waiting it out. Travis is awesome too!');
Status('Cant find Yew. Waiting it out. Travis is awesome too!');
end;
Tries:=Tries+1
until FindSymbol(x,y,'rare trees');
end;
Mouse(x,y,2,2,true);
Wait(550+random(550));
FFlag(0);
end;
procedure WalkBank1;
begin
if(not(LoggedIn)) then Exit;
HighestAngle;
MakeCompass('N');
Randoms;
RadialWalk(FindVarrockRoadColor,200,180,70,2,2);
FFlag(0);
RadialWalk(FindVarrockRoadColor,195,177,70,2,2);
FFlag(0);
RadialWalk(FindVarrockRoadColor,195,177,70,2,2);
FFlag(0);
RadialWalk(FindVarrockRoadColor,180,130,60,2,2);
FFlag(0);
BankClick;
end;
{->>>No Tree Procedure<<<-}
procedure NoTree;
begin
case Random(6) of
0, 2: begin
HoverSkill('random', false);
wait(2500+random(1500));
GameTab(4);
end;
1: begin
HoverSkill('Woodcutting', false);
wait(3000+random(2100));
GameTab(4);
end;
3: begin
GameTab(1 + Random(12));
wait(5000+random(700));
GameTab(4);
end;
4: begin
BoredHuman;
end;
5: begin
KeyDown(VK_Right);
Wait(2000+random(1725));
KeyUp(VK_Right);
Wait(1000+random(1725));
HighestAngle;
MakeCompass('N');
end;
6: begin
KeyDown(VK_Left);
Wait(2000+random(1725));
KeyUp(VK_Left);
Wait(1000+random(1725));
HighestAngle;
MakeCompass('N');
end;
end;
end;
{->>>Choping Procedures<<<-}
procedure ChopYew;
begin
if(not(LoggedIn)) then Exit;
HighestAngle;
MakeCompass('N');
Randoms;
repeat
if(not(FindObj(x,y,'ew',YewColorB,3))) then
begin
Writeln('Yew gone. Waiting it out. Travis is awesome too!');
Randoms;
Wait(6000+random(3550));
NoTree;
end;
until FindObj(x,y,'ew',YewColorB,3);
Mouse(x,y,3,4,true)
Wait(TreeTB*1000/2+random(1550));
Randoms;
Wait(TreeTB*1000/2+random(2550));
Randoms;
end;
{...><> Sig and Proggie Procedures <><...}
procedure Signature;
begin
ChangeReportWidth(220);
ClearDebug;
Status('Starting Up....');
WriteLn(' __________________ ');
Wait(250);
WriteLn(' | | __ ');
Wait(250);
WriteLn(' |_______ ______| |__| ');
Wait(250);
WriteLn(' | |__ _______ __ _____ _________ ');
Wait(250);
WriteLn(' | | |/__\ \ \ / / |/ ______/ ');
Wait(250);
WriteLn(' | | / ___ \ \ / /| | \______ ');
Wait(250);
WriteLn(' | | | | | \ \/ / | |\_____ \ ');
Wait(250);
WriteLn(' | | | |___| \ / | |______/ / ');
Wait(250);
WriteLn(' |_____|__|________/\__\__/ |__|\_______/ ');
Wait(250);
WriteLn(' OPERATION: Yews | Version V2.0 ');
Wait(6000);
end;
procedure Proggie;
begin
Writeln('//==================Progress Report==================\\');
Writeln('Thank you for using OPERATION: Yews V2.0!');
Writeln('Cut approx. ' + IntToStr(TLoads*28) + ' logs!');
Writeln('Banked '+ IntToStr(TLoads) + ' time(s)!');
Writeln('Chatted '+ IntToStr(Talked) + ' time(s)!');
Writeln('Visit me at www.travdev.freehostia.com!');
Writeln('Please post this proggie at SRL-Forums');
Writeln('\\=================End Progress Report================//');
Writeln('Script by: Travis AKA born2code!');
end;
{->>>Loops Procedures<<<-}
procedure Loop;
var
CurrentCuttingTime: integer;
begin
if(not(LoggedIn)) then Exit;
repeat
HighestAngle;
WalkYew1;
MarkTime(CutTime);
AntiBaning;
MarkTime(CurrentCuttingTime);
repeat
ChopYew;
until(InvFull) or (TimeFromMark(CurrentCuttingTime) >= LoadTimeB*60000+random(60700));
WalkBank1;
Bank;
Loads:=Loads+1
Tloads:=Tloads+1
Proggie;
Until (Loads=AOLB);
NextPlayer(True);
Loads:=0;
Exit;
end;
procedure StartA;
begin
ClearReport;
ClearDebug;
ActivateClient;
end;
{->>>Main Procedures<<<-}
begin
SetupSRL;
SafeInitForm;
SafeShowFormModal;
Signature;
StartA;
Loads := 0
Talked := 0
DisguiseScar(DSB);
if(not(LoggedIn)) then LoginPlayer;
repeat
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
If(not(LoggedIn))then
begin
NextPlayer(False);
Loads := 0
end;
Status('WC Level ' + IntToStr(WCLevel) + '.');
Loop;
Until (False);
end.
Another Example. (SCRIPT NOT FINISHED! JUST AN EXAMPLE!!!!!!!)
{=========================================================================]
[ Rimmington Willow Killer V0.5 ]
[ ]
[ NAME : Rimmington Willow Killer V0.5 ]
[ WRITER : Born2Code ]
[ CATEGORY : Woodcutting ]
[ DESCRIPTION : Chops willows in the Rimmington and can sell, ]
[ drop, and/or turn them into fire. ]
[ USAGE : Start at Willows ]
[ PROGGIES : Post at TravDev.freehostia.com ]
[ AUTOCOLOR : Yes ]
[ ]
[ You must post your proggie at ]
[ TravDev.freehostia.com ]
[=========================================================================]
[ SETUP ]
[=========================================================================]
[ 1. USE Runescape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Set Playernames and Passwords in the form by clicking SetupPlayers. ]
[ 4. Start script Logged Out / Logged in ]
[ 5. Go to TravDev.freehostia.com and register! (required to use script) ]
[=========================================================================]
[ Credits to : ]
[ Lorax/Sumilion --> For Description Block (this) ]
[ JAD --> ENT ]
[=========================================================================}
program RimmingtonWillowKiller;
{.include srl/srl.scar}
{.include SRL/SRL/skill/WoodCutting.scar}
const
AOL= 50;//Amount of loads per player
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'USER';
Players[0].Pass := 'PW';
Players[0].Nick := 'NN';
Players[0].Active := True;
Players[0].Boolean2 := False; //Is axe equipped?
end;
var
BrokenAxeDTM, AxeDTM: Integer;
BrokenAxe: Boolean;
Tries, ENTs, Talked, WillowDTM, TotalTime, CurrentCuttingTime, CutTime, Loads, TLoads: integer;
{...><> ENT Procedures <><...}
procedure LoadDTMs;
begin
Status('Loading all DTMs');
AxeDTM := DTMFromString('78DA633CCEC4C0D0CBC800021012C2E247E23' +
'39E02AA994840CD11A09A7904D45C07AAE926A0E602504D2B0135' +
'97F1ABF90F04002C1A0CA1');
end;
///////////////////////////////////////////////////
////// My Ent checker/handler //////
/////////////////////////////////////////////////
function CheckForEnt: Boolean;
var TPA: TPointArray;
begin
if(not(LoggedIn))then
Exit;
if(FindColorTolerance(x,y,55255,6,6,117,27,10))or
(FindColorTolerance(x,y,976101,6,6,117,27,10))then
begin
if(not(IsUpText('op'))) and (not(IsUpText('own')))then
Exit;
wait(1);
FindColorsSpiralTolerance(x,y,TPA,55255,6,6,117,27,10);
if(GetArrayLength(TPA) - 1 > 4)then
begin
Result := True;
Writeln('We found an ent!! Trying to avoid now..');
Mouse(648,84,3,3,true);
FFlag(0);
FTWait(60+random(5));
if(Players[CurrentPlayer].Boolean2)then
GameTab(5) else
GameTab(4);
Result := FindDTM(x,y,AxeDTM,MIX1,MIY1,MIX2,MIY2);
if(Result)then
begin
Writeln('Whew! We avoided the ent.. Carrying on with chopping');
Ents := Ents + 1;
Exit;
end else
begin
if(FindDTM(x,y,BrokenAxeDTM,MIX1,MIY1,MIX2,MIY2))then
begin
Writeln('Oh darn.. We broke an axe :( going to check if you have extras in the bank');
BrokenAxe := True;
Exit;
end;
end;
end;
Result := False;
end;
end;
{...><> Sig and Proggie Procedures <><...}
procedure Signature;
begin
ChangeReportWidth(220);
Status('Starting Up....');
WriteLn(' __________________ ');
Wait(250);
WriteLn(' | | __ ');
Wait(250);
WriteLn(' |_______ ______| |__| ');
Wait(250);
WriteLn(' | |__ _______ __ _____ _________ ');
Wait(250);
WriteLn(' | | |/__\ \ \ / / |/ ______/ ');
Wait(250);
WriteLn(' | | / ___ \ \ / /| | \______ ');
Wait(250);
WriteLn(' | | | | | \ \/ / | |\_____ \ ');
Wait(250);
WriteLn(' | | | |___| \ / | |______/ / ');
Wait(250);
WriteLn(' |_____|__|________/\__\__/ |__|\_______/ ');
Wait(250);
WriteLn(' Rimmington Willow Killer | Version V0.1 ');
Wait(6000);
end;
procedure Proggie;
begin
Writeln('//==================Progress Report==================\\');
Writeln('Thank you for using Rimmington Willow Killer!');
Writeln('Cut for ' + IntToStr(TotalTime/60000/60000) + ' minutes!');
Writeln('Cut approx. ' + IntToStr(TLoads*28) + ' logs!');
Writeln('Sold '+ IntToStr(TLoads) + ' time(s)!');
Writeln('Chatted '+ IntToStr(Talked) + ' time(s)!');
Writeln('Avoided '+ IntToStr(ENTs) + ' ENTs!');
Writeln('Visit me at www.travdev.freehostia.com!');
Writeln('Please post this proggie at http://travdev.freehostia.com!');
Writeln('\\=================End Progress Report================//');
Writeln('Script by: Travis AKA born2code!');
end;
procedure LoadDTMs1;
begin
WillowDTM := DTMFromString('78DA633CCCC4C0B09591011984FBC933FC07D' +
'220D1FF40C07804A8E610AA1A882C8C04D217806AF61250B307A8' +
'E6280135DB806A0E1250B31DA866230135207FAD27A0E60C50CD6' +
'6026A4E03D51C20A0660B50CD76026A36110E1F000AE51642');
end;
{...><> Randoms Procedures <><...}
procedure Nothing;
begin
end;
procedure AD;
begin
if(not(LoggedIn))then
Exit;
Talked:=Talked+1
case random(19) of
0: TypeSend('*yawns*');
1: TypeSend('Wc lvls?');
2: TypeSend('Bored...');
3: TypeSend('Tired...');
4: TypeSend('Wc is boring.');
5: TypeSend('Noobs');
6: TypeSend('Nubs');
7: TypeSend('Cocoon means Noob');
8: TypeSend('Travis Rocks!');
9: TypeSend('I need a break.');
10: TypeSend('I need to sleep.');
11: TypeSend('This game is addictive.');
12: TypeSend('I liked Runescape Classic better...');
13: TypeSend('Runescape 2 isnt that good.');
14: TypeSend('I dont like the new Varrock.');
15: TypeSend('Im sleepy.');
16: TypeSend('This is boring.');
17: TypeSend('Jagex is smart.');
18: TypeSend('This kid named Travis is amazing!');
end;
end;
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i := 1 to 16 do
begin
case I of
1: CloseWindow;
2: if FindTalk then
Result := True;
3: if FindDead then
Result := True;
4: if FindMod then
Result := True;
5: if FindMime then
Result := True;
6: if FindMaze then
Result := True;
7: if FindQuiz then
Result := True;
8: if FindDemon then
Result := True;
9: if FindScapeRune then
Result := True;
10: if FindTalk then // Call it twice
Result := True;
11: if FindLamp('Woodcutting') then // Maybe we missed it?
Result := True;
12: if (FindNewBox) then
begin
Result := True;
if (UseBoxSolver) then
SolveBox
else
GambleNewBox;
end;
13: if FindTrade then
Result := True;
14:
begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
15: SaveToChatLog;
16: if RC then
Result := True;
end;
Wait(1);
end;
end;
procedure AntiBaning;
begin
if(not(LoggedIn))then
Exit;
case Random(12) of
0,9,10,11: begin
HoverSkill('random', false);
wait(1000+random(750));
GameTab(4);
end;
3: PickUpMouse;
4: MouseBox(MMX1,MMY1,MMX2,MMY2,3);
5: SleepAndMoveMouse(5000+random(6000));
6: begin
GameTab(2 + Random(12));
wait(2000+random(1500));
GameTab(4);
end;
7: begin
GameTab(6 + Random(12));
wait(1500+random(700));
GameTab(4);
end;
8: begin
HoverSkill('Defence', false);
wait(4000+random(550));
GameTab(4);
end;
end;
end;
procedure Randoms;
begin
if(not(LoggedIn)) then Exit;
CheckForEnt;
FindFastRandoms;
FindNormalRandoms;
if (FindFight) then
begin
Status('Running....')
RunAwayDirection('E');
Wait(8500 + random(3500));
RunBack;
end;
case Random(8) of
0,2,4,6: begin
Nothing;
end;
1,5,7: begin
AntiBaning;
end;
3: begin
AD;
end;
end;
end;
{...><> Chopping Procedures <><...}
procedure ChopWillows;
begin
repeat
if(not(LoggedIn)) then Exit;
HighestAngle;
MakeCompass('N');
if(not(FindObj(x,y,'illow',4280416,5))) then
begin
Tries:=0
repeat
Wait(250+random(634));
if(Tries=20) then
begin
Writeln('Couldnt find Willows!');
Logout;
end;
Tries := Tries + 1
until FindObj(x,y,'illow',4280416,5);
end;
Mouse(x,y,3,4,true)
Wait(9000+random(2580));
Randoms;
until(InvFull) or (TimeFromMark(CutTime) >= 15*60000+random(60700));
end;
{...><> Dropping Procedures <><...}
procedure Drop;
begin
Dropto(3, 28);
end;
{...><> Walking Willow Procedures <><...}
procedure WalkWillows;
begin
if(not(LoggedIn)) then Exit;
HighestAngle;
MakeCompass('N');
if(not(FindSymbol(x,y,'water'))) then
begin
Tries:=0
repeat
Wait(500+random(500));
if(Tries=30) then
begin
Logout;
end;
Tries:=Tries+1
until FindSymbol(x,y,'water');
end;
Mouse(x,y,2,2,true);
Wait(550+random(550));
RadialWalk(FindRoadColor,180,90,70,2,2);
FFlag(0);
if(not(FindSymbol(x,y,'quest'))) then
begin
Tries:=0
repeat
Wait(500+random(500));
if(Tries=30) then
begin
Logout;
end;
Tries:=Tries+1
until FindSymbol(x,y,'quest');
end;
Mouse(x,y,2,2,true);
Wait(550+random(550));
FFlag(0);
RadialWalk(FindWaterColor,180,160,70,2,2);
FFlag(0);
end;
{...><> Selling Procedures <><...}
procedure WalkGeneralStore;
begin
if(not(LoggedIn)) then Exit;
HighestAngle;
MakeCompass('N');
if(not(FindSymbol(x,y,'quest'))) then
begin
Tries:=0
repeat
Wait(500+random(500));
if(Tries=30) then
begin
Logout;
end;
Tries:=Tries+1
until FindSymbol(x,y,'quest');
end;
Mouse(x,y,2,2,true);
Wait(550+random(550));
RadialWalk(FindRoadColor,290,330,70,2,2);
Flag;
if(not(FindSymbol(x,y,'store'))) then
begin
Tries:=0
repeat
Wait(500+random(500));
if(Tries=30) then
begin
Logout;
end;
Tries:=Tries+1
until FindSymbol(x,y,'store');
end;
Mouse(x,y,2,2,true);
Wait(550+random(550));
FFlag(0);
end;
procedure ShopKeeper;
begin
if(not(LoggedIn)) then Exit;
LowestAngle;
MakeCompass('N');
if(not(FindObj(x,y,'hop',12174018,20))) then
begin
Tries:=0
repeat
Wait(250+random(634));
if(Tries=20) then
begin
Writeln('Couldnt find Shop Keeper!');
Logout;
end;
Tries := Tries + 1
until FindObj(x,y,'hop',12174018,20);
end;
Mouse(x,y,0,0,False);
wait(500+random(250));
ChooseOption(x, y, 'rade');
end;
procedure SellWillows;
var
CBBM, CBx, CBy: Integer;
begin
if(not(LoggedIn)) then Exit;
repeat
if (FindDTM(WillowDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
Mouse(x,y,2,2,false);
Wait(200+random(95));
case Random(3) of
0: begin
ChooseOption(x,y,'Sell 10');
end;
1: begin
ChooseOption(x,y,'Sell 5');
end;
2: begin
ChooseOption(x,y,'Sell 1');
end;
end;
Wait(800+random(550));
until(Not (FindDTM(WillowDTM, x, y, MIX1, MIY1, MIX2, MIY2)));
CBBM := BitmapFromString(4, 3, 'z78DA3330000243030CD2C' +
'CC4D4DC848008320900F6350DC1');
if FindBitmapToleranceIn(CBBM, CBx, CBy, 450, 30, 500, 50, 50) then
begin
MMouse(CBx, CBy, 4, 4);
GetMousePos(CBx, CBy);
Mouse(CBx, CBy, 0, 0, True);
end;
FreeBitmap(CBBM);
end;
procedure Sell;
begin
WalkGeneralStore;
Wait(1500+random(250));
ShopKeeper;
Wait(12000 + random(3750));
SellWillows;
WalkWillows;
end;
{...><> Loop/Extra Procedures <><...}
procedure DropOrSell;
begin
case Random(4) of
0: begin
Drop;
end;
1,2,3: begin
Sell;
end;
end;
end;
procedure Loop;
begin
if(not(LoggedIn)) then Exit;
repeat
if(not(LoggedIn)) then Exit;
SetChat('hide', 1);
SetChat('off', 2);
SetChat('on', 3);
HighestAngle;
MakeCompass('N');
MarkTime(CutTime);
MarkTime(CurrentCuttingTime);
repeat
ChopWillows;
until(InvFull) or (TimeFromMark(CurrentCuttingTime) >= 15*60000+random(60700));
DropOrSell;
Loads:=Loads+1
Tloads:=Tloads+1
Proggie;
Until (Loads=AOL);
NextPlayer(True);
Loads:=0;
Exit;
end;
begin
MarkTime(TotalTime);
ClearReport;
ClearDebug;
SetupSRL;
LoadDTMs1;
LoadDTMs;
Signature;
ActivateClient;
DeclarePlayers;
if(not(LoggedIn)) then LoginPlayer;
repeat
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
If(not(LoggedIn))then NextPlayer(False);
Loop;
Until (False);
end.
Oh yeah, and Boreas, I wont send you any "crap" anymore. :D