SRL Archive - Other Scripts

Hi, this is probably very simple to code.
But I am a super noob.
I want a script for maplestory.
I want it to press the "s" key constantly without pressing enter, so you cant use typesend. It presses the "s" key repedeatly for 30 seconds then presses the left arrow 2seconds right arrow 3seconds and left 1 second.
Then just at so that it goes on and on until I press stop.
I know this is somehow possible, but I cant do it, please help!
heres my code so far (I cant use typesend tho.) =

     
program autoattacker;
{.include srl/srl.scar}


const
Skill='s';// The skill button on your keyboard
waits=70;//

                                 
procedure autotatk;
begin
Disguise('autoatk')
wait(1000)
typesend(skill)a

end;

begin
SetupSRL;
wait(2000);
repeat
autotatk
until(false)

end.

you could just change TypeSend to not press enter..

I can do this really quick I think :)

one sec..

You could use TypeByte() it uses one Letter or Something.

Like: TypeByte(Vk_Left); TypeByte(Vk_Right); TypeByte(Skill);

Edit: Lol 99_, I like your Siggy :p

Line 22: [Error] (16228:1): Type mismatch in script C:\DOCUME~1\Wade\LOCALS~1\Temp\atker.scar I get that when

             {    m4r1us simple auto talker }
             {    created by m4r1us         }
             {      Date 2008 11 25         }
             {      edit 12 line            }
             {______________________________}

program autotalker;
{.include srl/srl.scar}


const
Skill='s';// The skill button on your keyboard
waits=70;//

                                 
procedure autotatk;
begin
Disguise('autoatk')
wait(1000)
typebyte(skill)

end;

begin
SetupSRL;
wait(2000);
repeat
autotatk
until(false)

end.

It didnt even work if I put a ;

to do the repeating for 30 seconds.. do..

procedure Whatever;
var
  T: Integer;
begin
  MarkTime(T);//declare T as an integer..
  repeat
    TypeByte(Skill);//doesn't work :/ let me think..
    Wait(RandomRange(50, 100));//dunno if you want it to wait a little or just type really fast.. :p
  until(TimeFromMark(T) > 30000);//30 seconds.. so it will be like.. 30.05-30.1s :)
end;

:D

and thanks noidea ;D

hmm..

it can't be a string..

because TypeByte types a char..

so..

idk how to make a str into a char..

I'll see what I can do..

if I can't do anything, I'll do a different way :)

Failed when compiling
Line 22: [Error] (16228:16): Type mismatch in script C:\DOCUME~1\Wade\LOCALS~1\Temp\m4r1us auto talker.scar


What now?

program vbsendkeystest;
begin
  SendKeysVB('Lala{left}uu{enter}{end}', True);
  Sendkeys('eee');
  SendKeysSilent('hhhh');
end.

:)

check your scar folder if you're bored :o

I've learned a lot..

(if you don't know how to fix your problem..

just change TypeByte to SendKeysVB ;)

it did..

sssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss

in that amount of time :p

is that enough? too much? just right? if it's too much just add more to the wait..

:)

and for left and right, do VK_Left and VK_Right :)

actually.. if you want to hold it for 2 seconds or whatever then do..

HoldKey(VK_Left);
Wait(RandomRange(1750, 2250));
ReleaseKey(VK_Left);

program New;
{.include srl/srl.scar}

const
  Skill = 's';
  
procedure Whatever;
var
  T: Integer;
begin
  MarkTime(T);
  repeat
    SendKeysVB(Skill, True);
    Wait(RandomRange(50, 100));
  until(TimeFromMark(T) > 30000);
end;

procedure Press(Key: Byte);
begin
  KeyDown(Key);
  Wait(RandomRange(1750, 2250));
  KeyUp(Key);
end;

begin
  SetupSRL;
  repeat
    Whatever;
    Wait(RandomRange(100, 500));
    Press(VK_Left);
    Wait(RandomRange(100, 500));
    Press(VK_Right);
  until(IsFKeyDown(12));
end.

:)

Press F12 to stop it :o

rofl well u cant use typebyte(); because a byte is a number. (0-255 i think). so if u want a string/char u would have to use it 99s way with sendkeysvb