SRL Archive - Help

I'm having trouble getting these to work at all.

Everything else works fine - but I cannot for the life of me figure these two out.

I have checked the docs out and used examples directly from the includes but I still draw a blank.

Can someone put me out of my misery please ?

Am I missing something big or small ?

Anyone else fighting with these two ?

Thanks!

MakeCompass('W'); // can be N E S W
   SetAngle(SRL_ANGLE_HIGH);  

// not used this personally, so dont know how to edit, but i know it works

:)

MakeCompass('1-360');

SetAngle(true); - makes angle high

SetAngle(false); - makes angle low

Am I still on SRL4?

@jackeyboy29 / loser69: I appreciate your posts guys. Both of you are extremely positive in coming out with your code suggestions - and for my mind this should be pretty simple. It should just work.

But I am stumped. Neither set of code works for me. I can Mouse(), MMouse(), search for TPAs, pick up UpText, select the correct ChooseOption(), but bugger me - I just cannot fathom these two out.

I have only one include - srl.simba, and I have upgraded to SRL-5 and have everything else up-to-date.

What am I missing ? Any insights people ? I'm at my wits end.

upload the script, or pm it to me, and tell me where you want it to be implemented

setangle(0); would make it high, i think 1 is low and 2 is random, but 1 and 2 could be switched not sure.
MakeCompass should be n e s or w

MakeCompass('N') //makes you face north
MakeCompass('E') //makes you face east
MakeCompass('S') //makes you face south
MakeCompass('W') //makes you face west

SetAngle(0) //Tilts Your Camera All the way up
SetAngle(1) //Tilts Your Camera All the way down (I think) 

jackeyboy29: I really appreciate the offer of help, but I don't have a script at this stage - only a skeleton that I have been working with while experimenting with these two - MakeCompass / SetAngle, to try a figure them out.

I must say I am embarrassed to even post this. Oh well - here we go …

Oh, and as it IS JUST a skeleton, I have commented out those lines that I need right now - but could easily do so at a later date.

program Test;
//{$DEFINE SMART}
{$i SRL\SRL.simba}

var
  Xpos, Ypos:Integer;
  Banker:Boolean;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Member := True;
  Players[0].Active := True;
  Players[0].Pin := '';
end;

procedure Load_Antiban;
begin
  case Random(100) of
    10: BoredHuman;
    20: HoverSkill('random', False);
    30: HoverSkill('fishing', False);
    40: PickUpMouse;
    50: RandomRClick;
    60: RandomMovement;
    70: SleepAndMoveMouse(200 + Random(50));
    90: ExamineInv;
  end;
end;

begin
  //Smart_Server := 10;
  //Smart_Members := True;
  //Smart_Signed := True;

  ClearDebug;
  SetupSRL;

  //ObjDTM_Setup;
  //DeclarePlayers;

  //if not (LoggedIn) then
  //  LoginPlayer;

  MakeCompass('W');           // can be N E S W
  SetAngle(SRL_ANGLE_HIGH);

end. 

I don't think I'm going to recover from this one - win, lose or draw. :o

From: putonajonny

MakeCompass('N') //makes you face north
MakeCompass('E') //makes you face east
MakeCompass('S') //makes you face south
MakeCompass('W') //makes you face west

SetAngle(0) //Tilts Your Camera All the way up
SetAngle(1) //Tilts Your Camera All the way down (I think) 

@putonajonny: Yes, it really should be this simple - but somehow I am managing to build this up into something terrifying. :o

From: NickMystre
jackeyboy29: I really appreciate the offer of help, but I don't have a script at this stage - only a skeleton that I have been working with while experimenting with these two - MakeCompass / SetAngle, to try a figure them out.

I must say I am embarrassed to even post this. Oh well - here we go …

Oh, and as it IS JUST a skeleton, I have commented out those lines that I need right now - but could easily do so at a later date.

program Test;
//{$DEFINE SMART}
{$i SRL\SRL.simba}

var
  Xpos, Ypos:Integer;
  Banker:Boolean;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Member := True;
  Players[0].Active := True;
  Players[0].Pin := '9339';
end;

procedure Load_Antiban;
begin
  case Random(100) of
    10: BoredHuman;
    20: HoverSkill('random', False);
    30: HoverSkill('fishing', False);
    40: PickUpMouse;
    50: RandomRClick;
    60: RandomMovement;
    70: SleepAndMoveMouse(200 + Random(50));
    90: ExamineInv;
  end;
end;

begin
  //Smart_Server := 10;
  //Smart_Members := True;
  //Smart_Signed := True;

  ClearDebug;
  SetupSRL;

  //ObjDTM_Setup;
  //DeclarePlayers;

  //if not (LoggedIn) then
  //  LoginPlayer;

  MakeCompass('W');           // can be N E S W
  SetAngle(SRL_ANGLE_HIGH);

end. 

I don't think I'm going to recover from this one - win, lose or draw. :o

you left your password in there, i just changed it on rs. im pming you new pass

From: bolshak25
you left your password in there, i just changed it on rs. im pming you new pass

@bolshak25: I owe you a big one for this. Now I am doubly embarrassed

As they say in Navy / Airforce lingo - thank's for covering my six man.

From: NickMystre
@bolshak25: I owe you a big one for this. Now I am doubly embarrassed

As they say in Navy / Airforce lingo - thank's for covering my six man.

I did that on my first script :( great people here are very honest thankfully!

When you've managed to put something together, if youre still struggling, let me know!

I did the same thing with my password on my first script, don't worry about it, this script works fine:

program Test;
//{$DEFINE SMART}
{.include SRL\SRL.simba}   

var
  Xpos, Ypos:Integer;
  Banker:Boolean;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Member := True;
  Players[0].Active := True;
  Players[0].Pin := '';
end;

procedure Load_Antiban;
begin
  case Random(100) of
    10: BoredHuman;
    20: HoverSkill('random', False);
    30: HoverSkill('fishing', False);
    40: PickUpMouse;
    50: RandomRClick;
    60: RandomMovement;
    70: SleepAndMoveMouse(200 + Random(50));
    90: ExamineInv;
  end;
end;

begin
  //Smart_Server := 10;
  //Smart_Members := True;
  //Smart_Signed := True;

  ClearDebug;
  SetupSRL;


  DeclarePlayers;

  if not (LoggedIn) then
    LoginPlayer;

  MakeCompass('W');           // can be N E S W
  SetAngle(SRL_ANGLE_HIGH);

end.

I haven't tested it with smart but uncommenting those lines should do the trick, what is it you want to add to the script next?

I believe that I have found the solution to my Make Compass crisis.

My scripts would not respond to MakeCompass commands - no matter what I did.

/offtopic
This little issue cost me greatly as in my desperation to solve this, I posted a script with my login, pw and pin - and while I was notified by a good samaritan - other less that kindly souls had already helped themselves to most of what was worth having from my bank before I had made it back to change all my details. /offtopic

/ontopic:

The solution:
ActivateClient;

This seems to have fixed my problem although leaving me plenty out of pocket due to by uninvited bank guests.

Thank you to all who threw their hats into the rings and made suggestions for me to try. :)