Okay now first you have to realize I know nothing about scripting, but from what I thought I knew I tried to make this. It was simply supposed to prevent me from logging out, use the declare players line to detect randoms and that's it. Check skill tabs, rotate the camera angle and perform anti randoms. This is what I did so far and it won't even compile.
program dontlogout;
{.include SRL/SRL/Misc/Smart.Scar}
{.include srl/srl.scar}
procedure declarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //username
Players[0].Pass := ''; //password
Players[0].Nick := ''; //3-4 letters from your username
Players[0].Active := True;
end;
function FindNormalRandoms: Boolean;
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: SolveNonTalkingRandoms;
2: Respond;
3: Result := FindTalk;
4: Result := FindDead;
5: Result := FindLamp(LampSkill);
6: if FindBox then
Result := SolveBox;
7: Result := RC;
8: Result := FindMod;
end;
if Result then
Break;
//Wait(1);
end;
end;
begin
setupscript;
login;
FindNormalRandoms;
repeat;
repeat;
end



Reply With Quote








