SRL Archive - RS3 Outdated / Broken Scripts

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–

  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.

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

i know i tried that and it just types the letters it dont send em to RS

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.

ok thx i appreciate it =]

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

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

wow buckleyindahouse, those are really big bitmpas lol!

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

From: Buckleyindahouse
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.

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.

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.