Results 1 to 10 of 10

Thread: Sybers Auto Typer[Lil Laggy.. Need help on lag fix]

  1. #1
    Join Date
    Dec 2006
    Posts
    374
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Sybers Auto Typer[Lil Laggy.. Need help on lag fix]

    Hey All I havent seen a AutoTyper around so I figured I would whip up one real quick =] well here it is please give me pointers and how to make it type better because currently i have to press F1 like 3-4 times for it to type.. =[ and I removed the wait and it made reallllly laggy! so feel free edit it and repost =] its my first script and contribution so go easy on me =] Its a small script so ill just post here--
    SCAR Code:
    program SybersAutoTalker;
    {.Include SRL/SRL.Scar}
    {.include srl\srl\extended\xtext.scar}


    const
     msg1 ='Hi'; // This is what you will type.
     msg2 ='Wuts up?'; // Press F1-F4 to type each message. msg1=F1 msg2=F2 ETC.
     msg3 ='huh?';
     msg4 ='ok..';

    procedure Talk;
    begin
      If(IsFKeydown(1)) then
      begin
      TypeSend(msg1 + chr(13))
     End;
    End;
    procedure Talk2;
     begin
      If(isFKeydown(2)) then
        begin
       TypeSend(msg2 + chr(13))
      End;
     End;
     
     procedure Talk3;
      begin
       If(isFKeydown(3)) then
        begin
       TypeSend(msg3 + chr(13))
      End;
     End;
     
     procedure Talk4;
      begin
       If(isFKeydown(4)) then
        begin
       TypeSend(msg4 + chr(13))
      End;
     End;
     
    procedure AllTalk;
     begin
      Talk;
       Talk2;
       Talk3;
      Talk4;
    End;


    begin
    setupsrl;
      activateclient;
       wait(200);
       repeat
      AllTalk;
     wait(1000 + random(500))
    Until(false)
    End.
    Another awsome scripting forum! Check it out: www.Uberbroproductions.net/forums
    TRY MY VARROCK ZAMMY MAGE CURSER/CONFUSER/WEAKENER! THE LINK IS BELOW
    http://www.srl-forums.com/forum/varr...56.html?t=6356
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~


  2. #2
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    When you use typesend i dont think you need to use +Chr(13).

  3. #3
    Join Date
    Dec 2006
    Posts
    374
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i know i tried that and it just types the letters it dont send em to RS
    Another awsome scripting forum! Check it out: www.Uberbroproductions.net/forums
    TRY MY VARROCK ZAMMY MAGE CURSER/CONFUSER/WEAKENER! THE LINK IS BELOW
    http://www.srl-forums.com/forum/varr...56.html?t=6356
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~


  4. #4
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Ok, Cause I rember using that function in one of my scripts and it typed my message and pressed enter for me. Ill see if i can dig it up for you to see.

  5. #5
    Join Date
    Dec 2006
    Posts
    374
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok thx i appreciate it =]
    Another awsome scripting forum! Check it out: www.Uberbroproductions.net/forums
    TRY MY VARROCK ZAMMY MAGE CURSER/CONFUSER/WEAKENER! THE LINK IS BELOW
    http://www.srl-forums.com/forum/varr...56.html?t=6356
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~


  6. #6
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    ok Here we go. I used the Fkey function in this one too. I was going to try to find some other things to add to it but not too many people appreciated it so here it is

    SCAR Code:
    {.Script Info:
    # ScriptName  = RS Hoe 1.0
    # Author      = Buckleyindahouse
    # Description = This is for all those lazy people like me.
    # Version     = 1.0
    # Date        = 12/16/06
    # Comments    = Not Really any randoms yet. So just chill and watch.
    /Script Info}

    program autodropper;
    {.include srl/srl.scar}
    const
    //IF YOU WANT TO SPECIFY WHAT TO POSITION TO DROP THEN GO TO LINE: 188
    Spam='What you want to spam';//this is what u want to spam.
    username='Arch U 4Life';//put username for autologin feature.
    Password='Pass';//Put password for autologin feature.
    howmanyalchs=1;//how many alchs you want to do.
    Version='1.0';//NO TOUCHIE

    var
    Alchtimes: integer; spamtimes: integer; droptimes: integer;Login: integer;
    var
    Logged: integer;

    procedure ClickBMPS;
    begin
    Mouse(x,y,2,2,True);
    wait(150+random(150));
    WriteLn('Clicked Bmp');
    end;

    Procedure LoadBitmaps;
    Begin

    Login := BitmapFromString(136, 32, 'z78DAED5CD172DC380CFBA5' +
           'DDB5374D1F936BF3FF9FD4BB3A0FF4D0800051CCBD249D6A325E5' +
           '952B7840850A4EEDB7DBF3FEFFFDC7F3D6EDFED77FBDDF2F6F6FE' +
           'DF9FFB5FD4ECBFF68FE7DBFEBABF3DF7E3F7E7CBF3C7CB16DBC1A' +
           '7C7081DED316F6AB7B7ED7DDFF7C7BF7F7FE776FBBD7DEC3FE3EF' +
           '47FFF8167A7EFA348CA3B479CC531B3FE53D8FF6657BDD6FDB63D' +
           'BB6F7652D9F5159C3F124F689CF630BD6F0F8F9787B7C1C2D5F6D' +
           'ECC95BFE567D1684978C05B78DD65E1F610E4D173D019A3E9F041' +
           'B862810B003FB1CAB9AC35DB4CFB09293AD462C2848E4E8C888A8' +
           '8C863E3591CED1D181CDF829F72F03CB0C5840FD3BFC4E69CCB87' +
           'E8E08843B84CDDC468CA04F5DC42134211B88B69A777B8E0E64E7' +
           'D9837044289F667F2478A8393F62B7610D112F796F3F71308E236' +
           '499C9BF20BF037D01F5500B781DF20275EF666244E272D9BFE4FE' +
           'CAFF3E6A3973EB637DEEAA14DFC139A43CBEE45F82ADEA9C4A514' +
           '0837783C5DAE840769E6CF5B47B4FED0036529047CB36835030A7' +
           '2FD0FE4F77D1CF36AA3F777697B3159818D4539C61E6D5BA78015' +
           'CCBDDDB4B0A056890923789562AF3CCB57C2F7B04F47CE041D01E' +
           '8EF6C9AC7AF8AE9E145C2922A12B2377B7477106C59BC8B3487AD' +
           'FE43F86C7E16C84337F853521659DBCD532BC207424EEA46B7C43' +
           'A7201BC8E8E016A2EFFC6B23757AF4CF8D16225F33151F43FE652' +
           'ED265F02264DB4817735BCA7E27BF851814478ACBB2C2BCA7B874' +
           '7D4CC14F49DA5957E2323F59A0AC5DCDA5A81EC5DB1662680A5E1' +
           'A4F58103A2AA73CB2BD956C18E125C79CEB18414C46E1752E5B43' +
           '116C61B401829076587A52E38EDC8D9701D74ABBF7320C7256A6C' +
           '77575FE533943E1EB513C0ED70E191D8A32E20CAD7EDAE26A90A9' +
           '0855DDE62BED1C5E1052D69E487E083F92B52B3A485755AED7D0E' +
           '3C6F9FC14F4413DD13720C59C395EE64E3F0316144BAED8791F46' +
           '90DEAF587807978BB8B8D19FCAA9DF8545E51D1BF885137275F5C' +
           '1ED10F02EE447169CE6543276F8A702CB5A6BCF1DFEA58297F63C' +
           '318A17AE172E76E96CE70207D3ADF16285C02BF1313FE78D48998' +
           'AAA413E8614CAD7B43496EB5A7837E39A8B27AF3AA7B0158A8E17' +
           '3D172BF5478C4EB1EA38E6002F69AEC97D1EE5B371168770C1FD5' +
           '7471E6647BEA89C0F53E1811C2F93CA4538AF31E25A60F7BEB0F0' +
           '233FF9EFFF32E245A7E769AE13A30BCF078A096081ABAA38D7614' +
           '57C961CDDE533C26840B2DBD35BC1979D9E276F3B586DB2B48E9E' +
           '6EAE5707C7D3F1026DDBCC7ED1FD17D72F794CF4CD67A583D0E72' +
           'A26DEFFC2BF84BD17AD53E91F6791A21F0135799C8C08FE1CFD64' +
           '3CA275A2F5E4B7FE2FED2FE5F3BB6704C877089996CA1928E7636' +
           '864F8CD07DEC247D6BD06B231B4332B58D3FB23FBE4DC09F587DC' +
           '52F76B088F605EFE3D40FB47E7380514E8AD9DCF2F7B878EF8585' +
           '6258A7FC9AC1EE225CC0EF770EA01F59840FD39B44F7A2668E02E' +
           '617FCE5FE8BE1EF994AFD4F893F9C9C877808C94B591B4E35D68D' +
           '5610D3A1F8BA819E0257952D45F894818EFAEC211CDF377F9D8C5' +
           '690EC5A9C2DF62FEB38217E86550CE4F5B84E184173D7A59CF433' +
           '6F1C27D87C4ED814E47B637D81B297FAB606D8E1729F686AC1432' +
           '22D35FE85E06E9FDE8EF0C6DD2902760F8178A886579EF727B137' +
           'E720C0AC6A600BB40CFE1D968FA1E50CF3C667C57799E3502D73B' +
           'F024315A17FD97F21995FED25BD10E058DAF447DEBF13443BF500' +
           'FA2648BB5549428A329F95A42FDBE9151E3E6C0CC9D1C81DC8341' +
           'CC01DDDA913390954CFEEEFA7D3D6B9A624739DF774F458D7A319' +
           'D9BE91956AE1529F757289835F31B616519AFE86FAB5046317083' +
           'FFE79812CF1646D6ABDC0FD38126D7C2394343DA47607450EFAFB' +
           'AC92145B1EC3C7CDD4329C8D27780BE9BA0E49C9CACDC0D1DE156' +
           '28A32A5DA4A315D550F74A951A349ED5E0D6CEE87ABF60B1F649A' +
           '5523B5CB977A20F17736B48992D30BA2528AC0B7B164EFCB9C691' +
           'B237EB4899E34808B3CA5D3753E738102FDC963A76E68A55F31A9' +
           '38AA76BF326A5DBFF787DBA9E458CAC2BE56DC26A6BA57EDFBD01' +
           '40B90D40A9802BCC659CEF23EBA26A62D0B37CD7168F6C0FB44FE' +
           '50698297494FE457A2D00D502F6ED4CF5FBF45C0615B3B2DDFA7D' +
           '54A166D684BA1103989F6CC69AEC2A4237AF5ED13595AA2E25F2A' +
           '67C3F61072ED5234FED3983189792B7ACD4FB77DC49EB56652AAA' +
           'A4A13673329F5FB69C0A762E544C9BBD191139D787F231F53B349' +
           '2EF984410676E0A6A74EFA370A1F20DB192F697EF0770EBF71768' +
           '8DB28E1EE4E1D4798E50DD3FA8DF5762868B6EF69BBBF35CBA8D3' +
           '9D50B2831BA65B5FC6D27F25F53BF5FBA0DAFFBC41F61B35229A9' +
           'EB0E97C5097735DB765E460D676BEEBD1F128E4C44544EEABFA67' +
           'EFF0FF25259D1');
           
     logged := BitmapFromString(143, 34, 'z78DAED5DD1721A310CFC2' +
           '5E00E9A3C9204FEFF939A621E74A35B79D792691E42A79E8C31BE' +
           'A3D5DE4A2B59397E1EBF4E87E3EFF83BFE8ECCB81CD7E3F9F0F1E' +
           'F8F9D6F33EB715DD6AFE7F8B5DECFD7F56DBD9ED7F6F3F972FE73' +
           '59ECD879B7ED30636CD775E3725D3ED6753D7DFFBDF971B92DF7F' +
           '5DDFEDCD6DB4FA1F9CDBB661F66F47B6E46FB6EBCB28D97E56D3D' +
           '2CA765593ECAC6F88ACC3DB419BBC6CEDB11DCC3E9FD743DDDDB1' +
           '8DFAD5D198FF1A7AAAE6231A522CBA3461D2D2EF23B8CE16E6725' +
           'C0DD73C6583BC40B8132B8A6DDD51842AD259B3BD958B5450D83D' +
           '918471E3B99DDD0BBE23321C6D10C14FB353BC87ACCF09CD5B161' +
           '831AB47E0697A5F6B4F71F63072114A1D88F164DE85D159B0877C' +
           '85AAC557B0689718410E15929C60EF3AEE73882F5C6B8491EDD3D' +
           'A8C8F27CB1F10063C4211B769C85B80CF24BC87A055E2562963C6' +
           '38A68A23C49CF597E3D6327688CFDC6793EA77A570C1FC51E2CBD' +
           'BFC059661E7296B16ADEA36322B5CE678D6DCB3842887056BD618' +
           '4A167858C29C492DEBA105EC6E220C429C4937913A5AA57573DC6' +
           '841F08E3BED8BFF5773B0F59C0D353F9221549815829C550D69E6' +
           '92FB7D6DBF42C83E63BAC8478013D7B7D741633858B34531A0B1F' +
           'C1A90C82941386A1E8AB080A06C359A2F725B058EC0BC5110AE3B' +
           '321ADC0316019B2108E9CE7C6AB16423C85ACC5E328B6259E4D6A' +
           '554A5EF9549552C45F4338CA73D698CA277865080528D28FADCE7' +
           '399FF14F2DF624CA93E9EB9EE46BDCFEF49701FA506F0DA02ED1D' +
           '1568056A6CC844670C83A7F5C32A644DCC58211C65B266B465A6A' +
           'C1D21CB2BF37934213F8AF12A555F11E9FCC46E1D9B44314E69E6' +
           '4BDDF9E720ABE3E9394628436BEC13F2EA37EF7D657252F1FD302' +
           'C16C7381E474C0417FB87F9EC951A2B25D4B9620CCED006FFFD3F' +
           '2E2AB210A6A6E482012308F95C265EE3A33F95897875DD67AEC11' +
           'AB412FD0B50CA7C8CACB1BCB3410D63F31944CC43D3A082D190F5' +
           '18335898EE4986B9DD4CBE75C7F63C7E01D7DCCD4B8892628B055' +
           'E1FF35419CC8E65EAAFE277091F6F86E5D7A2EC35C89A5E1F18EB' +
           '21615CB3F3E4F79F253C40DE6E2DB20E8F17623AE609B0C1D490A' +
           '208BD411449BD660C156F150BAFF1F7E2EA0E0A599FEBEDFC7E3E' +
           '7D7B72375973A8AD44E2ABAAC4AA86AA9A228FD90EB29085ABDC8' +
           '1FCDED88744578C397146A5EE8C8A62BABA29E38566F2590D53CF' +
           '712CC222F25F82A6C75B7EAB7567A22A467BE7F16B66769015332' +
           '38A74BCD6E734F0D8C7B377222884BEEA8351455E889A7C8D5FAD' +
           '8729788386B3040F10D86D8127C9F04B9CF9452A1CC36B0C8BC5C' +
           '80A239D3B78A1C8A5B3DED9FFC1BCFC1DEEECE3AB980894159C76' +
           'C9D422BE44CD2840568BB31EF892732E888F885A5C39FBEC50432' +
           '10B453A457EA64716B243BFB2BD76B8865F6FFC2E84538FA69D7D' +
           '5CF6AAC3B6F99A465491C82005E5C5D278499DCF0A150CA18242B' +
           '4FC32DD0330178FAC4E0E57ACB665382B66B7FC3C4262B32506A1' +
           '76FD4E7D549512E2EC1CD6FAFE57D5A22C9FD5D8AA8D8071A06D2' +
           '7AA7607750FC72614C7F135186225128CB3E895C2BC8AB8C777E4' +
           '11C7EBA5052A87612EBEBA6F87B95005D7E4E84F5530048D375FD' +
           '34E208BF2F790BAAED6200D552251C80AB58E3CB254CE42888B6B' +
           '20CB14FBF8BC095DE934BB96A31859C479C3B2D316B5D92EB56E3' +
           'C54AAF9DA8C3BF1B23BA3351BE501E0117DAA5994C05968FD2B33' +
           '5C8928A9D8570CF36B55AA7BCC4A4C95E094134FCC6E4C9D1ED10' +
           '743A88F323307E2C5AC4728EEC447C64AD16E76DE32C5661E59FE' +
           'EC3E187C057E8832A60643CD47E7396B471BE43D43BEB24E3D39C' +
           '2748C61D02D7A89F08C64AC754C3BBF4FA991B12FE4F5B4B8F21C' +
           'D939D3BB6906EE542CC4FE218AD1687F72D01BACED9D82143CFEF' +
           '407CF7A0C06F967C5BC7E6E84A7CAABF1420E97E909C39C08E6A3' +
           '9BDA884C3D4D19579EA867BB66281809DB9673C4CCC9FA4CA7977' +
           '9081ABB0757A7A4C6651DCB8FF587B86720537B1FF71098D00783' +
           'D22E983E544379B182382BB6BA194FFB8CFDC7FA79863DA731143' +
           'FA2B80C3E81F98A746487AE2A03668D993E186A270DA6AB067396' +
           '3371ADB87E5E46566C8761D4D35999EEAD17EBFF9D182DD39D690' +
           '847A96FC49F40096316B9C75A5EC153FD3726424498422ABD780E' +
           '7AAC6FE1609CC5779D65D486B1F380993ADB447E4A562DC26E18A' +
           '9D3FA434FA78EBEC7D4C0337D336674C0564F2233D1D3B4F3C829' +
           '64E57BEEF1395C86954AFBB408A7ECF35E5FA686CAF7C108FBD85' +
           '3588BFD46065F3CA3319E583ACF45A919749F8D32645DCF9F978B' +
           'AD752F8889D2CA40A7AA2AEF65115D323A7D3018BDB4A8E7E7D86' +
           'F6DA0BAC4BB532A8355EE633D31A6554DFC843E184F643DC654FD' +
           'C3ECAA8CF09CD4E0E9603E3E527D48FE448C583792C157EC2BAA9' +
           'D768ACF95A4AB297E5A1F8CCBF1B25C6E4F7CA97DD75F59BF94C7' +
           'D1900D53FDCDC64E53C63D9AD2DF85FF76144F8D75C378491F8C8' +
           'E9A27E6AA6A91D546EAF95CE58FD55A0BD09053BFDF2AEC86546C' +
           'CF28C6193BE7CBDB3C3FBE840BAA7ECBD58C335972DDA0F106FF0' +
           '2C05ECF31');

    end;




    procedure dropper;
    begin
    if(IsFKeydown(5)) then
    begin
    DisguiseScar('Now Dropping You Lazy Bastard');
    mousespeed:=5;
    dropto(2,28);
    droptimes:= droptimes + 1;
    DisguiseScar('Done Dropping');
    end;
    end;


    procedure spammer;
    begin
    if(isfkeydown(6)) then
    begin
    DisguiseScar('Now Spamming');
    wait(2000);
    typesend(spam);
    spamtimes:= spamtimes + 1;
    DisguiseScar('Done Spamming You Line');
      end;
    end;

    procedure highalch;
    begin
    if(isfkeydown(7)) then
    begin
    DisguiseScar('Now High Alching');
    gametab(7);
    repeat
    mouse(711,372,5,5,true)
    wait(2000+random(700));
    mouse(711,372,5,5,true)
    AlchTimes:=AlchTimes + 1;
    until(Alchtimes = Howmanyalchs)
    DisguiseScar('Done High Alching');
      end;
    end;


    procedure lowalch;
    begin
    if(isfkeydown(8)) then
    begin
    gametab(7);
    DisguiseScar('Now Low Alching');
    repeat
    mouse(708,294,5,5,true)
    wait(2000+random(500));
    mouse(708,294,5,5,true)
    Alchtimes:=AlchTimes + 1;
    until(Alchtimes = Howmanyalchs)
    DisguiseScar('Done Low Alching');
     end;
    end;

    procedure Lazy;
    begin
    if(isfkeydown(9)) then
    begin
    DisguiseScar('Now Loging In');
    if(FindBitmap(Login,x,y)) then
    begin
    ClickBMPS;
    typesend(username);
    wait(500+random(150));
    typesend(password);
    wait(500+random(100));
    if(FindBitmap(Logged,x,y)) then
    begin
    wait(1500+random(1500));
    ClickBMPS;
    DisguiseScar('Done Loging In');
    end;
    end;
    end;
    end;


    procedure credits;
    begin
    ClearDebug;
    DisguiseScar('Showing Credits');
    writeln('This Script Was Made By Buckleyindahouse');
    writeln('This Is My Version Of RS Bitch          ');
    writeln('You Are Using Buckleyindahouse RS Hoe 1.0');
    DisguiseScar('No More Credits');
    wait(1000);
    DisguiseScar('Scar Your Autoing Friend');
    end;



    procedure ReportStats;
    begin
    cleardebug;
    DisguiseScar('Now Show Your Report :)');
    Writeln('You Have Been Using RS Bitch For'+(timerunning));
    writeln('You Have Alched:'+IntToStr(Alchtimes)+'Times');
    Writeln('You have Spammed You Line For:'+IntToStr(SpamTimes)+'Times');
    Writeln('You Have Auto Dropper You Inventory:'+IntToStr(Droptimes)+'Times');
    Writeln('REMEMBER I AM NOT RESPONSIBLE IF YOU GET BANNED AND HAVE FUN');
    DisguiseScar('Done Showing Your Report!');
    end;

    ////////////////////////////MAIN LOOP\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    begin
    SetupSRL;
    credits;
    wait(1500);
    activateclient;
    LoadBitmaps;
    repeat
    dropper;
    spammer;
    highalch;
    lowalch;
    lazy;
    until(False)
    ReportStats;
    end.

  7. #7
    Join Date
    Jun 2006
    Location
    Tennessee, USA
    Posts
    2,603
    Mentioned
    1 Post(s)
    Quoted
    46 Post(s)

    Default

    wow buckleyindahouse, those are really big bitmpas lol!

  8. #8
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    LOL, Yea didnt really know how to do bitmaps back then but hey.....they work

  9. #9
    Join Date
    Jun 2006
    Location
    Tennessee, USA
    Posts
    2,603
    Mentioned
    1 Post(s)
    Quoted
    46 Post(s)

    Default

    Quote Originally Posted by Buckleyindahouse View Post
    LOL, Yea didnt really know how to do bitmaps back then but hey.....they work
    hey if they work, lol thats all that counts then.

  10. #10
    Join Date
    Dec 2006
    Location
    San Jo, Cali
    Posts
    45
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey I tweaked your script a little so it wouldn't be as slow... Here it is:

    I also made it so it would login your player but there are two slots (and yes you can adde more) for another player if you want. And the best part is all you have to do is hit F5 and it will logout your current player and login the next player on the list. If it's slow or laggy it's just your computer.

    SCAR Code:
    Program AutoTalker;
    {.Include SRL/SRL.Scar}
    {.include srl\srl\extended\xtext.scar}


    Const
    msg1 ='Hey'; //F1 to type
    msg2 ='Go away'; //F2
    msg3 ='Okay...'; //F3
    msg4 ='Selling'; //F4
     
    Procedure DeclarePlayers;
    Begin
      HowManyPlayers := 2;
      NumberOfPlayers (HowManyPlayers);
      CurrentPlayer := 0;

        Players[0].Name :=''; //user name
        Players[0].Pass :=''; //password
        Players[0].Nick :=''; //3 consecutive letters of username
        Players[0].Active := True; //don't touch

        Players[1].Name :='';
        Players[1].Pass :='';
        Players[1].Nick :='';
        Players[1].Active := True;

    End;

    Procedure Talk;
    Begin
      If(IsFKeydown(1))then
        begin
          TypeSend(msg1 + chr(13))
        end;
    End;

    Procedure Talk2;
    Begin
      If(isFKeydown(2))then
        begin
          TypeSend(msg2 + chr(13))
        end;
    End;

    Procedure Talk3;
    Begin
      If(isFKeydown(3))then
        begin
          TypeSend(msg3 + chr(13))
        end;
    End;

    Procedure Talk4;
    Begin
      If(isFKeydown(4))then
        begin
          TypeSend(msg4 + chr(13))
        end;
    End;

    Procedure Switch;
    Begin
      If(isFKeydown(5))then
        begin
          Logout;
          NextPlayer(True);
        end;
    End;

    Procedure AllTalk;
    Begin
      Switch;
      Talk;
      Talk2;
      Talk3;
      Talk4;
    End;

    Begin
    SetupSrl;
    ActivateClient;
    DeclarePlayers;
    LoginPlayer;
    Wait(50);
      repeat
        AllTalk;
        Wait(20 + random(40))
      Until(False)
    End.
    http://img141.imageshack.us/img141/6...ats2jk5fx8.png
    There are currently 10.0 blackmarks out of 10 on this account
    You are permanently banned --- Rest In Peace

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Auto Typer
    By scissormetimbers in forum First Scripts
    Replies: 12
    Last Post: 08-07-2012, 12:51 PM
  2. Auto Typer
    By kevin0095 in forum First Scripts
    Replies: 4
    Last Post: 12-31-2007, 06:38 PM
  3. VERY VERY VERY x4 auto typer
    By rs cheata in forum First Scripts
    Replies: 14
    Last Post: 11-25-2007, 04:43 AM
  4. i need help again (not an auto typer)
    By corl455 in forum First Scripts
    Replies: 5
    Last Post: 09-18-2007, 09:08 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
  •