REG and VIP can only...

[blackwings]

Could someone make a script so that only VIP's and regged users can download from Ops??

I mean, everyone should be able to dl from each other, but only VIP's and regged users can download from Ops.

[plop]

Originally posted by blackwings
Could someone make a script so that only VIP's and regged users can download from Ops??

I mean, everyone should be able to dl from each other, but only VIP's and regged users can download from Ops.

search a bit, it's allready posted here on the board in several versions.
ok maby you need 2 change some of the userlevel checks in the script.

just a question: are OP's holly or something that only regged/vip's may download from them???

plop

[imby]

ops are Gods and should not be burdened by peasants downloading off them!

[Herodes]

Originally posted by imby
ops are Gods and should not be burdened by peasants downloading off them!

lol :D

[blackwings]

Originally posted by plop
search a bit, it's allready posted here on the board in several versions.
ok maby you need 2 change some of the userlevel checks in the script.

just a question: are OP's holly or something that only regged/vip's may download from them???

plop

I have searched, saw a thread made by chilla and there was a interesting script there, but it didn't work :(

I tested this script, but it doesn't always work. Noticed that if a OP first try to dl from the unregged user, and when the unregged user try to dl from that OP, he can dl:S I dunno if it's the script or if it's because that it me testing with two clients, so it sees both om my clients as the same user.

function Main()
	frmHub:EnableFullData(1)
end

function DataArrival(curUser, data)
	if (strsub(data, 1, 15) == "$RevConnectToMe" and curUser.iProfile == -1) then
		local _,_,towho = strfind(data, "$RevConnectToMe%s+%S+%s+(%S+)|")
		if GetItemByName(towho) and GetItemByName(towho).bOperator then
			curUser:SendData("*** You must get registered to be able to download from an OP")
			return 1
		end
	elseif (strsub(data, 1, 12) == "$ConnectToMe" and curUser.iProfile == -1) then
		local _,_,towho = strfind(data, "$ConnectToMe%s+(%S+)%s+.*|")
		if GetItemByName(towho) and GetItemByName(towho).bOperator then
			curUser:SendData("*** You must get registered to be able to download from an OP")
			return 1
		end
	end
end

[blackwings]

Can someone just confirm if the code I posted is ok and add so that unregged user can't download from VIP's either?

[[G-T-E]Gate?]

Jo blackwings
 I got this script made for me by [NL]Pur,
It gives u the possibility to set the profiles that can download from. Normal users cant download or see share from Master ,Operator ,VIP  and Reg .
 
To allow the normal users to see and download frpom mentioned profiles place a 0 for yes and 1 for no ,,,  Master , OPs VIP Reg can see and download from eachother..

Good Luck  It Works to 100%
Enjoy And credits to [NL]Pur
Regards G8

function Main() 
    frmHub:EnableFullData(1) 

    Levels = {
        Master = "1",
        Operator = "1",
        VIP = "1",
        Reg = "1",
        Default = "0"
    }

end 

function DataArrival(curUser, data) 


    if (strsub(data, 1, 15) == "$RevConnectToMe" and curUser.iProfile == -1) then 
        local _,_,towho = strfind(data, "$RevConnectToMe%s+%S+%s+(%S+)|") 

        if isEnabled(GetProfileName(GetItemByName(towho).iProfile))=="1" then 
            curUser:SendData("*** You must get registered to be able to download from Me so contact a person with [G-T-E] Tag to get Registered")     
        end 

        return 1 

    elseif (strsub(data, 1, 12) == "$ConnectToMe" and curUser.iProfile == -1) then 
        local _,_,towho = strfind(data, "$ConnectToMe%s+(%S+)%s+.*|") 
        
        if isEnabled(GetProfileName(GetItemByName(towho).iProfile))=="1" then 
            curUser:SendData("*** You must get registered to be able to download from Me so contact a person with [G-T-E] Tag to get Registered")     
        end 

        return 1 
    end 

end 


function isEnabled(profile)
    ret = "0"
    if profile then
        for i, v in Levels do        
            if ( i == profile ) then
                ret = v
            end
        end
    end
    return ret
end

[blackwings]

Hmm, I didn't want to make so that unregged users get 100% blocked.

Here is how I wanted it to work =
Master = Can dl from everyone
Operators = Can dl from everyone
VIP = Can dl from everyone
REG = Can dl from everyone
Non-REG/Normal user = Can only dl from REG

This is the settings I use in the script [G-T-E]Gate? posted, to make the script do what I wanted, but it didn't work in the way I wanted =

   Levels = {
        Master = "1",
        Operator = "1",
        VIP = "1",
        Reg = "0",
        Default = "0"
    }