SRL Archive - Help

Forgive me if this is a stupid question, but is nil only used in setting up simba? Or does it have use in common scripts?

Ex.

{$ifdef Simba}
{$loadlib irokiplugin} 
var
  Bladieblatempthingy : TForm;
procedure CreateFormBladieblatempthingy;
begin
  Bladieblatempthingy := TForm.Create(nil);
end;
{$endif}

E: Er, title may be misleading, file path is:

Simba > Includes > SRL > srl > core > simba.simba

Also, another question;

program New;
{$DEFINE SMART}
{$DEFINE SRL5}
{$i srl/srl.simba}

begin
  SendKeys(37, 200); // Key to send, wait time
end.

I get "Type mismatch at line 7", where sendkeys is, but I don't know what I'm doing wrong as I'm following the example.. :s

I don't understand your first question.

Answer to your second question.

program New;

begin
  SendKeys('Hello there!', 200); // Key to send, wait time
end.  

It requires a string, not a number.

Ah thanks, I didn't check to see if it said string >.>

And I think I forget what I was trying to get at with the first question… :x

Hmm, I'll ask another question here that hopefully may be looked upon and answered;

Given my 2nd question, I'm trying to make a potential antiban suggestion;

I'm thinking it has something to do with either my repeating method (how I used flight's label idea) or how I use the KeyUp/Down..

// Synthesized from help via MasterBB, Flight, R1ch, Nebula and Wizzup?
procedure RandomArrowKeyAngleToggle;
var
  StartAngle, PressKeyz, i, a: integer;
label
  Start; //Flight guided
begin
  FindNormalRandoms;
  StartAngle := round(rs_GetCompassAngleDegrees());
  Start:
  PressKeyz:= RandomRange(50, 65);
  i:= random(4);

  begin
    case (i) of
     1:  begin
           KeyDown(VK_Left); // MasterBB guided
           KeyUp(VK_Left);
         end;
     2:  begin
           KeyDown(VK_Right);
           KeyUp(VK_Right);
         end;
     3:  begin
           KeyDown(40);
           KeyUp(40);
         end;
     4:  begin
           KeyDown(38);
           KeyUp(38);
         end;
    end;
    Inc(a);
  end;

    if (a<PressKeyz) then
    goto Start

    else if (a=PressKeyz) then
      begin
        MakeCompass(StartAngle);
      end;
end;

However when I run, my player will login, then idle/press a key, then just have the cam spin in circles until it reaches the "a=PressKeyz"

Ideally I'm aiming to have the arrow keys be hit any # of times in the specified RandomRange, as to replicate how a bored human would toggle random arrow keys on a laptop..

Any help appreciated.

Didn't test it, but I think this would work.

procedure RandomArrowKeyAngleToggle;
var
  StartAngle, NumberOfSwitches, Key, i: integer;
begin
  FindNormalRandoms;
  StartAngle := round(rs_GetCompassAngleDegrees);
  NumberOfSwitches:= RandomRange(2, 4);
  for i := 0 to NumberOfSwitches do
  begin
    Key := RandomRange(37,40);
    KeyDown(Key);
    wait(RandomRange(200,1000));
    KeyUp(Key);
  end;
  MakeCompass(StartAngle);      //Maybe also SetAngle?
end;  

About your first question:
nil is used as a value for objects, it's the equivalent of null in many object-oriented languages. Since Simba is not object-oriented, you'll mostly see it in scripts with forms.