SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
hugolord - SRL Member Application Form
hugolord

What is the meaning to life?
SRL FTW!

Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
None

Other Communitys
Moparisthebest, Fagex, Cruels

How Long have You Played Runescape
2-3 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

erm I'm 14 years old, addicted to SRL forums, quit RS, love scripting, love SRL, live in the Netherlands and I'm Portuguese :D i have big plans for this community and i will stay for life :D! NOTE: i am not applying for SRL membership to leech scripts i want to get more involved with this community therefore move up a level if possible :D

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

                                                                              {******************************************************************************}{
  _    _
 | |  | |
 |  --| |
 | |--| |
 | |  | |
 |_|  |_|

   _____               _            _   _
  |  __ \             | |          | | (_)
  | |__) | __ ___   __| |_   _  ___| |_ _  ___  _ __  ___
  |  ___/ '__/ _ \ / _` | | | |/ __| __| |/ _ \| '_ \/ __|
  | |   | | | (_) | (_| | |_| | (__| |_| | (_) | | | \__ \
  |_|   |_|  \___/ \__,_|\__,_|\___|\__|_|\___/|_| |_|___/

{******************************************************************************}

program YewBlaster;
{.include SRL/SRL.Scar}
{.include SRL/SRL/skill/WoodCutting.scar}
{.include SRL/SRL/Extended/xBank.scar}
{.include SRL/SRL/Extended/xInventory.scar}
{.include SRL/SRL/Extended/xAntiBan.scar}

const

  StartPlayer = 0; // Dont Forget 0
  ClickTree = 1; // How Long Until Next Click (in seconds)
  TreeTol = 5; // Color Of Tree Tol
  BankLoads = 5;
  BankFloorColor = 9; // Pick lightest bank color!
const
  TreeColor = 1990736; //leave it as it is but if it does not work change it

//----------------------------------------------------------------------------//
const VersionNumber = '0.5';
//----------------------------------------------------------------------------//

var
  TotalLogs, TotalLoads, EntAvoided, Loads, DungeonColor: Integer;
  YewPosition: string;
//----------------------------------------------------------------------------//
//--------------------------------SETUP!--------------------------------------//
//----------------------------------------------------------------------------//

procedure DeclarePlayers;

begin
  NewLine := NewLine;
  HowManyPlayers := 4; // How many players you will be using SET THIS RIGHT!
  NumberOfPlayers(HowManyPlayers);
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

  Players[0].Name := 'Your Username'; // Username
  Players[0].Pass := 'Your Password'; // Password
  Players[0].Nick := 'Nickname'; // Nick (3-4 Letter of Username)
  Players[0].Active := True;

  Players[1].Name := 'UserName';
  Players[1].Pass := 'Password';
  Players[1].Nick := 'Nick';
  Players[1].Active := True;

  Players[2].Name := 'UserName';
  Players[2].Pass := 'Password';
  Players[2].Nick := 'Nick';
  Players[2].Active := True;

  Players[3].Name := 'UserName';
  Players[3].Pass := 'Password';
  Players[3].Nick := 'Nick';
  Players[3].Active := True;

  Players[4].Name := 'UserName';
  Players[4].Pass := 'Password';
  Players[4].Nick := 'Nick';
  Players[4].Active := True;

  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);


end;

//----------------------------------------------------------------------------//
//----------------------------------------------------------------------------//




procedure ProgressReport;
begin
  writeln(' ');
  writeln(' ');
  writeln('<==============================================================>');
  writeln('<=====================     YewBlaster     =====================>');
  writeln('<============= -' + VersionNumber + '- Progress Report ==============>');
  writeln('<==============================================================>');
  writeln('    Worked for ' + TimeRunning);
  writeln('    Chopped ' + IntToStr(TotalLogs) + ' Logs.');
  writeln('    Banked    : ' + IntToStr(TotalLoads) + ' Loads');
  if (EntAvoided > 0) then writeln('Avoided Ents ' + IntToStr(EntAvoided) + ' times.');
  writeln('<==============================================================>');
  writeln('    Name       : ' + Players[CurrentPlayer].Name);
  writeln('<==============================================================>');
  writeln('<========================Credits===============================>');
  writeln(' Pentti (Sami):  For His enormous help on all kinds of things');
  writeln('JAD : (soory!) thank you for all the help m8!! thanks!!');
  writeln('~alex~ : inspiration above all !');
  writeln('such as errors, advice, inspiration, useful infromation, help ');
  writeln(' Greg : Help with bugs and ideas and for being such a great  modest scripter!');
  writeln('rkroxpunk for his help in a fe bugs i had (thanks man!) and for ideas!');
  writeln('The Rs Monkey: for his error fixing and help ');
  writeln('Ejjman1 : for help with bug fixing !');
  SRLRandomsReport;
end;

//----------------------------------------------------------------------------//

function FindFastRandoms: boolean; //By WT-Fakawi.
var
  i: integer;
begin
  for i := 0 to 9 do
  begin
    case I of
      0: if FindDead then
          Result := True;
      1: if FindMod then
          Result := True;
      2: if FindMime then
          Result := True;
      3: if FindMaze then
          Result := True;
      4: if FindQuiz then
          Result := True;
      5: if FindDemon then
          Result := True;
      6: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;

      9: ClickToContinue;
    end;
    wait(1);
  end;
end;

//----------------------------------------------------------------------------//

procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
end;

//----------------------------------------------------------------------------//
var
  LogDTM: Integer;

procedure LoadDTMs;

begin
  Status('Loading DTM''s')

  LogDTM := DTMFromString('78DA632C66626078CA8002DC4D3919FE03694' +
    '620FE0F048CB940357718D000231209A42B806ADE1250530354F3' +
    '88809A34C2E60000FACF0C50');
  Status('DTM''s Loaded')

end;

//----------------------------------------------------------------------------//

function OpenTheDoor: Boolean;
var
  DoorTries: Integer;
begin
  Status('Opening Bank Door')
    if not (BankScreen) then
    repeat
      if FindObjMultiText(x, y, 'Doo', 'oor', 'Door', 2574956, 3) then
      begin
        Mouse(x, y, 4, 4, False)
          Wait(250);
        if ChooseOption(x, y, 'pen') then
        begin
          Wait(500 + Random(500))
            Result := True
        end else
          DoorTries := DoorTries + 1
            writeln('Door Not Found' + IntToStr(DoorTries) + ' Times')
      end;
    until (Result) or (DoorTries > 3)
      if (Result) then
    begin
      Exit;
      if (DoorTries > 2) then
      begin
        writeln('Going Inside Bank')
      end;
    end;
end;
//----------------------------------------------------------------------------//

procedure FindDungeonFloorColor;
var DungeonFloor, MaxTolerance: integer;
begin
  DungeonFloor := BitmapFromString(7, 5, 'z78DA33333071363232' +
    '1B46240017DB2BE4');
  MaxTolerance := 30;
  DungeonColor := AutoColorThis(DungeonFloor, MaxTolerance, MMX1, MMY1, MMX2, MMY2);
  writeln('Dungeon Floor color: ' + IntToStr(DungeonColor));
  FreeBitmap(DungeonFloor);
end;


procedure FindBankFloorColor;
var BankFloorBitmap, MaxTolerance: integer;
begin
  BankColor := BitmapFromString(5, 5, 'z78DAB3B4B470B53' +
    '4B01C642400EB012199');
  MaxTolerance := 30;
  BankColor := AutoColorThis(BankFloorBitmap, MaxTolerance, MMX1, MMY1, MMX2, MMY2);
  writeln('Bank Floor color: ' + IntToStr(BankColor));
  FreeBitmap(BankFloorBitmap);
end;



procedure BankToYew;

begin
  Status('Going To Yew')
  YewPosition := 'Yew1';
  FindDungeonFloorColor;
  FindColor(x, y, DungeonColor, 629, 74, 662, 128)
    if (rs_OnMinimap(x, y)) then
  begin
    Mouse(x, y, 0, 0, True)
      writeln('going to Dirt');
    Flag;
  end;
  if FindSymbol(x, y, 'Dungeon') then
  begin
    Mouse(x, y, 0, 0, True)
      Flag;
    writeln('Checking if the door is closed');
    OpenTheDoor;
  end;
  if FindSymbolIn(X, Y, 'Tree', 572, 4, 721, 78) then
  begin
    Mouse(X + 2, Y + 20, 0, 0, True)
      writeln('gonig to first tree');
    SetRun(True)
      GameTab(4)


  end;
  Wait(4000 + (1000))
    Flag;
end;

//----------------------------------------------------------------------------//


function Yew1ToYew2: Boolean;

begin
  Status('Changing Yews 1->2')
    YewPosition := 'Yew2';
  Flag;

  if FindSymbolIn(X, Y, 'Tree', 573, 87, 722, 162) then
  begin
    Mouse(X + 2, Y - 4, 0, 0, True)
      Flag;
    writeln('at first tree');
    SetRun(True)
      GameTab(4)
      Wait(3000)
      Result := True;
  end;
end;

//----------------------------------------------------------------------------//

procedure Yew2toYew1;

begin
  Status('Changing Yews 2->1')
    YewPosition := 'Yew1';
  begin

    if FindSymbolIn(X, Y, 'Tree', 567, 6, 722, 75) then
    begin
      Mouse(X + 4, Y + 4, 0, 0, True)
        Flag;
      writeln('gonig to first tree');
      SetRun(True)
        GameTab(4)
        Wait(3000)
    end;

  end;
end;
//----------------------------------------------------------------------------//

procedure CheckYewPosition;
begin
  case Yewposition of
    'Yew1': Yew1toYew2;
    'Yew2': Yew2toYew1;
  end;
end;
//----------------------------------------------------------------------------//

procedure YewToBank;

begin

  Status('Going To Bank')
    FindDungeonFloorColor;

  {FindBankFloorColor;
  FindColor(x,y,BankColor,567, 6,722, 75)}

  if FindSymbol(x, y, 'Dungeon') then
  begin
    Mouse(x, y, 0, 0, True)
      Flag;
    writeln('Checking if the door is closed');
    OpenTheDoor;
    FindColor(x, y, DungeonColor, 648, 8, 672, 68)
  end;
  if (rs_OnMinimap(x, y)) then
  begin
    Mouse(x, y, 0, 0, True)
      writeln('going to Dirt next ot bank...');
    Flag;
  end;
  if FindSymbol(x, y, 'Bank') then
    Mouse(x, y, 0, 0, True)
      if (FindColorTolerance(x, y, 195836, 569, 4, 724, 163, 10)) then
      Mouse(x, y, 1, 1, True)
    else
      if (FindColorTolerance(x, y, 195836, 569, 4, 724, 163, 10)) then

        Mouse(x, y, 1, 1, True)
          Flag;
  writeln('reached bank!')
  begin
    Mouse(x, y, 1, 1, True);


    writeln('Checking if we are really in the bank');
    Flag;
    MakeCompass('N')
      HighestAngle;
  end;

  if not FindSymbol(x, y, 'Bank') then
  begin
    writeln('We are lost =(');
    TerminateScript

  end;
end;



//----------------------------------------------------------------------------//

procedure AntiBanage; // Credits to JAD for ideas!
begin
  if (not (LoggedIn)) then
    Exit;
  case Random(13) of

    0: begin
        HoverSkill('Attack', false);
        wait(2052 + random(506));
        GameTab(4);
      end;

    1: begin
        HoverSkill('Defence', false);
        wait(2052 + random(506));
        GameTab(4);
      end;

    2: begin
        HoverSkill('Runecrafting', false);
        wait(1000 + random(700));
        GameTab(4);
      end;

    3: begin
        HoverSkill('Smithing', false);
        wait(1000 + random(700));
        GameTab(4);
      end;

    4: AntiBan;

    5: LeaveScreenEvery(7 + Random(4));

    6: PickUpMouse;

    7: BoredEvery(10 + Random(5));

    8: begin
        GameTab(1 + Random(12));
        wait(1000 + random(1600));
        GameTab(4);
      end;

    9: begin
        case random(4) of
          0: TypeSend('Woodcutting lvls?');

          1: TypeSend('Woodcutting levels');

          2: TypeSend('woodcutting lvls');

          3: TypeSend('wcing levels');
        end;
      end;

    10: MouseBox(MSX1, MMY1, MMX2, MMY2, 3);

    11: AntiBan;

    12: SleepAndMoveMouse(600000 + random(300060));

  end;
end;


function OpenTheBank: Boolean;
var
  x, y, BankTries: Integer;
begin
  Status('Opening Bank')
    if not (BankScreen) then
    repeat
      if FindObjMultiText(x, y, 'ank', 'booth', 'Bank booth', 2842230, 3) then
      begin
        Mouse(x, y, 4, 4, False)
          Wait(250);
        if ChooseOption(x, y, 'uick') then
        begin
          Wait(2000 + Random(1000))
            if (BankScreen) then
          begin
            Result := True
          end
          else
            BankTries := BankTries + 1
              writeln('Bank Screan Not Found, Tried ' + IntToStr(BankTries) + ' Times')
        end;
      end;
    until (Result) or (BankTries > 5)
      if (Result) then
    begin
      QuickFixBank;
      if (BankTries > 5) then
      begin
        writeln('Cant Find Bank Screen')
          LogOut;
        NextPlayer(False);
        Exit;
      end;
    end;
end;
//----------------------------------------------------------------------------//

procedure BankOtherStuff;

begin
  Status('Banking')
    repeat
    begin
      ClickItemColorTol(65536, 10, False);
      Wait(10)
        ChooseOption(x, y, 'All')
        Wait(1000 + Random(1000))
    end;
    if not (LoggedIn) then NextPlayer(False);
  until InventoryCount = 0
end;

//----------------------------------------------------------------------------//

procedure BankTheLogs;
begin
  Status('Banking')
    Wait(500 + Random(500))
    if (BankScreen) then begin
    repeat
      if FindDTM(LogDTM, X, Y, MIX1, MIY1, MIX2, MIY2) then
      begin
        Mouse(X, Y, 2, 2, False)
          ChooseOption(x, y, 'All')
          Wait(1000 + Random(1000))
      end;
      if not (LoggedIn) then NextPlayer(False);
    until (not (FindDTM(LogDTM, X, Y, MIX1, MIY1, MIX2, MIY2)))
      Wait(100 + Random(100))
  end;
  BankOtherStuff;
  CloseBank;
end;

//----------------------------------------------------------------------------//

procedure Login;

begin
  if (not (LoggedIn)) then
    Status('Logging In')
      LoginPlayer;
end;

//-----------------------------------------------------------------------------


function MyEntFinder(TreeColor: Integer): Boolean;

begin
  Status('Checking For Ent')
    if FindEnt(TreeColor) then
  begin
    Mouse(x + 10, y + 10, 2, 2, true)
      Result := True;
    Wait(1000 + Random(100));
    RunBack;
    EntAvoided := EntAvoided + 1;
  end;
end;

//-----------------------------------------------------------------------------

procedure WoodCutting;

begin
  Status('Chopping Wood')
    MarkTime(Mark);
  repeat
    if FindObj(x, y, 'Chop', TreeColor, TreeTol) then
    begin
      Getmousepos(x, y);
      if not (Loggedin) then Exit;

      if not MyEntFinder(TreeColor) then
      begin
        Status('Chopping Wood')
          if Random(9) < 7
          then
          Mouse(x, y, 2, 2, True)
      end else
      begin
        Mouse(x, y, 2, 2, False);
        ChooseOption(x, y, 'Chop');
      end;
    end;
    begin
      FindHead
        FindNormalRandoms
        MyEntFinder(TreeColor)
    end;
  until (TimeFromMark(Mark) >= ClickTree * 1000 + (500));


end;



//----------------------------------------------------------------------------//

procedure CutWood;
begin
  repeat
    while (not (InvFull)) do
    begin
      FindNormalRandoms;
      FindHead
        wait(25);
           if (FindObj(x, y, 'Chop', TreeColor, TreeTol)) then
        Woodcutting
      else
      begin
        checkYewposition;
        Woodcutting;
      end;
    end;
  until (not LoggedIn)
end;

//----------------------------------------------------------------------------//

procedure Setup;

begin
  Status('Setup')
    SetupSRL;
  DeclarePlayers;
  ActivateClient;
  BenMouse := False;
  MouseSpeed := 5;
  LoadDTMs
end;


procedure GoToBank;
begin
  if (InvFull) then
  begin
    YewToBank;
    OpenTheBank;
    BankTheLogs;
    Loads := Loads + 1;
    TotalLoads := TotalLoads + 1;
    ProgressReport;
  end;
end;
//----------------------------------------------------------------------------//
//-----------------------------Main Loop--------------------------------------//
//----------------------------------------------------------------------------//


begin
  Setup;
  ClearDebug;
  Login;
  Wait(1000);
  HighestAngle;
  Status('Finding PickHead Color')
    FindAxeHeadColor;
  repeat
    Wait(200)
      repeat
      MakeCompass('N')
        FindRandoms;
      BankToYew;
      if Not Loggedin then 
      LogOut;
      NextPlayer(True)
      CheckYewPosition;
      if Not Loggedin then 
      LogOut;
      NextPlayer(True)
      CutWood;
      if Not Loggedin then 
      LogOut;
      NextPlayer(True)
      GotoBank;
      if Not Loggedin then 
      begin
      LogOut;
      end;
          until (TotalLoads >= BankLoads)
    TotalLoads:=0
      NextPlayer(True)
      
  until False;

end.

——————————————————

PLEASE TELL ME IF I DID NOT CREDIT YOU, Sorry!
<!– END TEMPLATE: formanswers –>

Hell yeah! :sasmokin:
It's hugo, of course its a yes. :D

You have been learning script, and you sure have learned something, i can see it, script looks cool. :D

Also you have been very active, and you have been making good posts.

im voteing yes but FIX up on the failsafes

From: rudeboialex
im voteing yes but FIX up on the failsafes

ok could you possibly give me until tomorrow I'm going to have to go sleep now soon I'm so sorry :( thanks Sami and Rudeboi!

rofl ofcourse

omg, second good dutch speaking scripter that applys today:)

From: iloveit8
omg, second good dutch speaking scripter that applys today:)

:D yer The Scar Noob too ty for voting btw !

Voted yes.
[offtopic]
I thought you didn't speak dutch?
[/offtopic]

From: markus
Voted yes.
[offtopic]
I thought you didn't speak dutch?
[/offtopic]

not well I'm not dutch ppl btw

but markus i can understand most dutch things :D 6 + years here FTW

and thanks m8!

Well.. I do wish you applied with a script that showed radial walk, or added radial walking to this. And I don't get why you used FindObj for bank? That's a LOT less reliable then the SRL ones :p

Anyways, I'm going to hold my vote, but I may vote yes. I can't just vote yes because your my homie though :p

come on JAD liven up say yes for once

From: JAD
Well.. I do wish you applied with a script that showed radial walk, or added radial walking to this. And I don't get why you used FindObj for bank? That's a LOT less reliable then the SRL ones :p

Anyways, I'm going to hold my vote, but I may vote yes. I can't just vote yes because your my homie though :p

ok JAd i just thought about doing RW but since the walking works 100% well for me and i wanted to show i could do it without RW and i could use auto-coloring.

erm let's do like this you give me until tomorrow and i will add Rw walking instead of my walking and ill try to change the banking too although it works i think but ill change just hold your vote if you can.

thank you,

hugo

yur smart. yes from me. "P

From: WhiteShadow
yur smart. yes from me. "P

Thank you ! :D

edit : im gonig away for 40 mins or so i will come back please don't think i left this thread :P i just really need to go for a few minutes sorry ill be back

well, i <3 you (Not) and the script looks good. Dont listen to JAD, hes a hardass when it comes to votes. Yes from me :)

From: 3garrett3
well, i <3 you (Not) and the script looks good. Dont listen to JAD, hes a hardass when it comes to votes. Yes from me :)

Thanks,
i see JADs ponit in RW tho tbh so i will update script for his liking tomorrow if i get RW to work as good as my walking is already :D


srry people i must go sleep now it getting late sorry :(

please leave questions, advice here ill look at it in er.. 8 - 10 hours !sorry once again goodnight and thanks again!

You crack me up! Lol. The script defanitly looks like a yes. I'll edit this post with any improvements I see later.

Yea :D

You deserve it, nice app.

You don't need to change the script hugo :p I didn't even say this script needed radial walking, or would do better with it. I just wish I saw that you knew how to use it, that's all :p

And that hardbutt comment hurts; hurts on the inside :( Just because I have higher standards of what a SRL member should be doesn't make me to tough, it just means I don't let people in who aren't good in every aspect of helping this community.

For hugolord though:

helpfulness: Check.
Healthily High Post Count: Check.
Pretty good script: Check.
Credits to me for helping him: not check. :p

but 3 out of 4 is pretty darn good! And the last one wasn't even important :p

Aww This is terrible… I hate these days when I have to vote



yes



:(

lol j/k :p It is a yes though :D

Fix the player switching and take the begging out of your sig.

From: JAD
You don't need to change the script hugo :p I didn't even say this script needed radial walking, or would do better with it. I just wish I saw that you knew how to use it, that's all :p

And that hardbutt comment hurts; hurts on the inside :( Just because I have higher standards of what a SRL member should be doesn't make me to tough, it just means I don't let people in who aren't good in every aspect of helping this community.

For hugolord though:

helpfulness: Check.
Healthily High Post Count: Check.
Pretty good script: Check.
Credits to me for helping him: not check. :p

but 3 out of 4 is pretty darn good! And the last one wasn't even important :p

Aww This is terrible… I hate these days when I have to vote



yes



:(

lol j/k :p It is a yes though :D

omg i keep forgetting to credit people I'm sorry JAD!! Thanks for vote!

and Boreas I'm going to do that as soon as i eat (ok, done i think that what you meant a few more failsafes for the layer switching =) )

Yes.






Because the script is nice and all

From: ashur2good
Yes.






Because the script is nice and all

Thank you! thanks m8. :p

Yes!

From: hugolord
Thank you! thanks m8. :p

Np, you deserve it :P And santa, did you accidently click no? :S




-Ashur

From: SantaClause
Yes!

Thank you!! thanks Santa ! cheers m8!

Yes from me :).. I think we can safely say gratz on SRL membership.

From: ~alex~
Yes from me :).. I think we can safely say gratz on SRL membership.

Thanks!! thank alot alex dang it forgot to credit you (inspiration) grrr i keep forgetting this !

Thanks!

I voted yes.

From: n3ss3s
I voted yes.

Thank you n3ss3s!!

From: Boreas
Fix the player switching.

…

    until (TotalLoads >= BankLoads)
    TotalLoads:=0;
      NextPlayer(True)
  until False;

:D

Thanks Sami and Boreas er i though i edited it right before erm maybe it still isn't right erm give me a few minutes please ill look through it .

edit:

begin
  Setup;
  ClearDebug;
  Login;
  Wait(1000);
  HighestAngle;
  Status('Finding PickHead Color')
    FindAxeHeadColor;
  repeat
    Wait(200)
      repeat
      MakeCompass('N')
        FindRandoms;
      BankToYew;
      if Not Loggedin then 
      LogOut;
      NextPlayer(True)
      CheckYewPosition;
      if Not Loggedin then 
      LogOut;
      NextPlayer(True)
      CutWood;
      if Not Loggedin then 
      LogOut;
      NextPlayer(True)
      GotoBank;
      if Not Loggedin then 
      LogOut;
          until (TotalLoads >= BankLoads)
    TotalLoads:=0
      NextPlayer(True)

  until False;

end.

ok from what i see i think it does the players switching right no?

exactly the same mistake is the scar noob hehe, he solved it differently though…;)
no wait nvm… helping hugo with mp now, i didnt see it at first aswell lol….

From: iloveit8
exactly the same mistake is the scar noob hehe, he solved it differently though…;)

oh does that mean i solved it?

everyone who is about to post no hold it a lil bit longer because I'm in process of fixing something in the script please if you just hold a bit thanks,

hugo

Welkom!

You shouldn't have nextplayer true in the middle like that. And you need nextplayer false. And wtf is

 if Not Loggedin then 
      LogOut;

?