Page 1 of 2 12 LastLast
Results 1 to 25 of 28

Thread: My first RS script!! WooHoo

  1. #1
    Join Date
    Dec 2006
    Location
    London, England
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My first RS script!! WooHoo

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


    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.

    Evryone is soooo glum, No apreication or Encouragement What so ever makes me feel so sad and lonely
    Current Scripts:
    http://www.fenjer.com/adnan/SRL/16/100/AutoLogin.pnghttp://villu-reborn.com/showthread.php?t=5219

    Currently Working on:
    http://www.fenjer.com/adnan/SRL/9/5/air%20crafter.png

    Join the rebellion call kaitneiks, cakemix.(just thought i'd add this, soo many good memories)

  2. #2
    Join Date
    Dec 2006
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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!

  3. #3
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by wade11 View Post
    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. And if you are going to make a new script, You should put SRL include there.

  4. #4
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    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.

  5. #5
    Join Date
    Dec 2006
    Location
    London, England
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Boreas View Post
    use smaller bitmaps, unique thin rectangles.
    Ill try to use smaller bitmaps but i dont know what mean by
    Quote Originally Posted by Boreas View Post
    unique thin rectangles.
    PM me for answer please

    Thanks for aprrecating my hard work though!

  6. #6
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    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.

  7. #7
    Join Date
    Dec 2006
    Location
    London, England
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  8. #8
    Join Date
    Nov 2006
    Location
    California, USA
    Posts
    336
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by wade11 View Post
    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....

  9. #9
    Join Date
    Dec 2006
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I have right to say anything i want bozo

  10. #10
    Join Date
    Dec 2006
    Location
    London, England
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by wade11 View Post
    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
    Current Scripts:
    http://www.fenjer.com/adnan/SRL/16/100/AutoLogin.pnghttp://villu-reborn.com/showthread.php?t=5219

    Currently Working on:
    http://www.fenjer.com/adnan/SRL/9/5/air%20crafter.png

    Join the rebellion call kaitneiks, cakemix.(just thought i'd add this, soo many good memories)

  11. #11
    Join Date
    Dec 2006
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  12. #12
    Join Date
    Dec 2006
    Location
    London, England
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by wade11 View Post
    how did you get those percentage done thingys for you sig?
    Click on it!
    Current Scripts:
    http://www.fenjer.com/adnan/SRL/16/100/AutoLogin.pnghttp://villu-reborn.com/showthread.php?t=5219

    Currently Working on:
    http://www.fenjer.com/adnan/SRL/9/5/air%20crafter.png

    Join the rebellion call kaitneiks, cakemix.(just thought i'd add this, soo many good memories)

  13. #13
    Join Date
    Dec 2006
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  14. #14
    Join Date
    Oct 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow... Pretty nice!

  15. #15
    Join Date
    Jun 2006
    Posts
    54
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by wade11 View Post
    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
    “If you find it hard to laugh at yourself, I would be happy to do it for you.”

  16. #16
    Join Date
    Dec 2006
    Location
    London, England
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Pmh1000 View Post
    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.
    Current Scripts:
    http://www.fenjer.com/adnan/SRL/16/100/AutoLogin.pnghttp://villu-reborn.com/showthread.php?t=5219

    Currently Working on:
    http://www.fenjer.com/adnan/SRL/9/5/air%20crafter.png

    Join the rebellion call kaitneiks, cakemix.(just thought i'd add this, soo many good memories)

  17. #17
    Join Date
    Apr 2006
    Posts
    710
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  18. #18
    Join Date
    Dec 2006
    Location
    London, England
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    kl thanks
    Current Scripts:
    http://www.fenjer.com/adnan/SRL/16/100/AutoLogin.pnghttp://villu-reborn.com/showthread.php?t=5219

    Currently Working on:
    http://www.fenjer.com/adnan/SRL/9/5/air%20crafter.png

    Join the rebellion call kaitneiks, cakemix.(just thought i'd add this, soo many good memories)

  19. #19
    Join Date
    Dec 2006
    Location
    London, England
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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
    Current Scripts:
    http://www.fenjer.com/adnan/SRL/16/100/AutoLogin.pnghttp://villu-reborn.com/showthread.php?t=5219

    Currently Working on:
    http://www.fenjer.com/adnan/SRL/9/5/air%20crafter.png

    Join the rebellion call kaitneiks, cakemix.(just thought i'd add this, soo many good memories)

  20. #20
    Join Date
    Oct 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    WHat? U know Java?
    http://www.fenjer.com/adnan/SRL/8/12...ner%20v.10.png

    Al Knarid Power Miner will be a FREE miner when released as BeTa!

  21. #21
    Join Date
    Jan 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hello i want a auto wcer

  22. #22
    Join Date
    Jan 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    is there an auto woodcutter here

  23. #23
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

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

  24. #24
    Join Date
    Dec 2006
    Location
    London, England
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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:
    Code:
    class helloWorld{
    public static void hello() {
    System.out.print("Hello World");
    }
    public static void main(String args[]){
    hello();
    }
    }
    and the output:
    Code:
    Hello World
    Not bad for a twelve year old, eh.
    Current Scripts:
    http://www.fenjer.com/adnan/SRL/16/100/AutoLogin.pnghttp://villu-reborn.com/showthread.php?t=5219

    Currently Working on:
    http://www.fenjer.com/adnan/SRL/9/5/air%20crafter.png

    Join the rebellion call kaitneiks, cakemix.(just thought i'd add this, soo many good memories)

  25. #25
    Join Date
    Dec 2006
    Location
    London, England
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by scxbabeilikyadic View Post
    hello i want a auto wcer
    Try StarBlaster100's Free Scripts
    Current Scripts:
    http://www.fenjer.com/adnan/SRL/16/100/AutoLogin.pnghttp://villu-reborn.com/showthread.php?t=5219

    Currently Working on:
    http://www.fenjer.com/adnan/SRL/9/5/air%20crafter.png

    Join the rebellion call kaitneiks, cakemix.(just thought i'd add this, soo many good memories)

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. kikwit gains membership, woohoo
    By Kik in forum News and General
    Replies: 14
    Last Post: 08-25-2007, 06:13 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •