PtokaX forum

Archive => Archived 4.0 boards => Request for Lua 4 scripts => Topic started by: bisturi on 29 October, 2004, 14:37:01

Title: Script for Vip, Op, Master ranks
Post by: bisturi on 29 October, 2004, 14:37:01
I dont know what will you think about this idea but  it just came into my mind and i thought may be someone here can help me. I was thinking of a script that can make sort of ranking for users in hub for example: when there are MASTER, OP-s, VIP-s, USERS in a hub and  all of them are waiting in que to a certain user for an open slot, the one that has the precedens to get the slot first is Master and so on till to the User.  
I dont know if this is possible but just give me a answer.
THNX
Title:
Post by: Herodes on 29 October, 2004, 16:11:07
the free slots are taken on a first-come-first-served basis ..
there is no way this can be changed ...
we can only stop someone trying to get a slot (/download blocker)
other than that ,... I repeat there is no way to dictate a client who will download from it ....
Title:
Post by: bisturi on 30 October, 2004, 11:56:42
Thnx Herodes. That was just an idea it came in my mind.
Title:
Post by: kazi on 30 October, 2004, 13:49:17
Isn't it possible to make a script like this:

unregged users can only dl from unregged users,

regged users only from Unregged,  regged and vips,

and vips from unregged, regged, vip and ops?
Title:
Post by: Psycho_Chihuahua on 30 October, 2004, 15:42:49
@kazi use the search for that
Title:
Post by: kazi on 30 October, 2004, 15:44:47
well of coz i did that, i found a script but its only working when u are regged u can dl of anyone. it s not that specified.

function Main()
frmHub:EnableFullData(1)
Levels = {Master = "1",Operator = "1",VIP = "1",Reg = "0",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 GetItemByName(towho) and GetItemByName(towho).bOperator then
curUser:SendData("*** Only VIPS are 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("*** Only VIPS are able to download from an OP")
       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
end

wondering if there can be created more levels i.e. master 3, vip 2, reg1 and unregged 0  
i tried it but hen scrip doesnt work anymore. also no when i change he ==-1 into -3 or -2  

i think when i change the levels i have to create for each level the script?