SRL Archive - Help

Need help with a simple script


nazgul123

2013-01-10 02:34:20

I need help with a script. I've been trying to figure out how to make one but I just cant.

all I want it to do is just hold down a key for example.


On the action bar I have a toy horse to say 'neigh for gambling'.

I want to be able to make a script that once it logs in all it does is hold that one action.

Like if i put it on '1' bar.

I want it to hold '1' forever.

111111111111111111111111111111111111111111111111111111111111111111111.

Help please!

lastprojectrs

2013-01-10 02:39:12

post wat u hav so far?

nazgul123

2013-01-10 02:42:07

I don't have really much because I don't know how to use the keyup and keydown.

can you please help?

riwu

2013-01-10 02:42:33

keyDown(VK_1);

nazgul123

2013-01-10 02:46:43

Ok now how do I make it do that in the client. Sorry I'm new to this stuff :(

nazgul123

2013-01-10 02:51:02

Begin
SetupSRL
Declareplayers
LoginPlayertoLob();
SelectWorld(2);//
LoginPlayer;
Activateclient
end.

begin
keyDown(VK_1);
end

lastprojectrs

2013-01-10 03:09:02

From: nazgul123
Begin
SetupSRL
Declareplayers
//lastprojectrs
LoginPlayertoLob();
SelectWorld(2);//
//lastprojectrs
LoginPlayer;
Activateclient
end.
//lastprojectrs

//lastprojectrs
//lastprojectrs

begin
keyDown(VK_1);
//lastprojectrs
end


program new;
{$Define SMART8}
{$I SRL/SRL.Simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
Procedure Setup;
var loggedingame: Boolean;
//lastprojectrs
var x,y: Integer;
Begin
{$IFDEF SIMBAMAJOR980}
SMART_SERVER := 2;
SMART_MEMBERS := TRUE;
SMART_SIGNED := TRUE;
SMART_SUPERDETAIL := FALSE;
{$ELSE}
//lastprojectrs
SMART_FIXSPEED := TRUE;
{$ENDIF}

//lastprojectrs

SetupSRL;

ClearDebug;

DeclarePlayers;
End;
procedure click1;
begin
keyDown(VK_1);
end;

begin
setup;
//lastprojectrs
repeat
click1;
until false
end.

your welcome. C:

nazgul123

2013-01-10 13:50:09

says [Error] C:\Simba\Includes\SRL/SRL/misc/SmartParams.Simba(281:149): Invalid number of parameters at line 280
Compiling failed.

The Killer

2013-01-10 13:51:48

From: nazgul123
says [Error] C:\Simba\Includes\SRL/SRL/misc/SmartParams.Simba(281:149): Invalid number of parameters at line 280
Compiling failed.


remove the 8 off "smart8"