logout if vip login or logoff
Const
  VipNames = ['Mateusz Dragon Wielki','Eternal Oblivion','Seromontis','Tripida'] // Enter the player name who will login in your vip and you log out.

procedure Event_VIPLogOn(ID:integer);
begin
  UpdateWorld;
  for i := 0 to VipList.Count -1 do
  begin
    If VipList.VIP[i].ID = ID then
    begin
      for x := Low(VipNames) to High(VipNames) do
      begin
        if VipNames[x] = VipList.VIP[i].Name then
        begin
          Self.Logout(True);
          exit;
        end
      end;
    end;
  end;  
end;

While not terminated do
begin
  UpdateWorld;
  ProcessEvents;
  Sleep(100);
end;
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-NonCommercial-ShareAlike 3.0 License