destroy vehicles

[abu5lf]

function playermenu () 
    if ( guiGetVisible (mainwindow) == false ) then 
        victimemt = getElementData ( getRootElement(), "adminclickselplayer" ) 
        mainwindow = guiCreateWindow ( 750, 250, 240, 180, "Car menu", false ) 
  
        -- 
        delveh = guiCreateButton ( 0.05, 0.35, 0.4, 0.15, "Delete vehicle", true, mainwindow ) 
  
        selowner = guiCreateButton ( 0.55, 0.55, 0.4, 0.15, "Select driver", true, mainwindow ) 
        -- 
        closebutton = guiCreateButton ( 0.30, 0.8, 0.4, 0.15, "Close", true, mainwindow ) 
  
    end 
end 
addEvent ("carmenu", true) 
addEventHandler ("carmenu", getRootElement(), playermenu) 
function disable () 
guiSetVisible ( mainwindow, false) 
setElementData ( source, "adminclickselplayer", "none" ) 
setElementData (getRootElement(), "adminclickopen", false) 
end 
function selectowner () 
thecar = getElementData ( getRootElement(), "adminclickselplayer" ) 
occupant = getVehicleOccupant ( thecar ) 
guiSetVisible ( mainwindow, false) 
    if ( occupant ) then  
        setElementData ( getRootElement(), "adminclickselplayer", getPlayerName(occupant) ) 
        triggerEvent ("playermenu", occupant) 
    else 
        outputChatBox ("This vehicle does not have a driver", 255, 0, 0 ) 
         
    end 
end 
  
function de () 
thecar = getElementData ( getRootElement(), "adminclickselplayer" ) 
occupant = getVehicleOccupant ( thecar ) 
guiSetVisible ( mainwindow, false) 
    if ( occupant ) then  
    vehicles = getElementsByType("vehicle") 
    for i,v in ipairs(vehicles) do 
        destroyElement(v) 
    else 
        outputChatBox ("This vehicle", 255, 0, 0 ) 
    end 
    end 
end 
     

destroy vehicles not work

Edited December 25, 2012 by Guest

[X-SHADOW]

occupant = getVehicleOccupant ( thecar ) 

Are you kidding me?

the correct is

occupant = getVehicleOccupant ( source ) 

[abu5lf]

occupant = getVehicleOccupant ( thecar ) 

Are you kidding me?

the correct is

occupant = getVehicleOccupant ( source ) 

not work

[X-SHADOW]

try this

function playermenu () 
    if ( guiGetVisible (mainwindow) == false ) then 
        victimemt = getElementData ( source, "adminclickselplayer" ) 
        mainwindow = guiCreateWindow ( 750, 250, 240, 180, "Car menu", false ) 
  
        -- 
        delveh = guiCreateButton ( 0.05, 0.35, 0.4, 0.15, "Delete vehicle", true, mainwindow ) 
  
        selowner = guiCreateButton ( 0.55, 0.55, 0.4, 0.15, "Select driver", true, mainwindow ) 
        -- 
        closebutton = guiCreateButton ( 0.30, 0.8, 0.4, 0.15, "Close", true, mainwindow ) 
 end 
addEvent ("carmenu", true) 
addEventHandler ("carmenu", getRootElement(), playermenu) 
function disable () 
guiSetVisible ( mainwindow, false) 
setElementData ( source, "adminclickselplayer", "none" ) 
setElementData (source, "adminclickopen", false) 
end 
function selectowner () 
thecar = getElementData ( source, "adminclickselplayer" ) 
occupant = getVehicleOccupant ( source ) 
guiSetVisible ( mainwindow, false) 
    if ( occupant ) then  
        setElementData ( source, "adminclickselplayer", getPlayerName(occupant) ) 
        triggerEvent ("playermenu", occupant) 
    else 
        outputChatBox ("This vehicle does not have a driver", 255, 0, 0 ) 
end 
  
function de () 
guiSetVisible ( mainwindow, false) 
thecar = getElementData ( source, "adminclickselplayer" ) 
occupant = getVehicleOccupant ( source ) 
    if ( occupant ) then  
    vehicles = getElementsByType("vehicle") 
    for i,v in ipairs(vehicles) do 
        destroyElement(v) 
end 
end 
end 
end 
end 

[drk]

mainwindow = guiCreateWindow ( 750, 250, 240, 180, "Car menu", false ) 
elveh = guiCreateButton ( 0.05, 0.35, 0.4, 0.15, "Delete vehicle", true, mainwindow ) 
selowner = guiCreateButton ( 0.55, 0.55, 0.4, 0.15, "Select driver", true, mainwindow ) 
closebutton = guiCreateButton ( 0.30, 0.8, 0.4, 0.15, "Close", true, mainwindow ) 
guiSetVisible ( mainwindow, false ); 
  
addEvent ( 'onOpenMenu', true ); 
  
addEventHandler ( 'onOpenMenu', root, 
    function ( ) 
        if ( not guiGetVisible ( mainWindow ) ) then 
            victimemt = getElementData ( source, 'adminclickselplayer' ); -- why you need this?? 
            guiSetVisible ( mainwindow, true ); 
            showCursor ( true ); 
        end 
    end 
) 
  
function selectOwner ( ) 
    local theCar    = getElementData ( source, 'adminclickselplayer' ); -- source not defined 
    local occupant  = getVehicleOccupant ( source ); 
    guiSetVisible ( mainwindow, false ); 
    if ( occupant ) then 
        setElementData ( source, 'adminclickselplayer', getPlayerName ( occupant ) ) 
        triggerEvent ( 'onOpenMenu', occupant ); 
    else 
        outputChatBox ( 'This vehicle does not have a driver!', 255, 0, 0, false ); 
    end 
end 
  
function disable ( ) 
    guiSetVisible ( mainwindow, false ); 
    local theCar    = getElementData ( source, 'adminclickselplayer' ) -- source not defined 
    local occupant  = getVehicleOccupant ( source ) 
    if ( occupant ) then 
        for _, k in ipairs ( getElementsByType 'vehicle' ) do 
            destroyElement ( k ) 
        end 
    end 
end 

That's a really mess X-SHADOW. What is source? Also, start tabulating your code.

[abu5lf]

mainwindow = guiCreateWindow ( 750, 250, 240, 180, "Car menu", false ) 
elveh = guiCreateButton ( 0.05, 0.35, 0.4, 0.15, "Delete vehicle", true, mainwindow ) 
selowner = guiCreateButton ( 0.55, 0.55, 0.4, 0.15, "Select driver", true, mainwindow ) 
closebutton = guiCreateButton ( 0.30, 0.8, 0.4, 0.15, "Close", true, mainwindow ) 
guiSetVisible ( mainwindow, false ); 
  
addEvent ( 'onOpenMenu', true ); 
  
addEventHandler ( 'onOpenMenu', root, 
    function ( ) 
        if ( not guiGetVisible ( mainWindow ) ) then 
            victimemt = getElementData ( source, 'adminclickselplayer' ); -- why you need this?? 
            guiSetVisible ( mainwindow, true ); 
            showCursor ( true ); 
        end 
    end 
) 
  
function selectOwner ( ) 
    local theCar    = getElementData ( source, 'adminclickselplayer' ); -- source not defined 
    local occupant  = getVehicleOccupant ( source ); 
    guiSetVisible ( mainwindow, false ); 
    if ( occupant ) then 
        setElementData ( source, 'adminclickselplayer', getPlayerName ( occupant ) ) 
        triggerEvent ( 'onOpenMenu', occupant ); 
    else 
        outputChatBox ( 'This vehicle does not have a driver!', 255, 0, 0, false ); 
    end 
end 
  
function disable ( ) 
    guiSetVisible ( mainwindow, false ); 
    local theCar    = getElementData ( source, 'adminclickselplayer' ) -- source not defined 
    local occupant  = getVehicleOccupant ( source ) 
    if ( occupant ) then 
        for _, k in ipairs ( getElementsByType 'vehicle' ) do 
            destroyElement ( k ) 
        end 
    end 
end 

That's a really mess X-SHADOW. What is source? Also, start tabulating your code.

not work

[drk]

Obviously, if it's the full code, will never work.

[abu5lf]

Obviously, if it's the full code, will never work.

mainwindow = guiCreateWindow ( 750, 250, 240, 180, "Car menu", false ) 
elveh = guiCreateButton ( 0.05, 0.35, 0.4, 0.15, "Delete vehicle", true, mainwindow ) 
selowner = guiCreateButton ( 0.55, 0.55, 0.4, 0.15, "Select driver", true, mainwindow ) 
closebutton = guiCreateButton ( 0.30, 0.8, 0.4, 0.15, "Close", true, mainwindow ) 
guiSetVisible ( mainwindow, false ); 
         addEventHandler( "onClientGUIClick", elveh, disable, false) 
         addEventHandler( "onClientGUIClick", selowner, selectOwner, false) 
         addEventHandler( "onClientGUIClick", closebutton, setteam, false) 
  
addEvent ( 'carmenu', true ); 
  
addEventHandler ( 'carmenu', root, 
    function ( ) 
        if ( not guiGetVisible ( mainWindow ) ) then 
            victimemt = getElementData ( source, 'adminclickselplayer' ); -- why you need this?? 
            guiSetVisible ( mainwindow, true ); 
            showCursor ( true ); 
        end 
    end 
) 
  
function selectOwner ( ) 
    local theCar    = getElementData ( source, 'adminclickselplayer' ); -- source not defined 
    local occupant  = getVehicleOccupant ( source ); 
    guiSetVisible ( mainwindow, false ); 
    if ( occupant ) then 
        setElementData ( source, 'adminclickselplayer', getPlayerName ( occupant ) ) 
        triggerEvent ( 'carmenu', occupant ); 
    else 
        outputChatBox ( 'This vehicle does not have a driver!', 255, 0, 0, false ); 
    end 
end 
  
function disable ( ) 
    guiSetVisible ( mainwindow, false ); 
    local theCar    = getElementData ( source, 'adminclickselplayer' ) -- source not defined 
    local occupant  = getVehicleOccupant ( source ) 
    if ( occupant ) then 
        for _, k in ipairs ( getElementsByType 'vehicle' ) do 
            destroyElement ( k ) 
        end 
    end 
end 

[drk]

mainwindow = guiCreateWindow ( 750, 250, 240, 180, "Car menu", false ) 
elveh = guiCreateButton ( 0.05, 0.35, 0.4, 0.15, "Delete vehicle", true, mainwindow ) 
selowner = guiCreateButton ( 0.55, 0.55, 0.4, 0.15, "Select driver", true, mainwindow ) 
closebutton = guiCreateButton ( 0.30, 0.8, 0.4, 0.15, "Close", true, mainwindow ) 
guiSetVisible ( mainwindow, true ); 
         addEventHandler( "onClientGUIClick", elveh, disable, false) 
         addEventHandler( "onClientGUIClick", selowner, selectOwner, false) 
         addEventHandler( "onClientGUIClick", closebutton, setteam, false) 
  
addEvent ( 'carmenu', true ); 
  
addEventHandler ( 'carmenu', root, 
    function ( ) 
        if ( not guiGetVisible ( mainWindow ) ) then 
            victimemt = getElementData ( source, 'adminclickselplayer' ); -- why you need this?? 
            guiSetVisible ( mainwindow, true ); 
            showCursor ( true ); 
        end 
    end 
) 
  
function selectOwner ( ) 
    local theCar    = getElementData ( source, 'adminclickselplayer' ); -- source not defined 
    local occupant  = getVehicleOccupant ( source ); 
    guiSetVisible ( mainwindow, false ); 
    if ( occupant ) then 
        setElementData ( source, 'adminclickselplayer', getPlayerName ( occupant ) ) 
        triggerEvent ( 'carmenu', occupant ); 
    else 
        outputChatBox ( 'This vehicle does not have a driver!', 255, 0, 0, false ); 
    end 
end 
  
function disable ( ) 
    guiSetVisible ( mainwindow, false ); 
    local theCar    = getElementData ( source, 'adminclickselplayer' ) -- source not defined 
    local occupant  = getVehicleOccupant ( source ) 
    if ( occupant ) then 
        for _, k in ipairs ( getElementsByType 'vehicle' ) do 
            destroyElement ( k ) 
        end 
    end 
end 

[abu5lf]

mainwindow = guiCreateWindow ( 750, 250, 240, 180, "Car menu", false ) 
elveh = guiCreateButton ( 0.05, 0.35, 0.4, 0.15, "Delete vehicle", true, mainwindow ) 
selowner = guiCreateButton ( 0.55, 0.55, 0.4, 0.15, "Select driver", true, mainwindow ) 
closebutton = guiCreateButton ( 0.30, 0.8, 0.4, 0.15, "Close", true, mainwindow ) 
guiSetVisible ( mainwindow, true ); 
         addEventHandler( "onClientGUIClick", elveh, disable, false) 
         addEventHandler( "onClientGUIClick", selowner, selectOwner, false) 
         addEventHandler( "onClientGUIClick", closebutton, setteam, false) 
  
addEvent ( 'carmenu', true ); 
  
addEventHandler ( 'carmenu', root, 
    function ( ) 
        if ( not guiGetVisible ( mainWindow ) ) then 
            victimemt = getElementData ( source, 'adminclickselplayer' ); -- why you need this?? 
            guiSetVisible ( mainwindow, true ); 
            showCursor ( true ); 
        end 
    end 
) 
  
function selectOwner ( ) 
    local theCar    = getElementData ( source, 'adminclickselplayer' ); -- source not defined 
    local occupant  = getVehicleOccupant ( source ); 
    guiSetVisible ( mainwindow, false ); 
    if ( occupant ) then 
        setElementData ( source, 'adminclickselplayer', getPlayerName ( occupant ) ) 
        triggerEvent ( 'carmenu', occupant ); 
    else 
        outputChatBox ( 'This vehicle does not have a driver!', 255, 0, 0, false ); 
    end 
end 
  
function disable ( ) 
    guiSetVisible ( mainwindow, false ); 
    local theCar    = getElementData ( source, 'adminclickselplayer' ) -- source not defined 
    local occupant  = getVehicleOccupant ( source ) 
    if ( occupant ) then 
        for _, k in ipairs ( getElementsByType 'vehicle' ) do 
            destroyElement ( k ) 
        end 
    end 
end 

not work =(

[abu5lf]

function playermenu () 
    if ( guiGetVisible (mainwindow) == false ) then 
        victimemt = getElementData ( getRootElement(), "adminclickselplayer" ) 
        mainwindow = guiCreateWindow ( 750, 250, 240, 180, "Car menu", false ) 
        -- 
        fixveh = guiCreateButton ( 0.05, 0.15, 0.4, 0.15, "Fix vehicle", true, mainwindow ) 
        blowveh = guiCreateButton ( 0.55, 0.15, 0.4, 0.15, "Blow up vehicle", true, mainwindow ) 
        -- 
        delveh = guiCreateButton ( 0.05, 0.35, 0.4, 0.15, "Delete vehicle", true, mainwindow ) 
        colveh = guiCreateButton ( 0.55, 0.35, 0.4, 0.15, "Colour vehicle", true, mainwindow ) 
        -- 
        upgveh = guiCreateButton ( 0.05, 0.55, 0.4, 0.15, "Upgrade vehicle", true, mainwindow ) 
        selowner = guiCreateButton ( 0.55, 0.55, 0.4, 0.15, "Select driver", true, mainwindow ) 
        -- 
        closebutton = guiCreateButton ( 0.30, 0.8, 0.4, 0.15, "Close", true, mainwindow ) 
         addEventHandler( "onClientGUIClick", delveh, vc, false) 
          addEventHandler( "onClientGUIClick", closebutton, disable, false) 
         addEventHandler( "onClientGUIClick", selowner, selectowner, false) 
--       addEventHandler( "onClientGUIClick", setteambutton, setteam, false) 
--       addEventHandler( "onClientGUIClick", mutebutton, mute, false) 
--       addEventHandler( "onClientGUIClick", freezebutton, freeze, false) 
--       addEventHandler( "onClientGUIClick", banbutton, ban, false) 
--       addEventHandler( "onClientGUIClick", kickbutton, kick, false) 
    end 
end 
addEvent ("carmenu", true) 
addEventHandler ("carmenu", getRootElement(), playermenu) 
function disable () 
guiSetVisible ( mainwindow, false) 
setElementData ( source, "adminclickselplayer", "none" ) 
setElementData (getRootElement(), "adminclickopen", false) 
end 
function selectowner () 
thecar = getElementData ( getRootElement(), "adminclickselplayer" ) 
occupant = getVehicleOccupant ( thecar ) 
guiSetVisible ( mainwindow, false) 
    if ( occupant ) then  
        setElementData ( getRootElement(), "adminclickselplayer", getPlayerName(occupant) ) 
        triggerEvent ("playermenu", occupant) 
    else 
        outputChatBox ("This vehicle does not have a driver", 255, 0, 0 ) 
    end 
end 
  
function vc ( ) 
    guiSetVisible ( mainwindow, false ); 
    local theCar    = getElementData ( source, 'adminclickselplayer' ) -- source not defined 
    local occupant  = getVehicleOccupant ( source ) 
    if ( occupant ) then 
        for _, k in ipairs ( getElementsByType 'vehicle' ) do 
            destroyElement ( k ) 
        end 
    end 
end 
  

WARNING: adminclick\adminclickcars_cl.lua:48:Bad'vehicle'pointer@'getVehicleOccupant'(1)

[drk]

Dude, you are creating functions where source is nil!

source is only used in events.

[abu5lf]

Dude, you are creating functions where source is nil!

source is only used in events.

Well, how do you do it ?

[drk]

You need create events and trigger the events ( events with the functions ) so source will be the triggered event target player.

[abu5lf]

You need create events and trigger the events ( events with the functions ) so source will be the triggered event target player.

?????

function onPlayerTarget ( targetElem ) 
    if getElementType ( targetElem ) == "vehicle" then 
    end 
end 
addEventHandler ( "onPlayerTarget", getRootElement(), onPlayerTarget )   

[drk]

loooooooooooooooooool

Are you kidding me??

addEvent ( 'yourEvent', true ); 
  
addEventHandler ( 'yourEvent', root, 
    function ( ) 
         -- your function 
    end 
) 

[abu5lf]

loooooooooooooooooool

Are you kidding me??

addEvent ( 'yourEvent', true ); 
  
addEventHandler ( 'yourEvent', root, 
    function ( ) 
         -- your function 
    end 
) 

So

addEvent ( 'carmenu', true ); 
  
addEventHandler ( 'carmenu', root, 
    function ( ) 
function vc ( ) 
    guiSetVisible ( mainwindow, false ); 
    local theCar    = getElementData ( source, 'adminclickselplayer' ) -- source not defined 
    local occupant  = getVehicleOccupant ( source ) 
    if ( occupant ) then 
        for _, k in ipairs ( getElementsByType 'vehicle' ) do 
            destroyElement ( k ) 
        end 
    end 
end 
    end 

)

[X-SHADOW]

addEvent ( 'carmenu', true ) 
addEventHandler ( 'carmenu', root, 
function ( ) 
    guiSetVisible ( mainwindow, false ); 
    local theCar = getElementData ( source, 'adminclickselplayer' ) 
    local occupant = getVehicleOccupant ( source ) 
    if ( occupant ) then 
        for _, k in ipairs ( getElementsByType 'vehicle' ) do 
        destroyElement ( k ) 
end 
end 
end) 

[abu5lf]

addEvent ( 'carmenu', true ) 
addEventHandler ( 'carmenu', root, 
function ( ) 
    guiSetVisible ( mainwindow, false ); 
    local theCar = getElementData ( source, 'adminclickselplayer' ) 
    local occupant = getVehicleOccupant ( source ) 
    if ( occupant ) then 
        for _, k in ipairs ( getElementsByType 'vehicle' ) do 
        destroyElement ( k ) 
end 
end 
end) 

WARNING: adminclick\adminclickcars_cl.lua:52:Bad'vehicle' pointer @ 'getVehicleOccupant'(1)

WARNING: adminclick\adminclickcars_cl.lua:16:Bad argument @ 'addEventHandler' [Expected function at argument 3, got nil]

[X-SHADOW]

show your full code

[drk]

Cx.83, why don't you copy my code??? I posted correct code and you haven't used it.

[X-SHADOW]

Darken i think its not the full code adminclickcars_cl.lua:16:Bad and adminclickcars_cl.lua:52:Bad

there is many errors with other code

[drk]

viewtopic.php?f=91&t=41730#p422626

See previous post. I posted the correct code and he used him fucking bugged code

[abu5lf]

adminclickcars_cl

function playermenu () 
    if ( guiGetVisible (mainwindow) == false ) then 
        victimemt = getElementData ( getRootElement(), "adminclickselplayer" ) 
        mainwindow = guiCreateWindow ( 750, 250, 240, 180, "Car menu", false ) 
        -- 
        fixveh = guiCreateButton ( 0.05, 0.15, 0.4, 0.15, "Fix vehicle", true, mainwindow ) 
        blowveh = guiCreateButton ( 0.55, 0.15, 0.4, 0.15, "Blow up vehicle", true, mainwindow ) 
        -- 
        delveh = guiCreateButton ( 0.05, 0.35, 0.4, 0.15, "Delete vehicle", true, mainwindow ) 
        colveh = guiCreateButton ( 0.55, 0.35, 0.4, 0.15, "Colour vehicle", true, mainwindow ) 
        -- 
        upgveh = guiCreateButton ( 0.05, 0.55, 0.4, 0.15, "Upgrade vehicle", true, mainwindow ) 
        selowner = guiCreateButton ( 0.55, 0.55, 0.4, 0.15, "Select driver", true, mainwindow ) 
        -- 
        closebutton = guiCreateButton ( 0.30, 0.8, 0.4, 0.15, "Close", true, mainwindow ) 
         addEventHandler( "onClientGUIClick", delveh, vc, false) 
          addEventHandler( "onClientGUIClick", closebutton, disable, false) 
         addEventHandler( "onClientGUIClick", selowner, selectowner, false) 
--       addEventHandler( "onClientGUIClick", setteambutton, setteam, false) 
--       addEventHandler( "onClientGUIClick", mutebutton, mute, false) 
--       addEventHandler( "onClientGUIClick", freezebutton, freeze, false) 
--       addEventHandler( "onClientGUIClick", banbutton, ban, false) 
--       addEventHandler( "onClientGUIClick", kickbutton, kick, false) 
    end 
end 
addEvent ("carmenu", true) 
addEventHandler ("carmenu", getRootElement(), playermenu) 
function disable () 
guiSetVisible ( mainwindow, false) 
setElementData ( source, "adminclickselplayer", "none" ) 
setElementData (getRootElement(), "adminclickopen", false) 
end 
function selectowner () 
thecar = getElementData ( getRootElement(), "adminclickselplayer" ) 
occupant = getVehicleOccupant ( thecar ) 
guiSetVisible ( mainwindow, false) 
    if ( occupant ) then  
        setElementData ( getRootElement(), "adminclickselplayer", getPlayerName(occupant) ) 
        triggerEvent ("playermenu", occupant) 
    else 
        outputChatBox ("This vehicle does not have a driver", 255, 0, 0 ) 
    end 
end 
  
  
  
addEvent ( 'carmenu', true ) 
addEventHandler ( 'carmenu', root, 
function ( ) 
    guiSetVisible ( mainwindow, false ); 
    local theCar = getElementData ( source, 'adminclickselplayer' ) 
    local occupant = getVehicleOccupant ( source ) 
    if ( occupant ) then 
        for _, k in ipairs ( getElementsByType 'vehicle' ) do 
        destroyElement ( k ) 
end 
end 
end) 

adminclick_cl

  
function playermenu () 
    if ( guiGetVisible (mainwindow) == false ) then 
        victimemt = getElementData ( getRootElement(), "adminclickselplayer" ) 
        showCursor ( true ) 
        mainwindow = guiCreateWindow ( 750, 250, 200, 180, "Player: " .. victimemt, false ) 
        -- 
        kickbutton = guiCreateButton ( 0.05, 0.15, 0.4, 0.15, "Kick player", true, mainwindow ) 
        banbutton = guiCreateButton ( 0.55, 0.15, 0.4, 0.15, "Ban player", true, mainwindow ) 
        -- 
        freezebutton = guiCreateButton ( 0.05, 0.35, 0.4, 0.15, "Freeze player", true, mainwindow ) 
        mutebutton = guiCreateButton ( 0.55, 0.35, 0.4, 0.15, "Mute player", true, mainwindow ) 
        -- 
        setteambutton = guiCreateButton ( 0.05, 0.55, 0.4, 0.15, "Set team", true, mainwindow ) 
        killbutton = guiCreateButton ( 0.55, 0.55, 0.4, 0.15, "Kill player", true, mainwindow ) 
        -- 
        closebutton = guiCreateButton ( 0.30, 0.8, 0.4, 0.15, "Close", true, mainwindow ) 
         addEventHandler( "onClientGUIClick", closebutton, disable, false) 
         addEventHandler( "onClientGUIClick", killbutton, killplayer, false) 
         addEventHandler( "onClientGUIClick", setteambutton, setteam, false) 
         addEventHandler( "onClientGUIClick", mutebutton, mute, false) 
         addEventHandler( "onClientGUIClick", freezebutton, freeze, false) 
         addEventHandler( "onClientGUIClick", banbutton, ban, false) 
         addEventHandler( "onClientGUIClick", kickbutton, kick, false) 
    end 
end 
addEvent ("playermenu", true) 
addEventHandler ("playermenu", getRootElement(), playermenu) 
function disable () 
guiSetVisible ( mainwindow, false) 
showCursor ( false ) 
setElementData ( source, "adminclickselplayer", "none" ) 
setElementData (getRootElement(), "adminclickopen", false) 
end 
function killplayer () 
    triggerServerEvent ("killplayer", getLocalPlayer()) 
end 
function setteam () 
    teams = getElementsByType ("team") 
    guiSetEnabled ( mainwindow, false) 
    teamwindow = guiCreateWindow ( 750, 100, 200, 150, "Set Player Team", false ) 
    setteam = guiCreateButton ( 0.1, 0.8, 0.4, 0.15, "Set Team", true, teamwindow ) 
    closeteambutton = guiCreateButton ( 0.6, 0.8, 0.4, 0.15, "Close", true, teamwindow ) 
    teamList = guiCreateGridList ( 0.05, 0.15, 0.9, 0.65, true, teamwindow ) 
    teamname = guiGridListAddColumn( teamList, "Team name", 0.85 ) 
    guiGridListSetSelectionMode ( teamList, 0 ) 
        for theKey,team in ipairs(teams) do   
            row = guiGridListAddRow ( teamList ) 
            guiGridListSetItemText ( teamList, row, teamname, getTeamName ( team ), false, false ) 
        end 
        addEventHandler( "onClientGUIClick", setteam, setpteam, false) 
        addEventHandler( "onClientGUIClick", closeteambutton, closeteambuttonact, false) 
end 
function mute () 
    triggerServerEvent ("mute", getLocalPlayer()) 
end 
function freeze () 
    triggerServerEvent ("freeze", getLocalPlayer()) 
end 
function kick () 
    guiSetEnabled ( mainwindow, false) 
    reasonwindowkick = guiCreateWindow ( 750, 100, 200, 100, "Enter reason", false ) 
    kickp = guiCreateButton ( 0.065,0.72,0.45,0.20, "kick player", true, reasonwindowkick ) 
    closekickbutton = guiCreateButton ( 0.55,0.72,0.45,0.20, "Close", true, reasonwindowkick ) 
    thereasonkick = guiCreateEdit( 0.30,0.40,0.585,0.23, "", true, reasonwindowkick ) 
    guiCreateLabel(0.05, 0.4,0.2,0.2,"Reason: ",true, reasonwindowkick) 
        addEventHandler( "onClientGUIClick", kickp, kickplayer, false) 
        addEventHandler( "onClientGUIClick", closekickbutton, closekickbuttonact, false) 
     
end 
function closeteambuttonact() 
guiSetVisible ( teamwindow, false) 
guiSetEnabled ( mainwindow, true) 
end 
function ban ()  
    guiSetEnabled ( mainwindow, false) 
    reasonwindow = guiCreateWindow ( 750, 100, 200, 100, "Enter reason", false ) 
    banp = guiCreateButton ( 0.065,0.72,0.45,0.20, "Ban player", true, reasonwindow ) 
    closebanbutton = guiCreateButton ( 0.55,0.72,0.45,0.20, "Close", true, reasonwindow ) 
    thereason = guiCreateEdit( 0.30,0.40,0.585,0.23, "", true, reasonwindow ) 
    guiCreateLabel(0.05, 0.4,0.2,0.2,"Reason: ",true, reasonwindow) 
        addEventHandler( "onClientGUIClick", banp, banplayer, false) 
        addEventHandler( "onClientGUIClick", closebanbutton, closebanbuttonact, false) 
end 
function setpteam () 
selteamName = guiGridListGetItemText ( teamList, guiGridListGetSelectedItem ( teamList ), 1 ) 
    if ( selteamName ) then 
        teamname = tostring(selteamName) 
        triggerServerEvent ("setpteam", getLocalPlayer(), teamname) 
        closeteambuttonact() 
        disable() 
    else 
        outputChatBox ("You must select a team.", 255, 0, 0 ) 
    end 
end 
function banplayer() 
reason = guiGetText (thereason) 
triggerServerEvent ("ban", getLocalPlayer(), reason) 
closebanbuttonact() 
end 
function closebanbuttonact () 
guiSetVisible ( reasonwindow, false) 
guiSetEnabled ( mainwindow, true) 
end 
function closekickbuttonact () 
guiSetVisible ( reasonwindowkick, false) 
guiSetEnabled ( mainwindow, true) 
end 
function kickplayer() 
reason = guiGetText (thereasonkick) 
triggerServerEvent ("kick", getLocalPlayer(), reason) 
closekickbuttonact() 
disable() 
end 

adminclick

  
player = getRootElement() 
setElementData (getRootElement(), "adminclickopen", false) 
setElementData (getRootElement(), "adminclickmousebind", false) 
  
function clickmenu (mouseButton, buttonState, clickedElement, worldPosX, worldPosY, worldPosZ, screenPosX, screenPosY) 
-- outputChatBox ("1") 
    if ( buttonState == "down" ) then 
--   outputChatBox ("2") 
     if ( hasObjectPermissionTo ( source, "function.kickPlayer", true ) ) then 
--    outputChatBox ("3") 
        if ( getElementData ( getRootElement(), "adminclickopen" ) == false ) then 
--       outputChatBox ("4") 
         if ( getElementData (getRootElement(), "adminclickmousebind") == true ) then 
--          outputChatBox ("5") 
            if ( mouseButton == "right" ) then 
                if ( clickedElement ) then 
                    if ( getElementType (clickedElement) == "player" ) then 
                        name = getPlayerName (clickedElement) 
                        setElementData (getRootElement(), "adminclickselplayer", tostring(name) ) 
                        setElementData (getRootElement(), "adminclickopen", true) 
                        triggerClientEvent (source,"playermenu", getRootElement() ) 
                    elseif ( getElementType (clickedElement) == "vehicle" ) then 
                        thecar = clickedElement 
                        setElementData (getRootElement(), "adminclickselplayer", thecar ) 
                        triggerClientEvent (source,"carmenu", getRootElement() ) 
                        --setElementVelocity ( clickedElement, 0, 0, 1.5) 
                    end 
                end 
            elseif ( mouseButton == "left" ) then 
                --outputChatBox ( worldPosX .. "," .. worldPosY .. "," .. worldPosZ ) 
                --[[ Random send cars & players flying, can be abused 
                col = createColCircle ( worldPosX, worldPosY, 15) 
                colelements = getElementsWithinColShape (col) 
                    for theKey,theElement in ipairs(colelements) do   
                        if ( getElementType (theElement) == "player" ) then 
                            setElementVelocity ( theElement, 2, 0, 5) 
                        elseif ( getElementType (theElement) == "vehicle" ) then 
                            setElementVelocity ( theElement, 2, 0, 1.5) 
                        end 
                    end 
                    --]] 
            end 
         end 
        end 
     end 
    end 
end 
addEventHandler( "onPlayerClick", getRootElement(), clickmenu ) 
  
function onstart() 
players = getElementsByType ( "player" ) -- get a table of all the players in the server 
    for theKey,player in ipairs(players) do 
        if ( hasObjectPermissionTo ( player, "function.kickPlayer", true ) ) then    
            setElementData (getRootElement(), "adminclickopen", false) 
            setElementData (getRootElement(), "adminclickmousebind", false) 
            bindKey (player, "o", "down", showmouse, player ) 
        end 
    end 
end 
addEventHandler ( "onResourceStart", getRootElement(), onstart ) 
function showmouse (player) 
    if (isCursorShowing(player) == false ) then 
        setElementData (getRootElement(), "adminclickmousebind", true) 
        showCursor (player, true) 
    else 
        setElementData (getRootElement(), "adminclickmousebind", false) 
        showCursor (player, false) 
         
    end 
end 
function bindmouse (player) 
    if ( hasObjectPermissionTo ( source, "function.kickPlayer", true ) ) then 
        setElementData (getRootElement(), "adminclickopen", false) 
        setElementData (getRootElement(), "adminclickmousebind", false) 
        bindKey ( source, "o", "down", showmouse, player ) 
  
    end 
end 
addEventHandler ("onPlayerLogin", getRootElement(), bindmouse ) 
function killplayer () 
victimemt = getElementData ( getRootElement(), "adminclickselplayer" ) 
victim = getPlayerFromName (tostring(victimemt)) 
    if ( isElement(victim) ) then 
        killPed (victim) 
        outputChatBox ("You just killed " .. victimemt, source, 125, 125, 125 ) 
        outputChatBox ("You just admin killed!", victim, 125, 125, 125 ) 
    else 
        outputChatBox ("This player is no longer connected.", source, 255, 0, 0 ) 
    end 
end 
addEvent("killplayer", true) 
addEventHandler ("killplayer", getRootElement(), killplayer) 
function muteplayer () 
victimemt = getElementData ( getRootElement(), "adminclickselplayer" ) 
victim = getPlayerFromName (tostring(victimemt)) 
    if ( isElement(victim) ) then 
        if ( getElementData ( victim, "muted" ) == false ) then 
            setPlayerMuted ( victim, true ) 
            setElementData (victim, "muted", true) 
            outputChatBox ("You just muted " .. victimemt, source, 125, 125, 125 ) 
            outputChatBox ("You just got muted.", victim, 125, 125, 125 ) 
        elseif ( getElementData ( victim, "muted" ) == true ) then 
            setPlayerMuted ( victim, false ) 
            setElementData (victim, "muted", false) 
            outputChatBox ("You just unmuted " .. victimemt, source, 125, 125, 125 ) 
            outputChatBox ("You just got unmuted.", victim, 125, 125, 125 ) 
        end 
    else 
        outputChatBox ("This player is no longer connected.", source, 255, 0, 0 ) 
    end 
end 
addEvent("mute", true) 
addEventHandler ("mute", getRootElement(), muteplayer) 
function freezeplayer () 
victimemt = getElementData ( getRootElement(), "adminclickselplayer" ) 
victim = getPlayerFromName (tostring(victimemt)) 
    if ( isElement(victim) ) then 
        if ( getElementData ( victim, "froozen" ) == false ) then 
            toggleAllControls ( victim, false, true, false ) 
            setElementData (victim, "froozen", true) 
            outputChatBox ("You just freezed " .. victimemt, source, 125, 125, 125 ) 
            outputChatBox ("You just got freezed.", victim, 125, 125, 125 ) 
        elseif ( getElementData ( victim, "froozen" ) == true ) then 
            toggleAllControls ( victim,true,true,true ) 
            setElementData (victim, "froozen", false) 
            outputChatBox ("You're now free to move " .. victimemt, source, 125, 125, 125 ) 
            outputChatBox ("You just got un-froozen.", victim, 125, 125, 125 ) 
        end 
    else 
        outputChatBox ("This player is no longer connected.", source, 255, 0, 0 ) 
    end 
end 
addEvent("freeze", true) 
addEventHandler ("freeze", getRootElement(), freezeplayer) 
function banplayer (reason) 
victimemt = getElementData ( getRootElement(), "adminclickselplayer" ) 
victim = getPlayerFromName (tostring(victimemt)) 
    if ( isElement(victim) ) then 
        banPlayer ( victim, true, true, true, getRootElement(), tostring(reason), 20) 
        outputChatBox ("You just banned " .. victimemt, source, 125, 125, 125 ) 
        outputChatBox ( getPlayerName(source) .. " has just banned " .. victimemt .. " for: " .. tostring(reason), source, 255, 0, 0 ) 
    else 
        outputChatBox ("This player is no longer connected.", source, 255, 0, 0 ) 
    end 
end 
addEvent("ban", true) 
addEventHandler ("ban", getRootElement(), banplayer) 
function kickplayer (reason) 
victimemt = getElementData ( getRootElement(), "adminclickselplayer" ) 
victim = getPlayerFromName (tostring(victimemt)) 
    if ( isElement(victim) ) then 
        kickPlayer ( victim, getRootElement(), reason) 
        outputChatBox ("You just kicked " .. victimemt, source, 125, 125, 125 ) 
        outputChatBox ( getPlayerName(source) .. " has just kicked " .. victimemt .. " for: " .. tostring(reason), source, 255, 0, 0 ) 
    else 
        outputChatBox ("This player is no longer connected.", source, 255, 0, 0 ) 
    end 
end 
addEvent("kick", true) 
addEventHandler ("kick", getRootElement(), kickplayer) 

[abu5lf]

I want to help you,