-----------------------------------------
--Vip Message on Entry
--a confirmed message will pm the hub owner and stop spamming the vip
-- a reminder pm will be sent every hr to confirm
-- By ¨˜”°º•Hawk•º°”˜¨ 17-3-04
-----------------------------------------
HubOwner = "Your-Nick"
Botname = "entrance_confirm"
Message = "  blahh blahh  waffle  waffle .. please confim this message by typing    ' confirmed '  with out the '" 
arrVips = {}
hrs = 1000 * 60 * 60


function Main()
	frmHub:RegBot(Botname)
	SetTimer(hrs)
	StartTimer() 
end

function NewUserConnected(curUser) 
	LevelBot = GetProfileName(curUser.iProfile)
		if LevelBot == "VIP" then
			curUser:SendPM(Botname, Message)
			if (not arrVips[curUser.sName]) then
				arrVips[curUser.sName] = 1
			end
		end
end 

function DataArrival(curUser, data)
	LevelBot = GetProfileName(curUser.iProfile)
		if LevelBot == "VIP" then
			local s, e, sTo = strfind(data, "^%$To: (%S+)")
				if sTo ~= Botname then 
					return 1
				else
					local s,e,cmd,d = strfind(data, "%b<>%s+(%S+)(%S+)") 
						if cmd == "confirmed" then
							if (arrVips[curUser.sName]) then
								arrVips[curUser.sName] = nil
								SendPmToNick( HubOwner, Botname, curUser.sName.." has just confirmed they have read the message." )

							end
						end
				end
		end
end				
 

function OnTimer()
	for vips, value in arrVips do
		SendPmToNick( vips, Botname, Message )
	end
end