Alertwhenvipon

Must have person on your VIP list

Const 
  VipName = 'Enter Name Here' // Enter the player name who will login in your vip and you log out. 
  SoundPath = 'C:/Windows/Media/Notify.wav' // You can change but ONLY WAV files.

procedure Event_VIPLogOn(ID:integer); 
begin 
  UpdateWorld; 
  for i := 0 to VipList.Count -1 do 
  begin 
    If (VipList.VIP[i].ID = ID) and (VipList.Vip[i].Name = VipName) then 
    PlaySound(SoundPath); 
  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