Not Working

function Player:GetVIP(player)
local ViP = AuthDBQuery("SELECT `vip` FROM `account` WHERE `id`='"..player:GetAccountId().."'")
ViP = ViP:GetUInt32(0)
end
function salam(event, player, message, lang, Type)
if (message:lower() == "salam")then
if(player:GetVIP() == 7)then
player:SendBroadCastMessage("salam")
end
end
end
RegisterPlayerEvent(18, salam)