Alertwhenvipon

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;