SRL Archive - RS Scripts

This is my first ever fully working RS script, a simple auto login!

{-------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.

:spot:
Evryone is soooo glum, No apreication or Encouragement What so ever :( makes me feel so sad and lonely:(

Nice script but scar script is easy! i can make 1 line a minute including typing times so please try and learn scar! it will show us that you do have TRUE skill not some easy scripting!

From: wade11
Nice script but scar script is easy! i can make 1 line a minute including typing times so please try and learn scar! it will show us that you do have TRUE skill not some easy scripting!

Man WTF Are you talking about?!?!!!!! This script looks very cool!

I tried it now, It worked very good! I'd like to see you making more scripts. :D And if you are going to make a new script, You should put SRL include there.

Nice work. Congrats on jumping into forms so early. Good standards. You don't really need to change this here, but in the future, use smaller bitmaps, unique thin rectangles.

From: Boreas
use smaller bitmaps, unique thin rectangles.

Ill try to use smaller bitmaps but i dont know what mean by

From: Boreas
unique thin rectangles.

PM me for answer please

Thanks for aprrecating my hard work though!

I'll answer here as other people could find useful and my pm folders are 97% lol.

'Slices' work well because they cover a relatively large width/height compared to their over all size (overall size affects speed). A slice is a thin rectangle, like this
_____________________
|@#%^$&*(@*(&@&(&|

This covers a width of about 15 characters (representing pixels) and is only 1x15, making 15. If it was just as tall, it would be 15x15 which is 225, considerably slower.

Now being smaller, it means there is a higher chance that this small piece is also found in another object, so you need to be a little more careful when choosing where to take the slice from. That's what I meant by unique.

I think that's it, although I'm better with DTMs, so you might wanna find a tut.

Oh, thanks alot, your explanation was perfect, much aprecited(my spelling is AWWWWFUL) ;)

From: wade11
Nice script but scar script is easy! i can make 1 line a minute including typing times so please try and learn scar! it will show us that you do have TRUE skill not some easy scripting!

You have no right to say this, didn't you apply to be a SRL member with a coordinate based auto login….

I have right to say anything i want bozo

From: wade11
Nice script but scar script is easy! i can make 1 line a minute including typing times so please try and learn scar! it will show us that you do have TRUE skill not some easy scripting!

Anyway it dosent even make sense,plus most of us can do more than 1 line a minute

how did you get those percentage done thingys for you sig?

From: wade11
how did you get those percentage done thingys for you sig?

Click on it!

just found that out last night!

Wow… Pretty nice!

From: wade11
Nice script but scar script is easy! i can make 1 line a minute including typing times so please try and learn scar! it will show us that you do have TRUE skill not some easy scripting!

wade don't be like that, i can script three times faster then you, i sat down and wrote my alcher in one hour with 800 lines (Thats Like 13 Lines A Min) and i know there are people that can script faster then me, don't brag you should encourage him because this is great for a first script, especially considering he used FORMS!!!! congratz Joey i hope you continue to script seeing as you are doing well at it for a beginner

From: Pmh1000
wade don't be like that, i can script three times faster then you, i sat down and wrote my alcher in one hour with 800 lines (Thats Like 13 Lines A Min) and i know there are people that can script faster then me, don't brag you should encourage him because this is great for a first script, especially considering he used FORMS!!!! congratz Joey i hope you continue to script seeing as you are doing well at it for a beginner

Many Thanks Pmh, but unfortuneatly im going back to Java for now, no idea why.

Good job, keep on reading tutorials, and don't hesitate to ask question about something, even if you think it's stupid and everyone will laugh at you, ask it! There is a saying in bosnia:

''The one who asks is stupid for 5 minutes, but the one who doesn't ask at all is stupid for whole life.'' :-)

Post threads, ask, it wont make you stupid, just smarter.
Yes, btw, do not underprice your work!
It's all valuable! Just keep on scripting, and keep up the good work!

I hope to see a fully working script with SRL as include from you soon!

P.S. Don't listen to flamers ;-)

Cheers,
c0de.

kl thanks

Many Thanks Pmh, but unfortuneatly im going back to Java for now, no idea why.

Actually, thats not quite true, I may start working on my aircrafter when i can be bothered

WHat? U know Java?

hello i want a auto wcer

is there an auto woodcutter here

On this thread? No.
Elsewhere? Put in some effort and look.
Don't double post.

In Reply to

You know Java?

Yes, as a matter of fact, i do, i got about year and a half experiance, i used to make some scripts for aryan(Good old days)

Simple program:

class helloWorld{
public static void hello() {
System.out.print("Hello World");
}
public static void main(String args[]){
hello();
}
}

and the output:

Hello World

Not bad for a twelve year old, eh.

From: scxbabeilikyadic
hello i want a auto wcer

Try StarBlaster100's Free Scripts

scxbabeilikyadic is a leecher so obivously only 2 posts in 2 months or so lol i got 28+ in 4 - 5 days :)

wtf is it ment to do

Nice script but i dont think this is your first no offence.
I mean this is really good to me.
the only thing i've done it make an auto talker and corrdinate based auto login, when i try to load the btms it freezes so i cant

Talker:http://www.villavu.com/forum/showthread.php?t=6118

Login(basically only works on my comp unless u got same, lol):http://www.villavu.com/forum/showthread.php?t=6108