--Correct-IP-V.1 for Active users 

--Idea by [aDe] , by c h i l l e r 

--For TD4 



function Main() 

frmHub:EnableSearchData(1) 

end 



function DataArrival(curUser, data) 

if (strsub(data, 1, 7) == "$Search") then 

_,_,userIP_Port,_ = strfind( data, "$Search%s+(%S+)%s+(.*)" ) 

_,_,userIP,_ = strfind( userIP_Port, "(%S+):(.*)" ) 

IsIPnumber = gsub(userIP,"%p", "") 

IsIPnumber = tonumber(IsIPnumber) 

if IsIPnumber then 

if userIP ~= curUser.sIP then 

curUser:SendData("Please insert your correct Active IP address : "..curUser.sIP) 

curUser:Disconnect() 

end 

end 

end 

end