Page tags

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;