SCAR Code:
{-------Instructions------}
// just fill in the blanks
//in the InitForm and hit
//run, start on the onpening
//RS page
var x, y, play, low, high, member, non, login, login2, afterlog,
smile:integer;
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
Button1 : TButton;
Button2 : TButton;
CheckBox1 : TCheckBox;
Edit1 : TEdit;
Edit2 : TEdit;
CheckBox2 : TCheckBox;
procedure clickbitmap(bitmap : integer; left : boolean);
begin
findbitmap(bitmap, x, y);
MoveMouseSmooth(x, y);
ClickMouse(x, y, left);
end;
procedure Startup;
begin
Writeln('----------------------');
Writeln('- Auto Login by -');
Writeln('- Joey0101 -');
Writeln('----------------------');
end;
Procedure Cancel (sender:TObject);
begin
frmDesign.ModalResult := mrOk;
end;
procedure gettodetailselect;
begin
frmDesign.ModalResult := mrOk;
if(findbitmap(play, x, y)) then
begin
ClickBitmap(play, true);
end;
if(not (findbitmap(play, x, y))) then
begin
writeln('rs window not open');
end;
end;
procedure highdetail;
begin
if(CheckBox2.Checked = True) then
begin
repeat
wait(100);
until(findbitmap(high, x, y));
ClickBitmap(high, true);
end;
if(CheckBox2.Checked = False) then
begin
repeat
wait(100);
until(findbitmap(low, x, y));
Clickbitmap(low, true);
end;
FrmDesign.ModalResult := mrOk;
end;
function worldselectcheck:boolean;
begin
if(findbitmap(non, x, y)) then
result:= false;
end;
procedure worldselect;
begin
repeat
worldselectcheck;
until(worldselectcheck = false);
wait(1000);
if(CheckBox1.Checked = true) then
begin
clickbitmap(member, true);
end;
if(CheckBox1.Checked = false) then
begin
clickbitmap(non, true);
end;
end;
function logincheck:boolean;
begin
if(findbitmap(login, x, y)) then
begin
result:= false;
end;
end;
function logincheck2 : boolean;
begin
if(findbitmap(afterlog, x, y)) then
begin
result:= false
end;
end;
function logincheck3:boolean;
begin
if(findbitmap(smile, x, y)) then
result:= true;
end;
procedure loginuser;
begin
repeat
wait(100)
until(logincheck = false);
clickbitmap(login, true);
wait(500)
sendkeys(edit1.text);
wait(300)
sendkeys(chr(13));
wait(500)
sendkeys(edit2.text);
wait(500)
clickbitmap(login2, true);
repeat
wait(100);
until(logincheck2 = false);
clickbitmap(afterlog, true);
end;
procedure runall(sender : TObject);
begin
frmDesign.ModalResult := mrOk;
gettodetailselect;
highdetail;
worldselect;
repeat
loginuser;
until(logincheck3 = true);
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 313;
frmDesign.Height := 186;
frmDesign.Caption := 'Auto Login by Joey0101';
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;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 51;
Label1.Top := 37;
Label1.Width := 72;
Label1.Height := 16;
Label1.Caption := 'Username';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -13;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [fsBold];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 51;
Label2.Top := 61;
Label2.Width := 69;
Label2.Height := 16;
Label2.Caption := 'Password';
Label2.Font.Color := clWindowText;
Label2.Font.Height := -13;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [fsBold];
Label2.ParentFont := False;
Button1 := TButton.Create(frmDesign);
Button1.OnClick:= @runall;
Button1.Parent := frmDesign;
Button1.Left := 51;
Button1.Top := 116;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'Run!';
Button1.TabOrder := 8;
Button2 := TButton.Create(frmDesign);
Button2.Onclick := @Cancel;
Button2.Parent := frmDesign;
Button2.Left := 153;
Button2.Top := 116;
Button2.Width := 75;
Button2.Height := 25;
Button2.Caption := 'Cancel';
Button2.TabOrder := 9;
CheckBox1 := TCheckBox.Create(frmDesign);
CheckBox1.Parent := frmDesign;
CheckBox1.Left := 51;
CheckBox1.Top := 90;
CheckBox1.Width := 97;
CheckBox1.Height := 17;
CheckBox1.Caption := 'Member?';
CheckBox1.TabOrder := 10;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 130;
Edit1.Top := 37;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.TabOrder := 11;
Edit1.Text := '';
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 130;
Edit2.Top := 61;
Edit2.Width := 121;
Edit2.Height := 21;
Edit2.TabOrder := 12;
Edit2.Text := '';
CheckBox2 := TCheckBox.Create(frmDesign);
CheckBox2.Parent := frmDesign;
CheckBox2.Left := 145;
CheckBox2.Top := 90;
CheckBox2.Width := 97;
CheckBox2.Height := 17;
CheckBox2.Caption := 'High Detail';
CheckBox2.Checked := True;
CheckBox2.State := cbChecked;
CheckBox2.TabOrder := 13;
end;
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 loadbmps;
begin
smile := BitmapFromString(8, 13, 'z78DAAD904B0E80200C44AFD4' +
'522365C9AFF73F12D1BAC0500C4659BCC5CC9B84544A624722D95' +
'39C521D4E8851B086ECE579D59B272B159FC8580D26A1DB91577C' +
'381E2A0D7FF8B39A57BE42DDFEE56BDBB16E218091F7ED270213C' +
'0ED4A436B38937CE6BC6503C9188C3D');
High := BitmapFromString(89, 24, 'z78DAAD5AEB92A3BC0E7C2530' +
'BEFEE492BCFF231DA31699D608F3656ACFA68A4D31C4D852ABD59' +
'21D5F539B62A46B2A214F09DF973A8569CE4768F312DD93FE8A27' +
'7399D3B49AFB7207D73ACDFB351A3FA9EF923BF86E7E3B18999F2' +
'CD33287E6EFF3DBFD7B47571EC1DF4935C4B9E46DDEC282FB7CC5' +
'5FBD0D7526F2AB6FD6FEEF57BC0B96C11CFC3C71ED0F955967529' +
'7B0CF0DF3E16778ED3C2630A33671D6F648F09EAD47ACCBF2EC1D' +
'B68F5A8C2CC936C4DC46BEE027BF99DB3778E0779512D3A26F8CC' +
'75C2E84E07BE80170CDE163CF1AD268E4BFE276B4A2EF118E2BE6' +
'A9B32D739DB35A5B6CB2B796DBFC5E5FF9A87C7D6D5BDAA6752DA' +
'94C754F21AA2F0CD2687C3CB3E65CFAFF9E8BC877CC303EAE8D67' +
'1FB942E753C2BACC37D61E709D7217C5C5ED6C3F7E6C29D79CF75' +
'85359DFF988FBFBFD92CF766CAF05B6DAF72DAE3B6C95EBB2C588' +
'18E459C14A7FF5EC5FAF23CEB94108B104D60B0F62455BAAAD16B' +
'DC65A8AE241D72ECF5CB1D9E79F788DF035AC815FC1861C2FFCFD' +
'99273D72980F6B5E5258157BF246F8A8476EEDB12B7363CB1BF61' +
'EF086E725E5D257DAB3AE4891C07840EC00152FFAE08E5C31C3D4' +
'E366496C018EA6FF6FD6F8EBD5CC4A22EB1DB67D8FEA65610FCF2' +
'7EF79DFB656726A49D73587E9B0CFE3AFB0C9FE6E6DFD85811F14' +
'21838CB2157BCA67047CC708AFBD1D2DB3476209DB6279BBCF77A' +
'EDFE43B9F239005180F1A2FB9D596700716C0157E6F4B396A32C8' +
'219B709641547A3C7CCF18FFCE2DE6ED32374416D00E8484655EA' +
'7953D0E3EC4BA182D8C19FC765BDAB6AA773A45949CAF714E7682' +
'5F3A7BF4B001C6AE083A558A57055ED18D6C025463157823CF0D6' +
'85404928A1EB1105B69EBB2A1CEC8AAC80518D9DBA4FFE664C275' +
'AAF3822BF0A9F8216CACA596CE748814CA2C7C355AE551818C54E' +
'BC8565ECD2AD38A0D911DE269A585F583B26E0E2D2413FB6207D8' +
'9C3183EF88116657A0829FC1C8AF8E85A6D90AD8609EFF266AFC1' +
'DCE71F08ECE90F2C87375E3D52CB286B22872AE5C31327B99DF08' +
'24702C0021AAD6E857CAB1F257CFCF5C49FDBB8A30350E231F4C0' +
'8BE85222286C79DAB66F9B164E7CA2537AC023CC016503B087E34' +
'13116702278C1FAC1457E801AF7E7D366184FBEC8F3C82B5A88F5' +
'EF33C15CC53E746B9DB287CA76FD986C84AC8179C3131262B8769' +
'9BB6392857104719BF88FD95D3D89EF8AD5C99D37C9DCBF6B9536' +
'8BF7514E3CA73E04D75B0E46C3DE22B32BC652DAD565D457DB5B9' +
'5C71B14CC79C98550C57C8F339C535461FB95CD55E4A06EAF7FC0' +
'EEBB1DE80AAF4153DAF1D6FEC75D27224A0423D288AC26B398F31' +
'AF3794CD48C16A5EC8CB1AABE10A8F0A594BED868E86DFD69EA53' +
'BFF089674B6C0C3DA9FBC22C869B0EBBB7844D8BE84B4C70C4DC2' +
'68F1AA9EBDEF6B6AD887913C42B58E2099650D752FAA3AB6B0CD6' +
'B2DAD7FE29ADBD6BAA66A732D8853C4146B728CAC318B0C4B150D' +
'7E056B235F63864085BE5DAA5A3C8FBC833BB00CF4094638F6AD9' +
'B895111CF4FD4D8943C858C60D4EC6355627855B2274781CF2016' +
'15C2638267CD475431B1360E6BAFE542F7F3AB1AA685ADA02E54E' +
'DD35F71BF867CA48C2A0FAB830D6113BC4B732BEC2057DCC793BD' +
'14AF251DDD877B3DA6BDAE6FEEB1A8EA08715BB493A335267105C' +
'7A3A9BFF011CB33AF2E31EC7D8C23F47F5DBE6C45BDE3350C6719' +
'A00B7A0CABE3AAD37451F02EA7F3815EAE0AF52A4F028D1FAEEEB' +
'136EA81C08F4023D7D79A73A93BC1F9D477217C0634DE97D922BE' +
'BACF964FE58BF19DC5CCDA09B160668E389E2DE24E47166CC0C2A' +
'C99818D8B0F4FE433B63F0CDF2DC6FA19BF2A3177F6C015488322' +
'E55A463D9E3B269A465091FA0B98A77529CF0B3EC13F98795EE39' +
'6B4BAD70E954487225F4680A7307F45BB2016D1C7990B16604B7A' +
'25A39D5BEAC67367CCE81FA9D1FC2A4C967495146731FE2D388DE' +
'B17CDC5145F5EDFF21B2FB52FBA8E6A9C1B54D0087857AF03F21C' +
'47237B158775695E9055F43775DF335BFA3ADD686CE10AF5CE4BD' +
'AEA400579076FC7331CD7DDF2FB1C4DFD8B4C2D9C891180C99B8A' +
'80B23C3217708B2C83F77685DA42F9540D3D5BF93E09E7626500A' +
'8145EC50015CF7D7546C5847F3267F585443DEC9053DAD355F530' +
'3B95AEEC34E23476C4DAAA07BCD263CE7459CF6743C592EF84880' +
'5982BC072CCF6DC0D60D5A733171C2A2A248FE049667E20163631' +
'AA9E225D3BD8321FB598AB893C2A580FFBBC2CD551F57E1C55765' +
'E218F2A53D6879E31C0788C0ACD1DB216E4D99EF55B0AF03B7742' +
'98B14D6F442208774E159A039E0163001B888EFF40055B5EACA7B' +
'9D55522E8E1302F79AEE31C6DB9F19C491F7DE933970C8208E52C' +
'6FE6C61A2CF54AEAF269ECB36A1AF52DD7A4A840C619A1FDAA22C' +
'F7A01F384AD34BA29D6ACDABFAF473852B0F6610641B4523795B9' +
'577B351CBF98B3588947307E17EB8D7C8A67C02ACCA2DC2932FCC' +
'6DE5FFB7A1653C1B1F588DF10F5DAC1A3DE0B72BDCE936290332F' +
'73453A3F89192385A5EB78AEF81899EC35B0BDF5EFC98ACC5DB10' +
'BA57483768CC63C8399B35519155E5D8C77E84EFCB0FD31262214' +
'57BC8BB181F1A199A1F3B51FCE0A59B842733D542BBA5B50EC9C2' +
'55D34A917E4ED6C3D56BF6A017A637EE556325B0FBA17F1C8BAC2' +
'774D55A3A2BF27317B933D252F7B757DD5836797039A44350F451' +
'9F8077E0473B2B5D586827CAEA1302BD60F8C76DE07C11BB943AB' +
'1DB65359A49462E85617F5C8DA92CF7E188510E2BE64ADA7FC2ED' +
'8E80E2A85D4CB99C89D4C5F3DE157581D7002FC60B61C35DA3347' +
'0617E4F4B5EC31AA76A23D17D80D76D0BFCA5B30B2C9DD9AD1E48' +
'D124D5A8549858E4E0BB08D19B69ABBA030FB0B4E9FEB2E3CF697' +
'ADC65E960F579F57AD34B9472438BFF60ECEE77975A88E9925141' +
'5A458CCBAC40E76A7E6EC927195071F01E7BE1FCE7D06AC4BF76E' +
'9EF7467DB52EF7D1F9E71AFCEA7B9CD9CDF00669429D21650178C' +
'1EFD2C2325CB57117C8F6A64E3BE86E8E70026CA8BB5732262CAF' +
'A705D6B2E6DD54C4A86AC583AC2A3F7B615D7DB10EC1F904D554E' +
'DDC43C2DC7E554F1FCD06DDE56DA5BB06E27774F0AE8EA8286ACC' +
'9C3220AEE0C3AB93F9D3FBBDC90E92894C9FC4F5FDF8B409D6025' +
'47046B09D961F6B2B3BEDF1486FBCCB5628AE2B8EAE9D5CD58F6E' +
'FEFC2ED88D7B02FE79DF2DE7AE3B5755ACDC582572D705D880964' +
'017917FCB0A4A77285C6FF0A67B4FBA943B8A3C0EFE0AC6E30E9B' +
'99A1BC9D59A8C4BCE52B7B0AF27986C3334E34329FA8B9E97E930' +
'2B7750A7DBFF6824F2DED4E5E999D1DC9B3C66BD455FE85E1CFDE' +
'BADFEFE03A88BBDCFE1953530F3A27DC33F7BE1B9D0AF33BE69F5' +
'319F94E8DF0B926BFFFC2CFF38E369FFEF25D44AE113AE5D6BC72' +
'1E813EFF7427CECE837488FDBA783FC5EF9E3FEF33DE9CC9A4F92' +
'BB70C76A04C64C90CD9B6668674C28D5997C7F99C07EBB1E44FA7' +
'7CB393CEB1E94F4F8DBAB286E7F5CCDB69677F76C5D771D0697C8' +
'7F1CFA7E01839BE07CE5186B773DEE1EE3AB41F14239E34798D74' +
'23AB8511366E4E2928D27E322647C4C8E61E933C025B0F76F06C8' +
'FD9FAFB37F98EB87774CAE2B90FF37C9E8751AA5E10ACF2DCF819' +
'D89C9160BECB1EB76730C583CC07DF5907225E7E9D16FB74E0E12' +
'3EC1CB116F5AC32E431620C3DE9E7E6EFADFD7CEAC3AFDDF89714' +
'97EE37F5D5473337462FEF3E7CE3598EBEE773ECA388F067393C9' +
'F8FEE786B73D47B96F0F601C64668646CE0ED7AFE44F801A8F868' +
'EC933106B5B93FF3C61A1258D51DCCC713BC5E5D8C6CFE7C1654D' +
'F35AA761F4F0C7E7F2EF79B339F7F3D01FE3FBBDFD631');
Low := BitmapFromString(25, 12, 'z78DA655451AEED2008DC920A' +
'087CAA6DF7BFA4E77538097D4D13D220C23003F25DBC305969A57' +
'6AD52061FCFD7AAB2B1ACC77DD45955AD4E31377DE6356F7AEEF3' +
'B5B91667CF5053EB719A23C7DD2F5B6BF258E1EF17AF07A7A868A' +
'5AE4A1943F6000FE2BBF0606EA3D83EBDAA366A3BB4D4A8F5C136' +
'DBACC348899A77ED22F6C2DC7DBA9091936C5E36334E7AD9F66C7' +
'EC4A8ADEA992BB0A7856AF3E8E274475AAD7664C03F69D1CADD68' +
'F28B257C97AE67BD6E19EB54C6E9464FB3D456AE22B0C46DB59F7' +
'6C4DE02D5E85DA545BF0749D893A76AA5E2A2BB3F0163A808DE80' +
'0191A1CEB90B24B8BBEB7AF58C5F6C7FC2DAE666142A48B36AC00' +
'62DC0CFED63F878E587E2426BDFED8DAB736FDE04B7F0BF64DC1E' +
'3CF0D6A5696438FECC989357D39C1FFE8D6E31E36EB077D484224' +
'01BDAA539041BE81A08510B19AE356571C4C053968D07CCF4CD09' +
'77C4DB56A4F7176387FFF0A78DC818807F8B6A1A8A7FD5D9C3EB2' +
'298A898ABBAE674CC46686DCD5A6CCA3DA7CC829CD8CDAC323ADA' +
'222CEA796602F9B1D83BF00654E834AB997B1943656B7FD886A6B' +
'0D26835035AC403154EB1D1395BBEFBDBA63F1B1EC396FDA18A5A' +
'670E733C78C0CEE65B31ABC8895DD6BF0E977BF75FC593133B32D' +
'9F6F3078479C231AB315178B54EFCAEBB95C0FF6F2FCEECA17A7A' +
'43F25BF7EBE57F7FBFF6F651C69F7BFCFE475DD8CFAB1EBC25FBA' +
'A75DE93EF5B877FF4F5BD15FD7E637E6C6C1530AB7813FAACB3D1' +
'CB7E2A6624614F648E41AD7CF78B3F63CB5DFF037DBD8D95');
play := BitmapFromString(52, 12, 'z78DAA5975B96E3200C44B764' +
'DEF08931BDFF250DA1949E72043D3DC947383E5846D2A5248873B' +
'6D9E332674AED7FC7E6EA99BCF7EE72C6CD75DC61A369F6CBA6D5' +
'9A9877D9766BC55E8F6385E5BC1ACF5E73F2BBA89CB5D55C2E8EF' +
'5C4D7F805730EDFC55C7904E23B7F956AACBEE12BB19CA3789C31' +
'E723762FF688F33D6E184BC9213CD727BFDA52E2BF6C7EA147AC9' +
'097440ECB993BCF87168C4B3756ED74A9F04C34C1B97EA34DB109' +
'F95643B2BCC2D040B515BEA00158FAE2C697EC65C70D2BB87378F' +
'3C811BACA39C5606E31E7FA95221380DF85DE2607894AE94732DA' +
'EC387F8B9DD27BB7DDCD19BFEC027438E735FF1ACA11ADC440716' +
'25E6B60C1CDB8680B73E31C175A7AD18F59285368A05A2923AD37' +
'A977688C3977576CE47DE7AAE4CA850DEC17954ED16AE6F18A870' +
'F58339650DDADA24BCF25F42D0726F6D4DB506031E90A71AB3752' +
'DD624D289FF4BF50DDA42AAC68DF31A651B43EF09AD0BF742D550' +
'BB0FF667599AEB9B9E682ADC8E2A56F8F7CF1CC994A25CE153EEA' +
'6FC72079B1FE776BF2A921649492F92D77723CD75E72BC55966FD' +
'E3A2F5D683EDFEA6EDACBE9C023FB9DCFD098D6C3761766BEEF11' +
'3B4BB5B14399D23DA8E2B6FD8D7AD7E2844587649BC90D9DF9C6E' +
'41A4C6E1D0C4C30CF96C13CB21562A8238C441291D45A7C0C3A72' +
'E14F5EA0DE5FDD3A66C700AB7CA63ABA2E88718EE8E49B3A159B6' +
'88D29C2907B1D7739A80E7B3167FE51834F02C696452D8F5B4678' +
'5242C7E32E447795A1D8A1F545B79FF3DCB5E06BD7E751CBB791C' +
'F0BD60668908AB6DCF88EA1AA5BD3C33CF79937EF997612636EFA' +
'D49B0C7737A81BB7B9CECEF237DCA46B29D56DEB54D7E68FCFB88' +
'97DD281E5941C27E3D02713E36AA5D37CCB4D55FA526F8FD3E7A1' +
'CDB6E5C60A817270024E3E5BEF3AF21FB9E1DCFF9C9BDC1FA8A2F' +
'FC6FFBDEF3F474EDCC06161396DF056C6639CD7F165A7E0FD4198' +
'F2DDEDDAEF47890D37017D5B639DA82A93B7B85DF02D82FE11688' +
'D71B7D9D1608F7F009D4F387D');
member := BitmapFromString(23, 19, 'z78DA55965B7225390844B7' +
'A417027DEA51B5FF25CD01953DEE880E422D53902409BA6DD69D4' +
'55A93BCA5D7951FB13A4B695A6BB6D6ABE4D166EDF934AB2DAFBA' +
'CACA0D7B726D8D9BD99E7A4A965A477EDA8BFFE4DB9E377F1DF9D' +
'4C53935A987687E3FA5D45DB868A914B1D60A976D14C7D0F3CBCD' +
'E07EB55CBAC72CFEAD64FE1F781CD56AB5BC59895FC8B2F0C952F' +
'0AF325AE7AB176B32892F117F44CCDDDE2678263E4BD2B182F52C' +
'BB69B15EDA2AA3573C1B55CCFC62173C9CC0906ACAB05373B6BA3' +
'93B1281935315CC059F0A7B0FD116D95534B22818B2687DF9ABF1' +
'5789B386678BEC7F6D018915ED090C2A8EB6C1397989B27282B59' +
'5DE6A65A603869C210CEA9664A2FDE47AA9D723080C1CCED458DF' +
'7C40B8F2E07CE8AFD2F1F7B39DA8B047BD0F6C3FDC48C4D944106' +
'A69603330C340D969C08826AFD6697CB959CE4F76FCF4858C960F' +
'D92D6F7A0A36ACB8A25AC2CEA851C130038938E6EC5CC12AC564C' +
'ED97512DA482081FE0FCF4522D432F758DD9EBDB0BA9FA576C2AE' +
'FD62479C85B359C3764B0790564E5962435C878B4A675E7EB083F' +
'53887B3F0AD594752490F48DEA03883A4526B0327F08399BAFB7C' +
'F1740C8BF81D51904B1F22889EB09B7BD5E7B319BBB1451748BA7' +
'5692039AEB13CF1113347A22FD62C81A7A947167D34CB2CCE49A6' +
'8F2D74ABCE868AA0537255906CAFEEFA5F249E97363CAB855510D' +
'EF38B6789DA6B7C6B81E4B948C287715EA6C7EBD215C81D61551D' +
'5D8FA705C90609934B4FA5F441CDFCCBC1619F0FD9DB5A263E896' +
'0F6EE6F74D251B2ABC5428D4B5034B33C99A31E5DAE9F0EBD47E3' +
'B2FA07C3DE655A3F7BAEAC798D99BAA18A4A7CEF480749256C1FA' +
'FF6DFBE0FD3CBA76B8FBC1AB390C93263C6D73F48E226ECE166F9' +
'4CE1FFF5F7EBA0E339635B6923585AD1DFB737B647214B29891D4' +
'29BE960B71D3A2CE8A4D1D30D87F3E2F16F19508F2CE1D96E5F6E' +
'8F3C9739573DEDB6D930BE63671E5FEF50F2C7C963D26765194CD' +
'31C918BD57EAA4F1CDBD20A62AEDF8CA439547FB5AA3F11AED2C2' +
'EE3F1AF6F3B54D5DA59AD439C98EC7B2FE8F33B4012717C91CF6C' +
'A269AAFA9624B063B99553513E5CE98329D8ACF1B3EE9EBECADFD' +
'CEE0BFD699B97693B1C536933B3BBE4551ECED752009CC8497B70' +
'CDB0C490767378E68B2B39D6A9A7BCEA372F53FB2F636BEFD106C' +
'C456CCA190FC6D27210B86FB1AD9EFE47EBB08BB41E28AD5E0ED0' +
'D3606D1861E6D72D8C64B7A59DFAE8819276FAB3EEFCC140F245F' +
'75367139BF48BAE53F7BF20D0C3FB6FB360E3CE7BB29B1D5EFB97' +
'2EEC158219A7D8A5D9DCA7CBEA868B2DF8ACD8F739DB33FC19B81' +
'10D97E3BD623A4AB0759DC5830F344EDD4439CF531E0487C9A0C6' +
'612940E746BCC11C5E5F6ABED1FBDED78232A4B66E7360549A66F' +
'BE1AB9664C13984695E37BA6241EBDA20D6C57BD12B3D3BF8D97B' +
'11A93A5B1331DB3B2BD1DBF9A7DBF61069BC7AE7EAE42AE159730' +
'9AAE921817DDEDF934E91D19D1CD3A2AEA6FF12A4D22ECC888C2E' +
'E5C80A4C59ED1981AFBB1BF9B1FE6438177EF3D54CD98528BB0C8' +
'626F04C328B995749AF7BAF0836B96F7A2C5A7C4AB0125F10A5C2' +
'4FBEEFC504B0B365C45D4EBA8E215737EE21C8CF550FBF53FD19D' +
'13485C93162FE97D31D534BAC92F21F4BFD9CC039F41AEF9FB3EF' +
'261CC85FF46DA79FF07FB30493E');
non := BitmapFromString(25, 10, 'z78DA4D944B76C5200C43B7' +
'146CBE4303C9FE97D46BC3693BA80F0547C8927833D93BE654AAD' +
'D9AA9AF0EADD2B46A9632C53E7B38353ACD4F633DE8DCEC88ADB1' +
'A6E36C5393FEF6D5676B45F3D64F2708065A96574D8B7CD1FFD2B' +
'F4667BD4763FDB13E4CB88B53B1C9CE432DD15F67A1D3743B1F70' +
'441AB74F13988CB1A90D1C8155633DE9AF81165FD96B7D78E7BE3' +
'D257FB96B3F7C54E5954EE70A9C3E32C8837BFDDB7E6F3F4C7C5E' +
'EF59A1D54281CAFE805512D52E9F54A630B412102C98F47FAC7AE' +
'C7767FE7B7AD8FABD329EDE5AD5C674EBD4AB73A5E65B0BB5DEDB' +
'43431416D9B8B5251F656E6DB02AB264C8E30AA3954FD1C2DFAEF' +
'E45C59FC1B70B1D667E587F55CBE29F42E7C78D23662F43B5E883' +
'8F194C0BD70CCC39606FA56F385411CEB624553A1B8E3FE2CAA8B' +
'8CACBF5E1DC59A9746A165207768A296AB853C029E2B561D742D1' +
'0DC220392F3BCE67A16D0B3D8FF2EA9AF307FECD4F0207ADA6705' +
'A54D30B8F25FE67E92FB723106C2C109C732103284F2D3751F56A' +
'B586BF82044E41D5741866D525AB1562F961A5A722326375BC6E2' +
'9A8E34C1AD31DA7AAED9BAE0F9E275185B59F0EF65DE714FE76D4' +
'7C51ECB032D793FDC3CAF3F33F03EEC5F8CDA4C5BADF44D5D9FD8' +
'5C27315FC8E5464D0CA7DB9E9724037F2D1599F9D071CB919F697' +
'38E2B45E5691735825A67347241CB1A8E3EAF0F11E7DDF598553F' +
'74D059F6EFD69F924F67807D68783678A33DDF128D4B8AF269878' +
'0EC839EF162F3C8DA2EE7FB9F93F0EE21AB9CA70B68B7098C4ED7' +
'72758C172F55E6A9EE475A18FFF4E6DF13B3E71AC57E4BED612FA' +
'C48C289853768FD3E61B4BDFE5209C7822B73CECC3849E25394E7' +
'D96CFF42A1F93A261969A2B2F2F8FD47BC32AEE3A0C2BBFA3DAD2' +
'D53CD0C05A22819F2EAB9387F8D5F217952279F0F129CA0F24FA5' +
'3FB');
login := BitmapFromString(22, 5, 'z78DA8D91410EC0200804BF64' +
'EA62EDD1A4F2FF27351193AEA15AF7C001108745F5150E0015194' +
'5106B545CCAD596B738E46FA8941E5B359038AF1305274972A668' +
'D126ECBC357E9D6CB4FEB14FA01D3D8327E1B7E69867F093D7BB7' +
'46622DFF1C1FA8DC1DF6E60A05D98FFA39348F66FC1243F0CE409' +
'3BF3001A7199BF');
login2 := BitmapFromString(19, 5, 'z78DA8D90510AC0200C43AF2' +
'4261BEE53C1DEFF4803DB8F0CE9B01F416288AFB2929CE818242A' +
'80E1672EDF1513C627324B4D266EB70C6E3496E874754792964C3' +
'468F3D222E36CF63BBA91FADAF3C93BE1BE63B2BBB6A9B3B365CC' +
'EE6784CE7F42CEC67EF1FCC59464FDF309C90B39FF8760');
afterlog := BitmapFromString(23, 14, 'z78DA8D944B0EC3200C44' +
'AF6448489B657FDCFF48AD1816CF9A5295851539666C8F195FFA5' +
'66BDDAF51238E578DD264E5D9EEB145B4164794CB883CEEE511A7' +
'BE3B8EE2E969B7D2E2EAFE18477EDAA3954F2A66A79DD947CCEA6' +
'EB71338E763EFDBB3FF7158897A57167D8B01C5C8F32566DC0D3B' +
'E2449508217E1ECE45B3201BB242A3477656825E3C86D67B9C1EC' +
'C7172323CC4240FCA986AD0BB5225FC2B1CF393615692708C9384' +
'460420FB8BD22D763D71F48DC9F23D103FB1273420B086E981CAA' +
'826E23092ACAEB4902A0733CE302BE164939A941D319CA3907D46' +
'EC853C70873086088A210F290B6FD9765ABE1FBBC5BBCCF27BFF9' +
'007C5B35A8FF18C531DF6978A4B68ECC594CB4ABE28D7F4955E26' +
'77C28231DFF654377BF189733FF095AE9495FEDAE6F14D9BDEA45' +
'9DF0C695F2DD0E82793D4BEEBC215ED5978D7B5E6BDBF01C2D194' +
'EC');
end;
begin
loadbmps;
Startup;
SafeInitForm;
SafeShowFormModal;
end.