Results 1 to 23 of 23

Thread: Help, whats wrong

  1. #1
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default Help, whats wrong

    I dont get errors , i start on the runscape homepage and it clicks on play, then the mouse doesnt move to click low detail. It sits where it clicked play. So can anyone help? its my 2nd script( actualy my first script but second version). So If anyone would help me, please do so.



    SCAR Code:
    {1.Have rune scape open
    2.type in your messages
    3.Drag crosshair to runescape.
    4. Hit play.
    ----------------------------------

    This is Version 2
    It includes....
    Moving mouse randomly(i dont know why i added it)
    IT disguises Scar to say Itunes
    It has up to 3 messages
    It auto logs you on from main page( just edit lines 157)
    It has a form thats not needed lol. Just was bored.
    -------------------------
    not sure if im making a version 3.

    }
    {
    ======
    =================
    =============================
    ========================
    ============
     Cnr}





    program AutoTalkerVersion2;
    {.include SRL/SRL.scar}

    var
    coords,color,variable,Send:integer;
    mainpage:integer;
    lowdetail:integer;
    Members:integer;
    ExistingUser:integer;
    login:integer;
    clickhere:integer;
    con:boolean;
    frmDesign : TForm;
    Green : TImage;
    Username : TLabel;
    Password : TLabel;
    User : TEdit;
    Pass : TEdit;
    Start : TButton;




    const
     Message1 = 'l' ;//dont forget to type a message in
     Message2 = '2' ; //
     Message3 = '3' ;  //  if not using all 3 messages delete the space inbetween..
     waittime=1000;//dont touch
     
    {=--==--==--=-=--=--==--=-=-=-=-=-=-==--=-=-=-=--==--=}
    procedure buttonclick(sender: TObject);
     begin
      frmDesign.Caption:= frmDesign.Caption + '.';
      frmDesign.ModalResult:= mrOk;
    end;



    procedure InitForm;
     begin;
      frmDesign := CreateForm;
      frmDesign.Left := 44;
      frmDesign.Top := 234;
      frmDesign.Width := 696;
      frmDesign.Height := 480;
      frmDesign.Cursor := crCross;
      frmDesign.Caption := 'frmDesign';
      frmDesign.Color := clLime;
      frmDesign.Font.Color := clRed;
      frmDesign.Font.Height := -14;
      frmDesign.Font.Name := 'Comic Sans MS';
      frmDesign.Font.Style := [fsBold];
      frmDesign.Visible := False;
      frmDesign.PixelsPerInch := 84;
      Green := TImage.Create(frmDesign);
      Green.Parent := frmDesign;
      Green.Left := 117;
      Green.Top := 52;
      Green.Width := 105;
      Green.Height := 105;
      Username := TLabel.Create(frmDesign);
      Username.Parent := frmDesign;
      Username.Left := 37;
      Username.Top := 55;
      Username.Width := 66;
      Username.Height := 19;
      Username.Caption := 'Username';
      Password := TLabel.Create(frmDesign);
      Password.Parent := frmDesign;
      Password.Left := 36;
      Password.Top := 138;
      Password.Width := 61;
      Password.Height := 19;
      Password.Caption := 'Password';
      User := TEdit.Create(frmDesign);
      User.Parent := frmDesign;
      User.Left := 108;
      User.Top := 51;
      User.Width := 121;
      User.Height := 27;
      User.TabOrder := 8;
      User.Text := 'User';
      Pass := TEdit.Create(frmDesign);
      Pass.Parent := frmDesign;
      Pass.Left := 108;
      Pass.Top := 132;
      Pass.Width := 121;
      Pass.Height := 27;
      Pass.TabOrder := 9;
      Pass.Text := 'Pass';
      Start := TButton.Create(frmDesign);
      Start.Parent := frmDesign;
      Start.Left := 109;
      Start.Top := 186;
      Start.Width := 75;
      Start.Height := 25;
      Start.Caption := 'Start';
      Start.TabOrder := 10;
      Start.OnClick:= @buttonclick;

    end;

    //Procedure 2:
    procedure SafeInitForm;
    var
      v: TVariantArray;
     begin
      setarraylength(V, 0);
      ThreadSafeCall('InitForm', v);
    end;

    //Procedure 3:
    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

    //Procedure 4:
    procedure SafeShowFormModal;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    end;

    procedure log;
    begin
    TypeSend('Username')
    Wait(500)
    TypeSend('Password')
    wait(1000)
    end;

    Procedure LoadDtms;
    begin
    Mainpage := DTMFromString('78DA634C666060B06440016A8A92609A11CA6' +
           '73C01243850D544844560AA49465513151583AA861D4824A2AA91' +
           '12E14555C386695756760EAA1A9019ACA86A0AF2F330D5A430600' +
           '5286E3626A006E46623FC6E0600233F0AF9');
           

    Lowdetail := DTMFromString('78DA63B4636060D0634001164C8C0CBF80342' +
           '310FF0702463620230C558D9A8A24986684F219D3814410AA1A53' +
           '0D565435AD408203558DA8201BAA1A0920C189AA465C9813550D0' +
           'B90104173B3289A5D6D40C211558DAB25AA1A00FCB20A47');


    Members := DTMFromString('78DA63CC63606070644001E7B63433FC02D28' +
           'C40FC1F0818D9808C4006AC80114683D41811A1468C801A6320C1' +
           '44404D3C116ABA8850B39A083547895003F257260135AC40A29C8' +
           '01A6E208B03BF1A007B010C03');

    ExistingUser := DTMFromString('78DA6374656060106140014E2E7E609A11CA6' +
           '79C0A24B451D5088B8862AA614655A3A36B82AA8605538D95B533' +
           'AA1A5620A185AA46465601550DC8CDACA86A34B5F451D5B81361C' +
           'E34202186AA869B9B1BD3CD12F8D500007AA90748');

    Login := DTMFromString('78DA63F46660609066C00A1861F40C20C18E2' +
           'AE7E1158CAA663A90D04555C3CDCD8DAA860D48E81150C38A6917' +
           '861A909BD9885043C8AE6940420A558DB08828A67BA4F09B03002' +
           '8B2059C');

    clickhere := DTMFromString('78DA63DCCBC0C090C08002B26538C1342394C' +
           'FA80C6419336005286A7A50E5AC99D1D43800892E5435AB9BEB31' +
           'D5981050B38508352A40561201F7EC02127D04FCE50824E2F0DB0' +
           '500CC8D0E8B');


    end;



    procedure FreeDtms;
    begin
    FreeDTM(mainpage)
    FreeDTM(Lowdetail)
    FreeDTM(Members)
    FreeDTM(ExistingUser)
    FreeDTM(Login)
    FreeDTM(clickhere)
    end;

    procedure Page1;
    begin
    repeat
    FindDTM(mainpage, x, y, 1, 1, 999, 999)
    if(FindDTM(mainpage, x, y, 1, 1, 999, 999)) then
    con:=true
    until(con)
    begin
    MMouse(x, y, 0, 0);
    wait(200 + random(100));
    Mouse(x, y, 4, 6, true);
    end;
    end;

    procedure Page2;
    begin
    wait(1000)
    repeat

    FindDTM(lowdetail, x, y, 1, 1, 999, 999)
    if(FindDTM(lowdetail, x, y, 1, 1, 999, 999)) then
    con:=true
    until(con)
    begin
    MMouse(x, y, 0, 0);
    wait(200 + random(100));
    Mouse(x, y, 4, 6, true);
    end;
    end;

    procedure Page3;
    begin
    wait(1000)
    repeat
    FindDTM(members, x, y, 1, 1, 999, 999)
    if(FindDTM(members, x, y, 1, 1, 999, 999)) then
    con:=true
    until(con)
    begin
    MMouse(x, y, 0, 0);
    wait(200 + random(100));
    Mouse(x, y, 4, 6, true);
    end;
    end;

    procedure Page4;
    begin
    wait(20000)
    repeat
    FindDTM(existinguser, x, y, 1, 1, 999, 999)
    if(FindDTM(existinguser, x, y, 1, 1, 999, 999)) then
    con:=true
    until(con)
    begin
    MMouse(x, y, 0, 0);
    wait(200 + random(100));
    Mouse(x, y, 4, 6, true);
    end;
    end;

    procedure Page42;
    begin
    wait(1000)
    repeat
    FindDTM(login, x, y, 1, 1, 999, 999)
    if(FindDTM(login, x, y, 1, 1, 999, 999)) then
    con:=true
    until(con)
    begin
    MMouse(x, y, 0, 0);
    wait(200 + random(100));
    Mouse(x, y, 4, 6, true);
    end;
    end;

    procedure Page5;
    begin
    wait(10000)
    repeat
    FindDTM(clickhere, x, y, 1, 1, 999, 999)
    if(FindDTM(clickhere, x, y, 1, 1, 999, 999)) then
    con:=true
    until(con)
    begin
    MMouse(x, y, 0, 0);
    wait(200 + random(100));
    Mouse(x, y, 4, 6, true);
    end;
    end;


    procedure AutoTalk;
    begin
    if(IsFKeyDown(1))then
    begin
    TypeSend(Message1);
    end;
    if(IsFKeyDown(2))then
    begin
    TypeSend(Message2);
    end;
    if(IsFKeyDown(3))then
    begin

    end;
    end;


    Procedure talk;
    begin
    disguisescar ('Itunes');
    TypeSend(Message1);
    wait((waittime)+random(200));
    TypeSend(Message2);
    wait((waittime)+random(200));
    TypeSend(Message3);
    wait((waittime)+random(200));
    MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
    end;

    { =-=-==--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=Dont TOuch=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

    {=-=--=-==-=--=--=-=-=-=-=-=--=-==--==--=-==-main loop=-=--=-=-=-==-=-=-=-=--==-}
    begin
    SetUpSRL;
    SafeInitForm;
    SafeShowFormModal;
    LoadDtms;
    ActivateCLient;
    page1;
    page2 ;
    page3;
    page4;
    log;
    page42;
    page5;
    freedtms;
      Repeat
      talk;
       until(false)
         end.

  2. #2
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    im guesing it doesnt find your lowdetail dtm

  3. #3
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    maybe the page isn't loaded when the script is checking for the dtm

  4. #4
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by The_Rs_Monkey View Post
    maybe the page isn't loaded when the script is checking for the dtm
    once it clicked the low detail and it never did again and what do u mean by that. i have runescape homepage open

  5. #5
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by cnr sport View Post
    once it clicked the low detail and it never did again and what do u mean by that. i have runescape homepage open

    never mind, i get what you mean but the mouse doesnt even move.after it clicks existing user it just sits there, can u try it out and you will see what i mean.

    (the reason im bumping is cause i need help and its been a while since last post)

  6. #6
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Since When do we free DTMS?
    i got it to go to the pick the runescape page(where u login) but it just sat there with the mouse quivering at the bottom...had to use keyboard to shutdown SCAR
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  7. #7
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by dan cardin View Post
    Since When do we free DTMS?
    i got it to go to the pick the runescape page(where u login) but it just sat there with the mouse quivering at the bottom...had to use keyboard to shutdown SCAR
    sorry, thanks for the reply, i was hoping some one would try to help, ( i hate being a leecher) ...

    how do i do the dtms then?

  8. #8
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    i just put them in my procedure i use them and...well, use them...if it works then by all means, do it...i just didn't know u could free them
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  9. #9
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    keep the Freeing part. Try to pick a color under the loading bar when its gone. And then add this after clicking the lowdtm

    SCAR Code:
    while GetColor(xcoordofproggybar, ycoordblahblah) <> colorwhenprogressbargone do
      wait(100)

  10. #10
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by The_Rs_Monkey View Post
    keep the Freeing part. Try to pick a color under the loading bar when its gone. And then add this after clicking the lowdtm

    SCAR Code:
    while GetColor(xcoordofproggybar, ycoordblahblah) <> colorwhenprogressbargone do
      wait(100)
    thanks ill try it, if it doesnt work! please !please stay intouch with this thread
    edit: it doesnt click the lowdtm to begin with but i added it to the thing and it didnt do anything diferent and do i just copy and paste the code you gave me? even with the blahblah?

  11. #11
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    no, idk, post a screen shot of your webbrowser(capture the whole progressbar, the rest idont need) with a page loading, and a page done loading, and ill whip up something for you. Ill comment it too.

  12. #12
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by The_Rs_Monkey View Post
    keep the Freeing part. Try to pick a color under the loading bar when its gone. And then add this after clicking the lowdtm

    SCAR Code:
    while GetColor(xcoordofproggybar, ycoordblahblah) <> colorwhenprogressbargone do
      wait(100)
    can u add it where its supposed to be and do the color part for me? i think that will work, just add it on in there.

  13. #13
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by cnr sport View Post
    can u add it where its supposed to be and do the color part for me? i think that will work, just add it on in there.
    cause when i did it i think i put it in the wrong spot

  14. #14
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    just take screeny of your proggy bar, it won't be the same for me

    prnt screen + paste in paint.

  15. #15
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by The_Rs_Monkey View Post
    just take screeny of your proggy bar, it won't be the same for me

    prnt screen + paste in paint.
    Do u mean the loading bar. And it says the image is to big... i have to go to photobucket....


    and you are the best for actually staying with the thread, no one ever does with me..... your the best

    edit : ill post the url
    im not sure what you mean by proggy bar.

    is it the loading bar?

  16. #16
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    idk if this will work
    by your picture it does, but it looked like your picture lost a bit of color.
    and i ment loading bar, my bad lol

    SCAR Code:
    procedure WaitWhileLoading;
    var
      Proggybar, W, H, xx, yy : integer;  //Loading bar, w/e lol
    begin
      Proggybar := DTMFromString('78DA6314616260B8CCC8800C6A6A4AC0344C9' +
           '4511EA8E614AA9AA6C61A5435714035E751D5B4B735A2AA31C762' +
           '4E5315AA1A3BA09AEBA86A96AE5C85AA460CA8E62CAA9A0FFF3FA' +
           '0A80100B3C110E3');
      GetClientDimensions(W, H); //get width and height of window

      while FindDtm(Proggybar, xx, yy, 0, 0, W, H) do //it finds loading bar
        Wait(100);
    end;

  17. #17
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by The_Rs_Monkey View Post
    idk if this will work
    by your picture it does, but it looked like your picture lost a bit of color.
    and i ment loading bar, my bad lol

    SCAR Code:
    procedure WaitWhileLoading;
    var
      Proggybar, W, H, xx, yy : integer;  //

      Proggybar := DTMFromString('78DA6314616260B8CCC8800C6A6A4AC0344C9' +
           '4511EA8E614AA9AA6C61A5435714035E751D5B4B735A2AA31C762' +
           '4E5315AA1A3BA09AEBA86A96AE5C85AA460CA8E62CAA9A0FFF3FA' +
           '0A80100B3C110E3');
      GetClientDimensions(W, H); //

      while FindDtm(Proggybar, xx, yy, 0, 0, W, H) do //
        Wait(100);
    end;

    dude, i cant beileve your still helping me, thanks

    this is what i have, and tell me what you think if its ok.

    cause i ran it and nothing really happened different and i think thats because i either put it in the wrong spots or im looking it straight in the eye,,

    thankyou thankyou so much, .

    you deserve a cookie!

    SCAR Code:
    {1.Have rune scape open
    2.type in your messages
    3.Drag crosshair to runescape.
    4. Hit play.
    ----------------------------------

    This is Version 2
    It includes....
    Moving mouse randomly(i dont know why i added it)
    IT disguises Scar to say Itunes
    It has up to 3 messages
    It auto logs you on from main page( just edit lines 157)
    It ables you to press f3 to stop the script
    It has a form thats not needed lol. Just was bored.
    And hopfully autotrade.

    -------------------------
    {not sure if im making a version 3.
    }
    {
    ======
    =================
    =============================
    ========================
    ============
     Cnr}





    program AutoTalkerVersion2;
    {.include SRL/SRL.scar}

    var
    coords,color,variable,Send:integer;
    mainpage:integer;
    lowdetail:integer;
    Members:integer;
    ExistingUser:integer;
    login:integer;
    clickhere:integer;
    con:boolean;
    frmDesign : TForm;
    Green : TImage;
    Username : TLabel;
    Password : TLabel;
    User : TEdit;
    Pass : TEdit;
    Start : TButton;
    Proggybar, W, H, xx, yy : integer;



    const
     Message1 = 'l' ;//dont forget to type a message in
     Message2 = '2' ; //
     Message3 = '3' ;  //  if not using all 3 messages delete the space inbetween..
     waittime=1000;//dont touch
     
    {=--==--==--=-=--=--==--=-=-=-=-=-=-==--=-=-=-=--==--=}
    procedure buttonclick(sender: TObject);
     begin
      frmDesign.Caption:= frmDesign.Caption + '.';
      frmDesign.ModalResult:= mrOk;
    end;



    procedure InitForm;
     begin;
      frmDesign := CreateForm;
      frmDesign.Left := 44;
      frmDesign.Top := 234;
      frmDesign.Width := 696;
      frmDesign.Height := 480;
      frmDesign.Cursor := crCross;
      frmDesign.Caption := 'frmDesign';
      frmDesign.Color := clLime;
      frmDesign.Font.Color := clRed;
      frmDesign.Font.Height := -14;
      frmDesign.Font.Name := 'Comic Sans MS';
      frmDesign.Font.Style := [fsBold];
      frmDesign.Visible := False;
      frmDesign.PixelsPerInch := 84;
      Green := TImage.Create(frmDesign);
      Green.Parent := frmDesign;
      Green.Left := 117;
      Green.Top := 52;
      Green.Width := 105;
      Green.Height := 105;
      Username := TLabel.Create(frmDesign);
      Username.Parent := frmDesign;
      Username.Left := 37;
      Username.Top := 55;
      Username.Width := 66;
      Username.Height := 19;
      Username.Caption := 'Username';
      Password := TLabel.Create(frmDesign);
      Password.Parent := frmDesign;
      Password.Left := 36;
      Password.Top := 138;
      Password.Width := 61;
      Password.Height := 19;
      Password.Caption := 'Password';
      User := TEdit.Create(frmDesign);
      User.Parent := frmDesign;
      User.Left := 108;
      User.Top := 51;
      User.Width := 121;
      User.Height := 27;
      User.TabOrder := 8;
      User.Text := 'User';
      Pass := TEdit.Create(frmDesign);
      Pass.Parent := frmDesign;
      Pass.Left := 108;
      Pass.Top := 132;
      Pass.Width := 121;
      Pass.Height := 27;
      Pass.TabOrder := 9;
      Pass.Text := 'Pass';
      Start := TButton.Create(frmDesign);
      Start.Parent := frmDesign;
      Start.Left := 109;
      Start.Top := 186;
      Start.Width := 75;
      Start.Height := 25;
      Start.Caption := 'Start';
      Start.TabOrder := 10;
      Start.OnClick:= @buttonclick;

    end;

    //Procedure 2:
    procedure SafeInitForm;
    var
      v: TVariantArray;
     begin
      setarraylength(V, 0);
      ThreadSafeCall('InitForm', v);
    end;

    //Procedure 3:
    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

    //Procedure 4:
    procedure SafeShowFormModal;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    end;

    procedure log;
    begin
    TypeSend('cnr sport')
    Wait(500)
    TypeSend('lol it wasnt my pass but w/e')
    wait(1000)
    end;

    Procedure LoadDtms;
    begin
    Proggybar := DTMFromString('78DA6314616260B8CCC8800C6A6A4AC0344C9' +
           '4511EA8E614AA9AA6C61A5435714035E751D5B4B735A2AA31C762' +
           '4E5315AA1A3BA09AEBA86A96AE5C85AA460CA8E62CAA9A0FFF3FA' +
           '0A80100B3C110E3');

    Mainpage := DTMFromString('78DA634C666060B06440016A8A92609A11CA6' +
           '73C01243850D544844560AA49465513151583AA861D4824A2AA91' +
           '12E14555C386695756760EAA1A9019ACA86A0AF2F330D5A430600' +
           '5286E3626A006E46623FC6E0600233F0AF9');
           

    Lowdetail := DTMFromString('78DA63B4636060D0634001164C8C0CBF80342' +
           '310FF0702463620230C558D9A8A24986684F219D3814410AA1A53' +
           '0D565435AD408203558DA8201BAA1A0920C189AA465C9813550D0' +
           'B90104173B3289A5D6D40C211558DAB25AA1A00FCB20A47');


    Members := DTMFromString('78DA63CC63606070644001E7B63433FC02D28' +
           'C40FC1F0818D9808C4006AC80114683D41811A1468C801A6320C1' +
           '44404D3C116ABA8850B39A083547895003F257260135AC40A29C8' +
           '01A6E208B03BF1A007B010C03');

    ExistingUser := DTMFromString('78DA6374656060106140014E2E7E609A11CA6' +
           '79C0A24B451D5088B8862AA614655A3A36B82AA8605538D95B533' +
           'AA1A5620A185AA46465601550DC8CDACA86A34B5F451D5B81361C' +
           'E34202186AA869B9B1BD3CD12F8D500007AA90748');

    Login := DTMFromString('78DA63F46660609066C00A1861F40C20C18E2' +
           'AE7E1158CAA663A90D04555C3CDCD8DAA860D48E81150C38A6917' +
           '861A909BD9885043C8AE6940420A558DB08828A67BA4F09B03002' +
           '8B2059C');

    clickhere := DTMFromString('78DA63DCCBC0C090C08002B26538C1342394C' +
           'FA80C6419336005286A7A50E5AC99D1D43800892E5435AB9BEB31' +
           'D5981050B38508352A40561201F7EC02127D04FCE50824E2F0DB0' +
           '500CC8D0E8B');


    end;

    procedure WaitWhileLoading;/////////////////////////////////OVER HERE!!!!!!!!!!!!!!!
    var
      Proggybar, W, H, xx, yy : integer;  //
    begin
      Proggybar := DTMFromString('78DA6314616260B8CCC8800C6A6A4AC0344C9' +
           '4511EA8E614AA9AA6C61A5435714035E751D5B4B735A2AA31C762' +
           '4E5315AA1A3BA09AEBA86A96AE5C85AA460CA8E62CAA9A0FFF3FA' +
           '0A80100B3C110E3');
      GetClientDimensions(W, H); //

      while FindDtm(Proggybar, xx, yy, 0, 0, W, H) do //
        Wait(250);
    end;

    procedure FreeDtms;
    begin
    FreeDTM(mainpage)
    FreeDTM(Lowdetail)
    FreeDTM(Members)
    FreeDTM(ExistingUser)
    FreeDTM(Login)
    FreeDTM(clickhere)
    end;

    procedure Page1;
    begin
    repeat
    FindDTM(mainpage, x, y, 1, 1, 999, 999)
    if(FindDTM(mainpage, x, y, 1, 1, 999, 999)) then
    con:=true
    until(con)
    begin
    MMouse(x, y, 0, 0);
    wait(200 + random(100));
    Mouse(x, y, 4, 6, true);
    end;
    end;

    procedure Page2;
    begin
    wait(1000)
    repeat

    FindDTM(lowdetail, x, y, 1, 1, 999, 999)
    if(FindDTM(lowdetail, x, y, 1, 1, 999, 999)) then
    con:=true
    until(con)
    begin
    MMouse(x, y, 0, 0);
    wait(200 + random(100));
    Mouse(x, y, 4, 6, true);
    end;
    end;

    procedure Page3;
    begin
    wait(1000)
    repeat
    FindDTM(members, x, y, 1, 1, 999, 999)
    if(FindDTM(members, x, y, 1, 1, 999, 999)) then
    con:=true
    until(con)
    begin
    MMouse(x, y, 0, 0);
    wait(200 + random(100));
    Mouse(x, y, 4, 6, true);
    end;
    end;

    procedure Page4;
    begin
    wait(20000)
    repeat
    FindDTM(existinguser, x, y, 1, 1, 999, 999)
    if(FindDTM(existinguser, x, y, 1, 1, 999, 999)) then
    con:=true
    until(con)
    begin
    MMouse(x, y, 0, 0);
    wait(200 + random(100));
    Mouse(x, y, 4, 6, true);
    end;
    end;

    procedure Page42;
    begin
    wait(1000)
    repeat
    FindDTM(login, x, y, 1, 1, 999, 999)
    if(FindDTM(login, x, y, 1, 1, 999, 999)) then
    con:=true
    until(con)
    begin
    MMouse(x, y, 0, 0);
    wait(200 + random(100));
    Mouse(x, y, 4, 6, true);
    end;
    end;

    procedure Page5;
     begin
      wait(10000)
      repeat
       FindDTM(clickhere, x, y, 1, 1, 999, 999)
       if(FindDTM(clickhere, x, y, 1, 1, 999, 999)) then
       con:=true
       until(con)
        begin
        MMouse(x, y, 0, 0);
        wait(200 + random(100));
        Mouse(x, y, 4, 6, true);
        end;
       end;


    procedure AutoTalk;
      begin
       if(IsFKeyDown(1))then
        begin
         TypeSend(Message1);
          end;
           if(IsFKeyDown(2))then
            begin
           TypeSend(Message2);
           end;
           if(IsFKeyDown(3))then
           begin
          end;
         end;
         
    Procedure talk;
     begin
      disguisescar ('Itunes');
      TypeSend(Message1);
      wait((waittime)+random(200));
      TypeSend(Message2);
      wait((waittime)+random(200));
      TypeSend(Message3);
      wait((waittime)+random(200));
      MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
    end;


    { =-=-==--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=Dont TOuch=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

    {=-=--=-==-=--=--=-=-=-=-=-=--=-==--==--=-==-main loop=-=--=-=-=-==-=-=-=-=--==-}

     begin
      SetUpSRL;
      SafeInitForm;
      SafeShowFormModal;
      LoadDtms;
      ActivateCLient;
      page1;
      WaitWhileLoading;
      page2 ;
      WaitWhileLoading;
      page3;
      WaitWhileLoading;
      page4;
      WaitWhileLoading;
      log;
      page42;
      WaitWhileLoading;
      page5;
      freedtms;
       Repeat
        talk;
         until
          (IsFKeyDown(3));
         end.

  18. #18
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Edit: srry i didn't really read your script carefully...

    let me update it a little(im gonna make new dtms)

  19. #19
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    im fixing right now, and i pmed new password to your rs account, you left it in there.

  20. #20
    Join Date
    Mar 2007
    Posts
    674
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    I am not sure if this will work or not, but try Bmp's instead of the DTM's...

  21. #21
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    {1.Have rune scape open
    2.type in your messages
    3.Drag crosshair to runescape.
    4. Hit play.
    ----------------------------------

    This is Version 2
    It includes....
    Moving mouse randomly(i dont know why i added it)
    IT disguises Scar to say Itunes
    It has up to 3 messages
    It auto logs you on from main page( just edit lines 157)
    It ables you to press f3 to stop the script
    It has a form thats not needed lol. Just was bored.
    And hopfully autotrade.

    -------------------------
    {not sure if im making a version 3.
    }
    {
    ======
    =================
    =============================
    ========================
    ============
     Cnr}





    program AutoTalkerVersion2;
    {.include SRL/SRL.scar}

    var
    coords,color,variable,Send:integer;
    mainpage:integer;
    lowdetail:integer;
    Members:integer;
    ExistingUser:integer;
    login:integer;
    clickhere:integer;
    con:boolean;
    frmDesign : TForm;
    Green : TImage;
    Username : TLabel;
    Password : TLabel;
    User : TEdit;
    Pass : TEdit;
    Start : TButton;
    Proggybar, W, H, xx, yy : integer;



    const
     Message1 = 'l' ;//dont forget to type a message in
     Message2 = '2' ; //
     Message3 = '3' ;  //  if not using all 3 messages delete the space inbetween..
     waittime=1000;//dont touch

    {=--==--==--=-=--=--==--=-=-=-=-=-=-==--=-=-=-=--==--=}
    procedure buttonclick(sender: TObject);
     begin
      frmDesign.Caption:= frmDesign.Caption + '.';
      frmDesign.ModalResult:= mrOk;
    end;



    procedure InitForm;
     begin;
      frmDesign := CreateForm;
      frmDesign.Left := 44;
      frmDesign.Top := 234;
      frmDesign.Width := 696;
      frmDesign.Height := 480;
      frmDesign.Cursor := crCross;
      frmDesign.Caption := 'frmDesign';
      frmDesign.Color := clLime;
      frmDesign.Font.Color := clRed;
      frmDesign.Font.Height := -14;
      frmDesign.Font.Name := 'Comic Sans MS';
      frmDesign.Font.Style := [fsBold];
      frmDesign.Visible := False;
      frmDesign.PixelsPerInch := 84;
      Green := TImage.Create(frmDesign);
      Green.Parent := frmDesign;
      Green.Left := 117;
      Green.Top := 52;
      Green.Width := 105;
      Green.Height := 105;
      Username := TLabel.Create(frmDesign);
      Username.Parent := frmDesign;
      Username.Left := 37;
      Username.Top := 55;
      Username.Width := 66;
      Username.Height := 19;
      Username.Caption := 'Username';
      Password := TLabel.Create(frmDesign);
      Password.Parent := frmDesign;
      Password.Left := 36;
      Password.Top := 138;
      Password.Width := 61;
      Password.Height := 19;
      Password.Caption := 'Password';
      User := TEdit.Create(frmDesign);
      User.Parent := frmDesign;
      User.Left := 108;
      User.Top := 51;
      User.Width := 121;
      User.Height := 27;
      User.TabOrder := 8;
      User.Text := 'User';
      Pass := TEdit.Create(frmDesign);
      Pass.Parent := frmDesign;
      Pass.Left := 108;
      Pass.Top := 132;
      Pass.Width := 121;
      Pass.Height := 27;
      Pass.TabOrder := 9;
      Pass.Text := 'Pass';
      Start := TButton.Create(frmDesign);
      Start.Parent := frmDesign;
      Start.Left := 109;
      Start.Top := 186;
      Start.Width := 75;
      Start.Height := 25;
      Start.Caption := 'Start';
      Start.TabOrder := 10;
      Start.OnClick:= @buttonclick;

    end;

    //Procedure 2:
    procedure SafeInitForm;
    var
      v: TVariantArray;
     begin
      setarraylength(V, 0);
      ThreadSafeCall('InitForm', v);
    end;

    //Procedure 3:
    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

    //Procedure 4:
    procedure SafeShowFormModal;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    end;

    procedure log;
    begin
      TypeSend('aaaaa')
      Wait(500)
      TypeSend('aaaaa')
      wait(1000)
    end;

    Procedure LoadDtms;
    begin
      Mainpage := DTMFromString('78DA634C666060B06440016A8A92609A11CA6' +
           '73C01243850D544844560AA49465513151583AA861D4824A2AA91' +
           '12E14555C386695756760EAA1A9019ACA86A0AF2F330D5A430600' +
           '5286E3626A006E46623FC6E0600233F0AF9');


      Lowdetail := DTMFromString('78DA63DCCDC4C050C9C8800CD245B9C0344C9' +
           '4B101A8A60B554DAEA630AA9A894035F1A86AC2CD9851D5FC01AA' +
           '29445573F3B107AA9A2340357350D52CADD745510300B88C0B29');


      Members := DTMFromString('78DA635CC6C4C020C4C8800CCE6DAD05D3305' +
           '1C65540353EA86ABCCC2551D58831333004A0AA09B4574755C309' +
           '54F3034509436E940DAA9A0EA05D5F50D568CB32A1A80100AFAA0' +
           '949');

      ExistingUser := DTMFromString('78DA6374656060106140014E2E7E609A11CA6' +
           '79C0A24B451D5088B8862AA614655A3A36B82AA8605538D95B533' +
           'AA1A5620A185AA46465601550DC8CDACA86A34B5F451D5B81361C' +
           'E34202186AA869B9B1BD3CD12F8D500007AA90748');

      Login := DTMFromString('78DA63F46660609066C00A1861F40C20C18E2' +
           'AE7E1158CAA663A90D04555C3CDCD8DAA860D48E81150C38A6917' +
           '861A909BD9885043C8AE6940420A558DB08828A67BA4F09B03002' +
           '8B2059C');

      clickhere := DTMFromString('78DA63DCCBC0C090C08002B26538C1342394C' +
           'FA80C6419336005286A7A50E5AC99D1D43800892E5435AB9BEB31' +
           'D5981050B38508352A40561201F7EC02127D04FCE50824E2F0DB0' +
           '500CC8D0E8B');
    end;

    procedure FreeDtms;
    begin
      FreeDTM(mainpage)
      FreeDTM(Lowdetail)
      FreeDTM(Members)
      FreeDTM(ExistingUser)
      FreeDTM(Login)
      FreeDTM(clickhere)
    end;

    procedure Page1;
    begin
      repeat
        if(FindDTM(mainpage, x, y, 1, 1, 999, 999)) then
          con:=true;
        Wait(50);
      until(con)
      Mouse(x, y, 4, 6, true);
      con := False;
    end;

    procedure Page2;
    begin
      repeat
        if(FindDTM(lowdetail, x, y, 1, 1, 999, 999)) then
          con:=true;
        Wait(50);
      until(con)
      Mouse(x, y, 4, 6, true);
      con := False;
    end;

    procedure Page3;
    begin
      repeat
        if(FindDTM(members, x, y, 1, 1, 999, 999)) then
          con:=true;
        Wait(50);
      until(con)
      Mouse(x, y, 4, 6, true);
      con := False;
    end;

    procedure Page4;
    begin
      wait(20000)
      repeat
        if(FindDTM(existinguser, x, y, 1, 1, 999, 999)) then
          con:=true;
        Wait(50);
      until(con)
      Mouse(x, y, 4, 6, true);
      con := False;
    end;

    procedure Page42;
    begin
      repeat
        if(FindDTM(login, x, y, 1, 1, 999, 999)) then
          con:=true;
        Wait(50);
      until(con)
      Mouse(x, y, 4, 6, true);
      con := False;
    end;

    procedure Page5;
    begin
      wait(10000)
      repeat
        if(FindDTM(clickhere, x, y, 1, 1, 999, 999)) then
        con:=true;
        Wait(50);
      until(con)
      Mouse(x, y, 4, 6, true);
      con := False;
    end;


    procedure AutoTalk;
    begin
      if(IsFKeyDown(1))then
      begin
        TypeSend(Message1);
      end;
      if(IsFKeyDown(2))then
      begin
        TypeSend(Message2);
      end;
      if(IsFKeyDown(3))then
      begin

      end;
    end;

    Procedure Talk;
    begin
      disguisescar ('Itunes');
      TypeSend(Message1);
      wait((waittime)+random(200));
      TypeSend(Message2);
      wait((waittime)+random(200));
      TypeSend(Message3);
      wait((waittime)+random(200));
      MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
    end;


    { =-=-==--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=Dont TOuch=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}

    {=-=--=-==-=--=--=-=-=-=-=-=--=-==--==--=-==-main loop=-=--=-=-=-==-=-=-=-=--==-}

    begin
      SetUpSRL;
      FindWindow('Runescape - the massive online adventure game by Jagex Ltd - Mozilla Firefox');
      SafeInitForm;
      SafeShowFormModal;
      LoadDtms;
      ActivateCLient;
      page1;
      page2;
      page3;
      page4;
      log;
      page42;
      page5;
      freedtms;
      repeat
        talk;
      until(IsFKeyDown(3));
    end.

    i fixed it, made it neater, standards, and i had to redo some of your DTM's

    but the reason why i wasn't working because con := True; after the first page, so it would just skip the seconds and so on finddtm's. so i had to put con := false; and the end of each page. as i said above i pmed you new password to rs account, you left it in the second script you posted.

  22. #22
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by The_Rs_Monkey View Post
    im fixing right now, and i pmed new password to your rs account, you left it in there.
    Thanks for the pass, i pmed you back ;p

    and can you post the updated script? with the proggy bar :P

    editosted the same time, yea thanks for being so nice and not hacking me. and thanks for hellping.

  23. #23
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i made it without the proggy, your way was good, you kept searching for DTM until it found it, didn't really read script tho, anyways what i posted will work, it will keep searching for the DTM until is is found(what yours did), I just edited it a bit (so it will work) and added better standards.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [PHP] whats wrong with this.
    By XcanadamanX in forum General
    Replies: 14
    Last Post: 01-21-2008, 11:40 PM
  2. Whats Wrong???
    By bilbobaggins in forum OSR Help
    Replies: 12
    Last Post: 04-10-2007, 10:05 AM
  3. Replies: 8
    Last Post: 03-23-2007, 04:20 PM
  4. Can someone tell me whats wrong with this?
    By Hey321 in forum OSR Help
    Replies: 5
    Last Post: 12-17-2006, 09:49 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
  •