PDA

View Full Version : Sybers Auto Typer[Lil Laggy.. Need help on lag fix]



syberium
01-01-2007, 08:10 AM
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.

Buckleyindahouse
01-01-2007, 05:39 PM
When you use typesend i dont think you need to use +Chr(13).

syberium
01-01-2007, 07:54 PM
i know i tried that and it just types the letters it dont send em to RS

Buckleyindahouse
01-01-2007, 08:02 PM
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.

syberium
01-01-2007, 08:04 PM
ok thx i appreciate it =]

Buckleyindahouse
01-01-2007, 08:07 PM
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' +
'DDB5374D1F936BF3FF9FD4BB3A0FF4D0800051CCBD249D6A3 25E5' +
'952B7840850A4EEDB7DBF3FEFFFDC7F3D6EDFED77FBDDF2F6 F6FE' +
'DF9FFB5FD4ECBFF68FE7DBFEBABF3DF7E3F7E7CBF3C7CB16D BC1A' +
'7C7081DED316F6AB7B7ED7DDFF7C7BF7F7FE776FBBD7DEC3F E3EF' +
'47FFF8167A7EFA348CA3B479CC531B3FE53D8FF6657BDD6FD B63D' +
'BB6F7652D9F5159C3F124F689CF630BD6F0F8F9787B7C1C2D 5F6D' +
'ECC95BFE567D1684978C05B78DD65E1F610E4D173D019A3E9 F041' +
'B862810B003FB1CAB9AC35DB4CFB09293AD462C2848E4E8C8 88A8' +
'8C863E3591CED1D181CDF829F72F03CB0C5840FD3BFC4E69C CB87' +
'E8E08843B84CDDC468CA04F5DC42134211B88B69A777B8E0E 64E7' +
'D9837044289F667F2478A8393F62B7610D112F796F3F71308 E236' +
'499C9BF20BF037D01F5500B781DF20275EF666244E272D9BF E4FE' +
'CAFF3E6A3973EB637DEEAA14DFC139A43CBEE45F82ADEA9C4 A514' +
'0837783C5DAE840769E6CF5B47B4FED0036529047CB368350 30A7' +
'2FD0FE4F77D1CF36AA3F777697B3159818D4539C61E6D5BA7 8015' +
'CCBDDDB4B0A056890923789562AF3CCB57C2F7B04F47CE041 D01E' +
'8EF6C9AC7AF8AE9E145C2922A12B2377B7477106C59BC8B34 87AD' +
'FE43F86C7E16C84337F853521659DBCD532BC207424EEA46B 7C43' +
'A7201BC8E8E016A2EFFC6B23757AF4CF8D16225F33151F43F E652' +
'ED265F02264DB4817735BCA7E27BF851814478ACBB2C2BCA7 B874' +
'7D4CC14F49DA5957E2323F59A0AC5DCDA5A81EC5DB1662680 A5E1' +
'A4F58103A2AA73CB2BD956C18E125C79CEB18414C46E1752E 5B43' +
'116C61B401829076587A52E38EDC8D9701D74ABBF7320C725 6A6C' +
'77575FE533943E1EB513C0ED70E191D8A32E20CAD7EDAE26A 90A9' +
'0855DDE62BED1C5E1052D69E487E083F92B52B3A485755AED 7D0E' +
'3C6F9FC14F4413DD13720C59C395EE64E3F0316144BAED879 1F46' +
'90DEAF587807978BB8B8D19FCAA9DF8545E51D1BF88513727 5F5C' +
'1ED10F02EE447169CE6543276F8A702CB5A6BCF1DFEA58297 F63C' +
'318A17AE172E76E96CE70207D3ADF16285C02BF1313FE78D4 8998' +
'AAA413E8614CAD7B43496EB5A7837E39A8B27AF3AA7B0158A 8E17' +
'3D172BF5478C4EB1EA38E6002F69AEC97D1EE5B371168770C 1FD5' +
'7471E6647BEA89C0F53E1811C2F93CA4538AF31E25A60F7BE B0F0' +
'233FF9EFFF32E245A7E769AE13A30BCF078A096081ABAA38D 7614' +
'57C961CDDE533C26840B2DBD35BC1979D9E276F3B586DB2B4 8E9E' +
'6EAE5707C7D3F1026DDBCC7ED1FD17D72F794CF4CD67A583D 0E72' +
'A26DEFFC2BF84BD17AD53E91F6791A21F0135799C8C08FE1C FD64' +
'3CA275A2F5E4B7FE2FED2FE5F3BB6704C877089996CA1928E 7636' +
'864F8CD07DEC247D6BD06B231B4332B58D3FB23FBE4DC09F5 87DC' +
'52F76B088F605EFE3D40FB47E7380514E8AD9DCF2F7B878EF 8585' +
'6258A7FC9AC1EE225CC0EF770EA01F59840FD39B44F7A2668 E02E' +
'617FCE5FE8BE1EF994AFD4F893F9C9C877808C94B591B4E35 D68D' +
'5610D3A1F8BA819E0257952D45F894818EFAEC211CDF377F9 D8C5' +
'690EC5A9C2DF62FEB38217E86550CE4F5B84E184173D7A59C F433' +
'6F1C27D87C4ED814E47B637D81B297FAB606D8E1729F686AC 1432' +
'22D35FE85E06E9FDE8EF0C6DD2902760F8178A886579EF727 B137' +
'E720C0AC6A600BB40CFE1D968FA1E50CF3C667C57799E3502 D73B' +
'F024315A17FD97F21995FED25BD10E058DAF447DEBF13443B F500' +
'FA2648BB5549428A329F95A42FDBE9151E3E6C0CC9D1C81DC 8341' +
'CC01DDDA913390954CFEEEFA7D3D6B9A624739DF774F458D7 A319' +
'D9BE91956AE1529F757289835F31B616519AFE86FAB504631 7083' +
'FFE79812CF1646D6ABDC0FD38126D7C2394343DA47607450E FAFB' +
'AC92145B1EC3C7CDD4329C8D27780BE9BA0E49C9CACDC0D1D E156' +
'28A32A5DA4A315D550F74A951A349ED5E0D6CEE87ABF60B1F 649A' +
'5523B5CB977A20F17736B48992D30BA2528AC0B7B164EFCB9 C691' +
'B237EB4899E34808B3CA5D3753E738102FDC963A76E68A55F 31A9' +
'38AA76BF326A5DBFF787DBA9E458CAC2BE56DC26A6BA57EDF BD01' +
'40B90D40A9802BCC659CEF23EBA26A62D0B37CD7168F6C0FB 44FE' +
'50698297494FE457A2D00D502F6ED4CF5FBF45C0615B3B2DD FA7D' +
'54A166D684BA1103989F6CC69AEC2A4237AF5ED13595AA2E2 5F2A' +
'67C3F61072ED5234FED3983189792B7ACD4FB77DC49EB5665 2AAA' +
'A4A13673329F5FB69C0A762E544C9BBD191139D787F231F53 B349' +
'2EF984410676E0A6A74EFA370A1F20DB192F697EF0770EBF7 1768' +
'8DB28E1EE4E1D4798E50DD3FA8DF5762868B6EF69BBBF35CB A8D3' +
'9D50B2831BA65B5FC6D27F25F53BF5FBA0DAFFBC41F61B352 29A9' +
'EB0E97C5097735DB765E460D676BEEBD1F128E4C44544EEAB FA67' +
'EFF0FF25259D1');

logged := BitmapFromString(143, 34, 'z78DAED5DD1721A310CFC2' +
'5E00E9A3C9204FEFF939A621E74A35B79D792691E42A79E8C 31BE' +
'A3D5DE4A2B59397E1EBF4E87E3EFF83BFE8ECCB81CD7E3F9F 0F1E' +
'F8F9D6F33EB715DD6AFE7F8B5DECFD7F56DBD9ED7F6F3F972 FE73' +
'59ECD879B7ED30636CD775E3725D3ED6753D7DFFBDF971B92 DF7F' +
'5DDFEDCD6DB4FA1F9CDBB661F66F47B6E46FB6EBCB28D97E5 6D3D' +
'2CA765593ECAC6F88ACC3DB419BBC6CEDB11DCC3E9FD743DD DDB1' +
'8DFAD5D198FF1A7AAAE6231A522CBA3461D2D2EF23B8CE16E 6725' +
'C0DD73C6583BC40B8132B8A6DDD51842AD259B3BD958B5450 D83D' +
'918471E3B99DDD0BBE23321C6D10C14FB353BC87ACCF09CD5 B161' +
'831AB47E0697A5F6B4F71F63072114A1D88F164DE85D159B0 877C' +
'85AAC557B0689718410E15929C60EF3AEE73882F5C6B8491E DD3D' +
'A8C8F27CB1F10063C4211B769C85B80CF24BC87A055E25629 63C6' +
'38A68A23C49CF597E3D6327688CFDC6793EA77A570C1FC51E 2CBD' +
'BFC059661E7296B16ADEA36322B5CE678D6DCB3842887056B D618' +
'4A167858C29C492DEBA105EC6E220C429C4937913A5AA5757 3DC6' +
'841F08E3BED8BFF5773B0F59C0D353F9221549815829C550D 69E6' +
'92FB7D6DBF42C83E63BAC8478013D7B7D741633858B34531A 0B1F' +
'C1A90C82941386A1E8AB080A06C359A2F725B058EC0BC5110 AE3B' +
'321ADC0316019B2108E9CE7C6AB16423C85ACC5E328B6259E 4D6A' +
'554A5EF9549552C45F4338CA73D698CA277865080528D28FA DCE7' +
'399FF14F2DF624CA93E9EB9EE46BDCFEF49701FA506F0DA02 ED1D' +
'1568056A6CC844670C83A7F5C32A644DCC58211C65B266B46 5A6A' +
'C1D21CB2BF37934213F8AF12A555F11E9FCC46E1D9B44314E 69E6' +
'4BDDF9E720ABE3E9394628436BEC13F2EA37EF7D657252F1F D302' +
'C16C7381E474C0417FB87F9EC951A2B25D4B9620CCED006FF FD3F' +
'2E2AB210A6A6E482012308F95C265EE3A33F95897875DD67A EC11' +
'AB412FD0B50CA7C8CACB1BCB3410D63F31944CC43D3A082D1 90F5' +
'18335898EE4986B9DD4CBE75C7F63C7E01D7DCCD4B8892628 B055' +
'E1FF35419CC8E65EAAFE277091F6F86E5D7A2EC35C89A5E1F 18EB' +
'21615CB3F3E4F79F253C40DE6E2DB20E8F17623AE609B0C1D 490A' +
'208BD411449BD660C156F150BAFF1F7E2EA0E0A599FEBEDFC 7E3E' +
'7D7B72375973A8AD44E2ABAAC4AA86AA9A228FD90EB29085A BDC8' +
'1FCDED88744578C397146A5EE8C8A62BABA29E38566F2590D 53CF' +
'712CC222F25F82A6C75B7EAB7567A22A467BE7F16B6676901 5332' +
'38A74BCD6E734F0D8C7B377222884BEEA8351455E889A7C8D 5FAD' +
'8729788386B3040F10D86D8127C9F04B9CF9452A1CC36B0C8 BC5C' +
'80A239D3B78A1C8A5B3DED9FFC1BCFC1DEEECE3AB98089415 9C76' +
'C9D422BE44CD2840568BB31EF892732E888F885A5C39FBEC5 0432' +
'10B453A457EA64716B243BFB2BD76B8865F6FFC2E84538FA6 9D7D' +
'5CF6AAC3B6F99A465491C82005E5C5D278499DCF0A150CA18 242B' +
'4FC32DD0330178FAC4E0E57ACB665382B66B7FC3C4262B325 06A1' +
'76FD4E7D549512E2EC1CD6FAFE57D5A22C9FD5D8AA8D8071A 06D2' +
'7AA7607750FC72614C7F135186225128CB3E895C2BC8AB8C7 77E4' +
'11C7EBA5052A87612EBEBA6F87B95005D7E4E84F5530048D3 75FD' +
'34E208BF2F790BAAED6200D552251C80AB58E3CB254CE4288 8B6B' +
'20CB14FBF8BC095DE934BB96A31859C479C3B2D316B5D92EB 56E3' +
'C54AAF9DA8C3BF1B23BA3351BE501E0117DAA5994C05968FD 2B33' +
'5C8928A9D8570CF36B55AA7BCC4A4C95E094134FCC6E4C9D1 ED10' +
'743A88F323307E2C5AC4728EEC447C64AD16E76DE32C5661E 59FE' +
'EC3E187C057E8832A60643CD47E7396B471BE43D43BEB24E3 D39C' +
'2748C61D02D7A89F08C64AC754C3BBF4FA991B12FE4F5B4B8 F21C' +
'D939D3BB6906EE542CC4FE218AD1687F72D01BACED9D82143 CFEF' +
'407CF7A0C06F967C5BC7E6E84A7CAABF1420E97E909C39C08 E6A3' +
'9BDA884C3D4D19579EA867BB66281809DB9673C4CCC9FA4CA 7977' +
'9081ABB0757A7A4C6651DCB8FF587B86720537B1FF71098D0 0783' +
'D22E983E544379B182382BB6BA194FFB8CFDC7FA79863DA73 1143' +
'FA2B80C3E81F98A746487AE2A03668D993E186A270DA6AB06 7396' +
'3371ADB87E5E46566C8761D4D35999EEAD17EBFF9D182DD39 D690' +
'847A96FC49F40096316B9C75A5EC153FD3726424498422ABD 780E' +
'7AAC6FE1609CC5779D65D486B1F380993ADB447E4A562DC26 E18A' +
'9D3FA434FA78EBEC7D4C0337D336674C0564F2233D1D3B4F3 C829' +
'64E57BEEF1395C86954AFBB408A7ECF35E5FA686CAF7C108F BD85' +
'3588BFD46065F3CA3319E583ACF45A919749F8D32645DCF9F 978B' +
'AD752F8889D2CA40A7AA2AEF65115D323A7D3018BDB4A8E7E 7D86' +
'F6DA0BAC4BB532A8355EE633D31A6554DFC843E184F643DC6 54FD' +
'C3ECAA8CF09CD4E0E9603E3E527D48FE448C583792C157EC2 BAA9' +
'D768ACF95A4AB297E5A1F8CCBF1B25C6E4F7CA97DD75F59BF 94C7' +
'D1900D53FDCDC64E53C63D9AD2DF85FF76144F8D75C378491 F8C8' +
'E9A27E6AA6A91D546EAF95CE58FD55A0BD09053BFDF2AEC86 546C' +
'CF28C6193BE7CBDB3C3FBE840BAA7ECBD58C335972DDA0F10 6FF0' +
'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.

Mjordan
01-01-2007, 08:28 PM
wow buckleyindahouse, those are really big bitmpas lol!

Buckleyindahouse
01-01-2007, 09:07 PM
LOL, Yea didnt really know how to do bitmaps back then but hey.....they work :)

Mjordan
01-01-2007, 10:17 PM
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.

Sparrows
01-02-2007, 10:25 PM
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.