Anyone want to add a VIP door
#1
It only lets certain users in the door, any other players would just be killed.
[Image: 1te6tmtu01m.png]
the dogs will take over these countries.
Reply
#2
Try this script:
Quote:allowed = {"YourNameHere", "OtherNameHere"}

function in_table ( e, t )
for _,v in pairs(t) do
if (v==e) then return true end
end
return false
end

function onCollide(part)
if part.Parent:isA("Character") then
local name = part.Parent.Name
if in_table(name, allowed) then
if script.Parent.Collidable then
script.Parent.Collidable = false
script.Parent.Transparency = 0.5
sleep(1)
script.Parent.Collidable = true
script.Parent.Transparency = 0
end
end
end
end

link(script.Parent.Collided, onCollide)

It doesn't kill, but that would be easy to add if you wanted to.
Reply
#3
(01-15-2011, 05:37 PM)Jacob_ Wrote: Try this script:
Quote:allowed = {"YourNameHere", "OtherNameHere"}

function in_table ( e, t )
for _,v in pairs(t) do
if (v==e) then return true end
end
return false
end

function onCollide(part)
if part.Parent:isA("Character") then
local name = part.Parent.Name
if in_table(name, allowed) then
if script.Parent.Collidable then
script.Parent.Collidable = false
script.Parent.Transparency = 0.5
sleep(1)
script.Parent.Collidable = true
script.Parent.Transparency = 0
end
end
end
end

link(script.Parent.Collided, onCollide)

It doesn't kill, but that would be easy to add if you wanted to.

Make it so it doesn't kill when closed and only kills wen opened.
And can you make it so you need an admin shirt (If a shop comes out)
Or maybe a password you say in-game to make you a VIP?
Reply
#4
Code:
allowed = {"Guest","Aroblix",""} --Who is allowed through the door?
opentime = 1 --How much time will the door be open?
transparency = 0.5 --How transparent is the door when open?

function check(playername)
    for count,name in pairs(allowed) do
        if (string.lower(playername) == string.lower(name)) then
            return true
        end
    end
    return false
end


function open(part)
    if part.Parent:isA('Character') then
        if check(part.Parent.Name) then
            script.Parent.Collidable = false
            script.Parent.Transparency = transparency
            sleep(opentime)
            script.Parent.Collidable = true
            script.Parent.Transparency = 0
        end
    end
end
link(script.Parent.Collided, open)
--Coded by Aroblix.


Attached Files
.txt   VIP Door Script.txt (Size: 725 bytes / Downloads: 26)
Reply
#5
Yep Big Grin
Reply
#6
What in the world is that scripting language?
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)