SRL Archive - OSR Help

Why wont it select world 2?

k9thebeast

2012-05-17 02:38:17

It just logs in and hits the big button to loggin it doesnt switch to openworld screen at all. I have tried doing this instead

repeat
      OpenWorldScreen;
    until WorldScreen;

but it doesnt help…. any ideas?

procedure SetupLogin;
begin
  ClearDebug;
  Smart_Server := 10;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;

  if not LoggedIn then
  begin
    repeat
      LoginPlayerToLob;
    until LobbyScreen;

    

    OpenWorldScreen;
    if not WorldScreen then
    OpenWorldScreen;
    if WorldScreen then
    begin
      writeln('picking world 100');
      SelectWorld(100);
      LogInPlayer;
    end;
  end;

  repeat
    wait(500);
  until LoggedIn;

  if LoggedIn then
  begin
    ClickNorth(SRL_ANGLE_HIGH);
    ExitSquealOfFortune();
  end;

  if not IsXPBarOpen then
    ToggleXPBar(True);
end;

Harry

2012-05-17 02:54:44

Use .WorldInfo on your CurrentPlayer.

If you don't understand that, read this:

Players[CurrentPlayer].WorldInfo := [Member, WorldNumber, AllowPVP];

CephaXz

2012-05-17 03:03:49

From: k9thebeast
It just logs in and hits the big button to loggin it doesnt switch to openworld screen at all. I have tried doing this instead

repeat
      OpenWorldScreen;
    until WorldScreen;

but it doesnt help…. any ideas?

procedure SetupLogin;
begin
  ClearDebug;
  Smart_Server := 10;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;

  if not LoggedIn then
  begin
    repeat
      LoginPlayerToLob;
    until LobbyScreen;

    

    OpenWorldScreen;
    if not WorldScreen then
    OpenWorldScreen;
    if WorldScreen then
    begin
      writeln('picking world 100');
      SelectWorld(100);
      LogInPlayer;
    end;
  end;

  repeat
    wait(500);
  until LoggedIn;

  if LoggedIn then
  begin
    ClickNorth(SRL_ANGLE_HIGH);
    ExitSquealOfFortune();
  end;

  if not IsXPBarOpen then
    ToggleXPBar(True);
end;


      SelectWorld(100);

Change it to 2. And isn't this from my script? lol.

From: Harry
Use .WorldInfo on your CurrentPlayer.

If you don't understand that, read this:

Didn't know there's such thing. Learnt something again :p

k9thebeast

2012-05-17 03:32:58

^^^^ :P

k9thebeast

2012-05-17 03:45:51

From: Harry
Use .WorldInfo on your CurrentPlayer.

If you don't understand that, read this:

How come

Players[0].WorldInfo := [Players[0].Member, 2, False];

Just logs me into a random world? It wont log into world 2? This time it goes and selects a specific world, but never the world I intended

CephaXz

2012-05-17 03:47:51

From: k9thebeast
How come

Players[0].WorldInfo := [Players[0].Member, 2, False];

Just logs me into a random world? It wont log into world 2? This time it goes and selects a specific world, but never the world I intended

Then just use mine, change 100 to 2 lol.

k9thebeast

2012-05-17 04:02:35

From: CephaXz
Then just use mine, change 100 to 2 lol.

Yours doesnt work lol. I dont understand why it works for ur script but not for mine lollolololo

iBlank

2012-05-17 04:03:56

From: k9thebeast
How come

Players[0].WorldInfo := [Players[0].Member, 2, False];

Just logs me into a random world? It wont log into world 2? This time it goes and selects a specific world, but never the world I intended


Const
World = 88; //Enter world you want to use script in.

Procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name :='';  // Enter your username here.
  Players[0].Pass :='';   // Enter your password here.
  Players[0].Nick :='';    // Enter nickname for progress report.
  Players[0].Active:=True;
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins'];
  Players[0].WorldInfo := [False, World];
End;

That is the declare players procedure I use for most of my scripts. Just make sure to have World as a constant and then you will log into whatever world you put it equal to.

k9thebeast

2012-05-17 04:10:31

From: alevere4


Const
World = 88; //Enter world you want to use script in.

Procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name :='';  // Enter your username here.
  Players[0].Pass :='';   // Enter your password here.
  Players[0].Nick :='';    // Enter nickname for progress report.
  Players[0].Active:=True;
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins'];
  Players[0].WorldInfo := [False, World];
End;

That is the declare players procedure I use for most of my scripts. Just make sure to have World as a constant and then you will log into whatever world you put it equal to.

That worked due! Love ya no homo :) Thanks everyone for ur help!

Olly

2012-05-19 09:01:50

Never actually knew about that haha

NKN

2012-05-20 19:26:14

You don't need it as a constant.


WorldInfo := [False,2]

Would also work.