Is it me?

[Markus]

That is not capitalizing, thats uppercasing.

Still as ugly as hell imho.

[mastaraymond]

Still as ugly as hell imho.

@Fakawi+Narcle:

No begin, no end, and it doesnt work.

It must be

While not false do
Writeln('bla');

[Harry]

Omg, is this offtopic as hell or what?!

[mastaraymond]

Omg, is this offtopic as hell or what?!

*Spam detected* It seems nobody can solve my problem, so they go and talk about flowers.

[Harry]

Thats stupid.... -_-

[Markus]

What's wrong with flowers?

[WT-Fakawi]

It seems nobody can solve my problem, so they go and talk about flowers.

Get rid of the ";"

[mat_de_b]

Shouldn't it be

While not Bankscreen  do
    begin;
      if ((GetSystemTime - TimeFromMark(Timer)) > 4500) then
        Break;
      Wait(250+random(250));
    end;

Otherwise its always gonna be over 4500?

[mastaraymond]

Get rid of the ";"

I did.. But it didn't help, it still gave me this weird 'bug'.. There must be another reason i guess.

[mickaliscious]

This works.

while LoggedIn do
begin
  Wait(100);
  WriteLn('Yeah, it works.');
end;

If you tried Fawki's 'suggestion' of taking the ; out after begin then it could just be a problem with bankscreen or the not. Good Luck.

[bullzeye95]

program New;

function Bankscreen: Boolean;
begin
end;

procedure asdf;
begin
    While (not(bankscreen))  do
//    while bankscreen = false do
    begin;
      writeln('poop');
      if ((3) > 4500) then
        Break;
      Wait(250+random(250));
    end;
end;

begin
  asdf;
end.

He's right. SCAR bug.

[mastaraymond]

Yes.

It seems that when you NOT set the result, (like BankScreen doesn't when it doesn't find anything) the result sometimes return TRUE..

Really weird.
Check this out

program New;

function asdf: boolean;
begin
  writeln(booltostr(Result));
end;

begin
  while not asdf do
    Writeln('Loop');
end.

And this one

program New;

function WrongBankscreen: Boolean;
begin
end;

function GoodBankscreen: Boolean;
begin
  Result := False;
end;

procedure asdf;
var
  I : integer;
begin
   Writeln('the wrong loop... starting');
    While (not(Wrongbankscreen))  do
    begin
      writeln('Lets loop baby');
      Wait(250+random(250));
    end;
   Writeln('now we set the value of result to False... (Break after 5 loops)');
   I := 0;
    While (not(GoodBankscreen))  do
    begin
      writeln('Lets loop baby');
      Wait(250+random(250));
      I := I + 1;
      if I = 5 then Break;
    end;
    Writeln('Now we do if WrongBankscreen = False then... Not breaking out!');
    While WrongBankscreen=False do
    begin
      Writeln('Lets loop baby');
      Wait(250+random(250));
    end;
end;

begin
  asdf;
end.

See i knew i was right!

Thanks to bullzeye for finding out .

[the scar noob]

Yes.

It seems that when you NOT set the result, (like BankScreen doesn't when it doesn't find anything) the result sometimes return TRUE..

Really weird.
Check this out

program New;

function asdf: boolean;
begin
  writeln(booltostr(Result));
end;

begin
  while not asdf do
    Writeln('Loop');
end.

And this one

program New;

function WrongBankscreen: Boolean;
begin
end;

function GoodBankscreen: Boolean;
begin
  Result := False;
end;

procedure asdf;
var
  I : integer;
begin
   Writeln('the wrong loop... starting');
    While (not(Wrongbankscreen))  do
    begin
      writeln('Lets loop baby');
      Wait(250+random(250));
    end;
   Writeln('now we set the value of result to False... (Break after 5 loops)');
   I := 0;
    While (not(GoodBankscreen))  do
    begin
      writeln('Lets loop baby');
      Wait(250+random(250));
      I := I + 1;
      if I = 5 then Break;
    end;
    Writeln('Now we do if WrongBankscreen = False then... Not breaking out!');
    While WrongBankscreen=False do
    begin
      Writeln('Lets loop baby');
      Wait(250+random(250));
    end;
end;

begin
  asdf;
end.

See i knew i was right!

Thanks to bullzeye for finding out .

Okay, that scared me
If we edit this " bug" in srl (like were it should result false, we write result:= false instead o fnothing) then that could optimise SRL and autoing?

Maybe this could be the problem to the weird errors our scripts can heve sometimes, like for example, now and then I auto with VEM.
Sometimes (less, but hey, it happens!) I have a false player and the Debug Box tells that that p^layer is dead.
Let's now look to the FindDeath function?

function FindDead: Boolean;
begin
  Result := False;
//  if (GetColor(34, 445) = 0) and (GetColor(134, 445) = 0) then
  if (Pos('dead', srl_LastBlackLine) <> 0) and (Pos('dear', srl_LastBlackLine) <> 0) then
  begin
    Deaths := Deaths + 1;
    Result := True;
    SaveToChatLog;
    if Reincarnate then Exit
    else
    begin
      if ScreenShots then
        TakeScreen('Found Dead');
    {  repeat
        Wait(1000 + Random(1000));
      until (not (LoggedIn));   }
      LogOut;
      Players[CurrentPlayer].Rand := 'Oh Dear You Are in Lumby';
      Players[CurrentPlayer].Active := False;
    end;
  end;
end;

You see? Or should I say "You don't see?", there isn't a result:=false.

So if we optimize this "bug" in SRL, maybe it could help a lot?

-Tsn.

[mastaraymond]

Okay, that scared me
If we edit this " bug" in srl (like were it should result false, we write result:= false instead o fnothing) then that could optimise SRL and autoing?

Maybe this could be the problem to the weird errors our scripts can heve sometimes, like for example, now and then I auto with VEM.
Sometimes (less, but hey, it happens!) I have a false player and the Debug Box tells that that p^layer is dead.
Let's now look to the FindDeath function?

ScarScript:By Drunkenoldma

function FindDead: Boolean; begin Result := False; // if (GetColor(34, 445) = 0) and (GetColor(134, 445) = 0) then if (Pos('dead', srl_LastBlackLine) <> 0) and (Pos('dear', srl_LastBlackLine) <> 0) then begin Deaths := Deaths + 1; Result := True; SaveToChatLog; if Reincarnate then Exit else begin if ScreenShots then TakeScreen('Found Dead'); { repeat Wait(1000 + Random(1000)); until (not (LoggedIn)); } LogOut; Players[CurrentPlayer].Rand := 'Oh Dear You Are in Lumby'; Players[CurrentPlayer].Active := False; end; end; end;

You see? Or should I say "You don't see?", there isn't a result:=false.

So if we optimize this "bug" in SRL, maybe it could help a lot?

-Tsn.

The dead bug because names contain the text "dead".

[Wizzup?]

program New;

function Bankscreen: Boolean;
begin
end;

procedure asdf;
begin
    While (not(bankscreen))  do
//    while bankscreen = false do
    begin;
      writeln('poop');
      if ((3) > 4500) then
        Break;
      Wait(250+random(250));
    end;
end;

begin
  asdf;
end.

He's right. SCAR bug.

No scar bug.
Delphi bug try result:=false; in bankscreen, I told Raymond about it long ago.

[the scar noob]

The dead bug because names contain the text "dead".

nop.. nick=ren

-Tsn.

[bullzeye95]

No scar bug.
Delphi bug try result:=false; in bankscreen, I told Raymond about it long ago.

Yes, but look at this
SCAR is supposed to automatically set results to their defaults (false, 0, '', etc).