This works there was some sort of error with the login im not sure why but i removed it and the script works fine.
Recomendations
- make it so that you only have to press the f-key once and then itll repeat like 5 times
- make sure you let people know that they have to press the fkeys for it to work (state at the begging of your script)
Good work though!
Code:
{.include SRL/SRL.scar}
const
w1='selling 84 coal';//type what ever you want it to say between the ''!!
w2='';//Same here! If you dont want it to say anything, dont put anything!
w3='';//Same here!
w4='';//same here
Procedure DeclarePlayers;
begin
HowManyPlayers:=6;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name:='';
Players[0].Pass:='';
Players[0].Nick:='';
Players[0].Active:=True;
Players[1].Name:='';
Players[1].Pass:='';
Players[1].Nick:='';
Players[1].Active:=True;
Players[2].Name:='';
Players[2].Pass:='';
Players[2].Nick:='';
Players[2].Active:=True;
Players[3].Name:='';
Players[3].Pass:='';
Players[3].Nick:='';
Players[3].Active:=True;
Players[4].Name:='';
Players[4].Pass:='';
Players[4].Nick:='';
Players[4].Active:=True;
Players[5].Name:='';
Players[5].Pass:='';
Players[5].Nick:='';
Players[5].Active:=True;
end;
//////////////////////Don't Change After here//////////////////////
procedure Autotlk;
begin
If (IsFkeyDown(1)=True) then
Begin
Typesend(w1)
end;
Begin
If(IsfKeydown(2)=true) then
begin
Typesend(w2)
end;
Begin
If(IsfKeydown(3)=true) then
begin
Typesend(w3)
end;
Begin
If(IsfKeydown(4)=true) then
begin
Typesend(w4)
end;
end;
end;
end;
end;
////////////////////////////////////////////////////
begin
ActivateClient;
DeclarePlayers;
{removed the login that was here}
If (IsFkeyDown(9)=True) then
Logout;
If(Not(LoggedIn)) then NextPlayer(False);
repeat
autotlk;
wait(100);
until(false)
end.
SUMMER BREAK be back when I want to